summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 15:12:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 15:12:00 (GMT)
commit30d418f55ba9d550b0096e9c94d9d56225a66af3 (patch)
tree064b7a6b0f3f7df2d1a3c8e0f0948a4ad06901c3
parentc01838dd99563e4f8a291d516864898159dde070 (diff)
version 1.6.0HEAD1.6.0master
-rw-r--r--README.md2
-rw-r--r--amazonka-servicecatalog.cabal17
-rw-r--r--fixture/CreateProvisionedProductPlan.yaml10
-rw-r--r--fixture/CreateProvisionedProductPlanResponse.proto0
-rw-r--r--fixture/DeleteProvisionedProductPlan.yaml10
-rw-r--r--fixture/DeleteProvisionedProductPlanResponse.proto0
-rw-r--r--fixture/DeleteTagOption.yaml10
-rw-r--r--fixture/DeleteTagOptionResponse.proto0
-rw-r--r--fixture/DescribeProvisionedProductPlan.yaml10
-rw-r--r--fixture/DescribeProvisionedProductPlanResponse.proto0
-rw-r--r--fixture/ExecuteProvisionedProductPlan.yaml10
-rw-r--r--fixture/ExecuteProvisionedProductPlanResponse.proto0
-rw-r--r--fixture/ListProvisionedProductPlans.yaml10
-rw-r--r--fixture/ListProvisionedProductPlansResponse.proto0
-rw-r--r--fixture/SearchProvisionedProducts.yaml10
-rw-r--r--fixture/SearchProvisionedProductsResponse.proto0
-rw-r--r--gen/Network/AWS/ServiceCatalog.hs163
-rw-r--r--gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs12
-rw-r--r--gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs32
-rw-r--r--gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs28
-rw-r--r--gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs14
-rw-r--r--gen/Network/AWS/ServiceCatalog/CopyProduct.hs56
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreateConstraint.hs76
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs64
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs24
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreateProduct.hs120
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreateProvisionedProductPlan.hs296
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs58
-rw-r--r--gen/Network/AWS/ServiceCatalog/CreateTagOption.hs18
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs12
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs38
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs24
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeleteProduct.hs38
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeleteProvisionedProductPlan.hs151
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs26
-rw-r--r--gen/Network/AWS/ServiceCatalog/DeleteTagOption.hs123
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs34
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs36
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs42
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProduct.hs36
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs50
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProductView.hs36
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs58
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProvisionedProductPlan.hs195
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs56
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs66
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeRecord.hs66
-rw-r--r--gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs20
-rw-r--r--gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs24
-rw-r--r--gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs20
-rw-r--r--gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs22
-rw-r--r--gen/Network/AWS/ServiceCatalog/ExecuteProvisionedProductPlan.hs161
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs59
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs67
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs66
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs32
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListPortfolios.hs50
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs60
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs56
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListProvisionedProductPlans.hs191
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs32
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs64
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs70
-rw-r--r--gen/Network/AWS/ServiceCatalog/ListTagOptions.hs56
-rw-r--r--gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs72
-rw-r--r--gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs12
-rw-r--r--gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs92
-rw-r--r--gen/Network/AWS/ServiceCatalog/SearchProducts.hs82
-rw-r--r--gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs91
-rw-r--r--gen/Network/AWS/ServiceCatalog/SearchProvisionedProducts.hs220
-rw-r--r--gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs56
-rw-r--r--gen/Network/AWS/ServiceCatalog/Types.hs145
-rw-r--r--gen/Network/AWS/ServiceCatalog/Types/Product.hs1497
-rw-r--r--gen/Network/AWS/ServiceCatalog/Types/Sum.hs253
-rw-r--r--gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs46
-rw-r--r--gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs74
-rw-r--r--gen/Network/AWS/ServiceCatalog/UpdateProduct.hs92
-rw-r--r--gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs80
-rw-r--r--gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs76
-rw-r--r--gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs24
-rw-r--r--gen/Network/AWS/ServiceCatalog/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/Gen/ServiceCatalog.hs128
-rw-r--r--test/Test/AWS/ServiceCatalog.hs2
-rw-r--r--test/Test/AWS/ServiceCatalog/Internal.hs2
85 files changed, 4519 insertions, 1716 deletions
diff --git a/README.md b/README.md
index c4a8eb6..dbd7360 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-servicecatalog.cabal b/amazonka-servicecatalog.cabal
index 96cd239..1a03722 100644
--- a/amazonka-servicecatalog.cabal
+++ b/amazonka-servicecatalog.cabal
@@ -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: MPL-2.0
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 @@ library
, 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 @@ library
, 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 @@ library
, 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 @@ library
, 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 @@ library
, 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 @@ library
, 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-suite amazonka-servicecatalog-test
, 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
diff --git a/fixture/CreateProvisionedProductPlan.yaml b/fixture/CreateProvisionedProductPlan.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/CreateProvisionedProductPlan.yaml
@@ -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:
+ ''
diff --git a/fixture/CreateProvisionedProductPlanResponse.proto b/fixture/CreateProvisionedProductPlanResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/CreateProvisionedProductPlanResponse.proto
diff --git a/fixture/DeleteProvisionedProductPlan.yaml b/fixture/DeleteProvisionedProductPlan.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/DeleteProvisionedProductPlan.yaml
@@ -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:
+ ''
diff --git a/fixture/DeleteProvisionedProductPlanResponse.proto b/fixture/DeleteProvisionedProductPlanResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DeleteProvisionedProductPlanResponse.proto
diff --git a/fixture/DeleteTagOption.yaml b/fixture/DeleteTagOption.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/DeleteTagOption.yaml
@@ -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:
+ ''
diff --git a/fixture/DeleteTagOptionResponse.proto b/fixture/DeleteTagOptionResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DeleteTagOptionResponse.proto
diff --git a/fixture/DescribeProvisionedProductPlan.yaml b/fixture/DescribeProvisionedProductPlan.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/DescribeProvisionedProductPlan.yaml
@@ -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:
+ ''
diff --git a/fixture/DescribeProvisionedProductPlanResponse.proto b/fixture/DescribeProvisionedProductPlanResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DescribeProvisionedProductPlanResponse.proto
diff --git a/fixture/ExecuteProvisionedProductPlan.yaml b/fixture/ExecuteProvisionedProductPlan.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/ExecuteProvisionedProductPlan.yaml
@@ -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:
+ ''
diff --git a/fixture/ExecuteProvisionedProductPlanResponse.proto b/fixture/ExecuteProvisionedProductPlanResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ExecuteProvisionedProductPlanResponse.proto
diff --git a/fixture/ListProvisionedProductPlans.yaml b/fixture/ListProvisionedProductPlans.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/ListProvisionedProductPlans.yaml
@@ -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:
+ ''
diff --git a/fixture/ListProvisionedProductPlansResponse.proto b/fixture/ListProvisionedProductPlansResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListProvisionedProductPlansResponse.proto
diff --git a/fixture/SearchProvisionedProducts.yaml b/fixture/SearchProvisionedProducts.yaml
new file mode 100644
index 0000000..beb6100
--- /dev/null
+++ b/fixture/SearchProvisionedProducts.yaml
@@ -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:
+ ''
diff --git a/fixture/SearchProvisionedProductsResponse.proto b/fixture/SearchProvisionedProductsResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/SearchProvisionedProductsResponse.proto
diff --git a/gen/Network/AWS/ServiceCatalog.hs b/gen/Network/AWS/ServiceCatalog.hs
index 1a2e74f..a7376c4 100644
--- a/gen/Network/AWS/ServiceCatalog.hs
+++ b/gen/Network/AWS/ServiceCatalog.hs
@@ -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 @@ module Network.AWS.ServiceCatalog
-- ** UpdateConstraint
, module Network.AWS.ServiceCatalog.UpdateConstraint
+ -- ** CreateProvisionedProductPlan
+ , module Network.AWS.ServiceCatalog.CreateProvisionedProductPlan
+
-- ** CreateProduct
, module Network.AWS.ServiceCatalog.CreateProduct
@@ -84,6 +77,9 @@ module Network.AWS.ServiceCatalog
-- ** ListRecordHistory
, module Network.AWS.ServiceCatalog.ListRecordHistory
+ -- ** DescribeProvisionedProductPlan
+ , module Network.AWS.ServiceCatalog.DescribeProvisionedProductPlan
+
-- ** AssociateTagOptionWithResource
, module Network.AWS.ServiceCatalog.AssociateTagOptionWithResource
@@ -93,7 +89,7 @@ module Network.AWS.ServiceCatalog
-- ** DisassociateProductFromPortfolio
, module Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio
- -- ** ListConstraintsForPortfolio
+ -- ** ListConstraintsForPortfolio (Paginated)
, module Network.AWS.ServiceCatalog.ListConstraintsForPortfolio
-- ** DescribeRecord
@@ -105,7 +101,7 @@ module Network.AWS.ServiceCatalog
-- ** CreateProvisioningArtifact
, module Network.AWS.ServiceCatalog.CreateProvisioningArtifact
- -- ** ListPortfolios
+ -- ** ListPortfolios (Paginated)
, module Network.AWS.ServiceCatalog.ListPortfolios
-- ** DescribeProductView
@@ -120,12 +116,21 @@ module Network.AWS.ServiceCatalog
-- ** 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 @@ module Network.AWS.ServiceCatalog
-- ** 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 @@ module Network.AWS.ServiceCatalog
-- ** 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 @@ module Network.AWS.ServiceCatalog
-- ** UpdatePortfolio
, module Network.AWS.ServiceCatalog.UpdatePortfolio
- -- ** ListPortfoliosForProduct
+ -- ** ListPortfoliosForProduct (Paginated)
, module Network.AWS.ServiceCatalog.ListPortfoliosForProduct
-- ** DescribeProductAsAdmin
@@ -213,10 +224,10 @@ module Network.AWS.ServiceCatalog
-- ** 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 @@ module Network.AWS.ServiceCatalog
-- ** AccessLevelFilterKey
, AccessLevelFilterKey (..)
+ -- ** ChangeAction
+ , ChangeAction (..)
+
-- ** CopyOption
, CopyOption (..)
-- ** CopyProductStatus
, CopyProductStatus (..)
+ -- ** EvaluationType
+ , EvaluationType (..)
+
-- ** PrincipalType
, PrincipalType (..)
@@ -245,9 +262,18 @@ module Network.AWS.ServiceCatalog
-- ** ProductViewSortBy
, ProductViewSortBy (..)
+ -- ** ProvisionedProductPlanStatus
+ , ProvisionedProductPlanStatus (..)
+
+ -- ** ProvisionedProductPlanType
+ , ProvisionedProductPlanType (..)
+
-- ** ProvisionedProductStatus
, ProvisionedProductStatus (..)
+ -- ** ProvisionedProductViewFilterBy
+ , ProvisionedProductViewFilterBy (..)
+
-- ** ProvisioningArtifactPropertyName
, ProvisioningArtifactPropertyName (..)
@@ -257,9 +283,18 @@ module Network.AWS.ServiceCatalog
-- ** RecordStatus
, RecordStatus (..)
+ -- ** Replacement
+ , Replacement (..)
+
-- ** RequestStatus
, RequestStatus (..)
+ -- ** RequiresRecreation
+ , RequiresRecreation (..)
+
+ -- ** ResourceAttribute
+ , ResourceAttribute (..)
+
-- ** SortOrder
, SortOrder (..)
@@ -269,6 +304,11 @@ module Network.AWS.ServiceCatalog
, alfValue
, alfKey
+ -- ** CloudWatchDashboard
+ , CloudWatchDashboard
+ , cloudWatchDashboard
+ , cwdName
+
-- ** ConstraintDetail
, ConstraintDetail
, constraintDetail
@@ -354,6 +394,25 @@ module Network.AWS.ServiceCatalog
, 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 @@ module Network.AWS.ServiceCatalog
, 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 @@ module Network.AWS.ServiceCatalog
, ProvisioningArtifactDetail
, provisioningArtifactDetail
, padCreatedTime
+ , padActive
, padName
, padId
, padType
@@ -453,6 +542,24 @@ module Network.AWS.ServiceCatalog
, 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 @@ module Network.AWS.ServiceCatalog
, rId
, rDescription
+ -- ** ResourceTargetDefinition
+ , ResourceTargetDefinition
+ , resourceTargetDefinition
+ , rtdAttribute
+ , rtdRequiresRecreation
+ , rtdName
+
-- ** Tag
, Tag
, tag
@@ -505,13 +619,16 @@ import Network.AWS.ServiceCatalog.CreateConstraint
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.DescribeProduct
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.DescribeTagOption
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.ListPortfolioAccess
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.RejectPortfolioShare
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
diff --git a/gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs b/gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs
index 416a586..61dd49b 100644
--- a/gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs
+++ b/gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs
@@ -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
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 @@ acceptPortfolioShareResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs b/gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs
index 6c9f1f6..8e2e7bf 100644
--- a/gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs
@@ -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 @@ data AssociatePrincipalWithPortfolio = AssociatePrincipalWithPortfolio'
--
-- * '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
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
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
diff --git a/gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs b/gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs
index 385c558..9ccf2cf 100644
--- a/gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs
@@ -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 @@ data AssociateProductWithPortfolio = AssociateProductWithPortfolio'
--
-- 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
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 @@ associateProductWithPortfolioResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs b/gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs
index 032350a..0cfc1a8 100644
--- a/gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs
+++ b/gen/Network/AWS/ServiceCatalog/AssociateTagOptionWithResource.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/ServiceCatalog/CopyProduct.hs b/gen/Network/AWS/ServiceCatalog/CopyProduct.hs
index f23b0df..bd45ab7 100644
--- a/gen/Network/AWS/ServiceCatalog/CopyProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/CopyProduct.hs
@@ -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 @@ data CopyProduct = CopyProduct'
--
-- 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 @@ data CopyProduct = CopyProduct'
--
-- * '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 @@ data CopyProductResponse = CopyProductResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/CreateConstraint.hs b/gen/Network/AWS/ServiceCatalog/CreateConstraint.hs
index 79368e8..1b97edc 100644
--- a/gen/Network/AWS/ServiceCatalog/CreateConstraint.hs
+++ b/gen/Network/AWS/ServiceCatalog/CreateConstraint.hs
@@ -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 @@ data CreateConstraint = CreateConstraint'
--
-- * '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
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 @@ data CreateConstraintResponse = CreateConstraintResponse'
--
-- * '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
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
diff --git a/gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs b/gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs
index f3466df..056d388 100644
--- a/gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs
@@ -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 @@ data CreatePortfolio = CreatePortfolio'
--
-- * '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
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 @@ data CreatePortfolioResponse = CreatePortfolioResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs b/gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs
index 694ae50..5a4dce9 100644
--- a/gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs
+++ b/gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs
@@ -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 @@ data CreatePortfolioShare = CreatePortfolioShare'
--
-- * '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 @@ createPortfolioShareResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/CreateProduct.hs b/gen/Network/AWS/ServiceCatalog/CreateProduct.hs
index 9ab190e..5087672 100644
--- a/gen/Network/AWS/ServiceCatalog/CreateProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/CreateProduct.hs
@@ -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 @@ data CreateProduct = CreateProduct'
--
-- 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
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_
- }
-
-
--- | Contact URL for product support.
+ { _cpSupportURL = Nothing
+ , _cpDistributor = Nothing
+ , _cpAcceptLanguage = Nothing
+ , _cpSupportEmail = Nothing
+ , _cpDescription = Nothing
+ , _cpTags = Nothing
+ , _cpSupportDescription = Nothing
+ , _cpName = pName_
+ , _cpOwner = pOwner_
+ , _cpProductType = pProductType_
+ , _cpProvisioningArtifactParameters = pProvisioningArtifactParameters_
+ , _cpIdempotencyToken = pIdempotencyToken_
+ }
+
+
+-- | 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 @@ data CreateProductResponse = CreateProductResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/CreateProvisionedProductPlan.hs b/gen/Network/AWS/ServiceCatalog/CreateProvisionedProductPlan.hs
new file mode 100644
index 0000000..1a9aa7c
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/CreateProvisionedProductPlan.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs b/gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs
index 11ae38e..3083da5 100644
--- a/gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs
+++ b/gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs
@@ -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 @@ data CreateProvisioningArtifact = CreateProvisioningArtifact'
--
-- * '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
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 @@ data CreateProvisioningArtifactResponse = CreateProvisioningArtifactResponse'
--
-- * '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
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
diff --git a/gen/Network/AWS/ServiceCatalog/CreateTagOption.hs b/gen/Network/AWS/ServiceCatalog/CreateTagOption.hs
index 602f373..8e391cc 100644
--- a/gen/Network/AWS/ServiceCatalog/CreateTagOption.hs
+++ b/gen/Network/AWS/ServiceCatalog/CreateTagOption.hs
@@ -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 @@ createTagOption pKey_ pValue_ =
-- | 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 @@ data CreateTagOptionResponse = CreateTagOptionResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs b/gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs
index b119040..f71c02c 100644
--- a/gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs
+++ b/gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs
@@ -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 @@ data DeleteConstraint = DeleteConstraint'
--
-- * '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 @@ deleteConstraint pId_ =
-- | 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 @@ deleteConstraintResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs b/gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs
index ae90706..e54d157 100644
--- a/gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs
@@ -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 @@ import Network.AWS.ServiceCatalog.Types.Product
-- | /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 @@ data DeletePortfolio = DeletePortfolio'
--
-- 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 @@ instance ToJSON DeletePortfolio where
toJSON DeletePortfolio'{..}
= object
(catMaybes
- [("AcceptLanguage" .=) <$> _dppAcceptLanguage,
- Just ("Id" .= _dppId)])
+ [("AcceptLanguage" .=) <$> _ddAcceptLanguage,
+ Just ("Id" .= _ddId)])
instance ToPath DeletePortfolio where
toPath = const "/"
@@ -128,6 +130,6 @@ deletePortfolioResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs b/gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs
index 81a89df..164b6f4 100644
--- a/gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs
+++ b/gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs
@@ -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 @@ data DeletePortfolioShare = DeletePortfolioShare'
--
-- * '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 @@ deletePortfolioShareResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/DeleteProduct.hs b/gen/Network/AWS/ServiceCatalog/DeleteProduct.hs
index 3f50955..f86c598 100644
--- a/gen/Network/AWS/ServiceCatalog/DeleteProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/DeleteProduct.hs
@@ -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 @@ import Network.AWS.ServiceCatalog.Types.Product
-- | /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 @@ data DeleteProduct = DeleteProduct'
--
-- 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 @@ instance ToJSON DeleteProduct where
toJSON DeleteProduct'{..}
= object
(catMaybes
- [("AcceptLanguage" .=) <$> _delAcceptLanguage,
- Just ("Id" .= _delId)])
+ [("AcceptLanguage" .=) <$> _dppAcceptLanguage,
+ Just ("Id" .= _dppId)])
instance ToPath DeleteProduct where
toPath = const "/"
@@ -128,6 +130,6 @@ deleteProductResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/DeleteProvisionedProductPlan.hs b/gen/Network/AWS/ServiceCatalog/DeleteProvisionedProductPlan.hs
new file mode 100644
index 0000000..e0e01a5
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/DeleteProvisionedProductPlan.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs b/gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs
index 9821d77..8b9dbff 100644
--- a/gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs
+++ b/gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs
@@ -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 @@ data DeleteProvisioningArtifact = DeleteProvisioningArtifact'
--
-- * '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 @@ deleteProvisioningArtifactResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/DeleteTagOption.hs b/gen/Network/AWS/ServiceCatalog/DeleteTagOption.hs
new file mode 100644
index 0000000..fe42add
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/DeleteTagOption.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs b/gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs
index 9c2ef8f..05cefa8 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs
@@ -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 @@ describeConstraint pId_ =
-- | 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 @@ data DescribeConstraintResponse = DescribeConstraintResponse'
--
-- * '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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs b/gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs
index 843c68f..d734666 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeCopyProductStatus.hs
@@ -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 @@ data DescribeCopyProductStatus = DescribeCopyProductStatus'
--
-- * '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 @@ data DescribeCopyProductStatusResponse = DescribeCopyProductStatusResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs b/gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs
index a630ddd..edf4f7b 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs
@@ -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 @@ data DescribePortfolio = DescribePortfolio'
--
-- * '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 @@ describePortfolio pId_ =
-- | 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 @@ data DescribePortfolioResponse = DescribePortfolioResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProduct.hs b/gen/Network/AWS/ServiceCatalog/DescribeProduct.hs
index db6c03a..8f53116 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProduct.hs
@@ -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 @@ data DescribeProduct = DescribeProduct'
--
-- * '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 @@ describeProduct pId_ =
-- | 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 @@ data DescribeProductResponse = DescribeProductResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs b/gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs
index 35cc85c..1e58676 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs
@@ -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 @@ data DescribeProductAsAdmin = DescribeProductAsAdmin'
--
-- * '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 @@ describeProductAsAdmin pId_ =
-- | 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 @@ data DescribeProductAsAdminResponse = DescribeProductAsAdminResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProductView.hs b/gen/Network/AWS/ServiceCatalog/DescribeProductView.hs
index 5c522f7..49cdaa8 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeProductView.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProductView.hs
@@ -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 @@ data DescribeProductView = DescribeProductView'
--
-- * '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 @@ describeProductView pId_ =
-- | 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 @@ data DescribeProductViewResponse = DescribeProductViewResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs b/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs
index 0a35615..3734862 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProduct.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.DescribeProvisionedProduct
describeProvisionedProduct
, DescribeProvisionedProduct
-- * Request Lenses
- , dpppAcceptLanguage
- , dpppId
+ , deseAcceptLanguage
+ , deseId
-- * Destructuring the Response
, describeProvisionedProductResponse
, DescribeProvisionedProductResponse
-- * Response Lenses
, drsProvisionedProductDetail
+ , drsCloudWatchDashboards
, drsResponseStatus
) where
@@ -47,8 +48,8 @@ import Network.AWS.ServiceCatalog.Types.Product
-- | /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 @@ data DescribeProvisionedProduct = DescribeProvisionedProduct'
--
-- 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 @@ instance AWSRequest DescribeProvisionedProduct where
(\ s h x ->
DescribeProvisionedProductResponse' <$>
(x .?> "ProvisionedProductDetail") <*>
- (pure (fromEnum s)))
+ (x .?> "CloudWatchDashboards" .!@ mempty)
+ <*> (pure (fromEnum s)))
instance Hashable DescribeProvisionedProduct where
@@ -103,8 +105,8 @@ instance ToJSON DescribeProvisionedProduct where
toJSON DescribeProvisionedProduct'{..}
= object
(catMaybes
- [("AcceptLanguage" .=) <$> _dpppAcceptLanguage,
- Just ("Id" .= _dpppId)])
+ [("AcceptLanguage" .=) <$> _deseAcceptLanguage,
+ Just ("Id" .= _deseId)])
instance ToPath DescribeProvisionedProduct where
toPath = const "/"
@@ -115,6 +117,7 @@ instance ToQuery DescribeProvisionedProduct where
-- | /See:/ 'describeProvisionedProductResponse' smart constructor.
data DescribeProvisionedProductResponse = DescribeProvisionedProductResponse'
{ _drsProvisionedProductDetail :: !(Maybe ProvisionedProductDetail)
+ , _drsCloudWatchDashboards :: !(Maybe [CloudWatchDashboard])
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -123,7 +126,9 @@ data DescribeProvisionedProductResponse = DescribeProvisionedProductResponse'
--
-- 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
@@ -131,18 +136,23 @@ describeProvisionedProductResponse
-> 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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProductPlan.hs b/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProductPlan.hs
new file mode 100644
index 0000000..ad8ff28
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProvisionedProductPlan.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs b/gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs
index 1745b99..d93370b 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs
@@ -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 @@ data DescribeProvisioningArtifact = DescribeProvisioningArtifact'
--
-- 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
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 @@ data DescribeProvisioningArtifactResponse = DescribeProvisioningArtifactResponse
--
-- * '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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs b/gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs
index bba9600..399b814 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs
@@ -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 @@ data DescribeProvisioningParameters = DescribeProvisioningParameters'
--
-- * '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 @@ data DescribeProvisioningParametersResponse = DescribeProvisioningParametersResp
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeRecord.hs b/gen/Network/AWS/ServiceCatalog/DescribeRecord.hs
index ec0d742..9d35c85 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeRecord.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeRecord.hs
@@ -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 @@ data DescribeRecord = DescribeRecord'
--
-- * '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 @@ data DescribeRecordResponse = DescribeRecordResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs b/gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs
index 3d1df45..a33a4cc 100644
--- a/gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs
+++ b/gen/Network/AWS/ServiceCatalog/DescribeTagOption.hs
@@ -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 @@ newtype DescribeTagOption = DescribeTagOption'
--
-- 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 @@ data DescribeTagOptionResponse = DescribeTagOptionResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs b/gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs
index 66a8a7d..499909b 100644
--- a/gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs
@@ -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 @@ data DisassociatePrincipalFromPortfolio = DisassociatePrincipalFromPortfolio'
--
-- * '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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs b/gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs
index 4ea39aa..dad81c9 100644
--- a/gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs b/gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs
index 39136e1..05afff7 100644
--- a/gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs
+++ b/gen/Network/AWS/ServiceCatalog/DisassociateTagOptionFromResource.hs
@@ -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 @@ data DisassociateTagOptionFromResource = DisassociateTagOptionFromResource'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ExecuteProvisionedProductPlan.hs b/gen/Network/AWS/ServiceCatalog/ExecuteProvisionedProductPlan.hs
new file mode 100644
index 0000000..a3e35c9
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/ExecuteProvisionedProductPlan.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs b/gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs
index c6eb5bc..6242545 100644
--- a/gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares
) where
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -61,30 +64,38 @@ data ListAcceptedPortfolioShares = ListAcceptedPortfolioShares'
--
-- * '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 =
@@ -138,9 +149,9 @@ data ListAcceptedPortfolioSharesResponse = ListAcceptedPortfolioSharesResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs b/gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs
index 4955919..4654bfa 100644
--- a/gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListConstraintsForPortfolio
) 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 @@ data ListConstraintsForPortfolio = ListConstraintsForPortfolio'
--
-- * '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,33 +80,41 @@ listConstraintsForPortfolio
-> 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 =
@@ -159,9 +170,9 @@ data ListConstraintsForPortfolioResponse = ListConstraintsForPortfolioResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs b/gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs
index a43a679..41eb0c7 100644
--- a/gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListLaunchPaths
) where
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -63,38 +66,45 @@ data ListLaunchPaths = ListLaunchPaths'
--
-- * '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
@@ -148,9 +158,9 @@ data ListLaunchPathsResponse = ListLaunchPathsResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs b/gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs
index 26cbd08..8f29949 100644
--- a/gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs
@@ -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
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 @@ data ListPortfolioAccessResponse = ListPortfolioAccessResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListPortfolios.hs b/gen/Network/AWS/ServiceCatalog/ListPortfolios.hs
index e885ba8..ba13772 100644
--- a/gen/Network/AWS/ServiceCatalog/ListPortfolios.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListPortfolios.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListPortfolios
) where
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -61,27 +64,34 @@ data ListPortfolios = ListPortfolios'
--
-- * '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
@@ -134,9 +144,9 @@ data ListPortfoliosResponse = ListPortfoliosResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs b/gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs
index 2309060..672f353 100644
--- a/gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListPortfoliosForProduct
) 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 @@ data ListPortfoliosForProduct = ListPortfoliosForProduct'
--
-- * '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,28 +76,35 @@ listPortfoliosForProduct
-> 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 =
@@ -149,9 +159,9 @@ data ListPortfoliosForProductResponse = ListPortfoliosForProductResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs b/gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs
index fffa4f0..2a3ba09 100644
--- a/gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio
) 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 @@ data ListPrincipalsForPortfolio = ListPrincipalsForPortfolio'
--
-- * '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,28 +76,35 @@ listPrincipalsForPortfolio
-> 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 =
@@ -149,7 +159,7 @@ data ListPrincipalsForPortfolioResponse = ListPrincipalsForPortfolioResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListProvisionedProductPlans.hs b/gen/Network/AWS/ServiceCatalog/ListProvisionedProductPlans.hs
new file mode 100644
index 0000000..7882a1f
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/ListProvisionedProductPlans.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs b/gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs
index 062ef60..72c3fdb 100644
--- a/gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs
@@ -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
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 @@ data ListProvisioningArtifactsResponse = ListProvisioningArtifactsResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs b/gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs
index bd1215c..1dbf51d 100644
--- a/gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs
@@ -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 @@ data ListRecordHistory = ListRecordHistory'
--
-- 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 @@ data ListRecordHistoryResponse = ListRecordHistoryResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs b/gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs
index 2825864..74bdd41 100644
--- a/gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListResourcesForTagOption.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListResourcesForTagOption
) where
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -61,40 +64,47 @@ data ListResourcesForTagOption = ListResourcesForTagOption'
--
-- 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 =
@@ -149,9 +159,9 @@ data ListResourcesForTagOptionResponse = ListResourcesForTagOptionResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ListTagOptions.hs b/gen/Network/AWS/ServiceCatalog/ListTagOptions.hs
index f1bc77a..46bb347 100644
--- a/gen/Network/AWS/ServiceCatalog/ListTagOptions.hs
+++ b/gen/Network/AWS/ServiceCatalog/ListTagOptions.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.ListTagOptions
) where
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -59,29 +62,36 @@ data ListTagOptions = ListTagOptions'
--
-- 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
@@ -134,9 +144,9 @@ data ListTagOptionsResponse = ListTagOptionsResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs b/gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs
index 2fe3d24..c0a7b56 100644
--- a/gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs
@@ -12,16 +12,18 @@
-- |
-- 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
(
@@ -76,17 +78,17 @@ data ProvisionProduct = ProvisionProduct'
--
-- * '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
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 @@ data ProvisionProductResponse = ProvisionProductResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs b/gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs
index b1430b5..df231cc 100644
--- a/gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs
+++ b/gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs
@@ -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
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 @@ rejectPortfolioShareResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs b/gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs
index 60f6130..cd97114 100644
--- a/gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs
+++ b/gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs
@@ -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 @@ import Network.AWS.ServiceCatalog.Types.Product
-- | /See:/ 'scanProvisionedProducts' smart constructor.
data ScanProvisionedProducts = ScanProvisionedProducts'
- { _sppAcceptLanguage :: !(Maybe Text)
- , _sppAccessLevelFilter :: !(Maybe AccessLevelFilter)
- , _sppPageToken :: !(Maybe Text)
- , _sppPageSize :: !(Maybe Nat)
+ { _sAcceptLanguage :: !(Maybe Text)
+ , _sAccessLevelFilter :: !(Maybe AccessLevelFilter)
+ , _sPageToken :: !(Maybe Text)
+ , _sPageSize :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -61,39 +63,39 @@ data ScanProvisionedProducts = ScanProvisionedProducts'
--
-- 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 @@ instance ToJSON ScanProvisionedProducts where
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 @@ data ScanProvisionedProductsResponse = ScanProvisionedProductsResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/SearchProducts.hs b/gen/Network/AWS/ServiceCatalog/SearchProducts.hs
index c712811..ac91952 100644
--- a/gen/Network/AWS/ServiceCatalog/SearchProducts.hs
+++ b/gen/Network/AWS/ServiceCatalog/SearchProducts.hs
@@ -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 @@ data SearchProducts = SearchProducts'
--
-- 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 @@ data SearchProductsResponse = SearchProductsResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs b/gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs
index a8f7c42..38c47ed 100644
--- a/gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs
+++ b/gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.SearchProductsAsAdmin
) where
import Network.AWS.Lens
+import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
@@ -71,65 +74,73 @@ data SearchProductsAsAdmin = SearchProductsAsAdmin'
--
-- * '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 =
@@ -188,9 +199,9 @@ data SearchProductsAsAdminResponse = SearchProductsAsAdminResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/SearchProvisionedProducts.hs b/gen/Network/AWS/ServiceCatalog/SearchProvisionedProducts.hs
new file mode 100644
index 0000000..c272769
--- /dev/null
+++ b/gen/Network/AWS/ServiceCatalog/SearchProvisionedProducts.hs
@@ -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
diff --git a/gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs b/gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs
index 8f9537f..bd50ba9 100644
--- a/gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs
@@ -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 @@ data TerminateProvisionedProduct = TerminateProvisionedProduct'
--
-- 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 @@ data TerminateProvisionedProductResponse = TerminateProvisionedProductResponse'
--
-- 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
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
diff --git a/gen/Network/AWS/ServiceCatalog/Types.hs b/gen/Network/AWS/ServiceCatalog/Types.hs
index cba7aed..f9b0761 100644
--- a/gen/Network/AWS/ServiceCatalog/Types.hs
+++ b/gen/Network/AWS/ServiceCatalog/Types.hs
@@ -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 @@ module Network.AWS.ServiceCatalog.Types
-- * AccessLevelFilterKey
, AccessLevelFilterKey (..)
+ -- * ChangeAction
+ , ChangeAction (..)
+
-- * CopyOption
, CopyOption (..)
-- * CopyProductStatus
, CopyProductStatus (..)
+ -- * EvaluationType
+ , EvaluationType (..)
+
-- * PrincipalType
, PrincipalType (..)
@@ -48,9 +54,18 @@ module Network.AWS.ServiceCatalog.Types
-- * ProductViewSortBy
, ProductViewSortBy (..)
+ -- * ProvisionedProductPlanStatus
+ , ProvisionedProductPlanStatus (..)
+
+ -- * ProvisionedProductPlanType
+ , ProvisionedProductPlanType (..)
+
-- * ProvisionedProductStatus
, ProvisionedProductStatus (..)
+ -- * ProvisionedProductViewFilterBy
+ , ProvisionedProductViewFilterBy (..)
+
-- * ProvisioningArtifactPropertyName
, ProvisioningArtifactPropertyName (..)
@@ -60,9 +75,18 @@ module Network.AWS.ServiceCatalog.Types
-- * RecordStatus
, RecordStatus (..)
+ -- * Replacement
+ , Replacement (..)
+
-- * RequestStatus
, RequestStatus (..)
+ -- * RequiresRecreation
+ , RequiresRecreation (..)
+
+ -- * ResourceAttribute
+ , ResourceAttribute (..)
+
-- * SortOrder
, SortOrder (..)
@@ -72,6 +96,11 @@ module Network.AWS.ServiceCatalog.Types
, alfValue
, alfKey
+ -- * CloudWatchDashboard
+ , CloudWatchDashboard
+ , cloudWatchDashboard
+ , cwdName
+
-- * ConstraintDetail
, ConstraintDetail
, constraintDetail
@@ -157,6 +186,25 @@ module Network.AWS.ServiceCatalog.Types
, 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 @@ module Network.AWS.ServiceCatalog.Types
, 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 @@ module Network.AWS.ServiceCatalog.Types
, ProvisioningArtifactDetail
, provisioningArtifactDetail
, padCreatedTime
+ , padActive
, padName
, padId
, padType
@@ -256,6 +334,24 @@ module Network.AWS.ServiceCatalog.Types
, 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 @@ module Network.AWS.ServiceCatalog.Types
, rId
, rDescription
+ -- * ResourceTargetDefinition
+ , ResourceTargetDefinition
+ , resourceTargetDefinition
+ , rtdAttribute
+ , rtdRequiresRecreation
+ , rtdName
+
-- * Tag
, Tag
, tag
@@ -309,24 +412,24 @@ import Network.AWS.Sign.V4
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 @@ serviceCatalog =
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 @@ serviceCatalog =
| 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 @@ _ResourceNotFoundException =
_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 @@ _InvalidStateException =
_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 @@ _LimitExceededException =
_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
diff --git a/gen/Network/AWS/ServiceCatalog/Types/Product.hs b/gen/Network/AWS/ServiceCatalog/Types/Product.hs
index ba36a1f..bbe57a1 100644
--- a/gen/Network/AWS/ServiceCatalog/Types/Product.hs
+++ b/gen/Network/AWS/ServiceCatalog/Types/Product.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.ServiceCatalog.Types.Product
--- 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 @@ import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.ServiceCatalog.Types.Sum
--- | The access level to limit results.
+-- | The access level to use to filter results.
--
--
--
@@ -36,21 +36,21 @@ data AccessLevelFilter = AccessLevelFilter'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'alfValue' - Specifies the user to which the access level applies. A value of @Self@ is currently supported.
+-- * 'alfValue' - The user to which the access level applies. The only supported value is @Self@ .
--
--- * 'alfKey' - Specifies the access level. @Account@ allows results at the account level. @Role@ allows results based on the federated role of the specified user. @User@ allows results limited to the specified user.
+-- * 'alfKey' - The access level. * @Account@ - Filter results based on the account. * @Role@ - Filter results based on the federated role of the specified user. * @User@ - Filter results based on the specified user.
accessLevelFilter
:: AccessLevelFilter
accessLevelFilter = AccessLevelFilter' {_alfValue = Nothing, _alfKey = Nothing}
--- | Specifies the user to which the access level applies. A value of @Self@ is currently supported.
+-- | The user to which the access level applies. The only supported value is @Self@ .
alfValue :: Lens' AccessLevelFilter (Maybe Text)
-alfValue = lens _alfValue (\ s a -> s{_alfValue = a});
+alfValue = lens _alfValue (\ s a -> s{_alfValue = a})
--- | Specifies the access level. @Account@ allows results at the account level. @Role@ allows results based on the federated role of the specified user. @User@ allows results limited to the specified user.
+-- | The access level. * @Account@ - Filter results based on the account. * @Role@ - Filter results based on the federated role of the specified user. * @User@ - Filter results based on the specified user.
alfKey :: Lens' AccessLevelFilter (Maybe AccessLevelFilterKey)
-alfKey = lens _alfKey (\ s a -> s{_alfKey = a});
+alfKey = lens _alfKey (\ s a -> s{_alfKey = a})
instance Hashable AccessLevelFilter where
@@ -62,7 +62,40 @@ instance ToJSON AccessLevelFilter where
(catMaybes
[("Value" .=) <$> _alfValue, ("Key" .=) <$> _alfKey])
--- | Detailed constraint information.
+-- | Information about a CloudWatch dashboard.
+--
+--
+--
+-- /See:/ 'cloudWatchDashboard' smart constructor.
+newtype CloudWatchDashboard = CloudWatchDashboard'
+ { _cwdName :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CloudWatchDashboard' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'cwdName' - The name of the CloudWatch dashboard.
+cloudWatchDashboard
+ :: CloudWatchDashboard
+cloudWatchDashboard = CloudWatchDashboard' {_cwdName = Nothing}
+
+
+-- | The name of the CloudWatch dashboard.
+cwdName :: Lens' CloudWatchDashboard (Maybe Text)
+cwdName = lens _cwdName (\ s a -> s{_cwdName = a})
+
+instance FromJSON CloudWatchDashboard where
+ parseJSON
+ = withObject "CloudWatchDashboard"
+ (\ x -> CloudWatchDashboard' <$> (x .:? "Name"))
+
+instance Hashable CloudWatchDashboard where
+
+instance NFData CloudWatchDashboard where
+
+-- | Information about a constraint.
--
--
--
@@ -83,35 +116,35 @@ data ConstraintDetail = ConstraintDetail'
--
-- * 'cdOwner' - The owner of the constraint.
--
--- * 'cdType' - The type of the constraint.
+-- * 'cdType' - The type of constraint. * @LAUNCH@ * @NOTIFICATION@ * @TEMPLATE@
--
--- * 'cdDescription' - The text description of the constraint.
+-- * 'cdDescription' - The description of the constraint.
constraintDetail
:: ConstraintDetail
constraintDetail =
ConstraintDetail'
- { _cdConstraintId = Nothing
- , _cdOwner = Nothing
- , _cdType = Nothing
- , _cdDescription = Nothing
- }
+ { _cdConstraintId = Nothing
+ , _cdOwner = Nothing
+ , _cdType = Nothing
+ , _cdDescription = Nothing
+ }
-- | The identifier of the constraint.
cdConstraintId :: Lens' ConstraintDetail (Maybe Text)
-cdConstraintId = lens _cdConstraintId (\ s a -> s{_cdConstraintId = a});
+cdConstraintId = lens _cdConstraintId (\ s a -> s{_cdConstraintId = a})
-- | The owner of the constraint.
cdOwner :: Lens' ConstraintDetail (Maybe Text)
-cdOwner = lens _cdOwner (\ s a -> s{_cdOwner = a});
+cdOwner = lens _cdOwner (\ s a -> s{_cdOwner = a})
--- | The type of the constraint.
+-- | The type of constraint. * @LAUNCH@ * @NOTIFICATION@ * @TEMPLATE@
cdType :: Lens' ConstraintDetail (Maybe Text)
-cdType = lens _cdType (\ s a -> s{_cdType = a});
+cdType = lens _cdType (\ s a -> s{_cdType = a})
--- | The text description of the constraint.
+-- | The description of the constraint.
cdDescription :: Lens' ConstraintDetail (Maybe Text)
-cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a});
+cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a})
instance FromJSON ConstraintDetail where
parseJSON
@@ -126,7 +159,7 @@ instance Hashable ConstraintDetail where
instance NFData ConstraintDetail where
--- | An administrator-specified constraint to apply when provisioning a product.
+-- | Summary information about a constraint.
--
--
--
@@ -141,22 +174,22 @@ data ConstraintSummary = ConstraintSummary'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'csType' - The type of the constraint.
+-- * 'csType' - The type of constraint. * @LAUNCH@ * @NOTIFICATION@ * @TEMPLATE@
--
--- * 'csDescription' - The text description of the constraint.
+-- * 'csDescription' - The description of the constraint.
constraintSummary
:: ConstraintSummary
constraintSummary =
ConstraintSummary' {_csType = Nothing, _csDescription = Nothing}
--- | The type of the constraint.
+-- | The type of constraint. * @LAUNCH@ * @NOTIFICATION@ * @TEMPLATE@
csType :: Lens' ConstraintSummary (Maybe Text)
-csType = lens _csType (\ s a -> s{_csType = a});
+csType = lens _csType (\ s a -> s{_csType = a})
--- | The text description of the constraint.
+-- | The description of the constraint.
csDescription :: Lens' ConstraintSummary (Maybe Text)
-csDescription = lens _csDescription (\ s a -> s{_csDescription = a});
+csDescription = lens _csDescription (\ s a -> s{_csDescription = a})
instance FromJSON ConstraintSummary where
parseJSON
@@ -169,7 +202,7 @@ instance Hashable ConstraintSummary where
instance NFData ConstraintSummary where
--- | Summary information about a path for a user to have access to a specified product.
+-- | Summary information about a product path for a user.
--
--
--
@@ -186,39 +219,39 @@ data LaunchPathSummary = LaunchPathSummary'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'lpsConstraintSummaries' - List of constraints on the portfolio-product relationship.
+-- * 'lpsConstraintSummaries' - The constraints on the portfolio-product relationship.
--
--- * 'lpsName' - Corresponds to the name of the portfolio to which the user was assigned.
+-- * 'lpsName' - The name of the portfolio to which the user was assigned.
--
--- * 'lpsId' - The unique identifier of the product path.
+-- * 'lpsId' - The identifier of the product path.
--
--- * 'lpsTags' - List of tags used by this launch path.
+-- * 'lpsTags' - The tags associated with this product path.
launchPathSummary
:: LaunchPathSummary
launchPathSummary =
LaunchPathSummary'
- { _lpsConstraintSummaries = Nothing
- , _lpsName = Nothing
- , _lpsId = Nothing
- , _lpsTags = Nothing
- }
+ { _lpsConstraintSummaries = Nothing
+ , _lpsName = Nothing
+ , _lpsId = Nothing
+ , _lpsTags = Nothing
+ }
--- | List of constraints on the portfolio-product relationship.
+-- | The constraints on the portfolio-product relationship.
lpsConstraintSummaries :: Lens' LaunchPathSummary [ConstraintSummary]
-lpsConstraintSummaries = lens _lpsConstraintSummaries (\ s a -> s{_lpsConstraintSummaries = a}) . _Default . _Coerce;
+lpsConstraintSummaries = lens _lpsConstraintSummaries (\ s a -> s{_lpsConstraintSummaries = a}) . _Default . _Coerce
--- | Corresponds to the name of the portfolio to which the user was assigned.
+-- | The name of the portfolio to which the user was assigned.
lpsName :: Lens' LaunchPathSummary (Maybe Text)
-lpsName = lens _lpsName (\ s a -> s{_lpsName = a});
+lpsName = lens _lpsName (\ s a -> s{_lpsName = a})
--- | The unique identifier of the product path.
+-- | The identifier of the product path.
lpsId :: Lens' LaunchPathSummary (Maybe Text)
-lpsId = lens _lpsId (\ s a -> s{_lpsId = a});
+lpsId = lens _lpsId (\ s a -> s{_lpsId = a})
--- | List of tags used by this launch path.
+-- | The tags associated with this product path.
lpsTags :: Lens' LaunchPathSummary [Tag]
-lpsTags = lens _lpsTags (\ s a -> s{_lpsTags = a}) . _Default . _Coerce;
+lpsTags = lens _lpsTags (\ s a -> s{_lpsTags = a}) . _Default . _Coerce
instance FromJSON LaunchPathSummary where
parseJSON
@@ -234,7 +267,7 @@ instance Hashable LaunchPathSummary where
instance NFData LaunchPathSummary where
--- | The search filter to limit results when listing request history records.
+-- | The search filter to use when listing history records.
--
--
--
@@ -249,22 +282,22 @@ data ListRecordHistorySearchFilter = ListRecordHistorySearchFilter'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'lrhsfValue' - The filter value for @Key@ .
+-- * 'lrhsfValue' - The filter value.
--
--- * 'lrhsfKey' - The filter key.
+-- * 'lrhsfKey' - The filter key. * @product@ - Filter results based on the specified product identifier. * @provisionedproduct@ - Filter results based on the provisioned product identifier.
listRecordHistorySearchFilter
:: ListRecordHistorySearchFilter
listRecordHistorySearchFilter =
ListRecordHistorySearchFilter' {_lrhsfValue = Nothing, _lrhsfKey = Nothing}
--- | The filter value for @Key@ .
+-- | The filter value.
lrhsfValue :: Lens' ListRecordHistorySearchFilter (Maybe Text)
-lrhsfValue = lens _lrhsfValue (\ s a -> s{_lrhsfValue = a});
+lrhsfValue = lens _lrhsfValue (\ s a -> s{_lrhsfValue = a})
--- | The filter key.
+-- | The filter key. * @product@ - Filter results based on the specified product identifier. * @provisionedproduct@ - Filter results based on the provisioned product identifier.
lrhsfKey :: Lens' ListRecordHistorySearchFilter (Maybe Text)
-lrhsfKey = lens _lrhsfKey (\ s a -> s{_lrhsfKey = a});
+lrhsfKey = lens _lrhsfKey (\ s a -> s{_lrhsfKey = a})
instance Hashable ListRecordHistorySearchFilter where
@@ -277,7 +310,7 @@ instance ToJSON ListRecordHistorySearchFilter where
[("Value" .=) <$> _lrhsfValue,
("Key" .=) <$> _lrhsfKey])
--- | The ListTagOptions filters.
+-- | Filters to use when listing TagOptions.
--
--
--
@@ -293,29 +326,29 @@ data ListTagOptionsFilters = ListTagOptionsFilters'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'ltofValue' - The ListTagOptionsFilters value.
+-- * 'ltofValue' - The TagOption value.
--
--- * 'ltofActive' - The ListTagOptionsFilters active state.
+-- * 'ltofActive' - The active state.
--
--- * 'ltofKey' - The ListTagOptionsFilters key.
+-- * 'ltofKey' - The TagOption key.
listTagOptionsFilters
:: ListTagOptionsFilters
listTagOptionsFilters =
ListTagOptionsFilters'
- {_ltofValue = Nothing, _ltofActive = Nothing, _ltofKey = Nothing}
+ {_ltofValue = Nothing, _ltofActive = Nothing, _ltofKey = Nothing}
--- | The ListTagOptionsFilters value.
+-- | The TagOption value.
ltofValue :: Lens' ListTagOptionsFilters (Maybe Text)
-ltofValue = lens _ltofValue (\ s a -> s{_ltofValue = a});
+ltofValue = lens _ltofValue (\ s a -> s{_ltofValue = a})
--- | The ListTagOptionsFilters active state.
+-- | The active state.
ltofActive :: Lens' ListTagOptionsFilters (Maybe Bool)
-ltofActive = lens _ltofActive (\ s a -> s{_ltofActive = a});
+ltofActive = lens _ltofActive (\ s a -> s{_ltofActive = a})
--- | The ListTagOptionsFilters key.
+-- | The TagOption key.
ltofKey :: Lens' ListTagOptionsFilters (Maybe Text)
-ltofKey = lens _ltofKey (\ s a -> s{_ltofKey = a});
+ltofKey = lens _ltofKey (\ s a -> s{_ltofKey = a})
instance Hashable ListTagOptionsFilters where
@@ -351,7 +384,7 @@ parameterConstraints = ParameterConstraints' {_pcAllowedValues = Nothing}
-- | The values that the administrator has allowed for the parameter.
pcAllowedValues :: Lens' ParameterConstraints [Text]
-pcAllowedValues = lens _pcAllowedValues (\ s a -> s{_pcAllowedValues = a}) . _Default . _Coerce;
+pcAllowedValues = lens _pcAllowedValues (\ s a -> s{_pcAllowedValues = a}) . _Default . _Coerce
instance FromJSON ParameterConstraints where
parseJSON
@@ -364,7 +397,7 @@ instance Hashable ParameterConstraints where
instance NFData ParameterConstraints where
--- | Detailed portfolio information.
+-- | Information about a portfolio.
--
--
--
@@ -385,51 +418,51 @@ data PortfolioDetail = PortfolioDetail'
--
-- * 'pdARN' - The ARN assigned to the portfolio.
--
--- * 'pdCreatedTime' - The UTC timestamp of the creation time.
+-- * 'pdCreatedTime' - The UTC time stamp of the creation time.
--
--- * 'pdId' - The identifier for the portfolio.
+-- * 'pdId' - The portfolio identifier.
--
-- * 'pdDisplayName' - The name to use for display purposes.
--
--- * 'pdDescription' - The text description of the portfolio.
+-- * 'pdDescription' - The description of the portfolio.
--
-- * 'pdProviderName' - The name of the portfolio provider.
portfolioDetail
:: PortfolioDetail
portfolioDetail =
PortfolioDetail'
- { _pdARN = Nothing
- , _pdCreatedTime = Nothing
- , _pdId = Nothing
- , _pdDisplayName = Nothing
- , _pdDescription = Nothing
- , _pdProviderName = Nothing
- }
+ { _pdARN = Nothing
+ , _pdCreatedTime = Nothing
+ , _pdId = Nothing
+ , _pdDisplayName = Nothing
+ , _pdDescription = Nothing
+ , _pdProviderName = Nothing
+ }
-- | The ARN assigned to the portfolio.
pdARN :: Lens' PortfolioDetail (Maybe Text)
-pdARN = lens _pdARN (\ s a -> s{_pdARN = a});
+pdARN = lens _pdARN (\ s a -> s{_pdARN = a})
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
pdCreatedTime :: Lens' PortfolioDetail (Maybe UTCTime)
-pdCreatedTime = lens _pdCreatedTime (\ s a -> s{_pdCreatedTime = a}) . mapping _Time;
+pdCreatedTime = lens _pdCreatedTime (\ s a -> s{_pdCreatedTime = a}) . mapping _Time
--- | The identifier for the portfolio.
+-- | The portfolio identifier.
pdId :: Lens' PortfolioDetail (Maybe Text)
-pdId = lens _pdId (\ s a -> s{_pdId = a});
+pdId = lens _pdId (\ s a -> s{_pdId = a})
-- | The name to use for display purposes.
pdDisplayName :: Lens' PortfolioDetail (Maybe Text)
-pdDisplayName = lens _pdDisplayName (\ s a -> s{_pdDisplayName = a});
+pdDisplayName = lens _pdDisplayName (\ s a -> s{_pdDisplayName = a})
--- | The text description of the portfolio.
+-- | The description of the portfolio.
pdDescription :: Lens' PortfolioDetail (Maybe Text)
-pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a});
+pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a})
-- | The name of the portfolio provider.
pdProviderName :: Lens' PortfolioDetail (Maybe Text)
-pdProviderName = lens _pdProviderName (\ s a -> s{_pdProviderName = a});
+pdProviderName = lens _pdProviderName (\ s a -> s{_pdProviderName = a})
instance FromJSON PortfolioDetail where
parseJSON
@@ -446,7 +479,7 @@ instance Hashable PortfolioDetail where
instance NFData PortfolioDetail where
--- | A principal's ARN and type.
+-- | Information about a principal.
--
--
--
@@ -461,21 +494,21 @@ data Principal = Principal'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'pPrincipalType' - The principal type. Must be @IAM@
+-- * 'pPrincipalType' - The principal type. The supported value is @IAM@ .
--
--- * 'pPrincipalARN' - The ARN representing the principal (IAM user, role, or group).
+-- * 'pPrincipalARN' - The ARN of the principal (IAM user, role, or group).
principal
:: Principal
principal = Principal' {_pPrincipalType = Nothing, _pPrincipalARN = Nothing}
--- | The principal type. Must be @IAM@
+-- | The principal type. The supported value is @IAM@ .
pPrincipalType :: Lens' Principal (Maybe PrincipalType)
-pPrincipalType = lens _pPrincipalType (\ s a -> s{_pPrincipalType = a});
+pPrincipalType = lens _pPrincipalType (\ s a -> s{_pPrincipalType = a})
--- | The ARN representing the principal (IAM user, role, or group).
+-- | The ARN of the principal (IAM user, role, or group).
pPrincipalARN :: Lens' Principal (Maybe Text)
-pPrincipalARN = lens _pPrincipalARN (\ s a -> s{_pPrincipalARN = a});
+pPrincipalARN = lens _pPrincipalARN (\ s a -> s{_pPrincipalARN = a})
instance FromJSON Principal where
parseJSON
@@ -510,16 +543,16 @@ productViewAggregationValue
:: ProductViewAggregationValue
productViewAggregationValue =
ProductViewAggregationValue'
- {_pvavValue = Nothing, _pvavApproximateCount = Nothing}
+ {_pvavValue = Nothing, _pvavApproximateCount = Nothing}
-- | The value of the product view aggregation.
pvavValue :: Lens' ProductViewAggregationValue (Maybe Text)
-pvavValue = lens _pvavValue (\ s a -> s{_pvavValue = a});
+pvavValue = lens _pvavValue (\ s a -> s{_pvavValue = a})
-- | An approximate count of the products that match the value.
pvavApproximateCount :: Lens' ProductViewAggregationValue (Maybe Int)
-pvavApproximateCount = lens _pvavApproximateCount (\ s a -> s{_pvavApproximateCount = a});
+pvavApproximateCount = lens _pvavApproximateCount (\ s a -> s{_pvavApproximateCount = a})
instance FromJSON ProductViewAggregationValue where
parseJSON
@@ -532,7 +565,7 @@ instance Hashable ProductViewAggregationValue where
instance NFData ProductViewAggregationValue where
--- | Detailed product view information.
+-- | Information about a product view.
--
--
--
@@ -549,39 +582,39 @@ data ProductViewDetail = ProductViewDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'pvdStatus' - Current status of the product. @AVAILABLE@ - Product is available for use. @CREATING@ - Creation of product started, not ready for use. @FAILED@ - Action on product failed.
+-- * 'pvdStatus' - The status of the product. * @AVAILABLE@ - The product is ready for use. * @CREATING@ - Product creation has started; the product is not ready for use. * @FAILED@ - An action failed.
--
--- * 'pvdProductViewSummary' - The summary metadata about the specified product view.
+-- * 'pvdProductViewSummary' - Summary information about the product view.
--
--- * 'pvdCreatedTime' - The UTC timestamp of the creation time.
+-- * 'pvdCreatedTime' - The UTC time stamp of the creation time.
--
--- * 'pvdProductARN' - The ARN associated with the product.
+-- * 'pvdProductARN' - The ARN of the product.
productViewDetail
:: ProductViewDetail
productViewDetail =
ProductViewDetail'
- { _pvdStatus = Nothing
- , _pvdProductViewSummary = Nothing
- , _pvdCreatedTime = Nothing
- , _pvdProductARN = Nothing
- }
+ { _pvdStatus = Nothing
+ , _pvdProductViewSummary = Nothing
+ , _pvdCreatedTime = Nothing
+ , _pvdProductARN = Nothing
+ }
--- | Current status of the product. @AVAILABLE@ - Product is available for use. @CREATING@ - Creation of product started, not ready for use. @FAILED@ - Action on product failed.
+-- | The status of the product. * @AVAILABLE@ - The product is ready for use. * @CREATING@ - Product creation has started; the product is not ready for use. * @FAILED@ - An action failed.
pvdStatus :: Lens' ProductViewDetail (Maybe RequestStatus)
-pvdStatus = lens _pvdStatus (\ s a -> s{_pvdStatus = a});
+pvdStatus = lens _pvdStatus (\ s a -> s{_pvdStatus = a})
--- | The summary metadata about the specified product view.
+-- | Summary information about the product view.
pvdProductViewSummary :: Lens' ProductViewDetail (Maybe ProductViewSummary)
-pvdProductViewSummary = lens _pvdProductViewSummary (\ s a -> s{_pvdProductViewSummary = a});
+pvdProductViewSummary = lens _pvdProductViewSummary (\ s a -> s{_pvdProductViewSummary = a})
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
pvdCreatedTime :: Lens' ProductViewDetail (Maybe UTCTime)
-pvdCreatedTime = lens _pvdCreatedTime (\ s a -> s{_pvdCreatedTime = a}) . mapping _Time;
+pvdCreatedTime = lens _pvdCreatedTime (\ s a -> s{_pvdCreatedTime = a}) . mapping _Time
--- | The ARN associated with the product.
+-- | The ARN of the product.
pvdProductARN :: Lens' ProductViewDetail (Maybe Text)
-pvdProductARN = lens _pvdProductARN (\ s a -> s{_pvdProductARN = a});
+pvdProductARN = lens _pvdProductARN (\ s a -> s{_pvdProductARN = a})
instance FromJSON ProductViewDetail where
parseJSON
@@ -596,7 +629,7 @@ instance Hashable ProductViewDetail where
instance NFData ProductViewDetail where
--- | The summary metadata about the specified product.
+-- | Summary information about a product view.
--
--
--
@@ -626,7 +659,7 @@ data ProductViewSummary = ProductViewSummary'
--
-- * 'pvsShortDescription' - Short description of the product.
--
--- * 'pvsHasDefaultPath' - A value of @false@ indicates that the product does not have a default path, while a value of @true@ indicates that it does. If it's false, call 'ListLaunchPaths' to disambiguate between paths. If true, 'ListLaunchPaths' is not required, and the output of the 'ProductViewSummary' operation can be used directly with 'DescribeProvisioningParameters' .
+-- * 'pvsHasDefaultPath' - Indicates whether the product has a default path. If the product does not have a default path, call 'ListLaunchPaths' to disambiguate between paths. Otherwise, 'ListLaunchPaths' is not required, and the output of 'ProductViewSummary' can be used directly with 'DescribeProvisioningParameters' .
--
-- * 'pvsDistributor' - The distributor of the product. Contact the product administrator for the significance of this value.
--
@@ -645,63 +678,63 @@ productViewSummary
:: ProductViewSummary
productViewSummary =
ProductViewSummary'
- { _pvsOwner = Nothing
- , _pvsSupportURL = Nothing
- , _pvsShortDescription = Nothing
- , _pvsHasDefaultPath = Nothing
- , _pvsDistributor = Nothing
- , _pvsName = Nothing
- , _pvsId = Nothing
- , _pvsType = Nothing
- , _pvsSupportEmail = Nothing
- , _pvsProductId = Nothing
- , _pvsSupportDescription = Nothing
- }
+ { _pvsOwner = Nothing
+ , _pvsSupportURL = Nothing
+ , _pvsShortDescription = Nothing
+ , _pvsHasDefaultPath = Nothing
+ , _pvsDistributor = Nothing
+ , _pvsName = Nothing
+ , _pvsId = Nothing
+ , _pvsType = Nothing
+ , _pvsSupportEmail = Nothing
+ , _pvsProductId = Nothing
+ , _pvsSupportDescription = Nothing
+ }
-- | The owner of the product. Contact the product administrator for the significance of this value.
pvsOwner :: Lens' ProductViewSummary (Maybe Text)
-pvsOwner = lens _pvsOwner (\ s a -> s{_pvsOwner = a});
+pvsOwner = lens _pvsOwner (\ s a -> s{_pvsOwner = a})
-- | The URL information to obtain support for this Product.
pvsSupportURL :: Lens' ProductViewSummary (Maybe Text)
-pvsSupportURL = lens _pvsSupportURL (\ s a -> s{_pvsSupportURL = a});
+pvsSupportURL = lens _pvsSupportURL (\ s a -> s{_pvsSupportURL = a})
-- | Short description of the product.
pvsShortDescription :: Lens' ProductViewSummary (Maybe Text)
-pvsShortDescription = lens _pvsShortDescription (\ s a -> s{_pvsShortDescription = a});
+pvsShortDescription = lens _pvsShortDescription (\ s a -> s{_pvsShortDescription = a})
--- | A value of @false@ indicates that the product does not have a default path, while a value of @true@ indicates that it does. If it's false, call 'ListLaunchPaths' to disambiguate between paths. If true, 'ListLaunchPaths' is not required, and the output of the 'ProductViewSummary' operation can be used directly with 'DescribeProvisioningParameters' .
+-- | Indicates whether the product has a default path. If the product does not have a default path, call 'ListLaunchPaths' to disambiguate between paths. Otherwise, 'ListLaunchPaths' is not required, and the output of 'ProductViewSummary' can be used directly with 'DescribeProvisioningParameters' .
pvsHasDefaultPath :: Lens' ProductViewSummary (Maybe Bool)
-pvsHasDefaultPath = lens _pvsHasDefaultPath (\ s a -> s{_pvsHasDefaultPath = a});
+pvsHasDefaultPath = lens _pvsHasDefaultPath (\ s a -> s{_pvsHasDefaultPath = a})
-- | The distributor of the product. Contact the product administrator for the significance of this value.
pvsDistributor :: Lens' ProductViewSummary (Maybe Text)
-pvsDistributor = lens _pvsDistributor (\ s a -> s{_pvsDistributor = a});
+pvsDistributor = lens _pvsDistributor (\ s a -> s{_pvsDistributor = a})
-- | The name of the product.
pvsName :: Lens' ProductViewSummary (Maybe Text)
-pvsName = lens _pvsName (\ s a -> s{_pvsName = a});
+pvsName = lens _pvsName (\ s a -> s{_pvsName = a})
-- | The product view identifier.
pvsId :: Lens' ProductViewSummary (Maybe Text)
-pvsId = lens _pvsId (\ s a -> s{_pvsId = a});
+pvsId = lens _pvsId (\ s a -> s{_pvsId = a})
-- | The product type. Contact the product administrator for the significance of this value. If this value is @MARKETPLACE@ , the product was created by AWS Marketplace.
pvsType :: Lens' ProductViewSummary (Maybe ProductType)
-pvsType = lens _pvsType (\ s a -> s{_pvsType = a});
+pvsType = lens _pvsType (\ s a -> s{_pvsType = a})
-- | The email contact information to obtain support for this Product.
pvsSupportEmail :: Lens' ProductViewSummary (Maybe Text)
-pvsSupportEmail = lens _pvsSupportEmail (\ s a -> s{_pvsSupportEmail = a});
+pvsSupportEmail = lens _pvsSupportEmail (\ s a -> s{_pvsSupportEmail = a})
-- | The product identifier.
pvsProductId :: Lens' ProductViewSummary (Maybe Text)
-pvsProductId = lens _pvsProductId (\ s a -> s{_pvsProductId = a});
+pvsProductId = lens _pvsProductId (\ s a -> s{_pvsProductId = a})
-- | The description of the support for this Product.
pvsSupportDescription :: Lens' ProductViewSummary (Maybe Text)
-pvsSupportDescription = lens _pvsSupportDescription (\ s a -> s{_pvsSupportDescription = a});
+pvsSupportDescription = lens _pvsSupportDescription (\ s a -> s{_pvsSupportDescription = a})
instance FromJSON ProductViewSummary where
parseJSON
@@ -723,7 +756,170 @@ instance Hashable ProductViewSummary where
instance NFData ProductViewSummary where
--- | Detailed information about a ProvisionedProduct object.
+-- | Information about a provisioned product.
+--
+--
+--
+-- /See:/ 'provisionedProductAttribute' smart constructor.
+data ProvisionedProductAttribute = ProvisionedProductAttribute'
+ { _ppaIdempotencyToken :: !(Maybe Text)
+ , _ppaStatus :: !(Maybe ProvisionedProductStatus)
+ , _ppaProvisioningArtifactId :: !(Maybe Text)
+ , _ppaARN :: !(Maybe Text)
+ , _ppaCreatedTime :: !(Maybe POSIX)
+ , _ppaUserARN :: !(Maybe Text)
+ , _ppaStatusMessage :: !(Maybe Text)
+ , _ppaName :: !(Maybe Text)
+ , _ppaLastRecordId :: !(Maybe Text)
+ , _ppaUserARNSession :: !(Maybe Text)
+ , _ppaId :: !(Maybe Text)
+ , _ppaType :: !(Maybe Text)
+ , _ppaPhysicalId :: !(Maybe Text)
+ , _ppaProductId :: !(Maybe Text)
+ , _ppaTags :: !(Maybe [Tag])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProvisionedProductAttribute' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ppaIdempotencyToken' - 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.
+--
+-- * 'ppaStatus' - The current status of the provisioned product. * @AVAILABLE@ - Stable state, ready to perform any operation. The most recent operation succeeded and completed. * @UNDER_CHANGE@ - Transitive state, operations performed might not have valid results. Wait for an @AVAILABLE@ status before performing operations. * @TAINTED@ - Stable state, ready to perform any operation. The stack has completed the requested operation but is not exactly what was requested. For example, a request to update to a new version failed and the stack rolled back to the current version. * @ERROR@ - An unexpected error occurred, the provisioned product exists but the stack is not running. For example, CloudFormation received a parameter value that was not valid and could not launch the stack.
+--
+-- * 'ppaProvisioningArtifactId' - The identifier of the provisioning artifact.
+--
+-- * 'ppaARN' - The ARN of the provisioned product.
+--
+-- * 'ppaCreatedTime' - The UTC time stamp of the creation time.
+--
+-- * 'ppaUserARN' - The Amazon Resource Name (ARN) of the IAM user.
+--
+-- * 'ppaStatusMessage' - The current status message of the provisioned product.
+--
+-- * 'ppaName' - The user-friendly name of the provisioned product.
+--
+-- * 'ppaLastRecordId' - The record identifier of the last request performed on this provisioned product.
+--
+-- * 'ppaUserARNSession' - The ARN of the IAM user in the session. This ARN might contain a session ID.
+--
+-- * 'ppaId' - The identifier of the provisioned product.
+--
+-- * 'ppaType' - The type of provisioned product. The supported value is @CFN_STACK@ .
+--
+-- * 'ppaPhysicalId' - The assigned identifier for the resource, such as an EC2 instance ID or an S3 bucket name.
+--
+-- * 'ppaProductId' - The product identifier.
+--
+-- * 'ppaTags' - One or more tags.
+provisionedProductAttribute
+ :: ProvisionedProductAttribute
+provisionedProductAttribute =
+ ProvisionedProductAttribute'
+ { _ppaIdempotencyToken = Nothing
+ , _ppaStatus = Nothing
+ , _ppaProvisioningArtifactId = Nothing
+ , _ppaARN = Nothing
+ , _ppaCreatedTime = Nothing
+ , _ppaUserARN = Nothing
+ , _ppaStatusMessage = Nothing
+ , _ppaName = Nothing
+ , _ppaLastRecordId = Nothing
+ , _ppaUserARNSession = Nothing
+ , _ppaId = Nothing
+ , _ppaType = Nothing
+ , _ppaPhysicalId = Nothing
+ , _ppaProductId = Nothing
+ , _ppaTags = Nothing
+ }
+
+
+-- | 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.
+ppaIdempotencyToken :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaIdempotencyToken = lens _ppaIdempotencyToken (\ s a -> s{_ppaIdempotencyToken = a})
+
+-- | The current status of the provisioned product. * @AVAILABLE@ - Stable state, ready to perform any operation. The most recent operation succeeded and completed. * @UNDER_CHANGE@ - Transitive state, operations performed might not have valid results. Wait for an @AVAILABLE@ status before performing operations. * @TAINTED@ - Stable state, ready to perform any operation. The stack has completed the requested operation but is not exactly what was requested. For example, a request to update to a new version failed and the stack rolled back to the current version. * @ERROR@ - An unexpected error occurred, the provisioned product exists but the stack is not running. For example, CloudFormation received a parameter value that was not valid and could not launch the stack.
+ppaStatus :: Lens' ProvisionedProductAttribute (Maybe ProvisionedProductStatus)
+ppaStatus = lens _ppaStatus (\ s a -> s{_ppaStatus = a})
+
+-- | The identifier of the provisioning artifact.
+ppaProvisioningArtifactId :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaProvisioningArtifactId = lens _ppaProvisioningArtifactId (\ s a -> s{_ppaProvisioningArtifactId = a})
+
+-- | The ARN of the provisioned product.
+ppaARN :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaARN = lens _ppaARN (\ s a -> s{_ppaARN = a})
+
+-- | The UTC time stamp of the creation time.
+ppaCreatedTime :: Lens' ProvisionedProductAttribute (Maybe UTCTime)
+ppaCreatedTime = lens _ppaCreatedTime (\ s a -> s{_ppaCreatedTime = a}) . mapping _Time
+
+-- | The Amazon Resource Name (ARN) of the IAM user.
+ppaUserARN :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaUserARN = lens _ppaUserARN (\ s a -> s{_ppaUserARN = a})
+
+-- | The current status message of the provisioned product.
+ppaStatusMessage :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaStatusMessage = lens _ppaStatusMessage (\ s a -> s{_ppaStatusMessage = a})
+
+-- | The user-friendly name of the provisioned product.
+ppaName :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaName = lens _ppaName (\ s a -> s{_ppaName = a})
+
+-- | The record identifier of the last request performed on this provisioned product.
+ppaLastRecordId :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaLastRecordId = lens _ppaLastRecordId (\ s a -> s{_ppaLastRecordId = a})
+
+-- | The ARN of the IAM user in the session. This ARN might contain a session ID.
+ppaUserARNSession :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaUserARNSession = lens _ppaUserARNSession (\ s a -> s{_ppaUserARNSession = a})
+
+-- | The identifier of the provisioned product.
+ppaId :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaId = lens _ppaId (\ s a -> s{_ppaId = a})
+
+-- | The type of provisioned product. The supported value is @CFN_STACK@ .
+ppaType :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaType = lens _ppaType (\ s a -> s{_ppaType = a})
+
+-- | The assigned identifier for the resource, such as an EC2 instance ID or an S3 bucket name.
+ppaPhysicalId :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaPhysicalId = lens _ppaPhysicalId (\ s a -> s{_ppaPhysicalId = a})
+
+-- | The product identifier.
+ppaProductId :: Lens' ProvisionedProductAttribute (Maybe Text)
+ppaProductId = lens _ppaProductId (\ s a -> s{_ppaProductId = a})
+
+-- | One or more tags.
+ppaTags :: Lens' ProvisionedProductAttribute [Tag]
+ppaTags = lens _ppaTags (\ s a -> s{_ppaTags = a}) . _Default . _Coerce
+
+instance FromJSON ProvisionedProductAttribute where
+ parseJSON
+ = withObject "ProvisionedProductAttribute"
+ (\ x ->
+ ProvisionedProductAttribute' <$>
+ (x .:? "IdempotencyToken") <*> (x .:? "Status") <*>
+ (x .:? "ProvisioningArtifactId")
+ <*> (x .:? "Arn")
+ <*> (x .:? "CreatedTime")
+ <*> (x .:? "UserArn")
+ <*> (x .:? "StatusMessage")
+ <*> (x .:? "Name")
+ <*> (x .:? "LastRecordId")
+ <*> (x .:? "UserArnSession")
+ <*> (x .:? "Id")
+ <*> (x .:? "Type")
+ <*> (x .:? "PhysicalId")
+ <*> (x .:? "ProductId")
+ <*> (x .:? "Tags" .!= mempty))
+
+instance Hashable ProvisionedProductAttribute where
+
+instance NFData ProvisionedProductAttribute where
+
+-- | Information about a provisioned product.
--
--
--
@@ -745,74 +941,74 @@ data ProvisionedProductDetail = ProvisionedProductDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'ppdIdempotencyToken' - 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.
+-- * 'ppdIdempotencyToken' - 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.
--
--- * 'ppdStatus' - The current status of the ProvisionedProduct. @AVAILABLE@ - Stable state, ready to perform any operation. The most recent action request succeeded and completed. @UNDER_CHANGE@ - Transitive state, operations performed may or may not have valid results. Wait for an @AVAILABLE@ status before performing operations. @TAINTED@ - Stable state, ready to perform any operation. The stack has completed the requested operation but is not exactly what was requested. For example, a request to update to a new version failed and the stack rolled back to the current version. @ERROR@ - Something unexpected happened such that the provisioned product exists but the stack is not running. For example, CloudFormation received an invalid parameter value and could not launch the stack.
+-- * 'ppdStatus' - The current status of the provisioned product. * @AVAILABLE@ - Stable state, ready to perform any operation. The most recent operation succeeded and completed. * @UNDER_CHANGE@ - Transitive state, operations performed might not have valid results. Wait for an @AVAILABLE@ status before performing operations. * @TAINTED@ - Stable state, ready to perform any operation. The stack has completed the requested operation but is not exactly what was requested. For example, a request to update to a new version failed and the stack rolled back to the current version. * @ERROR@ - An unexpected error occurred, the provisioned product exists but the stack is not running. For example, CloudFormation received a parameter value that was not valid and could not launch the stack.
--
--- * 'ppdARN' - The ARN associated with the ProvisionedProduct object.
+-- * 'ppdARN' - The ARN of the provisioned product.
--
--- * 'ppdCreatedTime' - The UTC timestamp of the creation time.
+-- * 'ppdCreatedTime' - The UTC time stamp of the creation time.
--
--- * 'ppdStatusMessage' - The current status message of the ProvisionedProduct.
+-- * 'ppdStatusMessage' - The current status message of the provisioned product.
--
--- * 'ppdName' - The user-friendly name of the ProvisionedProduct object.
+-- * 'ppdName' - The user-friendly name of the provisioned product.
--
--- * 'ppdLastRecordId' - The record identifier of the last request performed on this ProvisionedProduct object.
+-- * 'ppdLastRecordId' - The record identifier of the last request performed on this provisioned product.
--
--- * 'ppdId' - The identifier of the ProvisionedProduct object.
+-- * 'ppdId' - The identifier of the provisioned product.
--
--- * 'ppdType' - The type of the ProvisionedProduct object.
+-- * 'ppdType' - The type of provisioned product. The supported value is @CFN_STACK@ .
provisionedProductDetail
:: ProvisionedProductDetail
provisionedProductDetail =
ProvisionedProductDetail'
- { _ppdIdempotencyToken = Nothing
- , _ppdStatus = Nothing
- , _ppdARN = Nothing
- , _ppdCreatedTime = Nothing
- , _ppdStatusMessage = Nothing
- , _ppdName = Nothing
- , _ppdLastRecordId = Nothing
- , _ppdId = Nothing
- , _ppdType = Nothing
- }
-
-
--- | 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.
+ { _ppdIdempotencyToken = Nothing
+ , _ppdStatus = Nothing
+ , _ppdARN = Nothing
+ , _ppdCreatedTime = Nothing
+ , _ppdStatusMessage = Nothing
+ , _ppdName = Nothing
+ , _ppdLastRecordId = Nothing
+ , _ppdId = Nothing
+ , _ppdType = Nothing
+ }
+
+
+-- | 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.
ppdIdempotencyToken :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdIdempotencyToken = lens _ppdIdempotencyToken (\ s a -> s{_ppdIdempotencyToken = a});
+ppdIdempotencyToken = lens _ppdIdempotencyToken (\ s a -> s{_ppdIdempotencyToken = a})
--- | The current status of the ProvisionedProduct. @AVAILABLE@ - Stable state, ready to perform any operation. The most recent action request succeeded and completed. @UNDER_CHANGE@ - Transitive state, operations performed may or may not have valid results. Wait for an @AVAILABLE@ status before performing operations. @TAINTED@ - Stable state, ready to perform any operation. The stack has completed the requested operation but is not exactly what was requested. For example, a request to update to a new version failed and the stack rolled back to the current version. @ERROR@ - Something unexpected happened such that the provisioned product exists but the stack is not running. For example, CloudFormation received an invalid parameter value and could not launch the stack.
+-- | The current status of the provisioned product. * @AVAILABLE@ - Stable state, ready to perform any operation. The most recent operation succeeded and completed. * @UNDER_CHANGE@ - Transitive state, operations performed might not have valid results. Wait for an @AVAILABLE@ status before performing operations. * @TAINTED@ - Stable state, ready to perform any operation. The stack has completed the requested operation but is not exactly what was requested. For example, a request to update to a new version failed and the stack rolled back to the current version. * @ERROR@ - An unexpected error occurred, the provisioned product exists but the stack is not running. For example, CloudFormation received a parameter value that was not valid and could not launch the stack.
ppdStatus :: Lens' ProvisionedProductDetail (Maybe ProvisionedProductStatus)
-ppdStatus = lens _ppdStatus (\ s a -> s{_ppdStatus = a});
+ppdStatus = lens _ppdStatus (\ s a -> s{_ppdStatus = a})
--- | The ARN associated with the ProvisionedProduct object.
+-- | The ARN of the provisioned product.
ppdARN :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdARN = lens _ppdARN (\ s a -> s{_ppdARN = a});
+ppdARN = lens _ppdARN (\ s a -> s{_ppdARN = a})
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
ppdCreatedTime :: Lens' ProvisionedProductDetail (Maybe UTCTime)
-ppdCreatedTime = lens _ppdCreatedTime (\ s a -> s{_ppdCreatedTime = a}) . mapping _Time;
+ppdCreatedTime = lens _ppdCreatedTime (\ s a -> s{_ppdCreatedTime = a}) . mapping _Time
--- | The current status message of the ProvisionedProduct.
+-- | The current status message of the provisioned product.
ppdStatusMessage :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdStatusMessage = lens _ppdStatusMessage (\ s a -> s{_ppdStatusMessage = a});
+ppdStatusMessage = lens _ppdStatusMessage (\ s a -> s{_ppdStatusMessage = a})
--- | The user-friendly name of the ProvisionedProduct object.
+-- | The user-friendly name of the provisioned product.
ppdName :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdName = lens _ppdName (\ s a -> s{_ppdName = a});
+ppdName = lens _ppdName (\ s a -> s{_ppdName = a})
--- | The record identifier of the last request performed on this ProvisionedProduct object.
+-- | The record identifier of the last request performed on this provisioned product.
ppdLastRecordId :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdLastRecordId = lens _ppdLastRecordId (\ s a -> s{_ppdLastRecordId = a});
+ppdLastRecordId = lens _ppdLastRecordId (\ s a -> s{_ppdLastRecordId = a})
--- | The identifier of the ProvisionedProduct object.
+-- | The identifier of the provisioned product.
ppdId :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdId = lens _ppdId (\ s a -> s{_ppdId = a});
+ppdId = lens _ppdId (\ s a -> s{_ppdId = a})
--- | The type of the ProvisionedProduct object.
+-- | The type of provisioned product. The supported value is @CFN_STACK@ .
ppdType :: Lens' ProvisionedProductDetail (Maybe Text)
-ppdType = lens _ppdType (\ s a -> s{_ppdType = a});
+ppdType = lens _ppdType (\ s a -> s{_ppdType = a})
instance FromJSON ProvisionedProductDetail where
parseJSON
@@ -832,7 +1028,253 @@ instance Hashable ProvisionedProductDetail where
instance NFData ProvisionedProductDetail where
--- | Contains information indicating the ways in which a product can be provisioned.
+-- | Information about a plan.
+--
+--
+--
+-- /See:/ 'provisionedProductPlanDetails' smart constructor.
+data ProvisionedProductPlanDetails = ProvisionedProductPlanDetails'
+ { _pppdStatus :: !(Maybe ProvisionedProductPlanStatus)
+ , _pppdProvisionProductId :: !(Maybe Text)
+ , _pppdProvisioningArtifactId :: !(Maybe Text)
+ , _pppdProvisionProductName :: !(Maybe Text)
+ , _pppdCreatedTime :: !(Maybe POSIX)
+ , _pppdNotificationARNs :: !(Maybe [Text])
+ , _pppdPlanId :: !(Maybe Text)
+ , _pppdPlanName :: !(Maybe Text)
+ , _pppdStatusMessage :: !(Maybe Text)
+ , _pppdUpdatedTime :: !(Maybe POSIX)
+ , _pppdPathId :: !(Maybe Text)
+ , _pppdProvisioningParameters :: !(Maybe [UpdateProvisioningParameter])
+ , _pppdPlanType :: !(Maybe ProvisionedProductPlanType)
+ , _pppdProductId :: !(Maybe Text)
+ , _pppdTags :: !(Maybe [Tag])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProvisionedProductPlanDetails' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'pppdStatus' - The status.
+--
+-- * 'pppdProvisionProductId' - The product identifier.
+--
+-- * 'pppdProvisioningArtifactId' - The identifier of the provisioning artifact.
+--
+-- * 'pppdProvisionProductName' - The user-friendly name of the provisioned product.
+--
+-- * 'pppdCreatedTime' - The UTC time stamp of the creation time.
+--
+-- * 'pppdNotificationARNs' - Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events.
+--
+-- * 'pppdPlanId' - The plan identifier.
+--
+-- * 'pppdPlanName' - The name of the plan.
+--
+-- * 'pppdStatusMessage' - The status message.
+--
+-- * 'pppdUpdatedTime' - The time when the plan was last updated.
+--
+-- * 'pppdPathId' - 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' .
+--
+-- * 'pppdProvisioningParameters' - Parameters specified by the administrator that are required for provisioning the product.
+--
+-- * 'pppdPlanType' - The plan type.
+--
+-- * 'pppdProductId' - The product identifier.
+--
+-- * 'pppdTags' - One or more tags.
+provisionedProductPlanDetails
+ :: ProvisionedProductPlanDetails
+provisionedProductPlanDetails =
+ ProvisionedProductPlanDetails'
+ { _pppdStatus = Nothing
+ , _pppdProvisionProductId = Nothing
+ , _pppdProvisioningArtifactId = Nothing
+ , _pppdProvisionProductName = Nothing
+ , _pppdCreatedTime = Nothing
+ , _pppdNotificationARNs = Nothing
+ , _pppdPlanId = Nothing
+ , _pppdPlanName = Nothing
+ , _pppdStatusMessage = Nothing
+ , _pppdUpdatedTime = Nothing
+ , _pppdPathId = Nothing
+ , _pppdProvisioningParameters = Nothing
+ , _pppdPlanType = Nothing
+ , _pppdProductId = Nothing
+ , _pppdTags = Nothing
+ }
+
+
+-- | The status.
+pppdStatus :: Lens' ProvisionedProductPlanDetails (Maybe ProvisionedProductPlanStatus)
+pppdStatus = lens _pppdStatus (\ s a -> s{_pppdStatus = a})
+
+-- | The product identifier.
+pppdProvisionProductId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdProvisionProductId = lens _pppdProvisionProductId (\ s a -> s{_pppdProvisionProductId = a})
+
+-- | The identifier of the provisioning artifact.
+pppdProvisioningArtifactId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdProvisioningArtifactId = lens _pppdProvisioningArtifactId (\ s a -> s{_pppdProvisioningArtifactId = a})
+
+-- | The user-friendly name of the provisioned product.
+pppdProvisionProductName :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdProvisionProductName = lens _pppdProvisionProductName (\ s a -> s{_pppdProvisionProductName = a})
+
+-- | The UTC time stamp of the creation time.
+pppdCreatedTime :: Lens' ProvisionedProductPlanDetails (Maybe UTCTime)
+pppdCreatedTime = lens _pppdCreatedTime (\ s a -> s{_pppdCreatedTime = a}) . mapping _Time
+
+-- | Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events.
+pppdNotificationARNs :: Lens' ProvisionedProductPlanDetails [Text]
+pppdNotificationARNs = lens _pppdNotificationARNs (\ s a -> s{_pppdNotificationARNs = a}) . _Default . _Coerce
+
+-- | The plan identifier.
+pppdPlanId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdPlanId = lens _pppdPlanId (\ s a -> s{_pppdPlanId = a})
+
+-- | The name of the plan.
+pppdPlanName :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdPlanName = lens _pppdPlanName (\ s a -> s{_pppdPlanName = a})
+
+-- | The status message.
+pppdStatusMessage :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdStatusMessage = lens _pppdStatusMessage (\ s a -> s{_pppdStatusMessage = a})
+
+-- | The time when the plan was last updated.
+pppdUpdatedTime :: Lens' ProvisionedProductPlanDetails (Maybe UTCTime)
+pppdUpdatedTime = lens _pppdUpdatedTime (\ s a -> s{_pppdUpdatedTime = a}) . mapping _Time
+
+-- | 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' .
+pppdPathId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdPathId = lens _pppdPathId (\ s a -> s{_pppdPathId = a})
+
+-- | Parameters specified by the administrator that are required for provisioning the product.
+pppdProvisioningParameters :: Lens' ProvisionedProductPlanDetails [UpdateProvisioningParameter]
+pppdProvisioningParameters = lens _pppdProvisioningParameters (\ s a -> s{_pppdProvisioningParameters = a}) . _Default . _Coerce
+
+-- | The plan type.
+pppdPlanType :: Lens' ProvisionedProductPlanDetails (Maybe ProvisionedProductPlanType)
+pppdPlanType = lens _pppdPlanType (\ s a -> s{_pppdPlanType = a})
+
+-- | The product identifier.
+pppdProductId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
+pppdProductId = lens _pppdProductId (\ s a -> s{_pppdProductId = a})
+
+-- | One or more tags.
+pppdTags :: Lens' ProvisionedProductPlanDetails [Tag]
+pppdTags = lens _pppdTags (\ s a -> s{_pppdTags = a}) . _Default . _Coerce
+
+instance FromJSON ProvisionedProductPlanDetails where
+ parseJSON
+ = withObject "ProvisionedProductPlanDetails"
+ (\ x ->
+ ProvisionedProductPlanDetails' <$>
+ (x .:? "Status") <*> (x .:? "ProvisionProductId") <*>
+ (x .:? "ProvisioningArtifactId")
+ <*> (x .:? "ProvisionProductName")
+ <*> (x .:? "CreatedTime")
+ <*> (x .:? "NotificationArns" .!= mempty)
+ <*> (x .:? "PlanId")
+ <*> (x .:? "PlanName")
+ <*> (x .:? "StatusMessage")
+ <*> (x .:? "UpdatedTime")
+ <*> (x .:? "PathId")
+ <*> (x .:? "ProvisioningParameters" .!= mempty)
+ <*> (x .:? "PlanType")
+ <*> (x .:? "ProductId")
+ <*> (x .:? "Tags" .!= mempty))
+
+instance Hashable ProvisionedProductPlanDetails where
+
+instance NFData ProvisionedProductPlanDetails where
+
+-- | Summary information about a plan.
+--
+--
+--
+-- /See:/ 'provisionedProductPlanSummary' smart constructor.
+data ProvisionedProductPlanSummary = ProvisionedProductPlanSummary'
+ { _pppsProvisionProductId :: !(Maybe Text)
+ , _pppsProvisioningArtifactId :: !(Maybe Text)
+ , _pppsProvisionProductName :: !(Maybe Text)
+ , _pppsPlanId :: !(Maybe Text)
+ , _pppsPlanName :: !(Maybe Text)
+ , _pppsPlanType :: !(Maybe ProvisionedProductPlanType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProvisionedProductPlanSummary' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'pppsProvisionProductId' - The product identifier.
+--
+-- * 'pppsProvisioningArtifactId' - The identifier of the provisioning artifact.
+--
+-- * 'pppsProvisionProductName' - The user-friendly name of the provisioned product.
+--
+-- * 'pppsPlanId' - The plan identifier.
+--
+-- * 'pppsPlanName' - The name of the plan.
+--
+-- * 'pppsPlanType' - The plan type.
+provisionedProductPlanSummary
+ :: ProvisionedProductPlanSummary
+provisionedProductPlanSummary =
+ ProvisionedProductPlanSummary'
+ { _pppsProvisionProductId = Nothing
+ , _pppsProvisioningArtifactId = Nothing
+ , _pppsProvisionProductName = Nothing
+ , _pppsPlanId = Nothing
+ , _pppsPlanName = Nothing
+ , _pppsPlanType = Nothing
+ }
+
+
+-- | The product identifier.
+pppsProvisionProductId :: Lens' ProvisionedProductPlanSummary (Maybe Text)
+pppsProvisionProductId = lens _pppsProvisionProductId (\ s a -> s{_pppsProvisionProductId = a})
+
+-- | The identifier of the provisioning artifact.
+pppsProvisioningArtifactId :: Lens' ProvisionedProductPlanSummary (Maybe Text)
+pppsProvisioningArtifactId = lens _pppsProvisioningArtifactId (\ s a -> s{_pppsProvisioningArtifactId = a})
+
+-- | The user-friendly name of the provisioned product.
+pppsProvisionProductName :: Lens' ProvisionedProductPlanSummary (Maybe Text)
+pppsProvisionProductName = lens _pppsProvisionProductName (\ s a -> s{_pppsProvisionProductName = a})
+
+-- | The plan identifier.
+pppsPlanId :: Lens' ProvisionedProductPlanSummary (Maybe Text)
+pppsPlanId = lens _pppsPlanId (\ s a -> s{_pppsPlanId = a})
+
+-- | The name of the plan.
+pppsPlanName :: Lens' ProvisionedProductPlanSummary (Maybe Text)
+pppsPlanName = lens _pppsPlanName (\ s a -> s{_pppsPlanName = a})
+
+-- | The plan type.
+pppsPlanType :: Lens' ProvisionedProductPlanSummary (Maybe ProvisionedProductPlanType)
+pppsPlanType = lens _pppsPlanType (\ s a -> s{_pppsPlanType = a})
+
+instance FromJSON ProvisionedProductPlanSummary where
+ parseJSON
+ = withObject "ProvisionedProductPlanSummary"
+ (\ x ->
+ ProvisionedProductPlanSummary' <$>
+ (x .:? "ProvisionProductId") <*>
+ (x .:? "ProvisioningArtifactId")
+ <*> (x .:? "ProvisionProductName")
+ <*> (x .:? "PlanId")
+ <*> (x .:? "PlanName")
+ <*> (x .:? "PlanType"))
+
+instance Hashable ProvisionedProductPlanSummary where
+
+instance NFData ProvisionedProductPlanSummary where
+
+-- | Information about a provisioning artifact. A provisioning artifact is also known as a product version.
--
--
--
@@ -849,39 +1291,39 @@ data ProvisioningArtifact = ProvisioningArtifact'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'paCreatedTime' - The UTC timestamp of the creation time.
+-- * 'paCreatedTime' - The UTC time stamp of the creation time.
--
--- * 'paName' - The name of the artifact.
+-- * 'paName' - The name of the provisioning artifact.
--
--- * 'paId' - The identifier for the artifact. This is sometimes referred to as the product version.
+-- * 'paId' - The identifier of the provisioning artifact.
--
--- * 'paDescription' - The text description of the artifact.
+-- * 'paDescription' - The description of the provisioning artifact.
provisioningArtifact
:: ProvisioningArtifact
provisioningArtifact =
ProvisioningArtifact'
- { _paCreatedTime = Nothing
- , _paName = Nothing
- , _paId = Nothing
- , _paDescription = Nothing
- }
+ { _paCreatedTime = Nothing
+ , _paName = Nothing
+ , _paId = Nothing
+ , _paDescription = Nothing
+ }
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
paCreatedTime :: Lens' ProvisioningArtifact (Maybe UTCTime)
-paCreatedTime = lens _paCreatedTime (\ s a -> s{_paCreatedTime = a}) . mapping _Time;
+paCreatedTime = lens _paCreatedTime (\ s a -> s{_paCreatedTime = a}) . mapping _Time
--- | The name of the artifact.
+-- | The name of the provisioning artifact.
paName :: Lens' ProvisioningArtifact (Maybe Text)
-paName = lens _paName (\ s a -> s{_paName = a});
+paName = lens _paName (\ s a -> s{_paName = a})
--- | The identifier for the artifact. This is sometimes referred to as the product version.
+-- | The identifier of the provisioning artifact.
paId :: Lens' ProvisioningArtifact (Maybe Text)
-paId = lens _paId (\ s a -> s{_paId = a});
+paId = lens _paId (\ s a -> s{_paId = a})
--- | The text description of the artifact.
+-- | The description of the provisioning artifact.
paDescription :: Lens' ProvisioningArtifact (Maybe Text)
-paDescription = lens _paDescription (\ s a -> s{_paDescription = a});
+paDescription = lens _paDescription (\ s a -> s{_paDescription = a})
instance FromJSON ProvisioningArtifact where
parseJSON
@@ -896,13 +1338,14 @@ instance Hashable ProvisioningArtifact where
instance NFData ProvisioningArtifact where
--- | Detailed provisioning artifact information.
+-- | Information about a provisioning artifact (also known as a version) for a product.
--
--
--
-- /See:/ 'provisioningArtifactDetail' smart constructor.
data ProvisioningArtifactDetail = ProvisioningArtifactDetail'
{ _padCreatedTime :: !(Maybe POSIX)
+ , _padActive :: !(Maybe Bool)
, _padName :: !(Maybe Text)
, _padId :: !(Maybe Text)
, _padType :: !(Maybe ProvisioningArtifactType)
@@ -914,54 +1357,62 @@ data ProvisioningArtifactDetail = ProvisioningArtifactDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'padCreatedTime' - The UTC timestamp of the creation time.
+-- * 'padCreatedTime' - The UTC time stamp of the creation time.
+--
+-- * 'padActive' - Indicates whether the product version is active.
--
--- * 'padName' - The name assigned to the provisioning artifact.
+-- * 'padName' - The name of the provisioning artifact.
--
--- * 'padId' - The identifier of the provisioning artifact. This is sometimes referred to as the product version.
+-- * 'padId' - The identifier of the provisioning artifact.
--
--- * 'padType' - The type of the provisioning artifact. The following provisioning artifact types are used by AWS Marketplace products: @MARKETPLACE_AMI@ - AMI products. @MARKETPLACE_CAR@ - CAR (Cluster and AWS Resources) products.
+-- * 'padType' - The type of provisioning artifact. * @CLOUD_FORMATION_TEMPLATE@ - AWS CloudFormation template * @MARKETPLACE_AMI@ - AWS Marketplace AMI * @MARKETPLACE_CAR@ - AWS Marketplace Clusters and AWS Resources
--
--- * 'padDescription' - The text description of the provisioning artifact.
+-- * 'padDescription' - The description of the provisioning artifact.
provisioningArtifactDetail
:: ProvisioningArtifactDetail
provisioningArtifactDetail =
ProvisioningArtifactDetail'
- { _padCreatedTime = Nothing
- , _padName = Nothing
- , _padId = Nothing
- , _padType = Nothing
- , _padDescription = Nothing
- }
+ { _padCreatedTime = Nothing
+ , _padActive = Nothing
+ , _padName = Nothing
+ , _padId = Nothing
+ , _padType = Nothing
+ , _padDescription = Nothing
+ }
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
padCreatedTime :: Lens' ProvisioningArtifactDetail (Maybe UTCTime)
-padCreatedTime = lens _padCreatedTime (\ s a -> s{_padCreatedTime = a}) . mapping _Time;
+padCreatedTime = lens _padCreatedTime (\ s a -> s{_padCreatedTime = a}) . mapping _Time
--- | The name assigned to the provisioning artifact.
+-- | Indicates whether the product version is active.
+padActive :: Lens' ProvisioningArtifactDetail (Maybe Bool)
+padActive = lens _padActive (\ s a -> s{_padActive = a})
+
+-- | The name of the provisioning artifact.
padName :: Lens' ProvisioningArtifactDetail (Maybe Text)
-padName = lens _padName (\ s a -> s{_padName = a});
+padName = lens _padName (\ s a -> s{_padName = a})
--- | The identifier of the provisioning artifact. This is sometimes referred to as the product version.
+-- | The identifier of the provisioning artifact.
padId :: Lens' ProvisioningArtifactDetail (Maybe Text)
-padId = lens _padId (\ s a -> s{_padId = a});
+padId = lens _padId (\ s a -> s{_padId = a})
--- | The type of the provisioning artifact. The following provisioning artifact types are used by AWS Marketplace products: @MARKETPLACE_AMI@ - AMI products. @MARKETPLACE_CAR@ - CAR (Cluster and AWS Resources) products.
+-- | The type of provisioning artifact. * @CLOUD_FORMATION_TEMPLATE@ - AWS CloudFormation template * @MARKETPLACE_AMI@ - AWS Marketplace AMI * @MARKETPLACE_CAR@ - AWS Marketplace Clusters and AWS Resources
padType :: Lens' ProvisioningArtifactDetail (Maybe ProvisioningArtifactType)
-padType = lens _padType (\ s a -> s{_padType = a});
+padType = lens _padType (\ s a -> s{_padType = a})
--- | The text description of the provisioning artifact.
+-- | The description of the provisioning artifact.
padDescription :: Lens' ProvisioningArtifactDetail (Maybe Text)
-padDescription = lens _padDescription (\ s a -> s{_padDescription = a});
+padDescription = lens _padDescription (\ s a -> s{_padDescription = a})
instance FromJSON ProvisioningArtifactDetail where
parseJSON
= withObject "ProvisioningArtifactDetail"
(\ x ->
ProvisioningArtifactDetail' <$>
- (x .:? "CreatedTime") <*> (x .:? "Name") <*>
- (x .:? "Id")
+ (x .:? "CreatedTime") <*> (x .:? "Active") <*>
+ (x .:? "Name")
+ <*> (x .:? "Id")
<*> (x .:? "Type")
<*> (x .:? "Description"))
@@ -969,7 +1420,7 @@ instance Hashable ProvisioningArtifactDetail where
instance NFData ProvisioningArtifactDetail where
--- | A parameter used to successfully provision the product. This value includes a list of allowable values and additional metadata.
+-- | Information about a parameter used to provision a product.
--
--
--
@@ -994,47 +1445,47 @@ data ProvisioningArtifactParameter = ProvisioningArtifactParameter'
--
-- * 'pParameterType' - The parameter type.
--
--- * 'pParameterConstraints' - The list of constraints that the administrator has put on the parameter.
+-- * 'pParameterConstraints' - Constraints that the administrator has put on a parameter.
--
--- * 'pDefaultValue' - The default value for this parameter.
+-- * 'pDefaultValue' - The default value.
--
--- * 'pDescription' - The text description of the parameter.
+-- * 'pDescription' - The description of the parameter.
provisioningArtifactParameter
:: ProvisioningArtifactParameter
provisioningArtifactParameter =
ProvisioningArtifactParameter'
- { _pIsNoEcho = Nothing
- , _pParameterKey = Nothing
- , _pParameterType = Nothing
- , _pParameterConstraints = Nothing
- , _pDefaultValue = Nothing
- , _pDescription = Nothing
- }
+ { _pIsNoEcho = Nothing
+ , _pParameterKey = Nothing
+ , _pParameterType = Nothing
+ , _pParameterConstraints = Nothing
+ , _pDefaultValue = Nothing
+ , _pDescription = Nothing
+ }
-- | If this value is true, the value for this parameter is obfuscated from view when the parameter is retrieved. This parameter is used to hide sensitive information.
pIsNoEcho :: Lens' ProvisioningArtifactParameter (Maybe Bool)
-pIsNoEcho = lens _pIsNoEcho (\ s a -> s{_pIsNoEcho = a});
+pIsNoEcho = lens _pIsNoEcho (\ s a -> s{_pIsNoEcho = a})
-- | The parameter key.
pParameterKey :: Lens' ProvisioningArtifactParameter (Maybe Text)
-pParameterKey = lens _pParameterKey (\ s a -> s{_pParameterKey = a});
+pParameterKey = lens _pParameterKey (\ s a -> s{_pParameterKey = a})
-- | The parameter type.
pParameterType :: Lens' ProvisioningArtifactParameter (Maybe Text)
-pParameterType = lens _pParameterType (\ s a -> s{_pParameterType = a});
+pParameterType = lens _pParameterType (\ s a -> s{_pParameterType = a})
--- | The list of constraints that the administrator has put on the parameter.
+-- | Constraints that the administrator has put on a parameter.
pParameterConstraints :: Lens' ProvisioningArtifactParameter (Maybe ParameterConstraints)
-pParameterConstraints = lens _pParameterConstraints (\ s a -> s{_pParameterConstraints = a});
+pParameterConstraints = lens _pParameterConstraints (\ s a -> s{_pParameterConstraints = a})
--- | The default value for this parameter.
+-- | The default value.
pDefaultValue :: Lens' ProvisioningArtifactParameter (Maybe Text)
-pDefaultValue = lens _pDefaultValue (\ s a -> s{_pDefaultValue = a});
+pDefaultValue = lens _pDefaultValue (\ s a -> s{_pDefaultValue = a})
--- | The text description of the parameter.
+-- | The description of the parameter.
pDescription :: Lens' ProvisioningArtifactParameter (Maybe Text)
-pDescription = lens _pDescription (\ s a -> s{_pDescription = a});
+pDescription = lens _pDescription (\ s a -> s{_pDescription = a})
instance FromJSON ProvisioningArtifactParameter where
parseJSON
@@ -1051,7 +1502,7 @@ instance Hashable ProvisioningArtifactParameter where
instance NFData ProvisioningArtifactParameter where
--- | Provisioning artifact properties. For example request JSON, see 'CreateProvisioningArtifact' .
+-- | Information about a provisioning artifact (also known as a version) for a product.
--
--
--
@@ -1068,39 +1519,39 @@ data ProvisioningArtifactProperties = ProvisioningArtifactProperties'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'papName' - The name assigned to the provisioning artifact properties.
+-- * 'papName' - The name of the provisioning artifact (for example, v1 v2beta). No spaces are allowed.
--
--- * 'papType' - The type of the provisioning artifact properties. The following provisioning artifact property types are used by AWS Marketplace products: @MARKETPLACE_AMI@ - AMI products. @MARKETPLACE_CAR@ - CAR (Cluster and AWS Resources) products.
+-- * 'papType' - The type of provisioning artifact. * @CLOUD_FORMATION_TEMPLATE@ - AWS CloudFormation template * @MARKETPLACE_AMI@ - AWS Marketplace AMI * @MARKETPLACE_CAR@ - AWS Marketplace Clusters and AWS Resources
--
--- * 'papDescription' - The text description of the provisioning artifact properties.
+-- * 'papDescription' - The description of the provisioning artifact, including how it differs from the previous provisioning artifact.
--
--- * 'papInfo' - Additional information about the provisioning artifact properties. When using this element in a request, you must specify @LoadTemplateFromURL@ . For more information, see 'CreateProvisioningArtifact' .
+-- * 'papInfo' - The URL of the CloudFormation template in Amazon S3. Specify the URL in JSON format as follows: @"LoadTemplateFromURL": "https://s3.amazonaws.com/cf-templates-ozkq9d3hgiq2-us-east-1/..."@
provisioningArtifactProperties
:: ProvisioningArtifactProperties
provisioningArtifactProperties =
ProvisioningArtifactProperties'
- { _papName = Nothing
- , _papType = Nothing
- , _papDescription = Nothing
- , _papInfo = mempty
- }
+ { _papName = Nothing
+ , _papType = Nothing
+ , _papDescription = Nothing
+ , _papInfo = mempty
+ }
--- | The name assigned to the provisioning artifact properties.
+-- | The name of the provisioning artifact (for example, v1 v2beta). No spaces are allowed.
papName :: Lens' ProvisioningArtifactProperties (Maybe Text)
-papName = lens _papName (\ s a -> s{_papName = a});
+papName = lens _papName (\ s a -> s{_papName = a})
--- | The type of the provisioning artifact properties. The following provisioning artifact property types are used by AWS Marketplace products: @MARKETPLACE_AMI@ - AMI products. @MARKETPLACE_CAR@ - CAR (Cluster and AWS Resources) products.
+-- | The type of provisioning artifact. * @CLOUD_FORMATION_TEMPLATE@ - AWS CloudFormation template * @MARKETPLACE_AMI@ - AWS Marketplace AMI * @MARKETPLACE_CAR@ - AWS Marketplace Clusters and AWS Resources
papType :: Lens' ProvisioningArtifactProperties (Maybe ProvisioningArtifactType)
-papType = lens _papType (\ s a -> s{_papType = a});
+papType = lens _papType (\ s a -> s{_papType = a})
--- | The text description of the provisioning artifact properties.
+-- | The description of the provisioning artifact, including how it differs from the previous provisioning artifact.
papDescription :: Lens' ProvisioningArtifactProperties (Maybe Text)
-papDescription = lens _papDescription (\ s a -> s{_papDescription = a});
+papDescription = lens _papDescription (\ s a -> s{_papDescription = a})
--- | Additional information about the provisioning artifact properties. When using this element in a request, you must specify @LoadTemplateFromURL@ . For more information, see 'CreateProvisioningArtifact' .
+-- | The URL of the CloudFormation template in Amazon S3. Specify the URL in JSON format as follows: @"LoadTemplateFromURL": "https://s3.amazonaws.com/cf-templates-ozkq9d3hgiq2-us-east-1/..."@
papInfo :: Lens' ProvisioningArtifactProperties (HashMap Text Text)
-papInfo = lens _papInfo (\ s a -> s{_papInfo = a}) . _Map;
+papInfo = lens _papInfo (\ s a -> s{_papInfo = a}) . _Map
instance Hashable ProvisioningArtifactProperties
where
@@ -1115,7 +1566,7 @@ instance ToJSON ProvisioningArtifactProperties where
("Description" .=) <$> _papDescription,
Just ("Info" .= _papInfo)])
--- | Stores summary information about a provisioning artifact.
+-- | Summary information about a provisioning artifact (also known as a version) for a product.
--
--
--
@@ -1133,9 +1584,9 @@ data ProvisioningArtifactSummary = ProvisioningArtifactSummary'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'pasProvisioningArtifactMetadata' - The provisioning artifact metadata. This data is used with products created by AWS Marketplace.
+-- * 'pasProvisioningArtifactMetadata' - The metadata for the provisioning artifact. This is used with AWS Marketplace products.
--
--- * 'pasCreatedTime' - The UTC timestamp of the creation time.
+-- * 'pasCreatedTime' - The UTC time stamp of the creation time.
--
-- * 'pasName' - The name of the provisioning artifact.
--
@@ -1146,33 +1597,33 @@ provisioningArtifactSummary
:: ProvisioningArtifactSummary
provisioningArtifactSummary =
ProvisioningArtifactSummary'
- { _pasProvisioningArtifactMetadata = Nothing
- , _pasCreatedTime = Nothing
- , _pasName = Nothing
- , _pasId = Nothing
- , _pasDescription = Nothing
- }
+ { _pasProvisioningArtifactMetadata = Nothing
+ , _pasCreatedTime = Nothing
+ , _pasName = Nothing
+ , _pasId = Nothing
+ , _pasDescription = Nothing
+ }
--- | The provisioning artifact metadata. This data is used with products created by AWS Marketplace.
+-- | The metadata for the provisioning artifact. This is used with AWS Marketplace products.
pasProvisioningArtifactMetadata :: Lens' ProvisioningArtifactSummary (HashMap Text Text)
-pasProvisioningArtifactMetadata = lens _pasProvisioningArtifactMetadata (\ s a -> s{_pasProvisioningArtifactMetadata = a}) . _Default . _Map;
+pasProvisioningArtifactMetadata = lens _pasProvisioningArtifactMetadata (\ s a -> s{_pasProvisioningArtifactMetadata = a}) . _Default . _Map
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
pasCreatedTime :: Lens' ProvisioningArtifactSummary (Maybe UTCTime)
-pasCreatedTime = lens _pasCreatedTime (\ s a -> s{_pasCreatedTime = a}) . mapping _Time;
+pasCreatedTime = lens _pasCreatedTime (\ s a -> s{_pasCreatedTime = a}) . mapping _Time
-- | The name of the provisioning artifact.
pasName :: Lens' ProvisioningArtifactSummary (Maybe Text)
-pasName = lens _pasName (\ s a -> s{_pasName = a});
+pasName = lens _pasName (\ s a -> s{_pasName = a})
-- | The identifier of the provisioning artifact.
pasId :: Lens' ProvisioningArtifactSummary (Maybe Text)
-pasId = lens _pasId (\ s a -> s{_pasId = a});
+pasId = lens _pasId (\ s a -> s{_pasId = a})
-- | The description of the provisioning artifact.
pasDescription :: Lens' ProvisioningArtifactSummary (Maybe Text)
-pasDescription = lens _pasDescription (\ s a -> s{_pasDescription = a});
+pasDescription = lens _pasDescription (\ s a -> s{_pasDescription = a})
instance FromJSON ProvisioningArtifactSummary where
parseJSON
@@ -1189,7 +1640,7 @@ instance Hashable ProvisioningArtifactSummary where
instance NFData ProvisioningArtifactSummary where
--- | The parameter key-value pairs used to provision a product.
+-- | Information about a parameter used to provision a product.
--
--
--
@@ -1204,22 +1655,22 @@ data ProvisioningParameter = ProvisioningParameter'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'ppValue' - The value to use for provisioning. Any constraints on this value can be found in @ProvisioningArtifactParameter@ for @Key@ .
+-- * 'ppValue' - The parameter value.
--
--- * 'ppKey' - The @ProvisioningArtifactParameter.ParameterKey@ parameter from 'DescribeProvisioningParameters' .
+-- * 'ppKey' - The parameter key.
provisioningParameter
:: ProvisioningParameter
provisioningParameter =
ProvisioningParameter' {_ppValue = Nothing, _ppKey = Nothing}
--- | The value to use for provisioning. Any constraints on this value can be found in @ProvisioningArtifactParameter@ for @Key@ .
+-- | The parameter value.
ppValue :: Lens' ProvisioningParameter (Maybe Text)
-ppValue = lens _ppValue (\ s a -> s{_ppValue = a});
+ppValue = lens _ppValue (\ s a -> s{_ppValue = a})
--- | The @ProvisioningArtifactParameter.ParameterKey@ parameter from 'DescribeProvisioningParameters' .
+-- | The parameter key.
ppKey :: Lens' ProvisioningParameter (Maybe Text)
-ppKey = lens _ppKey (\ s a -> s{_ppKey = a});
+ppKey = lens _ppKey (\ s a -> s{_ppKey = a})
instance Hashable ProvisioningParameter where
@@ -1231,7 +1682,7 @@ instance ToJSON ProvisioningParameter where
(catMaybes
[("Value" .=) <$> _ppValue, ("Key" .=) <$> _ppKey])
--- | The full details of a specific ProvisionedProduct object.
+-- | Information about a request operation.
--
--
--
@@ -1257,102 +1708,102 @@ data RecordDetail = RecordDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'rdStatus' - The status of the ProvisionedProduct object. @CREATED@ - Request created but the operation has not yet started. @IN_PROGRESS@ - The requested operation is in-progress. @IN_PROGRESS_IN_ERROR@ - The provisioned product is under change but the requested operation failed and some remediation is occurring. For example, a rollback. @SUCCEEDED@ - The requested operation has successfully completed. @FAILED@ - The requested operation has completed but has failed. Investigate using the error messages returned.
+-- * 'rdStatus' - The status of the provisioned product. * @CREATED@ - The request was created but the operation has not started. * @IN_PROGRESS@ - The requested operation is in progress. * @IN_PROGRESS_IN_ERROR@ - The provisioned product is under change but the requested operation failed and some remediation is occurring. For example, a rollback. * @SUCCEEDED@ - The requested operation has successfully completed. * @FAILED@ - The requested operation has unsuccessfully completed. Investigate using the error messages returned.
--
--- * 'rdRecordTags' - List of tags associated with this record.
+-- * 'rdRecordTags' - One or more tags.
--
--- * 'rdProvisionedProductName' - The user-friendly name of the ProvisionedProduct object.
+-- * 'rdProvisionedProductName' - The user-friendly name of the provisioned product.
--
--- * 'rdProvisioningArtifactId' - The provisioning artifact identifier for this product. This is sometimes referred to as the product version.
+-- * 'rdProvisioningArtifactId' - The identifier of the provisioning artifact.
--
--- * 'rdCreatedTime' - The UTC timestamp of the creation time.
+-- * 'rdCreatedTime' - The UTC time stamp of the creation time.
--
--- * 'rdRecordType' - The record type for this record.
+-- * 'rdRecordType' - The record type. * @PROVISION_PRODUCT@ * @UPDATE_PROVISIONED_PRODUCT@ * @TERMINATE_PROVISIONED_PRODUCT@
--
--- * 'rdRecordId' - The identifier of the ProvisionedProduct object record.
+-- * 'rdRecordId' - The identifier of the record.
--
--- * 'rdProvisionedProductType' - The type of the ProvisionedProduct object.
+-- * 'rdProvisionedProductType' - The type of provisioned product. The supported value is @CFN_STACK@ .
--
--- * 'rdUpdatedTime' - The time when the record for the ProvisionedProduct object was last updated.
+-- * 'rdUpdatedTime' - The time when the record was last updated.
--
--- * 'rdPathId' - The identifier of the path for this product's provisioning.
+-- * 'rdPathId' - The path identifier.
--
--- * 'rdProvisionedProductId' - The identifier of the ProvisionedProduct object.
+-- * 'rdProvisionedProductId' - The identifier of the provisioned product.
--
--- * 'rdRecordErrors' - A list of errors that occurred while processing the request.
+-- * 'rdRecordErrors' - The errors that occurred.
--
-- * 'rdProductId' - The product identifier.
recordDetail
:: RecordDetail
recordDetail =
RecordDetail'
- { _rdStatus = Nothing
- , _rdRecordTags = Nothing
- , _rdProvisionedProductName = Nothing
- , _rdProvisioningArtifactId = Nothing
- , _rdCreatedTime = Nothing
- , _rdRecordType = Nothing
- , _rdRecordId = Nothing
- , _rdProvisionedProductType = Nothing
- , _rdUpdatedTime = Nothing
- , _rdPathId = Nothing
- , _rdProvisionedProductId = Nothing
- , _rdRecordErrors = Nothing
- , _rdProductId = Nothing
- }
-
-
--- | The status of the ProvisionedProduct object. @CREATED@ - Request created but the operation has not yet started. @IN_PROGRESS@ - The requested operation is in-progress. @IN_PROGRESS_IN_ERROR@ - The provisioned product is under change but the requested operation failed and some remediation is occurring. For example, a rollback. @SUCCEEDED@ - The requested operation has successfully completed. @FAILED@ - The requested operation has completed but has failed. Investigate using the error messages returned.
+ { _rdStatus = Nothing
+ , _rdRecordTags = Nothing
+ , _rdProvisionedProductName = Nothing
+ , _rdProvisioningArtifactId = Nothing
+ , _rdCreatedTime = Nothing
+ , _rdRecordType = Nothing
+ , _rdRecordId = Nothing
+ , _rdProvisionedProductType = Nothing
+ , _rdUpdatedTime = Nothing
+ , _rdPathId = Nothing
+ , _rdProvisionedProductId = Nothing
+ , _rdRecordErrors = Nothing
+ , _rdProductId = Nothing
+ }
+
+
+-- | The status of the provisioned product. * @CREATED@ - The request was created but the operation has not started. * @IN_PROGRESS@ - The requested operation is in progress. * @IN_PROGRESS_IN_ERROR@ - The provisioned product is under change but the requested operation failed and some remediation is occurring. For example, a rollback. * @SUCCEEDED@ - The requested operation has successfully completed. * @FAILED@ - The requested operation has unsuccessfully completed. Investigate using the error messages returned.
rdStatus :: Lens' RecordDetail (Maybe RecordStatus)
-rdStatus = lens _rdStatus (\ s a -> s{_rdStatus = a});
+rdStatus = lens _rdStatus (\ s a -> s{_rdStatus = a})
--- | List of tags associated with this record.
+-- | One or more tags.
rdRecordTags :: Lens' RecordDetail [RecordTag]
-rdRecordTags = lens _rdRecordTags (\ s a -> s{_rdRecordTags = a}) . _Default . _Coerce;
+rdRecordTags = lens _rdRecordTags (\ s a -> s{_rdRecordTags = a}) . _Default . _Coerce
--- | The user-friendly name of the ProvisionedProduct object.
+-- | The user-friendly name of the provisioned product.
rdProvisionedProductName :: Lens' RecordDetail (Maybe Text)
-rdProvisionedProductName = lens _rdProvisionedProductName (\ s a -> s{_rdProvisionedProductName = a});
+rdProvisionedProductName = lens _rdProvisionedProductName (\ s a -> s{_rdProvisionedProductName = a})
--- | The provisioning artifact identifier for this product. This is sometimes referred to as the product version.
+-- | The identifier of the provisioning artifact.
rdProvisioningArtifactId :: Lens' RecordDetail (Maybe Text)
-rdProvisioningArtifactId = lens _rdProvisioningArtifactId (\ s a -> s{_rdProvisioningArtifactId = a});
+rdProvisioningArtifactId = lens _rdProvisioningArtifactId (\ s a -> s{_rdProvisioningArtifactId = a})
--- | The UTC timestamp of the creation time.
+-- | The UTC time stamp of the creation time.
rdCreatedTime :: Lens' RecordDetail (Maybe UTCTime)
-rdCreatedTime = lens _rdCreatedTime (\ s a -> s{_rdCreatedTime = a}) . mapping _Time;
+rdCreatedTime = lens _rdCreatedTime (\ s a -> s{_rdCreatedTime = a}) . mapping _Time
--- | The record type for this record.
+-- | The record type. * @PROVISION_PRODUCT@ * @UPDATE_PROVISIONED_PRODUCT@ * @TERMINATE_PROVISIONED_PRODUCT@
rdRecordType :: Lens' RecordDetail (Maybe Text)
-rdRecordType = lens _rdRecordType (\ s a -> s{_rdRecordType = a});
+rdRecordType = lens _rdRecordType (\ s a -> s{_rdRecordType = a})
--- | The identifier of the ProvisionedProduct object record.
+-- | The identifier of the record.
rdRecordId :: Lens' RecordDetail (Maybe Text)
-rdRecordId = lens _rdRecordId (\ s a -> s{_rdRecordId = a});
+rdRecordId = lens _rdRecordId (\ s a -> s{_rdRecordId = a})
--- | The type of the ProvisionedProduct object.
+-- | The type of provisioned product. The supported value is @CFN_STACK@ .
rdProvisionedProductType :: Lens' RecordDetail (Maybe Text)
-rdProvisionedProductType = lens _rdProvisionedProductType (\ s a -> s{_rdProvisionedProductType = a});
+rdProvisionedProductType = lens _rdProvisionedProductType (\ s a -> s{_rdProvisionedProductType = a})
--- | The time when the record for the ProvisionedProduct object was last updated.
+-- | The time when the record was last updated.
rdUpdatedTime :: Lens' RecordDetail (Maybe UTCTime)
-rdUpdatedTime = lens _rdUpdatedTime (\ s a -> s{_rdUpdatedTime = a}) . mapping _Time;
+rdUpdatedTime = lens _rdUpdatedTime (\ s a -> s{_rdUpdatedTime = a}) . mapping _Time
--- | The identifier of the path for this product's provisioning.
+-- | The path identifier.
rdPathId :: Lens' RecordDetail (Maybe Text)
-rdPathId = lens _rdPathId (\ s a -> s{_rdPathId = a});
+rdPathId = lens _rdPathId (\ s a -> s{_rdPathId = a})
--- | The identifier of the ProvisionedProduct object.
+-- | The identifier of the provisioned product.
rdProvisionedProductId :: Lens' RecordDetail (Maybe Text)
-rdProvisionedProductId = lens _rdProvisionedProductId (\ s a -> s{_rdProvisionedProductId = a});
+rdProvisionedProductId = lens _rdProvisionedProductId (\ s a -> s{_rdProvisionedProductId = a})
--- | A list of errors that occurred while processing the request.
+-- | The errors that occurred.
rdRecordErrors :: Lens' RecordDetail [RecordError]
-rdRecordErrors = lens _rdRecordErrors (\ s a -> s{_rdRecordErrors = a}) . _Default . _Coerce;
+rdRecordErrors = lens _rdRecordErrors (\ s a -> s{_rdRecordErrors = a}) . _Default . _Coerce
-- | The product identifier.
rdProductId :: Lens' RecordDetail (Maybe Text)
-rdProductId = lens _rdProductId (\ s a -> s{_rdProductId = a});
+rdProductId = lens _rdProductId (\ s a -> s{_rdProductId = a})
instance FromJSON RecordDetail where
parseJSON
@@ -1393,7 +1844,7 @@ data RecordError = RecordError'
--
-- * 'reCode' - The numeric value of the error.
--
--- * 'reDescription' - The text description of the error.
+-- * 'reDescription' - The description of the error.
recordError
:: RecordError
recordError = RecordError' {_reCode = Nothing, _reDescription = Nothing}
@@ -1401,11 +1852,11 @@ recordError = RecordError' {_reCode = Nothing, _reDescription = Nothing}
-- | The numeric value of the error.
reCode :: Lens' RecordError (Maybe Text)
-reCode = lens _reCode (\ s a -> s{_reCode = a});
+reCode = lens _reCode (\ s a -> s{_reCode = a})
--- | The text description of the error.
+-- | The description of the error.
reDescription :: Lens' RecordError (Maybe Text)
-reDescription = lens _reDescription (\ s a -> s{_reDescription = a});
+reDescription = lens _reDescription (\ s a -> s{_reDescription = a})
instance FromJSON RecordError where
parseJSON
@@ -1418,7 +1869,7 @@ instance Hashable RecordError where
instance NFData RecordError where
--- | An output 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.
+-- | The output for 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.
--
--
--
@@ -1438,25 +1889,25 @@ data RecordOutput = RecordOutput'
--
-- * 'roOutputKey' - The output key.
--
--- * 'roDescription' - The text description of the output.
+-- * 'roDescription' - The description of the output.
recordOutput
:: RecordOutput
recordOutput =
RecordOutput'
- {_roOutputValue = Nothing, _roOutputKey = Nothing, _roDescription = Nothing}
+ {_roOutputValue = Nothing, _roOutputKey = Nothing, _roDescription = Nothing}
-- | The output value.
roOutputValue :: Lens' RecordOutput (Maybe Text)
-roOutputValue = lens _roOutputValue (\ s a -> s{_roOutputValue = a});
+roOutputValue = lens _roOutputValue (\ s a -> s{_roOutputValue = a})
-- | The output key.
roOutputKey :: Lens' RecordOutput (Maybe Text)
-roOutputKey = lens _roOutputKey (\ s a -> s{_roOutputKey = a});
+roOutputKey = lens _roOutputKey (\ s a -> s{_roOutputKey = a})
--- | The text description of the output.
+-- | The description of the output.
roDescription :: Lens' RecordOutput (Maybe Text)
-roDescription = lens _roDescription (\ s a -> s{_roDescription = a});
+roDescription = lens _roDescription (\ s a -> s{_roDescription = a})
instance FromJSON RecordOutput where
parseJSON
@@ -1470,7 +1921,7 @@ instance Hashable RecordOutput where
instance NFData RecordOutput where
--- | A tag associated with the record, stored as a key-value pair.
+-- | Information about a tag, which is a key-value pair.
--
--
--
@@ -1495,11 +1946,11 @@ recordTag = RecordTag' {_rtValue = Nothing, _rtKey = Nothing}
-- | The value for this tag.
rtValue :: Lens' RecordTag (Maybe Text)
-rtValue = lens _rtValue (\ s a -> s{_rtValue = a});
+rtValue = lens _rtValue (\ s a -> s{_rtValue = a})
-- | The key for this tag.
rtKey :: Lens' RecordTag (Maybe Text)
-rtKey = lens _rtKey (\ s a -> s{_rtKey = a});
+rtKey = lens _rtKey (\ s a -> s{_rtKey = a})
instance FromJSON RecordTag where
parseJSON
@@ -1511,7 +1962,154 @@ instance Hashable RecordTag where
instance NFData RecordTag where
--- | Detailed resource information.
+-- | Information about a resource change that will occur when a plan is executed.
+--
+--
+--
+-- /See:/ 'resourceChange' smart constructor.
+data ResourceChange = ResourceChange'
+ { _rcLogicalResourceId :: !(Maybe Text)
+ , _rcPhysicalResourceId :: !(Maybe Text)
+ , _rcResourceType :: !(Maybe Text)
+ , _rcAction :: !(Maybe ChangeAction)
+ , _rcScope :: !(Maybe [ResourceAttribute])
+ , _rcDetails :: !(Maybe [ResourceChangeDetail])
+ , _rcReplacement :: !(Maybe Replacement)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ResourceChange' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rcLogicalResourceId' - The ID of the resource, as defined in the CloudFormation template.
+--
+-- * 'rcPhysicalResourceId' - The ID of the resource, if it was already created.
+--
+-- * 'rcResourceType' - The type of resource.
+--
+-- * 'rcAction' - The change action.
+--
+-- * 'rcScope' - The change scope.
+--
+-- * 'rcDetails' - Information about the resource changes.
+--
+-- * 'rcReplacement' - If the change type is @Modify@ , indicates whether the existing resource is deleted and replaced with a new one.
+resourceChange
+ :: ResourceChange
+resourceChange =
+ ResourceChange'
+ { _rcLogicalResourceId = Nothing
+ , _rcPhysicalResourceId = Nothing
+ , _rcResourceType = Nothing
+ , _rcAction = Nothing
+ , _rcScope = Nothing
+ , _rcDetails = Nothing
+ , _rcReplacement = Nothing
+ }
+
+
+-- | The ID of the resource, as defined in the CloudFormation template.
+rcLogicalResourceId :: Lens' ResourceChange (Maybe Text)
+rcLogicalResourceId = lens _rcLogicalResourceId (\ s a -> s{_rcLogicalResourceId = a})
+
+-- | The ID of the resource, if it was already created.
+rcPhysicalResourceId :: Lens' ResourceChange (Maybe Text)
+rcPhysicalResourceId = lens _rcPhysicalResourceId (\ s a -> s{_rcPhysicalResourceId = a})
+
+-- | The type of resource.
+rcResourceType :: Lens' ResourceChange (Maybe Text)
+rcResourceType = lens _rcResourceType (\ s a -> s{_rcResourceType = a})
+
+-- | The change action.
+rcAction :: Lens' ResourceChange (Maybe ChangeAction)
+rcAction = lens _rcAction (\ s a -> s{_rcAction = a})
+
+-- | The change scope.
+rcScope :: Lens' ResourceChange [ResourceAttribute]
+rcScope = lens _rcScope (\ s a -> s{_rcScope = a}) . _Default . _Coerce
+
+-- | Information about the resource changes.
+rcDetails :: Lens' ResourceChange [ResourceChangeDetail]
+rcDetails = lens _rcDetails (\ s a -> s{_rcDetails = a}) . _Default . _Coerce
+
+-- | If the change type is @Modify@ , indicates whether the existing resource is deleted and replaced with a new one.
+rcReplacement :: Lens' ResourceChange (Maybe Replacement)
+rcReplacement = lens _rcReplacement (\ s a -> s{_rcReplacement = a})
+
+instance FromJSON ResourceChange where
+ parseJSON
+ = withObject "ResourceChange"
+ (\ x ->
+ ResourceChange' <$>
+ (x .:? "LogicalResourceId") <*>
+ (x .:? "PhysicalResourceId")
+ <*> (x .:? "ResourceType")
+ <*> (x .:? "Action")
+ <*> (x .:? "Scope" .!= mempty)
+ <*> (x .:? "Details" .!= mempty)
+ <*> (x .:? "Replacement"))
+
+instance Hashable ResourceChange where
+
+instance NFData ResourceChange where
+
+-- | Information about a change to a resource attribute.
+--
+--
+--
+-- /See:/ 'resourceChangeDetail' smart constructor.
+data ResourceChangeDetail = ResourceChangeDetail'
+ { _rcdCausingEntity :: !(Maybe Text)
+ , _rcdEvaluation :: !(Maybe EvaluationType)
+ , _rcdTarget :: !(Maybe ResourceTargetDefinition)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ResourceChangeDetail' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rcdCausingEntity' - The ID of the entity that caused the change.
+--
+-- * 'rcdEvaluation' - For static evaluations, the value of the resource attribute will change and the new value is known. For dynamic evaluations, the value might change, and any new value will be determined when the plan is updated.
+--
+-- * 'rcdTarget' - Information about the resource attribute to be modified.
+resourceChangeDetail
+ :: ResourceChangeDetail
+resourceChangeDetail =
+ ResourceChangeDetail'
+ { _rcdCausingEntity = Nothing
+ , _rcdEvaluation = Nothing
+ , _rcdTarget = Nothing
+ }
+
+
+-- | The ID of the entity that caused the change.
+rcdCausingEntity :: Lens' ResourceChangeDetail (Maybe Text)
+rcdCausingEntity = lens _rcdCausingEntity (\ s a -> s{_rcdCausingEntity = a})
+
+-- | For static evaluations, the value of the resource attribute will change and the new value is known. For dynamic evaluations, the value might change, and any new value will be determined when the plan is updated.
+rcdEvaluation :: Lens' ResourceChangeDetail (Maybe EvaluationType)
+rcdEvaluation = lens _rcdEvaluation (\ s a -> s{_rcdEvaluation = a})
+
+-- | Information about the resource attribute to be modified.
+rcdTarget :: Lens' ResourceChangeDetail (Maybe ResourceTargetDefinition)
+rcdTarget = lens _rcdTarget (\ s a -> s{_rcdTarget = a})
+
+instance FromJSON ResourceChangeDetail where
+ parseJSON
+ = withObject "ResourceChangeDetail"
+ (\ x ->
+ ResourceChangeDetail' <$>
+ (x .:? "CausingEntity") <*> (x .:? "Evaluation") <*>
+ (x .:? "Target"))
+
+instance Hashable ResourceChangeDetail where
+
+instance NFData ResourceChangeDetail where
+
+-- | Information about a resource.
--
--
--
@@ -1529,46 +2127,46 @@ data ResourceDetail = ResourceDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'rARN' - ARN of the resource.
+-- * 'rARN' - The ARN of the resource.
--
--- * 'rCreatedTime' - Creation time of the resource.
+-- * 'rCreatedTime' - The creation time of the resource.
--
--- * 'rName' - Name of the resource.
+-- * 'rName' - The name of the resource.
--
--- * 'rId' - Identifier of the resource.
+-- * 'rId' - The identifier of the resource.
--
--- * 'rDescription' - Description of the resource.
+-- * 'rDescription' - The description of the resource.
resourceDetail
:: ResourceDetail
resourceDetail =
ResourceDetail'
- { _rARN = Nothing
- , _rCreatedTime = Nothing
- , _rName = Nothing
- , _rId = Nothing
- , _rDescription = Nothing
- }
+ { _rARN = Nothing
+ , _rCreatedTime = Nothing
+ , _rName = Nothing
+ , _rId = Nothing
+ , _rDescription = Nothing
+ }
--- | ARN of the resource.
+-- | The ARN of the resource.
rARN :: Lens' ResourceDetail (Maybe Text)
-rARN = lens _rARN (\ s a -> s{_rARN = a});
+rARN = lens _rARN (\ s a -> s{_rARN = a})
--- | Creation time of the resource.
+-- | The creation time of the resource.
rCreatedTime :: Lens' ResourceDetail (Maybe UTCTime)
-rCreatedTime = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a}) . mapping _Time;
+rCreatedTime = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a}) . mapping _Time
--- | Name of the resource.
+-- | The name of the resource.
rName :: Lens' ResourceDetail (Maybe Text)
-rName = lens _rName (\ s a -> s{_rName = a});
+rName = lens _rName (\ s a -> s{_rName = a})
--- | Identifier of the resource.
+-- | The identifier of the resource.
rId :: Lens' ResourceDetail (Maybe Text)
-rId = lens _rId (\ s a -> s{_rId = a});
+rId = lens _rId (\ s a -> s{_rId = a})
--- | Description of the resource.
+-- | The description of the resource.
rDescription :: Lens' ResourceDetail (Maybe Text)
-rDescription = lens _rDescription (\ s a -> s{_rDescription = a});
+rDescription = lens _rDescription (\ s a -> s{_rDescription = a})
instance FromJSON ResourceDetail where
parseJSON
@@ -1584,7 +2182,62 @@ instance Hashable ResourceDetail where
instance NFData ResourceDetail where
--- | Key-value pairs to associate with this provisioning. These tags are entirely discretionary and are propagated to the resources created in the provisioning.
+-- | Information about a change to a resource attribute.
+--
+--
+--
+-- /See:/ 'resourceTargetDefinition' smart constructor.
+data ResourceTargetDefinition = ResourceTargetDefinition'
+ { _rtdAttribute :: !(Maybe ResourceAttribute)
+ , _rtdRequiresRecreation :: !(Maybe RequiresRecreation)
+ , _rtdName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ResourceTargetDefinition' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rtdAttribute' - The attribute to be changed.
+--
+-- * 'rtdRequiresRecreation' - If the attribute is @Properties@ , indicates whether a change to this property causes the resource to be re-created.
+--
+-- * 'rtdName' - If the attribute is @Properties@ , the value is the name of the property. Otherwise, the value is null.
+resourceTargetDefinition
+ :: ResourceTargetDefinition
+resourceTargetDefinition =
+ ResourceTargetDefinition'
+ { _rtdAttribute = Nothing
+ , _rtdRequiresRecreation = Nothing
+ , _rtdName = Nothing
+ }
+
+
+-- | The attribute to be changed.
+rtdAttribute :: Lens' ResourceTargetDefinition (Maybe ResourceAttribute)
+rtdAttribute = lens _rtdAttribute (\ s a -> s{_rtdAttribute = a})
+
+-- | If the attribute is @Properties@ , indicates whether a change to this property causes the resource to be re-created.
+rtdRequiresRecreation :: Lens' ResourceTargetDefinition (Maybe RequiresRecreation)
+rtdRequiresRecreation = lens _rtdRequiresRecreation (\ s a -> s{_rtdRequiresRecreation = a})
+
+-- | If the attribute is @Properties@ , the value is the name of the property. Otherwise, the value is null.
+rtdName :: Lens' ResourceTargetDefinition (Maybe Text)
+rtdName = lens _rtdName (\ s a -> s{_rtdName = a})
+
+instance FromJSON ResourceTargetDefinition where
+ parseJSON
+ = withObject "ResourceTargetDefinition"
+ (\ x ->
+ ResourceTargetDefinition' <$>
+ (x .:? "Attribute") <*> (x .:? "RequiresRecreation")
+ <*> (x .:? "Name"))
+
+instance Hashable ResourceTargetDefinition where
+
+instance NFData ResourceTargetDefinition where
+
+-- | Information about a tag. A tag is a key-value pair. Tags are propagated to the resources created when provisioning a product.
--
--
--
@@ -1599,9 +2252,9 @@ data Tag = Tag'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'tagKey' - The @ProvisioningArtifactParameter.TagKey@ parameter from 'DescribeProvisioningParameters' .
+-- * 'tagKey' - The tag key.
--
--- * 'tagValue' - The desired value for this key.
+-- * 'tagValue' - The value for this key.
tag
:: Text -- ^ 'tagKey'
-> Text -- ^ 'tagValue'
@@ -1609,13 +2262,13 @@ tag
tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}
--- | The @ProvisioningArtifactParameter.TagKey@ parameter from 'DescribeProvisioningParameters' .
+-- | The tag key.
tagKey :: Lens' Tag Text
-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
--- | The desired value for this key.
+-- | The value for this key.
tagValue :: Lens' Tag Text
-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
instance FromJSON Tag where
parseJSON
@@ -1633,7 +2286,7 @@ instance ToJSON Tag where
[Just ("Key" .= _tagKey),
Just ("Value" .= _tagValue)])
--- | The TagOption details.
+-- | Information about a TagOption.
--
--
--
@@ -1650,39 +2303,39 @@ data TagOptionDetail = TagOptionDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'todValue' - The TagOptionDetail value.
+-- * 'todValue' - The TagOption value.
--
--- * 'todActive' - The TagOptionDetail active state.
+-- * 'todActive' - The TagOption active state.
--
--- * 'todKey' - The TagOptionDetail key.
+-- * 'todKey' - The TagOption key.
--
--- * 'todId' - The TagOptionDetail identifier.
+-- * 'todId' - The TagOption identifier.
tagOptionDetail
:: TagOptionDetail
tagOptionDetail =
TagOptionDetail'
- { _todValue = Nothing
- , _todActive = Nothing
- , _todKey = Nothing
- , _todId = Nothing
- }
+ { _todValue = Nothing
+ , _todActive = Nothing
+ , _todKey = Nothing
+ , _todId = Nothing
+ }
--- | The TagOptionDetail value.
+-- | The TagOption value.
todValue :: Lens' TagOptionDetail (Maybe Text)
-todValue = lens _todValue (\ s a -> s{_todValue = a});
+todValue = lens _todValue (\ s a -> s{_todValue = a})
--- | The TagOptionDetail active state.
+-- | The TagOption active state.
todActive :: Lens' TagOptionDetail (Maybe Bool)
-todActive = lens _todActive (\ s a -> s{_todActive = a});
+todActive = lens _todActive (\ s a -> s{_todActive = a})
--- | The TagOptionDetail key.
+-- | The TagOption key.
todKey :: Lens' TagOptionDetail (Maybe Text)
-todKey = lens _todKey (\ s a -> s{_todKey = a});
+todKey = lens _todKey (\ s a -> s{_todKey = a})
--- | The TagOptionDetail identifier.
+-- | The TagOption identifier.
todId :: Lens' TagOptionDetail (Maybe Text)
-todId = lens _todId (\ s a -> s{_todId = a});
+todId = lens _todId (\ s a -> s{_todId = a})
instance FromJSON TagOptionDetail where
parseJSON
@@ -1697,7 +2350,7 @@ instance Hashable TagOptionDetail where
instance NFData TagOptionDetail where
--- | The TagOption summary key-value pair.
+-- | Summary information about a TagOption.
--
--
--
@@ -1712,21 +2365,21 @@ data TagOptionSummary = TagOptionSummary'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'tosValues' - The TagOptionSummary value.
+-- * 'tosValues' - The TagOption value.
--
--- * 'tosKey' - The TagOptionSummary key.
+-- * 'tosKey' - The TagOption key.
tagOptionSummary
:: TagOptionSummary
tagOptionSummary = TagOptionSummary' {_tosValues = Nothing, _tosKey = Nothing}
--- | The TagOptionSummary value.
+-- | The TagOption value.
tosValues :: Lens' TagOptionSummary [Text]
-tosValues = lens _tosValues (\ s a -> s{_tosValues = a}) . _Default . _Coerce;
+tosValues = lens _tosValues (\ s a -> s{_tosValues = a}) . _Default . _Coerce
--- | The TagOptionSummary key.
+-- | The TagOption key.
tosKey :: Lens' TagOptionSummary (Maybe Text)
-tosKey = lens _tosKey (\ s a -> s{_tosKey = a});
+tosKey = lens _tosKey (\ s a -> s{_tosKey = a})
instance FromJSON TagOptionSummary where
parseJSON
@@ -1739,7 +2392,7 @@ instance Hashable TagOptionSummary where
instance NFData TagOptionSummary where
--- | The parameter key-value pair used to update a ProvisionedProduct object. If @UsePreviousValue@ is set to true, @Value@ is ignored and the value for @Key@ is kept as previously set (current value).
+-- | The parameter key-value pair used to update a provisioned product.
--
--
--
@@ -1755,29 +2408,37 @@ data UpdateProvisioningParameter = UpdateProvisioningParameter'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'uppValue' - The value to use for updating the product provisioning. Any constraints on this value can be found in the @ProvisioningArtifactParameter@ parameter for @Key@ .
+-- * 'uppValue' - The parameter value.
--
--- * 'uppKey' - The @ProvisioningArtifactParameter.ParameterKey@ parameter from 'DescribeProvisioningParameters' .
+-- * 'uppKey' - The parameter key.
--
--- * 'uppUsePreviousValue' - If true, uses the currently set value for @Key@ , ignoring @UpdateProvisioningParameter.Value@ .
+-- * 'uppUsePreviousValue' - If set to true, @Value@ is ignored and the previous parameter value is kept.
updateProvisioningParameter
:: UpdateProvisioningParameter
updateProvisioningParameter =
UpdateProvisioningParameter'
- {_uppValue = Nothing, _uppKey = Nothing, _uppUsePreviousValue = Nothing}
+ {_uppValue = Nothing, _uppKey = Nothing, _uppUsePreviousValue = Nothing}
--- | The value to use for updating the product provisioning. Any constraints on this value can be found in the @ProvisioningArtifactParameter@ parameter for @Key@ .
+-- | The parameter value.
uppValue :: Lens' UpdateProvisioningParameter (Maybe Text)
-uppValue = lens _uppValue (\ s a -> s{_uppValue = a});
+uppValue = lens _uppValue (\ s a -> s{_uppValue = a})
--- | The @ProvisioningArtifactParameter.ParameterKey@ parameter from 'DescribeProvisioningParameters' .
+-- | The parameter key.
uppKey :: Lens' UpdateProvisioningParameter (Maybe Text)
-uppKey = lens _uppKey (\ s a -> s{_uppKey = a});
+uppKey = lens _uppKey (\ s a -> s{_uppKey = a})
--- | If true, uses the currently set value for @Key@ , ignoring @UpdateProvisioningParameter.Value@ .
+-- | If set to true, @Value@ is ignored and the previous parameter value is kept.
uppUsePreviousValue :: Lens' UpdateProvisioningParameter (Maybe Bool)
-uppUsePreviousValue = lens _uppUsePreviousValue (\ s a -> s{_uppUsePreviousValue = a});
+uppUsePreviousValue = lens _uppUsePreviousValue (\ s a -> s{_uppUsePreviousValue = a})
+
+instance FromJSON UpdateProvisioningParameter where
+ parseJSON
+ = withObject "UpdateProvisioningParameter"
+ (\ x ->
+ UpdateProvisioningParameter' <$>
+ (x .:? "Value") <*> (x .:? "Key") <*>
+ (x .:? "UsePreviousValue"))
instance Hashable UpdateProvisioningParameter where
@@ -1815,11 +2476,11 @@ usageInstruction = UsageInstruction' {_uiValue = Nothing, _uiType = Nothing}
-- | The usage instruction value for this type.
uiValue :: Lens' UsageInstruction (Maybe Text)
-uiValue = lens _uiValue (\ s a -> s{_uiValue = a});
+uiValue = lens _uiValue (\ s a -> s{_uiValue = a})
-- | The usage instruction type for the value.
uiType :: Lens' UsageInstruction (Maybe Text)
-uiType = lens _uiType (\ s a -> s{_uiType = a});
+uiType = lens _uiType (\ s a -> s{_uiType = a})
instance FromJSON UsageInstruction where
parseJSON
diff --git a/gen/Network/AWS/ServiceCatalog/Types/Sum.hs b/gen/Network/AWS/ServiceCatalog/Types/Sum.hs
index 5e4bcfe..bb169de 100644
--- a/gen/Network/AWS/ServiceCatalog/Types/Sum.hs
+++ b/gen/Network/AWS/ServiceCatalog/Types/Sum.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.ServiceCatalog.Types.Sum
--- 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
@@ -49,6 +49,36 @@ instance ToHeader AccessLevelFilterKey
instance ToJSON AccessLevelFilterKey where
toJSON = toJSONText
+data ChangeAction
+ = Add
+ | Modify
+ | Remove
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ChangeAction where
+ parser = takeLowerText >>= \case
+ "add" -> pure Add
+ "modify" -> pure Modify
+ "remove" -> pure Remove
+ e -> fromTextError $ "Failure parsing ChangeAction from value: '" <> e
+ <> "'. Accepted values: add, modify, remove"
+
+instance ToText ChangeAction where
+ toText = \case
+ Add -> "ADD"
+ Modify -> "MODIFY"
+ Remove -> "REMOVE"
+
+instance Hashable ChangeAction
+instance NFData ChangeAction
+instance ToByteString ChangeAction
+instance ToQuery ChangeAction
+instance ToHeader ChangeAction
+
+instance FromJSON ChangeAction where
+ parseJSON = parseJSONText "ChangeAction"
+
data CopyOption =
CopyTags
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
@@ -103,6 +133,33 @@ instance ToHeader CopyProductStatus
instance FromJSON CopyProductStatus where
parseJSON = parseJSONText "CopyProductStatus"
+data EvaluationType
+ = Dynamic
+ | Static
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText EvaluationType where
+ parser = takeLowerText >>= \case
+ "dynamic" -> pure Dynamic
+ "static" -> pure Static
+ e -> fromTextError $ "Failure parsing EvaluationType from value: '" <> e
+ <> "'. Accepted values: dynamic, static"
+
+instance ToText EvaluationType where
+ toText = \case
+ Dynamic -> "DYNAMIC"
+ Static -> "STATIC"
+
+instance Hashable EvaluationType
+instance NFData EvaluationType
+instance ToByteString EvaluationType
+instance ToQuery EvaluationType
+instance ToHeader EvaluationType
+
+instance FromJSON EvaluationType where
+ parseJSON = parseJSONText "EvaluationType"
+
data PrincipalType =
IAM
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
@@ -247,9 +304,76 @@ instance ToHeader ProductViewSortBy
instance ToJSON ProductViewSortBy where
toJSON = toJSONText
+data ProvisionedProductPlanStatus
+ = CreateFailed
+ | CreateInProgress
+ | CreateSuccess
+ | ExecuteFailed
+ | ExecuteInProgress
+ | ExecuteSuccess
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ProvisionedProductPlanStatus where
+ parser = takeLowerText >>= \case
+ "create_failed" -> pure CreateFailed
+ "create_in_progress" -> pure CreateInProgress
+ "create_success" -> pure CreateSuccess
+ "execute_failed" -> pure ExecuteFailed
+ "execute_in_progress" -> pure ExecuteInProgress
+ "execute_success" -> pure ExecuteSuccess
+ e -> fromTextError $ "Failure parsing ProvisionedProductPlanStatus from value: '" <> e
+ <> "'. Accepted values: create_failed, create_in_progress, create_success, execute_failed, execute_in_progress, execute_success"
+
+instance ToText ProvisionedProductPlanStatus where
+ toText = \case
+ CreateFailed -> "CREATE_FAILED"
+ CreateInProgress -> "CREATE_IN_PROGRESS"
+ CreateSuccess -> "CREATE_SUCCESS"
+ ExecuteFailed -> "EXECUTE_FAILED"
+ ExecuteInProgress -> "EXECUTE_IN_PROGRESS"
+ ExecuteSuccess -> "EXECUTE_SUCCESS"
+
+instance Hashable ProvisionedProductPlanStatus
+instance NFData ProvisionedProductPlanStatus
+instance ToByteString ProvisionedProductPlanStatus
+instance ToQuery ProvisionedProductPlanStatus
+instance ToHeader ProvisionedProductPlanStatus
+
+instance FromJSON ProvisionedProductPlanStatus where
+ parseJSON = parseJSONText "ProvisionedProductPlanStatus"
+
+data ProvisionedProductPlanType =
+ Cloudformation
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ProvisionedProductPlanType where
+ parser = takeLowerText >>= \case
+ "cloudformation" -> pure Cloudformation
+ e -> fromTextError $ "Failure parsing ProvisionedProductPlanType from value: '" <> e
+ <> "'. Accepted values: cloudformation"
+
+instance ToText ProvisionedProductPlanType where
+ toText = \case
+ Cloudformation -> "CLOUDFORMATION"
+
+instance Hashable ProvisionedProductPlanType
+instance NFData ProvisionedProductPlanType
+instance ToByteString ProvisionedProductPlanType
+instance ToQuery ProvisionedProductPlanType
+instance ToHeader ProvisionedProductPlanType
+
+instance ToJSON ProvisionedProductPlanType where
+ toJSON = toJSONText
+
+instance FromJSON ProvisionedProductPlanType where
+ parseJSON = parseJSONText "ProvisionedProductPlanType"
+
data ProvisionedProductStatus
= PPSAvailable
| PPSError'
+ | PPSPlanInProgress
| PPSTainted
| PPSUnderChange
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
@@ -259,15 +383,17 @@ instance FromText ProvisionedProductStatus where
parser = takeLowerText >>= \case
"available" -> pure PPSAvailable
"error" -> pure PPSError'
+ "plan_in_progress" -> pure PPSPlanInProgress
"tainted" -> pure PPSTainted
"under_change" -> pure PPSUnderChange
e -> fromTextError $ "Failure parsing ProvisionedProductStatus from value: '" <> e
- <> "'. Accepted values: available, error, tainted, under_change"
+ <> "'. Accepted values: available, error, plan_in_progress, tainted, under_change"
instance ToText ProvisionedProductStatus where
toText = \case
PPSAvailable -> "AVAILABLE"
PPSError' -> "ERROR"
+ PPSPlanInProgress -> "PLAN_IN_PROGRESS"
PPSTainted -> "TAINTED"
PPSUnderChange -> "UNDER_CHANGE"
@@ -280,6 +406,30 @@ instance ToHeader ProvisionedProductStatus
instance FromJSON ProvisionedProductStatus where
parseJSON = parseJSONText "ProvisionedProductStatus"
+data ProvisionedProductViewFilterBy =
+ SearchQuery
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ProvisionedProductViewFilterBy where
+ parser = takeLowerText >>= \case
+ "searchquery" -> pure SearchQuery
+ e -> fromTextError $ "Failure parsing ProvisionedProductViewFilterBy from value: '" <> e
+ <> "'. Accepted values: searchquery"
+
+instance ToText ProvisionedProductViewFilterBy where
+ toText = \case
+ SearchQuery -> "SearchQuery"
+
+instance Hashable ProvisionedProductViewFilterBy
+instance NFData ProvisionedProductViewFilterBy
+instance ToByteString ProvisionedProductViewFilterBy
+instance ToQuery ProvisionedProductViewFilterBy
+instance ToHeader ProvisionedProductViewFilterBy
+
+instance ToJSON ProvisionedProductViewFilterBy where
+ toJSON = toJSONText
+
data ProvisioningArtifactPropertyName =
Id
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
@@ -373,6 +523,36 @@ instance ToHeader RecordStatus
instance FromJSON RecordStatus where
parseJSON = parseJSONText "RecordStatus"
+data Replacement
+ = Conditional
+ | False'
+ | True'
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText Replacement where
+ parser = takeLowerText >>= \case
+ "conditional" -> pure Conditional
+ "false" -> pure False'
+ "true" -> pure True'
+ e -> fromTextError $ "Failure parsing Replacement from value: '" <> e
+ <> "'. Accepted values: conditional, false, true"
+
+instance ToText Replacement where
+ toText = \case
+ Conditional -> "CONDITIONAL"
+ False' -> "FALSE"
+ True' -> "TRUE"
+
+instance Hashable Replacement
+instance NFData Replacement
+instance ToByteString Replacement
+instance ToQuery Replacement
+instance ToHeader Replacement
+
+instance FromJSON Replacement where
+ parseJSON = parseJSONText "Replacement"
+
data RequestStatus
= Available
| Creating
@@ -403,6 +583,75 @@ instance ToHeader RequestStatus
instance FromJSON RequestStatus where
parseJSON = parseJSONText "RequestStatus"
+data RequiresRecreation
+ = Always
+ | Conditionally
+ | Never
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText RequiresRecreation where
+ parser = takeLowerText >>= \case
+ "always" -> pure Always
+ "conditionally" -> pure Conditionally
+ "never" -> pure Never
+ e -> fromTextError $ "Failure parsing RequiresRecreation from value: '" <> e
+ <> "'. Accepted values: always, conditionally, never"
+
+instance ToText RequiresRecreation where
+ toText = \case
+ Always -> "ALWAYS"
+ Conditionally -> "CONDITIONALLY"
+ Never -> "NEVER"
+
+instance Hashable RequiresRecreation
+instance NFData RequiresRecreation
+instance ToByteString RequiresRecreation
+instance ToQuery RequiresRecreation
+instance ToHeader RequiresRecreation
+
+instance FromJSON RequiresRecreation where
+ parseJSON = parseJSONText "RequiresRecreation"
+
+data ResourceAttribute
+ = Creationpolicy
+ | Deletionpolicy
+ | Metadata
+ | Properties
+ | Tags
+ | Updatepolicy
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ResourceAttribute where
+ parser = takeLowerText >>= \case
+ "creationpolicy" -> pure Creationpolicy
+ "deletionpolicy" -> pure Deletionpolicy
+ "metadata" -> pure Metadata
+ "properties" -> pure Properties
+ "tags" -> pure Tags
+ "updatepolicy" -> pure Updatepolicy
+ e -> fromTextError $ "Failure parsing ResourceAttribute from value: '" <> e
+ <> "'. Accepted values: creationpolicy, deletionpolicy, metadata, properties, tags, updatepolicy"
+
+instance ToText ResourceAttribute where
+ toText = \case
+ Creationpolicy -> "CREATIONPOLICY"
+ Deletionpolicy -> "DELETIONPOLICY"
+ Metadata -> "METADATA"
+ Properties -> "PROPERTIES"
+ Tags -> "TAGS"
+ Updatepolicy -> "UPDATEPOLICY"
+
+instance Hashable ResourceAttribute
+instance NFData ResourceAttribute
+instance ToByteString ResourceAttribute
+instance ToQuery ResourceAttribute
+instance ToHeader ResourceAttribute
+
+instance FromJSON ResourceAttribute where
+ parseJSON = parseJSONText "ResourceAttribute"
+
data SortOrder
= Ascending
| Descending
diff --git a/gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs b/gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs
index 055f0da..2c75bf1 100644
--- a/gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs
+++ b/gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.ServiceCatalog.UpdateConstraint
--- 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)
--
--- Updates an existing constraint.
+-- Updates the specified constraint.
--
--
module Network.AWS.ServiceCatalog.UpdateConstraint
@@ -62,28 +62,28 @@ data UpdateConstraint = UpdateConstraint'
--
-- * 'ucAcceptLanguage' - The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
--
--- * 'ucDescription' - The updated text description of the constraint.
+-- * 'ucDescription' - The updated description of the constraint.
--
--- * 'ucId' - The identifier of the constraint to update.
+-- * 'ucId' - The identifier of the constraint.
updateConstraint
:: Text -- ^ 'ucId'
-> UpdateConstraint
updateConstraint pId_ =
UpdateConstraint'
- {_ucAcceptLanguage = Nothing, _ucDescription = Nothing, _ucId = pId_}
+ {_ucAcceptLanguage = Nothing, _ucDescription = Nothing, _ucId = pId_}
-- | The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
ucAcceptLanguage :: Lens' UpdateConstraint (Maybe Text)
-ucAcceptLanguage = lens _ucAcceptLanguage (\ s a -> s{_ucAcceptLanguage = a});
+ucAcceptLanguage = lens _ucAcceptLanguage (\ s a -> s{_ucAcceptLanguage = a})
--- | The updated text description of the constraint.
+-- | The updated description of the constraint.
ucDescription :: Lens' UpdateConstraint (Maybe Text)
-ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a});
+ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a})
--- | The identifier of the constraint to update.
+-- | The identifier of the constraint.
ucId :: Lens' UpdateConstraint Text
-ucId = lens _ucId (\ s a -> s{_ucId = a});
+ucId = lens _ucId (\ s a -> s{_ucId = a})
instance AWSRequest UpdateConstraint where
type Rs UpdateConstraint = UpdateConstraintResponse
@@ -139,9 +139,9 @@ data UpdateConstraintResponse = UpdateConstraintResponse'
--
-- * 'ucrsStatus' - The status of the current request.
--
--- * 'ucrsConstraintDetail' - The resulting detailed constraint information.
+-- * 'ucrsConstraintDetail' - Information about the constraint.
--
--- * 'ucrsConstraintParameters' - The resulting updated constraint parameters.
+-- * 'ucrsConstraintParameters' - The constraint parameters.
--
-- * 'ucrsResponseStatus' - -- | The response status code.
updateConstraintResponse
@@ -149,27 +149,27 @@ updateConstraintResponse
-> UpdateConstraintResponse
updateConstraintResponse pResponseStatus_ =
UpdateConstraintResponse'
- { _ucrsStatus = Nothing
- , _ucrsConstraintDetail = Nothing
- , _ucrsConstraintParameters = Nothing
- , _ucrsResponseStatus = pResponseStatus_
- }
+ { _ucrsStatus = Nothing
+ , _ucrsConstraintDetail = Nothing
+ , _ucrsConstraintParameters = Nothing
+ , _ucrsResponseStatus = pResponseStatus_
+ }
-- | The status of the current request.
ucrsStatus :: Lens' UpdateConstraintResponse (Maybe RequestStatus)
-ucrsStatus = lens _ucrsStatus (\ s a -> s{_ucrsStatus = a});
+ucrsStatus = lens _ucrsStatus (\ s a -> s{_ucrsStatus = a})
--- | The resulting detailed constraint information.
+-- | Information about the constraint.
ucrsConstraintDetail :: Lens' UpdateConstraintResponse (Maybe ConstraintDetail)
-ucrsConstraintDetail = lens _ucrsConstraintDetail (\ s a -> s{_ucrsConstraintDetail = a});
+ucrsConstraintDetail = lens _ucrsConstraintDetail (\ s a -> s{_ucrsConstraintDetail = a})
--- | The resulting updated constraint parameters.
+-- | The constraint parameters.
ucrsConstraintParameters :: Lens' UpdateConstraintResponse (Maybe Text)
-ucrsConstraintParameters = lens _ucrsConstraintParameters (\ s a -> s{_ucrsConstraintParameters = a});
+ucrsConstraintParameters = lens _ucrsConstraintParameters (\ s a -> s{_ucrsConstraintParameters = a})
-- | -- | The response status code.
ucrsResponseStatus :: Lens' UpdateConstraintResponse Int
-ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a});
+ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a})
instance NFData UpdateConstraintResponse where
diff --git a/gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs b/gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs
index 0acceef..1e231d2 100644
--- a/gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs
+++ b/gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.ServiceCatalog.UpdatePortfolio
--- 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)
--
--- Updates the specified portfolio's details. This operation does not work with a product that has been shared with you.
+-- Updates the specified portfolio.
--
--
+-- You cannot update a product that was shared with you.
+--
module Network.AWS.ServiceCatalog.UpdatePortfolio
(
-- * Creating a Request
@@ -67,61 +69,61 @@ data UpdatePortfolio = UpdatePortfolio'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'uRemoveTags' - Tags to remove from the existing list of tags associated with the portfolio.
+-- * 'uRemoveTags' - The tags to remove.
--
-- * 'uAcceptLanguage' - The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
--
-- * 'uDisplayName' - The name to use for display purposes.
--
--- * 'uAddTags' - Tags to add to the existing list of tags associated with the portfolio.
+-- * 'uAddTags' - The tags to add.
--
--- * 'uDescription' - The updated text description of the portfolio.
+-- * 'uDescription' - The updated description of the portfolio.
--
-- * 'uProviderName' - The updated name of the portfolio provider.
--
--- * 'uId' - The identifier of the portfolio for the update request.
+-- * 'uId' - The portfolio identifier.
updatePortfolio
:: Text -- ^ 'uId'
-> UpdatePortfolio
updatePortfolio pId_ =
UpdatePortfolio'
- { _uRemoveTags = Nothing
- , _uAcceptLanguage = Nothing
- , _uDisplayName = Nothing
- , _uAddTags = Nothing
- , _uDescription = Nothing
- , _uProviderName = Nothing
- , _uId = pId_
- }
+ { _uRemoveTags = Nothing
+ , _uAcceptLanguage = Nothing
+ , _uDisplayName = Nothing
+ , _uAddTags = Nothing
+ , _uDescription = Nothing
+ , _uProviderName = Nothing
+ , _uId = pId_
+ }
--- | Tags to remove from the existing list of tags associated with the portfolio.
+-- | The tags to remove.
uRemoveTags :: Lens' UpdatePortfolio [Text]
-uRemoveTags = lens _uRemoveTags (\ s a -> s{_uRemoveTags = a}) . _Default . _Coerce;
+uRemoveTags = lens _uRemoveTags (\ s a -> s{_uRemoveTags = a}) . _Default . _Coerce
-- | The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
uAcceptLanguage :: Lens' UpdatePortfolio (Maybe Text)
-uAcceptLanguage = lens _uAcceptLanguage (\ s a -> s{_uAcceptLanguage = a});
+uAcceptLanguage = lens _uAcceptLanguage (\ s a -> s{_uAcceptLanguage = a})
-- | The name to use for display purposes.
uDisplayName :: Lens' UpdatePortfolio (Maybe Text)
-uDisplayName = lens _uDisplayName (\ s a -> s{_uDisplayName = a});
+uDisplayName = lens _uDisplayName (\ s a -> s{_uDisplayName = a})
--- | Tags to add to the existing list of tags associated with the portfolio.
+-- | The tags to add.
uAddTags :: Lens' UpdatePortfolio [Tag]
-uAddTags = lens _uAddTags (\ s a -> s{_uAddTags = a}) . _Default . _Coerce;
+uAddTags = lens _uAddTags (\ s a -> s{_uAddTags = a}) . _Default . _Coerce
--- | The updated text description of the portfolio.
+-- | The updated description of the portfolio.
uDescription :: Lens' UpdatePortfolio (Maybe Text)
-uDescription = lens _uDescription (\ s a -> s{_uDescription = a});
+uDescription = lens _uDescription (\ s a -> s{_uDescription = a})
-- | The updated name of the portfolio provider.
uProviderName :: Lens' UpdatePortfolio (Maybe Text)
-uProviderName = lens _uProviderName (\ s a -> s{_uProviderName = a});
+uProviderName = lens _uProviderName (\ s a -> s{_uProviderName = a})
--- | The identifier of the portfolio for the update request.
+-- | The portfolio identifier.
uId :: Lens' UpdatePortfolio Text
-uId = lens _uId (\ s a -> s{_uId = a});
+uId = lens _uId (\ s a -> s{_uId = a})
instance AWSRequest UpdatePortfolio where
type Rs UpdatePortfolio = UpdatePortfolioResponse
@@ -178,9 +180,9 @@ data UpdatePortfolioResponse = UpdatePortfolioResponse'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'uprsPortfolioDetail' - The resulting detailed portfolio information.
+-- * 'uprsPortfolioDetail' - Information about the portfolio.
--
--- * 'uprsTags' - Tags associated with the portfolio.
+-- * 'uprsTags' - Information about the tags associated with the portfolio.
--
-- * 'uprsResponseStatus' - -- | The response status code.
updatePortfolioResponse
@@ -188,22 +190,22 @@ updatePortfolioResponse
-> UpdatePortfolioResponse
updatePortfolioResponse pResponseStatus_ =
UpdatePortfolioResponse'
- { _uprsPortfolioDetail = Nothing
- , _uprsTags = Nothing
- , _uprsResponseStatus = pResponseStatus_
- }
+ { _uprsPortfolioDetail = Nothing
+ , _uprsTags = Nothing
+ , _uprsResponseStatus = pResponseStatus_
+ }
--- | The resulting detailed portfolio information.
+-- | Information about the portfolio.
uprsPortfolioDetail :: Lens' UpdatePortfolioResponse (Maybe PortfolioDetail)
-uprsPortfolioDetail = lens _uprsPortfolioDetail (\ s a -> s{_uprsPortfolioDetail = a});
+uprsPortfolioDetail = lens _uprsPortfolioDetail (\ s a -> s{_uprsPortfolioDetail = a})
--- | Tags associated with the portfolio.
+-- | Information about the tags associated with the portfolio.
uprsTags :: Lens' UpdatePortfolioResponse [Tag]
-uprsTags = lens _uprsTags (\ s a -> s{_uprsTags = a}) . _Default . _Coerce;
+uprsTags = lens _uprsTags (\ s a -> s{_uprsTags = a}) . _Default . _Coerce
-- | -- | The response status code.
uprsResponseStatus :: Lens' UpdatePortfolioResponse Int
-uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});
+uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a})
instance NFData UpdatePortfolioResponse where
diff --git a/gen/Network/AWS/ServiceCatalog/UpdateProduct.hs b/gen/Network/AWS/ServiceCatalog/UpdateProduct.hs
index 4ca4895..a85645e 100644
--- a/gen/Network/AWS/ServiceCatalog/UpdateProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/UpdateProduct.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.ServiceCatalog.UpdateProduct
--- 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)
--
--- Updates an existing product.
+-- Updates the specified product.
--
--
module Network.AWS.ServiceCatalog.UpdateProduct
@@ -75,7 +75,7 @@ data UpdateProduct = UpdateProduct'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'upRemoveTags' - Tags to remove from the existing list of tags associated with the product.
+-- * 'upRemoveTags' - The tags to remove from the product.
--
-- * 'upOwner' - The updated owner of the product.
--
@@ -87,77 +87,77 @@ data UpdateProduct = UpdateProduct'
--
-- * 'upAcceptLanguage' - The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
--
--- * 'upAddTags' - Tags to add to the existing list of tags associated with the product.
+-- * 'upAddTags' - The tags to add to the product.
--
-- * 'upSupportEmail' - The updated support email for the product.
--
--- * 'upDescription' - The updated text description of the product.
+-- * 'upDescription' - The updated description of the product.
--
-- * 'upSupportDescription' - The updated support description for the product.
--
--- * 'upId' - The identifier of the product for the update request.
+-- * 'upId' - The product identifier.
updateProduct
:: Text -- ^ 'upId'
-> UpdateProduct
updateProduct pId_ =
UpdateProduct'
- { _upRemoveTags = Nothing
- , _upOwner = Nothing
- , _upSupportURL = Nothing
- , _upDistributor = Nothing
- , _upName = Nothing
- , _upAcceptLanguage = Nothing
- , _upAddTags = Nothing
- , _upSupportEmail = Nothing
- , _upDescription = Nothing
- , _upSupportDescription = Nothing
- , _upId = pId_
- }
-
-
--- | Tags to remove from the existing list of tags associated with the product.
+ { _upRemoveTags = Nothing
+ , _upOwner = Nothing
+ , _upSupportURL = Nothing
+ , _upDistributor = Nothing
+ , _upName = Nothing
+ , _upAcceptLanguage = Nothing
+ , _upAddTags = Nothing
+ , _upSupportEmail = Nothing
+ , _upDescription = Nothing
+ , _upSupportDescription = Nothing
+ , _upId = pId_
+ }
+
+
+-- | The tags to remove from the product.
upRemoveTags :: Lens' UpdateProduct [Text]
-upRemoveTags = lens _upRemoveTags (\ s a -> s{_upRemoveTags = a}) . _Default . _Coerce;
+upRemoveTags = lens _upRemoveTags (\ s a -> s{_upRemoveTags = a}) . _Default . _Coerce
-- | The updated owner of the product.
upOwner :: Lens' UpdateProduct (Maybe Text)
-upOwner = lens _upOwner (\ s a -> s{_upOwner = a});
+upOwner = lens _upOwner (\ s a -> s{_upOwner = a})
-- | The updated support URL for the product.
upSupportURL :: Lens' UpdateProduct (Maybe Text)
-upSupportURL = lens _upSupportURL (\ s a -> s{_upSupportURL = a});
+upSupportURL = lens _upSupportURL (\ s a -> s{_upSupportURL = a})
-- | The updated distributor of the product.
upDistributor :: Lens' UpdateProduct (Maybe Text)
-upDistributor = lens _upDistributor (\ s a -> s{_upDistributor = a});
+upDistributor = lens _upDistributor (\ s a -> s{_upDistributor = a})
-- | The updated product name.
upName :: Lens' UpdateProduct (Maybe Text)
-upName = lens _upName (\ s a -> s{_upName = a});
+upName = lens _upName (\ s a -> s{_upName = a})
-- | The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
upAcceptLanguage :: Lens' UpdateProduct (Maybe Text)
-upAcceptLanguage = lens _upAcceptLanguage (\ s a -> s{_upAcceptLanguage = a});
+upAcceptLanguage = lens _upAcceptLanguage (\ s a -> s{_upAcceptLanguage = a})
--- | Tags to add to the existing list of tags associated with the product.
+-- | The tags to add to the product.
upAddTags :: Lens' UpdateProduct [Tag]
-upAddTags = lens _upAddTags (\ s a -> s{_upAddTags = a}) . _Default . _Coerce;
+upAddTags = lens _upAddTags (\ s a -> s{_upAddTags = a}) . _Default . _Coerce
-- | The updated support email for the product.
upSupportEmail :: Lens' UpdateProduct (Maybe Text)
-upSupportEmail = lens _upSupportEmail (\ s a -> s{_upSupportEmail = a});
+upSupportEmail = lens _upSupportEmail (\ s a -> s{_upSupportEmail = a})
--- | The updated text description of the product.
+-- | The updated description of the product.
upDescription :: Lens' UpdateProduct (Maybe Text)
-upDescription = lens _upDescription (\ s a -> s{_upDescription = a});
+upDescription = lens _upDescription (\ s a -> s{_upDescription = a})
-- | The updated support description for the product.
upSupportDescription :: Lens' UpdateProduct (Maybe Text)
-upSupportDescription = lens _upSupportDescription (\ s a -> s{_upSupportDescription = a});
+upSupportDescription = lens _upSupportDescription (\ s a -> s{_upSupportDescription = a})
--- | The identifier of the product for the update request.
+-- | The product identifier.
upId :: Lens' UpdateProduct Text
-upId = lens _upId (\ s a -> s{_upId = a});
+upId = lens _upId (\ s a -> s{_upId = a})
instance AWSRequest UpdateProduct where
type Rs UpdateProduct = UpdateProductResponse
@@ -218,9 +218,9 @@ data UpdateProductResponse = UpdateProductResponse'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'ursProductViewDetail' - The resulting detailed product view information.
+-- * 'ursProductViewDetail' - Information about the product view.
--
--- * 'ursTags' - Tags associated with the product.
+-- * 'ursTags' - Information about the tags associated with the product.
--
-- * 'ursResponseStatus' - -- | The response status code.
updateProductResponse
@@ -228,22 +228,22 @@ updateProductResponse
-> UpdateProductResponse
updateProductResponse pResponseStatus_ =
UpdateProductResponse'
- { _ursProductViewDetail = Nothing
- , _ursTags = Nothing
- , _ursResponseStatus = pResponseStatus_
- }
+ { _ursProductViewDetail = Nothing
+ , _ursTags = Nothing
+ , _ursResponseStatus = pResponseStatus_
+ }
--- | The resulting detailed product view information.
+-- | Information about the product view.
ursProductViewDetail :: Lens' UpdateProductResponse (Maybe ProductViewDetail)
-ursProductViewDetail = lens _ursProductViewDetail (\ s a -> s{_ursProductViewDetail = a});
+ursProductViewDetail = lens _ursProductViewDetail (\ s a -> s{_ursProductViewDetail = a})
--- | Tags associated with the product.
+-- | Information about the tags associated with the product.
ursTags :: Lens' UpdateProductResponse [Tag]
-ursTags = lens _ursTags (\ s a -> s{_ursTags = a}) . _Default . _Coerce;
+ursTags = lens _ursTags (\ s a -> s{_ursTags = a}) . _Default . _Coerce
-- | -- | The response status code.
ursResponseStatus :: Lens' UpdateProductResponse Int
-ursResponseStatus = lens _ursResponseStatus (\ s a -> s{_ursResponseStatus = a});
+ursResponseStatus = lens _ursResponseStatus (\ s a -> s{_ursResponseStatus = a})
instance NFData UpdateProductResponse where
diff --git a/gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs b/gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs
index 9861b36..45f4817 100644
--- a/gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs
+++ b/gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs
@@ -12,16 +12,18 @@
-- |
-- Module : Network.AWS.ServiceCatalog.UpdateProvisionedProduct
--- 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 updates to the configuration of an existing ProvisionedProduct object. If there are tags associated with the object, they cannot be updated or added with this operation. Depending on the specific updates requested, this operation may update with no interruption, with some interruption, or replace the ProvisionedProduct object entirely.
+-- Requests updates to the configuration of the specified provisioned product.
--
--
--- You can check the status of this request using the 'DescribeRecord' operation.
+-- If there are tags associated with the object, they cannot be updated or added. Depending on the specific updates requested, this operation can update with no interruption, with some interruption, or replace the provisioned product entirely.
+--
+-- You can check the status of this request using 'DescribeRecord' .
--
module Network.AWS.ServiceCatalog.UpdateProvisionedProduct
(
@@ -70,19 +72,19 @@ data UpdateProvisionedProduct = UpdateProvisionedProduct'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'uppProvisionedProductName' - The updated name of the ProvisionedProduct object. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.
+-- * 'uppProvisionedProductName' - The updated name of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ .
--
--- * 'uppProvisioningArtifactId' - The provisioning artifact identifier for this product. This is sometimes referred to as the product version.
+-- * 'uppProvisioningArtifactId' - The identifier of the provisioning artifact.
--
-- * 'uppAcceptLanguage' - The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
--
--- * 'uppPathId' - The identifier of the path to use in the updated ProvisionedProduct object. 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.
+-- * 'uppPathId' - The new path identifier. This value is optional if the product has a default path, and required if the product has more than one path.
--
--- * 'uppProvisioningParameters' - A list of @ProvisioningParameter@ objects used to update the ProvisionedProduct object.
+-- * 'uppProvisioningParameters' - The new parameters.
--
--- * 'uppProvisionedProductId' - The identifier of the ProvisionedProduct object to update. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.
+-- * 'uppProvisionedProductId' - The identifier of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ .
--
--- * 'uppProductId' - The identifier of the ProvisionedProduct object.
+-- * 'uppProductId' - The identifier of the provisioned product.
--
-- * 'uppUpdateToken' - The idempotency token that uniquely identifies the provisioning update request.
updateProvisionedProduct
@@ -90,48 +92,48 @@ updateProvisionedProduct
-> UpdateProvisionedProduct
updateProvisionedProduct pUpdateToken_ =
UpdateProvisionedProduct'
- { _uppProvisionedProductName = Nothing
- , _uppProvisioningArtifactId = Nothing
- , _uppAcceptLanguage = Nothing
- , _uppPathId = Nothing
- , _uppProvisioningParameters = Nothing
- , _uppProvisionedProductId = Nothing
- , _uppProductId = Nothing
- , _uppUpdateToken = pUpdateToken_
- }
-
-
--- | The updated name of the ProvisionedProduct object. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.
+ { _uppProvisionedProductName = Nothing
+ , _uppProvisioningArtifactId = Nothing
+ , _uppAcceptLanguage = Nothing
+ , _uppPathId = Nothing
+ , _uppProvisioningParameters = Nothing
+ , _uppProvisionedProductId = Nothing
+ , _uppProductId = Nothing
+ , _uppUpdateToken = pUpdateToken_
+ }
+
+
+-- | The updated name of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ .
uppProvisionedProductName :: Lens' UpdateProvisionedProduct (Maybe Text)
-uppProvisionedProductName = lens _uppProvisionedProductName (\ s a -> s{_uppProvisionedProductName = a});
+uppProvisionedProductName = lens _uppProvisionedProductName (\ s a -> s{_uppProvisionedProductName = a})
--- | The provisioning artifact identifier for this product. This is sometimes referred to as the product version.
+-- | The identifier of the provisioning artifact.
uppProvisioningArtifactId :: Lens' UpdateProvisionedProduct (Maybe Text)
-uppProvisioningArtifactId = lens _uppProvisioningArtifactId (\ s a -> s{_uppProvisioningArtifactId = a});
+uppProvisioningArtifactId = lens _uppProvisioningArtifactId (\ s a -> s{_uppProvisioningArtifactId = a})
-- | The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
uppAcceptLanguage :: Lens' UpdateProvisionedProduct (Maybe Text)
-uppAcceptLanguage = lens _uppAcceptLanguage (\ s a -> s{_uppAcceptLanguage = a});
+uppAcceptLanguage = lens _uppAcceptLanguage (\ s a -> s{_uppAcceptLanguage = a})
--- | The identifier of the path to use in the updated ProvisionedProduct object. 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 new path identifier. This value is optional if the product has a default path, and required if the product has more than one path.
uppPathId :: Lens' UpdateProvisionedProduct (Maybe Text)
-uppPathId = lens _uppPathId (\ s a -> s{_uppPathId = a});
+uppPathId = lens _uppPathId (\ s a -> s{_uppPathId = a})
--- | A list of @ProvisioningParameter@ objects used to update the ProvisionedProduct object.
+-- | The new parameters.
uppProvisioningParameters :: Lens' UpdateProvisionedProduct [UpdateProvisioningParameter]
-uppProvisioningParameters = lens _uppProvisioningParameters (\ s a -> s{_uppProvisioningParameters = a}) . _Default . _Coerce;
+uppProvisioningParameters = lens _uppProvisioningParameters (\ s a -> s{_uppProvisioningParameters = a}) . _Default . _Coerce
--- | The identifier of the ProvisionedProduct object to update. Specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both.
+-- | The identifier of the provisioned product. You cannot specify both @ProvisionedProductName@ and @ProvisionedProductId@ .
uppProvisionedProductId :: Lens' UpdateProvisionedProduct (Maybe Text)
-uppProvisionedProductId = lens _uppProvisionedProductId (\ s a -> s{_uppProvisionedProductId = a});
+uppProvisionedProductId = lens _uppProvisionedProductId (\ s a -> s{_uppProvisionedProductId = a})
--- | The identifier of the ProvisionedProduct object.
+-- | The identifier of the provisioned product.
uppProductId :: Lens' UpdateProvisionedProduct (Maybe Text)
-uppProductId = lens _uppProductId (\ s a -> s{_uppProductId = a});
+uppProductId = lens _uppProductId (\ s a -> s{_uppProductId = a})
-- | The idempotency token that uniquely identifies the provisioning update request.
uppUpdateToken :: Lens' UpdateProvisionedProduct Text
-uppUpdateToken = lens _uppUpdateToken (\ s a -> s{_uppUpdateToken = a});
+uppUpdateToken = lens _uppUpdateToken (\ s a -> s{_uppUpdateToken = a})
instance AWSRequest UpdateProvisionedProduct where
type Rs UpdateProvisionedProduct =
@@ -191,7 +193,7 @@ data UpdateProvisionedProductResponse = UpdateProvisionedProductResponse'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'upprsRecordDetail' - The detailed result of the 'UpdateProvisionedProduct' 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.
+-- * 'upprsRecordDetail' - Information about the result of the request.
--
-- * 'upprsResponseStatus' - -- | The response status code.
updateProvisionedProductResponse
@@ -199,16 +201,16 @@ updateProvisionedProductResponse
-> UpdateProvisionedProductResponse
updateProvisionedProductResponse pResponseStatus_ =
UpdateProvisionedProductResponse'
- {_upprsRecordDetail = Nothing, _upprsResponseStatus = pResponseStatus_}
+ {_upprsRecordDetail = Nothing, _upprsResponseStatus = pResponseStatus_}
--- | The detailed result of the 'UpdateProvisionedProduct' 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 the request.
upprsRecordDetail :: Lens' UpdateProvisionedProductResponse (Maybe RecordDetail)
-upprsRecordDetail = lens _upprsRecordDetail (\ s a -> s{_upprsRecordDetail = a});
+upprsRecordDetail = lens _upprsRecordDetail (\ s a -> s{_upprsRecordDetail = a})
-- | -- | The response status code.
upprsResponseStatus :: Lens' UpdateProvisionedProductResponse Int
-upprsResponseStatus = lens _upprsResponseStatus (\ s a -> s{_upprsResponseStatus = a});
+upprsResponseStatus = lens _upprsResponseStatus (\ s a -> s{_upprsResponseStatus = a})
instance NFData UpdateProvisionedProductResponse
where
diff --git a/gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs b/gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs
index 0891294..01804c1 100644
--- a/gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs
+++ b/gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs
@@ -12,21 +12,24 @@
-- |
-- Module : Network.AWS.ServiceCatalog.UpdateProvisioningArtifact
--- 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)
--
--- Updates an existing provisioning artifact's information. This operation does not work on a provisioning artifact associated with a product that has been shared with you.
+-- Updates the specified provisioning artifact (also known as a version) for the specified product.
--
--
+-- You cannot update a provisioning artifact for a product that was shared with you.
+--
module Network.AWS.ServiceCatalog.UpdateProvisioningArtifact
(
-- * Creating a Request
updateProvisioningArtifact
, UpdateProvisioningArtifact
-- * Request Lenses
+ , upaActive
, upaName
, upaAcceptLanguage
, upaDescription
@@ -52,7 +55,8 @@ import Network.AWS.ServiceCatalog.Types.Product
-- | /See:/ 'updateProvisioningArtifact' smart constructor.
data UpdateProvisioningArtifact = UpdateProvisioningArtifact'
- { _upaName :: !(Maybe Text)
+ { _upaActive :: !(Maybe Bool)
+ , _upaName :: !(Maybe Text)
, _upaAcceptLanguage :: !(Maybe Text)
, _upaDescription :: !(Maybe Text)
, _upaProductId :: !Text
@@ -64,48 +68,55 @@ data UpdateProvisioningArtifact = UpdateProvisioningArtifact'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'upaActive' - Indicates whether the product version is active.
+--
-- * 'upaName' - The updated name of the provisioning artifact.
--
-- * 'upaAcceptLanguage' - The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
--
--- * 'upaDescription' - The updated text description of the provisioning artifact.
+-- * 'upaDescription' - The updated description of the provisioning artifact.
--
-- * 'upaProductId' - The product identifier.
--
--- * 'upaProvisioningArtifactId' - The identifier of the provisioning artifact for the update request. This is sometimes referred to as the product version.
+-- * 'upaProvisioningArtifactId' - The identifier of the provisioning artifact.
updateProvisioningArtifact
:: Text -- ^ 'upaProductId'
-> Text -- ^ 'upaProvisioningArtifactId'
-> UpdateProvisioningArtifact
updateProvisioningArtifact pProductId_ pProvisioningArtifactId_ =
UpdateProvisioningArtifact'
- { _upaName = Nothing
- , _upaAcceptLanguage = Nothing
- , _upaDescription = Nothing
- , _upaProductId = pProductId_
- , _upaProvisioningArtifactId = pProvisioningArtifactId_
- }
+ { _upaActive = Nothing
+ , _upaName = Nothing
+ , _upaAcceptLanguage = Nothing
+ , _upaDescription = Nothing
+ , _upaProductId = pProductId_
+ , _upaProvisioningArtifactId = pProvisioningArtifactId_
+ }
+
+-- | Indicates whether the product version is active.
+upaActive :: Lens' UpdateProvisioningArtifact (Maybe Bool)
+upaActive = lens _upaActive (\ s a -> s{_upaActive = a})
-- | The updated name of the provisioning artifact.
upaName :: Lens' UpdateProvisioningArtifact (Maybe Text)
-upaName = lens _upaName (\ s a -> s{_upaName = a});
+upaName = lens _upaName (\ s a -> s{_upaName = a})
-- | The language code. * @en@ - English (default) * @jp@ - Japanese * @zh@ - Chinese
upaAcceptLanguage :: Lens' UpdateProvisioningArtifact (Maybe Text)
-upaAcceptLanguage = lens _upaAcceptLanguage (\ s a -> s{_upaAcceptLanguage = a});
+upaAcceptLanguage = lens _upaAcceptLanguage (\ s a -> s{_upaAcceptLanguage = a})
--- | The updated text description of the provisioning artifact.
+-- | The updated description of the provisioning artifact.
upaDescription :: Lens' UpdateProvisioningArtifact (Maybe Text)
-upaDescription = lens _upaDescription (\ s a -> s{_upaDescription = a});
+upaDescription = lens _upaDescription (\ s a -> s{_upaDescription = a})
-- | The product identifier.
upaProductId :: Lens' UpdateProvisioningArtifact Text
-upaProductId = lens _upaProductId (\ s a -> s{_upaProductId = a});
+upaProductId = lens _upaProductId (\ s a -> s{_upaProductId = a})
--- | The identifier of the provisioning artifact for the update request. This is sometimes referred to as the product version.
+-- | The identifier of the provisioning artifact.
upaProvisioningArtifactId :: Lens' UpdateProvisioningArtifact Text
-upaProvisioningArtifactId = lens _upaProvisioningArtifactId (\ s a -> s{_upaProvisioningArtifactId = a});
+upaProvisioningArtifactId = lens _upaProvisioningArtifactId (\ s a -> s{_upaProvisioningArtifactId = a})
instance AWSRequest UpdateProvisioningArtifact where
type Rs UpdateProvisioningArtifact =
@@ -137,7 +148,8 @@ instance ToJSON UpdateProvisioningArtifact where
toJSON UpdateProvisioningArtifact'{..}
= object
(catMaybes
- [("Name" .=) <$> _upaName,
+ [("Active" .=) <$> _upaActive,
+ ("Name" .=) <$> _upaName,
("AcceptLanguage" .=) <$> _upaAcceptLanguage,
("Description" .=) <$> _upaDescription,
Just ("ProductId" .= _upaProductId),
@@ -166,9 +178,9 @@ data UpdateProvisioningArtifactResponse = UpdateProvisioningArtifactResponse'
--
-- * 'uparsStatus' - The status of the current request.
--
--- * 'uparsInfo' - Additional information about the provisioning artifact update request.
+-- * 'uparsInfo' - The URL of the CloudFormation template in Amazon S3.
--
--- * 'uparsProvisioningArtifactDetail' - The resulting detailed provisioning artifact information.
+-- * 'uparsProvisioningArtifactDetail' - Information about the provisioning artifact.
--
-- * 'uparsResponseStatus' - -- | The response status code.
updateProvisioningArtifactResponse
@@ -176,28 +188,28 @@ updateProvisioningArtifactResponse
-> UpdateProvisioningArtifactResponse
updateProvisioningArtifactResponse pResponseStatus_ =
UpdateProvisioningArtifactResponse'
- { _uparsStatus = Nothing
- , _uparsInfo = Nothing
- , _uparsProvisioningArtifactDetail = Nothing
- , _uparsResponseStatus = pResponseStatus_
- }
+ { _uparsStatus = Nothing
+ , _uparsInfo = Nothing
+ , _uparsProvisioningArtifactDetail = Nothing
+ , _uparsResponseStatus = pResponseStatus_
+ }
-- | The status of the current request.
uparsStatus :: Lens' UpdateProvisioningArtifactResponse (Maybe RequestStatus)
-uparsStatus = lens _uparsStatus (\ s a -> s{_uparsStatus = a});
+uparsStatus = lens _uparsStatus (\ s a -> s{_uparsStatus = a})
--- | Additional information about the provisioning artifact update request.
+-- | The URL of the CloudFormation template in Amazon S3.
uparsInfo :: Lens' UpdateProvisioningArtifactResponse (HashMap Text Text)
-uparsInfo = lens _uparsInfo (\ s a -> s{_uparsInfo = a}) . _Default . _Map;
+uparsInfo = lens _uparsInfo (\ s a -> s{_uparsInfo = a}) . _Default . _Map
--- | The resulting detailed provisioning artifact information.
+-- | Information about the provisioning artifact.
uparsProvisioningArtifactDetail :: Lens' UpdateProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)
-uparsProvisioningArtifactDetail = lens _uparsProvisioningArtifactDetail (\ s a -> s{_uparsProvisioningArtifactDetail = a});
+uparsProvisioningArtifactDetail = lens _uparsProvisioningArtifactDetail (\ s a -> s{_uparsProvisioningArtifactDetail = a})
-- | -- | The response status code.
uparsResponseStatus :: Lens' UpdateProvisioningArtifactResponse Int
-uparsResponseStatus = lens _uparsResponseStatus (\ s a -> s{_uparsResponseStatus = a});
+uparsResponseStatus = lens _uparsResponseStatus (\ s a -> s{_uparsResponseStatus = a})
instance NFData UpdateProvisioningArtifactResponse
where
diff --git a/gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs b/gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs
index 8f8b7f5..252e819 100644
--- a/gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs
+++ b/gen/Network/AWS/ServiceCatalog/UpdateTagOption.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.ServiceCatalog.UpdateTagOption
--- 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)
--
--- Updates an existing TagOption.
+-- Updates the specified TagOption.
--
--
module Network.AWS.ServiceCatalog.UpdateTagOption
@@ -62,7 +62,7 @@ data UpdateTagOption = UpdateTagOption'
--
-- * 'utoActive' - The updated active state.
--
--- * 'utoId' - The identifier of the constraint to update.
+-- * 'utoId' - The TagOption identifier.
updateTagOption
:: Text -- ^ 'utoId'
-> UpdateTagOption
@@ -72,15 +72,15 @@ updateTagOption pId_ =
-- | The updated value.
utoValue :: Lens' UpdateTagOption (Maybe Text)
-utoValue = lens _utoValue (\ s a -> s{_utoValue = a});
+utoValue = lens _utoValue (\ s a -> s{_utoValue = a})
-- | The updated active state.
utoActive :: Lens' UpdateTagOption (Maybe Bool)
-utoActive = lens _utoActive (\ s a -> s{_utoActive = a});
+utoActive = lens _utoActive (\ s a -> s{_utoActive = a})
--- | The identifier of the constraint to update.
+-- | The TagOption identifier.
utoId :: Lens' UpdateTagOption Text
-utoId = lens _utoId (\ s a -> s{_utoId = a});
+utoId = lens _utoId (\ s a -> s{_utoId = a})
instance AWSRequest UpdateTagOption where
type Rs UpdateTagOption = UpdateTagOptionResponse
@@ -129,7 +129,7 @@ data UpdateTagOptionResponse = UpdateTagOptionResponse'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'utorsTagOptionDetail' - The resulting detailed TagOption information.
+-- * 'utorsTagOptionDetail' - Information about the TagOption.
--
-- * 'utorsResponseStatus' - -- | The response status code.
updateTagOptionResponse
@@ -137,15 +137,15 @@ updateTagOptionResponse
-> UpdateTagOptionResponse
updateTagOptionResponse pResponseStatus_ =
UpdateTagOptionResponse'
- {_utorsTagOptionDetail = Nothing, _utorsResponseStatus = pResponseStatus_}
+ {_utorsTagOptionDetail = Nothing, _utorsResponseStatus = pResponseStatus_}
--- | The resulting detailed TagOption information.
+-- | Information about the TagOption.
utorsTagOptionDetail :: Lens' UpdateTagOptionResponse (Maybe TagOptionDetail)
-utorsTagOptionDetail = lens _utorsTagOptionDetail (\ s a -> s{_utorsTagOptionDetail = a});
+utorsTagOptionDetail = lens _utorsTagOptionDetail (\ s a -> s{_utorsTagOptionDetail = a})
-- | -- | The response status code.
utorsResponseStatus :: Lens' UpdateTagOptionResponse Int
-utorsResponseStatus = lens _utorsResponseStatus (\ s a -> s{_utorsResponseStatus = a});
+utorsResponseStatus = lens _utorsResponseStatus (\ s a -> s{_utorsResponseStatus = a})
instance NFData UpdateTagOptionResponse where
diff --git a/gen/Network/AWS/ServiceCatalog/Waiters.hs b/gen/Network/AWS/ServiceCatalog/Waiters.hs
index 5a9866f..83f8a1e 100644
--- a/gen/Network/AWS/ServiceCatalog/Waiters.hs
+++ b/gen/Network/AWS/ServiceCatalog/Waiters.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.ServiceCatalog.Waiters
--- 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
diff --git a/test/Main.hs b/test/Main.hs
index 0f61ed8..4028f8a 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Main
--- 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
diff --git a/test/Test/AWS/Gen/ServiceCatalog.hs b/test/Test/AWS/Gen/ServiceCatalog.hs
index 874b3ff..d752d19 100644
--- a/test/Test/AWS/Gen/ServiceCatalog.hs
+++ b/test/Test/AWS/Gen/ServiceCatalog.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Gen.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
@@ -34,6 +34,9 @@ import Test.Tasty
-- , requestUpdateConstraint $
-- updateConstraint
--
+-- , requestCreateProvisionedProductPlan $
+-- createProvisionedProductPlan
+--
-- , requestCreateProduct $
-- createProduct
--
@@ -52,6 +55,9 @@ import Test.Tasty
-- , requestListRecordHistory $
-- listRecordHistory
--
+-- , requestDescribeProvisionedProductPlan $
+-- describeProvisionedProductPlan
+--
-- , requestAssociateTagOptionWithResource $
-- associateTagOptionWithResource
--
@@ -88,12 +94,21 @@ import Test.Tasty
-- , requestSearchProducts $
-- searchProducts
--
+-- , requestSearchProvisionedProducts $
+-- searchProvisionedProducts
+--
-- , requestDescribeProduct $
-- describeProduct
--
+-- , requestDeleteProvisionedProductPlan $
+-- deleteProvisionedProductPlan
+--
-- , requestCreateConstraint $
-- createConstraint
--
+-- , requestListProvisionedProductPlans $
+-- listProvisionedProductPlans
+--
-- , requestListPortfolioAccess $
-- listPortfolioAccess
--
@@ -115,6 +130,9 @@ import Test.Tasty
-- , requestListAcceptedPortfolioShares $
-- listAcceptedPortfolioShares
--
+-- , requestExecuteProvisionedProductPlan $
+-- executeProvisionedProductPlan
+--
-- , requestAcceptPortfolioShare $
-- acceptPortfolioShare
--
@@ -136,6 +154,9 @@ import Test.Tasty
-- , requestRejectPortfolioShare $
-- rejectPortfolioShare
--
+-- , requestDeleteTagOption $
+-- deleteTagOption
+--
-- , requestUpdateTagOption $
-- updateTagOption
--
@@ -196,6 +217,9 @@ import Test.Tasty
-- , responseUpdateConstraint $
-- updateConstraintResponse
--
+-- , responseCreateProvisionedProductPlan $
+-- createProvisionedProductPlanResponse
+--
-- , responseCreateProduct $
-- createProductResponse
--
@@ -214,6 +238,9 @@ import Test.Tasty
-- , responseListRecordHistory $
-- listRecordHistoryResponse
--
+-- , responseDescribeProvisionedProductPlan $
+-- describeProvisionedProductPlanResponse
+--
-- , responseAssociateTagOptionWithResource $
-- associateTagOptionWithResourceResponse
--
@@ -250,12 +277,21 @@ import Test.Tasty
-- , responseSearchProducts $
-- searchProductsResponse
--
+-- , responseSearchProvisionedProducts $
+-- searchProvisionedProductsResponse
+--
-- , responseDescribeProduct $
-- describeProductResponse
--
+-- , responseDeleteProvisionedProductPlan $
+-- deleteProvisionedProductPlanResponse
+--
-- , responseCreateConstraint $
-- createConstraintResponse
--
+-- , responseListProvisionedProductPlans $
+-- listProvisionedProductPlansResponse
+--
-- , responseListPortfolioAccess $
-- listPortfolioAccessResponse
--
@@ -277,6 +313,9 @@ import Test.Tasty
-- , responseListAcceptedPortfolioShares $
-- listAcceptedPortfolioSharesResponse
--
+-- , responseExecuteProvisionedProductPlan $
+-- executeProvisionedProductPlanResponse
+--
-- , responseAcceptPortfolioShare $
-- acceptPortfolioShareResponse
--
@@ -298,6 +337,9 @@ import Test.Tasty
-- , responseRejectPortfolioShare $
-- rejectPortfolioShareResponse
--
+-- , responseDeleteTagOption $
+-- deleteTagOptionResponse
+--
-- , responseUpdateTagOption $
-- updateTagOptionResponse
--
@@ -364,6 +406,11 @@ requestUpdateConstraint = req
"UpdateConstraint"
"fixture/UpdateConstraint.yaml"
+requestCreateProvisionedProductPlan :: CreateProvisionedProductPlan -> TestTree
+requestCreateProvisionedProductPlan = req
+ "CreateProvisionedProductPlan"
+ "fixture/CreateProvisionedProductPlan.yaml"
+
requestCreateProduct :: CreateProduct -> TestTree
requestCreateProduct = req
"CreateProduct"
@@ -394,6 +441,11 @@ requestListRecordHistory = req
"ListRecordHistory"
"fixture/ListRecordHistory.yaml"
+requestDescribeProvisionedProductPlan :: DescribeProvisionedProductPlan -> TestTree
+requestDescribeProvisionedProductPlan = req
+ "DescribeProvisionedProductPlan"
+ "fixture/DescribeProvisionedProductPlan.yaml"
+
requestAssociateTagOptionWithResource :: AssociateTagOptionWithResource -> TestTree
requestAssociateTagOptionWithResource = req
"AssociateTagOptionWithResource"
@@ -454,16 +506,31 @@ requestSearchProducts = req
"SearchProducts"
"fixture/SearchProducts.yaml"
+requestSearchProvisionedProducts :: SearchProvisionedProducts -> TestTree
+requestSearchProvisionedProducts = req
+ "SearchProvisionedProducts"
+ "fixture/SearchProvisionedProducts.yaml"
+
requestDescribeProduct :: DescribeProduct -> TestTree
requestDescribeProduct = req
"DescribeProduct"
"fixture/DescribeProduct.yaml"
+requestDeleteProvisionedProductPlan :: DeleteProvisionedProductPlan -> TestTree
+requestDeleteProvisionedProductPlan = req
+ "DeleteProvisionedProductPlan"
+ "fixture/DeleteProvisionedProductPlan.yaml"
+
requestCreateConstraint :: CreateConstraint -> TestTree
requestCreateConstraint = req
"CreateConstraint"
"fixture/CreateConstraint.yaml"
+requestListProvisionedProductPlans :: ListProvisionedProductPlans -> TestTree
+requestListProvisionedProductPlans = req
+ "ListProvisionedProductPlans"
+ "fixture/ListProvisionedProductPlans.yaml"
+
requestListPortfolioAccess :: ListPortfolioAccess -> TestTree
requestListPortfolioAccess = req
"ListPortfolioAccess"
@@ -499,6 +566,11 @@ requestListAcceptedPortfolioShares = req
"ListAcceptedPortfolioShares"
"fixture/ListAcceptedPortfolioShares.yaml"
+requestExecuteProvisionedProductPlan :: ExecuteProvisionedProductPlan -> TestTree
+requestExecuteProvisionedProductPlan = req
+ "ExecuteProvisionedProductPlan"
+ "fixture/ExecuteProvisionedProductPlan.yaml"
+
requestAcceptPortfolioShare :: AcceptPortfolioShare -> TestTree
requestAcceptPortfolioShare = req
"AcceptPortfolioShare"
@@ -534,6 +606,11 @@ requestRejectPortfolioShare = req
"RejectPortfolioShare"
"fixture/RejectPortfolioShare.yaml"
+requestDeleteTagOption :: DeleteTagOption -> TestTree
+requestDeleteTagOption = req
+ "DeleteTagOption"
+ "fixture/DeleteTagOption.yaml"
+
requestUpdateTagOption :: UpdateTagOption -> TestTree
requestUpdateTagOption = req
"UpdateTagOption"
@@ -635,6 +712,13 @@ responseUpdateConstraint = res
serviceCatalog
(Proxy :: Proxy UpdateConstraint)
+responseCreateProvisionedProductPlan :: CreateProvisionedProductPlanResponse -> TestTree
+responseCreateProvisionedProductPlan = res
+ "CreateProvisionedProductPlanResponse"
+ "fixture/CreateProvisionedProductPlanResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy CreateProvisionedProductPlan)
+
responseCreateProduct :: CreateProductResponse -> TestTree
responseCreateProduct = res
"CreateProductResponse"
@@ -677,6 +761,13 @@ responseListRecordHistory = res
serviceCatalog
(Proxy :: Proxy ListRecordHistory)
+responseDescribeProvisionedProductPlan :: DescribeProvisionedProductPlanResponse -> TestTree
+responseDescribeProvisionedProductPlan = res
+ "DescribeProvisionedProductPlanResponse"
+ "fixture/DescribeProvisionedProductPlanResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy DescribeProvisionedProductPlan)
+
responseAssociateTagOptionWithResource :: AssociateTagOptionWithResourceResponse -> TestTree
responseAssociateTagOptionWithResource = res
"AssociateTagOptionWithResourceResponse"
@@ -761,6 +852,13 @@ responseSearchProducts = res
serviceCatalog
(Proxy :: Proxy SearchProducts)
+responseSearchProvisionedProducts :: SearchProvisionedProductsResponse -> TestTree
+responseSearchProvisionedProducts = res
+ "SearchProvisionedProductsResponse"
+ "fixture/SearchProvisionedProductsResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy SearchProvisionedProducts)
+
responseDescribeProduct :: DescribeProductResponse -> TestTree
responseDescribeProduct = res
"DescribeProductResponse"
@@ -768,6 +866,13 @@ responseDescribeProduct = res
serviceCatalog
(Proxy :: Proxy DescribeProduct)
+responseDeleteProvisionedProductPlan :: DeleteProvisionedProductPlanResponse -> TestTree
+responseDeleteProvisionedProductPlan = res
+ "DeleteProvisionedProductPlanResponse"
+ "fixture/DeleteProvisionedProductPlanResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy DeleteProvisionedProductPlan)
+
responseCreateConstraint :: CreateConstraintResponse -> TestTree
responseCreateConstraint = res
"CreateConstraintResponse"
@@ -775,6 +880,13 @@ responseCreateConstraint = res
serviceCatalog
(Proxy :: Proxy CreateConstraint)
+responseListProvisionedProductPlans :: ListProvisionedProductPlansResponse -> TestTree
+responseListProvisionedProductPlans = res
+ "ListProvisionedProductPlansResponse"
+ "fixture/ListProvisionedProductPlansResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy ListProvisionedProductPlans)
+
responseListPortfolioAccess :: ListPortfolioAccessResponse -> TestTree
responseListPortfolioAccess = res
"ListPortfolioAccessResponse"
@@ -824,6 +936,13 @@ responseListAcceptedPortfolioShares = res
serviceCatalog
(Proxy :: Proxy ListAcceptedPortfolioShares)
+responseExecuteProvisionedProductPlan :: ExecuteProvisionedProductPlanResponse -> TestTree
+responseExecuteProvisionedProductPlan = res
+ "ExecuteProvisionedProductPlanResponse"
+ "fixture/ExecuteProvisionedProductPlanResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy ExecuteProvisionedProductPlan)
+
responseAcceptPortfolioShare :: AcceptPortfolioShareResponse -> TestTree
responseAcceptPortfolioShare = res
"AcceptPortfolioShareResponse"
@@ -873,6 +992,13 @@ responseRejectPortfolioShare = res
serviceCatalog
(Proxy :: Proxy RejectPortfolioShare)
+responseDeleteTagOption :: DeleteTagOptionResponse -> TestTree
+responseDeleteTagOption = res
+ "DeleteTagOptionResponse"
+ "fixture/DeleteTagOptionResponse.proto"
+ serviceCatalog
+ (Proxy :: Proxy DeleteTagOption)
+
responseUpdateTagOption :: UpdateTagOptionResponse -> TestTree
responseUpdateTagOption = res
"UpdateTagOptionResponse"
diff --git a/test/Test/AWS/ServiceCatalog.hs b/test/Test/AWS/ServiceCatalog.hs
index f45ce51..5cc7fae 100644
--- a/test/Test/AWS/ServiceCatalog.hs
+++ b/test/Test/AWS/ServiceCatalog.hs
@@ -3,7 +3,7 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- Module : Test.AWS.ServiceCatalog
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/ServiceCatalog/Internal.hs b/test/Test/AWS/ServiceCatalog/Internal.hs
index 9e9e93e..107834b 100644
--- a/test/Test/AWS/ServiceCatalog/Internal.hs
+++ b/test/Test/AWS/ServiceCatalog/Internal.hs
@@ -3,7 +3,7 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- Module : Test.AWS.ServiceCatalog.Internal
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or