amazonka-servicecatalog 1.4.4 → 1.4.5

raw patch · 114 files changed

+7424/−472 lines, 114 filesdep ~amazonka-coredep ~amazonka-servicecatalogdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−16
• amazonka-servicecatalog.cabal +42/−21
• fixture/AcceptPortfolioShare.yaml +0/−0
• fixture/AcceptPortfolioShareResponse.proto +0/−0
• fixture/AssociatePrincipalWithPortfolio.yaml +0/−0
• fixture/AssociatePrincipalWithPortfolioResponse.proto +0/−0
• fixture/AssociateProductWithPortfolio.yaml +0/−0
• fixture/AssociateProductWithPortfolioResponse.proto +0/−0
• fixture/CreateConstraint.yaml +0/−0
• fixture/CreateConstraintResponse.proto +0/−0
• fixture/CreatePortfolio.yaml +0/−0
• fixture/CreatePortfolioResponse.proto +0/−0
• fixture/CreatePortfolioShare.yaml +0/−0
• fixture/CreatePortfolioShareResponse.proto +0/−0
• fixture/CreateProduct.yaml +0/−0
• fixture/CreateProductResponse.proto +0/−0
• fixture/CreateProvisioningArtifact.yaml +0/−0
• fixture/CreateProvisioningArtifactResponse.proto +0/−0
• fixture/DeleteConstraint.yaml +0/−0
• fixture/DeleteConstraintResponse.proto +0/−0
• fixture/DeletePortfolio.yaml +0/−0
• fixture/DeletePortfolioResponse.proto +0/−0
• fixture/DeletePortfolioShare.yaml +0/−0
• fixture/DeletePortfolioShareResponse.proto +0/−0
• fixture/DeleteProduct.yaml +0/−0
• fixture/DeleteProductResponse.proto +0/−0
• fixture/DeleteProvisioningArtifact.yaml +0/−0
• fixture/DeleteProvisioningArtifactResponse.proto +0/−0
• fixture/DescribeConstraint.yaml +0/−0
• fixture/DescribeConstraintResponse.proto +0/−0
• fixture/DescribePortfolio.yaml +0/−0
• fixture/DescribePortfolioResponse.proto +0/−0
• fixture/DescribeProductAsAdmin.yaml +0/−0
• fixture/DescribeProductAsAdminResponse.proto +0/−0
• fixture/DescribeProvisioningArtifact.yaml +0/−0
• fixture/DescribeProvisioningArtifactResponse.proto +0/−0
• fixture/DisassociatePrincipalFromPortfolio.yaml +0/−0
• fixture/DisassociatePrincipalFromPortfolioResponse.proto +0/−0
• fixture/DisassociateProductFromPortfolio.yaml +0/−0
• fixture/DisassociateProductFromPortfolioResponse.proto +0/−0
• fixture/ListAcceptedPortfolioShares.yaml +0/−0
• fixture/ListAcceptedPortfolioSharesResponse.proto +0/−0
• fixture/ListConstraintsForPortfolio.yaml +0/−0
• fixture/ListConstraintsForPortfolioResponse.proto +0/−0
• fixture/ListPortfolioAccess.yaml +0/−0
• fixture/ListPortfolioAccessResponse.proto +0/−0
• fixture/ListPortfolios.yaml +0/−0
• fixture/ListPortfoliosForProduct.yaml +0/−0
• fixture/ListPortfoliosForProductResponse.proto +0/−0
• fixture/ListPortfoliosResponse.proto +0/−0
• fixture/ListPrincipalsForPortfolio.yaml +0/−0
• fixture/ListPrincipalsForPortfolioResponse.proto +0/−0
• fixture/ListProvisioningArtifacts.yaml +0/−0
• fixture/ListProvisioningArtifactsResponse.proto +0/−0
• fixture/RejectPortfolioShare.yaml +0/−0
• fixture/RejectPortfolioShareResponse.proto +0/−0
• fixture/SearchProductsAsAdmin.yaml +0/−0
• fixture/SearchProductsAsAdminResponse.proto +0/−0
• fixture/UpdateConstraint.yaml +0/−0
• fixture/UpdateConstraintResponse.proto +0/−0
• fixture/UpdatePortfolio.yaml +0/−0
• fixture/UpdatePortfolioResponse.proto +0/−0
• fixture/UpdateProduct.yaml +0/−0
• fixture/UpdateProductResponse.proto +0/−0
• fixture/UpdateProvisioningArtifact.yaml +0/−0
• fixture/UpdateProvisioningArtifactResponse.proto +0/−0
• gen/Network/AWS/ServiceCatalog.hs +219/−10
• gen/Network/AWS/ServiceCatalog/AcceptPortfolioShare.hs +136/−0
• gen/Network/AWS/ServiceCatalog/AssociatePrincipalWithPortfolio.hs +162/−0
• gen/Network/AWS/ServiceCatalog/AssociateProductWithPortfolio.hs +159/−0
• gen/Network/AWS/ServiceCatalog/CreateConstraint.hs +218/−0
• gen/Network/AWS/ServiceCatalog/CreatePortfolio.hs +197/−0
• gen/Network/AWS/ServiceCatalog/CreatePortfolioShare.hs +147/−0
• gen/Network/AWS/ServiceCatalog/CreateProduct.hs +270/−0
• gen/Network/AWS/ServiceCatalog/CreateProvisioningArtifact.hs +187/−0
• gen/Network/AWS/ServiceCatalog/DeleteConstraint.hs +134/−0
• gen/Network/AWS/ServiceCatalog/DeletePortfolio.hs +134/−0
• gen/Network/AWS/ServiceCatalog/DeletePortfolioShare.hs +147/−0
• gen/Network/AWS/ServiceCatalog/DeleteProduct.hs +134/−0
• gen/Network/AWS/ServiceCatalog/DeleteProvisioningArtifact.hs +149/−0
• gen/Network/AWS/ServiceCatalog/DescribeConstraint.hs +165/−0
• gen/Network/AWS/ServiceCatalog/DescribePortfolio.hs +155/−0
• gen/Network/AWS/ServiceCatalog/DescribeProduct.hs +28/−34
• gen/Network/AWS/ServiceCatalog/DescribeProductAsAdmin.hs +156/−0
• gen/Network/AWS/ServiceCatalog/DescribeProductView.hs +12/−18
• gen/Network/AWS/ServiceCatalog/DescribeProvisioningArtifact.hs +179/−0
• gen/Network/AWS/ServiceCatalog/DescribeProvisioningParameters.hs +42/−48
• gen/Network/AWS/ServiceCatalog/DescribeRecord.hs +16/−22
• gen/Network/AWS/ServiceCatalog/DisassociatePrincipalFromPortfolio.hs +153/−0
• gen/Network/AWS/ServiceCatalog/DisassociateProductFromPortfolio.hs +153/−0
• gen/Network/AWS/ServiceCatalog/ListAcceptedPortfolioShares.hs +165/−0
• gen/Network/AWS/ServiceCatalog/ListConstraintsForPortfolio.hs +186/−0
• gen/Network/AWS/ServiceCatalog/ListLaunchPaths.hs +15/−21
• gen/Network/AWS/ServiceCatalog/ListPortfolioAccess.hs +156/−0
• gen/Network/AWS/ServiceCatalog/ListPortfolios.hs +164/−0
• gen/Network/AWS/ServiceCatalog/ListPortfoliosForProduct.hs +176/−0
• gen/Network/AWS/ServiceCatalog/ListPrincipalsForPortfolio.hs +176/−0
• gen/Network/AWS/ServiceCatalog/ListProvisioningArtifacts.hs +156/−0
• gen/Network/AWS/ServiceCatalog/ListRecordHistory.hs +28/−24
• gen/Network/AWS/ServiceCatalog/ProvisionProduct.hs +20/−26
• gen/Network/AWS/ServiceCatalog/RejectPortfolioShare.hs +136/−0
• gen/Network/AWS/ServiceCatalog/ScanProvisionedProducts.hs +25/−21
• gen/Network/AWS/ServiceCatalog/SearchProducts.hs +21/−27
• gen/Network/AWS/ServiceCatalog/SearchProductsAsAdmin.hs +215/−0
• gen/Network/AWS/ServiceCatalog/TerminateProvisionedProduct.hs +18/−24
• gen/Network/AWS/ServiceCatalog/Types.hs +100/−7
• gen/Network/AWS/ServiceCatalog/Types/Product.hs +586/−126
• gen/Network/AWS/ServiceCatalog/Types/Sum.hs +159/−0
• gen/Network/AWS/ServiceCatalog/UpdateConstraint.hs +174/−0
• gen/Network/AWS/ServiceCatalog/UpdatePortfolio.hs +205/−0
• gen/Network/AWS/ServiceCatalog/UpdateProduct.hs +245/−0
• gen/Network/AWS/ServiceCatalog/UpdateProvisionedProduct.hs +19/−25
• gen/Network/AWS/ServiceCatalog/UpdateProvisioningArtifact.hs +198/−0
• test/Test/AWS/Gen/ServiceCatalog.hs +578/−2

@@ -8,34 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -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, you need to be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/userguide/what-is_concepts.html AWS Service Catalog Concepts>.--/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>- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-servicecatalog) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.ServiceCatalog](http://hackage.haskell.org/package/amazonka-servicecatalog/docs/Network-AWS-ServiceCatalog.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-servicecatalog-version:               1.4.4+version:               1.4.5 synopsis:              Amazon Service Catalog SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,30 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    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, you need to be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/userguide/what-is_concepts.html AWS Service Catalog Concepts>.--    /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>-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.ServiceCatalog" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.ServiceCatalog" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -51,18 +40,50 @@      exposed-modules:           Network.AWS.ServiceCatalog+        , Network.AWS.ServiceCatalog.AcceptPortfolioShare+        , Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio+        , Network.AWS.ServiceCatalog.AssociateProductWithPortfolio+        , Network.AWS.ServiceCatalog.CreateConstraint+        , Network.AWS.ServiceCatalog.CreatePortfolio+        , Network.AWS.ServiceCatalog.CreatePortfolioShare+        , Network.AWS.ServiceCatalog.CreateProduct+        , Network.AWS.ServiceCatalog.CreateProvisioningArtifact+        , Network.AWS.ServiceCatalog.DeleteConstraint+        , Network.AWS.ServiceCatalog.DeletePortfolio+        , Network.AWS.ServiceCatalog.DeletePortfolioShare+        , Network.AWS.ServiceCatalog.DeleteProduct+        , Network.AWS.ServiceCatalog.DeleteProvisioningArtifact+        , Network.AWS.ServiceCatalog.DescribeConstraint+        , Network.AWS.ServiceCatalog.DescribePortfolio         , Network.AWS.ServiceCatalog.DescribeProduct+        , Network.AWS.ServiceCatalog.DescribeProductAsAdmin         , Network.AWS.ServiceCatalog.DescribeProductView+        , Network.AWS.ServiceCatalog.DescribeProvisioningArtifact         , Network.AWS.ServiceCatalog.DescribeProvisioningParameters         , Network.AWS.ServiceCatalog.DescribeRecord+        , Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio+        , Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio+        , Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares+        , Network.AWS.ServiceCatalog.ListConstraintsForPortfolio         , Network.AWS.ServiceCatalog.ListLaunchPaths+        , Network.AWS.ServiceCatalog.ListPortfolioAccess+        , Network.AWS.ServiceCatalog.ListPortfolios+        , Network.AWS.ServiceCatalog.ListPortfoliosForProduct+        , Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio+        , Network.AWS.ServiceCatalog.ListProvisioningArtifacts         , Network.AWS.ServiceCatalog.ListRecordHistory         , Network.AWS.ServiceCatalog.ProvisionProduct+        , Network.AWS.ServiceCatalog.RejectPortfolioShare         , Network.AWS.ServiceCatalog.ScanProvisionedProducts         , Network.AWS.ServiceCatalog.SearchProducts+        , Network.AWS.ServiceCatalog.SearchProductsAsAdmin         , Network.AWS.ServiceCatalog.TerminateProvisionedProduct         , Network.AWS.ServiceCatalog.Types+        , Network.AWS.ServiceCatalog.UpdateConstraint+        , Network.AWS.ServiceCatalog.UpdatePortfolio+        , Network.AWS.ServiceCatalog.UpdateProduct         , Network.AWS.ServiceCatalog.UpdateProvisionedProduct+        , Network.AWS.ServiceCatalog.UpdateProvisioningArtifact         , Network.AWS.ServiceCatalog.Waiters      other-modules:@@ -70,7 +91,7 @@         , Network.AWS.ServiceCatalog.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-servicecatalog-test@@ -90,9 +111,9 @@         , Test.AWS.ServiceCatalog.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-servicecatalog == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-servicecatalog == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,18 +11,20 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS Service Catalog+-- __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, you need to be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/userguide/what-is_concepts.html AWS Service Catalog Concepts>.+-- <https://aws.amazon.com/servicecatalog/ AWS Service Catalog> allows organizations to create and manage catalogs of IT services that are approved for use on AWS. This documentation provides reference material for the AWS Service Catalog end user API. To get the most out of this documentation, you need to be familiar with the terminology discussed in <http://docs.aws.amazon.com/servicecatalog/latest/userguide/what-is_concepts.html AWS Service Catalog Concepts> . -- -- /Additional Resources/ ----- -   <http://docs.aws.amazon.com/servicecatalog/latest/adminguide/introduction.html AWS Service Catalog Administrator Guide>+--     * <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>+--     * <http://docs.aws.amazon.com/servicecatalog/latest/userguide/introduction.html AWS Service Catalog User Guide> --+--+-- module Network.AWS.ServiceCatalog     (     -- * Service Configuration@@ -40,59 +42,193 @@     -- ** ResourceNotFoundException     , _ResourceNotFoundException +    -- ** LimitExceededException+    , _LimitExceededException++    -- ** ResourceInUseException+    , _ResourceInUseException+     -- * Waiters     -- $waiters      -- * Operations     -- $operations +    -- ** DeleteConstraint+    , module Network.AWS.ServiceCatalog.DeleteConstraint++    -- ** UpdateConstraint+    , module Network.AWS.ServiceCatalog.UpdateConstraint++    -- ** CreateProduct+    , module Network.AWS.ServiceCatalog.CreateProduct+     -- ** TerminateProvisionedProduct     , module Network.AWS.ServiceCatalog.TerminateProvisionedProduct      -- ** UpdateProvisionedProduct     , module Network.AWS.ServiceCatalog.UpdateProvisionedProduct +    -- ** DescribeProvisioningArtifact+    , module Network.AWS.ServiceCatalog.DescribeProvisioningArtifact+     -- ** ListRecordHistory     , module Network.AWS.ServiceCatalog.ListRecordHistory +    -- ** DisassociateProductFromPortfolio+    , module Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio++    -- ** ListConstraintsForPortfolio+    , module Network.AWS.ServiceCatalog.ListConstraintsForPortfolio+     -- ** DescribeRecord     , module Network.AWS.ServiceCatalog.DescribeRecord +    -- ** DescribeConstraint+    , module Network.AWS.ServiceCatalog.DescribeConstraint++    -- ** CreateProvisioningArtifact+    , module Network.AWS.ServiceCatalog.CreateProvisioningArtifact++    -- ** ListPortfolios+    , module Network.AWS.ServiceCatalog.ListPortfolios+     -- ** DescribeProductView     , module Network.AWS.ServiceCatalog.DescribeProductView +    -- ** CreatePortfolioShare+    , module Network.AWS.ServiceCatalog.CreatePortfolioShare++    -- ** ListProvisioningArtifacts+    , module Network.AWS.ServiceCatalog.ListProvisioningArtifacts+     -- ** SearchProducts     , module Network.AWS.ServiceCatalog.SearchProducts      -- ** DescribeProduct     , module Network.AWS.ServiceCatalog.DescribeProduct +    -- ** CreateConstraint+    , module Network.AWS.ServiceCatalog.CreateConstraint++    -- ** ListPortfolioAccess+    , module Network.AWS.ServiceCatalog.ListPortfolioAccess++    -- ** DisassociatePrincipalFromPortfolio+    , module Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio++    -- ** DescribePortfolio+    , module Network.AWS.ServiceCatalog.DescribePortfolio++    -- ** AssociateProductWithPortfolio+    , module Network.AWS.ServiceCatalog.AssociateProductWithPortfolio++    -- ** ListAcceptedPortfolioShares+    , module Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares++    -- ** AcceptPortfolioShare+    , module Network.AWS.ServiceCatalog.AcceptPortfolioShare+     -- ** ScanProvisionedProducts     , module Network.AWS.ServiceCatalog.ScanProvisionedProducts +    -- ** ListPrincipalsForPortfolio+    , module Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio++    -- ** DeleteProduct+    , module Network.AWS.ServiceCatalog.DeleteProduct++    -- ** UpdateProduct+    , module Network.AWS.ServiceCatalog.UpdateProduct+     -- ** ProvisionProduct     , module Network.AWS.ServiceCatalog.ProvisionProduct +    -- ** RejectPortfolioShare+    , module Network.AWS.ServiceCatalog.RejectPortfolioShare++    -- ** SearchProductsAsAdmin+    , module Network.AWS.ServiceCatalog.SearchProductsAsAdmin++    -- ** DeletePortfolio+    , module Network.AWS.ServiceCatalog.DeletePortfolio++    -- ** UpdatePortfolio+    , module Network.AWS.ServiceCatalog.UpdatePortfolio++    -- ** ListPortfoliosForProduct+    , module Network.AWS.ServiceCatalog.ListPortfoliosForProduct++    -- ** DescribeProductAsAdmin+    , module Network.AWS.ServiceCatalog.DescribeProductAsAdmin+     -- ** DescribeProvisioningParameters     , module Network.AWS.ServiceCatalog.DescribeProvisioningParameters +    -- ** AssociatePrincipalWithPortfolio+    , module Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio++    -- ** UpdateProvisioningArtifact+    , module Network.AWS.ServiceCatalog.UpdateProvisioningArtifact++    -- ** DeletePortfolioShare+    , module Network.AWS.ServiceCatalog.DeletePortfolioShare++    -- ** DeleteProvisioningArtifact+    , module Network.AWS.ServiceCatalog.DeleteProvisioningArtifact++    -- ** CreatePortfolio+    , module Network.AWS.ServiceCatalog.CreatePortfolio+     -- ** ListLaunchPaths     , module Network.AWS.ServiceCatalog.ListLaunchPaths      -- * Types +    -- ** AccessLevelFilterKey+    , AccessLevelFilterKey (..)++    -- ** PrincipalType+    , PrincipalType (..)++    -- ** ProductSource+    , ProductSource (..)++    -- ** ProductType+    , ProductType (..)+     -- ** ProductViewFilterBy     , ProductViewFilterBy (..)      -- ** ProductViewSortBy     , ProductViewSortBy (..) +    -- ** ProvisioningArtifactType+    , ProvisioningArtifactType (..)+     -- ** RecordStatus     , RecordStatus (..) +    -- ** RequestStatus+    , RequestStatus (..)+     -- ** SortOrder     , SortOrder (..) +    -- ** AccessLevelFilter+    , AccessLevelFilter+    , accessLevelFilter+    , alfValue+    , alfKey++    -- ** ConstraintDetail+    , ConstraintDetail+    , constraintDetail+    , cdConstraintId+    , cdOwner+    , cdType+    , cdDescription+     -- ** ConstraintSummary     , ConstraintSummary     , constraintSummary@@ -118,12 +254,36 @@     , parameterConstraints     , pcAllowedValues +    -- ** PortfolioDetail+    , PortfolioDetail+    , portfolioDetail+    , pdARN+    , pdCreatedTime+    , pdId+    , pdDisplayName+    , pdDescription+    , pdProviderName++    -- ** Principal+    , Principal+    , principal+    , pPrincipalType+    , pPrincipalARN+     -- ** ProductViewAggregationValue     , ProductViewAggregationValue     , productViewAggregationValue     , pvavValue     , pvavApproximateCount +    -- ** ProductViewDetail+    , ProductViewDetail+    , productViewDetail+    , pvdStatus+    , pvdProductViewSummary+    , pvdCreatedTime+    , pvdProductARN+     -- ** ProductViewSummary     , ProductViewSummary     , productViewSummary@@ -160,15 +320,32 @@     , paId     , paDescription +    -- ** ProvisioningArtifactDetail+    , ProvisioningArtifactDetail+    , provisioningArtifactDetail+    , padCreatedTime+    , padName+    , padId+    , padType+    , padDescription+     -- ** ProvisioningArtifactParameter     , ProvisioningArtifactParameter     , provisioningArtifactParameter-    , papIsNoEcho-    , papParameterKey-    , papParameterType-    , papParameterConstraints-    , papDefaultValue+    , pIsNoEcho+    , pParameterKey+    , pParameterType+    , pParameterConstraints+    , pDefaultValue+    , pDescription++    -- ** ProvisioningArtifactProperties+    , ProvisioningArtifactProperties+    , provisioningArtifactProperties+    , papName+    , papType     , papDescription+    , papInfo      -- ** ProvisioningParameter     , ProvisioningParameter@@ -215,8 +392,8 @@     -- ** Tag     , Tag     , tag-    , tagValue     , tagKey+    , tagValue      -- ** UpdateProvisioningParameter     , UpdateProvisioningParameter@@ -232,18 +409,50 @@     , uiType     ) where +import           Network.AWS.ServiceCatalog.AcceptPortfolioShare+import           Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio+import           Network.AWS.ServiceCatalog.AssociateProductWithPortfolio+import           Network.AWS.ServiceCatalog.CreateConstraint+import           Network.AWS.ServiceCatalog.CreatePortfolio+import           Network.AWS.ServiceCatalog.CreatePortfolioShare+import           Network.AWS.ServiceCatalog.CreateProduct+import           Network.AWS.ServiceCatalog.CreateProvisioningArtifact+import           Network.AWS.ServiceCatalog.DeleteConstraint+import           Network.AWS.ServiceCatalog.DeletePortfolio+import           Network.AWS.ServiceCatalog.DeletePortfolioShare+import           Network.AWS.ServiceCatalog.DeleteProduct+import           Network.AWS.ServiceCatalog.DeleteProvisioningArtifact+import           Network.AWS.ServiceCatalog.DescribeConstraint+import           Network.AWS.ServiceCatalog.DescribePortfolio import           Network.AWS.ServiceCatalog.DescribeProduct+import           Network.AWS.ServiceCatalog.DescribeProductAsAdmin import           Network.AWS.ServiceCatalog.DescribeProductView+import           Network.AWS.ServiceCatalog.DescribeProvisioningArtifact import           Network.AWS.ServiceCatalog.DescribeProvisioningParameters import           Network.AWS.ServiceCatalog.DescribeRecord+import           Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio+import           Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio+import           Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares+import           Network.AWS.ServiceCatalog.ListConstraintsForPortfolio import           Network.AWS.ServiceCatalog.ListLaunchPaths+import           Network.AWS.ServiceCatalog.ListPortfolioAccess+import           Network.AWS.ServiceCatalog.ListPortfolios+import           Network.AWS.ServiceCatalog.ListPortfoliosForProduct+import           Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio+import           Network.AWS.ServiceCatalog.ListProvisioningArtifacts import           Network.AWS.ServiceCatalog.ListRecordHistory import           Network.AWS.ServiceCatalog.ProvisionProduct+import           Network.AWS.ServiceCatalog.RejectPortfolioShare import           Network.AWS.ServiceCatalog.ScanProvisionedProducts import           Network.AWS.ServiceCatalog.SearchProducts+import           Network.AWS.ServiceCatalog.SearchProductsAsAdmin import           Network.AWS.ServiceCatalog.TerminateProvisionedProduct import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.UpdateConstraint+import           Network.AWS.ServiceCatalog.UpdatePortfolio+import           Network.AWS.ServiceCatalog.UpdateProduct import           Network.AWS.ServiceCatalog.UpdateProvisionedProduct+import           Network.AWS.ServiceCatalog.UpdateProvisioningArtifact import           Network.AWS.ServiceCatalog.Waiters  {- $errors

@@ -0,0 +1,136 @@+{-# 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.AcceptPortfolioShare+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Accepts an offer to share a portfolio.+--+--+module Network.AWS.ServiceCatalog.AcceptPortfolioShare+    (+    -- * Creating a Request+      acceptPortfolioShare+    , AcceptPortfolioShare+    -- * Request Lenses+    , apsAcceptLanguage+    , apsPortfolioId++    -- * Destructuring the Response+    , acceptPortfolioShareResponse+    , AcceptPortfolioShareResponse+    -- * Response Lenses+    , apsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'acceptPortfolioShare' smart constructor.+data AcceptPortfolioShare = AcceptPortfolioShare'+    { _apsAcceptLanguage :: !(Maybe Text)+    , _apsPortfolioId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AcceptPortfolioShare' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'apsPortfolioId' - The portfolio identifier.+acceptPortfolioShare+    :: Text -- ^ 'apsPortfolioId'+    -> AcceptPortfolioShare+acceptPortfolioShare pPortfolioId_ =+    AcceptPortfolioShare'+    { _apsAcceptLanguage = Nothing+    , _apsPortfolioId = pPortfolioId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+apsAcceptLanguage :: Lens' AcceptPortfolioShare (Maybe Text)+apsAcceptLanguage = lens _apsAcceptLanguage (\ s a -> s{_apsAcceptLanguage = a});++-- | The portfolio identifier.+apsPortfolioId :: Lens' AcceptPortfolioShare Text+apsPortfolioId = lens _apsPortfolioId (\ s a -> s{_apsPortfolioId = a});++instance AWSRequest AcceptPortfolioShare where+        type Rs AcceptPortfolioShare =+             AcceptPortfolioShareResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 AcceptPortfolioShareResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AcceptPortfolioShare++instance NFData AcceptPortfolioShare++instance ToHeaders AcceptPortfolioShare where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.AcceptPortfolioShare"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AcceptPortfolioShare where+        toJSON AcceptPortfolioShare'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _apsAcceptLanguage,+                  Just ("PortfolioId" .= _apsPortfolioId)])++instance ToPath AcceptPortfolioShare where+        toPath = const "/"++instance ToQuery AcceptPortfolioShare where+        toQuery = const mempty++-- | /See:/ 'acceptPortfolioShareResponse' smart constructor.+newtype AcceptPortfolioShareResponse = AcceptPortfolioShareResponse'+    { _apsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AcceptPortfolioShareResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apsrsResponseStatus' - -- | The response status code.+acceptPortfolioShareResponse+    :: Int -- ^ 'apsrsResponseStatus'+    -> AcceptPortfolioShareResponse+acceptPortfolioShareResponse pResponseStatus_ =+    AcceptPortfolioShareResponse'+    { _apsrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+apsrsResponseStatus :: Lens' AcceptPortfolioShareResponse Int+apsrsResponseStatus = lens _apsrsResponseStatus (\ s a -> s{_apsrsResponseStatus = a});++instance NFData AcceptPortfolioShareResponse

@@ -0,0 +1,162 @@+{-# 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.AssociatePrincipalWithPortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates the specified principal ARN with the specified portfolio.+--+--+module Network.AWS.ServiceCatalog.AssociatePrincipalWithPortfolio+    (+    -- * Creating a Request+      associatePrincipalWithPortfolio+    , AssociatePrincipalWithPortfolio+    -- * Request Lenses+    , aAcceptLanguage+    , aPortfolioId+    , aPrincipalARN+    , aPrincipalType++    -- * Destructuring the Response+    , associatePrincipalWithPortfolioResponse+    , AssociatePrincipalWithPortfolioResponse+    -- * Response Lenses+    , apwprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'associatePrincipalWithPortfolio' smart constructor.+data AssociatePrincipalWithPortfolio = AssociatePrincipalWithPortfolio'+    { _aAcceptLanguage :: !(Maybe Text)+    , _aPortfolioId    :: !Text+    , _aPrincipalARN   :: !Text+    , _aPrincipalType  :: !PrincipalType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociatePrincipalWithPortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'aPortfolioId' - The portfolio identifier.+--+-- * 'aPrincipalARN' - The ARN representing the principal (IAM user, role, or group).+--+-- * 'aPrincipalType' - The principal type. Must be @IAM@+associatePrincipalWithPortfolio+    :: Text -- ^ 'aPortfolioId'+    -> Text -- ^ 'aPrincipalARN'+    -> PrincipalType -- ^ 'aPrincipalType'+    -> AssociatePrincipalWithPortfolio+associatePrincipalWithPortfolio pPortfolioId_ pPrincipalARN_ pPrincipalType_ =+    AssociatePrincipalWithPortfolio'+    { _aAcceptLanguage = Nothing+    , _aPortfolioId = pPortfolioId_+    , _aPrincipalARN = pPrincipalARN_+    , _aPrincipalType = pPrincipalType_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+aAcceptLanguage :: Lens' AssociatePrincipalWithPortfolio (Maybe Text)+aAcceptLanguage = lens _aAcceptLanguage (\ s a -> s{_aAcceptLanguage = a});++-- | The portfolio identifier.+aPortfolioId :: Lens' AssociatePrincipalWithPortfolio Text+aPortfolioId = lens _aPortfolioId (\ s a -> s{_aPortfolioId = a});++-- | The ARN representing the principal (IAM user, role, or group).+aPrincipalARN :: Lens' AssociatePrincipalWithPortfolio Text+aPrincipalARN = lens _aPrincipalARN (\ s a -> s{_aPrincipalARN = a});++-- | The principal type. Must be @IAM@+aPrincipalType :: Lens' AssociatePrincipalWithPortfolio PrincipalType+aPrincipalType = lens _aPrincipalType (\ s a -> s{_aPrincipalType = a});++instance AWSRequest AssociatePrincipalWithPortfolio+         where+        type Rs AssociatePrincipalWithPortfolio =+             AssociatePrincipalWithPortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 AssociatePrincipalWithPortfolioResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AssociatePrincipalWithPortfolio++instance NFData AssociatePrincipalWithPortfolio++instance ToHeaders AssociatePrincipalWithPortfolio+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.AssociatePrincipalWithPortfolio"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociatePrincipalWithPortfolio where+        toJSON AssociatePrincipalWithPortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _aAcceptLanguage,+                  Just ("PortfolioId" .= _aPortfolioId),+                  Just ("PrincipalARN" .= _aPrincipalARN),+                  Just ("PrincipalType" .= _aPrincipalType)])++instance ToPath AssociatePrincipalWithPortfolio where+        toPath = const "/"++instance ToQuery AssociatePrincipalWithPortfolio+         where+        toQuery = const mempty++-- | /See:/ 'associatePrincipalWithPortfolioResponse' smart constructor.+newtype AssociatePrincipalWithPortfolioResponse = AssociatePrincipalWithPortfolioResponse'+    { _apwprsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociatePrincipalWithPortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apwprsResponseStatus' - -- | The response status code.+associatePrincipalWithPortfolioResponse+    :: Int -- ^ 'apwprsResponseStatus'+    -> AssociatePrincipalWithPortfolioResponse+associatePrincipalWithPortfolioResponse pResponseStatus_ =+    AssociatePrincipalWithPortfolioResponse'+    { _apwprsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+apwprsResponseStatus :: Lens' AssociatePrincipalWithPortfolioResponse Int+apwprsResponseStatus = lens _apwprsResponseStatus (\ s a -> s{_apwprsResponseStatus = a});++instance NFData+         AssociatePrincipalWithPortfolioResponse

@@ -0,0 +1,159 @@+{-# 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.AssociateProductWithPortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a product with a portfolio.+--+--+module Network.AWS.ServiceCatalog.AssociateProductWithPortfolio+    (+    -- * Creating a Request+      associateProductWithPortfolio+    , AssociateProductWithPortfolio+    -- * Request Lenses+    , apwpSourcePortfolioId+    , apwpAcceptLanguage+    , apwpProductId+    , apwpPortfolioId++    -- * Destructuring the Response+    , associateProductWithPortfolioResponse+    , AssociateProductWithPortfolioResponse+    -- * Response Lenses+    , arsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'associateProductWithPortfolio' smart constructor.+data AssociateProductWithPortfolio = AssociateProductWithPortfolio'+    { _apwpSourcePortfolioId :: !(Maybe Text)+    , _apwpAcceptLanguage    :: !(Maybe Text)+    , _apwpProductId         :: !Text+    , _apwpPortfolioId       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateProductWithPortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apwpSourcePortfolioId' - The identifier of the source portfolio to use with this association.+--+-- * 'apwpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'apwpProductId' - The product identifier.+--+-- * 'apwpPortfolioId' - The portfolio identifier.+associateProductWithPortfolio+    :: Text -- ^ 'apwpProductId'+    -> Text -- ^ 'apwpPortfolioId'+    -> AssociateProductWithPortfolio+associateProductWithPortfolio pProductId_ pPortfolioId_ =+    AssociateProductWithPortfolio'+    { _apwpSourcePortfolioId = Nothing+    , _apwpAcceptLanguage = Nothing+    , _apwpProductId = pProductId_+    , _apwpPortfolioId = pPortfolioId_+    }++-- | The identifier of the source portfolio to use with this association.+apwpSourcePortfolioId :: Lens' AssociateProductWithPortfolio (Maybe Text)+apwpSourcePortfolioId = lens _apwpSourcePortfolioId (\ s a -> s{_apwpSourcePortfolioId = a});++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+apwpAcceptLanguage :: Lens' AssociateProductWithPortfolio (Maybe Text)+apwpAcceptLanguage = lens _apwpAcceptLanguage (\ s a -> s{_apwpAcceptLanguage = a});++-- | The product identifier.+apwpProductId :: Lens' AssociateProductWithPortfolio Text+apwpProductId = lens _apwpProductId (\ s a -> s{_apwpProductId = a});++-- | The portfolio identifier.+apwpPortfolioId :: Lens' AssociateProductWithPortfolio Text+apwpPortfolioId = lens _apwpPortfolioId (\ s a -> s{_apwpPortfolioId = a});++instance AWSRequest AssociateProductWithPortfolio+         where+        type Rs AssociateProductWithPortfolio =+             AssociateProductWithPortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 AssociateProductWithPortfolioResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AssociateProductWithPortfolio++instance NFData AssociateProductWithPortfolio++instance ToHeaders AssociateProductWithPortfolio+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.AssociateProductWithPortfolio"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateProductWithPortfolio where+        toJSON AssociateProductWithPortfolio'{..}+          = object+              (catMaybes+                 [("SourcePortfolioId" .=) <$> _apwpSourcePortfolioId,+                  ("AcceptLanguage" .=) <$> _apwpAcceptLanguage,+                  Just ("ProductId" .= _apwpProductId),+                  Just ("PortfolioId" .= _apwpPortfolioId)])++instance ToPath AssociateProductWithPortfolio where+        toPath = const "/"++instance ToQuery AssociateProductWithPortfolio where+        toQuery = const mempty++-- | /See:/ 'associateProductWithPortfolioResponse' smart constructor.+newtype AssociateProductWithPortfolioResponse = AssociateProductWithPortfolioResponse'+    { _arsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AssociateProductWithPortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arsResponseStatus' - -- | The response status code.+associateProductWithPortfolioResponse+    :: Int -- ^ 'arsResponseStatus'+    -> AssociateProductWithPortfolioResponse+associateProductWithPortfolioResponse pResponseStatus_ =+    AssociateProductWithPortfolioResponse'+    { _arsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+arsResponseStatus :: Lens' AssociateProductWithPortfolioResponse Int+arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a});++instance NFData AssociateProductWithPortfolioResponse

@@ -0,0 +1,218 @@+{-# 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.CreateConstraint+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new constraint.+--+--+module Network.AWS.ServiceCatalog.CreateConstraint+    (+    -- * Creating a Request+      createConstraint+    , CreateConstraint+    -- * Request Lenses+    , ccAcceptLanguage+    , ccDescription+    , ccPortfolioId+    , ccProductId+    , ccParameters+    , ccType+    , ccIdempotencyToken++    -- * Destructuring the Response+    , createConstraintResponse+    , CreateConstraintResponse+    -- * Response Lenses+    , ccrsStatus+    , ccrsConstraintDetail+    , ccrsConstraintParameters+    , ccrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'createConstraint' smart constructor.+data CreateConstraint = CreateConstraint'+    { _ccAcceptLanguage   :: !(Maybe Text)+    , _ccDescription      :: !(Maybe Text)+    , _ccPortfolioId      :: !Text+    , _ccProductId        :: !Text+    , _ccParameters       :: !Text+    , _ccType             :: !Text+    , _ccIdempotencyToken :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateConstraint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'ccDescription' - The text description of the constraint.+--+-- * 'ccPortfolioId' - The portfolio identifier.+--+-- * 'ccProductId' - The product identifier.+--+-- * 'ccParameters' - The constraint parameters.+--+-- * 'ccType' - The type of the constraint.+--+-- * 'ccIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+createConstraint+    :: Text -- ^ 'ccPortfolioId'+    -> Text -- ^ 'ccProductId'+    -> Text -- ^ 'ccParameters'+    -> Text -- ^ 'ccType'+    -> Text -- ^ 'ccIdempotencyToken'+    -> CreateConstraint+createConstraint pPortfolioId_ pProductId_ pParameters_ pType_ pIdempotencyToken_ =+    CreateConstraint'+    { _ccAcceptLanguage = Nothing+    , _ccDescription = Nothing+    , _ccPortfolioId = pPortfolioId_+    , _ccProductId = pProductId_+    , _ccParameters = pParameters_+    , _ccType = pType_+    , _ccIdempotencyToken = pIdempotencyToken_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+ccAcceptLanguage :: Lens' CreateConstraint (Maybe Text)+ccAcceptLanguage = lens _ccAcceptLanguage (\ s a -> s{_ccAcceptLanguage = a});++-- | The text description of the constraint.+ccDescription :: Lens' CreateConstraint (Maybe Text)+ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a});++-- | The portfolio identifier.+ccPortfolioId :: Lens' CreateConstraint Text+ccPortfolioId = lens _ccPortfolioId (\ s a -> s{_ccPortfolioId = a});++-- | The product identifier.+ccProductId :: Lens' CreateConstraint Text+ccProductId = lens _ccProductId (\ s a -> s{_ccProductId = a});++-- | The constraint parameters.+ccParameters :: Lens' CreateConstraint Text+ccParameters = lens _ccParameters (\ s a -> s{_ccParameters = a});++-- | The type of the constraint.+ccType :: Lens' CreateConstraint Text+ccType = lens _ccType (\ s a -> s{_ccType = a});++-- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+ccIdempotencyToken :: Lens' CreateConstraint Text+ccIdempotencyToken = lens _ccIdempotencyToken (\ s a -> s{_ccIdempotencyToken = a});++instance AWSRequest CreateConstraint where+        type Rs CreateConstraint = CreateConstraintResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CreateConstraintResponse' <$>+                   (x .?> "Status") <*> (x .?> "ConstraintDetail") <*>+                     (x .?> "ConstraintParameters")+                     <*> (pure (fromEnum s)))++instance Hashable CreateConstraint++instance NFData CreateConstraint++instance ToHeaders CreateConstraint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreateConstraint" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateConstraint where+        toJSON CreateConstraint'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _ccAcceptLanguage,+                  ("Description" .=) <$> _ccDescription,+                  Just ("PortfolioId" .= _ccPortfolioId),+                  Just ("ProductId" .= _ccProductId),+                  Just ("Parameters" .= _ccParameters),+                  Just ("Type" .= _ccType),+                  Just ("IdempotencyToken" .= _ccIdempotencyToken)])++instance ToPath CreateConstraint where+        toPath = const "/"++instance ToQuery CreateConstraint where+        toQuery = const mempty++-- | /See:/ 'createConstraintResponse' smart constructor.+data CreateConstraintResponse = CreateConstraintResponse'+    { _ccrsStatus               :: !(Maybe RequestStatus)+    , _ccrsConstraintDetail     :: !(Maybe ConstraintDetail)+    , _ccrsConstraintParameters :: !(Maybe Text)+    , _ccrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateConstraintResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccrsStatus' - The status of the current request.+--+-- * 'ccrsConstraintDetail' - The resulting detailed constraint information.+--+-- * 'ccrsConstraintParameters' - The resulting constraint parameters.+--+-- * 'ccrsResponseStatus' - -- | The response status code.+createConstraintResponse+    :: Int -- ^ 'ccrsResponseStatus'+    -> CreateConstraintResponse+createConstraintResponse pResponseStatus_ =+    CreateConstraintResponse'+    { _ccrsStatus = Nothing+    , _ccrsConstraintDetail = Nothing+    , _ccrsConstraintParameters = Nothing+    , _ccrsResponseStatus = pResponseStatus_+    }++-- | The status of the current request.+ccrsStatus :: Lens' CreateConstraintResponse (Maybe RequestStatus)+ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a});++-- | The resulting detailed constraint information.+ccrsConstraintDetail :: Lens' CreateConstraintResponse (Maybe ConstraintDetail)+ccrsConstraintDetail = lens _ccrsConstraintDetail (\ s a -> s{_ccrsConstraintDetail = a});++-- | The resulting constraint parameters.+ccrsConstraintParameters :: Lens' CreateConstraintResponse (Maybe Text)+ccrsConstraintParameters = lens _ccrsConstraintParameters (\ s a -> s{_ccrsConstraintParameters = a});++-- | -- | The response status code.+ccrsResponseStatus :: Lens' CreateConstraintResponse Int+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});++instance NFData CreateConstraintResponse

@@ -0,0 +1,197 @@+{-# 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.CreatePortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new portfolio.+--+--+module Network.AWS.ServiceCatalog.CreatePortfolio+    (+    -- * Creating a Request+      createPortfolio+    , CreatePortfolio+    -- * Request Lenses+    , cAcceptLanguage+    , cDescription+    , cTags+    , cDisplayName+    , cProviderName+    , cIdempotencyToken++    -- * Destructuring the Response+    , createPortfolioResponse+    , CreatePortfolioResponse+    -- * Response Lenses+    , crsPortfolioDetail+    , crsTags+    , crsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'createPortfolio' smart constructor.+data CreatePortfolio = CreatePortfolio'+    { _cAcceptLanguage   :: !(Maybe Text)+    , _cDescription      :: !(Maybe Text)+    , _cTags             :: !(Maybe [Tag])+    , _cDisplayName      :: !Text+    , _cProviderName     :: !Text+    , _cIdempotencyToken :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreatePortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'cDescription' - The text description of the portfolio.+--+-- * 'cTags' - Tags to associate with the new portfolio.+--+-- * 'cDisplayName' - The name to use for display purposes.+--+-- * 'cProviderName' - The name of the portfolio provider.+--+-- * 'cIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+createPortfolio+    :: Text -- ^ 'cDisplayName'+    -> Text -- ^ 'cProviderName'+    -> Text -- ^ 'cIdempotencyToken'+    -> CreatePortfolio+createPortfolio pDisplayName_ pProviderName_ pIdempotencyToken_ =+    CreatePortfolio'+    { _cAcceptLanguage = Nothing+    , _cDescription = Nothing+    , _cTags = Nothing+    , _cDisplayName = pDisplayName_+    , _cProviderName = pProviderName_+    , _cIdempotencyToken = pIdempotencyToken_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+cAcceptLanguage :: Lens' CreatePortfolio (Maybe Text)+cAcceptLanguage = lens _cAcceptLanguage (\ s a -> s{_cAcceptLanguage = a});++-- | The text description of the portfolio.+cDescription :: Lens' CreatePortfolio (Maybe Text)+cDescription = lens _cDescription (\ s a -> s{_cDescription = a});++-- | Tags to associate with the new portfolio.+cTags :: Lens' CreatePortfolio [Tag]+cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce;++-- | The name to use for display purposes.+cDisplayName :: Lens' CreatePortfolio Text+cDisplayName = lens _cDisplayName (\ s a -> s{_cDisplayName = a});++-- | The name of the portfolio provider.+cProviderName :: Lens' CreatePortfolio Text+cProviderName = lens _cProviderName (\ s a -> s{_cProviderName = a});++-- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+cIdempotencyToken :: Lens' CreatePortfolio Text+cIdempotencyToken = lens _cIdempotencyToken (\ s a -> s{_cIdempotencyToken = a});++instance AWSRequest CreatePortfolio where+        type Rs CreatePortfolio = CreatePortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CreatePortfolioResponse' <$>+                   (x .?> "PortfolioDetail") <*>+                     (x .?> "Tags" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable CreatePortfolio++instance NFData CreatePortfolio++instance ToHeaders CreatePortfolio where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreatePortfolio" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreatePortfolio where+        toJSON CreatePortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _cAcceptLanguage,+                  ("Description" .=) <$> _cDescription,+                  ("Tags" .=) <$> _cTags,+                  Just ("DisplayName" .= _cDisplayName),+                  Just ("ProviderName" .= _cProviderName),+                  Just ("IdempotencyToken" .= _cIdempotencyToken)])++instance ToPath CreatePortfolio where+        toPath = const "/"++instance ToQuery CreatePortfolio where+        toQuery = const mempty++-- | /See:/ 'createPortfolioResponse' smart constructor.+data CreatePortfolioResponse = CreatePortfolioResponse'+    { _crsPortfolioDetail :: !(Maybe PortfolioDetail)+    , _crsTags            :: !(Maybe [Tag])+    , _crsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreatePortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsPortfolioDetail' - The resulting detailed portfolio information.+--+-- * 'crsTags' - Tags successfully associated with the new portfolio.+--+-- * 'crsResponseStatus' - -- | The response status code.+createPortfolioResponse+    :: Int -- ^ 'crsResponseStatus'+    -> CreatePortfolioResponse+createPortfolioResponse pResponseStatus_ =+    CreatePortfolioResponse'+    { _crsPortfolioDetail = Nothing+    , _crsTags = Nothing+    , _crsResponseStatus = pResponseStatus_+    }++-- | The resulting detailed portfolio information.+crsPortfolioDetail :: Lens' CreatePortfolioResponse (Maybe PortfolioDetail)+crsPortfolioDetail = lens _crsPortfolioDetail (\ s a -> s{_crsPortfolioDetail = a});++-- | Tags successfully associated with the new portfolio.+crsTags :: Lens' CreatePortfolioResponse [Tag]+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});++instance NFData CreatePortfolioResponse

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ServiceCatalog.CreatePortfolioShare+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new portfolio share.+--+--+module Network.AWS.ServiceCatalog.CreatePortfolioShare+    (+    -- * Creating a Request+      createPortfolioShare+    , CreatePortfolioShare+    -- * Request Lenses+    , cpsAcceptLanguage+    , cpsPortfolioId+    , cpsAccountId++    -- * Destructuring the Response+    , createPortfolioShareResponse+    , CreatePortfolioShareResponse+    -- * Response Lenses+    , cpsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'createPortfolioShare' smart constructor.+data CreatePortfolioShare = CreatePortfolioShare'+    { _cpsAcceptLanguage :: !(Maybe Text)+    , _cpsPortfolioId    :: !Text+    , _cpsAccountId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreatePortfolioShare' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'cpsPortfolioId' - The portfolio identifier.+--+-- * 'cpsAccountId' - The account ID with which to share the portfolio.+createPortfolioShare+    :: Text -- ^ 'cpsPortfolioId'+    -> Text -- ^ 'cpsAccountId'+    -> CreatePortfolioShare+createPortfolioShare pPortfolioId_ pAccountId_ =+    CreatePortfolioShare'+    { _cpsAcceptLanguage = Nothing+    , _cpsPortfolioId = pPortfolioId_+    , _cpsAccountId = pAccountId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+cpsAcceptLanguage :: Lens' CreatePortfolioShare (Maybe Text)+cpsAcceptLanguage = lens _cpsAcceptLanguage (\ s a -> s{_cpsAcceptLanguage = a});++-- | The portfolio identifier.+cpsPortfolioId :: Lens' CreatePortfolioShare Text+cpsPortfolioId = lens _cpsPortfolioId (\ s a -> s{_cpsPortfolioId = a});++-- | The account ID with which to share the portfolio.+cpsAccountId :: Lens' CreatePortfolioShare Text+cpsAccountId = lens _cpsAccountId (\ s a -> s{_cpsAccountId = a});++instance AWSRequest CreatePortfolioShare where+        type Rs CreatePortfolioShare =+             CreatePortfolioShareResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 CreatePortfolioShareResponse' <$>+                   (pure (fromEnum s)))++instance Hashable CreatePortfolioShare++instance NFData CreatePortfolioShare++instance ToHeaders CreatePortfolioShare where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreatePortfolioShare"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreatePortfolioShare where+        toJSON CreatePortfolioShare'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _cpsAcceptLanguage,+                  Just ("PortfolioId" .= _cpsPortfolioId),+                  Just ("AccountId" .= _cpsAccountId)])++instance ToPath CreatePortfolioShare where+        toPath = const "/"++instance ToQuery CreatePortfolioShare where+        toQuery = const mempty++-- | /See:/ 'createPortfolioShareResponse' smart constructor.+newtype CreatePortfolioShareResponse = CreatePortfolioShareResponse'+    { _cpsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreatePortfolioShareResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpsrsResponseStatus' - -- | The response status code.+createPortfolioShareResponse+    :: Int -- ^ 'cpsrsResponseStatus'+    -> CreatePortfolioShareResponse+createPortfolioShareResponse pResponseStatus_ =+    CreatePortfolioShareResponse'+    { _cpsrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+cpsrsResponseStatus :: Lens' CreatePortfolioShareResponse Int+cpsrsResponseStatus = lens _cpsrsResponseStatus (\ s a -> s{_cpsrsResponseStatus = a});++instance NFData CreatePortfolioShareResponse

@@ -0,0 +1,270 @@+{-# 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.CreateProduct+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new product.+--+--+module Network.AWS.ServiceCatalog.CreateProduct+    (+    -- * Creating a Request+      createProduct+    , CreateProduct+    -- * Request Lenses+    , cpSupportURL+    , cpDistributor+    , cpAcceptLanguage+    , cpSupportEmail+    , cpDescription+    , cpTags+    , cpSupportDescription+    , cpName+    , cpOwner+    , cpProductType+    , cpProvisioningArtifactParameters+    , cpIdempotencyToken++    -- * Destructuring the Response+    , createProductResponse+    , CreateProductResponse+    -- * Response Lenses+    , cprsProductViewDetail+    , cprsProvisioningArtifactDetail+    , cprsTags+    , cprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'createProduct' smart constructor.+data CreateProduct = CreateProduct'+    { _cpSupportURL                     :: !(Maybe Text)+    , _cpDistributor                    :: !(Maybe Text)+    , _cpAcceptLanguage                 :: !(Maybe Text)+    , _cpSupportEmail                   :: !(Maybe Text)+    , _cpDescription                    :: !(Maybe Text)+    , _cpTags                           :: !(Maybe [Tag])+    , _cpSupportDescription             :: !(Maybe Text)+    , _cpName                           :: !Text+    , _cpOwner                          :: !Text+    , _cpProductType                    :: !ProductType+    , _cpProvisioningArtifactParameters :: !ProvisioningArtifactProperties+    , _cpIdempotencyToken               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateProduct' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpSupportURL' - Contact URL for product support.+--+-- * 'cpDistributor' - The distributor of the product.+--+-- * 'cpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'cpSupportEmail' - Contact email for product support.+--+-- * 'cpDescription' - The text description of the product.+--+-- * 'cpTags' - Tags to associate with the new product.+--+-- * 'cpSupportDescription' - 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.+--+-- * 'cpProvisioningArtifactParameters' - Parameters for the provisioning artifact.+--+-- * 'cpIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+createProduct+    :: Text -- ^ 'cpName'+    -> Text -- ^ 'cpOwner'+    -> ProductType -- ^ 'cpProductType'+    -> ProvisioningArtifactProperties -- ^ 'cpProvisioningArtifactParameters'+    -> Text -- ^ 'cpIdempotencyToken'+    -> CreateProduct+createProduct pName_ pOwner_ pProductType_ pProvisioningArtifactParameters_ pIdempotencyToken_ =+    CreateProduct'+    { _cpSupportURL = Nothing+    , _cpDistributor = Nothing+    , _cpAcceptLanguage = Nothing+    , _cpSupportEmail = Nothing+    , _cpDescription = Nothing+    , _cpTags = Nothing+    , _cpSupportDescription = Nothing+    , _cpName = pName_+    , _cpOwner = pOwner_+    , _cpProductType = pProductType_+    , _cpProvisioningArtifactParameters = pProvisioningArtifactParameters_+    , _cpIdempotencyToken = pIdempotencyToken_+    }++-- | Contact URL for product support.+cpSupportURL :: Lens' CreateProduct (Maybe Text)+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});++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+cpAcceptLanguage :: Lens' CreateProduct (Maybe Text)+cpAcceptLanguage = lens _cpAcceptLanguage (\ s a -> s{_cpAcceptLanguage = a});++-- | Contact email for product support.+cpSupportEmail :: Lens' CreateProduct (Maybe Text)+cpSupportEmail = lens _cpSupportEmail (\ s a -> s{_cpSupportEmail = a});++-- | The text description of the product.+cpDescription :: Lens' CreateProduct (Maybe Text)+cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a});++-- | Tags to associate with the new product.+cpTags :: Lens' CreateProduct [Tag]+cpTags = lens _cpTags (\ s a -> s{_cpTags = a}) . _Default . _Coerce;++-- | Support information about the product.+cpSupportDescription :: Lens' CreateProduct (Maybe Text)+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});++-- | The owner of the product.+cpOwner :: Lens' CreateProduct Text+cpOwner = lens _cpOwner (\ s a -> s{_cpOwner = a});++-- | The type of the product to create.+cpProductType :: Lens' CreateProduct ProductType+cpProductType = lens _cpProductType (\ s a -> s{_cpProductType = a});++-- | Parameters for the provisioning artifact.+cpProvisioningArtifactParameters :: Lens' CreateProduct ProvisioningArtifactProperties+cpProvisioningArtifactParameters = lens _cpProvisioningArtifactParameters (\ s a -> s{_cpProvisioningArtifactParameters = a});++-- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+cpIdempotencyToken :: Lens' CreateProduct Text+cpIdempotencyToken = lens _cpIdempotencyToken (\ s a -> s{_cpIdempotencyToken = a});++instance AWSRequest CreateProduct where+        type Rs CreateProduct = CreateProductResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CreateProductResponse' <$>+                   (x .?> "ProductViewDetail") <*>+                     (x .?> "ProvisioningArtifactDetail")+                     <*> (x .?> "Tags" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable CreateProduct++instance NFData CreateProduct++instance ToHeaders CreateProduct where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreateProduct" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateProduct where+        toJSON CreateProduct'{..}+          = object+              (catMaybes+                 [("SupportUrl" .=) <$> _cpSupportURL,+                  ("Distributor" .=) <$> _cpDistributor,+                  ("AcceptLanguage" .=) <$> _cpAcceptLanguage,+                  ("SupportEmail" .=) <$> _cpSupportEmail,+                  ("Description" .=) <$> _cpDescription,+                  ("Tags" .=) <$> _cpTags,+                  ("SupportDescription" .=) <$> _cpSupportDescription,+                  Just ("Name" .= _cpName), Just ("Owner" .= _cpOwner),+                  Just ("ProductType" .= _cpProductType),+                  Just+                    ("ProvisioningArtifactParameters" .=+                       _cpProvisioningArtifactParameters),+                  Just ("IdempotencyToken" .= _cpIdempotencyToken)])++instance ToPath CreateProduct where+        toPath = const "/"++instance ToQuery CreateProduct where+        toQuery = const mempty++-- | /See:/ 'createProductResponse' smart constructor.+data CreateProductResponse = CreateProductResponse'+    { _cprsProductViewDetail          :: !(Maybe ProductViewDetail)+    , _cprsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)+    , _cprsTags                       :: !(Maybe [Tag])+    , _cprsResponseStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateProductResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cprsProductViewDetail' - The resulting detailed product view information.+--+-- * 'cprsProvisioningArtifactDetail' - The resulting detailed provisioning artifact information.+--+-- * 'cprsTags' - Tags successfully associated with the new product.+--+-- * 'cprsResponseStatus' - -- | The response status code.+createProductResponse+    :: Int -- ^ 'cprsResponseStatus'+    -> CreateProductResponse+createProductResponse pResponseStatus_ =+    CreateProductResponse'+    { _cprsProductViewDetail = Nothing+    , _cprsProvisioningArtifactDetail = Nothing+    , _cprsTags = Nothing+    , _cprsResponseStatus = pResponseStatus_+    }++-- | The resulting detailed product view information.+cprsProductViewDetail :: Lens' CreateProductResponse (Maybe ProductViewDetail)+cprsProductViewDetail = lens _cprsProductViewDetail (\ s a -> s{_cprsProductViewDetail = a});++-- | The resulting detailed provisioning artifact information.+cprsProvisioningArtifactDetail :: Lens' CreateProductResponse (Maybe ProvisioningArtifactDetail)+cprsProvisioningArtifactDetail = lens _cprsProvisioningArtifactDetail (\ s a -> s{_cprsProvisioningArtifactDetail = a});++-- | Tags successfully associated with the new product.+cprsTags :: Lens' CreateProductResponse [Tag]+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});++instance NFData CreateProductResponse

@@ -0,0 +1,187 @@+{-# 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.CreateProvisioningArtifact+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a new provisioning artifact for the specified product. This operation will not work with a product that has been shared with you.+--+--+module Network.AWS.ServiceCatalog.CreateProvisioningArtifact+    (+    -- * Creating a Request+      createProvisioningArtifact+    , CreateProvisioningArtifact+    -- * Request Lenses+    , cpaAcceptLanguage+    , cpaProductId+    , cpaParameters+    , cpaIdempotencyToken++    -- * Destructuring the Response+    , createProvisioningArtifactResponse+    , CreateProvisioningArtifactResponse+    -- * Response Lenses+    , cparsStatus+    , cparsInfo+    , cparsProvisioningArtifactDetail+    , cparsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'createProvisioningArtifact' smart constructor.+data CreateProvisioningArtifact = CreateProvisioningArtifact'+    { _cpaAcceptLanguage   :: !(Maybe Text)+    , _cpaProductId        :: !Text+    , _cpaParameters       :: !ProvisioningArtifactProperties+    , _cpaIdempotencyToken :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateProvisioningArtifact' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'cpaProductId' - The product identifier.+--+-- * 'cpaParameters' - The parameters to use when creating the new provisioning artifact.+--+-- * 'cpaIdempotencyToken' - A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+createProvisioningArtifact+    :: Text -- ^ 'cpaProductId'+    -> ProvisioningArtifactProperties -- ^ 'cpaParameters'+    -> Text -- ^ 'cpaIdempotencyToken'+    -> CreateProvisioningArtifact+createProvisioningArtifact pProductId_ pParameters_ pIdempotencyToken_ =+    CreateProvisioningArtifact'+    { _cpaAcceptLanguage = Nothing+    , _cpaProductId = pProductId_+    , _cpaParameters = pParameters_+    , _cpaIdempotencyToken = pIdempotencyToken_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+cpaAcceptLanguage :: Lens' CreateProvisioningArtifact (Maybe Text)+cpaAcceptLanguage = lens _cpaAcceptLanguage (\ s a -> s{_cpaAcceptLanguage = a});++-- | The product identifier.+cpaProductId :: Lens' CreateProvisioningArtifact Text+cpaProductId = lens _cpaProductId (\ s a -> s{_cpaProductId = a});++-- | The parameters to use when creating the new provisioning artifact.+cpaParameters :: Lens' CreateProvisioningArtifact ProvisioningArtifactProperties+cpaParameters = lens _cpaParameters (\ s a -> s{_cpaParameters = a});++-- | A token to disambiguate duplicate requests. You can create multiple resources using the same input in multiple requests, provided that you also specify a different idempotency token for each request.+cpaIdempotencyToken :: Lens' CreateProvisioningArtifact Text+cpaIdempotencyToken = lens _cpaIdempotencyToken (\ s a -> s{_cpaIdempotencyToken = a});++instance AWSRequest CreateProvisioningArtifact where+        type Rs CreateProvisioningArtifact =+             CreateProvisioningArtifactResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 CreateProvisioningArtifactResponse' <$>+                   (x .?> "Status") <*> (x .?> "Info" .!@ mempty) <*>+                     (x .?> "ProvisioningArtifactDetail")+                     <*> (pure (fromEnum s)))++instance Hashable CreateProvisioningArtifact++instance NFData CreateProvisioningArtifact++instance ToHeaders CreateProvisioningArtifact where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.CreateProvisioningArtifact"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateProvisioningArtifact where+        toJSON CreateProvisioningArtifact'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _cpaAcceptLanguage,+                  Just ("ProductId" .= _cpaProductId),+                  Just ("Parameters" .= _cpaParameters),+                  Just ("IdempotencyToken" .= _cpaIdempotencyToken)])++instance ToPath CreateProvisioningArtifact where+        toPath = const "/"++instance ToQuery CreateProvisioningArtifact where+        toQuery = const mempty++-- | /See:/ 'createProvisioningArtifactResponse' smart constructor.+data CreateProvisioningArtifactResponse = CreateProvisioningArtifactResponse'+    { _cparsStatus                     :: !(Maybe RequestStatus)+    , _cparsInfo                       :: !(Maybe (Map Text Text))+    , _cparsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)+    , _cparsResponseStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateProvisioningArtifactResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cparsStatus' - The status of the current request.+--+-- * 'cparsInfo' - Additional information about the provisioning artifact create request.+--+-- * 'cparsProvisioningArtifactDetail' - The resulting detailed provisioning artifact information.+--+-- * 'cparsResponseStatus' - -- | The response status code.+createProvisioningArtifactResponse+    :: Int -- ^ 'cparsResponseStatus'+    -> CreateProvisioningArtifactResponse+createProvisioningArtifactResponse pResponseStatus_ =+    CreateProvisioningArtifactResponse'+    { _cparsStatus = Nothing+    , _cparsInfo = Nothing+    , _cparsProvisioningArtifactDetail = Nothing+    , _cparsResponseStatus = pResponseStatus_+    }++-- | The status of the current request.+cparsStatus :: Lens' CreateProvisioningArtifactResponse (Maybe RequestStatus)+cparsStatus = lens _cparsStatus (\ s a -> s{_cparsStatus = a});++-- | Additional information about the provisioning artifact create request.+cparsInfo :: Lens' CreateProvisioningArtifactResponse (HashMap Text Text)+cparsInfo = lens _cparsInfo (\ s a -> s{_cparsInfo = a}) . _Default . _Map;++-- | The resulting detailed provisioning artifact information.+cparsProvisioningArtifactDetail :: Lens' CreateProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)+cparsProvisioningArtifactDetail = lens _cparsProvisioningArtifactDetail (\ s a -> s{_cparsProvisioningArtifactDetail = a});++-- | -- | The response status code.+cparsResponseStatus :: Lens' CreateProvisioningArtifactResponse Int+cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a});++instance NFData CreateProvisioningArtifactResponse

@@ -0,0 +1,134 @@+{-# 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.DeleteConstraint+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified constraint.+--+--+module Network.AWS.ServiceCatalog.DeleteConstraint+    (+    -- * Creating a Request+      deleteConstraint+    , DeleteConstraint+    -- * Request Lenses+    , dcAcceptLanguage+    , dcId++    -- * Destructuring the Response+    , deleteConstraintResponse+    , DeleteConstraintResponse+    -- * Response Lenses+    , dcrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'deleteConstraint' smart constructor.+data DeleteConstraint = DeleteConstraint'+    { _dcAcceptLanguage :: !(Maybe Text)+    , _dcId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteConstraint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dcId' - The identifier of the constraint to delete.+deleteConstraint+    :: Text -- ^ 'dcId'+    -> DeleteConstraint+deleteConstraint pId_ =+    DeleteConstraint'+    { _dcAcceptLanguage = Nothing+    , _dcId = pId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dcAcceptLanguage :: Lens' DeleteConstraint (Maybe Text)+dcAcceptLanguage = lens _dcAcceptLanguage (\ s a -> s{_dcAcceptLanguage = a});++-- | The identifier of the constraint to delete.+dcId :: Lens' DeleteConstraint Text+dcId = lens _dcId (\ s a -> s{_dcId = a});++instance AWSRequest DeleteConstraint where+        type Rs DeleteConstraint = DeleteConstraintResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteConstraintResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteConstraint++instance NFData DeleteConstraint++instance ToHeaders DeleteConstraint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeleteConstraint" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteConstraint where+        toJSON DeleteConstraint'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dcAcceptLanguage,+                  Just ("Id" .= _dcId)])++instance ToPath DeleteConstraint where+        toPath = const "/"++instance ToQuery DeleteConstraint where+        toQuery = const mempty++-- | /See:/ 'deleteConstraintResponse' smart constructor.+newtype DeleteConstraintResponse = DeleteConstraintResponse'+    { _dcrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteConstraintResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcrsResponseStatus' - -- | The response status code.+deleteConstraintResponse+    :: Int -- ^ 'dcrsResponseStatus'+    -> DeleteConstraintResponse+deleteConstraintResponse pResponseStatus_ =+    DeleteConstraintResponse'+    { _dcrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+dcrsResponseStatus :: Lens' DeleteConstraintResponse Int+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});++instance NFData DeleteConstraintResponse

@@ -0,0 +1,134 @@+{-# 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.DeletePortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified portfolio. This operation will not work with a portfolio that has been shared with you or if it has products, users, constraints, or shared accounts associated with it.+--+--+module Network.AWS.ServiceCatalog.DeletePortfolio+    (+    -- * Creating a Request+      deletePortfolio+    , DeletePortfolio+    -- * Request Lenses+    , dppAcceptLanguage+    , dppId++    -- * Destructuring the Response+    , deletePortfolioResponse+    , DeletePortfolioResponse+    -- * Response Lenses+    , delrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'deletePortfolio' smart constructor.+data DeletePortfolio = DeletePortfolio'+    { _dppAcceptLanguage :: !(Maybe Text)+    , _dppId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeletePortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dppId' - The identifier of the portfolio for the delete request.+deletePortfolio+    :: Text -- ^ 'dppId'+    -> DeletePortfolio+deletePortfolio pId_ =+    DeletePortfolio'+    { _dppAcceptLanguage = Nothing+    , _dppId = pId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dppAcceptLanguage :: Lens' DeletePortfolio (Maybe Text)+dppAcceptLanguage = lens _dppAcceptLanguage (\ s a -> s{_dppAcceptLanguage = a});++-- | The identifier of the portfolio for the delete request.+dppId :: Lens' DeletePortfolio Text+dppId = lens _dppId (\ s a -> s{_dppId = a});++instance AWSRequest DeletePortfolio where+        type Rs DeletePortfolio = DeletePortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeletePortfolioResponse' <$> (pure (fromEnum s)))++instance Hashable DeletePortfolio++instance NFData DeletePortfolio++instance ToHeaders DeletePortfolio where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeletePortfolio" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeletePortfolio where+        toJSON DeletePortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dppAcceptLanguage,+                  Just ("Id" .= _dppId)])++instance ToPath DeletePortfolio where+        toPath = const "/"++instance ToQuery DeletePortfolio where+        toQuery = const mempty++-- | /See:/ 'deletePortfolioResponse' smart constructor.+newtype DeletePortfolioResponse = DeletePortfolioResponse'+    { _delrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeletePortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delrsResponseStatus' - -- | The response status code.+deletePortfolioResponse+    :: Int -- ^ 'delrsResponseStatus'+    -> DeletePortfolioResponse+deletePortfolioResponse pResponseStatus_ =+    DeletePortfolioResponse'+    { _delrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+delrsResponseStatus :: Lens' DeletePortfolioResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});++instance NFData DeletePortfolioResponse

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ServiceCatalog.DeletePortfolioShare+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified portfolio share.+--+--+module Network.AWS.ServiceCatalog.DeletePortfolioShare+    (+    -- * Creating a Request+      deletePortfolioShare+    , DeletePortfolioShare+    -- * Request Lenses+    , dpsAcceptLanguage+    , dpsPortfolioId+    , dpsAccountId++    -- * Destructuring the Response+    , deletePortfolioShareResponse+    , DeletePortfolioShareResponse+    -- * Response Lenses+    , dpsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'deletePortfolioShare' smart constructor.+data DeletePortfolioShare = DeletePortfolioShare'+    { _dpsAcceptLanguage :: !(Maybe Text)+    , _dpsPortfolioId    :: !Text+    , _dpsAccountId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeletePortfolioShare' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dpsPortfolioId' - The portfolio identifier.+--+-- * 'dpsAccountId' - The account ID associated with the share to delete.+deletePortfolioShare+    :: Text -- ^ 'dpsPortfolioId'+    -> Text -- ^ 'dpsAccountId'+    -> DeletePortfolioShare+deletePortfolioShare pPortfolioId_ pAccountId_ =+    DeletePortfolioShare'+    { _dpsAcceptLanguage = Nothing+    , _dpsPortfolioId = pPortfolioId_+    , _dpsAccountId = pAccountId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dpsAcceptLanguage :: Lens' DeletePortfolioShare (Maybe Text)+dpsAcceptLanguage = lens _dpsAcceptLanguage (\ s a -> s{_dpsAcceptLanguage = a});++-- | The portfolio identifier.+dpsPortfolioId :: Lens' DeletePortfolioShare Text+dpsPortfolioId = lens _dpsPortfolioId (\ s a -> s{_dpsPortfolioId = a});++-- | The account ID associated with the share to delete.+dpsAccountId :: Lens' DeletePortfolioShare Text+dpsAccountId = lens _dpsAccountId (\ s a -> s{_dpsAccountId = a});++instance AWSRequest DeletePortfolioShare where+        type Rs DeletePortfolioShare =+             DeletePortfolioShareResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeletePortfolioShareResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeletePortfolioShare++instance NFData DeletePortfolioShare++instance ToHeaders DeletePortfolioShare where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeletePortfolioShare"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeletePortfolioShare where+        toJSON DeletePortfolioShare'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpsAcceptLanguage,+                  Just ("PortfolioId" .= _dpsPortfolioId),+                  Just ("AccountId" .= _dpsAccountId)])++instance ToPath DeletePortfolioShare where+        toPath = const "/"++instance ToQuery DeletePortfolioShare where+        toQuery = const mempty++-- | /See:/ 'deletePortfolioShareResponse' smart constructor.+newtype DeletePortfolioShareResponse = DeletePortfolioShareResponse'+    { _dpsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeletePortfolioShareResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpsrsResponseStatus' - -- | The response status code.+deletePortfolioShareResponse+    :: Int -- ^ 'dpsrsResponseStatus'+    -> DeletePortfolioShareResponse+deletePortfolioShareResponse pResponseStatus_ =+    DeletePortfolioShareResponse'+    { _dpsrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+dpsrsResponseStatus :: Lens' DeletePortfolioShareResponse Int+dpsrsResponseStatus = lens _dpsrsResponseStatus (\ s a -> s{_dpsrsResponseStatus = a});++instance NFData DeletePortfolioShareResponse

@@ -0,0 +1,134 @@+{-# 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.DeleteProduct+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified product. This operation will not work with a product that has been shared with you or is associated with a portfolio.+--+--+module Network.AWS.ServiceCatalog.DeleteProduct+    (+    -- * Creating a Request+      deleteProduct+    , DeleteProduct+    -- * Request Lenses+    , delAcceptLanguage+    , delId++    -- * Destructuring the Response+    , deleteProductResponse+    , DeleteProductResponse+    -- * Response Lenses+    , delersResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'deleteProduct' smart constructor.+data DeleteProduct = DeleteProduct'+    { _delAcceptLanguage :: !(Maybe Text)+    , _delId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteProduct' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'delId' - The identifier of the product for the delete request.+deleteProduct+    :: Text -- ^ 'delId'+    -> DeleteProduct+deleteProduct pId_ =+    DeleteProduct'+    { _delAcceptLanguage = Nothing+    , _delId = pId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+delAcceptLanguage :: Lens' DeleteProduct (Maybe Text)+delAcceptLanguage = lens _delAcceptLanguage (\ s a -> s{_delAcceptLanguage = a});++-- | The identifier of the product for the delete request.+delId :: Lens' DeleteProduct Text+delId = lens _delId (\ s a -> s{_delId = a});++instance AWSRequest DeleteProduct where+        type Rs DeleteProduct = DeleteProductResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteProductResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteProduct++instance NFData DeleteProduct++instance ToHeaders DeleteProduct where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeleteProduct" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteProduct where+        toJSON DeleteProduct'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _delAcceptLanguage,+                  Just ("Id" .= _delId)])++instance ToPath DeleteProduct where+        toPath = const "/"++instance ToQuery DeleteProduct where+        toQuery = const mempty++-- | /See:/ 'deleteProductResponse' smart constructor.+newtype DeleteProductResponse = DeleteProductResponse'+    { _delersResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteProductResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delersResponseStatus' - -- | The response status code.+deleteProductResponse+    :: Int -- ^ 'delersResponseStatus'+    -> DeleteProductResponse+deleteProductResponse pResponseStatus_ =+    DeleteProductResponse'+    { _delersResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+delersResponseStatus :: Lens' DeleteProductResponse Int+delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a});++instance NFData DeleteProductResponse

@@ -0,0 +1,149 @@+{-# 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.DeleteProvisioningArtifact+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified provisioning artifact. This operation will not work on a provisioning artifact associated with a product that has been shared with you, or on the last provisioning artifact associated with a product (a product must have at least one provisioning artifact).+--+--+module Network.AWS.ServiceCatalog.DeleteProvisioningArtifact+    (+    -- * Creating a Request+      deleteProvisioningArtifact+    , DeleteProvisioningArtifact+    -- * Request Lenses+    , dpapAcceptLanguage+    , dpapProductId+    , dpapProvisioningArtifactId++    -- * Destructuring the Response+    , deleteProvisioningArtifactResponse+    , DeleteProvisioningArtifactResponse+    -- * Response Lenses+    , dparsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'deleteProvisioningArtifact' smart constructor.+data DeleteProvisioningArtifact = DeleteProvisioningArtifact'+    { _dpapAcceptLanguage         :: !(Maybe Text)+    , _dpapProductId              :: !Text+    , _dpapProvisioningArtifactId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteProvisioningArtifact' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpapAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dpapProductId' - The product identifier.+--+-- * 'dpapProvisioningArtifactId' - The identifier of the provisioning artifact for the delete request.+deleteProvisioningArtifact+    :: Text -- ^ 'dpapProductId'+    -> Text -- ^ 'dpapProvisioningArtifactId'+    -> DeleteProvisioningArtifact+deleteProvisioningArtifact pProductId_ pProvisioningArtifactId_ =+    DeleteProvisioningArtifact'+    { _dpapAcceptLanguage = Nothing+    , _dpapProductId = pProductId_+    , _dpapProvisioningArtifactId = pProvisioningArtifactId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dpapAcceptLanguage :: Lens' DeleteProvisioningArtifact (Maybe Text)+dpapAcceptLanguage = lens _dpapAcceptLanguage (\ s a -> s{_dpapAcceptLanguage = a});++-- | The product identifier.+dpapProductId :: Lens' DeleteProvisioningArtifact Text+dpapProductId = lens _dpapProductId (\ s a -> s{_dpapProductId = a});++-- | The identifier of the provisioning artifact for the delete request.+dpapProvisioningArtifactId :: Lens' DeleteProvisioningArtifact Text+dpapProvisioningArtifactId = lens _dpapProvisioningArtifactId (\ s a -> s{_dpapProvisioningArtifactId = a});++instance AWSRequest DeleteProvisioningArtifact where+        type Rs DeleteProvisioningArtifact =+             DeleteProvisioningArtifactResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteProvisioningArtifactResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteProvisioningArtifact++instance NFData DeleteProvisioningArtifact++instance ToHeaders DeleteProvisioningArtifact where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DeleteProvisioningArtifact"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteProvisioningArtifact where+        toJSON DeleteProvisioningArtifact'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpapAcceptLanguage,+                  Just ("ProductId" .= _dpapProductId),+                  Just+                    ("ProvisioningArtifactId" .=+                       _dpapProvisioningArtifactId)])++instance ToPath DeleteProvisioningArtifact where+        toPath = const "/"++instance ToQuery DeleteProvisioningArtifact where+        toQuery = const mempty++-- | /See:/ 'deleteProvisioningArtifactResponse' smart constructor.+newtype DeleteProvisioningArtifactResponse = DeleteProvisioningArtifactResponse'+    { _dparsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteProvisioningArtifactResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dparsResponseStatus' - -- | The response status code.+deleteProvisioningArtifactResponse+    :: Int -- ^ 'dparsResponseStatus'+    -> DeleteProvisioningArtifactResponse+deleteProvisioningArtifactResponse pResponseStatus_ =+    DeleteProvisioningArtifactResponse'+    { _dparsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+dparsResponseStatus :: Lens' DeleteProvisioningArtifactResponse Int+dparsResponseStatus = lens _dparsResponseStatus (\ s a -> s{_dparsResponseStatus = a});++instance NFData DeleteProvisioningArtifactResponse

@@ -0,0 +1,165 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ServiceCatalog.DescribeConstraint+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves detailed information for a specified constraint.+--+--+module Network.AWS.ServiceCatalog.DescribeConstraint+    (+    -- * Creating a Request+      describeConstraint+    , DescribeConstraint+    -- * Request Lenses+    , dAcceptLanguage+    , dId++    -- * Destructuring the Response+    , describeConstraintResponse+    , DescribeConstraintResponse+    -- * Response Lenses+    , drsStatus+    , drsConstraintDetail+    , drsConstraintParameters+    , drsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describeConstraint' smart constructor.+data DescribeConstraint = DescribeConstraint'+    { _dAcceptLanguage :: !(Maybe Text)+    , _dId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConstraint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dId' - The identifier of the constraint.+describeConstraint+    :: Text -- ^ 'dId'+    -> DescribeConstraint+describeConstraint pId_ =+    DescribeConstraint'+    { _dAcceptLanguage = Nothing+    , _dId = pId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dAcceptLanguage :: Lens' DescribeConstraint (Maybe Text)+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});++instance AWSRequest DescribeConstraint where+        type Rs DescribeConstraint =+             DescribeConstraintResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeConstraintResponse' <$>+                   (x .?> "Status") <*> (x .?> "ConstraintDetail") <*>+                     (x .?> "ConstraintParameters")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeConstraint++instance NFData DescribeConstraint++instance ToHeaders DescribeConstraint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeConstraint" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeConstraint where+        toJSON DescribeConstraint'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dAcceptLanguage,+                  Just ("Id" .= _dId)])++instance ToPath DescribeConstraint where+        toPath = const "/"++instance ToQuery DescribeConstraint where+        toQuery = const mempty++-- | /See:/ 'describeConstraintResponse' smart constructor.+data DescribeConstraintResponse = DescribeConstraintResponse'+    { _drsStatus               :: !(Maybe RequestStatus)+    , _drsConstraintDetail     :: !(Maybe ConstraintDetail)+    , _drsConstraintParameters :: !(Maybe Text)+    , _drsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConstraintResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsStatus' - The status of the current request.+--+-- * 'drsConstraintDetail' - Detailed constraint information.+--+-- * 'drsConstraintParameters' - The current parameters associated with the specified constraint.+--+-- * 'drsResponseStatus' - -- | The response status code.+describeConstraintResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DescribeConstraintResponse+describeConstraintResponse pResponseStatus_ =+    DescribeConstraintResponse'+    { _drsStatus = Nothing+    , _drsConstraintDetail = Nothing+    , _drsConstraintParameters = Nothing+    , _drsResponseStatus = pResponseStatus_+    }++-- | The status of the current request.+drsStatus :: Lens' DescribeConstraintResponse (Maybe RequestStatus)+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});++-- | Detailed constraint information.+drsConstraintDetail :: Lens' DescribeConstraintResponse (Maybe ConstraintDetail)+drsConstraintDetail = lens _drsConstraintDetail (\ s a -> s{_drsConstraintDetail = a});++-- | The current parameters associated with the specified constraint.+drsConstraintParameters :: Lens' DescribeConstraintResponse (Maybe Text)+drsConstraintParameters = lens _drsConstraintParameters (\ s a -> s{_drsConstraintParameters = a});++-- | -- | The response status code.+drsResponseStatus :: Lens' DescribeConstraintResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DescribeConstraintResponse

@@ -0,0 +1,155 @@+{-# 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.DescribePortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves detailed information and any tags associated with the specified portfolio.+--+--+module Network.AWS.ServiceCatalog.DescribePortfolio+    (+    -- * Creating a Request+      describePortfolio+    , DescribePortfolio+    -- * Request Lenses+    , desAcceptLanguage+    , desId++    -- * Destructuring the Response+    , describePortfolioResponse+    , DescribePortfolioResponse+    -- * Response Lenses+    , dprsPortfolioDetail+    , dprsTags+    , dprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describePortfolio' smart constructor.+data DescribePortfolio = DescribePortfolio'+    { _desAcceptLanguage :: !(Maybe Text)+    , _desId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribePortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'desId' - The identifier of the portfolio for which to retrieve information.+describePortfolio+    :: Text -- ^ 'desId'+    -> DescribePortfolio+describePortfolio pId_ =+    DescribePortfolio'+    { _desAcceptLanguage = Nothing+    , _desId = pId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+desAcceptLanguage :: Lens' DescribePortfolio (Maybe Text)+desAcceptLanguage = lens _desAcceptLanguage (\ s a -> s{_desAcceptLanguage = a});++-- | The identifier of the portfolio for which to retrieve information.+desId :: Lens' DescribePortfolio Text+desId = lens _desId (\ s a -> s{_desId = a});++instance AWSRequest DescribePortfolio where+        type Rs DescribePortfolio = DescribePortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribePortfolioResponse' <$>+                   (x .?> "PortfolioDetail") <*>+                     (x .?> "Tags" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribePortfolio++instance NFData DescribePortfolio++instance ToHeaders DescribePortfolio where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribePortfolio" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribePortfolio where+        toJSON DescribePortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _desAcceptLanguage,+                  Just ("Id" .= _desId)])++instance ToPath DescribePortfolio where+        toPath = const "/"++instance ToQuery DescribePortfolio where+        toQuery = const mempty++-- | /See:/ 'describePortfolioResponse' smart constructor.+data DescribePortfolioResponse = DescribePortfolioResponse'+    { _dprsPortfolioDetail :: !(Maybe PortfolioDetail)+    , _dprsTags            :: !(Maybe [Tag])+    , _dprsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribePortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dprsPortfolioDetail' - Detailed portfolio information.+--+-- * 'dprsTags' - Tags associated with the portfolio.+--+-- * 'dprsResponseStatus' - -- | The response status code.+describePortfolioResponse+    :: Int -- ^ 'dprsResponseStatus'+    -> DescribePortfolioResponse+describePortfolioResponse pResponseStatus_ =+    DescribePortfolioResponse'+    { _dprsPortfolioDetail = Nothing+    , _dprsTags = Nothing+    , _dprsResponseStatus = pResponseStatus_+    }++-- | Detailed portfolio information.+dprsPortfolioDetail :: Lens' DescribePortfolioResponse (Maybe PortfolioDetail)+dprsPortfolioDetail = lens _dprsPortfolioDetail (\ s a -> s{_dprsPortfolioDetail = a});++-- | Tags associated with the portfolio.+dprsTags :: Lens' DescribePortfolioResponse [Tag]+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});++instance NFData DescribePortfolioResponse

@@ -20,7 +20,9 @@ -- -- Retrieves information about a specified product. ----- This operation is functionally identical to < DescribeProductView> except that it takes as input 'ProductId' instead of 'ProductViewId'.+--+-- 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@@ -34,9 +36,9 @@     , describeProductResponse     , DescribeProductResponse     -- * Response Lenses-    , dprsProductViewSummary-    , dprsProvisioningArtifacts-    , dprsResponseStatus+    , ddrsProductViewSummary+    , ddrsProvisioningArtifacts+    , ddrsResponseStatus     ) where  import           Network.AWS.Lens@@ -56,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpAcceptLanguage'+-- * 'dpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'dpId'+-- * 'dpId' - The @ProductId@ of the product to describe. describeProduct     :: Text -- ^ 'dpId'     -> DescribeProduct@@ -68,19 +70,11 @@     , _dpId = pId_     } --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. dpAcceptLanguage :: Lens' DescribeProduct (Maybe Text) dpAcceptLanguage = lens _dpAcceptLanguage (\ s a -> s{_dpAcceptLanguage = a}); --- | The 'ProductId' of the product to describe.+-- | The @ProductId@ of the product to describe. dpId :: Lens' DescribeProduct Text dpId = lens _dpId (\ s a -> s{_dpId = a}); @@ -124,40 +118,40 @@  -- | /See:/ 'describeProductResponse' smart constructor. data DescribeProductResponse = DescribeProductResponse'-    { _dprsProductViewSummary    :: !(Maybe ProductViewSummary)-    , _dprsProvisioningArtifacts :: !(Maybe [ProvisioningArtifact])-    , _dprsResponseStatus        :: !Int+    { _ddrsProductViewSummary    :: !(Maybe ProductViewSummary)+    , _ddrsProvisioningArtifacts :: !(Maybe [ProvisioningArtifact])+    , _ddrsResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeProductResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dprsProductViewSummary'+-- * 'ddrsProductViewSummary' - The summary metadata about the specified product. ----- * 'dprsProvisioningArtifacts'+-- * 'ddrsProvisioningArtifacts' - A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ parameter represent the ways the specified product can be provisioned. ----- * 'dprsResponseStatus'+-- * 'ddrsResponseStatus' - -- | The response status code. describeProductResponse-    :: Int -- ^ 'dprsResponseStatus'+    :: Int -- ^ 'ddrsResponseStatus'     -> DescribeProductResponse describeProductResponse pResponseStatus_ =     DescribeProductResponse'-    { _dprsProductViewSummary = Nothing-    , _dprsProvisioningArtifacts = Nothing-    , _dprsResponseStatus = pResponseStatus_+    { _ddrsProductViewSummary = Nothing+    , _ddrsProvisioningArtifacts = Nothing+    , _ddrsResponseStatus = pResponseStatus_     }  -- | The summary metadata about the specified product.-dprsProductViewSummary :: Lens' DescribeProductResponse (Maybe ProductViewSummary)-dprsProductViewSummary = lens _dprsProductViewSummary (\ s a -> s{_dprsProductViewSummary = a});+ddrsProductViewSummary :: Lens' DescribeProductResponse (Maybe ProductViewSummary)+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.-dprsProvisioningArtifacts :: Lens' DescribeProductResponse [ProvisioningArtifact]-dprsProvisioningArtifacts = lens _dprsProvisioningArtifacts (\ s a -> s{_dprsProvisioningArtifacts = a}) . _Default . _Coerce;+-- | A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ parameter represent the ways the specified product can be provisioned.+ddrsProvisioningArtifacts :: Lens' DescribeProductResponse [ProvisioningArtifact]+ddrsProvisioningArtifacts = lens _ddrsProvisioningArtifacts (\ s a -> s{_ddrsProvisioningArtifacts = a}) . _Default . _Coerce; --- | The response status code.-dprsResponseStatus :: Lens' DescribeProductResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});+-- | -- | The response status code.+ddrsResponseStatus :: Lens' DescribeProductResponse Int+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});  instance NFData DescribeProductResponse

@@ -0,0 +1,156 @@+{-# 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.DescribeProductAsAdmin+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves information about a specified product, run with administrator access.+--+--+module Network.AWS.ServiceCatalog.DescribeProductAsAdmin+    (+    -- * Creating a Request+      describeProductAsAdmin+    , DescribeProductAsAdmin+    -- * Request Lenses+    , dpaaAcceptLanguage+    , dpaaId++    -- * Destructuring the Response+    , describeProductAsAdminResponse+    , DescribeProductAsAdminResponse+    -- * Response Lenses+    , dpaarsProductViewDetail+    , dpaarsTags+    , dpaarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describeProductAsAdmin' smart constructor.+data DescribeProductAsAdmin = DescribeProductAsAdmin'+    { _dpaaAcceptLanguage :: !(Maybe Text)+    , _dpaaId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeProductAsAdmin' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpaaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dpaaId' - The identifier of the product for which to retrieve information.+describeProductAsAdmin+    :: Text -- ^ 'dpaaId'+    -> DescribeProductAsAdmin+describeProductAsAdmin pId_ =+    DescribeProductAsAdmin'+    { _dpaaAcceptLanguage = Nothing+    , _dpaaId = pId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dpaaAcceptLanguage :: Lens' DescribeProductAsAdmin (Maybe Text)+dpaaAcceptLanguage = lens _dpaaAcceptLanguage (\ s a -> s{_dpaaAcceptLanguage = a});++-- | The identifier of the product for which to retrieve information.+dpaaId :: Lens' DescribeProductAsAdmin Text+dpaaId = lens _dpaaId (\ s a -> s{_dpaaId = a});++instance AWSRequest DescribeProductAsAdmin where+        type Rs DescribeProductAsAdmin =+             DescribeProductAsAdminResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeProductAsAdminResponse' <$>+                   (x .?> "ProductViewDetail") <*>+                     (x .?> "Tags" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeProductAsAdmin++instance NFData DescribeProductAsAdmin++instance ToHeaders DescribeProductAsAdmin where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeProductAsAdmin"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeProductAsAdmin where+        toJSON DescribeProductAsAdmin'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpaaAcceptLanguage,+                  Just ("Id" .= _dpaaId)])++instance ToPath DescribeProductAsAdmin where+        toPath = const "/"++instance ToQuery DescribeProductAsAdmin where+        toQuery = const mempty++-- | /See:/ 'describeProductAsAdminResponse' smart constructor.+data DescribeProductAsAdminResponse = DescribeProductAsAdminResponse'+    { _dpaarsProductViewDetail :: !(Maybe ProductViewDetail)+    , _dpaarsTags              :: !(Maybe [Tag])+    , _dpaarsResponseStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeProductAsAdminResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpaarsProductViewDetail' - Detailed product view information.+--+-- * 'dpaarsTags' - Tags associated with the product.+--+-- * 'dpaarsResponseStatus' - -- | The response status code.+describeProductAsAdminResponse+    :: Int -- ^ 'dpaarsResponseStatus'+    -> DescribeProductAsAdminResponse+describeProductAsAdminResponse pResponseStatus_ =+    DescribeProductAsAdminResponse'+    { _dpaarsProductViewDetail = Nothing+    , _dpaarsTags = Nothing+    , _dpaarsResponseStatus = pResponseStatus_+    }++-- | Detailed product view information.+dpaarsProductViewDetail :: Lens' DescribeProductAsAdminResponse (Maybe ProductViewDetail)+dpaarsProductViewDetail = lens _dpaarsProductViewDetail (\ s a -> s{_dpaarsProductViewDetail = a});++-- | Tags associated with the product.+dpaarsTags :: Lens' DescribeProductAsAdminResponse [Tag]+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});++instance NFData DescribeProductAsAdminResponse

@@ -20,7 +20,9 @@ -- -- Retrieves information about a specified product. ----- This operation is functionally identical to < DescribeProduct> except that it takes as input 'ProductViewId' instead of 'ProductId'.+--+-- 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@@ -56,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpvAcceptLanguage'+-- * 'dpvAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'dpvId'+-- * 'dpvId' - The @ProductViewId@ of the product to describe. describeProductView     :: Text -- ^ 'dpvId'     -> DescribeProductView@@ -68,19 +70,11 @@     , _dpvId = pId_     } --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. dpvAcceptLanguage :: Lens' DescribeProductView (Maybe Text) dpvAcceptLanguage = lens _dpvAcceptLanguage (\ s a -> s{_dpvAcceptLanguage = a}); --- | The 'ProductViewId' of the product to describe.+-- | The @ProductViewId@ of the product to describe. dpvId :: Lens' DescribeProductView Text dpvId = lens _dpvId (\ s a -> s{_dpvId = a}); @@ -134,11 +128,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpvrsProductViewSummary'+-- * 'dpvrsProductViewSummary' - The summary metadata about the specified product. ----- * 'dpvrsProvisioningArtifacts'+-- * 'dpvrsProvisioningArtifacts' - A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ represent the ways in which the specified product can be provisioned. ----- * 'dpvrsResponseStatus'+-- * 'dpvrsResponseStatus' - -- | The response status code. describeProductViewResponse     :: Int -- ^ 'dpvrsResponseStatus'     -> DescribeProductViewResponse@@ -153,11 +147,11 @@ dpvrsProductViewSummary :: Lens' DescribeProductViewResponse (Maybe ProductViewSummary) 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.+-- | A list of provisioning artifact objects for the specified product. The @ProvisioningArtifacts@ represent the ways in which the specified product can be provisioned. dpvrsProvisioningArtifacts :: Lens' DescribeProductViewResponse [ProvisioningArtifact] dpvrsProvisioningArtifacts = lens _dpvrsProvisioningArtifacts (\ s a -> s{_dpvrsProvisioningArtifacts = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dpvrsResponseStatus :: Lens' DescribeProductViewResponse Int dpvrsResponseStatus = lens _dpvrsResponseStatus (\ s a -> s{_dpvrsResponseStatus = a}); 

@@ -0,0 +1,179 @@+{-# 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.DescribeProvisioningArtifact+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves detailed information about the specified provisioning artifact.+--+--+module Network.AWS.ServiceCatalog.DescribeProvisioningArtifact+    (+    -- * Creating a Request+      describeProvisioningArtifact+    , DescribeProvisioningArtifact+    -- * Request Lenses+    , dpaAcceptLanguage+    , dpaProvisioningArtifactId+    , dpaProductId++    -- * Destructuring the Response+    , describeProvisioningArtifactResponse+    , DescribeProvisioningArtifactResponse+    -- * Response Lenses+    , desrsStatus+    , desrsInfo+    , desrsProvisioningArtifactDetail+    , desrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'describeProvisioningArtifact' smart constructor.+data DescribeProvisioningArtifact = DescribeProvisioningArtifact'+    { _dpaAcceptLanguage         :: !(Maybe Text)+    , _dpaProvisioningArtifactId :: !Text+    , _dpaProductId              :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeProvisioningArtifact' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dpaProvisioningArtifactId' - The identifier of the provisioning artifact.+--+-- * 'dpaProductId' - The product identifier.+describeProvisioningArtifact+    :: Text -- ^ 'dpaProvisioningArtifactId'+    -> Text -- ^ 'dpaProductId'+    -> DescribeProvisioningArtifact+describeProvisioningArtifact pProvisioningArtifactId_ pProductId_ =+    DescribeProvisioningArtifact'+    { _dpaAcceptLanguage = Nothing+    , _dpaProvisioningArtifactId = pProvisioningArtifactId_+    , _dpaProductId = pProductId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dpaAcceptLanguage :: Lens' DescribeProvisioningArtifact (Maybe Text)+dpaAcceptLanguage = lens _dpaAcceptLanguage (\ s a -> s{_dpaAcceptLanguage = a});++-- | The identifier of the provisioning artifact.+dpaProvisioningArtifactId :: Lens' DescribeProvisioningArtifact Text+dpaProvisioningArtifactId = lens _dpaProvisioningArtifactId (\ s a -> s{_dpaProvisioningArtifactId = a});++-- | The product identifier.+dpaProductId :: Lens' DescribeProvisioningArtifact Text+dpaProductId = lens _dpaProductId (\ s a -> s{_dpaProductId = a});++instance AWSRequest DescribeProvisioningArtifact+         where+        type Rs DescribeProvisioningArtifact =+             DescribeProvisioningArtifactResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 DescribeProvisioningArtifactResponse' <$>+                   (x .?> "Status") <*> (x .?> "Info" .!@ mempty) <*>+                     (x .?> "ProvisioningArtifactDetail")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeProvisioningArtifact++instance NFData DescribeProvisioningArtifact++instance ToHeaders DescribeProvisioningArtifact where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DescribeProvisioningArtifact"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeProvisioningArtifact where+        toJSON DescribeProvisioningArtifact'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpaAcceptLanguage,+                  Just+                    ("ProvisioningArtifactId" .=+                       _dpaProvisioningArtifactId),+                  Just ("ProductId" .= _dpaProductId)])++instance ToPath DescribeProvisioningArtifact where+        toPath = const "/"++instance ToQuery DescribeProvisioningArtifact where+        toQuery = const mempty++-- | /See:/ 'describeProvisioningArtifactResponse' smart constructor.+data DescribeProvisioningArtifactResponse = DescribeProvisioningArtifactResponse'+    { _desrsStatus                     :: !(Maybe RequestStatus)+    , _desrsInfo                       :: !(Maybe (Map Text Text))+    , _desrsProvisioningArtifactDetail :: !(Maybe ProvisioningArtifactDetail)+    , _desrsResponseStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeProvisioningArtifactResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desrsStatus' - The status of the current request.+--+-- * 'desrsInfo' - Additional information about the provisioning artifact.+--+-- * 'desrsProvisioningArtifactDetail' - Detailed provisioning artifact information.+--+-- * 'desrsResponseStatus' - -- | The response status code.+describeProvisioningArtifactResponse+    :: Int -- ^ 'desrsResponseStatus'+    -> DescribeProvisioningArtifactResponse+describeProvisioningArtifactResponse pResponseStatus_ =+    DescribeProvisioningArtifactResponse'+    { _desrsStatus = Nothing+    , _desrsInfo = Nothing+    , _desrsProvisioningArtifactDetail = Nothing+    , _desrsResponseStatus = pResponseStatus_+    }++-- | The status of the current request.+desrsStatus :: Lens' DescribeProvisioningArtifactResponse (Maybe RequestStatus)+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});++-- | Additional information about the provisioning artifact.+desrsInfo :: Lens' DescribeProvisioningArtifactResponse (HashMap Text Text)+desrsInfo = lens _desrsInfo (\ s a -> s{_desrsInfo = a}) . _Default . _Map;++-- | Detailed provisioning artifact information.+desrsProvisioningArtifactDetail :: Lens' DescribeProvisioningArtifactResponse (Maybe ProvisioningArtifactDetail)+desrsProvisioningArtifactDetail = lens _desrsProvisioningArtifactDetail (\ s a -> s{_desrsProvisioningArtifactDetail = a});++-- | -- | The response status code.+desrsResponseStatus :: Lens' DescribeProvisioningArtifactResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});++instance NFData DescribeProvisioningArtifactResponse

@@ -18,17 +18,19 @@ -- 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.+-- 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.+--+-- module Network.AWS.ServiceCatalog.DescribeProvisioningParameters     (     -- * Creating a Request       describeProvisioningParameters     , DescribeProvisioningParameters     -- * Request Lenses-    , dppAcceptLanguage-    , dppPathId-    , dppProductId-    , dppProvisioningArtifactId+    , dppsAcceptLanguage+    , dppsPathId+    , dppsProductId+    , dppsProvisioningArtifactId      -- * Destructuring the Response     , describeProvisioningParametersResponse@@ -49,58 +51,50 @@  -- | /See:/ 'describeProvisioningParameters' smart constructor. data DescribeProvisioningParameters = DescribeProvisioningParameters'-    { _dppAcceptLanguage         :: !(Maybe Text)-    , _dppPathId                 :: !(Maybe Text)-    , _dppProductId              :: !Text-    , _dppProvisioningArtifactId :: !Text+    { _dppsAcceptLanguage         :: !(Maybe Text)+    , _dppsPathId                 :: !(Maybe Text)+    , _dppsProductId              :: !Text+    , _dppsProvisioningArtifactId :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeProvisioningParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dppAcceptLanguage'+-- * 'dppsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'dppPathId'+-- * '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. ----- * 'dppProductId'+-- * 'dppsProductId' - The product identifier. ----- * 'dppProvisioningArtifactId'+-- * 'dppsProvisioningArtifactId' - The provisioning artifact identifier for this product. describeProvisioningParameters-    :: Text -- ^ 'dppProductId'-    -> Text -- ^ 'dppProvisioningArtifactId'+    :: Text -- ^ 'dppsProductId'+    -> Text -- ^ 'dppsProvisioningArtifactId'     -> DescribeProvisioningParameters describeProvisioningParameters pProductId_ pProvisioningArtifactId_ =     DescribeProvisioningParameters'-    { _dppAcceptLanguage = Nothing-    , _dppPathId = Nothing-    , _dppProductId = pProductId_-    , _dppProvisioningArtifactId = pProvisioningArtifactId_+    { _dppsAcceptLanguage = Nothing+    , _dppsPathId = Nothing+    , _dppsProductId = pProductId_+    , _dppsProvisioningArtifactId = pProvisioningArtifactId_     } --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.-dppAcceptLanguage :: Lens' DescribeProvisioningParameters (Maybe Text)-dppAcceptLanguage = lens _dppAcceptLanguage (\ s a -> s{_dppAcceptLanguage = a});+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dppsAcceptLanguage :: Lens' DescribeProvisioningParameters (Maybe Text)+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.-dppPathId :: Lens' DescribeProvisioningParameters (Maybe Text)-dppPathId = lens _dppPathId (\ s a -> s{_dppPathId = 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.+dppsPathId :: Lens' DescribeProvisioningParameters (Maybe Text)+dppsPathId = lens _dppsPathId (\ s a -> s{_dppsPathId = a}); --- | The identifier of the product.-dppProductId :: Lens' DescribeProvisioningParameters Text-dppProductId = lens _dppProductId (\ s a -> s{_dppProductId = a});+-- | The product identifier.+dppsProductId :: Lens' DescribeProvisioningParameters Text+dppsProductId = lens _dppsProductId (\ s a -> s{_dppsProductId = a});  -- | The provisioning artifact identifier for this product.-dppProvisioningArtifactId :: Lens' DescribeProvisioningParameters Text-dppProvisioningArtifactId = lens _dppProvisioningArtifactId (\ s a -> s{_dppProvisioningArtifactId = a});+dppsProvisioningArtifactId :: Lens' DescribeProvisioningParameters Text+dppsProvisioningArtifactId = lens _dppsProvisioningArtifactId (\ s a -> s{_dppsProvisioningArtifactId = a});  instance AWSRequest DescribeProvisioningParameters          where@@ -135,12 +129,12 @@         toJSON DescribeProvisioningParameters'{..}           = object               (catMaybes-                 [("AcceptLanguage" .=) <$> _dppAcceptLanguage,-                  ("PathId" .=) <$> _dppPathId,-                  Just ("ProductId" .= _dppProductId),+                 [("AcceptLanguage" .=) <$> _dppsAcceptLanguage,+                  ("PathId" .=) <$> _dppsPathId,+                  Just ("ProductId" .= _dppsProductId),                   Just                     ("ProvisioningArtifactId" .=-                       _dppProvisioningArtifactId)])+                       _dppsProvisioningArtifactId)])  instance ToPath DescribeProvisioningParameters where         toPath = const "/"@@ -160,13 +154,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpprsProvisioningArtifactParameters'+-- * '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. ----- * 'dpprsUsageInstructions'+-- * 'dpprsUsageInstructions' - Any additional metadata specifically related to the provisioning of the product. For example, see the @Version@ field of the CloudFormation template. ----- * 'dpprsConstraintSummaries'+-- * 'dpprsConstraintSummaries' - The list of constraint summaries that apply to provisioning this product. ----- * 'dpprsResponseStatus'+-- * 'dpprsResponseStatus' - -- | The response status code. describeProvisioningParametersResponse     :: Int -- ^ 'dpprsResponseStatus'     -> DescribeProvisioningParametersResponse@@ -182,7 +176,7 @@ dpprsProvisioningArtifactParameters :: Lens' DescribeProvisioningParametersResponse [ProvisioningArtifactParameter] 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.+-- | 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; @@ -190,7 +184,7 @@ dpprsConstraintSummaries :: Lens' DescribeProvisioningParametersResponse [ConstraintSummary] dpprsConstraintSummaries = lens _dpprsConstraintSummaries (\ s a -> s{_dpprsConstraintSummaries = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dpprsResponseStatus :: Lens' DescribeProvisioningParametersResponse Int dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a}); 

@@ -18,7 +18,9 @@ -- 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>).+-- Retrieves a paginated list of the full details of a specific request. Use this operation after calling a request operation ('ProvisionProduct' , 'TerminateProvisionedProduct' , or 'UpdateProvisionedProduct' ).+--+-- module Network.AWS.ServiceCatalog.DescribeRecord     (     -- * Creating a Request@@ -59,13 +61,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drAcceptLanguage'+-- * 'drAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'drPageToken'+-- * 'drPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . ----- * 'drPageSize'+-- * '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. ----- * 'drId'+-- * '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. describeRecord     :: Text -- ^ 'drId'     -> DescribeRecord@@ -77,27 +79,19 @@     , _drId = pId_     } --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. drAcceptLanguage :: Lens' DescribeRecord (Maybe Text) drAcceptLanguage = lens _drAcceptLanguage (\ s a -> s{_drAcceptLanguage = a}); --- | The page token of the first page retrieve. If null, this retrieves the first page of size 'PageSize'.+-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . drPageToken :: Lens' DescribeRecord (Maybe Text) 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 in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null. drPageSize :: Lens' DescribeRecord (Maybe Natural) 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 ProvisionedProduct object for which to retrieve output information. This is the @RecordDetail.RecordId@ obtained from the request operation's response. drId :: Lens' DescribeRecord Text drId = lens _drId (\ s a -> s{_drId = a}); @@ -153,13 +147,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drrsRecordDetail'+-- * 'drrsRecordDetail' - Detailed record information for the specified product. ----- * 'drrsNextPageToken'+-- * '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. ----- * 'drrsRecordOutputs'+-- * '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. ----- * 'drrsResponseStatus'+-- * 'drrsResponseStatus' - -- | The response status code. describeRecordResponse     :: Int -- ^ 'drrsResponseStatus'     -> DescribeRecordResponse@@ -183,7 +177,7 @@ drrsRecordOutputs :: Lens' DescribeRecordResponse [RecordOutput] drrsRecordOutputs = lens _drrsRecordOutputs (\ s a -> s{_drrsRecordOutputs = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. drrsResponseStatus :: Lens' DescribeRecordResponse Int drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a}); 

@@ -0,0 +1,153 @@+{-# 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.DisassociatePrincipalFromPortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disassociates a previously associated principal ARN from a specified portfolio.+--+--+module Network.AWS.ServiceCatalog.DisassociatePrincipalFromPortfolio+    (+    -- * Creating a Request+      disassociatePrincipalFromPortfolio+    , DisassociatePrincipalFromPortfolio+    -- * Request Lenses+    , disAcceptLanguage+    , disPortfolioId+    , disPrincipalARN++    -- * Destructuring the Response+    , disassociatePrincipalFromPortfolioResponse+    , DisassociatePrincipalFromPortfolioResponse+    -- * Response Lenses+    , dpfprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'disassociatePrincipalFromPortfolio' smart constructor.+data DisassociatePrincipalFromPortfolio = DisassociatePrincipalFromPortfolio'+    { _disAcceptLanguage :: !(Maybe Text)+    , _disPortfolioId    :: !Text+    , _disPrincipalARN   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociatePrincipalFromPortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'disAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'disPortfolioId' - The portfolio identifier.+--+-- * 'disPrincipalARN' - The ARN representing the principal (IAM user, role, or group).+disassociatePrincipalFromPortfolio+    :: Text -- ^ 'disPortfolioId'+    -> Text -- ^ 'disPrincipalARN'+    -> DisassociatePrincipalFromPortfolio+disassociatePrincipalFromPortfolio pPortfolioId_ pPrincipalARN_ =+    DisassociatePrincipalFromPortfolio'+    { _disAcceptLanguage = Nothing+    , _disPortfolioId = pPortfolioId_+    , _disPrincipalARN = pPrincipalARN_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+disAcceptLanguage :: Lens' DisassociatePrincipalFromPortfolio (Maybe Text)+disAcceptLanguage = lens _disAcceptLanguage (\ s a -> s{_disAcceptLanguage = a});++-- | The portfolio identifier.+disPortfolioId :: Lens' DisassociatePrincipalFromPortfolio Text+disPortfolioId = lens _disPortfolioId (\ s a -> s{_disPortfolioId = a});++-- | The ARN representing the principal (IAM user, role, or group).+disPrincipalARN :: Lens' DisassociatePrincipalFromPortfolio Text+disPrincipalARN = lens _disPrincipalARN (\ s a -> s{_disPrincipalARN = a});++instance AWSRequest+         DisassociatePrincipalFromPortfolio where+        type Rs DisassociatePrincipalFromPortfolio =+             DisassociatePrincipalFromPortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DisassociatePrincipalFromPortfolioResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DisassociatePrincipalFromPortfolio++instance NFData DisassociatePrincipalFromPortfolio++instance ToHeaders DisassociatePrincipalFromPortfolio+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DisassociatePrincipalFromPortfolio"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DisassociatePrincipalFromPortfolio+         where+        toJSON DisassociatePrincipalFromPortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _disAcceptLanguage,+                  Just ("PortfolioId" .= _disPortfolioId),+                  Just ("PrincipalARN" .= _disPrincipalARN)])++instance ToPath DisassociatePrincipalFromPortfolio+         where+        toPath = const "/"++instance ToQuery DisassociatePrincipalFromPortfolio+         where+        toQuery = const mempty++-- | /See:/ 'disassociatePrincipalFromPortfolioResponse' smart constructor.+newtype DisassociatePrincipalFromPortfolioResponse = DisassociatePrincipalFromPortfolioResponse'+    { _dpfprsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociatePrincipalFromPortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpfprsResponseStatus' - -- | The response status code.+disassociatePrincipalFromPortfolioResponse+    :: Int -- ^ 'dpfprsResponseStatus'+    -> DisassociatePrincipalFromPortfolioResponse+disassociatePrincipalFromPortfolioResponse pResponseStatus_ =+    DisassociatePrincipalFromPortfolioResponse'+    { _dpfprsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+dpfprsResponseStatus :: Lens' DisassociatePrincipalFromPortfolioResponse Int+dpfprsResponseStatus = lens _dpfprsResponseStatus (\ s a -> s{_dpfprsResponseStatus = a});++instance NFData+         DisassociatePrincipalFromPortfolioResponse

@@ -0,0 +1,153 @@+{-# 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.DisassociateProductFromPortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disassociates the specified product from the specified portfolio.+--+--+module Network.AWS.ServiceCatalog.DisassociateProductFromPortfolio+    (+    -- * Creating a Request+      disassociateProductFromPortfolio+    , DisassociateProductFromPortfolio+    -- * Request Lenses+    , dpfpAcceptLanguage+    , dpfpProductId+    , dpfpPortfolioId++    -- * Destructuring the Response+    , disassociateProductFromPortfolioResponse+    , DisassociateProductFromPortfolioResponse+    -- * Response Lenses+    , disrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'disassociateProductFromPortfolio' smart constructor.+data DisassociateProductFromPortfolio = DisassociateProductFromPortfolio'+    { _dpfpAcceptLanguage :: !(Maybe Text)+    , _dpfpProductId      :: !Text+    , _dpfpPortfolioId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociateProductFromPortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpfpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'dpfpProductId' - The product identifier.+--+-- * 'dpfpPortfolioId' - The portfolio identifier.+disassociateProductFromPortfolio+    :: Text -- ^ 'dpfpProductId'+    -> Text -- ^ 'dpfpPortfolioId'+    -> DisassociateProductFromPortfolio+disassociateProductFromPortfolio pProductId_ pPortfolioId_ =+    DisassociateProductFromPortfolio'+    { _dpfpAcceptLanguage = Nothing+    , _dpfpProductId = pProductId_+    , _dpfpPortfolioId = pPortfolioId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+dpfpAcceptLanguage :: Lens' DisassociateProductFromPortfolio (Maybe Text)+dpfpAcceptLanguage = lens _dpfpAcceptLanguage (\ s a -> s{_dpfpAcceptLanguage = a});++-- | The product identifier.+dpfpProductId :: Lens' DisassociateProductFromPortfolio Text+dpfpProductId = lens _dpfpProductId (\ s a -> s{_dpfpProductId = a});++-- | The portfolio identifier.+dpfpPortfolioId :: Lens' DisassociateProductFromPortfolio Text+dpfpPortfolioId = lens _dpfpPortfolioId (\ s a -> s{_dpfpPortfolioId = a});++instance AWSRequest DisassociateProductFromPortfolio+         where+        type Rs DisassociateProductFromPortfolio =+             DisassociateProductFromPortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 DisassociateProductFromPortfolioResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DisassociateProductFromPortfolio++instance NFData DisassociateProductFromPortfolio++instance ToHeaders DisassociateProductFromPortfolio+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.DisassociateProductFromPortfolio"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DisassociateProductFromPortfolio+         where+        toJSON DisassociateProductFromPortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _dpfpAcceptLanguage,+                  Just ("ProductId" .= _dpfpProductId),+                  Just ("PortfolioId" .= _dpfpPortfolioId)])++instance ToPath DisassociateProductFromPortfolio+         where+        toPath = const "/"++instance ToQuery DisassociateProductFromPortfolio+         where+        toQuery = const mempty++-- | /See:/ 'disassociateProductFromPortfolioResponse' smart constructor.+newtype DisassociateProductFromPortfolioResponse = DisassociateProductFromPortfolioResponse'+    { _disrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisassociateProductFromPortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'disrsResponseStatus' - -- | The response status code.+disassociateProductFromPortfolioResponse+    :: Int -- ^ 'disrsResponseStatus'+    -> DisassociateProductFromPortfolioResponse+disassociateProductFromPortfolioResponse pResponseStatus_ =+    DisassociateProductFromPortfolioResponse'+    { _disrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+disrsResponseStatus :: Lens' DisassociateProductFromPortfolioResponse Int+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});++instance NFData+         DisassociateProductFromPortfolioResponse

@@ -0,0 +1,165 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists details of all portfolios for which sharing was accepted by this account.+--+--+module Network.AWS.ServiceCatalog.ListAcceptedPortfolioShares+    (+    -- * Creating a Request+      listAcceptedPortfolioShares+    , ListAcceptedPortfolioShares+    -- * Request Lenses+    , lapsAcceptLanguage+    , lapsPageToken+    , lapsPageSize++    -- * Destructuring the Response+    , listAcceptedPortfolioSharesResponse+    , ListAcceptedPortfolioSharesResponse+    -- * Response Lenses+    , lapsrsNextPageToken+    , lapsrsPortfolioDetails+    , lapsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listAcceptedPortfolioShares' smart constructor.+data ListAcceptedPortfolioShares = ListAcceptedPortfolioShares'+    { _lapsAcceptLanguage :: !(Maybe Text)+    , _lapsPageToken      :: !(Maybe Text)+    , _lapsPageSize       :: !(Maybe Nat)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListAcceptedPortfolioShares' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lapsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lapsPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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.+listAcceptedPortfolioShares+    :: ListAcceptedPortfolioShares+listAcceptedPortfolioShares =+    ListAcceptedPortfolioShares'+    { _lapsAcceptLanguage = Nothing+    , _lapsPageToken = Nothing+    , _lapsPageSize = Nothing+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lapsAcceptLanguage :: Lens' ListAcceptedPortfolioShares (Maybe Text)+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@ .+lapsPageToken :: Lens' ListAcceptedPortfolioShares (Maybe Text)+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.+lapsPageSize :: Lens' ListAcceptedPortfolioShares (Maybe Natural)+lapsPageSize = lens _lapsPageSize (\ s a -> s{_lapsPageSize = a}) . mapping _Nat;++instance AWSRequest ListAcceptedPortfolioShares where+        type Rs ListAcceptedPortfolioShares =+             ListAcceptedPortfolioSharesResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListAcceptedPortfolioSharesResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "PortfolioDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListAcceptedPortfolioShares++instance NFData ListAcceptedPortfolioShares++instance ToHeaders ListAcceptedPortfolioShares where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListAcceptedPortfolioShares"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListAcceptedPortfolioShares where+        toJSON ListAcceptedPortfolioShares'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lapsAcceptLanguage,+                  ("PageToken" .=) <$> _lapsPageToken,+                  ("PageSize" .=) <$> _lapsPageSize])++instance ToPath ListAcceptedPortfolioShares where+        toPath = const "/"++instance ToQuery ListAcceptedPortfolioShares where+        toQuery = const mempty++-- | /See:/ 'listAcceptedPortfolioSharesResponse' smart constructor.+data ListAcceptedPortfolioSharesResponse = ListAcceptedPortfolioSharesResponse'+    { _lapsrsNextPageToken    :: !(Maybe Text)+    , _lapsrsPortfolioDetails :: !(Maybe [PortfolioDetail])+    , _lapsrsResponseStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListAcceptedPortfolioSharesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lapsrsPortfolioDetails' - List of detailed portfolio information objects.+--+-- * 'lapsrsResponseStatus' - -- | The response status code.+listAcceptedPortfolioSharesResponse+    :: Int -- ^ 'lapsrsResponseStatus'+    -> ListAcceptedPortfolioSharesResponse+listAcceptedPortfolioSharesResponse pResponseStatus_ =+    ListAcceptedPortfolioSharesResponse'+    { _lapsrsNextPageToken = Nothing+    , _lapsrsPortfolioDetails = Nothing+    , _lapsrsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lapsrsNextPageToken :: Lens' ListAcceptedPortfolioSharesResponse (Maybe Text)+lapsrsNextPageToken = lens _lapsrsNextPageToken (\ s a -> s{_lapsrsNextPageToken = a});++-- | List of detailed portfolio information objects.+lapsrsPortfolioDetails :: Lens' ListAcceptedPortfolioSharesResponse [PortfolioDetail]+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});++instance NFData ListAcceptedPortfolioSharesResponse

@@ -0,0 +1,186 @@+{-# 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.ListConstraintsForPortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves detailed constraint information for the specified portfolio and product.+--+--+module Network.AWS.ServiceCatalog.ListConstraintsForPortfolio+    (+    -- * Creating a Request+      listConstraintsForPortfolio+    , ListConstraintsForPortfolio+    -- * Request Lenses+    , lcfpAcceptLanguage+    , lcfpPageToken+    , lcfpPageSize+    , lcfpProductId+    , lcfpPortfolioId++    -- * Destructuring the Response+    , listConstraintsForPortfolioResponse+    , ListConstraintsForPortfolioResponse+    -- * Response Lenses+    , lcfprsNextPageToken+    , lcfprsConstraintDetails+    , lcfprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listConstraintsForPortfolio' smart constructor.+data ListConstraintsForPortfolio = ListConstraintsForPortfolio'+    { _lcfpAcceptLanguage :: !(Maybe Text)+    , _lcfpPageToken      :: !(Maybe Text)+    , _lcfpPageSize       :: !(Maybe Nat)+    , _lcfpProductId      :: !(Maybe Text)+    , _lcfpPortfolioId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListConstraintsForPortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcfpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lcfpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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.+--+-- * 'lcfpProductId' - The product identifier.+--+-- * 'lcfpPortfolioId' - The portfolio identifier.+listConstraintsForPortfolio+    :: Text -- ^ 'lcfpPortfolioId'+    -> ListConstraintsForPortfolio+listConstraintsForPortfolio pPortfolioId_ =+    ListConstraintsForPortfolio'+    { _lcfpAcceptLanguage = Nothing+    , _lcfpPageToken = Nothing+    , _lcfpPageSize = Nothing+    , _lcfpProductId = Nothing+    , _lcfpPortfolioId = pPortfolioId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lcfpAcceptLanguage :: Lens' ListConstraintsForPortfolio (Maybe Text)+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@ .+lcfpPageToken :: Lens' ListConstraintsForPortfolio (Maybe Text)+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.+lcfpPageSize :: Lens' ListConstraintsForPortfolio (Maybe Natural)+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});++-- | The portfolio identifier.+lcfpPortfolioId :: Lens' ListConstraintsForPortfolio Text+lcfpPortfolioId = lens _lcfpPortfolioId (\ s a -> s{_lcfpPortfolioId = a});++instance AWSRequest ListConstraintsForPortfolio where+        type Rs ListConstraintsForPortfolio =+             ListConstraintsForPortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListConstraintsForPortfolioResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "ConstraintDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListConstraintsForPortfolio++instance NFData ListConstraintsForPortfolio++instance ToHeaders ListConstraintsForPortfolio where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListConstraintsForPortfolio"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListConstraintsForPortfolio where+        toJSON ListConstraintsForPortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lcfpAcceptLanguage,+                  ("PageToken" .=) <$> _lcfpPageToken,+                  ("PageSize" .=) <$> _lcfpPageSize,+                  ("ProductId" .=) <$> _lcfpProductId,+                  Just ("PortfolioId" .= _lcfpPortfolioId)])++instance ToPath ListConstraintsForPortfolio where+        toPath = const "/"++instance ToQuery ListConstraintsForPortfolio where+        toQuery = const mempty++-- | /See:/ 'listConstraintsForPortfolioResponse' smart constructor.+data ListConstraintsForPortfolioResponse = ListConstraintsForPortfolioResponse'+    { _lcfprsNextPageToken     :: !(Maybe Text)+    , _lcfprsConstraintDetails :: !(Maybe [ConstraintDetail])+    , _lcfprsResponseStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListConstraintsForPortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lcfprsConstraintDetails' - List of detailed constraint information objects.+--+-- * 'lcfprsResponseStatus' - -- | The response status code.+listConstraintsForPortfolioResponse+    :: Int -- ^ 'lcfprsResponseStatus'+    -> ListConstraintsForPortfolioResponse+listConstraintsForPortfolioResponse pResponseStatus_ =+    ListConstraintsForPortfolioResponse'+    { _lcfprsNextPageToken = Nothing+    , _lcfprsConstraintDetails = Nothing+    , _lcfprsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lcfprsNextPageToken :: Lens' ListConstraintsForPortfolioResponse (Maybe Text)+lcfprsNextPageToken = lens _lcfprsNextPageToken (\ s a -> s{_lcfprsNextPageToken = a});++-- | List of detailed constraint information objects.+lcfprsConstraintDetails :: Lens' ListConstraintsForPortfolioResponse [ConstraintDetail]+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});++instance NFData ListConstraintsForPortfolioResponse

@@ -19,6 +19,8 @@ -- 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.+--+-- module Network.AWS.ServiceCatalog.ListLaunchPaths     (     -- * Creating a Request@@ -58,13 +60,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'llpAcceptLanguage'+-- * 'llpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'llpPageToken'+-- * 'llpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . ----- * 'llpPageSize'+-- * 'llpPageSize' - The maximum number of items to return in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null. ----- * 'llpProductId'+-- * 'llpProductId' - The product identifier.. Identifies the product for which to retrieve @LaunchPathSummaries@ information. listLaunchPaths     :: Text -- ^ 'llpProductId'     -> ListLaunchPaths@@ -76,27 +78,19 @@     , _llpProductId = pProductId_     } --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. llpAcceptLanguage :: Lens' ListLaunchPaths (Maybe Text) llpAcceptLanguage = lens _llpAcceptLanguage (\ s a -> s{_llpAcceptLanguage = a}); --- | The page token of the first page retrieve. If null, this retrieves the first page of size 'PageSize'.+-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . llpPageToken :: Lens' ListLaunchPaths (Maybe Text) 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 in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null. llpPageSize :: Lens' ListLaunchPaths (Maybe Natural) llpPageSize = lens _llpPageSize (\ s a -> s{_llpPageSize = a}) . mapping _Nat; --- | Identifies the product for which to retrieve 'LaunchPathSummaries' information.+-- | The product identifier.. Identifies the product for which to retrieve @LaunchPathSummaries@ information. llpProductId :: Lens' ListLaunchPaths Text llpProductId = lens _llpProductId (\ s a -> s{_llpProductId = a}); @@ -151,11 +145,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'llprsNextPageToken'+-- * '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. ----- * 'llprsLaunchPathSummaries'+-- * 'llprsLaunchPathSummaries' - List of launch path information summaries for the specified @PageToken@ . ----- * 'llprsResponseStatus'+-- * 'llprsResponseStatus' - -- | The response status code. listLaunchPathsResponse     :: Int -- ^ 'llprsResponseStatus'     -> ListLaunchPathsResponse@@ -170,11 +164,11 @@ llprsNextPageToken :: Lens' ListLaunchPathsResponse (Maybe Text) llprsNextPageToken = lens _llprsNextPageToken (\ s a -> s{_llprsNextPageToken = a}); --- | List of launch path information summaries for the specified 'PageToken'.+-- | List of launch path information summaries for the specified @PageToken@ . llprsLaunchPathSummaries :: Lens' ListLaunchPathsResponse [LaunchPathSummary] llprsLaunchPathSummaries = lens _llprsLaunchPathSummaries (\ s a -> s{_llprsLaunchPathSummaries = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. llprsResponseStatus :: Lens' ListLaunchPathsResponse Int llprsResponseStatus = lens _llprsResponseStatus (\ s a -> s{_llprsResponseStatus = a}); 

@@ -0,0 +1,156 @@+{-# 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.ListPortfolioAccess+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the account IDs that have been authorized sharing of the specified portfolio.+--+--+module Network.AWS.ServiceCatalog.ListPortfolioAccess+    (+    -- * Creating a Request+      listPortfolioAccess+    , ListPortfolioAccess+    -- * Request Lenses+    , lAcceptLanguage+    , lPortfolioId++    -- * Destructuring the Response+    , listPortfolioAccessResponse+    , ListPortfolioAccessResponse+    -- * Response Lenses+    , lparsNextPageToken+    , lparsAccountIds+    , lparsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listPortfolioAccess' smart constructor.+data ListPortfolioAccess = ListPortfolioAccess'+    { _lAcceptLanguage :: !(Maybe Text)+    , _lPortfolioId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPortfolioAccess' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lPortfolioId' - The portfolio identifier.+listPortfolioAccess+    :: Text -- ^ 'lPortfolioId'+    -> ListPortfolioAccess+listPortfolioAccess pPortfolioId_ =+    ListPortfolioAccess'+    { _lAcceptLanguage = Nothing+    , _lPortfolioId = pPortfolioId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lAcceptLanguage :: Lens' ListPortfolioAccess (Maybe Text)+lAcceptLanguage = lens _lAcceptLanguage (\ s a -> s{_lAcceptLanguage = a});++-- | The portfolio identifier.+lPortfolioId :: Lens' ListPortfolioAccess Text+lPortfolioId = lens _lPortfolioId (\ s a -> s{_lPortfolioId = a});++instance AWSRequest ListPortfolioAccess where+        type Rs ListPortfolioAccess =+             ListPortfolioAccessResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListPortfolioAccessResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "AccountIds" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListPortfolioAccess++instance NFData ListPortfolioAccess++instance ToHeaders ListPortfolioAccess where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListPortfolioAccess" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListPortfolioAccess where+        toJSON ListPortfolioAccess'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lAcceptLanguage,+                  Just ("PortfolioId" .= _lPortfolioId)])++instance ToPath ListPortfolioAccess where+        toPath = const "/"++instance ToQuery ListPortfolioAccess where+        toQuery = const mempty++-- | /See:/ 'listPortfolioAccessResponse' smart constructor.+data ListPortfolioAccessResponse = ListPortfolioAccessResponse'+    { _lparsNextPageToken  :: !(Maybe Text)+    , _lparsAccountIds     :: !(Maybe [Text])+    , _lparsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPortfolioAccessResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lparsAccountIds' - List of account IDs associated with access to the portfolio.+--+-- * 'lparsResponseStatus' - -- | The response status code.+listPortfolioAccessResponse+    :: Int -- ^ 'lparsResponseStatus'+    -> ListPortfolioAccessResponse+listPortfolioAccessResponse pResponseStatus_ =+    ListPortfolioAccessResponse'+    { _lparsNextPageToken = Nothing+    , _lparsAccountIds = Nothing+    , _lparsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lparsNextPageToken :: Lens' ListPortfolioAccessResponse (Maybe Text)+lparsNextPageToken = lens _lparsNextPageToken (\ s a -> s{_lparsNextPageToken = a});++-- | List of account IDs associated with access to the portfolio.+lparsAccountIds :: Lens' ListPortfolioAccessResponse [Text]+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});++instance NFData ListPortfolioAccessResponse

@@ -0,0 +1,164 @@+{-# 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.ListPortfolios+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all portfolios in the catalog.+--+--+module Network.AWS.ServiceCatalog.ListPortfolios+    (+    -- * Creating a Request+      listPortfolios+    , ListPortfolios+    -- * Request Lenses+    , lpAcceptLanguage+    , lpPageToken+    , lpPageSize++    -- * Destructuring the Response+    , listPortfoliosResponse+    , ListPortfoliosResponse+    -- * Response Lenses+    , lprsNextPageToken+    , lprsPortfolioDetails+    , lprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listPortfolios' smart constructor.+data ListPortfolios = ListPortfolios'+    { _lpAcceptLanguage :: !(Maybe Text)+    , _lpPageToken      :: !(Maybe Text)+    , _lpPageSize       :: !(Maybe Nat)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPortfolios' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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.+listPortfolios+    :: ListPortfolios+listPortfolios =+    ListPortfolios'+    { _lpAcceptLanguage = Nothing+    , _lpPageToken = Nothing+    , _lpPageSize = Nothing+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lpAcceptLanguage :: Lens' ListPortfolios (Maybe Text)+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@ .+lpPageToken :: Lens' ListPortfolios (Maybe Text)+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.+lpPageSize :: Lens' ListPortfolios (Maybe Natural)+lpPageSize = lens _lpPageSize (\ s a -> s{_lpPageSize = a}) . mapping _Nat;++instance AWSRequest ListPortfolios where+        type Rs ListPortfolios = ListPortfoliosResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListPortfoliosResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "PortfolioDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListPortfolios++instance NFData ListPortfolios++instance ToHeaders ListPortfolios where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListPortfolios" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListPortfolios where+        toJSON ListPortfolios'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lpAcceptLanguage,+                  ("PageToken" .=) <$> _lpPageToken,+                  ("PageSize" .=) <$> _lpPageSize])++instance ToPath ListPortfolios where+        toPath = const "/"++instance ToQuery ListPortfolios where+        toQuery = const mempty++-- | /See:/ 'listPortfoliosResponse' smart constructor.+data ListPortfoliosResponse = ListPortfoliosResponse'+    { _lprsNextPageToken    :: !(Maybe Text)+    , _lprsPortfolioDetails :: !(Maybe [PortfolioDetail])+    , _lprsResponseStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPortfoliosResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lprsPortfolioDetails' - List of detailed portfolio information objects.+--+-- * 'lprsResponseStatus' - -- | The response status code.+listPortfoliosResponse+    :: Int -- ^ 'lprsResponseStatus'+    -> ListPortfoliosResponse+listPortfoliosResponse pResponseStatus_ =+    ListPortfoliosResponse'+    { _lprsNextPageToken = Nothing+    , _lprsPortfolioDetails = Nothing+    , _lprsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lprsNextPageToken :: Lens' ListPortfoliosResponse (Maybe Text)+lprsNextPageToken = lens _lprsNextPageToken (\ s a -> s{_lprsNextPageToken = a});++-- | List of detailed portfolio information objects.+lprsPortfolioDetails :: Lens' ListPortfoliosResponse [PortfolioDetail]+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});++instance NFData ListPortfoliosResponse

@@ -0,0 +1,176 @@+{-# 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.ListPortfoliosForProduct+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all portfolios that the specified product is associated with.+--+--+module Network.AWS.ServiceCatalog.ListPortfoliosForProduct+    (+    -- * Creating a Request+      listPortfoliosForProduct+    , ListPortfoliosForProduct+    -- * Request Lenses+    , lisAcceptLanguage+    , lisPageToken+    , lisPageSize+    , lisProductId++    -- * Destructuring the Response+    , listPortfoliosForProductResponse+    , ListPortfoliosForProductResponse+    -- * Response Lenses+    , lpfprsNextPageToken+    , lpfprsPortfolioDetails+    , lpfprsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listPortfoliosForProduct' smart constructor.+data ListPortfoliosForProduct = ListPortfoliosForProduct'+    { _lisAcceptLanguage :: !(Maybe Text)+    , _lisPageToken      :: !(Maybe Text)+    , _lisPageSize       :: !(Maybe Nat)+    , _lisProductId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPortfoliosForProduct' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lisAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lisPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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.+--+-- * 'lisProductId' - The product identifier.+listPortfoliosForProduct+    :: Text -- ^ 'lisProductId'+    -> ListPortfoliosForProduct+listPortfoliosForProduct pProductId_ =+    ListPortfoliosForProduct'+    { _lisAcceptLanguage = Nothing+    , _lisPageToken = Nothing+    , _lisPageSize = Nothing+    , _lisProductId = pProductId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lisAcceptLanguage :: Lens' ListPortfoliosForProduct (Maybe Text)+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@ .+lisPageToken :: Lens' ListPortfoliosForProduct (Maybe Text)+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.+lisPageSize :: Lens' ListPortfoliosForProduct (Maybe Natural)+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});++instance AWSRequest ListPortfoliosForProduct where+        type Rs ListPortfoliosForProduct =+             ListPortfoliosForProductResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListPortfoliosForProductResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "PortfolioDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListPortfoliosForProduct++instance NFData ListPortfoliosForProduct++instance ToHeaders ListPortfoliosForProduct where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListPortfoliosForProduct"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListPortfoliosForProduct where+        toJSON ListPortfoliosForProduct'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lisAcceptLanguage,+                  ("PageToken" .=) <$> _lisPageToken,+                  ("PageSize" .=) <$> _lisPageSize,+                  Just ("ProductId" .= _lisProductId)])++instance ToPath ListPortfoliosForProduct where+        toPath = const "/"++instance ToQuery ListPortfoliosForProduct where+        toQuery = const mempty++-- | /See:/ 'listPortfoliosForProductResponse' smart constructor.+data ListPortfoliosForProductResponse = ListPortfoliosForProductResponse'+    { _lpfprsNextPageToken    :: !(Maybe Text)+    , _lpfprsPortfolioDetails :: !(Maybe [PortfolioDetail])+    , _lpfprsResponseStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPortfoliosForProductResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lpfprsPortfolioDetails' - List of detailed portfolio information objects.+--+-- * 'lpfprsResponseStatus' - -- | The response status code.+listPortfoliosForProductResponse+    :: Int -- ^ 'lpfprsResponseStatus'+    -> ListPortfoliosForProductResponse+listPortfoliosForProductResponse pResponseStatus_ =+    ListPortfoliosForProductResponse'+    { _lpfprsNextPageToken = Nothing+    , _lpfprsPortfolioDetails = Nothing+    , _lpfprsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lpfprsNextPageToken :: Lens' ListPortfoliosForProductResponse (Maybe Text)+lpfprsNextPageToken = lens _lpfprsNextPageToken (\ s a -> s{_lpfprsNextPageToken = a});++-- | List of detailed portfolio information objects.+lpfprsPortfolioDetails :: Lens' ListPortfoliosForProductResponse [PortfolioDetail]+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});++instance NFData ListPortfoliosForProductResponse

@@ -0,0 +1,176 @@+{-# 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.ListPrincipalsForPortfolio+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all principal ARNs associated with the specified portfolio.+--+--+module Network.AWS.ServiceCatalog.ListPrincipalsForPortfolio+    (+    -- * Creating a Request+      listPrincipalsForPortfolio+    , ListPrincipalsForPortfolio+    -- * Request Lenses+    , lpfpAcceptLanguage+    , lpfpPageToken+    , lpfpPageSize+    , lpfpPortfolioId++    -- * Destructuring the Response+    , listPrincipalsForPortfolioResponse+    , ListPrincipalsForPortfolioResponse+    -- * Response Lenses+    , lisrsNextPageToken+    , lisrsPrincipals+    , lisrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listPrincipalsForPortfolio' smart constructor.+data ListPrincipalsForPortfolio = ListPrincipalsForPortfolio'+    { _lpfpAcceptLanguage :: !(Maybe Text)+    , _lpfpPageToken      :: !(Maybe Text)+    , _lpfpPageSize       :: !(Maybe Nat)+    , _lpfpPortfolioId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPrincipalsForPortfolio' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpfpAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lpfpPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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.+--+-- * 'lpfpPortfolioId' - The portfolio identifier.+listPrincipalsForPortfolio+    :: Text -- ^ 'lpfpPortfolioId'+    -> ListPrincipalsForPortfolio+listPrincipalsForPortfolio pPortfolioId_ =+    ListPrincipalsForPortfolio'+    { _lpfpAcceptLanguage = Nothing+    , _lpfpPageToken = Nothing+    , _lpfpPageSize = Nothing+    , _lpfpPortfolioId = pPortfolioId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lpfpAcceptLanguage :: Lens' ListPrincipalsForPortfolio (Maybe Text)+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@ .+lpfpPageToken :: Lens' ListPrincipalsForPortfolio (Maybe Text)+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.+lpfpPageSize :: Lens' ListPrincipalsForPortfolio (Maybe Natural)+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});++instance AWSRequest ListPrincipalsForPortfolio where+        type Rs ListPrincipalsForPortfolio =+             ListPrincipalsForPortfolioResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListPrincipalsForPortfolioResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "Principals" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListPrincipalsForPortfolio++instance NFData ListPrincipalsForPortfolio++instance ToHeaders ListPrincipalsForPortfolio where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListPrincipalsForPortfolio"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListPrincipalsForPortfolio where+        toJSON ListPrincipalsForPortfolio'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lpfpAcceptLanguage,+                  ("PageToken" .=) <$> _lpfpPageToken,+                  ("PageSize" .=) <$> _lpfpPageSize,+                  Just ("PortfolioId" .= _lpfpPortfolioId)])++instance ToPath ListPrincipalsForPortfolio where+        toPath = const "/"++instance ToQuery ListPrincipalsForPortfolio where+        toQuery = const mempty++-- | /See:/ 'listPrincipalsForPortfolioResponse' smart constructor.+data ListPrincipalsForPortfolioResponse = ListPrincipalsForPortfolioResponse'+    { _lisrsNextPageToken  :: !(Maybe Text)+    , _lisrsPrincipals     :: !(Maybe [Principal])+    , _lisrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPrincipalsForPortfolioResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lisrsPrincipals' - The IAM principals (users or roles) associated with the portfolio.+--+-- * 'lisrsResponseStatus' - -- | The response status code.+listPrincipalsForPortfolioResponse+    :: Int -- ^ 'lisrsResponseStatus'+    -> ListPrincipalsForPortfolioResponse+listPrincipalsForPortfolioResponse pResponseStatus_ =+    ListPrincipalsForPortfolioResponse'+    { _lisrsNextPageToken = Nothing+    , _lisrsPrincipals = Nothing+    , _lisrsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lisrsNextPageToken :: Lens' ListPrincipalsForPortfolioResponse (Maybe Text)+lisrsNextPageToken = lens _lisrsNextPageToken (\ s a -> s{_lisrsNextPageToken = a});++-- | The IAM principals (users or roles) associated with the portfolio.+lisrsPrincipals :: Lens' ListPrincipalsForPortfolioResponse [Principal]+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});++instance NFData ListPrincipalsForPortfolioResponse

@@ -0,0 +1,156 @@+{-# 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.ListProvisioningArtifacts+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all provisioning artifacts associated with the specified product.+--+--+module Network.AWS.ServiceCatalog.ListProvisioningArtifacts+    (+    -- * Creating a Request+      listProvisioningArtifacts+    , ListProvisioningArtifacts+    -- * Request Lenses+    , lpaAcceptLanguage+    , lpaProductId++    -- * Destructuring the Response+    , listProvisioningArtifactsResponse+    , ListProvisioningArtifactsResponse+    -- * Response Lenses+    , lrsNextPageToken+    , lrsProvisioningArtifactDetails+    , lrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'listProvisioningArtifacts' smart constructor.+data ListProvisioningArtifacts = ListProvisioningArtifacts'+    { _lpaAcceptLanguage :: !(Maybe Text)+    , _lpaProductId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListProvisioningArtifacts' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'lpaProductId' - The product identifier.+listProvisioningArtifacts+    :: Text -- ^ 'lpaProductId'+    -> ListProvisioningArtifacts+listProvisioningArtifacts pProductId_ =+    ListProvisioningArtifacts'+    { _lpaAcceptLanguage = Nothing+    , _lpaProductId = pProductId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+lpaAcceptLanguage :: Lens' ListProvisioningArtifacts (Maybe Text)+lpaAcceptLanguage = lens _lpaAcceptLanguage (\ s a -> s{_lpaAcceptLanguage = a});++-- | The product identifier.+lpaProductId :: Lens' ListProvisioningArtifacts Text+lpaProductId = lens _lpaProductId (\ s a -> s{_lpaProductId = a});++instance AWSRequest ListProvisioningArtifacts where+        type Rs ListProvisioningArtifacts =+             ListProvisioningArtifactsResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 ListProvisioningArtifactsResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "ProvisioningArtifactDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListProvisioningArtifacts++instance NFData ListProvisioningArtifacts++instance ToHeaders ListProvisioningArtifacts where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.ListProvisioningArtifacts"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListProvisioningArtifacts where+        toJSON ListProvisioningArtifacts'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _lpaAcceptLanguage,+                  Just ("ProductId" .= _lpaProductId)])++instance ToPath ListProvisioningArtifacts where+        toPath = const "/"++instance ToQuery ListProvisioningArtifacts where+        toQuery = const mempty++-- | /See:/ 'listProvisioningArtifactsResponse' smart constructor.+data ListProvisioningArtifactsResponse = ListProvisioningArtifactsResponse'+    { _lrsNextPageToken               :: !(Maybe Text)+    , _lrsProvisioningArtifactDetails :: !(Maybe [ProvisioningArtifactDetail])+    , _lrsResponseStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListProvisioningArtifactsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'lrsProvisioningArtifactDetails' - List of detailed provisioning artifact information objects.+--+-- * 'lrsResponseStatus' - -- | The response status code.+listProvisioningArtifactsResponse+    :: Int -- ^ 'lrsResponseStatus'+    -> ListProvisioningArtifactsResponse+listProvisioningArtifactsResponse pResponseStatus_ =+    ListProvisioningArtifactsResponse'+    { _lrsNextPageToken = Nothing+    , _lrsProvisioningArtifactDetails = Nothing+    , _lrsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+lrsNextPageToken :: Lens' ListProvisioningArtifactsResponse (Maybe Text)+lrsNextPageToken = lens _lrsNextPageToken (\ s a -> s{_lrsNextPageToken = a});++-- | List of detailed provisioning artifact information objects.+lrsProvisioningArtifactDetails :: Lens' ListProvisioningArtifactsResponse [ProvisioningArtifactDetail]+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});++instance NFData ListProvisioningArtifactsResponse

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns a paginated list of all performed requests, in the form of RecordDetails objects that are filtered as specified.+--+-- module Network.AWS.ServiceCatalog.ListRecordHistory     (     -- * Creating a Request@@ -27,6 +29,7 @@     -- * Request Lenses     , lrhSearchFilter     , lrhAcceptLanguage+    , lrhAccessLevelFilter     , lrhPageToken     , lrhPageSize @@ -48,54 +51,54 @@  -- | /See:/ 'listRecordHistory' smart constructor. data ListRecordHistory = ListRecordHistory'-    { _lrhSearchFilter   :: !(Maybe ListRecordHistorySearchFilter)-    , _lrhAcceptLanguage :: !(Maybe Text)-    , _lrhPageToken      :: !(Maybe Text)-    , _lrhPageSize       :: !(Maybe Nat)+    { _lrhSearchFilter      :: !(Maybe ListRecordHistorySearchFilter)+    , _lrhAcceptLanguage    :: !(Maybe Text)+    , _lrhAccessLevelFilter :: !(Maybe AccessLevelFilter)+    , _lrhPageToken         :: !(Maybe Text)+    , _lrhPageSize          :: !(Maybe Nat)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListRecordHistory' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrhSearchFilter'+-- * 'lrhSearchFilter' - The filter to limit search results. ----- * 'lrhAcceptLanguage'+-- * 'lrhAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'lrhPageToken'+-- * 'lrhAccessLevelFilter' - The access level for obtaining results. If left unspecified, @User@ level access is used. ----- * 'lrhPageSize'+-- * 'lrhPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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. listRecordHistory     :: ListRecordHistory listRecordHistory =     ListRecordHistory'     { _lrhSearchFilter = Nothing     , _lrhAcceptLanguage = Nothing+    , _lrhAccessLevelFilter = Nothing     , _lrhPageToken = Nothing     , _lrhPageSize = Nothing     } --- | (Optional) The filter to limit search results.+-- | The filter to limit search results. lrhSearchFilter :: Lens' ListRecordHistory (Maybe ListRecordHistorySearchFilter) lrhSearchFilter = lens _lrhSearchFilter (\ s a -> s{_lrhSearchFilter = a}); --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. lrhAcceptLanguage :: Lens' ListRecordHistory (Maybe Text) lrhAcceptLanguage = lens _lrhAcceptLanguage (\ s a -> s{_lrhAcceptLanguage = a}); --- | The page token of the first page retrieve. If null, this retrieves the first page of size 'PageSize'.+-- | The access level for obtaining results. If left unspecified, @User@ level access is used.+lrhAccessLevelFilter :: Lens' ListRecordHistory (Maybe AccessLevelFilter)+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@ . lrhPageToken :: Lens' ListRecordHistory (Maybe Text) 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 in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null. lrhPageSize :: Lens' ListRecordHistory (Maybe Natural) lrhPageSize = lens _lrhPageSize (\ s a -> s{_lrhPageSize = a}) . mapping _Nat; @@ -130,6 +133,7 @@               (catMaybes                  [("SearchFilter" .=) <$> _lrhSearchFilter,                   ("AcceptLanguage" .=) <$> _lrhAcceptLanguage,+                  ("AccessLevelFilter" .=) <$> _lrhAccessLevelFilter,                   ("PageToken" .=) <$> _lrhPageToken,                   ("PageSize" .=) <$> _lrhPageSize]) @@ -150,11 +154,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lrhrsNextPageToken'+-- * '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. ----- * 'lrhrsRecordDetails'+-- * 'lrhrsRecordDetails' - A list of record detail objects, listed in reverse chronological order. ----- * 'lrhrsResponseStatus'+-- * 'lrhrsResponseStatus' - -- | The response status code. listRecordHistoryResponse     :: Int -- ^ 'lrhrsResponseStatus'     -> ListRecordHistoryResponse@@ -173,7 +177,7 @@ lrhrsRecordDetails :: Lens' ListRecordHistoryResponse [RecordDetail] lrhrsRecordDetails = lens _lrhrsRecordDetails (\ s a -> s{_lrhrsRecordDetails = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lrhrsResponseStatus :: Lens' ListRecordHistoryResponse Int lrhrsResponseStatus = lens _lrhrsResponseStatus (\ s a -> s{_lrhrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Requests a /Provision/ of a specified product. A /ProvisionedProduct/ is a resourced instance for a product. For example, provisioning a CloudFormation-template-backed product results in launching a CloudFormation stack and all the underlying resources that come with it. ----- You can check the status of this request using the < DescribeRecord> operation.+--+-- You can check the status of this request using the 'DescribeRecord' operation.+-- module Network.AWS.ServiceCatalog.ProvisionProduct     (     -- * Creating a Request@@ -69,23 +71,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ppNotificationARNs'+-- * 'ppNotificationARNs' - Passed to CloudFormation. The SNS topic ARNs to which to publish stack-related events. ----- * 'ppAcceptLanguage'+-- * 'ppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'ppPathId'+-- * '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. ----- * 'ppProvisioningParameters'+-- * 'ppProvisioningParameters' - Parameters specified by the administrator that are required for provisioning the product. ----- * 'ppTags'+-- * 'ppTags' - A list of tags to use as provisioning options. ----- * 'ppProductId'+-- * 'ppProductId' - The product identifier. ----- * 'ppProvisioningArtifactId'+-- * 'ppProvisioningArtifactId' - The provisioning artifact identifier for this product. ----- * 'ppProvisionedProductName'+-- * '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. ----- * 'ppProvisionToken'+-- * 'ppProvisionToken' - An idempotency token that uniquely identifies the provisioning request. provisionProduct     :: Text -- ^ 'ppProductId'     -> Text -- ^ 'ppProvisioningArtifactId'@@ -109,19 +111,11 @@ ppNotificationARNs :: Lens' ProvisionProduct [Text] ppNotificationARNs = lens _ppNotificationARNs (\ s a -> s{_ppNotificationARNs = a}) . _Default . _Coerce; --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ppAcceptLanguage :: Lens' ProvisionProduct (Maybe Text) 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 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 :: Lens' ProvisionProduct (Maybe Text) ppPathId = lens _ppPathId (\ s a -> s{_ppPathId = a}); @@ -129,11 +123,11 @@ ppProvisioningParameters :: Lens' ProvisionProduct [ProvisioningParameter] ppProvisioningParameters = lens _ppProvisioningParameters (\ s a -> s{_ppProvisioningParameters = a}) . _Default . _Coerce; --- | (Optional) A list of tags to use as provisioning options.+-- | A list of tags to use as provisioning options. ppTags :: Lens' ProvisionProduct [Tag] ppTags = lens _ppTags (\ s a -> s{_ppTags = a}) . _Default . _Coerce; --- | The identifier of the product.+-- | The product identifier. ppProductId :: Lens' ProvisionProduct Text ppProductId = lens _ppProductId (\ s a -> s{_ppProductId = a}); @@ -207,9 +201,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pprsRecordDetail'+-- * '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. ----- * 'pprsResponseStatus'+-- * 'pprsResponseStatus' - -- | The response status code. provisionProductResponse     :: Int -- ^ 'pprsResponseStatus'     -> ProvisionProductResponse@@ -219,11 +213,11 @@     , _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.+-- | The detailed result of the 'ProvisionProduct' request, containing the inputs made to that request, the current state of the request, a pointer to the ProvisionedProduct object of the request, and a list of any errors that the request encountered. pprsRecordDetail :: Lens' ProvisionProductResponse (Maybe RecordDetail) pprsRecordDetail = lens _pprsRecordDetail (\ s a -> s{_pprsRecordDetail = a}); --- | The response status code.+-- | -- | The response status code. pprsResponseStatus :: Lens' ProvisionProductResponse Int pprsResponseStatus = lens _pprsResponseStatus (\ s a -> s{_pprsResponseStatus = a}); 

@@ -0,0 +1,136 @@+{-# 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.RejectPortfolioShare+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Rejects an offer to share a portfolio.+--+--+module Network.AWS.ServiceCatalog.RejectPortfolioShare+    (+    -- * Creating a Request+      rejectPortfolioShare+    , RejectPortfolioShare+    -- * Request Lenses+    , rpsAcceptLanguage+    , rpsPortfolioId++    -- * Destructuring the Response+    , rejectPortfolioShareResponse+    , RejectPortfolioShareResponse+    -- * Response Lenses+    , rpsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'rejectPortfolioShare' smart constructor.+data RejectPortfolioShare = RejectPortfolioShare'+    { _rpsAcceptLanguage :: !(Maybe Text)+    , _rpsPortfolioId    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RejectPortfolioShare' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rpsAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'rpsPortfolioId' - The portfolio identifier.+rejectPortfolioShare+    :: Text -- ^ 'rpsPortfolioId'+    -> RejectPortfolioShare+rejectPortfolioShare pPortfolioId_ =+    RejectPortfolioShare'+    { _rpsAcceptLanguage = Nothing+    , _rpsPortfolioId = pPortfolioId_+    }++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+rpsAcceptLanguage :: Lens' RejectPortfolioShare (Maybe Text)+rpsAcceptLanguage = lens _rpsAcceptLanguage (\ s a -> s{_rpsAcceptLanguage = a});++-- | The portfolio identifier.+rpsPortfolioId :: Lens' RejectPortfolioShare Text+rpsPortfolioId = lens _rpsPortfolioId (\ s a -> s{_rpsPortfolioId = a});++instance AWSRequest RejectPortfolioShare where+        type Rs RejectPortfolioShare =+             RejectPortfolioShareResponse+        request = postJSON serviceCatalog+        response+          = receiveEmpty+              (\ s h x ->+                 RejectPortfolioShareResponse' <$>+                   (pure (fromEnum s)))++instance Hashable RejectPortfolioShare++instance NFData RejectPortfolioShare++instance ToHeaders RejectPortfolioShare where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.RejectPortfolioShare"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RejectPortfolioShare where+        toJSON RejectPortfolioShare'{..}+          = object+              (catMaybes+                 [("AcceptLanguage" .=) <$> _rpsAcceptLanguage,+                  Just ("PortfolioId" .= _rpsPortfolioId)])++instance ToPath RejectPortfolioShare where+        toPath = const "/"++instance ToQuery RejectPortfolioShare where+        toQuery = const mempty++-- | /See:/ 'rejectPortfolioShareResponse' smart constructor.+newtype RejectPortfolioShareResponse = RejectPortfolioShareResponse'+    { _rpsrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RejectPortfolioShareResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rpsrsResponseStatus' - -- | The response status code.+rejectPortfolioShareResponse+    :: Int -- ^ 'rpsrsResponseStatus'+    -> RejectPortfolioShareResponse+rejectPortfolioShareResponse pResponseStatus_ =+    RejectPortfolioShareResponse'+    { _rpsrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+rpsrsResponseStatus :: Lens' RejectPortfolioShareResponse Int+rpsrsResponseStatus = lens _rpsrsResponseStatus (\ s a -> s{_rpsrsResponseStatus = a});++instance NFData RejectPortfolioShareResponse

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns a paginated list of all the ProvisionedProduct objects that are currently available (not terminated).+--+-- module Network.AWS.ServiceCatalog.ScanProvisionedProducts     (     -- * Creating a Request@@ -26,6 +28,7 @@     , ScanProvisionedProducts     -- * Request Lenses     , sppAcceptLanguage+    , sppAccessLevelFilter     , sppPageToken     , sppPageSize @@ -47,46 +50,46 @@  -- | /See:/ 'scanProvisionedProducts' smart constructor. data ScanProvisionedProducts = ScanProvisionedProducts'-    { _sppAcceptLanguage :: !(Maybe Text)-    , _sppPageToken      :: !(Maybe Text)-    , _sppPageSize       :: !(Maybe Nat)+    { _sppAcceptLanguage    :: !(Maybe Text)+    , _sppAccessLevelFilter :: !(Maybe AccessLevelFilter)+    , _sppPageToken         :: !(Maybe Text)+    , _sppPageSize          :: !(Maybe Nat)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ScanProvisionedProducts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sppAcceptLanguage'+-- * 'sppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'sppPageToken'+-- * 'sppAccessLevelFilter' - The access level for obtaining results. If left unspecified, @User@ level access is used. ----- * 'sppPageSize'+-- * 'sppPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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. scanProvisionedProducts     :: ScanProvisionedProducts scanProvisionedProducts =     ScanProvisionedProducts'     { _sppAcceptLanguage = Nothing+    , _sppAccessLevelFilter = Nothing     , _sppPageToken = Nothing     , _sppPageSize = Nothing     } --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. sppAcceptLanguage :: Lens' ScanProvisionedProducts (Maybe Text) sppAcceptLanguage = lens _sppAcceptLanguage (\ s a -> s{_sppAcceptLanguage = a}); --- | The page token of the first page retrieve. If null, this retrieves the first page of size 'PageSize'.+-- | 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 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 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 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; @@ -121,6 +124,7 @@           = object               (catMaybes                  [("AcceptLanguage" .=) <$> _sppAcceptLanguage,+                  ("AccessLevelFilter" .=) <$> _sppAccessLevelFilter,                   ("PageToken" .=) <$> _sppPageToken,                   ("PageSize" .=) <$> _sppPageSize]) @@ -141,11 +145,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'spprsNextPageToken'+-- * '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. ----- * 'spprsProvisionedProducts'+-- * 'spprsProvisionedProducts' - A list of ProvisionedProduct detail objects. ----- * 'spprsResponseStatus'+-- * 'spprsResponseStatus' - -- | The response status code. scanProvisionedProductsResponse     :: Int -- ^ 'spprsResponseStatus'     -> ScanProvisionedProductsResponse@@ -164,7 +168,7 @@ spprsProvisionedProducts :: Lens' ScanProvisionedProductsResponse [ProvisionedProductDetail] spprsProvisionedProducts = lens _spprsProvisionedProducts (\ s a -> s{_spprsProvisionedProducts = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. spprsResponseStatus :: Lens' ScanProvisionedProductsResponse Int spprsResponseStatus = lens _spprsResponseStatus (\ s a -> s{_spprsResponseStatus = a}); 

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a paginated list all of the 'Products' objects to which the caller has access.+-- Returns a paginated list all of the @Products@ objects to which the caller has access. ----- The output of this operation can be used as input for other operations, such as < DescribeProductView>.+--+-- The output of this operation can be used as input for other operations, such as 'DescribeProductView' .+-- module Network.AWS.ServiceCatalog.SearchProducts     (     -- * Creating a Request@@ -65,17 +67,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'spFilters'+-- * '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. ----- * 'spSortOrder'+-- * 'spSortOrder' - The sort order specifier. If no value is specified, results are not sorted. ----- * 'spAcceptLanguage'+-- * 'spAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'spPageToken'+-- * 'spPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . ----- * 'spPageSize'+-- * '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. ----- * 'spSortBy'+-- * 'spSortBy' - The sort field specifier. If no value is specified, results are not sorted. searchProducts     :: SearchProducts searchProducts =@@ -88,35 +90,27 @@     , _spSortBy = Nothing     } --- | (Optional) 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 list of filters with which to limit search results. If no search filters are specified, the output is all the products to which the calling user has access. spFilters :: Lens' SearchProducts (HashMap ProductViewFilterBy [Text]) spFilters = lens _spFilters (\ s a -> s{_spFilters = a}) . _Default . _Map; --- | (Optional) The sort order specifier. If no value is specified, results are not sorted.+-- | The sort order specifier. If no value is specified, results are not sorted. spSortOrder :: Lens' SearchProducts (Maybe SortOrder) spSortOrder = lens _spSortOrder (\ s a -> s{_spSortOrder = a}); --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. spAcceptLanguage :: Lens' SearchProducts (Maybe Text) spAcceptLanguage = lens _spAcceptLanguage (\ s a -> s{_spAcceptLanguage = a}); --- | The page token of the first page retrieve. If null, this retrieves the first page of size 'PageSize'.+-- | The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ . spPageToken :: Lens' SearchProducts (Maybe Text) 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 in the results. If more results exist than fit in the specified @PageSize@ , the value of @NextPageToken@ in the response is non-null. spPageSize :: Lens' SearchProducts (Maybe Natural) spPageSize = lens _spPageSize (\ s a -> s{_spPageSize = a}) . mapping _Nat; --- | (Optional) The sort field specifier. If no value is specified, results are not sorted.+-- | The sort field specifier. If no value is specified, results are not sorted. spSortBy :: Lens' SearchProducts (Maybe ProductViewSortBy) spSortBy = lens _spSortBy (\ s a -> s{_spSortBy = a}); @@ -175,13 +169,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sprsNextPageToken'+-- * '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. ----- * 'sprsProductViewAggregations'+-- * 'sprsProductViewAggregations' - A list of the product view aggregation value objects. ----- * 'sprsProductViewSummaries'+-- * 'sprsProductViewSummaries' - A list of the product view summary objects. ----- * 'sprsResponseStatus'+-- * 'sprsResponseStatus' - -- | The response status code. searchProductsResponse     :: Int -- ^ 'sprsResponseStatus'     -> SearchProductsResponse@@ -205,7 +199,7 @@ sprsProductViewSummaries :: Lens' SearchProductsResponse [ProductViewSummary] sprsProductViewSummaries = lens _sprsProductViewSummaries (\ s a -> s{_sprsProductViewSummaries = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. sprsResponseStatus :: Lens' SearchProductsResponse Int sprsResponseStatus = lens _sprsResponseStatus (\ s a -> s{_sprsResponseStatus = a}); 

@@ -0,0 +1,215 @@+{-# 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.SearchProductsAsAdmin+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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.+--+--+module Network.AWS.ServiceCatalog.SearchProductsAsAdmin+    (+    -- * Creating a Request+      searchProductsAsAdmin+    , SearchProductsAsAdmin+    -- * Request Lenses+    , spaaPortfolioId+    , spaaFilters+    , spaaSortOrder+    , spaaAcceptLanguage+    , spaaPageToken+    , spaaPageSize+    , spaaProductSource+    , spaaSortBy++    -- * Destructuring the Response+    , searchProductsAsAdminResponse+    , SearchProductsAsAdminResponse+    -- * Response Lenses+    , spaarsNextPageToken+    , spaarsProductViewDetails+    , spaarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.ServiceCatalog.Types+import           Network.AWS.ServiceCatalog.Types.Product++-- | /See:/ 'searchProductsAsAdmin' smart constructor.+data SearchProductsAsAdmin = SearchProductsAsAdmin'+    { _spaaPortfolioId    :: !(Maybe Text)+    , _spaaFilters        :: !(Maybe (Map ProductViewFilterBy [Text]))+    , _spaaSortOrder      :: !(Maybe SortOrder)+    , _spaaAcceptLanguage :: !(Maybe Text)+    , _spaaPageToken      :: !(Maybe Text)+    , _spaaPageSize       :: !(Maybe Nat)+    , _spaaProductSource  :: !(Maybe ProductSource)+    , _spaaSortBy         :: !(Maybe ProductViewSortBy)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SearchProductsAsAdmin' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'spaaSortOrder' - The sort order specifier. If no value is specified, results are not sorted.+--+-- * 'spaaAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+--+-- * 'spaaPageToken' - The page token of the first page retrieved. If null, this retrieves the first page of size @PageSize@ .+--+-- * '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.+--+-- * 'spaaProductSource' - Access level of the source of the product.+--+-- * 'spaaSortBy' - The sort field specifier. If no value is specified, results are not sorted.+searchProductsAsAdmin+    :: SearchProductsAsAdmin+searchProductsAsAdmin =+    SearchProductsAsAdmin'+    { _spaaPortfolioId = Nothing+    , _spaaFilters = Nothing+    , _spaaSortOrder = Nothing+    , _spaaAcceptLanguage = Nothing+    , _spaaPageToken = Nothing+    , _spaaPageSize = Nothing+    , _spaaProductSource = Nothing+    , _spaaSortBy = Nothing+    }++-- | The portfolio identifier.+spaaPortfolioId :: Lens' SearchProductsAsAdmin (Maybe Text)+spaaPortfolioId = lens _spaaPortfolioId (\ s a -> s{_spaaPortfolioId = a});++-- | 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 :: Lens' SearchProductsAsAdmin (HashMap ProductViewFilterBy [Text])+spaaFilters = lens _spaaFilters (\ s a -> s{_spaaFilters = a}) . _Default . _Map;++-- | The sort order specifier. If no value is specified, results are not sorted.+spaaSortOrder :: Lens' SearchProductsAsAdmin (Maybe SortOrder)+spaaSortOrder = lens _spaaSortOrder (\ s a -> s{_spaaSortOrder = a});++-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default.+spaaAcceptLanguage :: Lens' SearchProductsAsAdmin (Maybe Text)+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@ .+spaaPageToken :: Lens' SearchProductsAsAdmin (Maybe Text)+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.+spaaPageSize :: Lens' SearchProductsAsAdmin (Maybe Natural)+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});++-- | The sort field specifier. If no value is specified, results are not sorted.+spaaSortBy :: Lens' SearchProductsAsAdmin (Maybe ProductViewSortBy)+spaaSortBy = lens _spaaSortBy (\ s a -> s{_spaaSortBy = a});++instance AWSRequest SearchProductsAsAdmin where+        type Rs SearchProductsAsAdmin =+             SearchProductsAsAdminResponse+        request = postJSON serviceCatalog+        response+          = receiveJSON+              (\ s h x ->+                 SearchProductsAsAdminResponse' <$>+                   (x .?> "NextPageToken") <*>+                     (x .?> "ProductViewDetails" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable SearchProductsAsAdmin++instance NFData SearchProductsAsAdmin++instance ToHeaders SearchProductsAsAdmin where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWS242ServiceCatalogService.SearchProductsAsAdmin"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON SearchProductsAsAdmin where+        toJSON SearchProductsAsAdmin'{..}+          = object+              (catMaybes+                 [("PortfolioId" .=) <$> _spaaPortfolioId,+                  ("Filters" .=) <$> _spaaFilters,+                  ("SortOrder" .=) <$> _spaaSortOrder,+                  ("AcceptLanguage" .=) <$> _spaaAcceptLanguage,+                  ("PageToken" .=) <$> _spaaPageToken,+                  ("PageSize" .=) <$> _spaaPageSize,+                  ("ProductSource" .=) <$> _spaaProductSource,+                  ("SortBy" .=) <$> _spaaSortBy])++instance ToPath SearchProductsAsAdmin where+        toPath = const "/"++instance ToQuery SearchProductsAsAdmin where+        toQuery = const mempty++-- | /See:/ 'searchProductsAsAdminResponse' smart constructor.+data SearchProductsAsAdminResponse = SearchProductsAsAdminResponse'+    { _spaarsNextPageToken      :: !(Maybe Text)+    , _spaarsProductViewDetails :: !(Maybe [ProductViewDetail])+    , _spaarsResponseStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SearchProductsAsAdminResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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.+--+-- * 'spaarsProductViewDetails' - List of detailed product view information objects.+--+-- * 'spaarsResponseStatus' - -- | The response status code.+searchProductsAsAdminResponse+    :: Int -- ^ 'spaarsResponseStatus'+    -> SearchProductsAsAdminResponse+searchProductsAsAdminResponse pResponseStatus_ =+    SearchProductsAsAdminResponse'+    { _spaarsNextPageToken = Nothing+    , _spaarsProductViewDetails = Nothing+    , _spaarsResponseStatus = pResponseStatus_+    }++-- | The page token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+spaarsNextPageToken :: Lens' SearchProductsAsAdminResponse (Maybe Text)+spaarsNextPageToken = lens _spaarsNextPageToken (\ s a -> s{_spaarsNextPageToken = a});++-- | List of detailed product view information objects.+spaarsProductViewDetails :: Lens' SearchProductsAsAdminResponse [ProductViewDetail]+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});++instance NFData SearchProductsAsAdminResponse

@@ -18,11 +18,13 @@ -- 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.+-- Requests termination of an existing ProvisionedProduct object. If there are @Tags@ associated with the object, they are terminated when the ProvisionedProduct object is terminated. --+-- -- This operation does not delete any records associated with the ProvisionedProduct object. ----- You can check the status of this request using the < DescribeRecord> operation.+-- You can check the status of this request using the 'DescribeRecord' operation.+-- module Network.AWS.ServiceCatalog.TerminateProvisionedProduct     (     -- * Creating a Request@@ -63,15 +65,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tppProvisionedProductName'+-- * 'tppProvisionedProductName' - The name of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. ----- * 'tppAcceptLanguage'+-- * 'tppAcceptLanguage' - The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. ----- * 'tppIgnoreErrors'+-- * 'tppIgnoreErrors' - If set to true, AWS Service Catalog stops managing the specified ProvisionedProduct object even if it cannot delete the underlying resources. ----- * 'tppProvisionedProductId'+-- * 'tppProvisionedProductId' - The identifier of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. ----- * 'tppTerminateToken'+-- * 'tppTerminateToken' - An idempotency token that uniquely identifies the termination request. This token is only valid during the termination process. After the ProvisionedProduct object is terminated, further requests to terminate the same ProvisionedProduct object always return __ResourceNotFound__ regardless of the value of @TerminateToken@ . terminateProvisionedProduct     :: Text -- ^ 'tppTerminateToken'     -> TerminateProvisionedProduct@@ -84,31 +86,23 @@     , _tppTerminateToken = pTerminateToken_     } --- | The name of the ProvisionedProduct object to terminate. You must specify either 'ProvisionedProductName' or 'ProvisionedProductId', but not both.+-- | The name of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. tppProvisionedProductName :: Lens' TerminateProvisionedProduct (Maybe Text) tppProvisionedProductName = lens _tppProvisionedProductName (\ s a -> s{_tppProvisionedProductName = a}); --- | Optional language code. Supported language codes are as follows:------ \"en\" (English)------ \"jp\" (Japanese)------ \"zh\" (Chinese)------ If no code is specified, \"en\" is used as the default.+-- | The language code to use for this operation. Supported language codes are as follows: "en" (English) "jp" (Japanese) "zh" (Chinese) If no code is specified, "en" is used as the default. tppAcceptLanguage :: Lens' TerminateProvisionedProduct (Maybe Text) tppAcceptLanguage = lens _tppAcceptLanguage (\ s a -> s{_tppAcceptLanguage = a}); --- | Optional Boolean parameter. 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 ProvisionedProduct object even if it cannot delete the underlying resources. tppIgnoreErrors :: Lens' TerminateProvisionedProduct (Maybe Bool) tppIgnoreErrors = lens _tppIgnoreErrors (\ s a -> s{_tppIgnoreErrors = a}); --- | The identifier of the ProvisionedProduct object to terminate. You must specify either 'ProvisionedProductName' or 'ProvisionedProductId', but not both.+-- | The identifier of the ProvisionedProduct object to terminate. You must specify either @ProvisionedProductName@ or @ProvisionedProductId@ , but not both. tppProvisionedProductId :: Lens' TerminateProvisionedProduct (Maybe Text) 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 ProvisionedProduct object is terminated, further requests to terminate the same ProvisionedProduct object always return __ResourceNotFound__ regardless of the value of @TerminateToken@ . tppTerminateToken :: Lens' TerminateProvisionedProduct Text tppTerminateToken = lens _tppTerminateToken (\ s a -> s{_tppTerminateToken = a}); @@ -164,9 +158,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tpprsRecordDetail'+-- * '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. ----- * 'tpprsResponseStatus'+-- * 'tpprsResponseStatus' - -- | The response status code. terminateProvisionedProductResponse     :: Int -- ^ 'tpprsResponseStatus'     -> TerminateProvisionedProductResponse@@ -176,11 +170,11 @@     , _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.+-- | The detailed result of the 'TerminateProvisionedProduct' request, containing the inputs made to that request, the current state of the request, a pointer to the ProvisionedProduct object that the request is modifying, and a list of any errors that the request encountered. tpprsRecordDetail :: Lens' TerminateProvisionedProductResponse (Maybe RecordDetail) tpprsRecordDetail = lens _tpprsRecordDetail (\ s a -> s{_tpprsRecordDetail = a}); --- | The response status code.+-- | -- | The response status code. tpprsResponseStatus :: Lens' TerminateProvisionedProductResponse Int tpprsResponseStatus = lens _tpprsResponseStatus (\ s a -> s{_tpprsResponseStatus = a});