packages feed

amazonka-proton (empty) → 2.0

raw patch · 296 files changed

+33240/−0 lines, 296 filesdep +amazonka-coredep +amazonka-protondep +amazonka-test

Dependencies added: amazonka-core, amazonka-proton, amazonka-test, base, bytestring, case-insensitive, tasty, tasty-hunit, text, time, unordered-containers

Files

+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,44 @@+# Amazon Proton SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2020-07-20@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-proton)+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, sending requests,+and receiving responses.++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 [Amazonka.Proton](http://hackage.haskell.org/package/amazonka-proton/docs/Amazonka-Proton.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`amazonka-proton` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).++Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0.+Source files subject to this contain an additional licensing clause in their header.
+ amazonka-proton.cabal view
@@ -0,0 +1,217 @@+cabal-version:      2.2+name:               amazonka-proton+version:            2.0+synopsis:           Amazon Proton SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep++description:+  Derived from API version @2020-07-20@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  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, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.Proton.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.Proton" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.++source-repository head+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-proton++library+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields++  exposed-modules:+    Amazonka.Proton+    Amazonka.Proton.AcceptEnvironmentAccountConnection+    Amazonka.Proton.CancelComponentDeployment+    Amazonka.Proton.CancelEnvironmentDeployment+    Amazonka.Proton.CancelServiceInstanceDeployment+    Amazonka.Proton.CancelServicePipelineDeployment+    Amazonka.Proton.CreateComponent+    Amazonka.Proton.CreateEnvironment+    Amazonka.Proton.CreateEnvironmentAccountConnection+    Amazonka.Proton.CreateEnvironmentTemplate+    Amazonka.Proton.CreateEnvironmentTemplateVersion+    Amazonka.Proton.CreateRepository+    Amazonka.Proton.CreateService+    Amazonka.Proton.CreateServiceTemplate+    Amazonka.Proton.CreateServiceTemplateVersion+    Amazonka.Proton.CreateTemplateSyncConfig+    Amazonka.Proton.DeleteComponent+    Amazonka.Proton.DeleteEnvironment+    Amazonka.Proton.DeleteEnvironmentAccountConnection+    Amazonka.Proton.DeleteEnvironmentTemplate+    Amazonka.Proton.DeleteEnvironmentTemplateVersion+    Amazonka.Proton.DeleteRepository+    Amazonka.Proton.DeleteService+    Amazonka.Proton.DeleteServiceTemplate+    Amazonka.Proton.DeleteServiceTemplateVersion+    Amazonka.Proton.DeleteTemplateSyncConfig+    Amazonka.Proton.GetAccountSettings+    Amazonka.Proton.GetComponent+    Amazonka.Proton.GetEnvironment+    Amazonka.Proton.GetEnvironmentAccountConnection+    Amazonka.Proton.GetEnvironmentTemplate+    Amazonka.Proton.GetEnvironmentTemplateVersion+    Amazonka.Proton.GetRepository+    Amazonka.Proton.GetRepositorySyncStatus+    Amazonka.Proton.GetService+    Amazonka.Proton.GetServiceInstance+    Amazonka.Proton.GetServiceTemplate+    Amazonka.Proton.GetServiceTemplateVersion+    Amazonka.Proton.GetTemplateSyncConfig+    Amazonka.Proton.GetTemplateSyncStatus+    Amazonka.Proton.Lens+    Amazonka.Proton.ListComponentOutputs+    Amazonka.Proton.ListComponentProvisionedResources+    Amazonka.Proton.ListComponents+    Amazonka.Proton.ListEnvironmentAccountConnections+    Amazonka.Proton.ListEnvironmentOutputs+    Amazonka.Proton.ListEnvironmentProvisionedResources+    Amazonka.Proton.ListEnvironments+    Amazonka.Proton.ListEnvironmentTemplates+    Amazonka.Proton.ListEnvironmentTemplateVersions+    Amazonka.Proton.ListRepositories+    Amazonka.Proton.ListRepositorySyncDefinitions+    Amazonka.Proton.ListServiceInstanceOutputs+    Amazonka.Proton.ListServiceInstanceProvisionedResources+    Amazonka.Proton.ListServiceInstances+    Amazonka.Proton.ListServicePipelineOutputs+    Amazonka.Proton.ListServicePipelineProvisionedResources+    Amazonka.Proton.ListServices+    Amazonka.Proton.ListServiceTemplates+    Amazonka.Proton.ListServiceTemplateVersions+    Amazonka.Proton.ListTagsForResource+    Amazonka.Proton.NotifyResourceDeploymentStatusChange+    Amazonka.Proton.RejectEnvironmentAccountConnection+    Amazonka.Proton.TagResource+    Amazonka.Proton.Types+    Amazonka.Proton.Types.AccountSettings+    Amazonka.Proton.Types.CompatibleEnvironmentTemplate+    Amazonka.Proton.Types.CompatibleEnvironmentTemplateInput+    Amazonka.Proton.Types.Component+    Amazonka.Proton.Types.ComponentDeploymentUpdateType+    Amazonka.Proton.Types.ComponentSummary+    Amazonka.Proton.Types.DeploymentStatus+    Amazonka.Proton.Types.DeploymentUpdateType+    Amazonka.Proton.Types.Environment+    Amazonka.Proton.Types.EnvironmentAccountConnection+    Amazonka.Proton.Types.EnvironmentAccountConnectionRequesterAccountType+    Amazonka.Proton.Types.EnvironmentAccountConnectionStatus+    Amazonka.Proton.Types.EnvironmentAccountConnectionSummary+    Amazonka.Proton.Types.EnvironmentSummary+    Amazonka.Proton.Types.EnvironmentTemplate+    Amazonka.Proton.Types.EnvironmentTemplateFilter+    Amazonka.Proton.Types.EnvironmentTemplateSummary+    Amazonka.Proton.Types.EnvironmentTemplateVersion+    Amazonka.Proton.Types.EnvironmentTemplateVersionSummary+    Amazonka.Proton.Types.ListServiceInstancesFilter+    Amazonka.Proton.Types.ListServiceInstancesFilterBy+    Amazonka.Proton.Types.ListServiceInstancesSortBy+    Amazonka.Proton.Types.Output+    Amazonka.Proton.Types.ProvisionedResource+    Amazonka.Proton.Types.ProvisionedResourceEngine+    Amazonka.Proton.Types.Provisioning+    Amazonka.Proton.Types.Repository+    Amazonka.Proton.Types.RepositoryBranch+    Amazonka.Proton.Types.RepositoryBranchInput+    Amazonka.Proton.Types.RepositoryProvider+    Amazonka.Proton.Types.RepositorySummary+    Amazonka.Proton.Types.RepositorySyncAttempt+    Amazonka.Proton.Types.RepositorySyncDefinition+    Amazonka.Proton.Types.RepositorySyncEvent+    Amazonka.Proton.Types.RepositorySyncStatus+    Amazonka.Proton.Types.ResourceDeploymentStatus+    Amazonka.Proton.Types.ResourceSyncAttempt+    Amazonka.Proton.Types.ResourceSyncEvent+    Amazonka.Proton.Types.ResourceSyncStatus+    Amazonka.Proton.Types.Revision+    Amazonka.Proton.Types.S3ObjectSource+    Amazonka.Proton.Types.Service+    Amazonka.Proton.Types.ServiceInstance+    Amazonka.Proton.Types.ServiceInstanceSummary+    Amazonka.Proton.Types.ServicePipeline+    Amazonka.Proton.Types.ServiceStatus+    Amazonka.Proton.Types.ServiceSummary+    Amazonka.Proton.Types.ServiceTemplate+    Amazonka.Proton.Types.ServiceTemplateSummary+    Amazonka.Proton.Types.ServiceTemplateSupportedComponentSourceType+    Amazonka.Proton.Types.ServiceTemplateVersion+    Amazonka.Proton.Types.ServiceTemplateVersionSummary+    Amazonka.Proton.Types.SortOrder+    Amazonka.Proton.Types.SyncType+    Amazonka.Proton.Types.Tag+    Amazonka.Proton.Types.TemplateSyncConfig+    Amazonka.Proton.Types.TemplateType+    Amazonka.Proton.Types.TemplateVersionSourceInput+    Amazonka.Proton.Types.TemplateVersionStatus+    Amazonka.Proton.UntagResource+    Amazonka.Proton.UpdateAccountSettings+    Amazonka.Proton.UpdateComponent+    Amazonka.Proton.UpdateEnvironment+    Amazonka.Proton.UpdateEnvironmentAccountConnection+    Amazonka.Proton.UpdateEnvironmentTemplate+    Amazonka.Proton.UpdateEnvironmentTemplateVersion+    Amazonka.Proton.UpdateService+    Amazonka.Proton.UpdateServiceInstance+    Amazonka.Proton.UpdateServicePipeline+    Amazonka.Proton.UpdateServiceTemplate+    Amazonka.Proton.UpdateServiceTemplateVersion+    Amazonka.Proton.UpdateTemplateSyncConfig+    Amazonka.Proton.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-proton-test+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded++  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.Proton+    Test.Amazonka.Proton+    Test.Amazonka.Proton.Internal++  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-proton+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/AcceptEnvironmentAccountConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/AcceptEnvironmentAccountConnectionResponse.proto view
+ fixture/CancelComponentDeployment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CancelComponentDeploymentResponse.proto view
+ fixture/CancelEnvironmentDeployment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CancelEnvironmentDeploymentResponse.proto view
+ fixture/CancelServiceInstanceDeployment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CancelServiceInstanceDeploymentResponse.proto view
+ fixture/CancelServicePipelineDeployment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CancelServicePipelineDeploymentResponse.proto view
+ fixture/CreateComponent.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateComponentResponse.proto view
+ fixture/CreateEnvironment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateEnvironmentAccountConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateEnvironmentAccountConnectionResponse.proto view
+ fixture/CreateEnvironmentResponse.proto view
+ fixture/CreateEnvironmentTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateEnvironmentTemplateResponse.proto view
+ fixture/CreateEnvironmentTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateEnvironmentTemplateVersionResponse.proto view
+ fixture/CreateRepository.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateRepositoryResponse.proto view
+ fixture/CreateService.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateServiceResponse.proto view
+ fixture/CreateServiceTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateServiceTemplateResponse.proto view
+ fixture/CreateServiceTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateServiceTemplateVersionResponse.proto view
+ fixture/CreateTemplateSyncConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateTemplateSyncConfigResponse.proto view
+ fixture/DeleteComponent.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteComponentResponse.proto view
+ fixture/DeleteEnvironment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteEnvironmentAccountConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteEnvironmentAccountConnectionResponse.proto view
+ fixture/DeleteEnvironmentResponse.proto view
+ fixture/DeleteEnvironmentTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteEnvironmentTemplateResponse.proto view
+ fixture/DeleteEnvironmentTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteEnvironmentTemplateVersionResponse.proto view
+ fixture/DeleteRepository.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteRepositoryResponse.proto view
+ fixture/DeleteService.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteServiceResponse.proto view
+ fixture/DeleteServiceTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteServiceTemplateResponse.proto view
+ fixture/DeleteServiceTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteServiceTemplateVersionResponse.proto view
+ fixture/DeleteTemplateSyncConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteTemplateSyncConfigResponse.proto view
+ fixture/GetAccountSettings.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetAccountSettingsResponse.proto view
+ fixture/GetComponent.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetComponentResponse.proto view
+ fixture/GetEnvironment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetEnvironmentAccountConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetEnvironmentAccountConnectionResponse.proto view
+ fixture/GetEnvironmentResponse.proto view
+ fixture/GetEnvironmentTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetEnvironmentTemplateResponse.proto view
+ fixture/GetEnvironmentTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetEnvironmentTemplateVersionResponse.proto view
+ fixture/GetRepository.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetRepositoryResponse.proto view
+ fixture/GetRepositorySyncStatus.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetRepositorySyncStatusResponse.proto view
+ fixture/GetService.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetServiceInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetServiceInstanceResponse.proto view
+ fixture/GetServiceResponse.proto view
+ fixture/GetServiceTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetServiceTemplateResponse.proto view
+ fixture/GetServiceTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetServiceTemplateVersionResponse.proto view
+ fixture/GetTemplateSyncConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetTemplateSyncConfigResponse.proto view
+ fixture/GetTemplateSyncStatus.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetTemplateSyncStatusResponse.proto view
+ fixture/ListComponentOutputs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListComponentOutputsResponse.proto view
+ fixture/ListComponentProvisionedResources.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListComponentProvisionedResourcesResponse.proto view
+ fixture/ListComponents.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListComponentsResponse.proto view
+ fixture/ListEnvironmentAccountConnections.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEnvironmentAccountConnectionsResponse.proto view
+ fixture/ListEnvironmentOutputs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEnvironmentOutputsResponse.proto view
+ fixture/ListEnvironmentProvisionedResources.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEnvironmentProvisionedResourcesResponse.proto view
+ fixture/ListEnvironmentTemplateVersions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEnvironmentTemplateVersionsResponse.proto view
+ fixture/ListEnvironmentTemplates.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEnvironmentTemplatesResponse.proto view
+ fixture/ListEnvironments.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListEnvironmentsResponse.proto view
+ fixture/ListRepositories.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListRepositoriesResponse.proto view
+ fixture/ListRepositorySyncDefinitions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListRepositorySyncDefinitionsResponse.proto view
+ fixture/ListServiceInstanceOutputs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServiceInstanceOutputsResponse.proto view
+ fixture/ListServiceInstanceProvisionedResources.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServiceInstanceProvisionedResourcesResponse.proto view
+ fixture/ListServiceInstances.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServiceInstancesResponse.proto view
+ fixture/ListServicePipelineOutputs.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServicePipelineOutputsResponse.proto view
+ fixture/ListServicePipelineProvisionedResources.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServicePipelineProvisionedResourcesResponse.proto view
+ fixture/ListServiceTemplateVersions.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServiceTemplateVersionsResponse.proto view
+ fixture/ListServiceTemplates.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServiceTemplatesResponse.proto view
+ fixture/ListServices.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListServicesResponse.proto view
+ fixture/ListTagsForResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListTagsForResourceResponse.proto view
+ fixture/NotifyResourceDeploymentStatusChange.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/NotifyResourceDeploymentStatusChangeResponse.proto view
+ fixture/RejectEnvironmentAccountConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/RejectEnvironmentAccountConnectionResponse.proto view
+ fixture/TagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/TagResourceResponse.proto view
+ fixture/UntagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UntagResourceResponse.proto view
+ fixture/UpdateAccountSettings.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateAccountSettingsResponse.proto view
+ fixture/UpdateComponent.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateComponentResponse.proto view
+ fixture/UpdateEnvironment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateEnvironmentAccountConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateEnvironmentAccountConnectionResponse.proto view
+ fixture/UpdateEnvironmentResponse.proto view
+ fixture/UpdateEnvironmentTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateEnvironmentTemplateResponse.proto view
+ fixture/UpdateEnvironmentTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateEnvironmentTemplateVersionResponse.proto view
+ fixture/UpdateService.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateServiceInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateServiceInstanceResponse.proto view
+ fixture/UpdateServicePipeline.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateServicePipelineResponse.proto view
+ fixture/UpdateServiceResponse.proto view
+ fixture/UpdateServiceTemplate.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateServiceTemplateResponse.proto view
+ fixture/UpdateServiceTemplateVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateServiceTemplateVersionResponse.proto view
+ fixture/UpdateTemplateSyncConfig.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/proton/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  proton.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateTemplateSyncConfigResponse.proto view
+ gen/Amazonka/Proton.hs view
@@ -0,0 +1,1009 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Proton+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2020-07-20@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- This is the Proton Service API Reference. It provides descriptions,+-- syntax and usage examples for each of the+-- <https://docs.aws.amazon.com/proton/latest/APIReference/API_Operations.html actions>+-- and+-- <https://docs.aws.amazon.com/proton/latest/APIReference/API_Types.html data types>+-- for the Proton service.+--+-- The documentation for each action shows the Query API request parameters+-- and the XML response.+--+-- Alternatively, you can use the Amazon Web Services CLI to access an API.+-- For more information, see the+-- <https://docs.aws.amazon.com/cli/latest/userguide/cli-chap-welcome.html Amazon Web Services Command Line Interface User Guide>.+--+-- The Proton service is a two-pronged automation framework. Administrators+-- create service templates to provide standardized infrastructure and+-- deployment tooling for serverless and container based applications.+-- Developers, in turn, select from the available service templates to+-- automate their application or service deployments.+--+-- Because administrators define the infrastructure and tooling that Proton+-- deploys and manages, they need permissions to use all of the listed API+-- operations.+--+-- When developers select a specific infrastructure and tooling set, Proton+-- deploys their applications. To monitor their applications that are+-- running on Proton, developers need permissions to the service /create/,+-- /list/, /update/ and /delete/ API operations and the service instance+-- /list/ and /update/ API operations.+--+-- To learn more about Proton, see the+-- <https://docs.aws.amazon.com/proton/latest/userguide/Welcome.html Proton User Guide>.+--+-- __Ensuring Idempotency__+--+-- When you make a mutating API request, the request typically returns a+-- result before the asynchronous workflows of the operation are complete.+-- Operations might also time out or encounter other server issues before+-- they\'re complete, even if the request already returned a result. This+-- might make it difficult to determine whether the request succeeded.+-- Moreover, you might need to retry the request multiple times to ensure+-- that the operation completes successfully. However, if the original+-- request and the subsequent retries are successful, the operation occurs+-- multiple times. This means that you might create more resources than you+-- intended.+--+-- /Idempotency/ ensures that an API request action completes no more than+-- one time. With an idempotent request, if the original request action+-- completes successfully, any subsequent retries complete successfully+-- without performing any further actions. However, the result might+-- contain updated information, such as the current creation status.+--+-- The following lists of APIs are grouped according to methods that ensure+-- idempotency.+--+-- __Idempotent create APIs with a client token__+--+-- The API actions in this list support idempotency with the use of a+-- /client token/. The corresponding Amazon Web Services CLI commands also+-- support idempotency using a client token. A client token is a unique,+-- case-sensitive string of up to 64 ASCII characters. To make an+-- idempotent API request using one of these actions, specify a client+-- token in the request. We recommend that you /don\'t/ reuse the same+-- client token for other API requests. If you don’t provide a client token+-- for these APIs, a default client token is automatically provided by+-- SDKs.+--+-- Given a request action that has succeeded:+--+-- If you retry the request using the same client token and the same+-- parameters, the retry succeeds without performing any further actions+-- other than returning the original resource detail data in the response.+--+-- If you retry the request using the same client token, but one or more of+-- the parameters are different, the retry throws a @ValidationException@+-- with an @IdempotentParameterMismatch@ error.+--+-- Client tokens expire eight hours after a request is made. If you retry+-- the request with the expired token, a new resource is created.+--+-- If the original resource is deleted and you retry the request, a new+-- resource is created.+--+-- Idempotent create APIs with a client token:+--+-- -   CreateEnvironmentTemplateVersion+--+-- -   CreateServiceTemplateVersion+--+-- -   CreateEnvironmentAccountConnection+--+-- __Idempotent create APIs__+--+-- Given a request action that has succeeded:+--+-- If you retry the request with an API from this group, and the original+-- resource /hasn\'t/ been modified, the retry succeeds without performing+-- any further actions other than returning the original resource detail+-- data in the response.+--+-- If the original resource has been modified, the retry throws a+-- @ConflictException@.+--+-- If you retry with different input parameters, the retry throws a+-- @ValidationException@ with an @IdempotentParameterMismatch@ error.+--+-- Idempotent create APIs:+--+-- -   CreateEnvironmentTemplate+--+-- -   CreateServiceTemplate+--+-- -   CreateEnvironment+--+-- -   CreateService+--+-- __Idempotent delete APIs__+--+-- Given a request action that has succeeded:+--+-- When you retry the request with an API from this group and the resource+-- was deleted, its metadata is returned in the response.+--+-- If you retry and the resource doesn\'t exist, the response is empty.+--+-- In both cases, the retry succeeds.+--+-- Idempotent delete APIs:+--+-- -   DeleteEnvironmentTemplate+--+-- -   DeleteEnvironmentTemplateVersion+--+-- -   DeleteServiceTemplate+--+-- -   DeleteServiceTemplateVersion+--+-- -   DeleteEnvironmentAccountConnection+--+-- __Asynchronous idempotent delete APIs__+--+-- Given a request action that has succeeded:+--+-- If you retry the request with an API from this group, if the original+-- request delete operation status is @DELETE_IN_PROGRESS@, the retry+-- returns the resource detail data in the response without performing any+-- further actions.+--+-- If the original request delete operation is complete, a retry returns an+-- empty response.+--+-- Asynchronous idempotent delete APIs:+--+-- -   DeleteEnvironment+--+-- -   DeleteService+module Amazonka.Proton+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** ConflictException+    _ConflictException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ServiceQuotaExceededException+    _ServiceQuotaExceededException,++    -- ** ThrottlingException+    _ThrottlingException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- ** ComponentDeleted+    newComponentDeleted,++    -- ** ComponentDeployed+    newComponentDeployed,++    -- ** EnvironmentDeployed+    newEnvironmentDeployed,++    -- ** EnvironmentTemplateVersionRegistered+    newEnvironmentTemplateVersionRegistered,++    -- ** ServiceCreated+    newServiceCreated,++    -- ** ServiceDeleted+    newServiceDeleted,++    -- ** ServiceInstanceDeployed+    newServiceInstanceDeployed,++    -- ** ServicePipelineDeployed+    newServicePipelineDeployed,++    -- ** ServiceTemplateVersionRegistered+    newServiceTemplateVersionRegistered,++    -- ** ServiceUpdated+    newServiceUpdated,++    -- * Operations+    -- $operations++    -- ** AcceptEnvironmentAccountConnection+    AcceptEnvironmentAccountConnection (AcceptEnvironmentAccountConnection'),+    newAcceptEnvironmentAccountConnection,+    AcceptEnvironmentAccountConnectionResponse (AcceptEnvironmentAccountConnectionResponse'),+    newAcceptEnvironmentAccountConnectionResponse,++    -- ** CancelComponentDeployment+    CancelComponentDeployment (CancelComponentDeployment'),+    newCancelComponentDeployment,+    CancelComponentDeploymentResponse (CancelComponentDeploymentResponse'),+    newCancelComponentDeploymentResponse,++    -- ** CancelEnvironmentDeployment+    CancelEnvironmentDeployment (CancelEnvironmentDeployment'),+    newCancelEnvironmentDeployment,+    CancelEnvironmentDeploymentResponse (CancelEnvironmentDeploymentResponse'),+    newCancelEnvironmentDeploymentResponse,++    -- ** CancelServiceInstanceDeployment+    CancelServiceInstanceDeployment (CancelServiceInstanceDeployment'),+    newCancelServiceInstanceDeployment,+    CancelServiceInstanceDeploymentResponse (CancelServiceInstanceDeploymentResponse'),+    newCancelServiceInstanceDeploymentResponse,++    -- ** CancelServicePipelineDeployment+    CancelServicePipelineDeployment (CancelServicePipelineDeployment'),+    newCancelServicePipelineDeployment,+    CancelServicePipelineDeploymentResponse (CancelServicePipelineDeploymentResponse'),+    newCancelServicePipelineDeploymentResponse,++    -- ** CreateComponent+    CreateComponent (CreateComponent'),+    newCreateComponent,+    CreateComponentResponse (CreateComponentResponse'),+    newCreateComponentResponse,++    -- ** CreateEnvironment+    CreateEnvironment (CreateEnvironment'),+    newCreateEnvironment,+    CreateEnvironmentResponse (CreateEnvironmentResponse'),+    newCreateEnvironmentResponse,++    -- ** CreateEnvironmentAccountConnection+    CreateEnvironmentAccountConnection (CreateEnvironmentAccountConnection'),+    newCreateEnvironmentAccountConnection,+    CreateEnvironmentAccountConnectionResponse (CreateEnvironmentAccountConnectionResponse'),+    newCreateEnvironmentAccountConnectionResponse,++    -- ** CreateEnvironmentTemplate+    CreateEnvironmentTemplate (CreateEnvironmentTemplate'),+    newCreateEnvironmentTemplate,+    CreateEnvironmentTemplateResponse (CreateEnvironmentTemplateResponse'),+    newCreateEnvironmentTemplateResponse,++    -- ** CreateEnvironmentTemplateVersion+    CreateEnvironmentTemplateVersion (CreateEnvironmentTemplateVersion'),+    newCreateEnvironmentTemplateVersion,+    CreateEnvironmentTemplateVersionResponse (CreateEnvironmentTemplateVersionResponse'),+    newCreateEnvironmentTemplateVersionResponse,++    -- ** CreateRepository+    CreateRepository (CreateRepository'),+    newCreateRepository,+    CreateRepositoryResponse (CreateRepositoryResponse'),+    newCreateRepositoryResponse,++    -- ** CreateService+    CreateService (CreateService'),+    newCreateService,+    CreateServiceResponse (CreateServiceResponse'),+    newCreateServiceResponse,++    -- ** CreateServiceTemplate+    CreateServiceTemplate (CreateServiceTemplate'),+    newCreateServiceTemplate,+    CreateServiceTemplateResponse (CreateServiceTemplateResponse'),+    newCreateServiceTemplateResponse,++    -- ** CreateServiceTemplateVersion+    CreateServiceTemplateVersion (CreateServiceTemplateVersion'),+    newCreateServiceTemplateVersion,+    CreateServiceTemplateVersionResponse (CreateServiceTemplateVersionResponse'),+    newCreateServiceTemplateVersionResponse,++    -- ** CreateTemplateSyncConfig+    CreateTemplateSyncConfig (CreateTemplateSyncConfig'),+    newCreateTemplateSyncConfig,+    CreateTemplateSyncConfigResponse (CreateTemplateSyncConfigResponse'),+    newCreateTemplateSyncConfigResponse,++    -- ** DeleteComponent+    DeleteComponent (DeleteComponent'),+    newDeleteComponent,+    DeleteComponentResponse (DeleteComponentResponse'),+    newDeleteComponentResponse,++    -- ** DeleteEnvironment+    DeleteEnvironment (DeleteEnvironment'),+    newDeleteEnvironment,+    DeleteEnvironmentResponse (DeleteEnvironmentResponse'),+    newDeleteEnvironmentResponse,++    -- ** DeleteEnvironmentAccountConnection+    DeleteEnvironmentAccountConnection (DeleteEnvironmentAccountConnection'),+    newDeleteEnvironmentAccountConnection,+    DeleteEnvironmentAccountConnectionResponse (DeleteEnvironmentAccountConnectionResponse'),+    newDeleteEnvironmentAccountConnectionResponse,++    -- ** DeleteEnvironmentTemplate+    DeleteEnvironmentTemplate (DeleteEnvironmentTemplate'),+    newDeleteEnvironmentTemplate,+    DeleteEnvironmentTemplateResponse (DeleteEnvironmentTemplateResponse'),+    newDeleteEnvironmentTemplateResponse,++    -- ** DeleteEnvironmentTemplateVersion+    DeleteEnvironmentTemplateVersion (DeleteEnvironmentTemplateVersion'),+    newDeleteEnvironmentTemplateVersion,+    DeleteEnvironmentTemplateVersionResponse (DeleteEnvironmentTemplateVersionResponse'),+    newDeleteEnvironmentTemplateVersionResponse,++    -- ** DeleteRepository+    DeleteRepository (DeleteRepository'),+    newDeleteRepository,+    DeleteRepositoryResponse (DeleteRepositoryResponse'),+    newDeleteRepositoryResponse,++    -- ** DeleteService+    DeleteService (DeleteService'),+    newDeleteService,+    DeleteServiceResponse (DeleteServiceResponse'),+    newDeleteServiceResponse,++    -- ** DeleteServiceTemplate+    DeleteServiceTemplate (DeleteServiceTemplate'),+    newDeleteServiceTemplate,+    DeleteServiceTemplateResponse (DeleteServiceTemplateResponse'),+    newDeleteServiceTemplateResponse,++    -- ** DeleteServiceTemplateVersion+    DeleteServiceTemplateVersion (DeleteServiceTemplateVersion'),+    newDeleteServiceTemplateVersion,+    DeleteServiceTemplateVersionResponse (DeleteServiceTemplateVersionResponse'),+    newDeleteServiceTemplateVersionResponse,++    -- ** DeleteTemplateSyncConfig+    DeleteTemplateSyncConfig (DeleteTemplateSyncConfig'),+    newDeleteTemplateSyncConfig,+    DeleteTemplateSyncConfigResponse (DeleteTemplateSyncConfigResponse'),+    newDeleteTemplateSyncConfigResponse,++    -- ** GetAccountSettings+    GetAccountSettings (GetAccountSettings'),+    newGetAccountSettings,+    GetAccountSettingsResponse (GetAccountSettingsResponse'),+    newGetAccountSettingsResponse,++    -- ** GetComponent+    GetComponent (GetComponent'),+    newGetComponent,+    GetComponentResponse (GetComponentResponse'),+    newGetComponentResponse,++    -- ** GetEnvironment+    GetEnvironment (GetEnvironment'),+    newGetEnvironment,+    GetEnvironmentResponse (GetEnvironmentResponse'),+    newGetEnvironmentResponse,++    -- ** GetEnvironmentAccountConnection+    GetEnvironmentAccountConnection (GetEnvironmentAccountConnection'),+    newGetEnvironmentAccountConnection,+    GetEnvironmentAccountConnectionResponse (GetEnvironmentAccountConnectionResponse'),+    newGetEnvironmentAccountConnectionResponse,++    -- ** GetEnvironmentTemplate+    GetEnvironmentTemplate (GetEnvironmentTemplate'),+    newGetEnvironmentTemplate,+    GetEnvironmentTemplateResponse (GetEnvironmentTemplateResponse'),+    newGetEnvironmentTemplateResponse,++    -- ** GetEnvironmentTemplateVersion+    GetEnvironmentTemplateVersion (GetEnvironmentTemplateVersion'),+    newGetEnvironmentTemplateVersion,+    GetEnvironmentTemplateVersionResponse (GetEnvironmentTemplateVersionResponse'),+    newGetEnvironmentTemplateVersionResponse,++    -- ** GetRepository+    GetRepository (GetRepository'),+    newGetRepository,+    GetRepositoryResponse (GetRepositoryResponse'),+    newGetRepositoryResponse,++    -- ** GetRepositorySyncStatus+    GetRepositorySyncStatus (GetRepositorySyncStatus'),+    newGetRepositorySyncStatus,+    GetRepositorySyncStatusResponse (GetRepositorySyncStatusResponse'),+    newGetRepositorySyncStatusResponse,++    -- ** GetService+    GetService (GetService'),+    newGetService,+    GetServiceResponse (GetServiceResponse'),+    newGetServiceResponse,++    -- ** GetServiceInstance+    GetServiceInstance (GetServiceInstance'),+    newGetServiceInstance,+    GetServiceInstanceResponse (GetServiceInstanceResponse'),+    newGetServiceInstanceResponse,++    -- ** GetServiceTemplate+    GetServiceTemplate (GetServiceTemplate'),+    newGetServiceTemplate,+    GetServiceTemplateResponse (GetServiceTemplateResponse'),+    newGetServiceTemplateResponse,++    -- ** GetServiceTemplateVersion+    GetServiceTemplateVersion (GetServiceTemplateVersion'),+    newGetServiceTemplateVersion,+    GetServiceTemplateVersionResponse (GetServiceTemplateVersionResponse'),+    newGetServiceTemplateVersionResponse,++    -- ** GetTemplateSyncConfig+    GetTemplateSyncConfig (GetTemplateSyncConfig'),+    newGetTemplateSyncConfig,+    GetTemplateSyncConfigResponse (GetTemplateSyncConfigResponse'),+    newGetTemplateSyncConfigResponse,++    -- ** GetTemplateSyncStatus+    GetTemplateSyncStatus (GetTemplateSyncStatus'),+    newGetTemplateSyncStatus,+    GetTemplateSyncStatusResponse (GetTemplateSyncStatusResponse'),+    newGetTemplateSyncStatusResponse,++    -- ** ListComponentOutputs (Paginated)+    ListComponentOutputs (ListComponentOutputs'),+    newListComponentOutputs,+    ListComponentOutputsResponse (ListComponentOutputsResponse'),+    newListComponentOutputsResponse,++    -- ** ListComponentProvisionedResources (Paginated)+    ListComponentProvisionedResources (ListComponentProvisionedResources'),+    newListComponentProvisionedResources,+    ListComponentProvisionedResourcesResponse (ListComponentProvisionedResourcesResponse'),+    newListComponentProvisionedResourcesResponse,++    -- ** ListComponents (Paginated)+    ListComponents (ListComponents'),+    newListComponents,+    ListComponentsResponse (ListComponentsResponse'),+    newListComponentsResponse,++    -- ** ListEnvironmentAccountConnections (Paginated)+    ListEnvironmentAccountConnections (ListEnvironmentAccountConnections'),+    newListEnvironmentAccountConnections,+    ListEnvironmentAccountConnectionsResponse (ListEnvironmentAccountConnectionsResponse'),+    newListEnvironmentAccountConnectionsResponse,++    -- ** ListEnvironmentOutputs (Paginated)+    ListEnvironmentOutputs (ListEnvironmentOutputs'),+    newListEnvironmentOutputs,+    ListEnvironmentOutputsResponse (ListEnvironmentOutputsResponse'),+    newListEnvironmentOutputsResponse,++    -- ** ListEnvironmentProvisionedResources (Paginated)+    ListEnvironmentProvisionedResources (ListEnvironmentProvisionedResources'),+    newListEnvironmentProvisionedResources,+    ListEnvironmentProvisionedResourcesResponse (ListEnvironmentProvisionedResourcesResponse'),+    newListEnvironmentProvisionedResourcesResponse,++    -- ** ListEnvironmentTemplateVersions (Paginated)+    ListEnvironmentTemplateVersions (ListEnvironmentTemplateVersions'),+    newListEnvironmentTemplateVersions,+    ListEnvironmentTemplateVersionsResponse (ListEnvironmentTemplateVersionsResponse'),+    newListEnvironmentTemplateVersionsResponse,++    -- ** ListEnvironmentTemplates (Paginated)+    ListEnvironmentTemplates (ListEnvironmentTemplates'),+    newListEnvironmentTemplates,+    ListEnvironmentTemplatesResponse (ListEnvironmentTemplatesResponse'),+    newListEnvironmentTemplatesResponse,++    -- ** ListEnvironments (Paginated)+    ListEnvironments (ListEnvironments'),+    newListEnvironments,+    ListEnvironmentsResponse (ListEnvironmentsResponse'),+    newListEnvironmentsResponse,++    -- ** ListRepositories (Paginated)+    ListRepositories (ListRepositories'),+    newListRepositories,+    ListRepositoriesResponse (ListRepositoriesResponse'),+    newListRepositoriesResponse,++    -- ** ListRepositorySyncDefinitions (Paginated)+    ListRepositorySyncDefinitions (ListRepositorySyncDefinitions'),+    newListRepositorySyncDefinitions,+    ListRepositorySyncDefinitionsResponse (ListRepositorySyncDefinitionsResponse'),+    newListRepositorySyncDefinitionsResponse,++    -- ** ListServiceInstanceOutputs (Paginated)+    ListServiceInstanceOutputs (ListServiceInstanceOutputs'),+    newListServiceInstanceOutputs,+    ListServiceInstanceOutputsResponse (ListServiceInstanceOutputsResponse'),+    newListServiceInstanceOutputsResponse,++    -- ** ListServiceInstanceProvisionedResources (Paginated)+    ListServiceInstanceProvisionedResources (ListServiceInstanceProvisionedResources'),+    newListServiceInstanceProvisionedResources,+    ListServiceInstanceProvisionedResourcesResponse (ListServiceInstanceProvisionedResourcesResponse'),+    newListServiceInstanceProvisionedResourcesResponse,++    -- ** ListServiceInstances (Paginated)+    ListServiceInstances (ListServiceInstances'),+    newListServiceInstances,+    ListServiceInstancesResponse (ListServiceInstancesResponse'),+    newListServiceInstancesResponse,++    -- ** ListServicePipelineOutputs (Paginated)+    ListServicePipelineOutputs (ListServicePipelineOutputs'),+    newListServicePipelineOutputs,+    ListServicePipelineOutputsResponse (ListServicePipelineOutputsResponse'),+    newListServicePipelineOutputsResponse,++    -- ** ListServicePipelineProvisionedResources (Paginated)+    ListServicePipelineProvisionedResources (ListServicePipelineProvisionedResources'),+    newListServicePipelineProvisionedResources,+    ListServicePipelineProvisionedResourcesResponse (ListServicePipelineProvisionedResourcesResponse'),+    newListServicePipelineProvisionedResourcesResponse,++    -- ** ListServiceTemplateVersions (Paginated)+    ListServiceTemplateVersions (ListServiceTemplateVersions'),+    newListServiceTemplateVersions,+    ListServiceTemplateVersionsResponse (ListServiceTemplateVersionsResponse'),+    newListServiceTemplateVersionsResponse,++    -- ** ListServiceTemplates (Paginated)+    ListServiceTemplates (ListServiceTemplates'),+    newListServiceTemplates,+    ListServiceTemplatesResponse (ListServiceTemplatesResponse'),+    newListServiceTemplatesResponse,++    -- ** ListServices (Paginated)+    ListServices (ListServices'),+    newListServices,+    ListServicesResponse (ListServicesResponse'),+    newListServicesResponse,++    -- ** ListTagsForResource (Paginated)+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** NotifyResourceDeploymentStatusChange+    NotifyResourceDeploymentStatusChange (NotifyResourceDeploymentStatusChange'),+    newNotifyResourceDeploymentStatusChange,+    NotifyResourceDeploymentStatusChangeResponse (NotifyResourceDeploymentStatusChangeResponse'),+    newNotifyResourceDeploymentStatusChangeResponse,++    -- ** RejectEnvironmentAccountConnection+    RejectEnvironmentAccountConnection (RejectEnvironmentAccountConnection'),+    newRejectEnvironmentAccountConnection,+    RejectEnvironmentAccountConnectionResponse (RejectEnvironmentAccountConnectionResponse'),+    newRejectEnvironmentAccountConnectionResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateAccountSettings+    UpdateAccountSettings (UpdateAccountSettings'),+    newUpdateAccountSettings,+    UpdateAccountSettingsResponse (UpdateAccountSettingsResponse'),+    newUpdateAccountSettingsResponse,++    -- ** UpdateComponent+    UpdateComponent (UpdateComponent'),+    newUpdateComponent,+    UpdateComponentResponse (UpdateComponentResponse'),+    newUpdateComponentResponse,++    -- ** UpdateEnvironment+    UpdateEnvironment (UpdateEnvironment'),+    newUpdateEnvironment,+    UpdateEnvironmentResponse (UpdateEnvironmentResponse'),+    newUpdateEnvironmentResponse,++    -- ** UpdateEnvironmentAccountConnection+    UpdateEnvironmentAccountConnection (UpdateEnvironmentAccountConnection'),+    newUpdateEnvironmentAccountConnection,+    UpdateEnvironmentAccountConnectionResponse (UpdateEnvironmentAccountConnectionResponse'),+    newUpdateEnvironmentAccountConnectionResponse,++    -- ** UpdateEnvironmentTemplate+    UpdateEnvironmentTemplate (UpdateEnvironmentTemplate'),+    newUpdateEnvironmentTemplate,+    UpdateEnvironmentTemplateResponse (UpdateEnvironmentTemplateResponse'),+    newUpdateEnvironmentTemplateResponse,++    -- ** UpdateEnvironmentTemplateVersion+    UpdateEnvironmentTemplateVersion (UpdateEnvironmentTemplateVersion'),+    newUpdateEnvironmentTemplateVersion,+    UpdateEnvironmentTemplateVersionResponse (UpdateEnvironmentTemplateVersionResponse'),+    newUpdateEnvironmentTemplateVersionResponse,++    -- ** UpdateService+    UpdateService (UpdateService'),+    newUpdateService,+    UpdateServiceResponse (UpdateServiceResponse'),+    newUpdateServiceResponse,++    -- ** UpdateServiceInstance+    UpdateServiceInstance (UpdateServiceInstance'),+    newUpdateServiceInstance,+    UpdateServiceInstanceResponse (UpdateServiceInstanceResponse'),+    newUpdateServiceInstanceResponse,++    -- ** UpdateServicePipeline+    UpdateServicePipeline (UpdateServicePipeline'),+    newUpdateServicePipeline,+    UpdateServicePipelineResponse (UpdateServicePipelineResponse'),+    newUpdateServicePipelineResponse,++    -- ** UpdateServiceTemplate+    UpdateServiceTemplate (UpdateServiceTemplate'),+    newUpdateServiceTemplate,+    UpdateServiceTemplateResponse (UpdateServiceTemplateResponse'),+    newUpdateServiceTemplateResponse,++    -- ** UpdateServiceTemplateVersion+    UpdateServiceTemplateVersion (UpdateServiceTemplateVersion'),+    newUpdateServiceTemplateVersion,+    UpdateServiceTemplateVersionResponse (UpdateServiceTemplateVersionResponse'),+    newUpdateServiceTemplateVersionResponse,++    -- ** UpdateTemplateSyncConfig+    UpdateTemplateSyncConfig (UpdateTemplateSyncConfig'),+    newUpdateTemplateSyncConfig,+    UpdateTemplateSyncConfigResponse (UpdateTemplateSyncConfigResponse'),+    newUpdateTemplateSyncConfigResponse,++    -- * Types++    -- ** ComponentDeploymentUpdateType+    ComponentDeploymentUpdateType (..),++    -- ** DeploymentStatus+    DeploymentStatus (..),++    -- ** DeploymentUpdateType+    DeploymentUpdateType (..),++    -- ** EnvironmentAccountConnectionRequesterAccountType+    EnvironmentAccountConnectionRequesterAccountType (..),++    -- ** EnvironmentAccountConnectionStatus+    EnvironmentAccountConnectionStatus (..),++    -- ** ListServiceInstancesFilterBy+    ListServiceInstancesFilterBy (..),++    -- ** ListServiceInstancesSortBy+    ListServiceInstancesSortBy (..),++    -- ** ProvisionedResourceEngine+    ProvisionedResourceEngine (..),++    -- ** Provisioning+    Provisioning (..),++    -- ** RepositoryProvider+    RepositoryProvider (..),++    -- ** RepositorySyncStatus+    RepositorySyncStatus (..),++    -- ** ResourceDeploymentStatus+    ResourceDeploymentStatus (..),++    -- ** ResourceSyncStatus+    ResourceSyncStatus (..),++    -- ** ServiceStatus+    ServiceStatus (..),++    -- ** ServiceTemplateSupportedComponentSourceType+    ServiceTemplateSupportedComponentSourceType (..),++    -- ** SortOrder+    SortOrder (..),++    -- ** SyncType+    SyncType (..),++    -- ** TemplateType+    TemplateType (..),++    -- ** TemplateVersionStatus+    TemplateVersionStatus (..),++    -- ** AccountSettings+    AccountSettings (AccountSettings'),+    newAccountSettings,++    -- ** CompatibleEnvironmentTemplate+    CompatibleEnvironmentTemplate (CompatibleEnvironmentTemplate'),+    newCompatibleEnvironmentTemplate,++    -- ** CompatibleEnvironmentTemplateInput+    CompatibleEnvironmentTemplateInput (CompatibleEnvironmentTemplateInput'),+    newCompatibleEnvironmentTemplateInput,++    -- ** Component+    Component (Component'),+    newComponent,++    -- ** ComponentSummary+    ComponentSummary (ComponentSummary'),+    newComponentSummary,++    -- ** Environment+    Environment (Environment'),+    newEnvironment,++    -- ** EnvironmentAccountConnection+    EnvironmentAccountConnection (EnvironmentAccountConnection'),+    newEnvironmentAccountConnection,++    -- ** EnvironmentAccountConnectionSummary+    EnvironmentAccountConnectionSummary (EnvironmentAccountConnectionSummary'),+    newEnvironmentAccountConnectionSummary,++    -- ** EnvironmentSummary+    EnvironmentSummary (EnvironmentSummary'),+    newEnvironmentSummary,++    -- ** EnvironmentTemplate+    EnvironmentTemplate (EnvironmentTemplate'),+    newEnvironmentTemplate,++    -- ** EnvironmentTemplateFilter+    EnvironmentTemplateFilter (EnvironmentTemplateFilter'),+    newEnvironmentTemplateFilter,++    -- ** EnvironmentTemplateSummary+    EnvironmentTemplateSummary (EnvironmentTemplateSummary'),+    newEnvironmentTemplateSummary,++    -- ** EnvironmentTemplateVersion+    EnvironmentTemplateVersion (EnvironmentTemplateVersion'),+    newEnvironmentTemplateVersion,++    -- ** EnvironmentTemplateVersionSummary+    EnvironmentTemplateVersionSummary (EnvironmentTemplateVersionSummary'),+    newEnvironmentTemplateVersionSummary,++    -- ** ListServiceInstancesFilter+    ListServiceInstancesFilter (ListServiceInstancesFilter'),+    newListServiceInstancesFilter,++    -- ** Output+    Output (Output'),+    newOutput,++    -- ** ProvisionedResource+    ProvisionedResource (ProvisionedResource'),+    newProvisionedResource,++    -- ** Repository+    Repository (Repository'),+    newRepository,++    -- ** RepositoryBranch+    RepositoryBranch (RepositoryBranch'),+    newRepositoryBranch,++    -- ** RepositoryBranchInput+    RepositoryBranchInput (RepositoryBranchInput'),+    newRepositoryBranchInput,++    -- ** RepositorySummary+    RepositorySummary (RepositorySummary'),+    newRepositorySummary,++    -- ** RepositorySyncAttempt+    RepositorySyncAttempt (RepositorySyncAttempt'),+    newRepositorySyncAttempt,++    -- ** RepositorySyncDefinition+    RepositorySyncDefinition (RepositorySyncDefinition'),+    newRepositorySyncDefinition,++    -- ** RepositorySyncEvent+    RepositorySyncEvent (RepositorySyncEvent'),+    newRepositorySyncEvent,++    -- ** ResourceSyncAttempt+    ResourceSyncAttempt (ResourceSyncAttempt'),+    newResourceSyncAttempt,++    -- ** ResourceSyncEvent+    ResourceSyncEvent (ResourceSyncEvent'),+    newResourceSyncEvent,++    -- ** Revision+    Revision (Revision'),+    newRevision,++    -- ** S3ObjectSource+    S3ObjectSource (S3ObjectSource'),+    newS3ObjectSource,++    -- ** Service+    Service (Service'),+    newService,++    -- ** ServiceInstance+    ServiceInstance (ServiceInstance'),+    newServiceInstance,++    -- ** ServiceInstanceSummary+    ServiceInstanceSummary (ServiceInstanceSummary'),+    newServiceInstanceSummary,++    -- ** ServicePipeline+    ServicePipeline (ServicePipeline'),+    newServicePipeline,++    -- ** ServiceSummary+    ServiceSummary (ServiceSummary'),+    newServiceSummary,++    -- ** ServiceTemplate+    ServiceTemplate (ServiceTemplate'),+    newServiceTemplate,++    -- ** ServiceTemplateSummary+    ServiceTemplateSummary (ServiceTemplateSummary'),+    newServiceTemplateSummary,++    -- ** ServiceTemplateVersion+    ServiceTemplateVersion (ServiceTemplateVersion'),+    newServiceTemplateVersion,++    -- ** ServiceTemplateVersionSummary+    ServiceTemplateVersionSummary (ServiceTemplateVersionSummary'),+    newServiceTemplateVersionSummary,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** TemplateSyncConfig+    TemplateSyncConfig (TemplateSyncConfig'),+    newTemplateSyncConfig,++    -- ** TemplateVersionSourceInput+    TemplateVersionSourceInput (TemplateVersionSourceInput'),+    newTemplateVersionSourceInput,+  )+where++import Amazonka.Proton.AcceptEnvironmentAccountConnection+import Amazonka.Proton.CancelComponentDeployment+import Amazonka.Proton.CancelEnvironmentDeployment+import Amazonka.Proton.CancelServiceInstanceDeployment+import Amazonka.Proton.CancelServicePipelineDeployment+import Amazonka.Proton.CreateComponent+import Amazonka.Proton.CreateEnvironment+import Amazonka.Proton.CreateEnvironmentAccountConnection+import Amazonka.Proton.CreateEnvironmentTemplate+import Amazonka.Proton.CreateEnvironmentTemplateVersion+import Amazonka.Proton.CreateRepository+import Amazonka.Proton.CreateService+import Amazonka.Proton.CreateServiceTemplate+import Amazonka.Proton.CreateServiceTemplateVersion+import Amazonka.Proton.CreateTemplateSyncConfig+import Amazonka.Proton.DeleteComponent+import Amazonka.Proton.DeleteEnvironment+import Amazonka.Proton.DeleteEnvironmentAccountConnection+import Amazonka.Proton.DeleteEnvironmentTemplate+import Amazonka.Proton.DeleteEnvironmentTemplateVersion+import Amazonka.Proton.DeleteRepository+import Amazonka.Proton.DeleteService+import Amazonka.Proton.DeleteServiceTemplate+import Amazonka.Proton.DeleteServiceTemplateVersion+import Amazonka.Proton.DeleteTemplateSyncConfig+import Amazonka.Proton.GetAccountSettings+import Amazonka.Proton.GetComponent+import Amazonka.Proton.GetEnvironment+import Amazonka.Proton.GetEnvironmentAccountConnection+import Amazonka.Proton.GetEnvironmentTemplate+import Amazonka.Proton.GetEnvironmentTemplateVersion+import Amazonka.Proton.GetRepository+import Amazonka.Proton.GetRepositorySyncStatus+import Amazonka.Proton.GetService+import Amazonka.Proton.GetServiceInstance+import Amazonka.Proton.GetServiceTemplate+import Amazonka.Proton.GetServiceTemplateVersion+import Amazonka.Proton.GetTemplateSyncConfig+import Amazonka.Proton.GetTemplateSyncStatus+import Amazonka.Proton.Lens+import Amazonka.Proton.ListComponentOutputs+import Amazonka.Proton.ListComponentProvisionedResources+import Amazonka.Proton.ListComponents+import Amazonka.Proton.ListEnvironmentAccountConnections+import Amazonka.Proton.ListEnvironmentOutputs+import Amazonka.Proton.ListEnvironmentProvisionedResources+import Amazonka.Proton.ListEnvironmentTemplateVersions+import Amazonka.Proton.ListEnvironmentTemplates+import Amazonka.Proton.ListEnvironments+import Amazonka.Proton.ListRepositories+import Amazonka.Proton.ListRepositorySyncDefinitions+import Amazonka.Proton.ListServiceInstanceOutputs+import Amazonka.Proton.ListServiceInstanceProvisionedResources+import Amazonka.Proton.ListServiceInstances+import Amazonka.Proton.ListServicePipelineOutputs+import Amazonka.Proton.ListServicePipelineProvisionedResources+import Amazonka.Proton.ListServiceTemplateVersions+import Amazonka.Proton.ListServiceTemplates+import Amazonka.Proton.ListServices+import Amazonka.Proton.ListTagsForResource+import Amazonka.Proton.NotifyResourceDeploymentStatusChange+import Amazonka.Proton.RejectEnvironmentAccountConnection+import Amazonka.Proton.TagResource+import Amazonka.Proton.Types+import Amazonka.Proton.UntagResource+import Amazonka.Proton.UpdateAccountSettings+import Amazonka.Proton.UpdateComponent+import Amazonka.Proton.UpdateEnvironment+import Amazonka.Proton.UpdateEnvironmentAccountConnection+import Amazonka.Proton.UpdateEnvironmentTemplate+import Amazonka.Proton.UpdateEnvironmentTemplateVersion+import Amazonka.Proton.UpdateService+import Amazonka.Proton.UpdateServiceInstance+import Amazonka.Proton.UpdateServicePipeline+import Amazonka.Proton.UpdateServiceTemplate+import Amazonka.Proton.UpdateServiceTemplateVersion+import Amazonka.Proton.UpdateTemplateSyncConfig+import Amazonka.Proton.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'Proton'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.
+ gen/Amazonka/Proton/AcceptEnvironmentAccountConnection.hs view
@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.AcceptEnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- In a management account, an environment account connection request is+-- accepted. When the environment account connection request is accepted,+-- Proton can use the associated IAM role to provision environment+-- infrastructure resources in the associated environment account.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+module Amazonka.Proton.AcceptEnvironmentAccountConnection+  ( -- * Creating a Request+    AcceptEnvironmentAccountConnection (..),+    newAcceptEnvironmentAccountConnection,++    -- * Request Lenses+    acceptEnvironmentAccountConnection_id,++    -- * Destructuring the Response+    AcceptEnvironmentAccountConnectionResponse (..),+    newAcceptEnvironmentAccountConnectionResponse,++    -- * Response Lenses+    acceptEnvironmentAccountConnectionResponse_httpStatus,+    acceptEnvironmentAccountConnectionResponse_environmentAccountConnection,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAcceptEnvironmentAccountConnection' smart constructor.+data AcceptEnvironmentAccountConnection = AcceptEnvironmentAccountConnection'+  { -- | The ID of the environment account connection.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptEnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'acceptEnvironmentAccountConnection_id' - The ID of the environment account connection.+newAcceptEnvironmentAccountConnection ::+  -- | 'id'+  Prelude.Text ->+  AcceptEnvironmentAccountConnection+newAcceptEnvironmentAccountConnection pId_ =+  AcceptEnvironmentAccountConnection' {id = pId_}++-- | The ID of the environment account connection.+acceptEnvironmentAccountConnection_id :: Lens.Lens' AcceptEnvironmentAccountConnection Prelude.Text+acceptEnvironmentAccountConnection_id = Lens.lens (\AcceptEnvironmentAccountConnection' {id} -> id) (\s@AcceptEnvironmentAccountConnection' {} a -> s {id = a} :: AcceptEnvironmentAccountConnection)++instance+  Core.AWSRequest+    AcceptEnvironmentAccountConnection+  where+  type+    AWSResponse AcceptEnvironmentAccountConnection =+      AcceptEnvironmentAccountConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          AcceptEnvironmentAccountConnectionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentAccountConnection")+      )++instance+  Prelude.Hashable+    AcceptEnvironmentAccountConnection+  where+  hashWithSalt+    _salt+    AcceptEnvironmentAccountConnection' {..} =+      _salt `Prelude.hashWithSalt` id++instance+  Prelude.NFData+    AcceptEnvironmentAccountConnection+  where+  rnf AcceptEnvironmentAccountConnection' {..} =+    Prelude.rnf id++instance+  Data.ToHeaders+    AcceptEnvironmentAccountConnection+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.AcceptEnvironmentAccountConnection" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    AcceptEnvironmentAccountConnection+  where+  toJSON AcceptEnvironmentAccountConnection' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("id" Data..= id)])++instance+  Data.ToPath+    AcceptEnvironmentAccountConnection+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    AcceptEnvironmentAccountConnection+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAcceptEnvironmentAccountConnectionResponse' smart constructor.+data AcceptEnvironmentAccountConnectionResponse = AcceptEnvironmentAccountConnectionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment account connection data that\'s returned by Proton.+    environmentAccountConnection :: EnvironmentAccountConnection+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptEnvironmentAccountConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'acceptEnvironmentAccountConnectionResponse_httpStatus' - The response's http status code.+--+-- 'environmentAccountConnection', 'acceptEnvironmentAccountConnectionResponse_environmentAccountConnection' - The environment account connection data that\'s returned by Proton.+newAcceptEnvironmentAccountConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentAccountConnection'+  EnvironmentAccountConnection ->+  AcceptEnvironmentAccountConnectionResponse+newAcceptEnvironmentAccountConnectionResponse+  pHttpStatus_+  pEnvironmentAccountConnection_ =+    AcceptEnvironmentAccountConnectionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentAccountConnection =+          pEnvironmentAccountConnection_+      }++-- | The response's http status code.+acceptEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' AcceptEnvironmentAccountConnectionResponse Prelude.Int+acceptEnvironmentAccountConnectionResponse_httpStatus = Lens.lens (\AcceptEnvironmentAccountConnectionResponse' {httpStatus} -> httpStatus) (\s@AcceptEnvironmentAccountConnectionResponse' {} a -> s {httpStatus = a} :: AcceptEnvironmentAccountConnectionResponse)++-- | The environment account connection data that\'s returned by Proton.+acceptEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' AcceptEnvironmentAccountConnectionResponse EnvironmentAccountConnection+acceptEnvironmentAccountConnectionResponse_environmentAccountConnection = Lens.lens (\AcceptEnvironmentAccountConnectionResponse' {environmentAccountConnection} -> environmentAccountConnection) (\s@AcceptEnvironmentAccountConnectionResponse' {} a -> s {environmentAccountConnection = a} :: AcceptEnvironmentAccountConnectionResponse)++instance+  Prelude.NFData+    AcceptEnvironmentAccountConnectionResponse+  where+  rnf AcceptEnvironmentAccountConnectionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentAccountConnection
+ gen/Amazonka/Proton/CancelComponentDeployment.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CancelComponentDeployment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attempts to cancel a component deployment (for a component that is in+-- the @IN_PROGRESS@ deployment status).+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.CancelComponentDeployment+  ( -- * Creating a Request+    CancelComponentDeployment (..),+    newCancelComponentDeployment,++    -- * Request Lenses+    cancelComponentDeployment_componentName,++    -- * Destructuring the Response+    CancelComponentDeploymentResponse (..),+    newCancelComponentDeploymentResponse,++    -- * Response Lenses+    cancelComponentDeploymentResponse_httpStatus,+    cancelComponentDeploymentResponse_component,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCancelComponentDeployment' smart constructor.+data CancelComponentDeployment = CancelComponentDeployment'+  { -- | The name of the component with the deployment to cancel.+    componentName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelComponentDeployment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'componentName', 'cancelComponentDeployment_componentName' - The name of the component with the deployment to cancel.+newCancelComponentDeployment ::+  -- | 'componentName'+  Prelude.Text ->+  CancelComponentDeployment+newCancelComponentDeployment pComponentName_ =+  CancelComponentDeployment'+    { componentName =+        pComponentName_+    }++-- | The name of the component with the deployment to cancel.+cancelComponentDeployment_componentName :: Lens.Lens' CancelComponentDeployment Prelude.Text+cancelComponentDeployment_componentName = Lens.lens (\CancelComponentDeployment' {componentName} -> componentName) (\s@CancelComponentDeployment' {} a -> s {componentName = a} :: CancelComponentDeployment)++instance Core.AWSRequest CancelComponentDeployment where+  type+    AWSResponse CancelComponentDeployment =+      CancelComponentDeploymentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CancelComponentDeploymentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "component")+      )++instance Prelude.Hashable CancelComponentDeployment where+  hashWithSalt _salt CancelComponentDeployment' {..} =+    _salt `Prelude.hashWithSalt` componentName++instance Prelude.NFData CancelComponentDeployment where+  rnf CancelComponentDeployment' {..} =+    Prelude.rnf componentName++instance Data.ToHeaders CancelComponentDeployment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CancelComponentDeployment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CancelComponentDeployment where+  toJSON CancelComponentDeployment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("componentName" Data..= componentName)+          ]+      )++instance Data.ToPath CancelComponentDeployment where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelComponentDeployment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCancelComponentDeploymentResponse' smart constructor.+data CancelComponentDeploymentResponse = CancelComponentDeploymentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the component with the deployment that is being+    -- canceled.+    component :: Component+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelComponentDeploymentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'cancelComponentDeploymentResponse_httpStatus' - The response's http status code.+--+-- 'component', 'cancelComponentDeploymentResponse_component' - The detailed data of the component with the deployment that is being+-- canceled.+newCancelComponentDeploymentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'component'+  Component ->+  CancelComponentDeploymentResponse+newCancelComponentDeploymentResponse+  pHttpStatus_+  pComponent_ =+    CancelComponentDeploymentResponse'+      { httpStatus =+          pHttpStatus_,+        component = pComponent_+      }++-- | The response's http status code.+cancelComponentDeploymentResponse_httpStatus :: Lens.Lens' CancelComponentDeploymentResponse Prelude.Int+cancelComponentDeploymentResponse_httpStatus = Lens.lens (\CancelComponentDeploymentResponse' {httpStatus} -> httpStatus) (\s@CancelComponentDeploymentResponse' {} a -> s {httpStatus = a} :: CancelComponentDeploymentResponse)++-- | The detailed data of the component with the deployment that is being+-- canceled.+cancelComponentDeploymentResponse_component :: Lens.Lens' CancelComponentDeploymentResponse Component+cancelComponentDeploymentResponse_component = Lens.lens (\CancelComponentDeploymentResponse' {component} -> component) (\s@CancelComponentDeploymentResponse' {} a -> s {component = a} :: CancelComponentDeploymentResponse)++instance+  Prelude.NFData+    CancelComponentDeploymentResponse+  where+  rnf CancelComponentDeploymentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf component
+ gen/Amazonka/Proton/CancelEnvironmentDeployment.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CancelEnvironmentDeployment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attempts to cancel an environment deployment on an UpdateEnvironment+-- action, if the deployment is @IN_PROGRESS@. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-update.html Update an environment>+-- in the /Proton User guide/.+--+-- The following list includes potential cancellation scenarios.+--+-- -   If the cancellation attempt succeeds, the resulting deployment state+--     is @CANCELLED@.+--+-- -   If the cancellation attempt fails, the resulting deployment state is+--     @FAILED@.+--+-- -   If the current UpdateEnvironment action succeeds before the+--     cancellation attempt starts, the resulting deployment state is+--     @SUCCEEDED@ and the cancellation attempt has no effect.+module Amazonka.Proton.CancelEnvironmentDeployment+  ( -- * Creating a Request+    CancelEnvironmentDeployment (..),+    newCancelEnvironmentDeployment,++    -- * Request Lenses+    cancelEnvironmentDeployment_environmentName,++    -- * Destructuring the Response+    CancelEnvironmentDeploymentResponse (..),+    newCancelEnvironmentDeploymentResponse,++    -- * Response Lenses+    cancelEnvironmentDeploymentResponse_httpStatus,+    cancelEnvironmentDeploymentResponse_environment,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCancelEnvironmentDeployment' smart constructor.+data CancelEnvironmentDeployment = CancelEnvironmentDeployment'+  { -- | The name of the environment with the deployment to cancel.+    environmentName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelEnvironmentDeployment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentName', 'cancelEnvironmentDeployment_environmentName' - The name of the environment with the deployment to cancel.+newCancelEnvironmentDeployment ::+  -- | 'environmentName'+  Prelude.Text ->+  CancelEnvironmentDeployment+newCancelEnvironmentDeployment pEnvironmentName_ =+  CancelEnvironmentDeployment'+    { environmentName =+        pEnvironmentName_+    }++-- | The name of the environment with the deployment to cancel.+cancelEnvironmentDeployment_environmentName :: Lens.Lens' CancelEnvironmentDeployment Prelude.Text+cancelEnvironmentDeployment_environmentName = Lens.lens (\CancelEnvironmentDeployment' {environmentName} -> environmentName) (\s@CancelEnvironmentDeployment' {} a -> s {environmentName = a} :: CancelEnvironmentDeployment)++instance Core.AWSRequest CancelEnvironmentDeployment where+  type+    AWSResponse CancelEnvironmentDeployment =+      CancelEnvironmentDeploymentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CancelEnvironmentDeploymentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environment")+      )++instance Prelude.Hashable CancelEnvironmentDeployment where+  hashWithSalt _salt CancelEnvironmentDeployment' {..} =+    _salt `Prelude.hashWithSalt` environmentName++instance Prelude.NFData CancelEnvironmentDeployment where+  rnf CancelEnvironmentDeployment' {..} =+    Prelude.rnf environmentName++instance Data.ToHeaders CancelEnvironmentDeployment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CancelEnvironmentDeployment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CancelEnvironmentDeployment where+  toJSON CancelEnvironmentDeployment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("environmentName" Data..= environmentName)+          ]+      )++instance Data.ToPath CancelEnvironmentDeployment where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelEnvironmentDeployment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCancelEnvironmentDeploymentResponse' smart constructor.+data CancelEnvironmentDeploymentResponse = CancelEnvironmentDeploymentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment summary data that\'s returned by Proton.+    environment :: Environment+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelEnvironmentDeploymentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'cancelEnvironmentDeploymentResponse_httpStatus' - The response's http status code.+--+-- 'environment', 'cancelEnvironmentDeploymentResponse_environment' - The environment summary data that\'s returned by Proton.+newCancelEnvironmentDeploymentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environment'+  Environment ->+  CancelEnvironmentDeploymentResponse+newCancelEnvironmentDeploymentResponse+  pHttpStatus_+  pEnvironment_ =+    CancelEnvironmentDeploymentResponse'+      { httpStatus =+          pHttpStatus_,+        environment = pEnvironment_+      }++-- | The response's http status code.+cancelEnvironmentDeploymentResponse_httpStatus :: Lens.Lens' CancelEnvironmentDeploymentResponse Prelude.Int+cancelEnvironmentDeploymentResponse_httpStatus = Lens.lens (\CancelEnvironmentDeploymentResponse' {httpStatus} -> httpStatus) (\s@CancelEnvironmentDeploymentResponse' {} a -> s {httpStatus = a} :: CancelEnvironmentDeploymentResponse)++-- | The environment summary data that\'s returned by Proton.+cancelEnvironmentDeploymentResponse_environment :: Lens.Lens' CancelEnvironmentDeploymentResponse Environment+cancelEnvironmentDeploymentResponse_environment = Lens.lens (\CancelEnvironmentDeploymentResponse' {environment} -> environment) (\s@CancelEnvironmentDeploymentResponse' {} a -> s {environment = a} :: CancelEnvironmentDeploymentResponse)++instance+  Prelude.NFData+    CancelEnvironmentDeploymentResponse+  where+  rnf CancelEnvironmentDeploymentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environment
+ gen/Amazonka/Proton/CancelServiceInstanceDeployment.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CancelServiceInstanceDeployment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attempts to cancel a service instance deployment on an+-- UpdateServiceInstance action, if the deployment is @IN_PROGRESS@. For+-- more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-svc-instance-update.html Update a service instance>+-- in the /Proton User guide/.+--+-- The following list includes potential cancellation scenarios.+--+-- -   If the cancellation attempt succeeds, the resulting deployment state+--     is @CANCELLED@.+--+-- -   If the cancellation attempt fails, the resulting deployment state is+--     @FAILED@.+--+-- -   If the current UpdateServiceInstance action succeeds before the+--     cancellation attempt starts, the resulting deployment state is+--     @SUCCEEDED@ and the cancellation attempt has no effect.+module Amazonka.Proton.CancelServiceInstanceDeployment+  ( -- * Creating a Request+    CancelServiceInstanceDeployment (..),+    newCancelServiceInstanceDeployment,++    -- * Request Lenses+    cancelServiceInstanceDeployment_serviceInstanceName,+    cancelServiceInstanceDeployment_serviceName,++    -- * Destructuring the Response+    CancelServiceInstanceDeploymentResponse (..),+    newCancelServiceInstanceDeploymentResponse,++    -- * Response Lenses+    cancelServiceInstanceDeploymentResponse_httpStatus,+    cancelServiceInstanceDeploymentResponse_serviceInstance,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCancelServiceInstanceDeployment' smart constructor.+data CancelServiceInstanceDeployment = CancelServiceInstanceDeployment'+  { -- | The name of the service instance with the deployment to cancel.+    serviceInstanceName :: Prelude.Text,+    -- | The name of the service with the service instance deployment to cancel.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelServiceInstanceDeployment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'serviceInstanceName', 'cancelServiceInstanceDeployment_serviceInstanceName' - The name of the service instance with the deployment to cancel.+--+-- 'serviceName', 'cancelServiceInstanceDeployment_serviceName' - The name of the service with the service instance deployment to cancel.+newCancelServiceInstanceDeployment ::+  -- | 'serviceInstanceName'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  CancelServiceInstanceDeployment+newCancelServiceInstanceDeployment+  pServiceInstanceName_+  pServiceName_ =+    CancelServiceInstanceDeployment'+      { serviceInstanceName =+          pServiceInstanceName_,+        serviceName = pServiceName_+      }++-- | The name of the service instance with the deployment to cancel.+cancelServiceInstanceDeployment_serviceInstanceName :: Lens.Lens' CancelServiceInstanceDeployment Prelude.Text+cancelServiceInstanceDeployment_serviceInstanceName = Lens.lens (\CancelServiceInstanceDeployment' {serviceInstanceName} -> serviceInstanceName) (\s@CancelServiceInstanceDeployment' {} a -> s {serviceInstanceName = a} :: CancelServiceInstanceDeployment)++-- | The name of the service with the service instance deployment to cancel.+cancelServiceInstanceDeployment_serviceName :: Lens.Lens' CancelServiceInstanceDeployment Prelude.Text+cancelServiceInstanceDeployment_serviceName = Lens.lens (\CancelServiceInstanceDeployment' {serviceName} -> serviceName) (\s@CancelServiceInstanceDeployment' {} a -> s {serviceName = a} :: CancelServiceInstanceDeployment)++instance+  Core.AWSRequest+    CancelServiceInstanceDeployment+  where+  type+    AWSResponse CancelServiceInstanceDeployment =+      CancelServiceInstanceDeploymentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CancelServiceInstanceDeploymentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceInstance")+      )++instance+  Prelude.Hashable+    CancelServiceInstanceDeployment+  where+  hashWithSalt+    _salt+    CancelServiceInstanceDeployment' {..} =+      _salt+        `Prelude.hashWithSalt` serviceInstanceName+        `Prelude.hashWithSalt` serviceName++instance+  Prelude.NFData+    CancelServiceInstanceDeployment+  where+  rnf CancelServiceInstanceDeployment' {..} =+    Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName++instance+  Data.ToHeaders+    CancelServiceInstanceDeployment+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CancelServiceInstanceDeployment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CancelServiceInstanceDeployment where+  toJSON CancelServiceInstanceDeployment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("serviceInstanceName" Data..= serviceInstanceName),+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance Data.ToPath CancelServiceInstanceDeployment where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelServiceInstanceDeployment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCancelServiceInstanceDeploymentResponse' smart constructor.+data CancelServiceInstanceDeploymentResponse = CancelServiceInstanceDeploymentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service instance summary data that\'s returned by Proton.+    serviceInstance :: ServiceInstance+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelServiceInstanceDeploymentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'cancelServiceInstanceDeploymentResponse_httpStatus' - The response's http status code.+--+-- 'serviceInstance', 'cancelServiceInstanceDeploymentResponse_serviceInstance' - The service instance summary data that\'s returned by Proton.+newCancelServiceInstanceDeploymentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceInstance'+  ServiceInstance ->+  CancelServiceInstanceDeploymentResponse+newCancelServiceInstanceDeploymentResponse+  pHttpStatus_+  pServiceInstance_ =+    CancelServiceInstanceDeploymentResponse'+      { httpStatus =+          pHttpStatus_,+        serviceInstance =+          pServiceInstance_+      }++-- | The response's http status code.+cancelServiceInstanceDeploymentResponse_httpStatus :: Lens.Lens' CancelServiceInstanceDeploymentResponse Prelude.Int+cancelServiceInstanceDeploymentResponse_httpStatus = Lens.lens (\CancelServiceInstanceDeploymentResponse' {httpStatus} -> httpStatus) (\s@CancelServiceInstanceDeploymentResponse' {} a -> s {httpStatus = a} :: CancelServiceInstanceDeploymentResponse)++-- | The service instance summary data that\'s returned by Proton.+cancelServiceInstanceDeploymentResponse_serviceInstance :: Lens.Lens' CancelServiceInstanceDeploymentResponse ServiceInstance+cancelServiceInstanceDeploymentResponse_serviceInstance = Lens.lens (\CancelServiceInstanceDeploymentResponse' {serviceInstance} -> serviceInstance) (\s@CancelServiceInstanceDeploymentResponse' {} a -> s {serviceInstance = a} :: CancelServiceInstanceDeploymentResponse)++instance+  Prelude.NFData+    CancelServiceInstanceDeploymentResponse+  where+  rnf CancelServiceInstanceDeploymentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceInstance
+ gen/Amazonka/Proton/CancelServicePipelineDeployment.hs view
@@ -0,0 +1,209 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CancelServicePipelineDeployment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attempts to cancel a service pipeline deployment on an+-- UpdateServicePipeline action, if the deployment is @IN_PROGRESS@. For+-- more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-svc-pipeline-update.html Update a service pipeline>+-- in the /Proton User guide/.+--+-- The following list includes potential cancellation scenarios.+--+-- -   If the cancellation attempt succeeds, the resulting deployment state+--     is @CANCELLED@.+--+-- -   If the cancellation attempt fails, the resulting deployment state is+--     @FAILED@.+--+-- -   If the current UpdateServicePipeline action succeeds before the+--     cancellation attempt starts, the resulting deployment state is+--     @SUCCEEDED@ and the cancellation attempt has no effect.+module Amazonka.Proton.CancelServicePipelineDeployment+  ( -- * Creating a Request+    CancelServicePipelineDeployment (..),+    newCancelServicePipelineDeployment,++    -- * Request Lenses+    cancelServicePipelineDeployment_serviceName,++    -- * Destructuring the Response+    CancelServicePipelineDeploymentResponse (..),+    newCancelServicePipelineDeploymentResponse,++    -- * Response Lenses+    cancelServicePipelineDeploymentResponse_httpStatus,+    cancelServicePipelineDeploymentResponse_pipeline,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCancelServicePipelineDeployment' smart constructor.+data CancelServicePipelineDeployment = CancelServicePipelineDeployment'+  { -- | The name of the service with the service pipeline deployment to cancel.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelServicePipelineDeployment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'serviceName', 'cancelServicePipelineDeployment_serviceName' - The name of the service with the service pipeline deployment to cancel.+newCancelServicePipelineDeployment ::+  -- | 'serviceName'+  Prelude.Text ->+  CancelServicePipelineDeployment+newCancelServicePipelineDeployment pServiceName_ =+  CancelServicePipelineDeployment'+    { serviceName =+        pServiceName_+    }++-- | The name of the service with the service pipeline deployment to cancel.+cancelServicePipelineDeployment_serviceName :: Lens.Lens' CancelServicePipelineDeployment Prelude.Text+cancelServicePipelineDeployment_serviceName = Lens.lens (\CancelServicePipelineDeployment' {serviceName} -> serviceName) (\s@CancelServicePipelineDeployment' {} a -> s {serviceName = a} :: CancelServicePipelineDeployment)++instance+  Core.AWSRequest+    CancelServicePipelineDeployment+  where+  type+    AWSResponse CancelServicePipelineDeployment =+      CancelServicePipelineDeploymentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CancelServicePipelineDeploymentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "pipeline")+      )++instance+  Prelude.Hashable+    CancelServicePipelineDeployment+  where+  hashWithSalt+    _salt+    CancelServicePipelineDeployment' {..} =+      _salt `Prelude.hashWithSalt` serviceName++instance+  Prelude.NFData+    CancelServicePipelineDeployment+  where+  rnf CancelServicePipelineDeployment' {..} =+    Prelude.rnf serviceName++instance+  Data.ToHeaders+    CancelServicePipelineDeployment+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CancelServicePipelineDeployment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CancelServicePipelineDeployment where+  toJSON CancelServicePipelineDeployment' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("serviceName" Data..= serviceName)]+      )++instance Data.ToPath CancelServicePipelineDeployment where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelServicePipelineDeployment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCancelServicePipelineDeploymentResponse' smart constructor.+data CancelServicePipelineDeploymentResponse = CancelServicePipelineDeploymentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service pipeline detail data that\'s returned by Proton.+    pipeline :: ServicePipeline+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelServicePipelineDeploymentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'cancelServicePipelineDeploymentResponse_httpStatus' - The response's http status code.+--+-- 'pipeline', 'cancelServicePipelineDeploymentResponse_pipeline' - The service pipeline detail data that\'s returned by Proton.+newCancelServicePipelineDeploymentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'pipeline'+  ServicePipeline ->+  CancelServicePipelineDeploymentResponse+newCancelServicePipelineDeploymentResponse+  pHttpStatus_+  pPipeline_ =+    CancelServicePipelineDeploymentResponse'+      { httpStatus =+          pHttpStatus_,+        pipeline = pPipeline_+      }++-- | The response's http status code.+cancelServicePipelineDeploymentResponse_httpStatus :: Lens.Lens' CancelServicePipelineDeploymentResponse Prelude.Int+cancelServicePipelineDeploymentResponse_httpStatus = Lens.lens (\CancelServicePipelineDeploymentResponse' {httpStatus} -> httpStatus) (\s@CancelServicePipelineDeploymentResponse' {} a -> s {httpStatus = a} :: CancelServicePipelineDeploymentResponse)++-- | The service pipeline detail data that\'s returned by Proton.+cancelServicePipelineDeploymentResponse_pipeline :: Lens.Lens' CancelServicePipelineDeploymentResponse ServicePipeline+cancelServicePipelineDeploymentResponse_pipeline = Lens.lens (\CancelServicePipelineDeploymentResponse' {pipeline} -> pipeline) (\s@CancelServicePipelineDeploymentResponse' {} a -> s {pipeline = a} :: CancelServicePipelineDeploymentResponse)++instance+  Prelude.NFData+    CancelServicePipelineDeploymentResponse+  where+  rnf CancelServicePipelineDeploymentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf pipeline
+ gen/Amazonka/Proton/CreateComponent.hs view
@@ -0,0 +1,352 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateComponent+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create an Proton component. A component is an infrastructure extension+-- for a service instance.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.CreateComponent+  ( -- * Creating a Request+    CreateComponent (..),+    newCreateComponent,++    -- * Request Lenses+    createComponent_description,+    createComponent_environmentName,+    createComponent_serviceInstanceName,+    createComponent_serviceName,+    createComponent_serviceSpec,+    createComponent_tags,+    createComponent_manifest,+    createComponent_name,+    createComponent_templateFile,++    -- * Destructuring the Response+    CreateComponentResponse (..),+    newCreateComponentResponse,++    -- * Response Lenses+    createComponentResponse_httpStatus,+    createComponentResponse_component,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateComponent' smart constructor.+data CreateComponent = CreateComponent'+  { -- | An optional customer-provided description of the component.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the Proton environment that you want to associate this+    -- component with. You must specify this when you don\'t specify+    -- @serviceInstanceName@ and @serviceName@.+    environmentName :: Prelude.Maybe Prelude.Text,+    -- | The name of the service instance that you want to attach this component+    -- to. If you don\'t specify this, the component isn\'t attached to any+    -- service instance. Specify both @serviceInstanceName@ and @serviceName@+    -- or neither of them.+    serviceInstanceName :: Prelude.Maybe Prelude.Text,+    -- | The name of the service that @serviceInstanceName@ is associated with.+    -- If you don\'t specify this, the component isn\'t attached to any service+    -- instance. Specify both @serviceInstanceName@ and @serviceName@ or+    -- neither of them.+    serviceName :: Prelude.Maybe Prelude.Text,+    -- | The service spec that you want the component to use to access service+    -- inputs. Set this only when you attach the component to a service+    -- instance.+    serviceSpec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | An optional list of metadata items that you can associate with the+    -- Proton component. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | A path to a manifest file that lists the Infrastructure as Code (IaC)+    -- file, template language, and rendering engine for infrastructure that a+    -- custom component provisions.+    manifest :: Data.Sensitive Prelude.Text,+    -- | The customer-provided name of the component.+    name :: Prelude.Text,+    -- | A path to the Infrastructure as Code (IaC) file describing+    -- infrastructure that a custom component provisions.+    --+    -- Components support a single IaC file, even if you use Terraform as your+    -- template language.+    templateFile :: Data.Sensitive Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateComponent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createComponent_description' - An optional customer-provided description of the component.+--+-- 'environmentName', 'createComponent_environmentName' - The name of the Proton environment that you want to associate this+-- component with. You must specify this when you don\'t specify+-- @serviceInstanceName@ and @serviceName@.+--+-- 'serviceInstanceName', 'createComponent_serviceInstanceName' - The name of the service instance that you want to attach this component+-- to. If you don\'t specify this, the component isn\'t attached to any+-- service instance. Specify both @serviceInstanceName@ and @serviceName@+-- or neither of them.+--+-- 'serviceName', 'createComponent_serviceName' - The name of the service that @serviceInstanceName@ is associated with.+-- If you don\'t specify this, the component isn\'t attached to any service+-- instance. Specify both @serviceInstanceName@ and @serviceName@ or+-- neither of them.+--+-- 'serviceSpec', 'createComponent_serviceSpec' - The service spec that you want the component to use to access service+-- inputs. Set this only when you attach the component to a service+-- instance.+--+-- 'tags', 'createComponent_tags' - An optional list of metadata items that you can associate with the+-- Proton component. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'manifest', 'createComponent_manifest' - A path to a manifest file that lists the Infrastructure as Code (IaC)+-- file, template language, and rendering engine for infrastructure that a+-- custom component provisions.+--+-- 'name', 'createComponent_name' - The customer-provided name of the component.+--+-- 'templateFile', 'createComponent_templateFile' - A path to the Infrastructure as Code (IaC) file describing+-- infrastructure that a custom component provisions.+--+-- Components support a single IaC file, even if you use Terraform as your+-- template language.+newCreateComponent ::+  -- | 'manifest'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'templateFile'+  Prelude.Text ->+  CreateComponent+newCreateComponent pManifest_ pName_ pTemplateFile_ =+  CreateComponent'+    { description = Prelude.Nothing,+      environmentName = Prelude.Nothing,+      serviceInstanceName = Prelude.Nothing,+      serviceName = Prelude.Nothing,+      serviceSpec = Prelude.Nothing,+      tags = Prelude.Nothing,+      manifest = Data._Sensitive Lens.# pManifest_,+      name = pName_,+      templateFile = Data._Sensitive Lens.# pTemplateFile_+    }++-- | An optional customer-provided description of the component.+createComponent_description :: Lens.Lens' CreateComponent (Prelude.Maybe Prelude.Text)+createComponent_description = Lens.lens (\CreateComponent' {description} -> description) (\s@CreateComponent' {} a -> s {description = a} :: CreateComponent) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the Proton environment that you want to associate this+-- component with. You must specify this when you don\'t specify+-- @serviceInstanceName@ and @serviceName@.+createComponent_environmentName :: Lens.Lens' CreateComponent (Prelude.Maybe Prelude.Text)+createComponent_environmentName = Lens.lens (\CreateComponent' {environmentName} -> environmentName) (\s@CreateComponent' {} a -> s {environmentName = a} :: CreateComponent)++-- | The name of the service instance that you want to attach this component+-- to. If you don\'t specify this, the component isn\'t attached to any+-- service instance. Specify both @serviceInstanceName@ and @serviceName@+-- or neither of them.+createComponent_serviceInstanceName :: Lens.Lens' CreateComponent (Prelude.Maybe Prelude.Text)+createComponent_serviceInstanceName = Lens.lens (\CreateComponent' {serviceInstanceName} -> serviceInstanceName) (\s@CreateComponent' {} a -> s {serviceInstanceName = a} :: CreateComponent)++-- | The name of the service that @serviceInstanceName@ is associated with.+-- If you don\'t specify this, the component isn\'t attached to any service+-- instance. Specify both @serviceInstanceName@ and @serviceName@ or+-- neither of them.+createComponent_serviceName :: Lens.Lens' CreateComponent (Prelude.Maybe Prelude.Text)+createComponent_serviceName = Lens.lens (\CreateComponent' {serviceName} -> serviceName) (\s@CreateComponent' {} a -> s {serviceName = a} :: CreateComponent)++-- | The service spec that you want the component to use to access service+-- inputs. Set this only when you attach the component to a service+-- instance.+createComponent_serviceSpec :: Lens.Lens' CreateComponent (Prelude.Maybe Prelude.Text)+createComponent_serviceSpec = Lens.lens (\CreateComponent' {serviceSpec} -> serviceSpec) (\s@CreateComponent' {} a -> s {serviceSpec = a} :: CreateComponent) Prelude.. Lens.mapping Data._Sensitive++-- | An optional list of metadata items that you can associate with the+-- Proton component. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createComponent_tags :: Lens.Lens' CreateComponent (Prelude.Maybe [Tag])+createComponent_tags = Lens.lens (\CreateComponent' {tags} -> tags) (\s@CreateComponent' {} a -> s {tags = a} :: CreateComponent) Prelude.. Lens.mapping Lens.coerced++-- | A path to a manifest file that lists the Infrastructure as Code (IaC)+-- file, template language, and rendering engine for infrastructure that a+-- custom component provisions.+createComponent_manifest :: Lens.Lens' CreateComponent Prelude.Text+createComponent_manifest = Lens.lens (\CreateComponent' {manifest} -> manifest) (\s@CreateComponent' {} a -> s {manifest = a} :: CreateComponent) Prelude.. Data._Sensitive++-- | The customer-provided name of the component.+createComponent_name :: Lens.Lens' CreateComponent Prelude.Text+createComponent_name = Lens.lens (\CreateComponent' {name} -> name) (\s@CreateComponent' {} a -> s {name = a} :: CreateComponent)++-- | A path to the Infrastructure as Code (IaC) file describing+-- infrastructure that a custom component provisions.+--+-- Components support a single IaC file, even if you use Terraform as your+-- template language.+createComponent_templateFile :: Lens.Lens' CreateComponent Prelude.Text+createComponent_templateFile = Lens.lens (\CreateComponent' {templateFile} -> templateFile) (\s@CreateComponent' {} a -> s {templateFile = a} :: CreateComponent) Prelude.. Data._Sensitive++instance Core.AWSRequest CreateComponent where+  type+    AWSResponse CreateComponent =+      CreateComponentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateComponentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "component")+      )++instance Prelude.Hashable CreateComponent where+  hashWithSalt _salt CreateComponent' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` serviceInstanceName+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` serviceSpec+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` manifest+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` templateFile++instance Prelude.NFData CreateComponent where+  rnf CreateComponent' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf serviceSpec+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf manifest+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf templateFile++instance Data.ToHeaders CreateComponent where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateComponent" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateComponent where+  toJSON CreateComponent' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("environmentName" Data..=)+              Prelude.<$> environmentName,+            ("serviceInstanceName" Data..=)+              Prelude.<$> serviceInstanceName,+            ("serviceName" Data..=) Prelude.<$> serviceName,+            ("serviceSpec" Data..=) Prelude.<$> serviceSpec,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("manifest" Data..= manifest),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("templateFile" Data..= templateFile)+          ]+      )++instance Data.ToPath CreateComponent where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateComponent where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateComponentResponse' smart constructor.+data CreateComponentResponse = CreateComponentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the created component.+    component :: Component+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateComponentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createComponentResponse_httpStatus' - The response's http status code.+--+-- 'component', 'createComponentResponse_component' - The detailed data of the created component.+newCreateComponentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'component'+  Component ->+  CreateComponentResponse+newCreateComponentResponse pHttpStatus_ pComponent_ =+  CreateComponentResponse'+    { httpStatus = pHttpStatus_,+      component = pComponent_+    }++-- | The response's http status code.+createComponentResponse_httpStatus :: Lens.Lens' CreateComponentResponse Prelude.Int+createComponentResponse_httpStatus = Lens.lens (\CreateComponentResponse' {httpStatus} -> httpStatus) (\s@CreateComponentResponse' {} a -> s {httpStatus = a} :: CreateComponentResponse)++-- | The detailed data of the created component.+createComponentResponse_component :: Lens.Lens' CreateComponentResponse Component+createComponentResponse_component = Lens.lens (\CreateComponentResponse' {component} -> component) (\s@CreateComponentResponse' {} a -> s {component = a} :: CreateComponentResponse)++instance Prelude.NFData CreateComponentResponse where+  rnf CreateComponentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf component
+ gen/Amazonka/Proton/CreateEnvironment.hs view
@@ -0,0 +1,498 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateEnvironment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deploy a new environment. An Proton environment is created from an+-- environment template that defines infrastructure and resources that can+-- be shared across services.+--+-- __You can provision environments using the following methods:__+--+-- -   Amazon Web Services-managed provisioning: Proton makes direct calls+--     to provision your resources.+--+-- -   Self-managed provisioning: Proton makes pull requests on your+--     repository to provide compiled infrastructure as code (IaC) files+--     that your IaC engine uses to provision resources.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-environments.html Environments>+-- and+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html Provisioning methods>+-- in the /Proton User Guide/.+module Amazonka.Proton.CreateEnvironment+  ( -- * Creating a Request+    CreateEnvironment (..),+    newCreateEnvironment,++    -- * Request Lenses+    createEnvironment_codebuildRoleArn,+    createEnvironment_componentRoleArn,+    createEnvironment_description,+    createEnvironment_environmentAccountConnectionId,+    createEnvironment_protonServiceRoleArn,+    createEnvironment_provisioningRepository,+    createEnvironment_tags,+    createEnvironment_templateMinorVersion,+    createEnvironment_name,+    createEnvironment_spec,+    createEnvironment_templateMajorVersion,+    createEnvironment_templateName,++    -- * Destructuring the Response+    CreateEnvironmentResponse (..),+    newCreateEnvironmentResponse,++    -- * Response Lenses+    createEnvironmentResponse_httpStatus,+    createEnvironmentResponse_environment,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateEnvironment' smart constructor.+data CreateEnvironment = CreateEnvironment'+  { -- | The Amazon Resource Name (ARN) of the IAM service role that allows+    -- Proton to provision infrastructure using CodeBuild-based provisioning on+    -- your behalf.+    --+    -- To use CodeBuild-based provisioning for the environment or for any+    -- service instance running in the environment, specify either the+    -- @environmentAccountConnectionId@ or @codebuildRoleArn@ parameter.+    codebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in this environment. It+    -- determines the scope of infrastructure that a component can provision.+    --+    -- You must specify @componentRoleArn@ to allow directly defined components+    -- to be associated with this environment.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | A description of the environment that\'s being created and deployed.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The ID of the environment account connection that you provide if you\'re+    -- provisioning your environment infrastructure resources to an environment+    -- account. For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+    -- in the /Proton User guide/.+    --+    -- To use Amazon Web Services-managed provisioning for the environment,+    -- specify either the @environmentAccountConnectionId@ or+    -- @protonServiceRoleArn@ parameter and omit the @provisioningRepository@+    -- parameter.+    environmentAccountConnectionId :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the Proton service role that allows+    -- Proton to make calls to other services on your behalf.+    --+    -- To use Amazon Web Services-managed provisioning for the environment,+    -- specify either the @environmentAccountConnectionId@ or+    -- @protonServiceRoleArn@ parameter and omit the @provisioningRepository@+    -- parameter.+    protonServiceRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The linked repository that you use to host your rendered infrastructure+    -- templates for self-managed provisioning. A linked repository is a+    -- repository that has been registered with Proton. For more information,+    -- see CreateRepository.+    --+    -- To use self-managed provisioning for the environment, specify this+    -- parameter and omit the @environmentAccountConnectionId@ and+    -- @protonServiceRoleArn@ parameters.+    provisioningRepository :: Prelude.Maybe RepositoryBranchInput,+    -- | An optional list of metadata items that you can associate with the+    -- Proton environment. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | The minor version of the environment template.+    templateMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The name of the environment.+    name :: Prelude.Text,+    -- | A YAML formatted string that provides inputs as defined in the+    -- environment template bundle schema file. For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-environments.html Environments>+    -- in the /Proton User Guide/.+    spec :: Data.Sensitive Prelude.Text,+    -- | The major version of the environment template.+    templateMajorVersion :: Prelude.Text,+    -- | The name of the environment template. For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-templates.html Environment Templates>+    -- in the /Proton User Guide/.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'codebuildRoleArn', 'createEnvironment_codebuildRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that allows+-- Proton to provision infrastructure using CodeBuild-based provisioning on+-- your behalf.+--+-- To use CodeBuild-based provisioning for the environment or for any+-- service instance running in the environment, specify either the+-- @environmentAccountConnectionId@ or @codebuildRoleArn@ parameter.+--+-- 'componentRoleArn', 'createEnvironment_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- You must specify @componentRoleArn@ to allow directly defined components+-- to be associated with this environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'description', 'createEnvironment_description' - A description of the environment that\'s being created and deployed.+--+-- 'environmentAccountConnectionId', 'createEnvironment_environmentAccountConnectionId' - The ID of the environment account connection that you provide if you\'re+-- provisioning your environment infrastructure resources to an environment+-- account. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+--+-- To use Amazon Web Services-managed provisioning for the environment,+-- specify either the @environmentAccountConnectionId@ or+-- @protonServiceRoleArn@ parameter and omit the @provisioningRepository@+-- parameter.+--+-- 'protonServiceRoleArn', 'createEnvironment_protonServiceRoleArn' - The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make calls to other services on your behalf.+--+-- To use Amazon Web Services-managed provisioning for the environment,+-- specify either the @environmentAccountConnectionId@ or+-- @protonServiceRoleArn@ parameter and omit the @provisioningRepository@+-- parameter.+--+-- 'provisioningRepository', 'createEnvironment_provisioningRepository' - The linked repository that you use to host your rendered infrastructure+-- templates for self-managed provisioning. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+--+-- To use self-managed provisioning for the environment, specify this+-- parameter and omit the @environmentAccountConnectionId@ and+-- @protonServiceRoleArn@ parameters.+--+-- 'tags', 'createEnvironment_tags' - An optional list of metadata items that you can associate with the+-- Proton environment. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'templateMinorVersion', 'createEnvironment_templateMinorVersion' - The minor version of the environment template.+--+-- 'name', 'createEnvironment_name' - The name of the environment.+--+-- 'spec', 'createEnvironment_spec' - A YAML formatted string that provides inputs as defined in the+-- environment template bundle schema file. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-environments.html Environments>+-- in the /Proton User Guide/.+--+-- 'templateMajorVersion', 'createEnvironment_templateMajorVersion' - The major version of the environment template.+--+-- 'templateName', 'createEnvironment_templateName' - The name of the environment template. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-templates.html Environment Templates>+-- in the /Proton User Guide/.+newCreateEnvironment ::+  -- | 'name'+  Prelude.Text ->+  -- | 'spec'+  Prelude.Text ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  CreateEnvironment+newCreateEnvironment+  pName_+  pSpec_+  pTemplateMajorVersion_+  pTemplateName_ =+    CreateEnvironment'+      { codebuildRoleArn =+          Prelude.Nothing,+        componentRoleArn = Prelude.Nothing,+        description = Prelude.Nothing,+        environmentAccountConnectionId = Prelude.Nothing,+        protonServiceRoleArn = Prelude.Nothing,+        provisioningRepository = Prelude.Nothing,+        tags = Prelude.Nothing,+        templateMinorVersion = Prelude.Nothing,+        name = pName_,+        spec = Data._Sensitive Lens.# pSpec_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateName = pTemplateName_+      }++-- | The Amazon Resource Name (ARN) of the IAM service role that allows+-- Proton to provision infrastructure using CodeBuild-based provisioning on+-- your behalf.+--+-- To use CodeBuild-based provisioning for the environment or for any+-- service instance running in the environment, specify either the+-- @environmentAccountConnectionId@ or @codebuildRoleArn@ parameter.+createEnvironment_codebuildRoleArn :: Lens.Lens' CreateEnvironment (Prelude.Maybe Prelude.Text)+createEnvironment_codebuildRoleArn = Lens.lens (\CreateEnvironment' {codebuildRoleArn} -> codebuildRoleArn) (\s@CreateEnvironment' {} a -> s {codebuildRoleArn = a} :: CreateEnvironment)++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- You must specify @componentRoleArn@ to allow directly defined components+-- to be associated with this environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+createEnvironment_componentRoleArn :: Lens.Lens' CreateEnvironment (Prelude.Maybe Prelude.Text)+createEnvironment_componentRoleArn = Lens.lens (\CreateEnvironment' {componentRoleArn} -> componentRoleArn) (\s@CreateEnvironment' {} a -> s {componentRoleArn = a} :: CreateEnvironment)++-- | A description of the environment that\'s being created and deployed.+createEnvironment_description :: Lens.Lens' CreateEnvironment (Prelude.Maybe Prelude.Text)+createEnvironment_description = Lens.lens (\CreateEnvironment' {description} -> description) (\s@CreateEnvironment' {} a -> s {description = a} :: CreateEnvironment) Prelude.. Lens.mapping Data._Sensitive++-- | The ID of the environment account connection that you provide if you\'re+-- provisioning your environment infrastructure resources to an environment+-- account. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+--+-- To use Amazon Web Services-managed provisioning for the environment,+-- specify either the @environmentAccountConnectionId@ or+-- @protonServiceRoleArn@ parameter and omit the @provisioningRepository@+-- parameter.+createEnvironment_environmentAccountConnectionId :: Lens.Lens' CreateEnvironment (Prelude.Maybe Prelude.Text)+createEnvironment_environmentAccountConnectionId = Lens.lens (\CreateEnvironment' {environmentAccountConnectionId} -> environmentAccountConnectionId) (\s@CreateEnvironment' {} a -> s {environmentAccountConnectionId = a} :: CreateEnvironment)++-- | The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make calls to other services on your behalf.+--+-- To use Amazon Web Services-managed provisioning for the environment,+-- specify either the @environmentAccountConnectionId@ or+-- @protonServiceRoleArn@ parameter and omit the @provisioningRepository@+-- parameter.+createEnvironment_protonServiceRoleArn :: Lens.Lens' CreateEnvironment (Prelude.Maybe Prelude.Text)+createEnvironment_protonServiceRoleArn = Lens.lens (\CreateEnvironment' {protonServiceRoleArn} -> protonServiceRoleArn) (\s@CreateEnvironment' {} a -> s {protonServiceRoleArn = a} :: CreateEnvironment)++-- | The linked repository that you use to host your rendered infrastructure+-- templates for self-managed provisioning. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+--+-- To use self-managed provisioning for the environment, specify this+-- parameter and omit the @environmentAccountConnectionId@ and+-- @protonServiceRoleArn@ parameters.+createEnvironment_provisioningRepository :: Lens.Lens' CreateEnvironment (Prelude.Maybe RepositoryBranchInput)+createEnvironment_provisioningRepository = Lens.lens (\CreateEnvironment' {provisioningRepository} -> provisioningRepository) (\s@CreateEnvironment' {} a -> s {provisioningRepository = a} :: CreateEnvironment)++-- | An optional list of metadata items that you can associate with the+-- Proton environment. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createEnvironment_tags :: Lens.Lens' CreateEnvironment (Prelude.Maybe [Tag])+createEnvironment_tags = Lens.lens (\CreateEnvironment' {tags} -> tags) (\s@CreateEnvironment' {} a -> s {tags = a} :: CreateEnvironment) Prelude.. Lens.mapping Lens.coerced++-- | The minor version of the environment template.+createEnvironment_templateMinorVersion :: Lens.Lens' CreateEnvironment (Prelude.Maybe Prelude.Text)+createEnvironment_templateMinorVersion = Lens.lens (\CreateEnvironment' {templateMinorVersion} -> templateMinorVersion) (\s@CreateEnvironment' {} a -> s {templateMinorVersion = a} :: CreateEnvironment)++-- | The name of the environment.+createEnvironment_name :: Lens.Lens' CreateEnvironment Prelude.Text+createEnvironment_name = Lens.lens (\CreateEnvironment' {name} -> name) (\s@CreateEnvironment' {} a -> s {name = a} :: CreateEnvironment)++-- | A YAML formatted string that provides inputs as defined in the+-- environment template bundle schema file. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-environments.html Environments>+-- in the /Proton User Guide/.+createEnvironment_spec :: Lens.Lens' CreateEnvironment Prelude.Text+createEnvironment_spec = Lens.lens (\CreateEnvironment' {spec} -> spec) (\s@CreateEnvironment' {} a -> s {spec = a} :: CreateEnvironment) Prelude.. Data._Sensitive++-- | The major version of the environment template.+createEnvironment_templateMajorVersion :: Lens.Lens' CreateEnvironment Prelude.Text+createEnvironment_templateMajorVersion = Lens.lens (\CreateEnvironment' {templateMajorVersion} -> templateMajorVersion) (\s@CreateEnvironment' {} a -> s {templateMajorVersion = a} :: CreateEnvironment)++-- | The name of the environment template. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-templates.html Environment Templates>+-- in the /Proton User Guide/.+createEnvironment_templateName :: Lens.Lens' CreateEnvironment Prelude.Text+createEnvironment_templateName = Lens.lens (\CreateEnvironment' {templateName} -> templateName) (\s@CreateEnvironment' {} a -> s {templateName = a} :: CreateEnvironment)++instance Core.AWSRequest CreateEnvironment where+  type+    AWSResponse CreateEnvironment =+      CreateEnvironmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateEnvironmentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environment")+      )++instance Prelude.Hashable CreateEnvironment where+  hashWithSalt _salt CreateEnvironment' {..} =+    _salt+      `Prelude.hashWithSalt` codebuildRoleArn+      `Prelude.hashWithSalt` componentRoleArn+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` environmentAccountConnectionId+      `Prelude.hashWithSalt` protonServiceRoleArn+      `Prelude.hashWithSalt` provisioningRepository+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData CreateEnvironment where+  rnf CreateEnvironment' {..} =+    Prelude.rnf codebuildRoleArn+      `Prelude.seq` Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf environmentAccountConnectionId+      `Prelude.seq` Prelude.rnf protonServiceRoleArn+      `Prelude.seq` Prelude.rnf provisioningRepository+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders CreateEnvironment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateEnvironment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateEnvironment where+  toJSON CreateEnvironment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("codebuildRoleArn" Data..=)+              Prelude.<$> codebuildRoleArn,+            ("componentRoleArn" Data..=)+              Prelude.<$> componentRoleArn,+            ("description" Data..=) Prelude.<$> description,+            ("environmentAccountConnectionId" Data..=)+              Prelude.<$> environmentAccountConnectionId,+            ("protonServiceRoleArn" Data..=)+              Prelude.<$> protonServiceRoleArn,+            ("provisioningRepository" Data..=)+              Prelude.<$> provisioningRepository,+            ("tags" Data..=) Prelude.<$> tags,+            ("templateMinorVersion" Data..=)+              Prelude.<$> templateMinorVersion,+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("spec" Data..= spec),+            Prelude.Just+              ( "templateMajorVersion"+                  Data..= templateMajorVersion+              ),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath CreateEnvironment where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateEnvironment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateEnvironmentResponse' smart constructor.+data CreateEnvironmentResponse = CreateEnvironmentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment detail data that\'s returned by Proton.+    environment :: Environment+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createEnvironmentResponse_httpStatus' - The response's http status code.+--+-- 'environment', 'createEnvironmentResponse_environment' - The environment detail data that\'s returned by Proton.+newCreateEnvironmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environment'+  Environment ->+  CreateEnvironmentResponse+newCreateEnvironmentResponse+  pHttpStatus_+  pEnvironment_ =+    CreateEnvironmentResponse'+      { httpStatus =+          pHttpStatus_,+        environment = pEnvironment_+      }++-- | The response's http status code.+createEnvironmentResponse_httpStatus :: Lens.Lens' CreateEnvironmentResponse Prelude.Int+createEnvironmentResponse_httpStatus = Lens.lens (\CreateEnvironmentResponse' {httpStatus} -> httpStatus) (\s@CreateEnvironmentResponse' {} a -> s {httpStatus = a} :: CreateEnvironmentResponse)++-- | The environment detail data that\'s returned by Proton.+createEnvironmentResponse_environment :: Lens.Lens' CreateEnvironmentResponse Environment+createEnvironmentResponse_environment = Lens.lens (\CreateEnvironmentResponse' {environment} -> environment) (\s@CreateEnvironmentResponse' {} a -> s {environment = a} :: CreateEnvironmentResponse)++instance Prelude.NFData CreateEnvironmentResponse where+  rnf CreateEnvironmentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environment
+ gen/Amazonka/Proton/CreateEnvironmentAccountConnection.hs view
@@ -0,0 +1,387 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateEnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create an environment account connection in an environment account so+-- that environment infrastructure resources can be provisioned in the+-- environment account from a management account.+--+-- An environment account connection is a secure bi-directional connection+-- between a /management account/ and an /environment account/ that+-- maintains authorization and permissions. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+module Amazonka.Proton.CreateEnvironmentAccountConnection+  ( -- * Creating a Request+    CreateEnvironmentAccountConnection (..),+    newCreateEnvironmentAccountConnection,++    -- * Request Lenses+    createEnvironmentAccountConnection_clientToken,+    createEnvironmentAccountConnection_codebuildRoleArn,+    createEnvironmentAccountConnection_componentRoleArn,+    createEnvironmentAccountConnection_roleArn,+    createEnvironmentAccountConnection_tags,+    createEnvironmentAccountConnection_environmentName,+    createEnvironmentAccountConnection_managementAccountId,++    -- * Destructuring the Response+    CreateEnvironmentAccountConnectionResponse (..),+    newCreateEnvironmentAccountConnectionResponse,++    -- * Response Lenses+    createEnvironmentAccountConnectionResponse_httpStatus,+    createEnvironmentAccountConnectionResponse_environmentAccountConnection,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateEnvironmentAccountConnection' smart constructor.+data CreateEnvironmentAccountConnection = CreateEnvironmentAccountConnection'+  { -- | When included, if two identical requests are made with the same client+    -- token, Proton returns the environment account connection that the first+    -- request created.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of an IAM service role in the environment+    -- account. Proton uses this role to provision infrastructure resources+    -- using CodeBuild-based provisioning in the associated environment+    -- account.+    codebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in the associated+    -- environment account. It determines the scope of infrastructure that a+    -- component can provision in the account.+    --+    -- You must specify @componentRoleArn@ to allow directly defined components+    -- to be associated with any environments running in this account.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that\'s created+    -- in the environment account. Proton uses this role to provision+    -- infrastructure resources in the associated environment account.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | An optional list of metadata items that you can associate with the+    -- Proton environment account connection. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the Proton environment that\'s created in the associated+    -- management account.+    environmentName :: Prelude.Text,+    -- | The ID of the management account that accepts or rejects the environment+    -- account connection. You create and manage the Proton environment in this+    -- account. If the management account accepts the environment account+    -- connection, Proton can use the associated IAM role to provision+    -- environment infrastructure resources in the associated environment+    -- account.+    managementAccountId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientToken', 'createEnvironmentAccountConnection_clientToken' - When included, if two identical requests are made with the same client+-- token, Proton returns the environment account connection that the first+-- request created.+--+-- 'codebuildRoleArn', 'createEnvironmentAccountConnection_codebuildRoleArn' - The Amazon Resource Name (ARN) of an IAM service role in the environment+-- account. Proton uses this role to provision infrastructure resources+-- using CodeBuild-based provisioning in the associated environment+-- account.+--+-- 'componentRoleArn', 'createEnvironmentAccountConnection_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- You must specify @componentRoleArn@ to allow directly defined components+-- to be associated with any environments running in this account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'roleArn', 'createEnvironmentAccountConnection_roleArn' - The Amazon Resource Name (ARN) of the IAM service role that\'s created+-- in the environment account. Proton uses this role to provision+-- infrastructure resources in the associated environment account.+--+-- 'tags', 'createEnvironmentAccountConnection_tags' - An optional list of metadata items that you can associate with the+-- Proton environment account connection. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'environmentName', 'createEnvironmentAccountConnection_environmentName' - The name of the Proton environment that\'s created in the associated+-- management account.+--+-- 'managementAccountId', 'createEnvironmentAccountConnection_managementAccountId' - The ID of the management account that accepts or rejects the environment+-- account connection. You create and manage the Proton environment in this+-- account. If the management account accepts the environment account+-- connection, Proton can use the associated IAM role to provision+-- environment infrastructure resources in the associated environment+-- account.+newCreateEnvironmentAccountConnection ::+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'managementAccountId'+  Prelude.Text ->+  CreateEnvironmentAccountConnection+newCreateEnvironmentAccountConnection+  pEnvironmentName_+  pManagementAccountId_ =+    CreateEnvironmentAccountConnection'+      { clientToken =+          Prelude.Nothing,+        codebuildRoleArn = Prelude.Nothing,+        componentRoleArn = Prelude.Nothing,+        roleArn = Prelude.Nothing,+        tags = Prelude.Nothing,+        environmentName = pEnvironmentName_,+        managementAccountId =+          pManagementAccountId_+      }++-- | When included, if two identical requests are made with the same client+-- token, Proton returns the environment account connection that the first+-- request created.+createEnvironmentAccountConnection_clientToken :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+createEnvironmentAccountConnection_clientToken = Lens.lens (\CreateEnvironmentAccountConnection' {clientToken} -> clientToken) (\s@CreateEnvironmentAccountConnection' {} a -> s {clientToken = a} :: CreateEnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of an IAM service role in the environment+-- account. Proton uses this role to provision infrastructure resources+-- using CodeBuild-based provisioning in the associated environment+-- account.+createEnvironmentAccountConnection_codebuildRoleArn :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+createEnvironmentAccountConnection_codebuildRoleArn = Lens.lens (\CreateEnvironmentAccountConnection' {codebuildRoleArn} -> codebuildRoleArn) (\s@CreateEnvironmentAccountConnection' {} a -> s {codebuildRoleArn = a} :: CreateEnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- You must specify @componentRoleArn@ to allow directly defined components+-- to be associated with any environments running in this account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+createEnvironmentAccountConnection_componentRoleArn :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+createEnvironmentAccountConnection_componentRoleArn = Lens.lens (\CreateEnvironmentAccountConnection' {componentRoleArn} -> componentRoleArn) (\s@CreateEnvironmentAccountConnection' {} a -> s {componentRoleArn = a} :: CreateEnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of the IAM service role that\'s created+-- in the environment account. Proton uses this role to provision+-- infrastructure resources in the associated environment account.+createEnvironmentAccountConnection_roleArn :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+createEnvironmentAccountConnection_roleArn = Lens.lens (\CreateEnvironmentAccountConnection' {roleArn} -> roleArn) (\s@CreateEnvironmentAccountConnection' {} a -> s {roleArn = a} :: CreateEnvironmentAccountConnection)++-- | An optional list of metadata items that you can associate with the+-- Proton environment account connection. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createEnvironmentAccountConnection_tags :: Lens.Lens' CreateEnvironmentAccountConnection (Prelude.Maybe [Tag])+createEnvironmentAccountConnection_tags = Lens.lens (\CreateEnvironmentAccountConnection' {tags} -> tags) (\s@CreateEnvironmentAccountConnection' {} a -> s {tags = a} :: CreateEnvironmentAccountConnection) Prelude.. Lens.mapping Lens.coerced++-- | The name of the Proton environment that\'s created in the associated+-- management account.+createEnvironmentAccountConnection_environmentName :: Lens.Lens' CreateEnvironmentAccountConnection Prelude.Text+createEnvironmentAccountConnection_environmentName = Lens.lens (\CreateEnvironmentAccountConnection' {environmentName} -> environmentName) (\s@CreateEnvironmentAccountConnection' {} a -> s {environmentName = a} :: CreateEnvironmentAccountConnection)++-- | The ID of the management account that accepts or rejects the environment+-- account connection. You create and manage the Proton environment in this+-- account. If the management account accepts the environment account+-- connection, Proton can use the associated IAM role to provision+-- environment infrastructure resources in the associated environment+-- account.+createEnvironmentAccountConnection_managementAccountId :: Lens.Lens' CreateEnvironmentAccountConnection Prelude.Text+createEnvironmentAccountConnection_managementAccountId = Lens.lens (\CreateEnvironmentAccountConnection' {managementAccountId} -> managementAccountId) (\s@CreateEnvironmentAccountConnection' {} a -> s {managementAccountId = a} :: CreateEnvironmentAccountConnection)++instance+  Core.AWSRequest+    CreateEnvironmentAccountConnection+  where+  type+    AWSResponse CreateEnvironmentAccountConnection =+      CreateEnvironmentAccountConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateEnvironmentAccountConnectionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentAccountConnection")+      )++instance+  Prelude.Hashable+    CreateEnvironmentAccountConnection+  where+  hashWithSalt+    _salt+    CreateEnvironmentAccountConnection' {..} =+      _salt+        `Prelude.hashWithSalt` clientToken+        `Prelude.hashWithSalt` codebuildRoleArn+        `Prelude.hashWithSalt` componentRoleArn+        `Prelude.hashWithSalt` roleArn+        `Prelude.hashWithSalt` tags+        `Prelude.hashWithSalt` environmentName+        `Prelude.hashWithSalt` managementAccountId++instance+  Prelude.NFData+    CreateEnvironmentAccountConnection+  where+  rnf CreateEnvironmentAccountConnection' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf codebuildRoleArn+      `Prelude.seq` Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf managementAccountId++instance+  Data.ToHeaders+    CreateEnvironmentAccountConnection+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateEnvironmentAccountConnection" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    CreateEnvironmentAccountConnection+  where+  toJSON CreateEnvironmentAccountConnection' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("clientToken" Data..=) Prelude.<$> clientToken,+            ("codebuildRoleArn" Data..=)+              Prelude.<$> codebuildRoleArn,+            ("componentRoleArn" Data..=)+              Prelude.<$> componentRoleArn,+            ("roleArn" Data..=) Prelude.<$> roleArn,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ("environmentName" Data..= environmentName),+            Prelude.Just+              ("managementAccountId" Data..= managementAccountId)+          ]+      )++instance+  Data.ToPath+    CreateEnvironmentAccountConnection+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    CreateEnvironmentAccountConnection+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateEnvironmentAccountConnectionResponse' smart constructor.+data CreateEnvironmentAccountConnectionResponse = CreateEnvironmentAccountConnectionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment account connection detail data that\'s returned by+    -- Proton.+    environmentAccountConnection :: EnvironmentAccountConnection+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentAccountConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createEnvironmentAccountConnectionResponse_httpStatus' - The response's http status code.+--+-- 'environmentAccountConnection', 'createEnvironmentAccountConnectionResponse_environmentAccountConnection' - The environment account connection detail data that\'s returned by+-- Proton.+newCreateEnvironmentAccountConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentAccountConnection'+  EnvironmentAccountConnection ->+  CreateEnvironmentAccountConnectionResponse+newCreateEnvironmentAccountConnectionResponse+  pHttpStatus_+  pEnvironmentAccountConnection_ =+    CreateEnvironmentAccountConnectionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentAccountConnection =+          pEnvironmentAccountConnection_+      }++-- | The response's http status code.+createEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' CreateEnvironmentAccountConnectionResponse Prelude.Int+createEnvironmentAccountConnectionResponse_httpStatus = Lens.lens (\CreateEnvironmentAccountConnectionResponse' {httpStatus} -> httpStatus) (\s@CreateEnvironmentAccountConnectionResponse' {} a -> s {httpStatus = a} :: CreateEnvironmentAccountConnectionResponse)++-- | The environment account connection detail data that\'s returned by+-- Proton.+createEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' CreateEnvironmentAccountConnectionResponse EnvironmentAccountConnection+createEnvironmentAccountConnectionResponse_environmentAccountConnection = Lens.lens (\CreateEnvironmentAccountConnectionResponse' {environmentAccountConnection} -> environmentAccountConnection) (\s@CreateEnvironmentAccountConnectionResponse' {} a -> s {environmentAccountConnection = a} :: CreateEnvironmentAccountConnectionResponse)++instance+  Prelude.NFData+    CreateEnvironmentAccountConnectionResponse+  where+  rnf CreateEnvironmentAccountConnectionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentAccountConnection
+ gen/Amazonka/Proton/CreateEnvironmentTemplate.hs view
@@ -0,0 +1,282 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateEnvironmentTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create an environment template for Proton. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-templates.html Environment Templates>+-- in the /Proton User Guide/.+--+-- You can create an environment template in one of the two following ways:+--+-- -   Register and publish a /standard/ environment template that+--     instructs Proton to deploy and manage environment infrastructure.+--+-- -   Register and publish a /customer managed/ environment template that+--     connects Proton to your existing provisioned infrastructure that you+--     manage. Proton /doesn\'t/ manage your existing provisioned+--     infrastructure. To create an environment template for customer+--     provisioned and managed infrastructure, include the @provisioning@+--     parameter and set the value to @CUSTOMER_MANAGED@. For more+--     information, see+--     <https://docs.aws.amazon.com/proton/latest/userguide/template-create.html Register and publish an environment template>+--     in the /Proton User Guide/.+module Amazonka.Proton.CreateEnvironmentTemplate+  ( -- * Creating a Request+    CreateEnvironmentTemplate (..),+    newCreateEnvironmentTemplate,++    -- * Request Lenses+    createEnvironmentTemplate_description,+    createEnvironmentTemplate_displayName,+    createEnvironmentTemplate_encryptionKey,+    createEnvironmentTemplate_provisioning,+    createEnvironmentTemplate_tags,+    createEnvironmentTemplate_name,++    -- * Destructuring the Response+    CreateEnvironmentTemplateResponse (..),+    newCreateEnvironmentTemplateResponse,++    -- * Response Lenses+    createEnvironmentTemplateResponse_httpStatus,+    createEnvironmentTemplateResponse_environmentTemplate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateEnvironmentTemplate' smart constructor.+data CreateEnvironmentTemplate = CreateEnvironmentTemplate'+  { -- | A description of the environment template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The environment template name as displayed in the developer interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | A customer provided encryption key that Proton uses to encrypt data.+    encryptionKey :: Prelude.Maybe Prelude.Text,+    -- | When included, indicates that the environment template is for customer+    -- provisioned and managed infrastructure.+    provisioning :: Prelude.Maybe Provisioning,+    -- | An optional list of metadata items that you can associate with the+    -- Proton environment template. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the environment template.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createEnvironmentTemplate_description' - A description of the environment template.+--+-- 'displayName', 'createEnvironmentTemplate_displayName' - The environment template name as displayed in the developer interface.+--+-- 'encryptionKey', 'createEnvironmentTemplate_encryptionKey' - A customer provided encryption key that Proton uses to encrypt data.+--+-- 'provisioning', 'createEnvironmentTemplate_provisioning' - When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+--+-- 'tags', 'createEnvironmentTemplate_tags' - An optional list of metadata items that you can associate with the+-- Proton environment template. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'name', 'createEnvironmentTemplate_name' - The name of the environment template.+newCreateEnvironmentTemplate ::+  -- | 'name'+  Prelude.Text ->+  CreateEnvironmentTemplate+newCreateEnvironmentTemplate pName_ =+  CreateEnvironmentTemplate'+    { description =+        Prelude.Nothing,+      displayName = Prelude.Nothing,+      encryptionKey = Prelude.Nothing,+      provisioning = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_+    }++-- | A description of the environment template.+createEnvironmentTemplate_description :: Lens.Lens' CreateEnvironmentTemplate (Prelude.Maybe Prelude.Text)+createEnvironmentTemplate_description = Lens.lens (\CreateEnvironmentTemplate' {description} -> description) (\s@CreateEnvironmentTemplate' {} a -> s {description = a} :: CreateEnvironmentTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The environment template name as displayed in the developer interface.+createEnvironmentTemplate_displayName :: Lens.Lens' CreateEnvironmentTemplate (Prelude.Maybe Prelude.Text)+createEnvironmentTemplate_displayName = Lens.lens (\CreateEnvironmentTemplate' {displayName} -> displayName) (\s@CreateEnvironmentTemplate' {} a -> s {displayName = a} :: CreateEnvironmentTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | A customer provided encryption key that Proton uses to encrypt data.+createEnvironmentTemplate_encryptionKey :: Lens.Lens' CreateEnvironmentTemplate (Prelude.Maybe Prelude.Text)+createEnvironmentTemplate_encryptionKey = Lens.lens (\CreateEnvironmentTemplate' {encryptionKey} -> encryptionKey) (\s@CreateEnvironmentTemplate' {} a -> s {encryptionKey = a} :: CreateEnvironmentTemplate)++-- | When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+createEnvironmentTemplate_provisioning :: Lens.Lens' CreateEnvironmentTemplate (Prelude.Maybe Provisioning)+createEnvironmentTemplate_provisioning = Lens.lens (\CreateEnvironmentTemplate' {provisioning} -> provisioning) (\s@CreateEnvironmentTemplate' {} a -> s {provisioning = a} :: CreateEnvironmentTemplate)++-- | An optional list of metadata items that you can associate with the+-- Proton environment template. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createEnvironmentTemplate_tags :: Lens.Lens' CreateEnvironmentTemplate (Prelude.Maybe [Tag])+createEnvironmentTemplate_tags = Lens.lens (\CreateEnvironmentTemplate' {tags} -> tags) (\s@CreateEnvironmentTemplate' {} a -> s {tags = a} :: CreateEnvironmentTemplate) Prelude.. Lens.mapping Lens.coerced++-- | The name of the environment template.+createEnvironmentTemplate_name :: Lens.Lens' CreateEnvironmentTemplate Prelude.Text+createEnvironmentTemplate_name = Lens.lens (\CreateEnvironmentTemplate' {name} -> name) (\s@CreateEnvironmentTemplate' {} a -> s {name = a} :: CreateEnvironmentTemplate)++instance Core.AWSRequest CreateEnvironmentTemplate where+  type+    AWSResponse CreateEnvironmentTemplate =+      CreateEnvironmentTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateEnvironmentTemplateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentTemplate")+      )++instance Prelude.Hashable CreateEnvironmentTemplate where+  hashWithSalt _salt CreateEnvironmentTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` provisioning+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateEnvironmentTemplate where+  rnf CreateEnvironmentTemplate' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf provisioning+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateEnvironmentTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateEnvironmentTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateEnvironmentTemplate where+  toJSON CreateEnvironmentTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("displayName" Data..=) Prelude.<$> displayName,+            ("encryptionKey" Data..=) Prelude.<$> encryptionKey,+            ("provisioning" Data..=) Prelude.<$> provisioning,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateEnvironmentTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateEnvironmentTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateEnvironmentTemplateResponse' smart constructor.+data CreateEnvironmentTemplateResponse = CreateEnvironmentTemplateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment template detail data that\'s returned by Proton.+    environmentTemplate :: EnvironmentTemplate+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createEnvironmentTemplateResponse_httpStatus' - The response's http status code.+--+-- 'environmentTemplate', 'createEnvironmentTemplateResponse_environmentTemplate' - The environment template detail data that\'s returned by Proton.+newCreateEnvironmentTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentTemplate'+  EnvironmentTemplate ->+  CreateEnvironmentTemplateResponse+newCreateEnvironmentTemplateResponse+  pHttpStatus_+  pEnvironmentTemplate_ =+    CreateEnvironmentTemplateResponse'+      { httpStatus =+          pHttpStatus_,+        environmentTemplate =+          pEnvironmentTemplate_+      }++-- | The response's http status code.+createEnvironmentTemplateResponse_httpStatus :: Lens.Lens' CreateEnvironmentTemplateResponse Prelude.Int+createEnvironmentTemplateResponse_httpStatus = Lens.lens (\CreateEnvironmentTemplateResponse' {httpStatus} -> httpStatus) (\s@CreateEnvironmentTemplateResponse' {} a -> s {httpStatus = a} :: CreateEnvironmentTemplateResponse)++-- | The environment template detail data that\'s returned by Proton.+createEnvironmentTemplateResponse_environmentTemplate :: Lens.Lens' CreateEnvironmentTemplateResponse EnvironmentTemplate+createEnvironmentTemplateResponse_environmentTemplate = Lens.lens (\CreateEnvironmentTemplateResponse' {environmentTemplate} -> environmentTemplate) (\s@CreateEnvironmentTemplateResponse' {} a -> s {environmentTemplate = a} :: CreateEnvironmentTemplateResponse)++instance+  Prelude.NFData+    CreateEnvironmentTemplateResponse+  where+  rnf CreateEnvironmentTemplateResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentTemplate
+ gen/Amazonka/Proton/CreateEnvironmentTemplateVersion.hs view
@@ -0,0 +1,307 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateEnvironmentTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a new major or minor version of an environment template. A major+-- version of an environment template is a version that /isn\'t/ backwards+-- compatible. A minor version of an environment template is a version+-- that\'s backwards compatible within its major version.+module Amazonka.Proton.CreateEnvironmentTemplateVersion+  ( -- * Creating a Request+    CreateEnvironmentTemplateVersion (..),+    newCreateEnvironmentTemplateVersion,++    -- * Request Lenses+    createEnvironmentTemplateVersion_clientToken,+    createEnvironmentTemplateVersion_description,+    createEnvironmentTemplateVersion_majorVersion,+    createEnvironmentTemplateVersion_tags,+    createEnvironmentTemplateVersion_source,+    createEnvironmentTemplateVersion_templateName,++    -- * Destructuring the Response+    CreateEnvironmentTemplateVersionResponse (..),+    newCreateEnvironmentTemplateVersionResponse,++    -- * Response Lenses+    createEnvironmentTemplateVersionResponse_httpStatus,+    createEnvironmentTemplateVersionResponse_environmentTemplateVersion,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateEnvironmentTemplateVersion' smart constructor.+data CreateEnvironmentTemplateVersion = CreateEnvironmentTemplateVersion'+  { -- | When included, if two identical requests are made with the same client+    -- token, Proton returns the environment template version that the first+    -- request created.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | A description of the new version of an environment template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | To create a new minor version of the environment template, include+    -- @major Version@.+    --+    -- To create a new major and minor version of the environment template,+    -- exclude @major Version@.+    majorVersion :: Prelude.Maybe Prelude.Text,+    -- | An optional list of metadata items that you can associate with the+    -- Proton environment template version. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | An object that includes the template bundle S3 bucket path and name for+    -- the new version of an template.+    source :: TemplateVersionSourceInput,+    -- | The name of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientToken', 'createEnvironmentTemplateVersion_clientToken' - When included, if two identical requests are made with the same client+-- token, Proton returns the environment template version that the first+-- request created.+--+-- 'description', 'createEnvironmentTemplateVersion_description' - A description of the new version of an environment template.+--+-- 'majorVersion', 'createEnvironmentTemplateVersion_majorVersion' - To create a new minor version of the environment template, include+-- @major Version@.+--+-- To create a new major and minor version of the environment template,+-- exclude @major Version@.+--+-- 'tags', 'createEnvironmentTemplateVersion_tags' - An optional list of metadata items that you can associate with the+-- Proton environment template version. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'source', 'createEnvironmentTemplateVersion_source' - An object that includes the template bundle S3 bucket path and name for+-- the new version of an template.+--+-- 'templateName', 'createEnvironmentTemplateVersion_templateName' - The name of the environment template.+newCreateEnvironmentTemplateVersion ::+  -- | 'source'+  TemplateVersionSourceInput ->+  -- | 'templateName'+  Prelude.Text ->+  CreateEnvironmentTemplateVersion+newCreateEnvironmentTemplateVersion+  pSource_+  pTemplateName_ =+    CreateEnvironmentTemplateVersion'+      { clientToken =+          Prelude.Nothing,+        description = Prelude.Nothing,+        majorVersion = Prelude.Nothing,+        tags = Prelude.Nothing,+        source = pSource_,+        templateName = pTemplateName_+      }++-- | When included, if two identical requests are made with the same client+-- token, Proton returns the environment template version that the first+-- request created.+createEnvironmentTemplateVersion_clientToken :: Lens.Lens' CreateEnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+createEnvironmentTemplateVersion_clientToken = Lens.lens (\CreateEnvironmentTemplateVersion' {clientToken} -> clientToken) (\s@CreateEnvironmentTemplateVersion' {} a -> s {clientToken = a} :: CreateEnvironmentTemplateVersion)++-- | A description of the new version of an environment template.+createEnvironmentTemplateVersion_description :: Lens.Lens' CreateEnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+createEnvironmentTemplateVersion_description = Lens.lens (\CreateEnvironmentTemplateVersion' {description} -> description) (\s@CreateEnvironmentTemplateVersion' {} a -> s {description = a} :: CreateEnvironmentTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | To create a new minor version of the environment template, include+-- @major Version@.+--+-- To create a new major and minor version of the environment template,+-- exclude @major Version@.+createEnvironmentTemplateVersion_majorVersion :: Lens.Lens' CreateEnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+createEnvironmentTemplateVersion_majorVersion = Lens.lens (\CreateEnvironmentTemplateVersion' {majorVersion} -> majorVersion) (\s@CreateEnvironmentTemplateVersion' {} a -> s {majorVersion = a} :: CreateEnvironmentTemplateVersion)++-- | An optional list of metadata items that you can associate with the+-- Proton environment template version. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createEnvironmentTemplateVersion_tags :: Lens.Lens' CreateEnvironmentTemplateVersion (Prelude.Maybe [Tag])+createEnvironmentTemplateVersion_tags = Lens.lens (\CreateEnvironmentTemplateVersion' {tags} -> tags) (\s@CreateEnvironmentTemplateVersion' {} a -> s {tags = a} :: CreateEnvironmentTemplateVersion) Prelude.. Lens.mapping Lens.coerced++-- | An object that includes the template bundle S3 bucket path and name for+-- the new version of an template.+createEnvironmentTemplateVersion_source :: Lens.Lens' CreateEnvironmentTemplateVersion TemplateVersionSourceInput+createEnvironmentTemplateVersion_source = Lens.lens (\CreateEnvironmentTemplateVersion' {source} -> source) (\s@CreateEnvironmentTemplateVersion' {} a -> s {source = a} :: CreateEnvironmentTemplateVersion)++-- | The name of the environment template.+createEnvironmentTemplateVersion_templateName :: Lens.Lens' CreateEnvironmentTemplateVersion Prelude.Text+createEnvironmentTemplateVersion_templateName = Lens.lens (\CreateEnvironmentTemplateVersion' {templateName} -> templateName) (\s@CreateEnvironmentTemplateVersion' {} a -> s {templateName = a} :: CreateEnvironmentTemplateVersion)++instance+  Core.AWSRequest+    CreateEnvironmentTemplateVersion+  where+  type+    AWSResponse CreateEnvironmentTemplateVersion =+      CreateEnvironmentTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateEnvironmentTemplateVersionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentTemplateVersion")+      )++instance+  Prelude.Hashable+    CreateEnvironmentTemplateVersion+  where+  hashWithSalt+    _salt+    CreateEnvironmentTemplateVersion' {..} =+      _salt+        `Prelude.hashWithSalt` clientToken+        `Prelude.hashWithSalt` description+        `Prelude.hashWithSalt` majorVersion+        `Prelude.hashWithSalt` tags+        `Prelude.hashWithSalt` source+        `Prelude.hashWithSalt` templateName++instance+  Prelude.NFData+    CreateEnvironmentTemplateVersion+  where+  rnf CreateEnvironmentTemplateVersion' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf source+      `Prelude.seq` Prelude.rnf templateName++instance+  Data.ToHeaders+    CreateEnvironmentTemplateVersion+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateEnvironmentTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateEnvironmentTemplateVersion where+  toJSON CreateEnvironmentTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("clientToken" Data..=) Prelude.<$> clientToken,+            ("description" Data..=) Prelude.<$> description,+            ("majorVersion" Data..=) Prelude.<$> majorVersion,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("source" Data..= source),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath CreateEnvironmentTemplateVersion where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    CreateEnvironmentTemplateVersion+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateEnvironmentTemplateVersionResponse' smart constructor.+data CreateEnvironmentTemplateVersionResponse = CreateEnvironmentTemplateVersionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment template detail data that\'s returned by Proton.+    environmentTemplateVersion :: EnvironmentTemplateVersion+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEnvironmentTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createEnvironmentTemplateVersionResponse_httpStatus' - The response's http status code.+--+-- 'environmentTemplateVersion', 'createEnvironmentTemplateVersionResponse_environmentTemplateVersion' - The environment template detail data that\'s returned by Proton.+newCreateEnvironmentTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentTemplateVersion'+  EnvironmentTemplateVersion ->+  CreateEnvironmentTemplateVersionResponse+newCreateEnvironmentTemplateVersionResponse+  pHttpStatus_+  pEnvironmentTemplateVersion_ =+    CreateEnvironmentTemplateVersionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentTemplateVersion =+          pEnvironmentTemplateVersion_+      }++-- | The response's http status code.+createEnvironmentTemplateVersionResponse_httpStatus :: Lens.Lens' CreateEnvironmentTemplateVersionResponse Prelude.Int+createEnvironmentTemplateVersionResponse_httpStatus = Lens.lens (\CreateEnvironmentTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@CreateEnvironmentTemplateVersionResponse' {} a -> s {httpStatus = a} :: CreateEnvironmentTemplateVersionResponse)++-- | The environment template detail data that\'s returned by Proton.+createEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens.Lens' CreateEnvironmentTemplateVersionResponse EnvironmentTemplateVersion+createEnvironmentTemplateVersionResponse_environmentTemplateVersion = Lens.lens (\CreateEnvironmentTemplateVersionResponse' {environmentTemplateVersion} -> environmentTemplateVersion) (\s@CreateEnvironmentTemplateVersionResponse' {} a -> s {environmentTemplateVersion = a} :: CreateEnvironmentTemplateVersionResponse)++instance+  Prelude.NFData+    CreateEnvironmentTemplateVersionResponse+  where+  rnf CreateEnvironmentTemplateVersionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentTemplateVersion
+ gen/Amazonka/Proton/CreateRepository.hs view
@@ -0,0 +1,275 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateRepository+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create and register a link to a repository. Proton uses the link to+-- repeatedly access the repository, to either push to it (self-managed+-- provisioning) or pull from it (template sync). You can share a linked+-- repository across multiple resources (like environments using+-- self-managed provisioning, or synced templates). When you create a+-- repository link, Proton creates a+-- <https://docs.aws.amazon.com/proton/latest/userguide/using-service-linked-roles.html service-linked role>+-- for you.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html#ag-works-prov-methods-self Self-managed provisioning>,+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-authoring.html#ag-template-bundles Template bundles>,+-- and+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-sync-configs.html Template sync configurations>+-- in the /Proton User Guide/.+module Amazonka.Proton.CreateRepository+  ( -- * Creating a Request+    CreateRepository (..),+    newCreateRepository,++    -- * Request Lenses+    createRepository_encryptionKey,+    createRepository_tags,+    createRepository_connectionArn,+    createRepository_name,+    createRepository_provider,++    -- * Destructuring the Response+    CreateRepositoryResponse (..),+    newCreateRepositoryResponse,++    -- * Response Lenses+    createRepositoryResponse_httpStatus,+    createRepositoryResponse_repository,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateRepository' smart constructor.+data CreateRepository = CreateRepository'+  { -- | The ARN of your customer Amazon Web Services Key Management Service+    -- (Amazon Web Services KMS) key.+    encryptionKey :: Prelude.Maybe Prelude.Text,+    -- | An optional list of metadata items that you can associate with the+    -- Proton repository. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | The Amazon Resource Name (ARN) of your AWS CodeStar connection that+    -- connects Proton to your repository provider account. For more+    -- information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html Setting up for Proton>+    -- in the /Proton User Guide/.+    connectionArn :: Prelude.Text,+    -- | The repository name (for example, @myrepos\/myrepo@).+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRepository' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'encryptionKey', 'createRepository_encryptionKey' - The ARN of your customer Amazon Web Services Key Management Service+-- (Amazon Web Services KMS) key.+--+-- 'tags', 'createRepository_tags' - An optional list of metadata items that you can associate with the+-- Proton repository. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'connectionArn', 'createRepository_connectionArn' - The Amazon Resource Name (ARN) of your AWS CodeStar connection that+-- connects Proton to your repository provider account. For more+-- information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html Setting up for Proton>+-- in the /Proton User Guide/.+--+-- 'name', 'createRepository_name' - The repository name (for example, @myrepos\/myrepo@).+--+-- 'provider', 'createRepository_provider' - The repository provider.+newCreateRepository ::+  -- | 'connectionArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  CreateRepository+newCreateRepository pConnectionArn_ pName_ pProvider_ =+  CreateRepository'+    { encryptionKey = Prelude.Nothing,+      tags = Prelude.Nothing,+      connectionArn = pConnectionArn_,+      name = pName_,+      provider = pProvider_+    }++-- | The ARN of your customer Amazon Web Services Key Management Service+-- (Amazon Web Services KMS) key.+createRepository_encryptionKey :: Lens.Lens' CreateRepository (Prelude.Maybe Prelude.Text)+createRepository_encryptionKey = Lens.lens (\CreateRepository' {encryptionKey} -> encryptionKey) (\s@CreateRepository' {} a -> s {encryptionKey = a} :: CreateRepository)++-- | An optional list of metadata items that you can associate with the+-- Proton repository. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createRepository_tags :: Lens.Lens' CreateRepository (Prelude.Maybe [Tag])+createRepository_tags = Lens.lens (\CreateRepository' {tags} -> tags) (\s@CreateRepository' {} a -> s {tags = a} :: CreateRepository) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Resource Name (ARN) of your AWS CodeStar connection that+-- connects Proton to your repository provider account. For more+-- information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html Setting up for Proton>+-- in the /Proton User Guide/.+createRepository_connectionArn :: Lens.Lens' CreateRepository Prelude.Text+createRepository_connectionArn = Lens.lens (\CreateRepository' {connectionArn} -> connectionArn) (\s@CreateRepository' {} a -> s {connectionArn = a} :: CreateRepository)++-- | The repository name (for example, @myrepos\/myrepo@).+createRepository_name :: Lens.Lens' CreateRepository Prelude.Text+createRepository_name = Lens.lens (\CreateRepository' {name} -> name) (\s@CreateRepository' {} a -> s {name = a} :: CreateRepository)++-- | The repository provider.+createRepository_provider :: Lens.Lens' CreateRepository RepositoryProvider+createRepository_provider = Lens.lens (\CreateRepository' {provider} -> provider) (\s@CreateRepository' {} a -> s {provider = a} :: CreateRepository)++instance Core.AWSRequest CreateRepository where+  type+    AWSResponse CreateRepository =+      CreateRepositoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateRepositoryResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "repository")+      )++instance Prelude.Hashable CreateRepository where+  hashWithSalt _salt CreateRepository' {..} =+    _salt+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` connectionArn+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData CreateRepository where+  rnf CreateRepository' {..} =+    Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf connectionArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf provider++instance Data.ToHeaders CreateRepository where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateRepository" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateRepository where+  toJSON CreateRepository' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("encryptionKey" Data..=) Prelude.<$> encryptionKey,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("connectionArn" Data..= connectionArn),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("provider" Data..= provider)+          ]+      )++instance Data.ToPath CreateRepository where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateRepository where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateRepositoryResponse' smart constructor.+data CreateRepositoryResponse = CreateRepositoryResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The repository link\'s detail data that\'s returned by Proton.+    repository :: Repository+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRepositoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createRepositoryResponse_httpStatus' - The response's http status code.+--+-- 'repository', 'createRepositoryResponse_repository' - The repository link\'s detail data that\'s returned by Proton.+newCreateRepositoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'repository'+  Repository ->+  CreateRepositoryResponse+newCreateRepositoryResponse pHttpStatus_ pRepository_ =+  CreateRepositoryResponse'+    { httpStatus =+        pHttpStatus_,+      repository = pRepository_+    }++-- | The response's http status code.+createRepositoryResponse_httpStatus :: Lens.Lens' CreateRepositoryResponse Prelude.Int+createRepositoryResponse_httpStatus = Lens.lens (\CreateRepositoryResponse' {httpStatus} -> httpStatus) (\s@CreateRepositoryResponse' {} a -> s {httpStatus = a} :: CreateRepositoryResponse)++-- | The repository link\'s detail data that\'s returned by Proton.+createRepositoryResponse_repository :: Lens.Lens' CreateRepositoryResponse Repository+createRepositoryResponse_repository = Lens.lens (\CreateRepositoryResponse' {repository} -> repository) (\s@CreateRepositoryResponse' {} a -> s {repository = a} :: CreateRepositoryResponse)++instance Prelude.NFData CreateRepositoryResponse where+  rnf CreateRepositoryResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf repository
+ gen/Amazonka/Proton/CreateService.hs view
@@ -0,0 +1,367 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create an Proton service. An Proton service is an instantiation of a+-- service template and often includes several service instances and+-- pipeline. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-services.html Services>+-- in the /Proton User Guide/.+module Amazonka.Proton.CreateService+  ( -- * Creating a Request+    CreateService (..),+    newCreateService,++    -- * Request Lenses+    createService_branchName,+    createService_description,+    createService_repositoryConnectionArn,+    createService_repositoryId,+    createService_tags,+    createService_templateMinorVersion,+    createService_name,+    createService_spec,+    createService_templateMajorVersion,+    createService_templateName,++    -- * Destructuring the Response+    CreateServiceResponse (..),+    newCreateServiceResponse,++    -- * Response Lenses+    createServiceResponse_httpStatus,+    createServiceResponse_service,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateService' smart constructor.+data CreateService = CreateService'+  { -- | The name of the code repository branch that holds the code that\'s+    -- deployed in Proton. /Don\'t/ include this parameter if your service+    -- template /doesn\'t/ include a service pipeline.+    branchName :: Prelude.Maybe Prelude.Text,+    -- | A description of the Proton service.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the repository connection. For more+    -- information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html#setting-up-vcontrol Setting up an AWS CodeStar connection>+    -- in the /Proton User Guide/. /Don\'t/ include this parameter if your+    -- service template /doesn\'t/ include a service pipeline.+    repositoryConnectionArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the code repository. /Don\'t/ include this parameter if your+    -- service template /doesn\'t/ include a service pipeline.+    repositoryId :: Prelude.Maybe Prelude.Text,+    -- | An optional list of metadata items that you can associate with the+    -- Proton service. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | The minor version of the service template that was used to create the+    -- service.+    templateMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The service name.+    name :: Prelude.Text,+    -- | A link to a spec file that provides inputs as defined in the service+    -- template bundle schema file. The spec file is in YAML format. /Don’t/+    -- include pipeline inputs in the spec if your service template /doesn’t/+    -- include a service pipeline. For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-create-svc.html Create a service>+    -- in the /Proton User Guide/.+    spec :: Data.Sensitive Prelude.Text,+    -- | The major version of the service template that was used to create the+    -- service.+    templateMajorVersion :: Prelude.Text,+    -- | The name of the service template that\'s used to create the service.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateService' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'branchName', 'createService_branchName' - The name of the code repository branch that holds the code that\'s+-- deployed in Proton. /Don\'t/ include this parameter if your service+-- template /doesn\'t/ include a service pipeline.+--+-- 'description', 'createService_description' - A description of the Proton service.+--+-- 'repositoryConnectionArn', 'createService_repositoryConnectionArn' - The Amazon Resource Name (ARN) of the repository connection. For more+-- information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html#setting-up-vcontrol Setting up an AWS CodeStar connection>+-- in the /Proton User Guide/. /Don\'t/ include this parameter if your+-- service template /doesn\'t/ include a service pipeline.+--+-- 'repositoryId', 'createService_repositoryId' - The ID of the code repository. /Don\'t/ include this parameter if your+-- service template /doesn\'t/ include a service pipeline.+--+-- 'tags', 'createService_tags' - An optional list of metadata items that you can associate with the+-- Proton service. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'templateMinorVersion', 'createService_templateMinorVersion' - The minor version of the service template that was used to create the+-- service.+--+-- 'name', 'createService_name' - The service name.+--+-- 'spec', 'createService_spec' - A link to a spec file that provides inputs as defined in the service+-- template bundle schema file. The spec file is in YAML format. /Don’t/+-- include pipeline inputs in the spec if your service template /doesn’t/+-- include a service pipeline. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-create-svc.html Create a service>+-- in the /Proton User Guide/.+--+-- 'templateMajorVersion', 'createService_templateMajorVersion' - The major version of the service template that was used to create the+-- service.+--+-- 'templateName', 'createService_templateName' - The name of the service template that\'s used to create the service.+newCreateService ::+  -- | 'name'+  Prelude.Text ->+  -- | 'spec'+  Prelude.Text ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  CreateService+newCreateService+  pName_+  pSpec_+  pTemplateMajorVersion_+  pTemplateName_ =+    CreateService'+      { branchName = Prelude.Nothing,+        description = Prelude.Nothing,+        repositoryConnectionArn = Prelude.Nothing,+        repositoryId = Prelude.Nothing,+        tags = Prelude.Nothing,+        templateMinorVersion = Prelude.Nothing,+        name = pName_,+        spec = Data._Sensitive Lens.# pSpec_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateName = pTemplateName_+      }++-- | The name of the code repository branch that holds the code that\'s+-- deployed in Proton. /Don\'t/ include this parameter if your service+-- template /doesn\'t/ include a service pipeline.+createService_branchName :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_branchName = Lens.lens (\CreateService' {branchName} -> branchName) (\s@CreateService' {} a -> s {branchName = a} :: CreateService)++-- | A description of the Proton service.+createService_description :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_description = Lens.lens (\CreateService' {description} -> description) (\s@CreateService' {} a -> s {description = a} :: CreateService) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the repository connection. For more+-- information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html#setting-up-vcontrol Setting up an AWS CodeStar connection>+-- in the /Proton User Guide/. /Don\'t/ include this parameter if your+-- service template /doesn\'t/ include a service pipeline.+createService_repositoryConnectionArn :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_repositoryConnectionArn = Lens.lens (\CreateService' {repositoryConnectionArn} -> repositoryConnectionArn) (\s@CreateService' {} a -> s {repositoryConnectionArn = a} :: CreateService)++-- | The ID of the code repository. /Don\'t/ include this parameter if your+-- service template /doesn\'t/ include a service pipeline.+createService_repositoryId :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_repositoryId = Lens.lens (\CreateService' {repositoryId} -> repositoryId) (\s@CreateService' {} a -> s {repositoryId = a} :: CreateService)++-- | An optional list of metadata items that you can associate with the+-- Proton service. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createService_tags :: Lens.Lens' CreateService (Prelude.Maybe [Tag])+createService_tags = Lens.lens (\CreateService' {tags} -> tags) (\s@CreateService' {} a -> s {tags = a} :: CreateService) Prelude.. Lens.mapping Lens.coerced++-- | The minor version of the service template that was used to create the+-- service.+createService_templateMinorVersion :: Lens.Lens' CreateService (Prelude.Maybe Prelude.Text)+createService_templateMinorVersion = Lens.lens (\CreateService' {templateMinorVersion} -> templateMinorVersion) (\s@CreateService' {} a -> s {templateMinorVersion = a} :: CreateService)++-- | The service name.+createService_name :: Lens.Lens' CreateService Prelude.Text+createService_name = Lens.lens (\CreateService' {name} -> name) (\s@CreateService' {} a -> s {name = a} :: CreateService)++-- | A link to a spec file that provides inputs as defined in the service+-- template bundle schema file. The spec file is in YAML format. /Don’t/+-- include pipeline inputs in the spec if your service template /doesn’t/+-- include a service pipeline. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-create-svc.html Create a service>+-- in the /Proton User Guide/.+createService_spec :: Lens.Lens' CreateService Prelude.Text+createService_spec = Lens.lens (\CreateService' {spec} -> spec) (\s@CreateService' {} a -> s {spec = a} :: CreateService) Prelude.. Data._Sensitive++-- | The major version of the service template that was used to create the+-- service.+createService_templateMajorVersion :: Lens.Lens' CreateService Prelude.Text+createService_templateMajorVersion = Lens.lens (\CreateService' {templateMajorVersion} -> templateMajorVersion) (\s@CreateService' {} a -> s {templateMajorVersion = a} :: CreateService)++-- | The name of the service template that\'s used to create the service.+createService_templateName :: Lens.Lens' CreateService Prelude.Text+createService_templateName = Lens.lens (\CreateService' {templateName} -> templateName) (\s@CreateService' {} a -> s {templateName = a} :: CreateService)++instance Core.AWSRequest CreateService where+  type+    AWSResponse CreateService =+      CreateServiceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateServiceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "service")+      )++instance Prelude.Hashable CreateService where+  hashWithSalt _salt CreateService' {..} =+    _salt+      `Prelude.hashWithSalt` branchName+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` repositoryConnectionArn+      `Prelude.hashWithSalt` repositoryId+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData CreateService where+  rnf CreateService' {..} =+    Prelude.rnf branchName+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf repositoryConnectionArn+      `Prelude.seq` Prelude.rnf repositoryId+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders CreateService where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateService" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateService where+  toJSON CreateService' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("branchName" Data..=) Prelude.<$> branchName,+            ("description" Data..=) Prelude.<$> description,+            ("repositoryConnectionArn" Data..=)+              Prelude.<$> repositoryConnectionArn,+            ("repositoryId" Data..=) Prelude.<$> repositoryId,+            ("tags" Data..=) Prelude.<$> tags,+            ("templateMinorVersion" Data..=)+              Prelude.<$> templateMinorVersion,+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("spec" Data..= spec),+            Prelude.Just+              ( "templateMajorVersion"+                  Data..= templateMajorVersion+              ),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath CreateService where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateService where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateServiceResponse' smart constructor.+data CreateServiceResponse = CreateServiceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service detail data that\'s returned by Proton.+    service :: Service+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServiceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createServiceResponse_httpStatus' - The response's http status code.+--+-- 'service', 'createServiceResponse_service' - The service detail data that\'s returned by Proton.+newCreateServiceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'service'+  Service ->+  CreateServiceResponse+newCreateServiceResponse pHttpStatus_ pService_ =+  CreateServiceResponse'+    { httpStatus = pHttpStatus_,+      service = pService_+    }++-- | The response's http status code.+createServiceResponse_httpStatus :: Lens.Lens' CreateServiceResponse Prelude.Int+createServiceResponse_httpStatus = Lens.lens (\CreateServiceResponse' {httpStatus} -> httpStatus) (\s@CreateServiceResponse' {} a -> s {httpStatus = a} :: CreateServiceResponse)++-- | The service detail data that\'s returned by Proton.+createServiceResponse_service :: Lens.Lens' CreateServiceResponse Service+createServiceResponse_service = Lens.lens (\CreateServiceResponse' {service} -> service) (\s@CreateServiceResponse' {} a -> s {service = a} :: CreateServiceResponse)++instance Prelude.NFData CreateServiceResponse where+  rnf CreateServiceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf service
+ gen/Amazonka/Proton/CreateServiceTemplate.hs view
@@ -0,0 +1,285 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateServiceTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a service template. The administrator creates a service template+-- to define standardized infrastructure and an optional CI\/CD service+-- pipeline. Developers, in turn, select the service template from Proton.+-- If the selected service template includes a service pipeline definition,+-- they provide a link to their source code repository. Proton then deploys+-- and manages the infrastructure defined by the selected service template.+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-templates.html Proton templates>+-- in the /Proton User Guide/.+module Amazonka.Proton.CreateServiceTemplate+  ( -- * Creating a Request+    CreateServiceTemplate (..),+    newCreateServiceTemplate,++    -- * Request Lenses+    createServiceTemplate_description,+    createServiceTemplate_displayName,+    createServiceTemplate_encryptionKey,+    createServiceTemplate_pipelineProvisioning,+    createServiceTemplate_tags,+    createServiceTemplate_name,++    -- * Destructuring the Response+    CreateServiceTemplateResponse (..),+    newCreateServiceTemplateResponse,++    -- * Response Lenses+    createServiceTemplateResponse_httpStatus,+    createServiceTemplateResponse_serviceTemplate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateServiceTemplate' smart constructor.+data CreateServiceTemplate = CreateServiceTemplate'+  { -- | A description of the service template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the service template as displayed in the developer+    -- interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | A customer provided encryption key that\'s used to encrypt data.+    encryptionKey :: Prelude.Maybe Prelude.Text,+    -- | By default, Proton provides a service pipeline for your service. When+    -- this parameter is included, it indicates that an Proton service pipeline+    -- /isn\'t/ provided for your service. After it\'s included, it /can\'t/ be+    -- changed. For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-authoring.html#ag-template-bundles Template bundles>+    -- in the /Proton User Guide/.+    pipelineProvisioning :: Prelude.Maybe Provisioning,+    -- | An optional list of metadata items that you can associate with the+    -- Proton service template. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the service template.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServiceTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createServiceTemplate_description' - A description of the service template.+--+-- 'displayName', 'createServiceTemplate_displayName' - The name of the service template as displayed in the developer+-- interface.+--+-- 'encryptionKey', 'createServiceTemplate_encryptionKey' - A customer provided encryption key that\'s used to encrypt data.+--+-- 'pipelineProvisioning', 'createServiceTemplate_pipelineProvisioning' - By default, Proton provides a service pipeline for your service. When+-- this parameter is included, it indicates that an Proton service pipeline+-- /isn\'t/ provided for your service. After it\'s included, it /can\'t/ be+-- changed. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-authoring.html#ag-template-bundles Template bundles>+-- in the /Proton User Guide/.+--+-- 'tags', 'createServiceTemplate_tags' - An optional list of metadata items that you can associate with the+-- Proton service template. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'name', 'createServiceTemplate_name' - The name of the service template.+newCreateServiceTemplate ::+  -- | 'name'+  Prelude.Text ->+  CreateServiceTemplate+newCreateServiceTemplate pName_ =+  CreateServiceTemplate'+    { description =+        Prelude.Nothing,+      displayName = Prelude.Nothing,+      encryptionKey = Prelude.Nothing,+      pipelineProvisioning = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_+    }++-- | A description of the service template.+createServiceTemplate_description :: Lens.Lens' CreateServiceTemplate (Prelude.Maybe Prelude.Text)+createServiceTemplate_description = Lens.lens (\CreateServiceTemplate' {description} -> description) (\s@CreateServiceTemplate' {} a -> s {description = a} :: CreateServiceTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the service template as displayed in the developer+-- interface.+createServiceTemplate_displayName :: Lens.Lens' CreateServiceTemplate (Prelude.Maybe Prelude.Text)+createServiceTemplate_displayName = Lens.lens (\CreateServiceTemplate' {displayName} -> displayName) (\s@CreateServiceTemplate' {} a -> s {displayName = a} :: CreateServiceTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | A customer provided encryption key that\'s used to encrypt data.+createServiceTemplate_encryptionKey :: Lens.Lens' CreateServiceTemplate (Prelude.Maybe Prelude.Text)+createServiceTemplate_encryptionKey = Lens.lens (\CreateServiceTemplate' {encryptionKey} -> encryptionKey) (\s@CreateServiceTemplate' {} a -> s {encryptionKey = a} :: CreateServiceTemplate)++-- | By default, Proton provides a service pipeline for your service. When+-- this parameter is included, it indicates that an Proton service pipeline+-- /isn\'t/ provided for your service. After it\'s included, it /can\'t/ be+-- changed. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-authoring.html#ag-template-bundles Template bundles>+-- in the /Proton User Guide/.+createServiceTemplate_pipelineProvisioning :: Lens.Lens' CreateServiceTemplate (Prelude.Maybe Provisioning)+createServiceTemplate_pipelineProvisioning = Lens.lens (\CreateServiceTemplate' {pipelineProvisioning} -> pipelineProvisioning) (\s@CreateServiceTemplate' {} a -> s {pipelineProvisioning = a} :: CreateServiceTemplate)++-- | An optional list of metadata items that you can associate with the+-- Proton service template. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createServiceTemplate_tags :: Lens.Lens' CreateServiceTemplate (Prelude.Maybe [Tag])+createServiceTemplate_tags = Lens.lens (\CreateServiceTemplate' {tags} -> tags) (\s@CreateServiceTemplate' {} a -> s {tags = a} :: CreateServiceTemplate) Prelude.. Lens.mapping Lens.coerced++-- | The name of the service template.+createServiceTemplate_name :: Lens.Lens' CreateServiceTemplate Prelude.Text+createServiceTemplate_name = Lens.lens (\CreateServiceTemplate' {name} -> name) (\s@CreateServiceTemplate' {} a -> s {name = a} :: CreateServiceTemplate)++instance Core.AWSRequest CreateServiceTemplate where+  type+    AWSResponse CreateServiceTemplate =+      CreateServiceTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateServiceTemplateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceTemplate")+      )++instance Prelude.Hashable CreateServiceTemplate where+  hashWithSalt _salt CreateServiceTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` pipelineProvisioning+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateServiceTemplate where+  rnf CreateServiceTemplate' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf pipelineProvisioning+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateServiceTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateServiceTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateServiceTemplate where+  toJSON CreateServiceTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("displayName" Data..=) Prelude.<$> displayName,+            ("encryptionKey" Data..=) Prelude.<$> encryptionKey,+            ("pipelineProvisioning" Data..=)+              Prelude.<$> pipelineProvisioning,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateServiceTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateServiceTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateServiceTemplateResponse' smart constructor.+data CreateServiceTemplateResponse = CreateServiceTemplateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service template detail data that\'s returned by Proton.+    serviceTemplate :: ServiceTemplate+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServiceTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createServiceTemplateResponse_httpStatus' - The response's http status code.+--+-- 'serviceTemplate', 'createServiceTemplateResponse_serviceTemplate' - The service template detail data that\'s returned by Proton.+newCreateServiceTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceTemplate'+  ServiceTemplate ->+  CreateServiceTemplateResponse+newCreateServiceTemplateResponse+  pHttpStatus_+  pServiceTemplate_ =+    CreateServiceTemplateResponse'+      { httpStatus =+          pHttpStatus_,+        serviceTemplate = pServiceTemplate_+      }++-- | The response's http status code.+createServiceTemplateResponse_httpStatus :: Lens.Lens' CreateServiceTemplateResponse Prelude.Int+createServiceTemplateResponse_httpStatus = Lens.lens (\CreateServiceTemplateResponse' {httpStatus} -> httpStatus) (\s@CreateServiceTemplateResponse' {} a -> s {httpStatus = a} :: CreateServiceTemplateResponse)++-- | The service template detail data that\'s returned by Proton.+createServiceTemplateResponse_serviceTemplate :: Lens.Lens' CreateServiceTemplateResponse ServiceTemplate+createServiceTemplateResponse_serviceTemplate = Lens.lens (\CreateServiceTemplateResponse' {serviceTemplate} -> serviceTemplate) (\s@CreateServiceTemplateResponse' {} a -> s {serviceTemplate = a} :: CreateServiceTemplateResponse)++instance Prelude.NFData CreateServiceTemplateResponse where+  rnf CreateServiceTemplateResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceTemplate
+ gen/Amazonka/Proton/CreateServiceTemplateVersion.hs view
@@ -0,0 +1,355 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateServiceTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Create a new major or minor version of a service template. A major+-- version of a service template is a version that /isn\'t/ backward+-- compatible. A minor version of a service template is a version that\'s+-- backward compatible within its major version.+module Amazonka.Proton.CreateServiceTemplateVersion+  ( -- * Creating a Request+    CreateServiceTemplateVersion (..),+    newCreateServiceTemplateVersion,++    -- * Request Lenses+    createServiceTemplateVersion_clientToken,+    createServiceTemplateVersion_description,+    createServiceTemplateVersion_majorVersion,+    createServiceTemplateVersion_supportedComponentSources,+    createServiceTemplateVersion_tags,+    createServiceTemplateVersion_compatibleEnvironmentTemplates,+    createServiceTemplateVersion_source,+    createServiceTemplateVersion_templateName,++    -- * Destructuring the Response+    CreateServiceTemplateVersionResponse (..),+    newCreateServiceTemplateVersionResponse,++    -- * Response Lenses+    createServiceTemplateVersionResponse_httpStatus,+    createServiceTemplateVersionResponse_serviceTemplateVersion,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateServiceTemplateVersion' smart constructor.+data CreateServiceTemplateVersion = CreateServiceTemplateVersion'+  { -- | When included, if two identical requests are made with the same client+    -- token, Proton returns the service template version that the first+    -- request created.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | A description of the new version of a service template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | To create a new minor version of the service template, include a+    -- @major Version@.+    --+    -- To create a new major and minor version of the service template,+    -- /exclude/ @major Version@.+    majorVersion :: Prelude.Maybe Prelude.Text,+    -- | An array of supported component sources. Components with supported+    -- sources can be attached to service instances based on this service+    -- template version.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    supportedComponentSources :: Prelude.Maybe [ServiceTemplateSupportedComponentSourceType],+    -- | An optional list of metadata items that you can associate with the+    -- Proton service template version. A tag is a key-value pair.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+    -- in the /Proton User Guide/.+    tags :: Prelude.Maybe [Tag],+    -- | An array of environment template objects that are compatible with the+    -- new service template version. A service instance based on this service+    -- template version can run in environments based on compatible templates.+    compatibleEnvironmentTemplates :: Prelude.NonEmpty CompatibleEnvironmentTemplateInput,+    -- | An object that includes the template bundle S3 bucket path and name for+    -- the new version of a service template.+    source :: TemplateVersionSourceInput,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServiceTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientToken', 'createServiceTemplateVersion_clientToken' - When included, if two identical requests are made with the same client+-- token, Proton returns the service template version that the first+-- request created.+--+-- 'description', 'createServiceTemplateVersion_description' - A description of the new version of a service template.+--+-- 'majorVersion', 'createServiceTemplateVersion_majorVersion' - To create a new minor version of the service template, include a+-- @major Version@.+--+-- To create a new major and minor version of the service template,+-- /exclude/ @major Version@.+--+-- 'supportedComponentSources', 'createServiceTemplateVersion_supportedComponentSources' - An array of supported component sources. Components with supported+-- sources can be attached to service instances based on this service+-- template version.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'tags', 'createServiceTemplateVersion_tags' - An optional list of metadata items that you can associate with the+-- Proton service template version. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- 'compatibleEnvironmentTemplates', 'createServiceTemplateVersion_compatibleEnvironmentTemplates' - An array of environment template objects that are compatible with the+-- new service template version. A service instance based on this service+-- template version can run in environments based on compatible templates.+--+-- 'source', 'createServiceTemplateVersion_source' - An object that includes the template bundle S3 bucket path and name for+-- the new version of a service template.+--+-- 'templateName', 'createServiceTemplateVersion_templateName' - The name of the service template.+newCreateServiceTemplateVersion ::+  -- | 'compatibleEnvironmentTemplates'+  Prelude.NonEmpty CompatibleEnvironmentTemplateInput ->+  -- | 'source'+  TemplateVersionSourceInput ->+  -- | 'templateName'+  Prelude.Text ->+  CreateServiceTemplateVersion+newCreateServiceTemplateVersion+  pCompatibleEnvironmentTemplates_+  pSource_+  pTemplateName_ =+    CreateServiceTemplateVersion'+      { clientToken =+          Prelude.Nothing,+        description = Prelude.Nothing,+        majorVersion = Prelude.Nothing,+        supportedComponentSources = Prelude.Nothing,+        tags = Prelude.Nothing,+        compatibleEnvironmentTemplates =+          Lens.coerced+            Lens.# pCompatibleEnvironmentTemplates_,+        source = pSource_,+        templateName = pTemplateName_+      }++-- | When included, if two identical requests are made with the same client+-- token, Proton returns the service template version that the first+-- request created.+createServiceTemplateVersion_clientToken :: Lens.Lens' CreateServiceTemplateVersion (Prelude.Maybe Prelude.Text)+createServiceTemplateVersion_clientToken = Lens.lens (\CreateServiceTemplateVersion' {clientToken} -> clientToken) (\s@CreateServiceTemplateVersion' {} a -> s {clientToken = a} :: CreateServiceTemplateVersion)++-- | A description of the new version of a service template.+createServiceTemplateVersion_description :: Lens.Lens' CreateServiceTemplateVersion (Prelude.Maybe Prelude.Text)+createServiceTemplateVersion_description = Lens.lens (\CreateServiceTemplateVersion' {description} -> description) (\s@CreateServiceTemplateVersion' {} a -> s {description = a} :: CreateServiceTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | To create a new minor version of the service template, include a+-- @major Version@.+--+-- To create a new major and minor version of the service template,+-- /exclude/ @major Version@.+createServiceTemplateVersion_majorVersion :: Lens.Lens' CreateServiceTemplateVersion (Prelude.Maybe Prelude.Text)+createServiceTemplateVersion_majorVersion = Lens.lens (\CreateServiceTemplateVersion' {majorVersion} -> majorVersion) (\s@CreateServiceTemplateVersion' {} a -> s {majorVersion = a} :: CreateServiceTemplateVersion)++-- | An array of supported component sources. Components with supported+-- sources can be attached to service instances based on this service+-- template version.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+createServiceTemplateVersion_supportedComponentSources :: Lens.Lens' CreateServiceTemplateVersion (Prelude.Maybe [ServiceTemplateSupportedComponentSourceType])+createServiceTemplateVersion_supportedComponentSources = Lens.lens (\CreateServiceTemplateVersion' {supportedComponentSources} -> supportedComponentSources) (\s@CreateServiceTemplateVersion' {} a -> s {supportedComponentSources = a} :: CreateServiceTemplateVersion) Prelude.. Lens.mapping Lens.coerced++-- | An optional list of metadata items that you can associate with the+-- Proton service template version. A tag is a key-value pair.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+createServiceTemplateVersion_tags :: Lens.Lens' CreateServiceTemplateVersion (Prelude.Maybe [Tag])+createServiceTemplateVersion_tags = Lens.lens (\CreateServiceTemplateVersion' {tags} -> tags) (\s@CreateServiceTemplateVersion' {} a -> s {tags = a} :: CreateServiceTemplateVersion) Prelude.. Lens.mapping Lens.coerced++-- | An array of environment template objects that are compatible with the+-- new service template version. A service instance based on this service+-- template version can run in environments based on compatible templates.+createServiceTemplateVersion_compatibleEnvironmentTemplates :: Lens.Lens' CreateServiceTemplateVersion (Prelude.NonEmpty CompatibleEnvironmentTemplateInput)+createServiceTemplateVersion_compatibleEnvironmentTemplates = Lens.lens (\CreateServiceTemplateVersion' {compatibleEnvironmentTemplates} -> compatibleEnvironmentTemplates) (\s@CreateServiceTemplateVersion' {} a -> s {compatibleEnvironmentTemplates = a} :: CreateServiceTemplateVersion) Prelude.. Lens.coerced++-- | An object that includes the template bundle S3 bucket path and name for+-- the new version of a service template.+createServiceTemplateVersion_source :: Lens.Lens' CreateServiceTemplateVersion TemplateVersionSourceInput+createServiceTemplateVersion_source = Lens.lens (\CreateServiceTemplateVersion' {source} -> source) (\s@CreateServiceTemplateVersion' {} a -> s {source = a} :: CreateServiceTemplateVersion)++-- | The name of the service template.+createServiceTemplateVersion_templateName :: Lens.Lens' CreateServiceTemplateVersion Prelude.Text+createServiceTemplateVersion_templateName = Lens.lens (\CreateServiceTemplateVersion' {templateName} -> templateName) (\s@CreateServiceTemplateVersion' {} a -> s {templateName = a} :: CreateServiceTemplateVersion)++instance Core.AWSRequest CreateServiceTemplateVersion where+  type+    AWSResponse CreateServiceTemplateVersion =+      CreateServiceTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateServiceTemplateVersionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceTemplateVersion")+      )++instance+  Prelude.Hashable+    CreateServiceTemplateVersion+  where+  hashWithSalt _salt CreateServiceTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` supportedComponentSources+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` compatibleEnvironmentTemplates+      `Prelude.hashWithSalt` source+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData CreateServiceTemplateVersion where+  rnf CreateServiceTemplateVersion' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf supportedComponentSources+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf compatibleEnvironmentTemplates+      `Prelude.seq` Prelude.rnf source+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders CreateServiceTemplateVersion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateServiceTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateServiceTemplateVersion where+  toJSON CreateServiceTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("clientToken" Data..=) Prelude.<$> clientToken,+            ("description" Data..=) Prelude.<$> description,+            ("majorVersion" Data..=) Prelude.<$> majorVersion,+            ("supportedComponentSources" Data..=)+              Prelude.<$> supportedComponentSources,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ( "compatibleEnvironmentTemplates"+                  Data..= compatibleEnvironmentTemplates+              ),+            Prelude.Just ("source" Data..= source),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath CreateServiceTemplateVersion where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateServiceTemplateVersion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateServiceTemplateVersionResponse' smart constructor.+data CreateServiceTemplateVersionResponse = CreateServiceTemplateVersionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service template version summary of detail data that\'s returned by+    -- Proton.+    serviceTemplateVersion :: ServiceTemplateVersion+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateServiceTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createServiceTemplateVersionResponse_httpStatus' - The response's http status code.+--+-- 'serviceTemplateVersion', 'createServiceTemplateVersionResponse_serviceTemplateVersion' - The service template version summary of detail data that\'s returned by+-- Proton.+newCreateServiceTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceTemplateVersion'+  ServiceTemplateVersion ->+  CreateServiceTemplateVersionResponse+newCreateServiceTemplateVersionResponse+  pHttpStatus_+  pServiceTemplateVersion_ =+    CreateServiceTemplateVersionResponse'+      { httpStatus =+          pHttpStatus_,+        serviceTemplateVersion =+          pServiceTemplateVersion_+      }++-- | The response's http status code.+createServiceTemplateVersionResponse_httpStatus :: Lens.Lens' CreateServiceTemplateVersionResponse Prelude.Int+createServiceTemplateVersionResponse_httpStatus = Lens.lens (\CreateServiceTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@CreateServiceTemplateVersionResponse' {} a -> s {httpStatus = a} :: CreateServiceTemplateVersionResponse)++-- | The service template version summary of detail data that\'s returned by+-- Proton.+createServiceTemplateVersionResponse_serviceTemplateVersion :: Lens.Lens' CreateServiceTemplateVersionResponse ServiceTemplateVersion+createServiceTemplateVersionResponse_serviceTemplateVersion = Lens.lens (\CreateServiceTemplateVersionResponse' {serviceTemplateVersion} -> serviceTemplateVersion) (\s@CreateServiceTemplateVersionResponse' {} a -> s {serviceTemplateVersion = a} :: CreateServiceTemplateVersionResponse)++instance+  Prelude.NFData+    CreateServiceTemplateVersionResponse+  where+  rnf CreateServiceTemplateVersionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceTemplateVersion
+ gen/Amazonka/Proton/CreateTemplateSyncConfig.hs view
@@ -0,0 +1,273 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.CreateTemplateSyncConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Set up a template to create new template versions automatically by+-- tracking a linked repository. A linked repository is a repository that+-- has been registered with Proton. For more information, see+-- CreateRepository.+--+-- When a commit is pushed to your linked repository, Proton checks for+-- changes to your repository template bundles. If it detects a template+-- bundle change, a new major or minor version of its template is created,+-- if the version doesn’t already exist. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-sync-configs.html Template sync configurations>+-- in the /Proton User Guide/.+module Amazonka.Proton.CreateTemplateSyncConfig+  ( -- * Creating a Request+    CreateTemplateSyncConfig (..),+    newCreateTemplateSyncConfig,++    -- * Request Lenses+    createTemplateSyncConfig_subdirectory,+    createTemplateSyncConfig_branch,+    createTemplateSyncConfig_repositoryName,+    createTemplateSyncConfig_repositoryProvider,+    createTemplateSyncConfig_templateName,+    createTemplateSyncConfig_templateType,++    -- * Destructuring the Response+    CreateTemplateSyncConfigResponse (..),+    newCreateTemplateSyncConfigResponse,++    -- * Response Lenses+    createTemplateSyncConfigResponse_templateSyncConfig,+    createTemplateSyncConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateTemplateSyncConfig' smart constructor.+data CreateTemplateSyncConfig = CreateTemplateSyncConfig'+  { -- | A repository subdirectory path to your template bundle directory. When+    -- included, Proton limits the template bundle search to this repository+    -- directory.+    subdirectory :: Prelude.Maybe Prelude.Text,+    -- | The repository branch for your template.+    branch :: Prelude.Text,+    -- | The repository name (for example, @myrepos\/myrepo@).+    repositoryName :: Prelude.Text,+    -- | The provider type for your repository.+    repositoryProvider :: RepositoryProvider,+    -- | The name of your registered template.+    templateName :: Prelude.Text,+    -- | The type of the registered template.+    templateType :: TemplateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTemplateSyncConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'subdirectory', 'createTemplateSyncConfig_subdirectory' - A repository subdirectory path to your template bundle directory. When+-- included, Proton limits the template bundle search to this repository+-- directory.+--+-- 'branch', 'createTemplateSyncConfig_branch' - The repository branch for your template.+--+-- 'repositoryName', 'createTemplateSyncConfig_repositoryName' - The repository name (for example, @myrepos\/myrepo@).+--+-- 'repositoryProvider', 'createTemplateSyncConfig_repositoryProvider' - The provider type for your repository.+--+-- 'templateName', 'createTemplateSyncConfig_templateName' - The name of your registered template.+--+-- 'templateType', 'createTemplateSyncConfig_templateType' - The type of the registered template.+newCreateTemplateSyncConfig ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'repositoryName'+  Prelude.Text ->+  -- | 'repositoryProvider'+  RepositoryProvider ->+  -- | 'templateName'+  Prelude.Text ->+  -- | 'templateType'+  TemplateType ->+  CreateTemplateSyncConfig+newCreateTemplateSyncConfig+  pBranch_+  pRepositoryName_+  pRepositoryProvider_+  pTemplateName_+  pTemplateType_ =+    CreateTemplateSyncConfig'+      { subdirectory =+          Prelude.Nothing,+        branch = pBranch_,+        repositoryName = pRepositoryName_,+        repositoryProvider = pRepositoryProvider_,+        templateName = pTemplateName_,+        templateType = pTemplateType_+      }++-- | A repository subdirectory path to your template bundle directory. When+-- included, Proton limits the template bundle search to this repository+-- directory.+createTemplateSyncConfig_subdirectory :: Lens.Lens' CreateTemplateSyncConfig (Prelude.Maybe Prelude.Text)+createTemplateSyncConfig_subdirectory = Lens.lens (\CreateTemplateSyncConfig' {subdirectory} -> subdirectory) (\s@CreateTemplateSyncConfig' {} a -> s {subdirectory = a} :: CreateTemplateSyncConfig)++-- | The repository branch for your template.+createTemplateSyncConfig_branch :: Lens.Lens' CreateTemplateSyncConfig Prelude.Text+createTemplateSyncConfig_branch = Lens.lens (\CreateTemplateSyncConfig' {branch} -> branch) (\s@CreateTemplateSyncConfig' {} a -> s {branch = a} :: CreateTemplateSyncConfig)++-- | The repository name (for example, @myrepos\/myrepo@).+createTemplateSyncConfig_repositoryName :: Lens.Lens' CreateTemplateSyncConfig Prelude.Text+createTemplateSyncConfig_repositoryName = Lens.lens (\CreateTemplateSyncConfig' {repositoryName} -> repositoryName) (\s@CreateTemplateSyncConfig' {} a -> s {repositoryName = a} :: CreateTemplateSyncConfig)++-- | The provider type for your repository.+createTemplateSyncConfig_repositoryProvider :: Lens.Lens' CreateTemplateSyncConfig RepositoryProvider+createTemplateSyncConfig_repositoryProvider = Lens.lens (\CreateTemplateSyncConfig' {repositoryProvider} -> repositoryProvider) (\s@CreateTemplateSyncConfig' {} a -> s {repositoryProvider = a} :: CreateTemplateSyncConfig)++-- | The name of your registered template.+createTemplateSyncConfig_templateName :: Lens.Lens' CreateTemplateSyncConfig Prelude.Text+createTemplateSyncConfig_templateName = Lens.lens (\CreateTemplateSyncConfig' {templateName} -> templateName) (\s@CreateTemplateSyncConfig' {} a -> s {templateName = a} :: CreateTemplateSyncConfig)++-- | The type of the registered template.+createTemplateSyncConfig_templateType :: Lens.Lens' CreateTemplateSyncConfig TemplateType+createTemplateSyncConfig_templateType = Lens.lens (\CreateTemplateSyncConfig' {templateType} -> templateType) (\s@CreateTemplateSyncConfig' {} a -> s {templateType = a} :: CreateTemplateSyncConfig)++instance Core.AWSRequest CreateTemplateSyncConfig where+  type+    AWSResponse CreateTemplateSyncConfig =+      CreateTemplateSyncConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateTemplateSyncConfigResponse'+            Prelude.<$> (x Data..?> "templateSyncConfig")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateTemplateSyncConfig where+  hashWithSalt _salt CreateTemplateSyncConfig' {..} =+    _salt+      `Prelude.hashWithSalt` subdirectory+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` repositoryName+      `Prelude.hashWithSalt` repositoryProvider+      `Prelude.hashWithSalt` templateName+      `Prelude.hashWithSalt` templateType++instance Prelude.NFData CreateTemplateSyncConfig where+  rnf CreateTemplateSyncConfig' {..} =+    Prelude.rnf subdirectory+      `Prelude.seq` Prelude.rnf branch+      `Prelude.seq` Prelude.rnf repositoryName+      `Prelude.seq` Prelude.rnf repositoryProvider+      `Prelude.seq` Prelude.rnf templateName+      `Prelude.seq` Prelude.rnf templateType++instance Data.ToHeaders CreateTemplateSyncConfig where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.CreateTemplateSyncConfig" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateTemplateSyncConfig where+  toJSON CreateTemplateSyncConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("subdirectory" Data..=) Prelude.<$> subdirectory,+            Prelude.Just ("branch" Data..= branch),+            Prelude.Just+              ("repositoryName" Data..= repositoryName),+            Prelude.Just+              ("repositoryProvider" Data..= repositoryProvider),+            Prelude.Just ("templateName" Data..= templateName),+            Prelude.Just ("templateType" Data..= templateType)+          ]+      )++instance Data.ToPath CreateTemplateSyncConfig where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateTemplateSyncConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateTemplateSyncConfigResponse' smart constructor.+data CreateTemplateSyncConfigResponse = CreateTemplateSyncConfigResponse'+  { -- | The template sync configuration detail data that\'s returned by Proton.+    templateSyncConfig :: Prelude.Maybe TemplateSyncConfig,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTemplateSyncConfigResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateSyncConfig', 'createTemplateSyncConfigResponse_templateSyncConfig' - The template sync configuration detail data that\'s returned by Proton.+--+-- 'httpStatus', 'createTemplateSyncConfigResponse_httpStatus' - The response's http status code.+newCreateTemplateSyncConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateTemplateSyncConfigResponse+newCreateTemplateSyncConfigResponse pHttpStatus_ =+  CreateTemplateSyncConfigResponse'+    { templateSyncConfig =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The template sync configuration detail data that\'s returned by Proton.+createTemplateSyncConfigResponse_templateSyncConfig :: Lens.Lens' CreateTemplateSyncConfigResponse (Prelude.Maybe TemplateSyncConfig)+createTemplateSyncConfigResponse_templateSyncConfig = Lens.lens (\CreateTemplateSyncConfigResponse' {templateSyncConfig} -> templateSyncConfig) (\s@CreateTemplateSyncConfigResponse' {} a -> s {templateSyncConfig = a} :: CreateTemplateSyncConfigResponse)++-- | The response's http status code.+createTemplateSyncConfigResponse_httpStatus :: Lens.Lens' CreateTemplateSyncConfigResponse Prelude.Int+createTemplateSyncConfigResponse_httpStatus = Lens.lens (\CreateTemplateSyncConfigResponse' {httpStatus} -> httpStatus) (\s@CreateTemplateSyncConfigResponse' {} a -> s {httpStatus = a} :: CreateTemplateSyncConfigResponse)++instance+  Prelude.NFData+    CreateTemplateSyncConfigResponse+  where+  rnf CreateTemplateSyncConfigResponse' {..} =+    Prelude.rnf templateSyncConfig+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteComponent.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteComponent+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an Proton component resource.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.DeleteComponent+  ( -- * Creating a Request+    DeleteComponent (..),+    newDeleteComponent,++    -- * Request Lenses+    deleteComponent_name,++    -- * Destructuring the Response+    DeleteComponentResponse (..),+    newDeleteComponentResponse,++    -- * Response Lenses+    deleteComponentResponse_component,+    deleteComponentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteComponent' smart constructor.+data DeleteComponent = DeleteComponent'+  { -- | The name of the component to delete.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteComponent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteComponent_name' - The name of the component to delete.+newDeleteComponent ::+  -- | 'name'+  Prelude.Text ->+  DeleteComponent+newDeleteComponent pName_ =+  DeleteComponent' {name = pName_}++-- | The name of the component to delete.+deleteComponent_name :: Lens.Lens' DeleteComponent Prelude.Text+deleteComponent_name = Lens.lens (\DeleteComponent' {name} -> name) (\s@DeleteComponent' {} a -> s {name = a} :: DeleteComponent)++instance Core.AWSRequest DeleteComponent where+  type+    AWSResponse DeleteComponent =+      DeleteComponentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteComponentResponse'+            Prelude.<$> (x Data..?> "component")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteComponent where+  hashWithSalt _salt DeleteComponent' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteComponent where+  rnf DeleteComponent' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteComponent where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteComponent" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteComponent where+  toJSON DeleteComponent' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath DeleteComponent where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteComponent where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteComponentResponse' smart constructor.+data DeleteComponentResponse = DeleteComponentResponse'+  { -- | The detailed data of the component being deleted.+    component :: Prelude.Maybe Component,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteComponentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'component', 'deleteComponentResponse_component' - The detailed data of the component being deleted.+--+-- 'httpStatus', 'deleteComponentResponse_httpStatus' - The response's http status code.+newDeleteComponentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteComponentResponse+newDeleteComponentResponse pHttpStatus_ =+  DeleteComponentResponse'+    { component =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the component being deleted.+deleteComponentResponse_component :: Lens.Lens' DeleteComponentResponse (Prelude.Maybe Component)+deleteComponentResponse_component = Lens.lens (\DeleteComponentResponse' {component} -> component) (\s@DeleteComponentResponse' {} a -> s {component = a} :: DeleteComponentResponse)++-- | The response's http status code.+deleteComponentResponse_httpStatus :: Lens.Lens' DeleteComponentResponse Prelude.Int+deleteComponentResponse_httpStatus = Lens.lens (\DeleteComponentResponse' {httpStatus} -> httpStatus) (\s@DeleteComponentResponse' {} a -> s {httpStatus = a} :: DeleteComponentResponse)++instance Prelude.NFData DeleteComponentResponse where+  rnf DeleteComponentResponse' {..} =+    Prelude.rnf component+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteEnvironment.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteEnvironment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an environment.+module Amazonka.Proton.DeleteEnvironment+  ( -- * Creating a Request+    DeleteEnvironment (..),+    newDeleteEnvironment,++    -- * Request Lenses+    deleteEnvironment_name,++    -- * Destructuring the Response+    DeleteEnvironmentResponse (..),+    newDeleteEnvironmentResponse,++    -- * Response Lenses+    deleteEnvironmentResponse_environment,+    deleteEnvironmentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteEnvironment' smart constructor.+data DeleteEnvironment = DeleteEnvironment'+  { -- | The name of the environment to delete.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteEnvironment_name' - The name of the environment to delete.+newDeleteEnvironment ::+  -- | 'name'+  Prelude.Text ->+  DeleteEnvironment+newDeleteEnvironment pName_ =+  DeleteEnvironment' {name = pName_}++-- | The name of the environment to delete.+deleteEnvironment_name :: Lens.Lens' DeleteEnvironment Prelude.Text+deleteEnvironment_name = Lens.lens (\DeleteEnvironment' {name} -> name) (\s@DeleteEnvironment' {} a -> s {name = a} :: DeleteEnvironment)++instance Core.AWSRequest DeleteEnvironment where+  type+    AWSResponse DeleteEnvironment =+      DeleteEnvironmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteEnvironmentResponse'+            Prelude.<$> (x Data..?> "environment")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteEnvironment where+  hashWithSalt _salt DeleteEnvironment' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteEnvironment where+  rnf DeleteEnvironment' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteEnvironment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteEnvironment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteEnvironment where+  toJSON DeleteEnvironment' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath DeleteEnvironment where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteEnvironment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteEnvironmentResponse' smart constructor.+data DeleteEnvironmentResponse = DeleteEnvironmentResponse'+  { -- | The detailed data of the environment being deleted.+    environment :: Prelude.Maybe Environment,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environment', 'deleteEnvironmentResponse_environment' - The detailed data of the environment being deleted.+--+-- 'httpStatus', 'deleteEnvironmentResponse_httpStatus' - The response's http status code.+newDeleteEnvironmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteEnvironmentResponse+newDeleteEnvironmentResponse pHttpStatus_ =+  DeleteEnvironmentResponse'+    { environment =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the environment being deleted.+deleteEnvironmentResponse_environment :: Lens.Lens' DeleteEnvironmentResponse (Prelude.Maybe Environment)+deleteEnvironmentResponse_environment = Lens.lens (\DeleteEnvironmentResponse' {environment} -> environment) (\s@DeleteEnvironmentResponse' {} a -> s {environment = a} :: DeleteEnvironmentResponse)++-- | The response's http status code.+deleteEnvironmentResponse_httpStatus :: Lens.Lens' DeleteEnvironmentResponse Prelude.Int+deleteEnvironmentResponse_httpStatus = Lens.lens (\DeleteEnvironmentResponse' {httpStatus} -> httpStatus) (\s@DeleteEnvironmentResponse' {} a -> s {httpStatus = a} :: DeleteEnvironmentResponse)++instance Prelude.NFData DeleteEnvironmentResponse where+  rnf DeleteEnvironmentResponse' {..} =+    Prelude.rnf environment+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteEnvironmentAccountConnection.hs view
@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteEnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- In an environment account, delete an environment account connection.+--+-- After you delete an environment account connection that’s in use by an+-- Proton environment, Proton /can’t/ manage the environment infrastructure+-- resources until a new environment account connection is accepted for the+-- environment account and associated environment. You\'re responsible for+-- cleaning up provisioned resources that remain without an environment+-- connection.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+module Amazonka.Proton.DeleteEnvironmentAccountConnection+  ( -- * Creating a Request+    DeleteEnvironmentAccountConnection (..),+    newDeleteEnvironmentAccountConnection,++    -- * Request Lenses+    deleteEnvironmentAccountConnection_id,++    -- * Destructuring the Response+    DeleteEnvironmentAccountConnectionResponse (..),+    newDeleteEnvironmentAccountConnectionResponse,++    -- * Response Lenses+    deleteEnvironmentAccountConnectionResponse_environmentAccountConnection,+    deleteEnvironmentAccountConnectionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteEnvironmentAccountConnection' smart constructor.+data DeleteEnvironmentAccountConnection = DeleteEnvironmentAccountConnection'+  { -- | The ID of the environment account connection to delete.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'deleteEnvironmentAccountConnection_id' - The ID of the environment account connection to delete.+newDeleteEnvironmentAccountConnection ::+  -- | 'id'+  Prelude.Text ->+  DeleteEnvironmentAccountConnection+newDeleteEnvironmentAccountConnection pId_ =+  DeleteEnvironmentAccountConnection' {id = pId_}++-- | The ID of the environment account connection to delete.+deleteEnvironmentAccountConnection_id :: Lens.Lens' DeleteEnvironmentAccountConnection Prelude.Text+deleteEnvironmentAccountConnection_id = Lens.lens (\DeleteEnvironmentAccountConnection' {id} -> id) (\s@DeleteEnvironmentAccountConnection' {} a -> s {id = a} :: DeleteEnvironmentAccountConnection)++instance+  Core.AWSRequest+    DeleteEnvironmentAccountConnection+  where+  type+    AWSResponse DeleteEnvironmentAccountConnection =+      DeleteEnvironmentAccountConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteEnvironmentAccountConnectionResponse'+            Prelude.<$> (x Data..?> "environmentAccountConnection")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DeleteEnvironmentAccountConnection+  where+  hashWithSalt+    _salt+    DeleteEnvironmentAccountConnection' {..} =+      _salt `Prelude.hashWithSalt` id++instance+  Prelude.NFData+    DeleteEnvironmentAccountConnection+  where+  rnf DeleteEnvironmentAccountConnection' {..} =+    Prelude.rnf id++instance+  Data.ToHeaders+    DeleteEnvironmentAccountConnection+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteEnvironmentAccountConnection" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DeleteEnvironmentAccountConnection+  where+  toJSON DeleteEnvironmentAccountConnection' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("id" Data..= id)])++instance+  Data.ToPath+    DeleteEnvironmentAccountConnection+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DeleteEnvironmentAccountConnection+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteEnvironmentAccountConnectionResponse' smart constructor.+data DeleteEnvironmentAccountConnectionResponse = DeleteEnvironmentAccountConnectionResponse'+  { -- | The detailed data of the environment account connection being deleted.+    environmentAccountConnection :: Prelude.Maybe EnvironmentAccountConnection,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentAccountConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentAccountConnection', 'deleteEnvironmentAccountConnectionResponse_environmentAccountConnection' - The detailed data of the environment account connection being deleted.+--+-- 'httpStatus', 'deleteEnvironmentAccountConnectionResponse_httpStatus' - The response's http status code.+newDeleteEnvironmentAccountConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteEnvironmentAccountConnectionResponse+newDeleteEnvironmentAccountConnectionResponse+  pHttpStatus_ =+    DeleteEnvironmentAccountConnectionResponse'+      { environmentAccountConnection =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The detailed data of the environment account connection being deleted.+deleteEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' DeleteEnvironmentAccountConnectionResponse (Prelude.Maybe EnvironmentAccountConnection)+deleteEnvironmentAccountConnectionResponse_environmentAccountConnection = Lens.lens (\DeleteEnvironmentAccountConnectionResponse' {environmentAccountConnection} -> environmentAccountConnection) (\s@DeleteEnvironmentAccountConnectionResponse' {} a -> s {environmentAccountConnection = a} :: DeleteEnvironmentAccountConnectionResponse)++-- | The response's http status code.+deleteEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' DeleteEnvironmentAccountConnectionResponse Prelude.Int+deleteEnvironmentAccountConnectionResponse_httpStatus = Lens.lens (\DeleteEnvironmentAccountConnectionResponse' {httpStatus} -> httpStatus) (\s@DeleteEnvironmentAccountConnectionResponse' {} a -> s {httpStatus = a} :: DeleteEnvironmentAccountConnectionResponse)++instance+  Prelude.NFData+    DeleteEnvironmentAccountConnectionResponse+  where+  rnf DeleteEnvironmentAccountConnectionResponse' {..} =+    Prelude.rnf environmentAccountConnection+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteEnvironmentTemplate.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteEnvironmentTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- If no other major or minor versions of an environment template exist,+-- delete the environment template.+module Amazonka.Proton.DeleteEnvironmentTemplate+  ( -- * Creating a Request+    DeleteEnvironmentTemplate (..),+    newDeleteEnvironmentTemplate,++    -- * Request Lenses+    deleteEnvironmentTemplate_name,++    -- * Destructuring the Response+    DeleteEnvironmentTemplateResponse (..),+    newDeleteEnvironmentTemplateResponse,++    -- * Response Lenses+    deleteEnvironmentTemplateResponse_environmentTemplate,+    deleteEnvironmentTemplateResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteEnvironmentTemplate' smart constructor.+data DeleteEnvironmentTemplate = DeleteEnvironmentTemplate'+  { -- | The name of the environment template to delete.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteEnvironmentTemplate_name' - The name of the environment template to delete.+newDeleteEnvironmentTemplate ::+  -- | 'name'+  Prelude.Text ->+  DeleteEnvironmentTemplate+newDeleteEnvironmentTemplate pName_ =+  DeleteEnvironmentTemplate' {name = pName_}++-- | The name of the environment template to delete.+deleteEnvironmentTemplate_name :: Lens.Lens' DeleteEnvironmentTemplate Prelude.Text+deleteEnvironmentTemplate_name = Lens.lens (\DeleteEnvironmentTemplate' {name} -> name) (\s@DeleteEnvironmentTemplate' {} a -> s {name = a} :: DeleteEnvironmentTemplate)++instance Core.AWSRequest DeleteEnvironmentTemplate where+  type+    AWSResponse DeleteEnvironmentTemplate =+      DeleteEnvironmentTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteEnvironmentTemplateResponse'+            Prelude.<$> (x Data..?> "environmentTemplate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteEnvironmentTemplate where+  hashWithSalt _salt DeleteEnvironmentTemplate' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteEnvironmentTemplate where+  rnf DeleteEnvironmentTemplate' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteEnvironmentTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteEnvironmentTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteEnvironmentTemplate where+  toJSON DeleteEnvironmentTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath DeleteEnvironmentTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteEnvironmentTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteEnvironmentTemplateResponse' smart constructor.+data DeleteEnvironmentTemplateResponse = DeleteEnvironmentTemplateResponse'+  { -- | The detailed data of the environment template being deleted.+    environmentTemplate :: Prelude.Maybe EnvironmentTemplate,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentTemplate', 'deleteEnvironmentTemplateResponse_environmentTemplate' - The detailed data of the environment template being deleted.+--+-- 'httpStatus', 'deleteEnvironmentTemplateResponse_httpStatus' - The response's http status code.+newDeleteEnvironmentTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteEnvironmentTemplateResponse+newDeleteEnvironmentTemplateResponse pHttpStatus_ =+  DeleteEnvironmentTemplateResponse'+    { environmentTemplate =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the environment template being deleted.+deleteEnvironmentTemplateResponse_environmentTemplate :: Lens.Lens' DeleteEnvironmentTemplateResponse (Prelude.Maybe EnvironmentTemplate)+deleteEnvironmentTemplateResponse_environmentTemplate = Lens.lens (\DeleteEnvironmentTemplateResponse' {environmentTemplate} -> environmentTemplate) (\s@DeleteEnvironmentTemplateResponse' {} a -> s {environmentTemplate = a} :: DeleteEnvironmentTemplateResponse)++-- | The response's http status code.+deleteEnvironmentTemplateResponse_httpStatus :: Lens.Lens' DeleteEnvironmentTemplateResponse Prelude.Int+deleteEnvironmentTemplateResponse_httpStatus = Lens.lens (\DeleteEnvironmentTemplateResponse' {httpStatus} -> httpStatus) (\s@DeleteEnvironmentTemplateResponse' {} a -> s {httpStatus = a} :: DeleteEnvironmentTemplateResponse)++instance+  Prelude.NFData+    DeleteEnvironmentTemplateResponse+  where+  rnf DeleteEnvironmentTemplateResponse' {..} =+    Prelude.rnf environmentTemplate+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteEnvironmentTemplateVersion.hs view
@@ -0,0 +1,239 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteEnvironmentTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- If no other minor versions of an environment template exist, delete a+-- major version of the environment template if it\'s not the @Recommended@+-- version. Delete the @Recommended@ version of the environment template if+-- no other major versions or minor versions of the environment template+-- exist. A major version of an environment template is a version that\'s+-- not backward compatible.+--+-- Delete a minor version of an environment template if it /isn\'t/ the+-- @Recommended@ version. Delete a @Recommended@ minor version of the+-- environment template if no other minor versions of the environment+-- template exist. A minor version of an environment template is a version+-- that\'s backward compatible.+module Amazonka.Proton.DeleteEnvironmentTemplateVersion+  ( -- * Creating a Request+    DeleteEnvironmentTemplateVersion (..),+    newDeleteEnvironmentTemplateVersion,++    -- * Request Lenses+    deleteEnvironmentTemplateVersion_majorVersion,+    deleteEnvironmentTemplateVersion_minorVersion,+    deleteEnvironmentTemplateVersion_templateName,++    -- * Destructuring the Response+    DeleteEnvironmentTemplateVersionResponse (..),+    newDeleteEnvironmentTemplateVersionResponse,++    -- * Response Lenses+    deleteEnvironmentTemplateVersionResponse_environmentTemplateVersion,+    deleteEnvironmentTemplateVersionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteEnvironmentTemplateVersion' smart constructor.+data DeleteEnvironmentTemplateVersion = DeleteEnvironmentTemplateVersion'+  { -- | The environment template major version to delete.+    majorVersion :: Prelude.Text,+    -- | The environment template minor version to delete.+    minorVersion :: Prelude.Text,+    -- | The name of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'deleteEnvironmentTemplateVersion_majorVersion' - The environment template major version to delete.+--+-- 'minorVersion', 'deleteEnvironmentTemplateVersion_minorVersion' - The environment template minor version to delete.+--+-- 'templateName', 'deleteEnvironmentTemplateVersion_templateName' - The name of the environment template.+newDeleteEnvironmentTemplateVersion ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  DeleteEnvironmentTemplateVersion+newDeleteEnvironmentTemplateVersion+  pMajorVersion_+  pMinorVersion_+  pTemplateName_ =+    DeleteEnvironmentTemplateVersion'+      { majorVersion =+          pMajorVersion_,+        minorVersion = pMinorVersion_,+        templateName = pTemplateName_+      }++-- | The environment template major version to delete.+deleteEnvironmentTemplateVersion_majorVersion :: Lens.Lens' DeleteEnvironmentTemplateVersion Prelude.Text+deleteEnvironmentTemplateVersion_majorVersion = Lens.lens (\DeleteEnvironmentTemplateVersion' {majorVersion} -> majorVersion) (\s@DeleteEnvironmentTemplateVersion' {} a -> s {majorVersion = a} :: DeleteEnvironmentTemplateVersion)++-- | The environment template minor version to delete.+deleteEnvironmentTemplateVersion_minorVersion :: Lens.Lens' DeleteEnvironmentTemplateVersion Prelude.Text+deleteEnvironmentTemplateVersion_minorVersion = Lens.lens (\DeleteEnvironmentTemplateVersion' {minorVersion} -> minorVersion) (\s@DeleteEnvironmentTemplateVersion' {} a -> s {minorVersion = a} :: DeleteEnvironmentTemplateVersion)++-- | The name of the environment template.+deleteEnvironmentTemplateVersion_templateName :: Lens.Lens' DeleteEnvironmentTemplateVersion Prelude.Text+deleteEnvironmentTemplateVersion_templateName = Lens.lens (\DeleteEnvironmentTemplateVersion' {templateName} -> templateName) (\s@DeleteEnvironmentTemplateVersion' {} a -> s {templateName = a} :: DeleteEnvironmentTemplateVersion)++instance+  Core.AWSRequest+    DeleteEnvironmentTemplateVersion+  where+  type+    AWSResponse DeleteEnvironmentTemplateVersion =+      DeleteEnvironmentTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteEnvironmentTemplateVersionResponse'+            Prelude.<$> (x Data..?> "environmentTemplateVersion")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DeleteEnvironmentTemplateVersion+  where+  hashWithSalt+    _salt+    DeleteEnvironmentTemplateVersion' {..} =+      _salt+        `Prelude.hashWithSalt` majorVersion+        `Prelude.hashWithSalt` minorVersion+        `Prelude.hashWithSalt` templateName++instance+  Prelude.NFData+    DeleteEnvironmentTemplateVersion+  where+  rnf DeleteEnvironmentTemplateVersion' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf templateName++instance+  Data.ToHeaders+    DeleteEnvironmentTemplateVersion+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteEnvironmentTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteEnvironmentTemplateVersion where+  toJSON DeleteEnvironmentTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("minorVersion" Data..= minorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath DeleteEnvironmentTemplateVersion where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DeleteEnvironmentTemplateVersion+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteEnvironmentTemplateVersionResponse' smart constructor.+data DeleteEnvironmentTemplateVersionResponse = DeleteEnvironmentTemplateVersionResponse'+  { -- | The detailed data of the environment template version being deleted.+    environmentTemplateVersion :: Prelude.Maybe EnvironmentTemplateVersion,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEnvironmentTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentTemplateVersion', 'deleteEnvironmentTemplateVersionResponse_environmentTemplateVersion' - The detailed data of the environment template version being deleted.+--+-- 'httpStatus', 'deleteEnvironmentTemplateVersionResponse_httpStatus' - The response's http status code.+newDeleteEnvironmentTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteEnvironmentTemplateVersionResponse+newDeleteEnvironmentTemplateVersionResponse+  pHttpStatus_ =+    DeleteEnvironmentTemplateVersionResponse'+      { environmentTemplateVersion =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The detailed data of the environment template version being deleted.+deleteEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens.Lens' DeleteEnvironmentTemplateVersionResponse (Prelude.Maybe EnvironmentTemplateVersion)+deleteEnvironmentTemplateVersionResponse_environmentTemplateVersion = Lens.lens (\DeleteEnvironmentTemplateVersionResponse' {environmentTemplateVersion} -> environmentTemplateVersion) (\s@DeleteEnvironmentTemplateVersionResponse' {} a -> s {environmentTemplateVersion = a} :: DeleteEnvironmentTemplateVersionResponse)++-- | The response's http status code.+deleteEnvironmentTemplateVersionResponse_httpStatus :: Lens.Lens' DeleteEnvironmentTemplateVersionResponse Prelude.Int+deleteEnvironmentTemplateVersionResponse_httpStatus = Lens.lens (\DeleteEnvironmentTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@DeleteEnvironmentTemplateVersionResponse' {} a -> s {httpStatus = a} :: DeleteEnvironmentTemplateVersionResponse)++instance+  Prelude.NFData+    DeleteEnvironmentTemplateVersionResponse+  where+  rnf DeleteEnvironmentTemplateVersionResponse' {..} =+    Prelude.rnf environmentTemplateVersion+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteRepository.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteRepository+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- De-register and unlink your repository.+module Amazonka.Proton.DeleteRepository+  ( -- * Creating a Request+    DeleteRepository (..),+    newDeleteRepository,++    -- * Request Lenses+    deleteRepository_name,+    deleteRepository_provider,++    -- * Destructuring the Response+    DeleteRepositoryResponse (..),+    newDeleteRepositoryResponse,++    -- * Response Lenses+    deleteRepositoryResponse_repository,+    deleteRepositoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteRepository' smart constructor.+data DeleteRepository = DeleteRepository'+  { -- | The repository name.+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRepository' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteRepository_name' - The repository name.+--+-- 'provider', 'deleteRepository_provider' - The repository provider.+newDeleteRepository ::+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  DeleteRepository+newDeleteRepository pName_ pProvider_ =+  DeleteRepository'+    { name = pName_,+      provider = pProvider_+    }++-- | The repository name.+deleteRepository_name :: Lens.Lens' DeleteRepository Prelude.Text+deleteRepository_name = Lens.lens (\DeleteRepository' {name} -> name) (\s@DeleteRepository' {} a -> s {name = a} :: DeleteRepository)++-- | The repository provider.+deleteRepository_provider :: Lens.Lens' DeleteRepository RepositoryProvider+deleteRepository_provider = Lens.lens (\DeleteRepository' {provider} -> provider) (\s@DeleteRepository' {} a -> s {provider = a} :: DeleteRepository)++instance Core.AWSRequest DeleteRepository where+  type+    AWSResponse DeleteRepository =+      DeleteRepositoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteRepositoryResponse'+            Prelude.<$> (x Data..?> "repository")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteRepository where+  hashWithSalt _salt DeleteRepository' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData DeleteRepository where+  rnf DeleteRepository' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf provider++instance Data.ToHeaders DeleteRepository where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteRepository" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteRepository where+  toJSON DeleteRepository' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("name" Data..= name),+            Prelude.Just ("provider" Data..= provider)+          ]+      )++instance Data.ToPath DeleteRepository where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteRepository where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteRepositoryResponse' smart constructor.+data DeleteRepositoryResponse = DeleteRepositoryResponse'+  { -- | The deleted repository link\'s detail data that\'s returned by Proton.+    repository :: Prelude.Maybe Repository,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRepositoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'repository', 'deleteRepositoryResponse_repository' - The deleted repository link\'s detail data that\'s returned by Proton.+--+-- 'httpStatus', 'deleteRepositoryResponse_httpStatus' - The response's http status code.+newDeleteRepositoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteRepositoryResponse+newDeleteRepositoryResponse pHttpStatus_ =+  DeleteRepositoryResponse'+    { repository =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The deleted repository link\'s detail data that\'s returned by Proton.+deleteRepositoryResponse_repository :: Lens.Lens' DeleteRepositoryResponse (Prelude.Maybe Repository)+deleteRepositoryResponse_repository = Lens.lens (\DeleteRepositoryResponse' {repository} -> repository) (\s@DeleteRepositoryResponse' {} a -> s {repository = a} :: DeleteRepositoryResponse)++-- | The response's http status code.+deleteRepositoryResponse_httpStatus :: Lens.Lens' DeleteRepositoryResponse Prelude.Int+deleteRepositoryResponse_httpStatus = Lens.lens (\DeleteRepositoryResponse' {httpStatus} -> httpStatus) (\s@DeleteRepositoryResponse' {} a -> s {httpStatus = a} :: DeleteRepositoryResponse)++instance Prelude.NFData DeleteRepositoryResponse where+  rnf DeleteRepositoryResponse' {..} =+    Prelude.rnf repository+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteService.hs view
@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete a service, with its instances and pipeline.+--+-- You can\'t delete a service if it has any service instances that have+-- components attached to them.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.DeleteService+  ( -- * Creating a Request+    DeleteService (..),+    newDeleteService,++    -- * Request Lenses+    deleteService_name,++    -- * Destructuring the Response+    DeleteServiceResponse (..),+    newDeleteServiceResponse,++    -- * Response Lenses+    deleteServiceResponse_service,+    deleteServiceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteService' smart constructor.+data DeleteService = DeleteService'+  { -- | The name of the service to delete.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteService' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteService_name' - The name of the service to delete.+newDeleteService ::+  -- | 'name'+  Prelude.Text ->+  DeleteService+newDeleteService pName_ =+  DeleteService' {name = pName_}++-- | The name of the service to delete.+deleteService_name :: Lens.Lens' DeleteService Prelude.Text+deleteService_name = Lens.lens (\DeleteService' {name} -> name) (\s@DeleteService' {} a -> s {name = a} :: DeleteService)++instance Core.AWSRequest DeleteService where+  type+    AWSResponse DeleteService =+      DeleteServiceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteServiceResponse'+            Prelude.<$> (x Data..?> "service")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteService where+  hashWithSalt _salt DeleteService' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteService where+  rnf DeleteService' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteService where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteService" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteService where+  toJSON DeleteService' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath DeleteService where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteService where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteServiceResponse' smart constructor.+data DeleteServiceResponse = DeleteServiceResponse'+  { -- | The detailed data of the service being deleted.+    service :: Prelude.Maybe Service,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServiceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'service', 'deleteServiceResponse_service' - The detailed data of the service being deleted.+--+-- 'httpStatus', 'deleteServiceResponse_httpStatus' - The response's http status code.+newDeleteServiceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteServiceResponse+newDeleteServiceResponse pHttpStatus_ =+  DeleteServiceResponse'+    { service = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the service being deleted.+deleteServiceResponse_service :: Lens.Lens' DeleteServiceResponse (Prelude.Maybe Service)+deleteServiceResponse_service = Lens.lens (\DeleteServiceResponse' {service} -> service) (\s@DeleteServiceResponse' {} a -> s {service = a} :: DeleteServiceResponse)++-- | The response's http status code.+deleteServiceResponse_httpStatus :: Lens.Lens' DeleteServiceResponse Prelude.Int+deleteServiceResponse_httpStatus = Lens.lens (\DeleteServiceResponse' {httpStatus} -> httpStatus) (\s@DeleteServiceResponse' {} a -> s {httpStatus = a} :: DeleteServiceResponse)++instance Prelude.NFData DeleteServiceResponse where+  rnf DeleteServiceResponse' {..} =+    Prelude.rnf service+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteServiceTemplate.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteServiceTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- If no other major or minor versions of the service template exist,+-- delete the service template.+module Amazonka.Proton.DeleteServiceTemplate+  ( -- * Creating a Request+    DeleteServiceTemplate (..),+    newDeleteServiceTemplate,++    -- * Request Lenses+    deleteServiceTemplate_name,++    -- * Destructuring the Response+    DeleteServiceTemplateResponse (..),+    newDeleteServiceTemplateResponse,++    -- * Response Lenses+    deleteServiceTemplateResponse_serviceTemplate,+    deleteServiceTemplateResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteServiceTemplate' smart constructor.+data DeleteServiceTemplate = DeleteServiceTemplate'+  { -- | The name of the service template to delete.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServiceTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteServiceTemplate_name' - The name of the service template to delete.+newDeleteServiceTemplate ::+  -- | 'name'+  Prelude.Text ->+  DeleteServiceTemplate+newDeleteServiceTemplate pName_ =+  DeleteServiceTemplate' {name = pName_}++-- | The name of the service template to delete.+deleteServiceTemplate_name :: Lens.Lens' DeleteServiceTemplate Prelude.Text+deleteServiceTemplate_name = Lens.lens (\DeleteServiceTemplate' {name} -> name) (\s@DeleteServiceTemplate' {} a -> s {name = a} :: DeleteServiceTemplate)++instance Core.AWSRequest DeleteServiceTemplate where+  type+    AWSResponse DeleteServiceTemplate =+      DeleteServiceTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteServiceTemplateResponse'+            Prelude.<$> (x Data..?> "serviceTemplate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteServiceTemplate where+  hashWithSalt _salt DeleteServiceTemplate' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteServiceTemplate where+  rnf DeleteServiceTemplate' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteServiceTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteServiceTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteServiceTemplate where+  toJSON DeleteServiceTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath DeleteServiceTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteServiceTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteServiceTemplateResponse' smart constructor.+data DeleteServiceTemplateResponse = DeleteServiceTemplateResponse'+  { -- | The detailed data of the service template being deleted.+    serviceTemplate :: Prelude.Maybe ServiceTemplate,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServiceTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'serviceTemplate', 'deleteServiceTemplateResponse_serviceTemplate' - The detailed data of the service template being deleted.+--+-- 'httpStatus', 'deleteServiceTemplateResponse_httpStatus' - The response's http status code.+newDeleteServiceTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteServiceTemplateResponse+newDeleteServiceTemplateResponse pHttpStatus_ =+  DeleteServiceTemplateResponse'+    { serviceTemplate =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the service template being deleted.+deleteServiceTemplateResponse_serviceTemplate :: Lens.Lens' DeleteServiceTemplateResponse (Prelude.Maybe ServiceTemplate)+deleteServiceTemplateResponse_serviceTemplate = Lens.lens (\DeleteServiceTemplateResponse' {serviceTemplate} -> serviceTemplate) (\s@DeleteServiceTemplateResponse' {} a -> s {serviceTemplate = a} :: DeleteServiceTemplateResponse)++-- | The response's http status code.+deleteServiceTemplateResponse_httpStatus :: Lens.Lens' DeleteServiceTemplateResponse Prelude.Int+deleteServiceTemplateResponse_httpStatus = Lens.lens (\DeleteServiceTemplateResponse' {httpStatus} -> httpStatus) (\s@DeleteServiceTemplateResponse' {} a -> s {httpStatus = a} :: DeleteServiceTemplateResponse)++instance Prelude.NFData DeleteServiceTemplateResponse where+  rnf DeleteServiceTemplateResponse' {..} =+    Prelude.rnf serviceTemplate+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteServiceTemplateVersion.hs view
@@ -0,0 +1,224 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteServiceTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- If no other minor versions of a service template exist, delete a major+-- version of the service template if it\'s not the @Recommended@ version.+-- Delete the @Recommended@ version of the service template if no other+-- major versions or minor versions of the service template exist. A major+-- version of a service template is a version that /isn\'t/ backwards+-- compatible.+--+-- Delete a minor version of a service template if it\'s not the+-- @Recommended@ version. Delete a @Recommended@ minor version of the+-- service template if no other minor versions of the service template+-- exist. A minor version of a service template is a version that\'s+-- backwards compatible.+module Amazonka.Proton.DeleteServiceTemplateVersion+  ( -- * Creating a Request+    DeleteServiceTemplateVersion (..),+    newDeleteServiceTemplateVersion,++    -- * Request Lenses+    deleteServiceTemplateVersion_majorVersion,+    deleteServiceTemplateVersion_minorVersion,+    deleteServiceTemplateVersion_templateName,++    -- * Destructuring the Response+    DeleteServiceTemplateVersionResponse (..),+    newDeleteServiceTemplateVersionResponse,++    -- * Response Lenses+    deleteServiceTemplateVersionResponse_serviceTemplateVersion,+    deleteServiceTemplateVersionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteServiceTemplateVersion' smart constructor.+data DeleteServiceTemplateVersion = DeleteServiceTemplateVersion'+  { -- | The service template major version to delete.+    majorVersion :: Prelude.Text,+    -- | The service template minor version to delete.+    minorVersion :: Prelude.Text,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServiceTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'deleteServiceTemplateVersion_majorVersion' - The service template major version to delete.+--+-- 'minorVersion', 'deleteServiceTemplateVersion_minorVersion' - The service template minor version to delete.+--+-- 'templateName', 'deleteServiceTemplateVersion_templateName' - The name of the service template.+newDeleteServiceTemplateVersion ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  DeleteServiceTemplateVersion+newDeleteServiceTemplateVersion+  pMajorVersion_+  pMinorVersion_+  pTemplateName_ =+    DeleteServiceTemplateVersion'+      { majorVersion =+          pMajorVersion_,+        minorVersion = pMinorVersion_,+        templateName = pTemplateName_+      }++-- | The service template major version to delete.+deleteServiceTemplateVersion_majorVersion :: Lens.Lens' DeleteServiceTemplateVersion Prelude.Text+deleteServiceTemplateVersion_majorVersion = Lens.lens (\DeleteServiceTemplateVersion' {majorVersion} -> majorVersion) (\s@DeleteServiceTemplateVersion' {} a -> s {majorVersion = a} :: DeleteServiceTemplateVersion)++-- | The service template minor version to delete.+deleteServiceTemplateVersion_minorVersion :: Lens.Lens' DeleteServiceTemplateVersion Prelude.Text+deleteServiceTemplateVersion_minorVersion = Lens.lens (\DeleteServiceTemplateVersion' {minorVersion} -> minorVersion) (\s@DeleteServiceTemplateVersion' {} a -> s {minorVersion = a} :: DeleteServiceTemplateVersion)++-- | The name of the service template.+deleteServiceTemplateVersion_templateName :: Lens.Lens' DeleteServiceTemplateVersion Prelude.Text+deleteServiceTemplateVersion_templateName = Lens.lens (\DeleteServiceTemplateVersion' {templateName} -> templateName) (\s@DeleteServiceTemplateVersion' {} a -> s {templateName = a} :: DeleteServiceTemplateVersion)++instance Core.AWSRequest DeleteServiceTemplateVersion where+  type+    AWSResponse DeleteServiceTemplateVersion =+      DeleteServiceTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteServiceTemplateVersionResponse'+            Prelude.<$> (x Data..?> "serviceTemplateVersion")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DeleteServiceTemplateVersion+  where+  hashWithSalt _salt DeleteServiceTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData DeleteServiceTemplateVersion where+  rnf DeleteServiceTemplateVersion' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders DeleteServiceTemplateVersion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteServiceTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteServiceTemplateVersion where+  toJSON DeleteServiceTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("minorVersion" Data..= minorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath DeleteServiceTemplateVersion where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteServiceTemplateVersion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteServiceTemplateVersionResponse' smart constructor.+data DeleteServiceTemplateVersionResponse = DeleteServiceTemplateVersionResponse'+  { -- | The detailed data of the service template version being deleted.+    serviceTemplateVersion :: Prelude.Maybe ServiceTemplateVersion,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteServiceTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'serviceTemplateVersion', 'deleteServiceTemplateVersionResponse_serviceTemplateVersion' - The detailed data of the service template version being deleted.+--+-- 'httpStatus', 'deleteServiceTemplateVersionResponse_httpStatus' - The response's http status code.+newDeleteServiceTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteServiceTemplateVersionResponse+newDeleteServiceTemplateVersionResponse pHttpStatus_ =+  DeleteServiceTemplateVersionResponse'+    { serviceTemplateVersion =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the service template version being deleted.+deleteServiceTemplateVersionResponse_serviceTemplateVersion :: Lens.Lens' DeleteServiceTemplateVersionResponse (Prelude.Maybe ServiceTemplateVersion)+deleteServiceTemplateVersionResponse_serviceTemplateVersion = Lens.lens (\DeleteServiceTemplateVersionResponse' {serviceTemplateVersion} -> serviceTemplateVersion) (\s@DeleteServiceTemplateVersionResponse' {} a -> s {serviceTemplateVersion = a} :: DeleteServiceTemplateVersionResponse)++-- | The response's http status code.+deleteServiceTemplateVersionResponse_httpStatus :: Lens.Lens' DeleteServiceTemplateVersionResponse Prelude.Int+deleteServiceTemplateVersionResponse_httpStatus = Lens.lens (\DeleteServiceTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@DeleteServiceTemplateVersionResponse' {} a -> s {httpStatus = a} :: DeleteServiceTemplateVersionResponse)++instance+  Prelude.NFData+    DeleteServiceTemplateVersionResponse+  where+  rnf DeleteServiceTemplateVersionResponse' {..} =+    Prelude.rnf serviceTemplateVersion+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/DeleteTemplateSyncConfig.hs view
@@ -0,0 +1,194 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.DeleteTemplateSyncConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete a template sync configuration.+module Amazonka.Proton.DeleteTemplateSyncConfig+  ( -- * Creating a Request+    DeleteTemplateSyncConfig (..),+    newDeleteTemplateSyncConfig,++    -- * Request Lenses+    deleteTemplateSyncConfig_templateName,+    deleteTemplateSyncConfig_templateType,++    -- * Destructuring the Response+    DeleteTemplateSyncConfigResponse (..),+    newDeleteTemplateSyncConfigResponse,++    -- * Response Lenses+    deleteTemplateSyncConfigResponse_templateSyncConfig,+    deleteTemplateSyncConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteTemplateSyncConfig' smart constructor.+data DeleteTemplateSyncConfig = DeleteTemplateSyncConfig'+  { -- | The template name.+    templateName :: Prelude.Text,+    -- | The template type.+    templateType :: TemplateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTemplateSyncConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateName', 'deleteTemplateSyncConfig_templateName' - The template name.+--+-- 'templateType', 'deleteTemplateSyncConfig_templateType' - The template type.+newDeleteTemplateSyncConfig ::+  -- | 'templateName'+  Prelude.Text ->+  -- | 'templateType'+  TemplateType ->+  DeleteTemplateSyncConfig+newDeleteTemplateSyncConfig+  pTemplateName_+  pTemplateType_ =+    DeleteTemplateSyncConfig'+      { templateName =+          pTemplateName_,+        templateType = pTemplateType_+      }++-- | The template name.+deleteTemplateSyncConfig_templateName :: Lens.Lens' DeleteTemplateSyncConfig Prelude.Text+deleteTemplateSyncConfig_templateName = Lens.lens (\DeleteTemplateSyncConfig' {templateName} -> templateName) (\s@DeleteTemplateSyncConfig' {} a -> s {templateName = a} :: DeleteTemplateSyncConfig)++-- | The template type.+deleteTemplateSyncConfig_templateType :: Lens.Lens' DeleteTemplateSyncConfig TemplateType+deleteTemplateSyncConfig_templateType = Lens.lens (\DeleteTemplateSyncConfig' {templateType} -> templateType) (\s@DeleteTemplateSyncConfig' {} a -> s {templateType = a} :: DeleteTemplateSyncConfig)++instance Core.AWSRequest DeleteTemplateSyncConfig where+  type+    AWSResponse DeleteTemplateSyncConfig =+      DeleteTemplateSyncConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteTemplateSyncConfigResponse'+            Prelude.<$> (x Data..?> "templateSyncConfig")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteTemplateSyncConfig where+  hashWithSalt _salt DeleteTemplateSyncConfig' {..} =+    _salt+      `Prelude.hashWithSalt` templateName+      `Prelude.hashWithSalt` templateType++instance Prelude.NFData DeleteTemplateSyncConfig where+  rnf DeleteTemplateSyncConfig' {..} =+    Prelude.rnf templateName+      `Prelude.seq` Prelude.rnf templateType++instance Data.ToHeaders DeleteTemplateSyncConfig where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.DeleteTemplateSyncConfig" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteTemplateSyncConfig where+  toJSON DeleteTemplateSyncConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("templateName" Data..= templateName),+            Prelude.Just ("templateType" Data..= templateType)+          ]+      )++instance Data.ToPath DeleteTemplateSyncConfig where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteTemplateSyncConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteTemplateSyncConfigResponse' smart constructor.+data DeleteTemplateSyncConfigResponse = DeleteTemplateSyncConfigResponse'+  { -- | The template sync configuration detail data that\'s returned by Proton.+    templateSyncConfig :: Prelude.Maybe TemplateSyncConfig,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTemplateSyncConfigResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateSyncConfig', 'deleteTemplateSyncConfigResponse_templateSyncConfig' - The template sync configuration detail data that\'s returned by Proton.+--+-- 'httpStatus', 'deleteTemplateSyncConfigResponse_httpStatus' - The response's http status code.+newDeleteTemplateSyncConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteTemplateSyncConfigResponse+newDeleteTemplateSyncConfigResponse pHttpStatus_ =+  DeleteTemplateSyncConfigResponse'+    { templateSyncConfig =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The template sync configuration detail data that\'s returned by Proton.+deleteTemplateSyncConfigResponse_templateSyncConfig :: Lens.Lens' DeleteTemplateSyncConfigResponse (Prelude.Maybe TemplateSyncConfig)+deleteTemplateSyncConfigResponse_templateSyncConfig = Lens.lens (\DeleteTemplateSyncConfigResponse' {templateSyncConfig} -> templateSyncConfig) (\s@DeleteTemplateSyncConfigResponse' {} a -> s {templateSyncConfig = a} :: DeleteTemplateSyncConfigResponse)++-- | The response's http status code.+deleteTemplateSyncConfigResponse_httpStatus :: Lens.Lens' DeleteTemplateSyncConfigResponse Prelude.Int+deleteTemplateSyncConfigResponse_httpStatus = Lens.lens (\DeleteTemplateSyncConfigResponse' {httpStatus} -> httpStatus) (\s@DeleteTemplateSyncConfigResponse' {} a -> s {httpStatus = a} :: DeleteTemplateSyncConfigResponse)++instance+  Prelude.NFData+    DeleteTemplateSyncConfigResponse+  where+  rnf DeleteTemplateSyncConfigResponse' {..} =+    Prelude.rnf templateSyncConfig+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/GetAccountSettings.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetAccountSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detail data for Proton account-wide settings.+module Amazonka.Proton.GetAccountSettings+  ( -- * Creating a Request+    GetAccountSettings (..),+    newGetAccountSettings,++    -- * Destructuring the Response+    GetAccountSettingsResponse (..),+    newGetAccountSettingsResponse,++    -- * Response Lenses+    getAccountSettingsResponse_accountSettings,+    getAccountSettingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetAccountSettings' smart constructor.+data GetAccountSettings = GetAccountSettings'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetAccountSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newGetAccountSettings ::+  GetAccountSettings+newGetAccountSettings = GetAccountSettings'++instance Core.AWSRequest GetAccountSettings where+  type+    AWSResponse GetAccountSettings =+      GetAccountSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetAccountSettingsResponse'+            Prelude.<$> (x Data..?> "accountSettings")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetAccountSettings where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetAccountSettings where+  rnf _ = ()++instance Data.ToHeaders GetAccountSettings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetAccountSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetAccountSettings where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath GetAccountSettings where+  toPath = Prelude.const "/"++instance Data.ToQuery GetAccountSettings where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetAccountSettingsResponse' smart constructor.+data GetAccountSettingsResponse = GetAccountSettingsResponse'+  { -- | The Proton pipeline service role detail data that\'s returned by Proton.+    accountSettings :: Prelude.Maybe AccountSettings,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetAccountSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountSettings', 'getAccountSettingsResponse_accountSettings' - The Proton pipeline service role detail data that\'s returned by Proton.+--+-- 'httpStatus', 'getAccountSettingsResponse_httpStatus' - The response's http status code.+newGetAccountSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetAccountSettingsResponse+newGetAccountSettingsResponse pHttpStatus_ =+  GetAccountSettingsResponse'+    { accountSettings =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Proton pipeline service role detail data that\'s returned by Proton.+getAccountSettingsResponse_accountSettings :: Lens.Lens' GetAccountSettingsResponse (Prelude.Maybe AccountSettings)+getAccountSettingsResponse_accountSettings = Lens.lens (\GetAccountSettingsResponse' {accountSettings} -> accountSettings) (\s@GetAccountSettingsResponse' {} a -> s {accountSettings = a} :: GetAccountSettingsResponse)++-- | The response's http status code.+getAccountSettingsResponse_httpStatus :: Lens.Lens' GetAccountSettingsResponse Prelude.Int+getAccountSettingsResponse_httpStatus = Lens.lens (\GetAccountSettingsResponse' {httpStatus} -> httpStatus) (\s@GetAccountSettingsResponse' {} a -> s {httpStatus = a} :: GetAccountSettingsResponse)++instance Prelude.NFData GetAccountSettingsResponse where+  rnf GetAccountSettingsResponse' {..} =+    Prelude.rnf accountSettings+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/GetComponent.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetComponent+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for a component.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.GetComponent+  ( -- * Creating a Request+    GetComponent (..),+    newGetComponent,++    -- * Request Lenses+    getComponent_name,++    -- * Destructuring the Response+    GetComponentResponse (..),+    newGetComponentResponse,++    -- * Response Lenses+    getComponentResponse_component,+    getComponentResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetComponent' smart constructor.+data GetComponent = GetComponent'+  { -- | The name of the component that you want to get the detailed data for.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetComponent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getComponent_name' - The name of the component that you want to get the detailed data for.+newGetComponent ::+  -- | 'name'+  Prelude.Text ->+  GetComponent+newGetComponent pName_ = GetComponent' {name = pName_}++-- | The name of the component that you want to get the detailed data for.+getComponent_name :: Lens.Lens' GetComponent Prelude.Text+getComponent_name = Lens.lens (\GetComponent' {name} -> name) (\s@GetComponent' {} a -> s {name = a} :: GetComponent)++instance Core.AWSRequest GetComponent where+  type AWSResponse GetComponent = GetComponentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetComponentResponse'+            Prelude.<$> (x Data..?> "component")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetComponent where+  hashWithSalt _salt GetComponent' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetComponent where+  rnf GetComponent' {..} = Prelude.rnf name++instance Data.ToHeaders GetComponent where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetComponent" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetComponent where+  toJSON GetComponent' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath GetComponent where+  toPath = Prelude.const "/"++instance Data.ToQuery GetComponent where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetComponentResponse' smart constructor.+data GetComponentResponse = GetComponentResponse'+  { -- | The detailed data of the requested component.+    component :: Prelude.Maybe Component,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetComponentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'component', 'getComponentResponse_component' - The detailed data of the requested component.+--+-- 'httpStatus', 'getComponentResponse_httpStatus' - The response's http status code.+newGetComponentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetComponentResponse+newGetComponentResponse pHttpStatus_ =+  GetComponentResponse'+    { component = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the requested component.+getComponentResponse_component :: Lens.Lens' GetComponentResponse (Prelude.Maybe Component)+getComponentResponse_component = Lens.lens (\GetComponentResponse' {component} -> component) (\s@GetComponentResponse' {} a -> s {component = a} :: GetComponentResponse)++-- | The response's http status code.+getComponentResponse_httpStatus :: Lens.Lens' GetComponentResponse Prelude.Int+getComponentResponse_httpStatus = Lens.lens (\GetComponentResponse' {httpStatus} -> httpStatus) (\s@GetComponentResponse' {} a -> s {httpStatus = a} :: GetComponentResponse)++instance Prelude.NFData GetComponentResponse where+  rnf GetComponentResponse' {..} =+    Prelude.rnf component+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/GetEnvironment.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetEnvironment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for an environment.+module Amazonka.Proton.GetEnvironment+  ( -- * Creating a Request+    GetEnvironment (..),+    newGetEnvironment,++    -- * Request Lenses+    getEnvironment_name,++    -- * Destructuring the Response+    GetEnvironmentResponse (..),+    newGetEnvironmentResponse,++    -- * Response Lenses+    getEnvironmentResponse_httpStatus,+    getEnvironmentResponse_environment,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetEnvironment' smart constructor.+data GetEnvironment = GetEnvironment'+  { -- | The name of the environment that you want to get the detailed data for.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getEnvironment_name' - The name of the environment that you want to get the detailed data for.+newGetEnvironment ::+  -- | 'name'+  Prelude.Text ->+  GetEnvironment+newGetEnvironment pName_ =+  GetEnvironment' {name = pName_}++-- | The name of the environment that you want to get the detailed data for.+getEnvironment_name :: Lens.Lens' GetEnvironment Prelude.Text+getEnvironment_name = Lens.lens (\GetEnvironment' {name} -> name) (\s@GetEnvironment' {} a -> s {name = a} :: GetEnvironment)++instance Core.AWSRequest GetEnvironment where+  type+    AWSResponse GetEnvironment =+      GetEnvironmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetEnvironmentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environment")+      )++instance Prelude.Hashable GetEnvironment where+  hashWithSalt _salt GetEnvironment' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetEnvironment where+  rnf GetEnvironment' {..} = Prelude.rnf name++instance Data.ToHeaders GetEnvironment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetEnvironment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetEnvironment where+  toJSON GetEnvironment' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath GetEnvironment where+  toPath = Prelude.const "/"++instance Data.ToQuery GetEnvironment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetEnvironmentResponse' smart constructor.+data GetEnvironmentResponse = GetEnvironmentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested environment.+    environment :: Environment+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getEnvironmentResponse_httpStatus' - The response's http status code.+--+-- 'environment', 'getEnvironmentResponse_environment' - The detailed data of the requested environment.+newGetEnvironmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environment'+  Environment ->+  GetEnvironmentResponse+newGetEnvironmentResponse pHttpStatus_ pEnvironment_ =+  GetEnvironmentResponse'+    { httpStatus = pHttpStatus_,+      environment = pEnvironment_+    }++-- | The response's http status code.+getEnvironmentResponse_httpStatus :: Lens.Lens' GetEnvironmentResponse Prelude.Int+getEnvironmentResponse_httpStatus = Lens.lens (\GetEnvironmentResponse' {httpStatus} -> httpStatus) (\s@GetEnvironmentResponse' {} a -> s {httpStatus = a} :: GetEnvironmentResponse)++-- | The detailed data of the requested environment.+getEnvironmentResponse_environment :: Lens.Lens' GetEnvironmentResponse Environment+getEnvironmentResponse_environment = Lens.lens (\GetEnvironmentResponse' {environment} -> environment) (\s@GetEnvironmentResponse' {} a -> s {environment = a} :: GetEnvironmentResponse)++instance Prelude.NFData GetEnvironmentResponse where+  rnf GetEnvironmentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environment
+ gen/Amazonka/Proton/GetEnvironmentAccountConnection.hs view
@@ -0,0 +1,197 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetEnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- In an environment account, get the detailed data for an environment+-- account connection.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+module Amazonka.Proton.GetEnvironmentAccountConnection+  ( -- * Creating a Request+    GetEnvironmentAccountConnection (..),+    newGetEnvironmentAccountConnection,++    -- * Request Lenses+    getEnvironmentAccountConnection_id,++    -- * Destructuring the Response+    GetEnvironmentAccountConnectionResponse (..),+    newGetEnvironmentAccountConnectionResponse,++    -- * Response Lenses+    getEnvironmentAccountConnectionResponse_httpStatus,+    getEnvironmentAccountConnectionResponse_environmentAccountConnection,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetEnvironmentAccountConnection' smart constructor.+data GetEnvironmentAccountConnection = GetEnvironmentAccountConnection'+  { -- | The ID of the environment account connection that you want to get the+    -- detailed data for.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'getEnvironmentAccountConnection_id' - The ID of the environment account connection that you want to get the+-- detailed data for.+newGetEnvironmentAccountConnection ::+  -- | 'id'+  Prelude.Text ->+  GetEnvironmentAccountConnection+newGetEnvironmentAccountConnection pId_ =+  GetEnvironmentAccountConnection' {id = pId_}++-- | The ID of the environment account connection that you want to get the+-- detailed data for.+getEnvironmentAccountConnection_id :: Lens.Lens' GetEnvironmentAccountConnection Prelude.Text+getEnvironmentAccountConnection_id = Lens.lens (\GetEnvironmentAccountConnection' {id} -> id) (\s@GetEnvironmentAccountConnection' {} a -> s {id = a} :: GetEnvironmentAccountConnection)++instance+  Core.AWSRequest+    GetEnvironmentAccountConnection+  where+  type+    AWSResponse GetEnvironmentAccountConnection =+      GetEnvironmentAccountConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetEnvironmentAccountConnectionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentAccountConnection")+      )++instance+  Prelude.Hashable+    GetEnvironmentAccountConnection+  where+  hashWithSalt+    _salt+    GetEnvironmentAccountConnection' {..} =+      _salt `Prelude.hashWithSalt` id++instance+  Prelude.NFData+    GetEnvironmentAccountConnection+  where+  rnf GetEnvironmentAccountConnection' {..} =+    Prelude.rnf id++instance+  Data.ToHeaders+    GetEnvironmentAccountConnection+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetEnvironmentAccountConnection" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetEnvironmentAccountConnection where+  toJSON GetEnvironmentAccountConnection' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("id" Data..= id)])++instance Data.ToPath GetEnvironmentAccountConnection where+  toPath = Prelude.const "/"++instance Data.ToQuery GetEnvironmentAccountConnection where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetEnvironmentAccountConnectionResponse' smart constructor.+data GetEnvironmentAccountConnectionResponse = GetEnvironmentAccountConnectionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested environment account connection.+    environmentAccountConnection :: EnvironmentAccountConnection+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentAccountConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getEnvironmentAccountConnectionResponse_httpStatus' - The response's http status code.+--+-- 'environmentAccountConnection', 'getEnvironmentAccountConnectionResponse_environmentAccountConnection' - The detailed data of the requested environment account connection.+newGetEnvironmentAccountConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentAccountConnection'+  EnvironmentAccountConnection ->+  GetEnvironmentAccountConnectionResponse+newGetEnvironmentAccountConnectionResponse+  pHttpStatus_+  pEnvironmentAccountConnection_ =+    GetEnvironmentAccountConnectionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentAccountConnection =+          pEnvironmentAccountConnection_+      }++-- | The response's http status code.+getEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' GetEnvironmentAccountConnectionResponse Prelude.Int+getEnvironmentAccountConnectionResponse_httpStatus = Lens.lens (\GetEnvironmentAccountConnectionResponse' {httpStatus} -> httpStatus) (\s@GetEnvironmentAccountConnectionResponse' {} a -> s {httpStatus = a} :: GetEnvironmentAccountConnectionResponse)++-- | The detailed data of the requested environment account connection.+getEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' GetEnvironmentAccountConnectionResponse EnvironmentAccountConnection+getEnvironmentAccountConnectionResponse_environmentAccountConnection = Lens.lens (\GetEnvironmentAccountConnectionResponse' {environmentAccountConnection} -> environmentAccountConnection) (\s@GetEnvironmentAccountConnectionResponse' {} a -> s {environmentAccountConnection = a} :: GetEnvironmentAccountConnectionResponse)++instance+  Prelude.NFData+    GetEnvironmentAccountConnectionResponse+  where+  rnf GetEnvironmentAccountConnectionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentAccountConnection
+ gen/Amazonka/Proton/GetEnvironmentTemplate.hs view
@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetEnvironmentTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for an environment template.+module Amazonka.Proton.GetEnvironmentTemplate+  ( -- * Creating a Request+    GetEnvironmentTemplate (..),+    newGetEnvironmentTemplate,++    -- * Request Lenses+    getEnvironmentTemplate_name,++    -- * Destructuring the Response+    GetEnvironmentTemplateResponse (..),+    newGetEnvironmentTemplateResponse,++    -- * Response Lenses+    getEnvironmentTemplateResponse_httpStatus,+    getEnvironmentTemplateResponse_environmentTemplate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetEnvironmentTemplate' smart constructor.+data GetEnvironmentTemplate = GetEnvironmentTemplate'+  { -- | The name of the environment template that you want to get the detailed+    -- data for.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getEnvironmentTemplate_name' - The name of the environment template that you want to get the detailed+-- data for.+newGetEnvironmentTemplate ::+  -- | 'name'+  Prelude.Text ->+  GetEnvironmentTemplate+newGetEnvironmentTemplate pName_ =+  GetEnvironmentTemplate' {name = pName_}++-- | The name of the environment template that you want to get the detailed+-- data for.+getEnvironmentTemplate_name :: Lens.Lens' GetEnvironmentTemplate Prelude.Text+getEnvironmentTemplate_name = Lens.lens (\GetEnvironmentTemplate' {name} -> name) (\s@GetEnvironmentTemplate' {} a -> s {name = a} :: GetEnvironmentTemplate)++instance Core.AWSRequest GetEnvironmentTemplate where+  type+    AWSResponse GetEnvironmentTemplate =+      GetEnvironmentTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetEnvironmentTemplateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentTemplate")+      )++instance Prelude.Hashable GetEnvironmentTemplate where+  hashWithSalt _salt GetEnvironmentTemplate' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetEnvironmentTemplate where+  rnf GetEnvironmentTemplate' {..} = Prelude.rnf name++instance Data.ToHeaders GetEnvironmentTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetEnvironmentTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetEnvironmentTemplate where+  toJSON GetEnvironmentTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath GetEnvironmentTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery GetEnvironmentTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetEnvironmentTemplateResponse' smart constructor.+data GetEnvironmentTemplateResponse = GetEnvironmentTemplateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested environment template.+    environmentTemplate :: EnvironmentTemplate+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getEnvironmentTemplateResponse_httpStatus' - The response's http status code.+--+-- 'environmentTemplate', 'getEnvironmentTemplateResponse_environmentTemplate' - The detailed data of the requested environment template.+newGetEnvironmentTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentTemplate'+  EnvironmentTemplate ->+  GetEnvironmentTemplateResponse+newGetEnvironmentTemplateResponse+  pHttpStatus_+  pEnvironmentTemplate_ =+    GetEnvironmentTemplateResponse'+      { httpStatus =+          pHttpStatus_,+        environmentTemplate = pEnvironmentTemplate_+      }++-- | The response's http status code.+getEnvironmentTemplateResponse_httpStatus :: Lens.Lens' GetEnvironmentTemplateResponse Prelude.Int+getEnvironmentTemplateResponse_httpStatus = Lens.lens (\GetEnvironmentTemplateResponse' {httpStatus} -> httpStatus) (\s@GetEnvironmentTemplateResponse' {} a -> s {httpStatus = a} :: GetEnvironmentTemplateResponse)++-- | The detailed data of the requested environment template.+getEnvironmentTemplateResponse_environmentTemplate :: Lens.Lens' GetEnvironmentTemplateResponse EnvironmentTemplate+getEnvironmentTemplateResponse_environmentTemplate = Lens.lens (\GetEnvironmentTemplateResponse' {environmentTemplate} -> environmentTemplate) (\s@GetEnvironmentTemplateResponse' {} a -> s {environmentTemplate = a} :: GetEnvironmentTemplateResponse)++instance+  Prelude.NFData+    GetEnvironmentTemplateResponse+  where+  rnf GetEnvironmentTemplateResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentTemplate
+ gen/Amazonka/Proton/GetEnvironmentTemplateVersion.hs view
@@ -0,0 +1,231 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetEnvironmentTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for a major or minor version of an environment+-- template.+module Amazonka.Proton.GetEnvironmentTemplateVersion+  ( -- * Creating a Request+    GetEnvironmentTemplateVersion (..),+    newGetEnvironmentTemplateVersion,++    -- * Request Lenses+    getEnvironmentTemplateVersion_majorVersion,+    getEnvironmentTemplateVersion_minorVersion,+    getEnvironmentTemplateVersion_templateName,++    -- * Destructuring the Response+    GetEnvironmentTemplateVersionResponse (..),+    newGetEnvironmentTemplateVersionResponse,++    -- * Response Lenses+    getEnvironmentTemplateVersionResponse_httpStatus,+    getEnvironmentTemplateVersionResponse_environmentTemplateVersion,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetEnvironmentTemplateVersion' smart constructor.+data GetEnvironmentTemplateVersion = GetEnvironmentTemplateVersion'+  { -- | To get environment template major version detail data, include+    -- @major Version@.+    majorVersion :: Prelude.Text,+    -- | To get environment template minor version detail data, include+    -- @minorVersion@.+    minorVersion :: Prelude.Text,+    -- | The name of the environment template a version of which you want to get+    -- detailed data for.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'getEnvironmentTemplateVersion_majorVersion' - To get environment template major version detail data, include+-- @major Version@.+--+-- 'minorVersion', 'getEnvironmentTemplateVersion_minorVersion' - To get environment template minor version detail data, include+-- @minorVersion@.+--+-- 'templateName', 'getEnvironmentTemplateVersion_templateName' - The name of the environment template a version of which you want to get+-- detailed data for.+newGetEnvironmentTemplateVersion ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  GetEnvironmentTemplateVersion+newGetEnvironmentTemplateVersion+  pMajorVersion_+  pMinorVersion_+  pTemplateName_ =+    GetEnvironmentTemplateVersion'+      { majorVersion =+          pMajorVersion_,+        minorVersion = pMinorVersion_,+        templateName = pTemplateName_+      }++-- | To get environment template major version detail data, include+-- @major Version@.+getEnvironmentTemplateVersion_majorVersion :: Lens.Lens' GetEnvironmentTemplateVersion Prelude.Text+getEnvironmentTemplateVersion_majorVersion = Lens.lens (\GetEnvironmentTemplateVersion' {majorVersion} -> majorVersion) (\s@GetEnvironmentTemplateVersion' {} a -> s {majorVersion = a} :: GetEnvironmentTemplateVersion)++-- | To get environment template minor version detail data, include+-- @minorVersion@.+getEnvironmentTemplateVersion_minorVersion :: Lens.Lens' GetEnvironmentTemplateVersion Prelude.Text+getEnvironmentTemplateVersion_minorVersion = Lens.lens (\GetEnvironmentTemplateVersion' {minorVersion} -> minorVersion) (\s@GetEnvironmentTemplateVersion' {} a -> s {minorVersion = a} :: GetEnvironmentTemplateVersion)++-- | The name of the environment template a version of which you want to get+-- detailed data for.+getEnvironmentTemplateVersion_templateName :: Lens.Lens' GetEnvironmentTemplateVersion Prelude.Text+getEnvironmentTemplateVersion_templateName = Lens.lens (\GetEnvironmentTemplateVersion' {templateName} -> templateName) (\s@GetEnvironmentTemplateVersion' {} a -> s {templateName = a} :: GetEnvironmentTemplateVersion)++instance+  Core.AWSRequest+    GetEnvironmentTemplateVersion+  where+  type+    AWSResponse GetEnvironmentTemplateVersion =+      GetEnvironmentTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetEnvironmentTemplateVersionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentTemplateVersion")+      )++instance+  Prelude.Hashable+    GetEnvironmentTemplateVersion+  where+  hashWithSalt _salt GetEnvironmentTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData GetEnvironmentTemplateVersion where+  rnf GetEnvironmentTemplateVersion' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders GetEnvironmentTemplateVersion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetEnvironmentTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetEnvironmentTemplateVersion where+  toJSON GetEnvironmentTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("minorVersion" Data..= minorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath GetEnvironmentTemplateVersion where+  toPath = Prelude.const "/"++instance Data.ToQuery GetEnvironmentTemplateVersion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetEnvironmentTemplateVersionResponse' smart constructor.+data GetEnvironmentTemplateVersionResponse = GetEnvironmentTemplateVersionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested environment template version.+    environmentTemplateVersion :: EnvironmentTemplateVersion+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEnvironmentTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getEnvironmentTemplateVersionResponse_httpStatus' - The response's http status code.+--+-- 'environmentTemplateVersion', 'getEnvironmentTemplateVersionResponse_environmentTemplateVersion' - The detailed data of the requested environment template version.+newGetEnvironmentTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentTemplateVersion'+  EnvironmentTemplateVersion ->+  GetEnvironmentTemplateVersionResponse+newGetEnvironmentTemplateVersionResponse+  pHttpStatus_+  pEnvironmentTemplateVersion_ =+    GetEnvironmentTemplateVersionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentTemplateVersion =+          pEnvironmentTemplateVersion_+      }++-- | The response's http status code.+getEnvironmentTemplateVersionResponse_httpStatus :: Lens.Lens' GetEnvironmentTemplateVersionResponse Prelude.Int+getEnvironmentTemplateVersionResponse_httpStatus = Lens.lens (\GetEnvironmentTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@GetEnvironmentTemplateVersionResponse' {} a -> s {httpStatus = a} :: GetEnvironmentTemplateVersionResponse)++-- | The detailed data of the requested environment template version.+getEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens.Lens' GetEnvironmentTemplateVersionResponse EnvironmentTemplateVersion+getEnvironmentTemplateVersionResponse_environmentTemplateVersion = Lens.lens (\GetEnvironmentTemplateVersionResponse' {environmentTemplateVersion} -> environmentTemplateVersion) (\s@GetEnvironmentTemplateVersionResponse' {} a -> s {environmentTemplateVersion = a} :: GetEnvironmentTemplateVersionResponse)++instance+  Prelude.NFData+    GetEnvironmentTemplateVersionResponse+  where+  rnf GetEnvironmentTemplateVersionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentTemplateVersion
+ gen/Amazonka/Proton/GetRepository.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetRepository+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detail data for a linked repository.+module Amazonka.Proton.GetRepository+  ( -- * Creating a Request+    GetRepository (..),+    newGetRepository,++    -- * Request Lenses+    getRepository_name,+    getRepository_provider,++    -- * Destructuring the Response+    GetRepositoryResponse (..),+    newGetRepositoryResponse,++    -- * Response Lenses+    getRepositoryResponse_httpStatus,+    getRepositoryResponse_repository,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetRepository' smart constructor.+data GetRepository = GetRepository'+  { -- | The repository name, for example @myrepos\/myrepo@.+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRepository' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getRepository_name' - The repository name, for example @myrepos\/myrepo@.+--+-- 'provider', 'getRepository_provider' - The repository provider.+newGetRepository ::+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  GetRepository+newGetRepository pName_ pProvider_ =+  GetRepository'+    { name = pName_,+      provider = pProvider_+    }++-- | The repository name, for example @myrepos\/myrepo@.+getRepository_name :: Lens.Lens' GetRepository Prelude.Text+getRepository_name = Lens.lens (\GetRepository' {name} -> name) (\s@GetRepository' {} a -> s {name = a} :: GetRepository)++-- | The repository provider.+getRepository_provider :: Lens.Lens' GetRepository RepositoryProvider+getRepository_provider = Lens.lens (\GetRepository' {provider} -> provider) (\s@GetRepository' {} a -> s {provider = a} :: GetRepository)++instance Core.AWSRequest GetRepository where+  type+    AWSResponse GetRepository =+      GetRepositoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetRepositoryResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "repository")+      )++instance Prelude.Hashable GetRepository where+  hashWithSalt _salt GetRepository' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData GetRepository where+  rnf GetRepository' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf provider++instance Data.ToHeaders GetRepository where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetRepository" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetRepository where+  toJSON GetRepository' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("name" Data..= name),+            Prelude.Just ("provider" Data..= provider)+          ]+      )++instance Data.ToPath GetRepository where+  toPath = Prelude.const "/"++instance Data.ToQuery GetRepository where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetRepositoryResponse' smart constructor.+data GetRepositoryResponse = GetRepositoryResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The repository link\'s detail data that\'s returned by Proton.+    repository :: Repository+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRepositoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getRepositoryResponse_httpStatus' - The response's http status code.+--+-- 'repository', 'getRepositoryResponse_repository' - The repository link\'s detail data that\'s returned by Proton.+newGetRepositoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'repository'+  Repository ->+  GetRepositoryResponse+newGetRepositoryResponse pHttpStatus_ pRepository_ =+  GetRepositoryResponse'+    { httpStatus = pHttpStatus_,+      repository = pRepository_+    }++-- | The response's http status code.+getRepositoryResponse_httpStatus :: Lens.Lens' GetRepositoryResponse Prelude.Int+getRepositoryResponse_httpStatus = Lens.lens (\GetRepositoryResponse' {httpStatus} -> httpStatus) (\s@GetRepositoryResponse' {} a -> s {httpStatus = a} :: GetRepositoryResponse)++-- | The repository link\'s detail data that\'s returned by Proton.+getRepositoryResponse_repository :: Lens.Lens' GetRepositoryResponse Repository+getRepositoryResponse_repository = Lens.lens (\GetRepositoryResponse' {repository} -> repository) (\s@GetRepositoryResponse' {} a -> s {repository = a} :: GetRepositoryResponse)++instance Prelude.NFData GetRepositoryResponse where+  rnf GetRepositoryResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf repository
+ gen/Amazonka/Proton/GetRepositorySyncStatus.hs view
@@ -0,0 +1,238 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetRepositorySyncStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get the sync status of a repository used for Proton template sync. For+-- more information about template sync, see .+--+-- A repository sync status isn\'t tied to the Proton Repository resource+-- (or any other Proton resource). Therefore, tags on an Proton Repository+-- resource have no effect on this action. Specifically, you can\'t use+-- these tags to control access to this action using Attribute-based access+-- control (ABAC).+--+-- For more information about ABAC, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/security_iam_service-with-iam.html#security_iam_service-with-iam-tags ABAC>+-- in the /Proton User Guide/.+module Amazonka.Proton.GetRepositorySyncStatus+  ( -- * Creating a Request+    GetRepositorySyncStatus (..),+    newGetRepositorySyncStatus,++    -- * Request Lenses+    getRepositorySyncStatus_branch,+    getRepositorySyncStatus_repositoryName,+    getRepositorySyncStatus_repositoryProvider,+    getRepositorySyncStatus_syncType,++    -- * Destructuring the Response+    GetRepositorySyncStatusResponse (..),+    newGetRepositorySyncStatusResponse,++    -- * Response Lenses+    getRepositorySyncStatusResponse_latestSync,+    getRepositorySyncStatusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetRepositorySyncStatus' smart constructor.+data GetRepositorySyncStatus = GetRepositorySyncStatus'+  { -- | The repository branch.+    branch :: Prelude.Text,+    -- | The repository name.+    repositoryName :: Prelude.Text,+    -- | The repository provider.+    repositoryProvider :: RepositoryProvider,+    -- | The repository sync type.+    syncType :: SyncType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRepositorySyncStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'branch', 'getRepositorySyncStatus_branch' - The repository branch.+--+-- 'repositoryName', 'getRepositorySyncStatus_repositoryName' - The repository name.+--+-- 'repositoryProvider', 'getRepositorySyncStatus_repositoryProvider' - The repository provider.+--+-- 'syncType', 'getRepositorySyncStatus_syncType' - The repository sync type.+newGetRepositorySyncStatus ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'repositoryName'+  Prelude.Text ->+  -- | 'repositoryProvider'+  RepositoryProvider ->+  -- | 'syncType'+  SyncType ->+  GetRepositorySyncStatus+newGetRepositorySyncStatus+  pBranch_+  pRepositoryName_+  pRepositoryProvider_+  pSyncType_ =+    GetRepositorySyncStatus'+      { branch = pBranch_,+        repositoryName = pRepositoryName_,+        repositoryProvider = pRepositoryProvider_,+        syncType = pSyncType_+      }++-- | The repository branch.+getRepositorySyncStatus_branch :: Lens.Lens' GetRepositorySyncStatus Prelude.Text+getRepositorySyncStatus_branch = Lens.lens (\GetRepositorySyncStatus' {branch} -> branch) (\s@GetRepositorySyncStatus' {} a -> s {branch = a} :: GetRepositorySyncStatus)++-- | The repository name.+getRepositorySyncStatus_repositoryName :: Lens.Lens' GetRepositorySyncStatus Prelude.Text+getRepositorySyncStatus_repositoryName = Lens.lens (\GetRepositorySyncStatus' {repositoryName} -> repositoryName) (\s@GetRepositorySyncStatus' {} a -> s {repositoryName = a} :: GetRepositorySyncStatus)++-- | The repository provider.+getRepositorySyncStatus_repositoryProvider :: Lens.Lens' GetRepositorySyncStatus RepositoryProvider+getRepositorySyncStatus_repositoryProvider = Lens.lens (\GetRepositorySyncStatus' {repositoryProvider} -> repositoryProvider) (\s@GetRepositorySyncStatus' {} a -> s {repositoryProvider = a} :: GetRepositorySyncStatus)++-- | The repository sync type.+getRepositorySyncStatus_syncType :: Lens.Lens' GetRepositorySyncStatus SyncType+getRepositorySyncStatus_syncType = Lens.lens (\GetRepositorySyncStatus' {syncType} -> syncType) (\s@GetRepositorySyncStatus' {} a -> s {syncType = a} :: GetRepositorySyncStatus)++instance Core.AWSRequest GetRepositorySyncStatus where+  type+    AWSResponse GetRepositorySyncStatus =+      GetRepositorySyncStatusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetRepositorySyncStatusResponse'+            Prelude.<$> (x Data..?> "latestSync")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetRepositorySyncStatus where+  hashWithSalt _salt GetRepositorySyncStatus' {..} =+    _salt+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` repositoryName+      `Prelude.hashWithSalt` repositoryProvider+      `Prelude.hashWithSalt` syncType++instance Prelude.NFData GetRepositorySyncStatus where+  rnf GetRepositorySyncStatus' {..} =+    Prelude.rnf branch+      `Prelude.seq` Prelude.rnf repositoryName+      `Prelude.seq` Prelude.rnf repositoryProvider+      `Prelude.seq` Prelude.rnf syncType++instance Data.ToHeaders GetRepositorySyncStatus where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetRepositorySyncStatus" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetRepositorySyncStatus where+  toJSON GetRepositorySyncStatus' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("branch" Data..= branch),+            Prelude.Just+              ("repositoryName" Data..= repositoryName),+            Prelude.Just+              ("repositoryProvider" Data..= repositoryProvider),+            Prelude.Just ("syncType" Data..= syncType)+          ]+      )++instance Data.ToPath GetRepositorySyncStatus where+  toPath = Prelude.const "/"++instance Data.ToQuery GetRepositorySyncStatus where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetRepositorySyncStatusResponse' smart constructor.+data GetRepositorySyncStatusResponse = GetRepositorySyncStatusResponse'+  { -- | The repository sync status detail data that\'s returned by Proton.+    latestSync :: Prelude.Maybe RepositorySyncAttempt,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetRepositorySyncStatusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'latestSync', 'getRepositorySyncStatusResponse_latestSync' - The repository sync status detail data that\'s returned by Proton.+--+-- 'httpStatus', 'getRepositorySyncStatusResponse_httpStatus' - The response's http status code.+newGetRepositorySyncStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetRepositorySyncStatusResponse+newGetRepositorySyncStatusResponse pHttpStatus_ =+  GetRepositorySyncStatusResponse'+    { latestSync =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The repository sync status detail data that\'s returned by Proton.+getRepositorySyncStatusResponse_latestSync :: Lens.Lens' GetRepositorySyncStatusResponse (Prelude.Maybe RepositorySyncAttempt)+getRepositorySyncStatusResponse_latestSync = Lens.lens (\GetRepositorySyncStatusResponse' {latestSync} -> latestSync) (\s@GetRepositorySyncStatusResponse' {} a -> s {latestSync = a} :: GetRepositorySyncStatusResponse)++-- | The response's http status code.+getRepositorySyncStatusResponse_httpStatus :: Lens.Lens' GetRepositorySyncStatusResponse Prelude.Int+getRepositorySyncStatusResponse_httpStatus = Lens.lens (\GetRepositorySyncStatusResponse' {httpStatus} -> httpStatus) (\s@GetRepositorySyncStatusResponse' {} a -> s {httpStatus = a} :: GetRepositorySyncStatusResponse)++instance+  Prelude.NFData+    GetRepositorySyncStatusResponse+  where+  rnf GetRepositorySyncStatusResponse' {..} =+    Prelude.rnf latestSync+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/GetService.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for a service.+module Amazonka.Proton.GetService+  ( -- * Creating a Request+    GetService (..),+    newGetService,++    -- * Request Lenses+    getService_name,++    -- * Destructuring the Response+    GetServiceResponse (..),+    newGetServiceResponse,++    -- * Response Lenses+    getServiceResponse_service,+    getServiceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetService' smart constructor.+data GetService = GetService'+  { -- | The name of the service that you want to get the detailed data for.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetService' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getService_name' - The name of the service that you want to get the detailed data for.+newGetService ::+  -- | 'name'+  Prelude.Text ->+  GetService+newGetService pName_ = GetService' {name = pName_}++-- | The name of the service that you want to get the detailed data for.+getService_name :: Lens.Lens' GetService Prelude.Text+getService_name = Lens.lens (\GetService' {name} -> name) (\s@GetService' {} a -> s {name = a} :: GetService)++instance Core.AWSRequest GetService where+  type AWSResponse GetService = GetServiceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetServiceResponse'+            Prelude.<$> (x Data..?> "service")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetService where+  hashWithSalt _salt GetService' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetService where+  rnf GetService' {..} = Prelude.rnf name++instance Data.ToHeaders GetService where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetService" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetService where+  toJSON GetService' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath GetService where+  toPath = Prelude.const "/"++instance Data.ToQuery GetService where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetServiceResponse' smart constructor.+data GetServiceResponse = GetServiceResponse'+  { -- | The detailed data of the requested service.+    service :: Prelude.Maybe Service,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'service', 'getServiceResponse_service' - The detailed data of the requested service.+--+-- 'httpStatus', 'getServiceResponse_httpStatus' - The response's http status code.+newGetServiceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetServiceResponse+newGetServiceResponse pHttpStatus_ =+  GetServiceResponse'+    { service = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The detailed data of the requested service.+getServiceResponse_service :: Lens.Lens' GetServiceResponse (Prelude.Maybe Service)+getServiceResponse_service = Lens.lens (\GetServiceResponse' {service} -> service) (\s@GetServiceResponse' {} a -> s {service = a} :: GetServiceResponse)++-- | The response's http status code.+getServiceResponse_httpStatus :: Lens.Lens' GetServiceResponse Prelude.Int+getServiceResponse_httpStatus = Lens.lens (\GetServiceResponse' {httpStatus} -> httpStatus) (\s@GetServiceResponse' {} a -> s {httpStatus = a} :: GetServiceResponse)++instance Prelude.NFData GetServiceResponse where+  rnf GetServiceResponse' {..} =+    Prelude.rnf service+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/GetServiceInstance.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetServiceInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for a service instance. A service instance is an+-- instantiation of service template and it runs in a specific environment.+module Amazonka.Proton.GetServiceInstance+  ( -- * Creating a Request+    GetServiceInstance (..),+    newGetServiceInstance,++    -- * Request Lenses+    getServiceInstance_name,+    getServiceInstance_serviceName,++    -- * Destructuring the Response+    GetServiceInstanceResponse (..),+    newGetServiceInstanceResponse,++    -- * Response Lenses+    getServiceInstanceResponse_httpStatus,+    getServiceInstanceResponse_serviceInstance,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetServiceInstance' smart constructor.+data GetServiceInstance = GetServiceInstance'+  { -- | The name of a service instance that you want to get the detailed data+    -- for.+    name :: Prelude.Text,+    -- | The name of the service that the service instance belongs to.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceInstance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getServiceInstance_name' - The name of a service instance that you want to get the detailed data+-- for.+--+-- 'serviceName', 'getServiceInstance_serviceName' - The name of the service that the service instance belongs to.+newGetServiceInstance ::+  -- | 'name'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  GetServiceInstance+newGetServiceInstance pName_ pServiceName_ =+  GetServiceInstance'+    { name = pName_,+      serviceName = pServiceName_+    }++-- | The name of a service instance that you want to get the detailed data+-- for.+getServiceInstance_name :: Lens.Lens' GetServiceInstance Prelude.Text+getServiceInstance_name = Lens.lens (\GetServiceInstance' {name} -> name) (\s@GetServiceInstance' {} a -> s {name = a} :: GetServiceInstance)++-- | The name of the service that the service instance belongs to.+getServiceInstance_serviceName :: Lens.Lens' GetServiceInstance Prelude.Text+getServiceInstance_serviceName = Lens.lens (\GetServiceInstance' {serviceName} -> serviceName) (\s@GetServiceInstance' {} a -> s {serviceName = a} :: GetServiceInstance)++instance Core.AWSRequest GetServiceInstance where+  type+    AWSResponse GetServiceInstance =+      GetServiceInstanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetServiceInstanceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceInstance")+      )++instance Prelude.Hashable GetServiceInstance where+  hashWithSalt _salt GetServiceInstance' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` serviceName++instance Prelude.NFData GetServiceInstance where+  rnf GetServiceInstance' {..} =+    Prelude.rnf name+      `Prelude.seq` Prelude.rnf serviceName++instance Data.ToHeaders GetServiceInstance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetServiceInstance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetServiceInstance where+  toJSON GetServiceInstance' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("name" Data..= name),+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance Data.ToPath GetServiceInstance where+  toPath = Prelude.const "/"++instance Data.ToQuery GetServiceInstance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetServiceInstanceResponse' smart constructor.+data GetServiceInstanceResponse = GetServiceInstanceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested service instance.+    serviceInstance :: ServiceInstance+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceInstanceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getServiceInstanceResponse_httpStatus' - The response's http status code.+--+-- 'serviceInstance', 'getServiceInstanceResponse_serviceInstance' - The detailed data of the requested service instance.+newGetServiceInstanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceInstance'+  ServiceInstance ->+  GetServiceInstanceResponse+newGetServiceInstanceResponse+  pHttpStatus_+  pServiceInstance_ =+    GetServiceInstanceResponse'+      { httpStatus =+          pHttpStatus_,+        serviceInstance = pServiceInstance_+      }++-- | The response's http status code.+getServiceInstanceResponse_httpStatus :: Lens.Lens' GetServiceInstanceResponse Prelude.Int+getServiceInstanceResponse_httpStatus = Lens.lens (\GetServiceInstanceResponse' {httpStatus} -> httpStatus) (\s@GetServiceInstanceResponse' {} a -> s {httpStatus = a} :: GetServiceInstanceResponse)++-- | The detailed data of the requested service instance.+getServiceInstanceResponse_serviceInstance :: Lens.Lens' GetServiceInstanceResponse ServiceInstance+getServiceInstanceResponse_serviceInstance = Lens.lens (\GetServiceInstanceResponse' {serviceInstance} -> serviceInstance) (\s@GetServiceInstanceResponse' {} a -> s {serviceInstance = a} :: GetServiceInstanceResponse)++instance Prelude.NFData GetServiceInstanceResponse where+  rnf GetServiceInstanceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceInstance
+ gen/Amazonka/Proton/GetServiceTemplate.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetServiceTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for a service template.+module Amazonka.Proton.GetServiceTemplate+  ( -- * Creating a Request+    GetServiceTemplate (..),+    newGetServiceTemplate,++    -- * Request Lenses+    getServiceTemplate_name,++    -- * Destructuring the Response+    GetServiceTemplateResponse (..),+    newGetServiceTemplateResponse,++    -- * Response Lenses+    getServiceTemplateResponse_httpStatus,+    getServiceTemplateResponse_serviceTemplate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetServiceTemplate' smart constructor.+data GetServiceTemplate = GetServiceTemplate'+  { -- | The name of the service template that you want to get detailed data for.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getServiceTemplate_name' - The name of the service template that you want to get detailed data for.+newGetServiceTemplate ::+  -- | 'name'+  Prelude.Text ->+  GetServiceTemplate+newGetServiceTemplate pName_ =+  GetServiceTemplate' {name = pName_}++-- | The name of the service template that you want to get detailed data for.+getServiceTemplate_name :: Lens.Lens' GetServiceTemplate Prelude.Text+getServiceTemplate_name = Lens.lens (\GetServiceTemplate' {name} -> name) (\s@GetServiceTemplate' {} a -> s {name = a} :: GetServiceTemplate)++instance Core.AWSRequest GetServiceTemplate where+  type+    AWSResponse GetServiceTemplate =+      GetServiceTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetServiceTemplateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceTemplate")+      )++instance Prelude.Hashable GetServiceTemplate where+  hashWithSalt _salt GetServiceTemplate' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetServiceTemplate where+  rnf GetServiceTemplate' {..} = Prelude.rnf name++instance Data.ToHeaders GetServiceTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetServiceTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetServiceTemplate where+  toJSON GetServiceTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("name" Data..= name)]+      )++instance Data.ToPath GetServiceTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery GetServiceTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetServiceTemplateResponse' smart constructor.+data GetServiceTemplateResponse = GetServiceTemplateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested service template.+    serviceTemplate :: ServiceTemplate+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getServiceTemplateResponse_httpStatus' - The response's http status code.+--+-- 'serviceTemplate', 'getServiceTemplateResponse_serviceTemplate' - The detailed data of the requested service template.+newGetServiceTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceTemplate'+  ServiceTemplate ->+  GetServiceTemplateResponse+newGetServiceTemplateResponse+  pHttpStatus_+  pServiceTemplate_ =+    GetServiceTemplateResponse'+      { httpStatus =+          pHttpStatus_,+        serviceTemplate = pServiceTemplate_+      }++-- | The response's http status code.+getServiceTemplateResponse_httpStatus :: Lens.Lens' GetServiceTemplateResponse Prelude.Int+getServiceTemplateResponse_httpStatus = Lens.lens (\GetServiceTemplateResponse' {httpStatus} -> httpStatus) (\s@GetServiceTemplateResponse' {} a -> s {httpStatus = a} :: GetServiceTemplateResponse)++-- | The detailed data of the requested service template.+getServiceTemplateResponse_serviceTemplate :: Lens.Lens' GetServiceTemplateResponse ServiceTemplate+getServiceTemplateResponse_serviceTemplate = Lens.lens (\GetServiceTemplateResponse' {serviceTemplate} -> serviceTemplate) (\s@GetServiceTemplateResponse' {} a -> s {serviceTemplate = a} :: GetServiceTemplateResponse)++instance Prelude.NFData GetServiceTemplateResponse where+  rnf GetServiceTemplateResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceTemplate
+ gen/Amazonka/Proton/GetServiceTemplateVersion.hs view
@@ -0,0 +1,224 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetServiceTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detailed data for a major or minor version of a service template.+module Amazonka.Proton.GetServiceTemplateVersion+  ( -- * Creating a Request+    GetServiceTemplateVersion (..),+    newGetServiceTemplateVersion,++    -- * Request Lenses+    getServiceTemplateVersion_majorVersion,+    getServiceTemplateVersion_minorVersion,+    getServiceTemplateVersion_templateName,++    -- * Destructuring the Response+    GetServiceTemplateVersionResponse (..),+    newGetServiceTemplateVersionResponse,++    -- * Response Lenses+    getServiceTemplateVersionResponse_httpStatus,+    getServiceTemplateVersionResponse_serviceTemplateVersion,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetServiceTemplateVersion' smart constructor.+data GetServiceTemplateVersion = GetServiceTemplateVersion'+  { -- | To get service template major version detail data, include+    -- @major Version@.+    majorVersion :: Prelude.Text,+    -- | To get service template minor version detail data, include+    -- @minorVersion@.+    minorVersion :: Prelude.Text,+    -- | The name of the service template a version of which you want to get+    -- detailed data for.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'getServiceTemplateVersion_majorVersion' - To get service template major version detail data, include+-- @major Version@.+--+-- 'minorVersion', 'getServiceTemplateVersion_minorVersion' - To get service template minor version detail data, include+-- @minorVersion@.+--+-- 'templateName', 'getServiceTemplateVersion_templateName' - The name of the service template a version of which you want to get+-- detailed data for.+newGetServiceTemplateVersion ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  GetServiceTemplateVersion+newGetServiceTemplateVersion+  pMajorVersion_+  pMinorVersion_+  pTemplateName_ =+    GetServiceTemplateVersion'+      { majorVersion =+          pMajorVersion_,+        minorVersion = pMinorVersion_,+        templateName = pTemplateName_+      }++-- | To get service template major version detail data, include+-- @major Version@.+getServiceTemplateVersion_majorVersion :: Lens.Lens' GetServiceTemplateVersion Prelude.Text+getServiceTemplateVersion_majorVersion = Lens.lens (\GetServiceTemplateVersion' {majorVersion} -> majorVersion) (\s@GetServiceTemplateVersion' {} a -> s {majorVersion = a} :: GetServiceTemplateVersion)++-- | To get service template minor version detail data, include+-- @minorVersion@.+getServiceTemplateVersion_minorVersion :: Lens.Lens' GetServiceTemplateVersion Prelude.Text+getServiceTemplateVersion_minorVersion = Lens.lens (\GetServiceTemplateVersion' {minorVersion} -> minorVersion) (\s@GetServiceTemplateVersion' {} a -> s {minorVersion = a} :: GetServiceTemplateVersion)++-- | The name of the service template a version of which you want to get+-- detailed data for.+getServiceTemplateVersion_templateName :: Lens.Lens' GetServiceTemplateVersion Prelude.Text+getServiceTemplateVersion_templateName = Lens.lens (\GetServiceTemplateVersion' {templateName} -> templateName) (\s@GetServiceTemplateVersion' {} a -> s {templateName = a} :: GetServiceTemplateVersion)++instance Core.AWSRequest GetServiceTemplateVersion where+  type+    AWSResponse GetServiceTemplateVersion =+      GetServiceTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetServiceTemplateVersionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceTemplateVersion")+      )++instance Prelude.Hashable GetServiceTemplateVersion where+  hashWithSalt _salt GetServiceTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData GetServiceTemplateVersion where+  rnf GetServiceTemplateVersion' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders GetServiceTemplateVersion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetServiceTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetServiceTemplateVersion where+  toJSON GetServiceTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("minorVersion" Data..= minorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath GetServiceTemplateVersion where+  toPath = Prelude.const "/"++instance Data.ToQuery GetServiceTemplateVersion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetServiceTemplateVersionResponse' smart constructor.+data GetServiceTemplateVersionResponse = GetServiceTemplateVersionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the requested service template version.+    serviceTemplateVersion :: ServiceTemplateVersion+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetServiceTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getServiceTemplateVersionResponse_httpStatus' - The response's http status code.+--+-- 'serviceTemplateVersion', 'getServiceTemplateVersionResponse_serviceTemplateVersion' - The detailed data of the requested service template version.+newGetServiceTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceTemplateVersion'+  ServiceTemplateVersion ->+  GetServiceTemplateVersionResponse+newGetServiceTemplateVersionResponse+  pHttpStatus_+  pServiceTemplateVersion_ =+    GetServiceTemplateVersionResponse'+      { httpStatus =+          pHttpStatus_,+        serviceTemplateVersion =+          pServiceTemplateVersion_+      }++-- | The response's http status code.+getServiceTemplateVersionResponse_httpStatus :: Lens.Lens' GetServiceTemplateVersionResponse Prelude.Int+getServiceTemplateVersionResponse_httpStatus = Lens.lens (\GetServiceTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@GetServiceTemplateVersionResponse' {} a -> s {httpStatus = a} :: GetServiceTemplateVersionResponse)++-- | The detailed data of the requested service template version.+getServiceTemplateVersionResponse_serviceTemplateVersion :: Lens.Lens' GetServiceTemplateVersionResponse ServiceTemplateVersion+getServiceTemplateVersionResponse_serviceTemplateVersion = Lens.lens (\GetServiceTemplateVersionResponse' {serviceTemplateVersion} -> serviceTemplateVersion) (\s@GetServiceTemplateVersionResponse' {} a -> s {serviceTemplateVersion = a} :: GetServiceTemplateVersionResponse)++instance+  Prelude.NFData+    GetServiceTemplateVersionResponse+  where+  rnf GetServiceTemplateVersionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceTemplateVersion
+ gen/Amazonka/Proton/GetTemplateSyncConfig.hs view
@@ -0,0 +1,191 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetTemplateSyncConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get detail data for a template sync configuration.+module Amazonka.Proton.GetTemplateSyncConfig+  ( -- * Creating a Request+    GetTemplateSyncConfig (..),+    newGetTemplateSyncConfig,++    -- * Request Lenses+    getTemplateSyncConfig_templateName,+    getTemplateSyncConfig_templateType,++    -- * Destructuring the Response+    GetTemplateSyncConfigResponse (..),+    newGetTemplateSyncConfigResponse,++    -- * Response Lenses+    getTemplateSyncConfigResponse_templateSyncConfig,+    getTemplateSyncConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetTemplateSyncConfig' smart constructor.+data GetTemplateSyncConfig = GetTemplateSyncConfig'+  { -- | The template name.+    templateName :: Prelude.Text,+    -- | The template type.+    templateType :: TemplateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTemplateSyncConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateName', 'getTemplateSyncConfig_templateName' - The template name.+--+-- 'templateType', 'getTemplateSyncConfig_templateType' - The template type.+newGetTemplateSyncConfig ::+  -- | 'templateName'+  Prelude.Text ->+  -- | 'templateType'+  TemplateType ->+  GetTemplateSyncConfig+newGetTemplateSyncConfig+  pTemplateName_+  pTemplateType_ =+    GetTemplateSyncConfig'+      { templateName =+          pTemplateName_,+        templateType = pTemplateType_+      }++-- | The template name.+getTemplateSyncConfig_templateName :: Lens.Lens' GetTemplateSyncConfig Prelude.Text+getTemplateSyncConfig_templateName = Lens.lens (\GetTemplateSyncConfig' {templateName} -> templateName) (\s@GetTemplateSyncConfig' {} a -> s {templateName = a} :: GetTemplateSyncConfig)++-- | The template type.+getTemplateSyncConfig_templateType :: Lens.Lens' GetTemplateSyncConfig TemplateType+getTemplateSyncConfig_templateType = Lens.lens (\GetTemplateSyncConfig' {templateType} -> templateType) (\s@GetTemplateSyncConfig' {} a -> s {templateType = a} :: GetTemplateSyncConfig)++instance Core.AWSRequest GetTemplateSyncConfig where+  type+    AWSResponse GetTemplateSyncConfig =+      GetTemplateSyncConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTemplateSyncConfigResponse'+            Prelude.<$> (x Data..?> "templateSyncConfig")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTemplateSyncConfig where+  hashWithSalt _salt GetTemplateSyncConfig' {..} =+    _salt+      `Prelude.hashWithSalt` templateName+      `Prelude.hashWithSalt` templateType++instance Prelude.NFData GetTemplateSyncConfig where+  rnf GetTemplateSyncConfig' {..} =+    Prelude.rnf templateName+      `Prelude.seq` Prelude.rnf templateType++instance Data.ToHeaders GetTemplateSyncConfig where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetTemplateSyncConfig" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetTemplateSyncConfig where+  toJSON GetTemplateSyncConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("templateName" Data..= templateName),+            Prelude.Just ("templateType" Data..= templateType)+          ]+      )++instance Data.ToPath GetTemplateSyncConfig where+  toPath = Prelude.const "/"++instance Data.ToQuery GetTemplateSyncConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTemplateSyncConfigResponse' smart constructor.+data GetTemplateSyncConfigResponse = GetTemplateSyncConfigResponse'+  { -- | The template sync configuration detail data that\'s returned by Proton.+    templateSyncConfig :: Prelude.Maybe TemplateSyncConfig,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTemplateSyncConfigResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateSyncConfig', 'getTemplateSyncConfigResponse_templateSyncConfig' - The template sync configuration detail data that\'s returned by Proton.+--+-- 'httpStatus', 'getTemplateSyncConfigResponse_httpStatus' - The response's http status code.+newGetTemplateSyncConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTemplateSyncConfigResponse+newGetTemplateSyncConfigResponse pHttpStatus_ =+  GetTemplateSyncConfigResponse'+    { templateSyncConfig =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The template sync configuration detail data that\'s returned by Proton.+getTemplateSyncConfigResponse_templateSyncConfig :: Lens.Lens' GetTemplateSyncConfigResponse (Prelude.Maybe TemplateSyncConfig)+getTemplateSyncConfigResponse_templateSyncConfig = Lens.lens (\GetTemplateSyncConfigResponse' {templateSyncConfig} -> templateSyncConfig) (\s@GetTemplateSyncConfigResponse' {} a -> s {templateSyncConfig = a} :: GetTemplateSyncConfigResponse)++-- | The response's http status code.+getTemplateSyncConfigResponse_httpStatus :: Lens.Lens' GetTemplateSyncConfigResponse Prelude.Int+getTemplateSyncConfigResponse_httpStatus = Lens.lens (\GetTemplateSyncConfigResponse' {httpStatus} -> httpStatus) (\s@GetTemplateSyncConfigResponse' {} a -> s {httpStatus = a} :: GetTemplateSyncConfigResponse)++instance Prelude.NFData GetTemplateSyncConfigResponse where+  rnf GetTemplateSyncConfigResponse' {..} =+    Prelude.rnf templateSyncConfig+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/GetTemplateSyncStatus.hs view
@@ -0,0 +1,232 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.GetTemplateSyncStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get the status of a template sync.+module Amazonka.Proton.GetTemplateSyncStatus+  ( -- * Creating a Request+    GetTemplateSyncStatus (..),+    newGetTemplateSyncStatus,++    -- * Request Lenses+    getTemplateSyncStatus_templateName,+    getTemplateSyncStatus_templateType,+    getTemplateSyncStatus_templateVersion,++    -- * Destructuring the Response+    GetTemplateSyncStatusResponse (..),+    newGetTemplateSyncStatusResponse,++    -- * Response Lenses+    getTemplateSyncStatusResponse_desiredState,+    getTemplateSyncStatusResponse_latestSuccessfulSync,+    getTemplateSyncStatusResponse_latestSync,+    getTemplateSyncStatusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetTemplateSyncStatus' smart constructor.+data GetTemplateSyncStatus = GetTemplateSyncStatus'+  { -- | The template name.+    templateName :: Prelude.Text,+    -- | The template type.+    templateType :: TemplateType,+    -- | The template major version.+    templateVersion :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTemplateSyncStatus' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateName', 'getTemplateSyncStatus_templateName' - The template name.+--+-- 'templateType', 'getTemplateSyncStatus_templateType' - The template type.+--+-- 'templateVersion', 'getTemplateSyncStatus_templateVersion' - The template major version.+newGetTemplateSyncStatus ::+  -- | 'templateName'+  Prelude.Text ->+  -- | 'templateType'+  TemplateType ->+  -- | 'templateVersion'+  Prelude.Text ->+  GetTemplateSyncStatus+newGetTemplateSyncStatus+  pTemplateName_+  pTemplateType_+  pTemplateVersion_ =+    GetTemplateSyncStatus'+      { templateName =+          pTemplateName_,+        templateType = pTemplateType_,+        templateVersion = pTemplateVersion_+      }++-- | The template name.+getTemplateSyncStatus_templateName :: Lens.Lens' GetTemplateSyncStatus Prelude.Text+getTemplateSyncStatus_templateName = Lens.lens (\GetTemplateSyncStatus' {templateName} -> templateName) (\s@GetTemplateSyncStatus' {} a -> s {templateName = a} :: GetTemplateSyncStatus)++-- | The template type.+getTemplateSyncStatus_templateType :: Lens.Lens' GetTemplateSyncStatus TemplateType+getTemplateSyncStatus_templateType = Lens.lens (\GetTemplateSyncStatus' {templateType} -> templateType) (\s@GetTemplateSyncStatus' {} a -> s {templateType = a} :: GetTemplateSyncStatus)++-- | The template major version.+getTemplateSyncStatus_templateVersion :: Lens.Lens' GetTemplateSyncStatus Prelude.Text+getTemplateSyncStatus_templateVersion = Lens.lens (\GetTemplateSyncStatus' {templateVersion} -> templateVersion) (\s@GetTemplateSyncStatus' {} a -> s {templateVersion = a} :: GetTemplateSyncStatus)++instance Core.AWSRequest GetTemplateSyncStatus where+  type+    AWSResponse GetTemplateSyncStatus =+      GetTemplateSyncStatusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTemplateSyncStatusResponse'+            Prelude.<$> (x Data..?> "desiredState")+            Prelude.<*> (x Data..?> "latestSuccessfulSync")+            Prelude.<*> (x Data..?> "latestSync")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTemplateSyncStatus where+  hashWithSalt _salt GetTemplateSyncStatus' {..} =+    _salt+      `Prelude.hashWithSalt` templateName+      `Prelude.hashWithSalt` templateType+      `Prelude.hashWithSalt` templateVersion++instance Prelude.NFData GetTemplateSyncStatus where+  rnf GetTemplateSyncStatus' {..} =+    Prelude.rnf templateName+      `Prelude.seq` Prelude.rnf templateType+      `Prelude.seq` Prelude.rnf templateVersion++instance Data.ToHeaders GetTemplateSyncStatus where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.GetTemplateSyncStatus" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetTemplateSyncStatus where+  toJSON GetTemplateSyncStatus' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("templateName" Data..= templateName),+            Prelude.Just ("templateType" Data..= templateType),+            Prelude.Just+              ("templateVersion" Data..= templateVersion)+          ]+      )++instance Data.ToPath GetTemplateSyncStatus where+  toPath = Prelude.const "/"++instance Data.ToQuery GetTemplateSyncStatus where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTemplateSyncStatusResponse' smart constructor.+data GetTemplateSyncStatusResponse = GetTemplateSyncStatusResponse'+  { -- | The template sync desired state that\'s returned by Proton.+    desiredState :: Prelude.Maybe Revision,+    -- | The details of the last successful sync that\'s returned by Proton.+    latestSuccessfulSync :: Prelude.Maybe ResourceSyncAttempt,+    -- | The details of the last sync that\'s returned by Proton.+    latestSync :: Prelude.Maybe ResourceSyncAttempt,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTemplateSyncStatusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'desiredState', 'getTemplateSyncStatusResponse_desiredState' - The template sync desired state that\'s returned by Proton.+--+-- 'latestSuccessfulSync', 'getTemplateSyncStatusResponse_latestSuccessfulSync' - The details of the last successful sync that\'s returned by Proton.+--+-- 'latestSync', 'getTemplateSyncStatusResponse_latestSync' - The details of the last sync that\'s returned by Proton.+--+-- 'httpStatus', 'getTemplateSyncStatusResponse_httpStatus' - The response's http status code.+newGetTemplateSyncStatusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTemplateSyncStatusResponse+newGetTemplateSyncStatusResponse pHttpStatus_ =+  GetTemplateSyncStatusResponse'+    { desiredState =+        Prelude.Nothing,+      latestSuccessfulSync = Prelude.Nothing,+      latestSync = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The template sync desired state that\'s returned by Proton.+getTemplateSyncStatusResponse_desiredState :: Lens.Lens' GetTemplateSyncStatusResponse (Prelude.Maybe Revision)+getTemplateSyncStatusResponse_desiredState = Lens.lens (\GetTemplateSyncStatusResponse' {desiredState} -> desiredState) (\s@GetTemplateSyncStatusResponse' {} a -> s {desiredState = a} :: GetTemplateSyncStatusResponse)++-- | The details of the last successful sync that\'s returned by Proton.+getTemplateSyncStatusResponse_latestSuccessfulSync :: Lens.Lens' GetTemplateSyncStatusResponse (Prelude.Maybe ResourceSyncAttempt)+getTemplateSyncStatusResponse_latestSuccessfulSync = Lens.lens (\GetTemplateSyncStatusResponse' {latestSuccessfulSync} -> latestSuccessfulSync) (\s@GetTemplateSyncStatusResponse' {} a -> s {latestSuccessfulSync = a} :: GetTemplateSyncStatusResponse)++-- | The details of the last sync that\'s returned by Proton.+getTemplateSyncStatusResponse_latestSync :: Lens.Lens' GetTemplateSyncStatusResponse (Prelude.Maybe ResourceSyncAttempt)+getTemplateSyncStatusResponse_latestSync = Lens.lens (\GetTemplateSyncStatusResponse' {latestSync} -> latestSync) (\s@GetTemplateSyncStatusResponse' {} a -> s {latestSync = a} :: GetTemplateSyncStatusResponse)++-- | The response's http status code.+getTemplateSyncStatusResponse_httpStatus :: Lens.Lens' GetTemplateSyncStatusResponse Prelude.Int+getTemplateSyncStatusResponse_httpStatus = Lens.lens (\GetTemplateSyncStatusResponse' {httpStatus} -> httpStatus) (\s@GetTemplateSyncStatusResponse' {} a -> s {httpStatus = a} :: GetTemplateSyncStatusResponse)++instance Prelude.NFData GetTemplateSyncStatusResponse where+  rnf GetTemplateSyncStatusResponse' {..} =+    Prelude.rnf desiredState+      `Prelude.seq` Prelude.rnf latestSuccessfulSync+      `Prelude.seq` Prelude.rnf latestSync+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/Lens.hs view
@@ -0,0 +1,1072 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Lens+  ( -- * Operations++    -- ** AcceptEnvironmentAccountConnection+    acceptEnvironmentAccountConnection_id,+    acceptEnvironmentAccountConnectionResponse_httpStatus,+    acceptEnvironmentAccountConnectionResponse_environmentAccountConnection,++    -- ** CancelComponentDeployment+    cancelComponentDeployment_componentName,+    cancelComponentDeploymentResponse_httpStatus,+    cancelComponentDeploymentResponse_component,++    -- ** CancelEnvironmentDeployment+    cancelEnvironmentDeployment_environmentName,+    cancelEnvironmentDeploymentResponse_httpStatus,+    cancelEnvironmentDeploymentResponse_environment,++    -- ** CancelServiceInstanceDeployment+    cancelServiceInstanceDeployment_serviceInstanceName,+    cancelServiceInstanceDeployment_serviceName,+    cancelServiceInstanceDeploymentResponse_httpStatus,+    cancelServiceInstanceDeploymentResponse_serviceInstance,++    -- ** CancelServicePipelineDeployment+    cancelServicePipelineDeployment_serviceName,+    cancelServicePipelineDeploymentResponse_httpStatus,+    cancelServicePipelineDeploymentResponse_pipeline,++    -- ** CreateComponent+    createComponent_description,+    createComponent_environmentName,+    createComponent_serviceInstanceName,+    createComponent_serviceName,+    createComponent_serviceSpec,+    createComponent_tags,+    createComponent_manifest,+    createComponent_name,+    createComponent_templateFile,+    createComponentResponse_httpStatus,+    createComponentResponse_component,++    -- ** CreateEnvironment+    createEnvironment_codebuildRoleArn,+    createEnvironment_componentRoleArn,+    createEnvironment_description,+    createEnvironment_environmentAccountConnectionId,+    createEnvironment_protonServiceRoleArn,+    createEnvironment_provisioningRepository,+    createEnvironment_tags,+    createEnvironment_templateMinorVersion,+    createEnvironment_name,+    createEnvironment_spec,+    createEnvironment_templateMajorVersion,+    createEnvironment_templateName,+    createEnvironmentResponse_httpStatus,+    createEnvironmentResponse_environment,++    -- ** CreateEnvironmentAccountConnection+    createEnvironmentAccountConnection_clientToken,+    createEnvironmentAccountConnection_codebuildRoleArn,+    createEnvironmentAccountConnection_componentRoleArn,+    createEnvironmentAccountConnection_roleArn,+    createEnvironmentAccountConnection_tags,+    createEnvironmentAccountConnection_environmentName,+    createEnvironmentAccountConnection_managementAccountId,+    createEnvironmentAccountConnectionResponse_httpStatus,+    createEnvironmentAccountConnectionResponse_environmentAccountConnection,++    -- ** CreateEnvironmentTemplate+    createEnvironmentTemplate_description,+    createEnvironmentTemplate_displayName,+    createEnvironmentTemplate_encryptionKey,+    createEnvironmentTemplate_provisioning,+    createEnvironmentTemplate_tags,+    createEnvironmentTemplate_name,+    createEnvironmentTemplateResponse_httpStatus,+    createEnvironmentTemplateResponse_environmentTemplate,++    -- ** CreateEnvironmentTemplateVersion+    createEnvironmentTemplateVersion_clientToken,+    createEnvironmentTemplateVersion_description,+    createEnvironmentTemplateVersion_majorVersion,+    createEnvironmentTemplateVersion_tags,+    createEnvironmentTemplateVersion_source,+    createEnvironmentTemplateVersion_templateName,+    createEnvironmentTemplateVersionResponse_httpStatus,+    createEnvironmentTemplateVersionResponse_environmentTemplateVersion,++    -- ** CreateRepository+    createRepository_encryptionKey,+    createRepository_tags,+    createRepository_connectionArn,+    createRepository_name,+    createRepository_provider,+    createRepositoryResponse_httpStatus,+    createRepositoryResponse_repository,++    -- ** CreateService+    createService_branchName,+    createService_description,+    createService_repositoryConnectionArn,+    createService_repositoryId,+    createService_tags,+    createService_templateMinorVersion,+    createService_name,+    createService_spec,+    createService_templateMajorVersion,+    createService_templateName,+    createServiceResponse_httpStatus,+    createServiceResponse_service,++    -- ** CreateServiceTemplate+    createServiceTemplate_description,+    createServiceTemplate_displayName,+    createServiceTemplate_encryptionKey,+    createServiceTemplate_pipelineProvisioning,+    createServiceTemplate_tags,+    createServiceTemplate_name,+    createServiceTemplateResponse_httpStatus,+    createServiceTemplateResponse_serviceTemplate,++    -- ** CreateServiceTemplateVersion+    createServiceTemplateVersion_clientToken,+    createServiceTemplateVersion_description,+    createServiceTemplateVersion_majorVersion,+    createServiceTemplateVersion_supportedComponentSources,+    createServiceTemplateVersion_tags,+    createServiceTemplateVersion_compatibleEnvironmentTemplates,+    createServiceTemplateVersion_source,+    createServiceTemplateVersion_templateName,+    createServiceTemplateVersionResponse_httpStatus,+    createServiceTemplateVersionResponse_serviceTemplateVersion,++    -- ** CreateTemplateSyncConfig+    createTemplateSyncConfig_subdirectory,+    createTemplateSyncConfig_branch,+    createTemplateSyncConfig_repositoryName,+    createTemplateSyncConfig_repositoryProvider,+    createTemplateSyncConfig_templateName,+    createTemplateSyncConfig_templateType,+    createTemplateSyncConfigResponse_templateSyncConfig,+    createTemplateSyncConfigResponse_httpStatus,++    -- ** DeleteComponent+    deleteComponent_name,+    deleteComponentResponse_component,+    deleteComponentResponse_httpStatus,++    -- ** DeleteEnvironment+    deleteEnvironment_name,+    deleteEnvironmentResponse_environment,+    deleteEnvironmentResponse_httpStatus,++    -- ** DeleteEnvironmentAccountConnection+    deleteEnvironmentAccountConnection_id,+    deleteEnvironmentAccountConnectionResponse_environmentAccountConnection,+    deleteEnvironmentAccountConnectionResponse_httpStatus,++    -- ** DeleteEnvironmentTemplate+    deleteEnvironmentTemplate_name,+    deleteEnvironmentTemplateResponse_environmentTemplate,+    deleteEnvironmentTemplateResponse_httpStatus,++    -- ** DeleteEnvironmentTemplateVersion+    deleteEnvironmentTemplateVersion_majorVersion,+    deleteEnvironmentTemplateVersion_minorVersion,+    deleteEnvironmentTemplateVersion_templateName,+    deleteEnvironmentTemplateVersionResponse_environmentTemplateVersion,+    deleteEnvironmentTemplateVersionResponse_httpStatus,++    -- ** DeleteRepository+    deleteRepository_name,+    deleteRepository_provider,+    deleteRepositoryResponse_repository,+    deleteRepositoryResponse_httpStatus,++    -- ** DeleteService+    deleteService_name,+    deleteServiceResponse_service,+    deleteServiceResponse_httpStatus,++    -- ** DeleteServiceTemplate+    deleteServiceTemplate_name,+    deleteServiceTemplateResponse_serviceTemplate,+    deleteServiceTemplateResponse_httpStatus,++    -- ** DeleteServiceTemplateVersion+    deleteServiceTemplateVersion_majorVersion,+    deleteServiceTemplateVersion_minorVersion,+    deleteServiceTemplateVersion_templateName,+    deleteServiceTemplateVersionResponse_serviceTemplateVersion,+    deleteServiceTemplateVersionResponse_httpStatus,++    -- ** DeleteTemplateSyncConfig+    deleteTemplateSyncConfig_templateName,+    deleteTemplateSyncConfig_templateType,+    deleteTemplateSyncConfigResponse_templateSyncConfig,+    deleteTemplateSyncConfigResponse_httpStatus,++    -- ** GetAccountSettings+    getAccountSettingsResponse_accountSettings,+    getAccountSettingsResponse_httpStatus,++    -- ** GetComponent+    getComponent_name,+    getComponentResponse_component,+    getComponentResponse_httpStatus,++    -- ** GetEnvironment+    getEnvironment_name,+    getEnvironmentResponse_httpStatus,+    getEnvironmentResponse_environment,++    -- ** GetEnvironmentAccountConnection+    getEnvironmentAccountConnection_id,+    getEnvironmentAccountConnectionResponse_httpStatus,+    getEnvironmentAccountConnectionResponse_environmentAccountConnection,++    -- ** GetEnvironmentTemplate+    getEnvironmentTemplate_name,+    getEnvironmentTemplateResponse_httpStatus,+    getEnvironmentTemplateResponse_environmentTemplate,++    -- ** GetEnvironmentTemplateVersion+    getEnvironmentTemplateVersion_majorVersion,+    getEnvironmentTemplateVersion_minorVersion,+    getEnvironmentTemplateVersion_templateName,+    getEnvironmentTemplateVersionResponse_httpStatus,+    getEnvironmentTemplateVersionResponse_environmentTemplateVersion,++    -- ** GetRepository+    getRepository_name,+    getRepository_provider,+    getRepositoryResponse_httpStatus,+    getRepositoryResponse_repository,++    -- ** GetRepositorySyncStatus+    getRepositorySyncStatus_branch,+    getRepositorySyncStatus_repositoryName,+    getRepositorySyncStatus_repositoryProvider,+    getRepositorySyncStatus_syncType,+    getRepositorySyncStatusResponse_latestSync,+    getRepositorySyncStatusResponse_httpStatus,++    -- ** GetService+    getService_name,+    getServiceResponse_service,+    getServiceResponse_httpStatus,++    -- ** GetServiceInstance+    getServiceInstance_name,+    getServiceInstance_serviceName,+    getServiceInstanceResponse_httpStatus,+    getServiceInstanceResponse_serviceInstance,++    -- ** GetServiceTemplate+    getServiceTemplate_name,+    getServiceTemplateResponse_httpStatus,+    getServiceTemplateResponse_serviceTemplate,++    -- ** GetServiceTemplateVersion+    getServiceTemplateVersion_majorVersion,+    getServiceTemplateVersion_minorVersion,+    getServiceTemplateVersion_templateName,+    getServiceTemplateVersionResponse_httpStatus,+    getServiceTemplateVersionResponse_serviceTemplateVersion,++    -- ** GetTemplateSyncConfig+    getTemplateSyncConfig_templateName,+    getTemplateSyncConfig_templateType,+    getTemplateSyncConfigResponse_templateSyncConfig,+    getTemplateSyncConfigResponse_httpStatus,++    -- ** GetTemplateSyncStatus+    getTemplateSyncStatus_templateName,+    getTemplateSyncStatus_templateType,+    getTemplateSyncStatus_templateVersion,+    getTemplateSyncStatusResponse_desiredState,+    getTemplateSyncStatusResponse_latestSuccessfulSync,+    getTemplateSyncStatusResponse_latestSync,+    getTemplateSyncStatusResponse_httpStatus,++    -- ** ListComponentOutputs+    listComponentOutputs_nextToken,+    listComponentOutputs_componentName,+    listComponentOutputsResponse_nextToken,+    listComponentOutputsResponse_httpStatus,+    listComponentOutputsResponse_outputs,++    -- ** ListComponentProvisionedResources+    listComponentProvisionedResources_nextToken,+    listComponentProvisionedResources_componentName,+    listComponentProvisionedResourcesResponse_nextToken,+    listComponentProvisionedResourcesResponse_httpStatus,+    listComponentProvisionedResourcesResponse_provisionedResources,++    -- ** ListComponents+    listComponents_environmentName,+    listComponents_maxResults,+    listComponents_nextToken,+    listComponents_serviceInstanceName,+    listComponents_serviceName,+    listComponentsResponse_nextToken,+    listComponentsResponse_httpStatus,+    listComponentsResponse_components,++    -- ** ListEnvironmentAccountConnections+    listEnvironmentAccountConnections_environmentName,+    listEnvironmentAccountConnections_maxResults,+    listEnvironmentAccountConnections_nextToken,+    listEnvironmentAccountConnections_statuses,+    listEnvironmentAccountConnections_requestedBy,+    listEnvironmentAccountConnectionsResponse_nextToken,+    listEnvironmentAccountConnectionsResponse_httpStatus,+    listEnvironmentAccountConnectionsResponse_environmentAccountConnections,++    -- ** ListEnvironmentOutputs+    listEnvironmentOutputs_nextToken,+    listEnvironmentOutputs_environmentName,+    listEnvironmentOutputsResponse_nextToken,+    listEnvironmentOutputsResponse_httpStatus,+    listEnvironmentOutputsResponse_outputs,++    -- ** ListEnvironmentProvisionedResources+    listEnvironmentProvisionedResources_nextToken,+    listEnvironmentProvisionedResources_environmentName,+    listEnvironmentProvisionedResourcesResponse_nextToken,+    listEnvironmentProvisionedResourcesResponse_httpStatus,+    listEnvironmentProvisionedResourcesResponse_provisionedResources,++    -- ** ListEnvironmentTemplateVersions+    listEnvironmentTemplateVersions_majorVersion,+    listEnvironmentTemplateVersions_maxResults,+    listEnvironmentTemplateVersions_nextToken,+    listEnvironmentTemplateVersions_templateName,+    listEnvironmentTemplateVersionsResponse_nextToken,+    listEnvironmentTemplateVersionsResponse_httpStatus,+    listEnvironmentTemplateVersionsResponse_templateVersions,++    -- ** ListEnvironmentTemplates+    listEnvironmentTemplates_maxResults,+    listEnvironmentTemplates_nextToken,+    listEnvironmentTemplatesResponse_nextToken,+    listEnvironmentTemplatesResponse_httpStatus,+    listEnvironmentTemplatesResponse_templates,++    -- ** ListEnvironments+    listEnvironments_environmentTemplates,+    listEnvironments_maxResults,+    listEnvironments_nextToken,+    listEnvironmentsResponse_nextToken,+    listEnvironmentsResponse_httpStatus,+    listEnvironmentsResponse_environments,++    -- ** ListRepositories+    listRepositories_maxResults,+    listRepositories_nextToken,+    listRepositoriesResponse_nextToken,+    listRepositoriesResponse_httpStatus,+    listRepositoriesResponse_repositories,++    -- ** ListRepositorySyncDefinitions+    listRepositorySyncDefinitions_nextToken,+    listRepositorySyncDefinitions_repositoryName,+    listRepositorySyncDefinitions_repositoryProvider,+    listRepositorySyncDefinitions_syncType,+    listRepositorySyncDefinitionsResponse_nextToken,+    listRepositorySyncDefinitionsResponse_httpStatus,+    listRepositorySyncDefinitionsResponse_syncDefinitions,++    -- ** ListServiceInstanceOutputs+    listServiceInstanceOutputs_nextToken,+    listServiceInstanceOutputs_serviceInstanceName,+    listServiceInstanceOutputs_serviceName,+    listServiceInstanceOutputsResponse_nextToken,+    listServiceInstanceOutputsResponse_httpStatus,+    listServiceInstanceOutputsResponse_outputs,++    -- ** ListServiceInstanceProvisionedResources+    listServiceInstanceProvisionedResources_nextToken,+    listServiceInstanceProvisionedResources_serviceInstanceName,+    listServiceInstanceProvisionedResources_serviceName,+    listServiceInstanceProvisionedResourcesResponse_nextToken,+    listServiceInstanceProvisionedResourcesResponse_httpStatus,+    listServiceInstanceProvisionedResourcesResponse_provisionedResources,++    -- ** ListServiceInstances+    listServiceInstances_filters,+    listServiceInstances_maxResults,+    listServiceInstances_nextToken,+    listServiceInstances_serviceName,+    listServiceInstances_sortBy,+    listServiceInstances_sortOrder,+    listServiceInstancesResponse_nextToken,+    listServiceInstancesResponse_httpStatus,+    listServiceInstancesResponse_serviceInstances,++    -- ** ListServicePipelineOutputs+    listServicePipelineOutputs_nextToken,+    listServicePipelineOutputs_serviceName,+    listServicePipelineOutputsResponse_nextToken,+    listServicePipelineOutputsResponse_httpStatus,+    listServicePipelineOutputsResponse_outputs,++    -- ** ListServicePipelineProvisionedResources+    listServicePipelineProvisionedResources_nextToken,+    listServicePipelineProvisionedResources_serviceName,+    listServicePipelineProvisionedResourcesResponse_nextToken,+    listServicePipelineProvisionedResourcesResponse_httpStatus,+    listServicePipelineProvisionedResourcesResponse_provisionedResources,++    -- ** ListServiceTemplateVersions+    listServiceTemplateVersions_majorVersion,+    listServiceTemplateVersions_maxResults,+    listServiceTemplateVersions_nextToken,+    listServiceTemplateVersions_templateName,+    listServiceTemplateVersionsResponse_nextToken,+    listServiceTemplateVersionsResponse_httpStatus,+    listServiceTemplateVersionsResponse_templateVersions,++    -- ** ListServiceTemplates+    listServiceTemplates_maxResults,+    listServiceTemplates_nextToken,+    listServiceTemplatesResponse_nextToken,+    listServiceTemplatesResponse_httpStatus,+    listServiceTemplatesResponse_templates,++    -- ** ListServices+    listServices_maxResults,+    listServices_nextToken,+    listServicesResponse_nextToken,+    listServicesResponse_httpStatus,+    listServicesResponse_services,++    -- ** ListTagsForResource+    listTagsForResource_maxResults,+    listTagsForResource_nextToken,+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_httpStatus,+    listTagsForResourceResponse_tags,++    -- ** NotifyResourceDeploymentStatusChange+    notifyResourceDeploymentStatusChange_deploymentId,+    notifyResourceDeploymentStatusChange_outputs,+    notifyResourceDeploymentStatusChange_status,+    notifyResourceDeploymentStatusChange_statusMessage,+    notifyResourceDeploymentStatusChange_resourceArn,+    notifyResourceDeploymentStatusChangeResponse_httpStatus,++    -- ** RejectEnvironmentAccountConnection+    rejectEnvironmentAccountConnection_id,+    rejectEnvironmentAccountConnectionResponse_httpStatus,+    rejectEnvironmentAccountConnectionResponse_environmentAccountConnection,++    -- ** TagResource+    tagResource_resourceArn,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceArn,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateAccountSettings+    updateAccountSettings_deletePipelineProvisioningRepository,+    updateAccountSettings_pipelineCodebuildRoleArn,+    updateAccountSettings_pipelineProvisioningRepository,+    updateAccountSettings_pipelineServiceRoleArn,+    updateAccountSettingsResponse_httpStatus,+    updateAccountSettingsResponse_accountSettings,++    -- ** UpdateComponent+    updateComponent_description,+    updateComponent_serviceInstanceName,+    updateComponent_serviceName,+    updateComponent_serviceSpec,+    updateComponent_templateFile,+    updateComponent_deploymentType,+    updateComponent_name,+    updateComponentResponse_httpStatus,+    updateComponentResponse_component,++    -- ** UpdateEnvironment+    updateEnvironment_codebuildRoleArn,+    updateEnvironment_componentRoleArn,+    updateEnvironment_description,+    updateEnvironment_environmentAccountConnectionId,+    updateEnvironment_protonServiceRoleArn,+    updateEnvironment_provisioningRepository,+    updateEnvironment_spec,+    updateEnvironment_templateMajorVersion,+    updateEnvironment_templateMinorVersion,+    updateEnvironment_deploymentType,+    updateEnvironment_name,+    updateEnvironmentResponse_httpStatus,+    updateEnvironmentResponse_environment,++    -- ** UpdateEnvironmentAccountConnection+    updateEnvironmentAccountConnection_codebuildRoleArn,+    updateEnvironmentAccountConnection_componentRoleArn,+    updateEnvironmentAccountConnection_roleArn,+    updateEnvironmentAccountConnection_id,+    updateEnvironmentAccountConnectionResponse_httpStatus,+    updateEnvironmentAccountConnectionResponse_environmentAccountConnection,++    -- ** UpdateEnvironmentTemplate+    updateEnvironmentTemplate_description,+    updateEnvironmentTemplate_displayName,+    updateEnvironmentTemplate_name,+    updateEnvironmentTemplateResponse_httpStatus,+    updateEnvironmentTemplateResponse_environmentTemplate,++    -- ** UpdateEnvironmentTemplateVersion+    updateEnvironmentTemplateVersion_description,+    updateEnvironmentTemplateVersion_status,+    updateEnvironmentTemplateVersion_majorVersion,+    updateEnvironmentTemplateVersion_minorVersion,+    updateEnvironmentTemplateVersion_templateName,+    updateEnvironmentTemplateVersionResponse_httpStatus,+    updateEnvironmentTemplateVersionResponse_environmentTemplateVersion,++    -- ** UpdateService+    updateService_description,+    updateService_spec,+    updateService_name,+    updateServiceResponse_httpStatus,+    updateServiceResponse_service,++    -- ** UpdateServiceInstance+    updateServiceInstance_spec,+    updateServiceInstance_templateMajorVersion,+    updateServiceInstance_templateMinorVersion,+    updateServiceInstance_deploymentType,+    updateServiceInstance_name,+    updateServiceInstance_serviceName,+    updateServiceInstanceResponse_httpStatus,+    updateServiceInstanceResponse_serviceInstance,++    -- ** UpdateServicePipeline+    updateServicePipeline_templateMajorVersion,+    updateServicePipeline_templateMinorVersion,+    updateServicePipeline_deploymentType,+    updateServicePipeline_serviceName,+    updateServicePipeline_spec,+    updateServicePipelineResponse_httpStatus,+    updateServicePipelineResponse_pipeline,++    -- ** UpdateServiceTemplate+    updateServiceTemplate_description,+    updateServiceTemplate_displayName,+    updateServiceTemplate_name,+    updateServiceTemplateResponse_httpStatus,+    updateServiceTemplateResponse_serviceTemplate,++    -- ** UpdateServiceTemplateVersion+    updateServiceTemplateVersion_compatibleEnvironmentTemplates,+    updateServiceTemplateVersion_description,+    updateServiceTemplateVersion_status,+    updateServiceTemplateVersion_supportedComponentSources,+    updateServiceTemplateVersion_majorVersion,+    updateServiceTemplateVersion_minorVersion,+    updateServiceTemplateVersion_templateName,+    updateServiceTemplateVersionResponse_httpStatus,+    updateServiceTemplateVersionResponse_serviceTemplateVersion,++    -- ** UpdateTemplateSyncConfig+    updateTemplateSyncConfig_subdirectory,+    updateTemplateSyncConfig_branch,+    updateTemplateSyncConfig_repositoryName,+    updateTemplateSyncConfig_repositoryProvider,+    updateTemplateSyncConfig_templateName,+    updateTemplateSyncConfig_templateType,+    updateTemplateSyncConfigResponse_templateSyncConfig,+    updateTemplateSyncConfigResponse_httpStatus,++    -- * Types++    -- ** AccountSettings+    accountSettings_pipelineCodebuildRoleArn,+    accountSettings_pipelineProvisioningRepository,+    accountSettings_pipelineServiceRoleArn,++    -- ** CompatibleEnvironmentTemplate+    compatibleEnvironmentTemplate_majorVersion,+    compatibleEnvironmentTemplate_templateName,++    -- ** CompatibleEnvironmentTemplateInput+    compatibleEnvironmentTemplateInput_majorVersion,+    compatibleEnvironmentTemplateInput_templateName,++    -- ** Component+    component_deploymentStatusMessage,+    component_description,+    component_lastDeploymentAttemptedAt,+    component_lastDeploymentSucceededAt,+    component_serviceInstanceName,+    component_serviceName,+    component_serviceSpec,+    component_arn,+    component_createdAt,+    component_deploymentStatus,+    component_environmentName,+    component_lastModifiedAt,+    component_name,++    -- ** ComponentSummary+    componentSummary_deploymentStatusMessage,+    componentSummary_lastDeploymentAttemptedAt,+    componentSummary_lastDeploymentSucceededAt,+    componentSummary_serviceInstanceName,+    componentSummary_serviceName,+    componentSummary_arn,+    componentSummary_createdAt,+    componentSummary_deploymentStatus,+    componentSummary_environmentName,+    componentSummary_lastModifiedAt,+    componentSummary_name,++    -- ** Environment+    environment_codebuildRoleArn,+    environment_componentRoleArn,+    environment_deploymentStatusMessage,+    environment_description,+    environment_environmentAccountConnectionId,+    environment_environmentAccountId,+    environment_protonServiceRoleArn,+    environment_provisioning,+    environment_provisioningRepository,+    environment_spec,+    environment_arn,+    environment_createdAt,+    environment_deploymentStatus,+    environment_lastDeploymentAttemptedAt,+    environment_lastDeploymentSucceededAt,+    environment_name,+    environment_templateMajorVersion,+    environment_templateMinorVersion,+    environment_templateName,++    -- ** EnvironmentAccountConnection+    environmentAccountConnection_codebuildRoleArn,+    environmentAccountConnection_componentRoleArn,+    environmentAccountConnection_arn,+    environmentAccountConnection_environmentAccountId,+    environmentAccountConnection_environmentName,+    environmentAccountConnection_id,+    environmentAccountConnection_lastModifiedAt,+    environmentAccountConnection_managementAccountId,+    environmentAccountConnection_requestedAt,+    environmentAccountConnection_roleArn,+    environmentAccountConnection_status,++    -- ** EnvironmentAccountConnectionSummary+    environmentAccountConnectionSummary_componentRoleArn,+    environmentAccountConnectionSummary_arn,+    environmentAccountConnectionSummary_environmentAccountId,+    environmentAccountConnectionSummary_environmentName,+    environmentAccountConnectionSummary_id,+    environmentAccountConnectionSummary_lastModifiedAt,+    environmentAccountConnectionSummary_managementAccountId,+    environmentAccountConnectionSummary_requestedAt,+    environmentAccountConnectionSummary_roleArn,+    environmentAccountConnectionSummary_status,++    -- ** EnvironmentSummary+    environmentSummary_componentRoleArn,+    environmentSummary_deploymentStatusMessage,+    environmentSummary_description,+    environmentSummary_environmentAccountConnectionId,+    environmentSummary_environmentAccountId,+    environmentSummary_protonServiceRoleArn,+    environmentSummary_provisioning,+    environmentSummary_arn,+    environmentSummary_createdAt,+    environmentSummary_deploymentStatus,+    environmentSummary_lastDeploymentAttemptedAt,+    environmentSummary_lastDeploymentSucceededAt,+    environmentSummary_name,+    environmentSummary_templateMajorVersion,+    environmentSummary_templateMinorVersion,+    environmentSummary_templateName,++    -- ** EnvironmentTemplate+    environmentTemplate_description,+    environmentTemplate_displayName,+    environmentTemplate_encryptionKey,+    environmentTemplate_provisioning,+    environmentTemplate_recommendedVersion,+    environmentTemplate_arn,+    environmentTemplate_createdAt,+    environmentTemplate_lastModifiedAt,+    environmentTemplate_name,++    -- ** EnvironmentTemplateFilter+    environmentTemplateFilter_majorVersion,+    environmentTemplateFilter_templateName,++    -- ** EnvironmentTemplateSummary+    environmentTemplateSummary_description,+    environmentTemplateSummary_displayName,+    environmentTemplateSummary_provisioning,+    environmentTemplateSummary_recommendedVersion,+    environmentTemplateSummary_arn,+    environmentTemplateSummary_createdAt,+    environmentTemplateSummary_lastModifiedAt,+    environmentTemplateSummary_name,++    -- ** EnvironmentTemplateVersion+    environmentTemplateVersion_description,+    environmentTemplateVersion_recommendedMinorVersion,+    environmentTemplateVersion_schema,+    environmentTemplateVersion_statusMessage,+    environmentTemplateVersion_arn,+    environmentTemplateVersion_createdAt,+    environmentTemplateVersion_lastModifiedAt,+    environmentTemplateVersion_majorVersion,+    environmentTemplateVersion_minorVersion,+    environmentTemplateVersion_status,+    environmentTemplateVersion_templateName,++    -- ** EnvironmentTemplateVersionSummary+    environmentTemplateVersionSummary_description,+    environmentTemplateVersionSummary_recommendedMinorVersion,+    environmentTemplateVersionSummary_statusMessage,+    environmentTemplateVersionSummary_arn,+    environmentTemplateVersionSummary_createdAt,+    environmentTemplateVersionSummary_lastModifiedAt,+    environmentTemplateVersionSummary_majorVersion,+    environmentTemplateVersionSummary_minorVersion,+    environmentTemplateVersionSummary_status,+    environmentTemplateVersionSummary_templateName,++    -- ** ListServiceInstancesFilter+    listServiceInstancesFilter_key,+    listServiceInstancesFilter_value,++    -- ** Output+    output_key,+    output_valueString,++    -- ** ProvisionedResource+    provisionedResource_identifier,+    provisionedResource_name,+    provisionedResource_provisioningEngine,++    -- ** Repository+    repository_encryptionKey,+    repository_arn,+    repository_connectionArn,+    repository_name,+    repository_provider,++    -- ** RepositoryBranch+    repositoryBranch_arn,+    repositoryBranch_branch,+    repositoryBranch_name,+    repositoryBranch_provider,++    -- ** RepositoryBranchInput+    repositoryBranchInput_branch,+    repositoryBranchInput_name,+    repositoryBranchInput_provider,++    -- ** RepositorySummary+    repositorySummary_arn,+    repositorySummary_name,+    repositorySummary_provider,++    -- ** RepositorySyncAttempt+    repositorySyncAttempt_events,+    repositorySyncAttempt_startedAt,+    repositorySyncAttempt_status,++    -- ** RepositorySyncDefinition+    repositorySyncDefinition_branch,+    repositorySyncDefinition_directory,+    repositorySyncDefinition_parent,+    repositorySyncDefinition_target,++    -- ** RepositorySyncEvent+    repositorySyncEvent_externalId,+    repositorySyncEvent_event,+    repositorySyncEvent_time,+    repositorySyncEvent_type,++    -- ** ResourceSyncAttempt+    resourceSyncAttempt_events,+    resourceSyncAttempt_initialRevision,+    resourceSyncAttempt_startedAt,+    resourceSyncAttempt_status,+    resourceSyncAttempt_target,+    resourceSyncAttempt_targetRevision,++    -- ** ResourceSyncEvent+    resourceSyncEvent_externalId,+    resourceSyncEvent_event,+    resourceSyncEvent_time,+    resourceSyncEvent_type,++    -- ** Revision+    revision_branch,+    revision_directory,+    revision_repositoryName,+    revision_repositoryProvider,+    revision_sha,++    -- ** S3ObjectSource+    s3ObjectSource_bucket,+    s3ObjectSource_key,++    -- ** Service+    service_branchName,+    service_description,+    service_pipeline,+    service_repositoryConnectionArn,+    service_repositoryId,+    service_statusMessage,+    service_arn,+    service_createdAt,+    service_lastModifiedAt,+    service_name,+    service_spec,+    service_status,+    service_templateName,++    -- ** ServiceInstance+    serviceInstance_deploymentStatusMessage,+    serviceInstance_spec,+    serviceInstance_arn,+    serviceInstance_createdAt,+    serviceInstance_deploymentStatus,+    serviceInstance_environmentName,+    serviceInstance_lastDeploymentAttemptedAt,+    serviceInstance_lastDeploymentSucceededAt,+    serviceInstance_name,+    serviceInstance_serviceName,+    serviceInstance_templateMajorVersion,+    serviceInstance_templateMinorVersion,+    serviceInstance_templateName,++    -- ** ServiceInstanceSummary+    serviceInstanceSummary_deploymentStatusMessage,+    serviceInstanceSummary_arn,+    serviceInstanceSummary_createdAt,+    serviceInstanceSummary_deploymentStatus,+    serviceInstanceSummary_environmentName,+    serviceInstanceSummary_lastDeploymentAttemptedAt,+    serviceInstanceSummary_lastDeploymentSucceededAt,+    serviceInstanceSummary_name,+    serviceInstanceSummary_serviceName,+    serviceInstanceSummary_templateMajorVersion,+    serviceInstanceSummary_templateMinorVersion,+    serviceInstanceSummary_templateName,++    -- ** ServicePipeline+    servicePipeline_deploymentStatusMessage,+    servicePipeline_spec,+    servicePipeline_arn,+    servicePipeline_createdAt,+    servicePipeline_deploymentStatus,+    servicePipeline_lastDeploymentAttemptedAt,+    servicePipeline_lastDeploymentSucceededAt,+    servicePipeline_templateMajorVersion,+    servicePipeline_templateMinorVersion,+    servicePipeline_templateName,++    -- ** ServiceSummary+    serviceSummary_description,+    serviceSummary_statusMessage,+    serviceSummary_arn,+    serviceSummary_createdAt,+    serviceSummary_lastModifiedAt,+    serviceSummary_name,+    serviceSummary_status,+    serviceSummary_templateName,++    -- ** ServiceTemplate+    serviceTemplate_description,+    serviceTemplate_displayName,+    serviceTemplate_encryptionKey,+    serviceTemplate_pipelineProvisioning,+    serviceTemplate_recommendedVersion,+    serviceTemplate_arn,+    serviceTemplate_createdAt,+    serviceTemplate_lastModifiedAt,+    serviceTemplate_name,++    -- ** ServiceTemplateSummary+    serviceTemplateSummary_description,+    serviceTemplateSummary_displayName,+    serviceTemplateSummary_pipelineProvisioning,+    serviceTemplateSummary_recommendedVersion,+    serviceTemplateSummary_arn,+    serviceTemplateSummary_createdAt,+    serviceTemplateSummary_lastModifiedAt,+    serviceTemplateSummary_name,++    -- ** ServiceTemplateVersion+    serviceTemplateVersion_description,+    serviceTemplateVersion_recommendedMinorVersion,+    serviceTemplateVersion_schema,+    serviceTemplateVersion_statusMessage,+    serviceTemplateVersion_supportedComponentSources,+    serviceTemplateVersion_arn,+    serviceTemplateVersion_compatibleEnvironmentTemplates,+    serviceTemplateVersion_createdAt,+    serviceTemplateVersion_lastModifiedAt,+    serviceTemplateVersion_majorVersion,+    serviceTemplateVersion_minorVersion,+    serviceTemplateVersion_status,+    serviceTemplateVersion_templateName,++    -- ** ServiceTemplateVersionSummary+    serviceTemplateVersionSummary_description,+    serviceTemplateVersionSummary_recommendedMinorVersion,+    serviceTemplateVersionSummary_statusMessage,+    serviceTemplateVersionSummary_arn,+    serviceTemplateVersionSummary_createdAt,+    serviceTemplateVersionSummary_lastModifiedAt,+    serviceTemplateVersionSummary_majorVersion,+    serviceTemplateVersionSummary_minorVersion,+    serviceTemplateVersionSummary_status,+    serviceTemplateVersionSummary_templateName,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** TemplateSyncConfig+    templateSyncConfig_subdirectory,+    templateSyncConfig_branch,+    templateSyncConfig_repositoryName,+    templateSyncConfig_repositoryProvider,+    templateSyncConfig_templateName,+    templateSyncConfig_templateType,++    -- ** TemplateVersionSourceInput+    templateVersionSourceInput_s3,+  )+where++import Amazonka.Proton.AcceptEnvironmentAccountConnection+import Amazonka.Proton.CancelComponentDeployment+import Amazonka.Proton.CancelEnvironmentDeployment+import Amazonka.Proton.CancelServiceInstanceDeployment+import Amazonka.Proton.CancelServicePipelineDeployment+import Amazonka.Proton.CreateComponent+import Amazonka.Proton.CreateEnvironment+import Amazonka.Proton.CreateEnvironmentAccountConnection+import Amazonka.Proton.CreateEnvironmentTemplate+import Amazonka.Proton.CreateEnvironmentTemplateVersion+import Amazonka.Proton.CreateRepository+import Amazonka.Proton.CreateService+import Amazonka.Proton.CreateServiceTemplate+import Amazonka.Proton.CreateServiceTemplateVersion+import Amazonka.Proton.CreateTemplateSyncConfig+import Amazonka.Proton.DeleteComponent+import Amazonka.Proton.DeleteEnvironment+import Amazonka.Proton.DeleteEnvironmentAccountConnection+import Amazonka.Proton.DeleteEnvironmentTemplate+import Amazonka.Proton.DeleteEnvironmentTemplateVersion+import Amazonka.Proton.DeleteRepository+import Amazonka.Proton.DeleteService+import Amazonka.Proton.DeleteServiceTemplate+import Amazonka.Proton.DeleteServiceTemplateVersion+import Amazonka.Proton.DeleteTemplateSyncConfig+import Amazonka.Proton.GetAccountSettings+import Amazonka.Proton.GetComponent+import Amazonka.Proton.GetEnvironment+import Amazonka.Proton.GetEnvironmentAccountConnection+import Amazonka.Proton.GetEnvironmentTemplate+import Amazonka.Proton.GetEnvironmentTemplateVersion+import Amazonka.Proton.GetRepository+import Amazonka.Proton.GetRepositorySyncStatus+import Amazonka.Proton.GetService+import Amazonka.Proton.GetServiceInstance+import Amazonka.Proton.GetServiceTemplate+import Amazonka.Proton.GetServiceTemplateVersion+import Amazonka.Proton.GetTemplateSyncConfig+import Amazonka.Proton.GetTemplateSyncStatus+import Amazonka.Proton.ListComponentOutputs+import Amazonka.Proton.ListComponentProvisionedResources+import Amazonka.Proton.ListComponents+import Amazonka.Proton.ListEnvironmentAccountConnections+import Amazonka.Proton.ListEnvironmentOutputs+import Amazonka.Proton.ListEnvironmentProvisionedResources+import Amazonka.Proton.ListEnvironmentTemplateVersions+import Amazonka.Proton.ListEnvironmentTemplates+import Amazonka.Proton.ListEnvironments+import Amazonka.Proton.ListRepositories+import Amazonka.Proton.ListRepositorySyncDefinitions+import Amazonka.Proton.ListServiceInstanceOutputs+import Amazonka.Proton.ListServiceInstanceProvisionedResources+import Amazonka.Proton.ListServiceInstances+import Amazonka.Proton.ListServicePipelineOutputs+import Amazonka.Proton.ListServicePipelineProvisionedResources+import Amazonka.Proton.ListServiceTemplateVersions+import Amazonka.Proton.ListServiceTemplates+import Amazonka.Proton.ListServices+import Amazonka.Proton.ListTagsForResource+import Amazonka.Proton.NotifyResourceDeploymentStatusChange+import Amazonka.Proton.RejectEnvironmentAccountConnection+import Amazonka.Proton.TagResource+import Amazonka.Proton.Types.AccountSettings+import Amazonka.Proton.Types.CompatibleEnvironmentTemplate+import Amazonka.Proton.Types.CompatibleEnvironmentTemplateInput+import Amazonka.Proton.Types.Component+import Amazonka.Proton.Types.ComponentSummary+import Amazonka.Proton.Types.Environment+import Amazonka.Proton.Types.EnvironmentAccountConnection+import Amazonka.Proton.Types.EnvironmentAccountConnectionSummary+import Amazonka.Proton.Types.EnvironmentSummary+import Amazonka.Proton.Types.EnvironmentTemplate+import Amazonka.Proton.Types.EnvironmentTemplateFilter+import Amazonka.Proton.Types.EnvironmentTemplateSummary+import Amazonka.Proton.Types.EnvironmentTemplateVersion+import Amazonka.Proton.Types.EnvironmentTemplateVersionSummary+import Amazonka.Proton.Types.ListServiceInstancesFilter+import Amazonka.Proton.Types.Output+import Amazonka.Proton.Types.ProvisionedResource+import Amazonka.Proton.Types.Repository+import Amazonka.Proton.Types.RepositoryBranch+import Amazonka.Proton.Types.RepositoryBranchInput+import Amazonka.Proton.Types.RepositorySummary+import Amazonka.Proton.Types.RepositorySyncAttempt+import Amazonka.Proton.Types.RepositorySyncDefinition+import Amazonka.Proton.Types.RepositorySyncEvent+import Amazonka.Proton.Types.ResourceSyncAttempt+import Amazonka.Proton.Types.ResourceSyncEvent+import Amazonka.Proton.Types.Revision+import Amazonka.Proton.Types.S3ObjectSource+import Amazonka.Proton.Types.Service+import Amazonka.Proton.Types.ServiceInstance+import Amazonka.Proton.Types.ServiceInstanceSummary+import Amazonka.Proton.Types.ServicePipeline+import Amazonka.Proton.Types.ServiceSummary+import Amazonka.Proton.Types.ServiceTemplate+import Amazonka.Proton.Types.ServiceTemplateSummary+import Amazonka.Proton.Types.ServiceTemplateVersion+import Amazonka.Proton.Types.ServiceTemplateVersionSummary+import Amazonka.Proton.Types.Tag+import Amazonka.Proton.Types.TemplateSyncConfig+import Amazonka.Proton.Types.TemplateVersionSourceInput+import Amazonka.Proton.UntagResource+import Amazonka.Proton.UpdateAccountSettings+import Amazonka.Proton.UpdateComponent+import Amazonka.Proton.UpdateEnvironment+import Amazonka.Proton.UpdateEnvironmentAccountConnection+import Amazonka.Proton.UpdateEnvironmentTemplate+import Amazonka.Proton.UpdateEnvironmentTemplateVersion+import Amazonka.Proton.UpdateService+import Amazonka.Proton.UpdateServiceInstance+import Amazonka.Proton.UpdateServicePipeline+import Amazonka.Proton.UpdateServiceTemplate+import Amazonka.Proton.UpdateServiceTemplateVersion+import Amazonka.Proton.UpdateTemplateSyncConfig
+ gen/Amazonka/Proton/ListComponentOutputs.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListComponentOutputs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get a list of component Infrastructure as Code (IaC) outputs.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListComponentOutputs+  ( -- * Creating a Request+    ListComponentOutputs (..),+    newListComponentOutputs,++    -- * Request Lenses+    listComponentOutputs_nextToken,+    listComponentOutputs_componentName,++    -- * Destructuring the Response+    ListComponentOutputsResponse (..),+    newListComponentOutputsResponse,++    -- * Response Lenses+    listComponentOutputsResponse_nextToken,+    listComponentOutputsResponse_httpStatus,+    listComponentOutputsResponse_outputs,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListComponentOutputs' smart constructor.+data ListComponentOutputs = ListComponentOutputs'+  { -- | A token that indicates the location of the next output in the array of+    -- outputs, after the list of outputs that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the component whose outputs you want.+    componentName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListComponentOutputs' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listComponentOutputs_nextToken' - A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+--+-- 'componentName', 'listComponentOutputs_componentName' - The name of the component whose outputs you want.+newListComponentOutputs ::+  -- | 'componentName'+  Prelude.Text ->+  ListComponentOutputs+newListComponentOutputs pComponentName_ =+  ListComponentOutputs'+    { nextToken = Prelude.Nothing,+      componentName = pComponentName_+    }++-- | A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+listComponentOutputs_nextToken :: Lens.Lens' ListComponentOutputs (Prelude.Maybe Prelude.Text)+listComponentOutputs_nextToken = Lens.lens (\ListComponentOutputs' {nextToken} -> nextToken) (\s@ListComponentOutputs' {} a -> s {nextToken = a} :: ListComponentOutputs)++-- | The name of the component whose outputs you want.+listComponentOutputs_componentName :: Lens.Lens' ListComponentOutputs Prelude.Text+listComponentOutputs_componentName = Lens.lens (\ListComponentOutputs' {componentName} -> componentName) (\s@ListComponentOutputs' {} a -> s {componentName = a} :: ListComponentOutputs)++instance Core.AWSPager ListComponentOutputs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listComponentOutputsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listComponentOutputsResponse_outputs) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listComponentOutputs_nextToken+          Lens..~ rs+          Lens.^? listComponentOutputsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListComponentOutputs where+  type+    AWSResponse ListComponentOutputs =+      ListComponentOutputsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListComponentOutputsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "outputs" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListComponentOutputs where+  hashWithSalt _salt ListComponentOutputs' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` componentName++instance Prelude.NFData ListComponentOutputs where+  rnf ListComponentOutputs' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf componentName++instance Data.ToHeaders ListComponentOutputs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListComponentOutputs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListComponentOutputs where+  toJSON ListComponentOutputs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("componentName" Data..= componentName)+          ]+      )++instance Data.ToPath ListComponentOutputs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListComponentOutputs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListComponentOutputsResponse' smart constructor.+data ListComponentOutputsResponse = ListComponentOutputsResponse'+  { -- | A token that indicates the location of the next output in the array of+    -- outputs, after the list of outputs that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of component Infrastructure as Code (IaC) outputs.+    outputs :: [Data.Sensitive Output]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListComponentOutputsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listComponentOutputsResponse_nextToken' - A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+--+-- 'httpStatus', 'listComponentOutputsResponse_httpStatus' - The response's http status code.+--+-- 'outputs', 'listComponentOutputsResponse_outputs' - An array of component Infrastructure as Code (IaC) outputs.+newListComponentOutputsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListComponentOutputsResponse+newListComponentOutputsResponse pHttpStatus_ =+  ListComponentOutputsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      outputs = Prelude.mempty+    }++-- | A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+listComponentOutputsResponse_nextToken :: Lens.Lens' ListComponentOutputsResponse (Prelude.Maybe Prelude.Text)+listComponentOutputsResponse_nextToken = Lens.lens (\ListComponentOutputsResponse' {nextToken} -> nextToken) (\s@ListComponentOutputsResponse' {} a -> s {nextToken = a} :: ListComponentOutputsResponse)++-- | The response's http status code.+listComponentOutputsResponse_httpStatus :: Lens.Lens' ListComponentOutputsResponse Prelude.Int+listComponentOutputsResponse_httpStatus = Lens.lens (\ListComponentOutputsResponse' {httpStatus} -> httpStatus) (\s@ListComponentOutputsResponse' {} a -> s {httpStatus = a} :: ListComponentOutputsResponse)++-- | An array of component Infrastructure as Code (IaC) outputs.+listComponentOutputsResponse_outputs :: Lens.Lens' ListComponentOutputsResponse [Output]+listComponentOutputsResponse_outputs = Lens.lens (\ListComponentOutputsResponse' {outputs} -> outputs) (\s@ListComponentOutputsResponse' {} a -> s {outputs = a} :: ListComponentOutputsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListComponentOutputsResponse where+  rnf ListComponentOutputsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf outputs
+ gen/Amazonka/Proton/ListComponentProvisionedResources.hs view
@@ -0,0 +1,273 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListComponentProvisionedResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List provisioned resources for a component with details.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListComponentProvisionedResources+  ( -- * Creating a Request+    ListComponentProvisionedResources (..),+    newListComponentProvisionedResources,++    -- * Request Lenses+    listComponentProvisionedResources_nextToken,+    listComponentProvisionedResources_componentName,++    -- * Destructuring the Response+    ListComponentProvisionedResourcesResponse (..),+    newListComponentProvisionedResourcesResponse,++    -- * Response Lenses+    listComponentProvisionedResourcesResponse_nextToken,+    listComponentProvisionedResourcesResponse_httpStatus,+    listComponentProvisionedResourcesResponse_provisionedResources,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListComponentProvisionedResources' smart constructor.+data ListComponentProvisionedResources = ListComponentProvisionedResources'+  { -- | A token that indicates the location of the next provisioned resource in+    -- the array of provisioned resources, after the list of provisioned+    -- resources that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the component whose provisioned resources you want.+    componentName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListComponentProvisionedResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listComponentProvisionedResources_nextToken' - A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the list of provisioned+-- resources that was previously requested.+--+-- 'componentName', 'listComponentProvisionedResources_componentName' - The name of the component whose provisioned resources you want.+newListComponentProvisionedResources ::+  -- | 'componentName'+  Prelude.Text ->+  ListComponentProvisionedResources+newListComponentProvisionedResources pComponentName_ =+  ListComponentProvisionedResources'+    { nextToken =+        Prelude.Nothing,+      componentName = pComponentName_+    }++-- | A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the list of provisioned+-- resources that was previously requested.+listComponentProvisionedResources_nextToken :: Lens.Lens' ListComponentProvisionedResources (Prelude.Maybe Prelude.Text)+listComponentProvisionedResources_nextToken = Lens.lens (\ListComponentProvisionedResources' {nextToken} -> nextToken) (\s@ListComponentProvisionedResources' {} a -> s {nextToken = a} :: ListComponentProvisionedResources)++-- | The name of the component whose provisioned resources you want.+listComponentProvisionedResources_componentName :: Lens.Lens' ListComponentProvisionedResources Prelude.Text+listComponentProvisionedResources_componentName = Lens.lens (\ListComponentProvisionedResources' {componentName} -> componentName) (\s@ListComponentProvisionedResources' {} a -> s {componentName = a} :: ListComponentProvisionedResources)++instance+  Core.AWSPager+    ListComponentProvisionedResources+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listComponentProvisionedResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listComponentProvisionedResourcesResponse_provisionedResources+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listComponentProvisionedResources_nextToken+          Lens..~ rs+          Lens.^? listComponentProvisionedResourcesResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListComponentProvisionedResources+  where+  type+    AWSResponse ListComponentProvisionedResources =+      ListComponentProvisionedResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListComponentProvisionedResourcesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "provisionedResources"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListComponentProvisionedResources+  where+  hashWithSalt+    _salt+    ListComponentProvisionedResources' {..} =+      _salt+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` componentName++instance+  Prelude.NFData+    ListComponentProvisionedResources+  where+  rnf ListComponentProvisionedResources' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf componentName++instance+  Data.ToHeaders+    ListComponentProvisionedResources+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListComponentProvisionedResources" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    ListComponentProvisionedResources+  where+  toJSON ListComponentProvisionedResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("componentName" Data..= componentName)+          ]+      )++instance+  Data.ToPath+    ListComponentProvisionedResources+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    ListComponentProvisionedResources+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListComponentProvisionedResourcesResponse' smart constructor.+data ListComponentProvisionedResourcesResponse = ListComponentProvisionedResourcesResponse'+  { -- | A token that indicates the location of the next provisioned resource in+    -- the array of provisioned resources, after the current requested list of+    -- provisioned resources.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of provisioned resources for a component.+    provisionedResources :: [ProvisionedResource]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListComponentProvisionedResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listComponentProvisionedResourcesResponse_nextToken' - A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the current requested list of+-- provisioned resources.+--+-- 'httpStatus', 'listComponentProvisionedResourcesResponse_httpStatus' - The response's http status code.+--+-- 'provisionedResources', 'listComponentProvisionedResourcesResponse_provisionedResources' - An array of provisioned resources for a component.+newListComponentProvisionedResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListComponentProvisionedResourcesResponse+newListComponentProvisionedResourcesResponse+  pHttpStatus_ =+    ListComponentProvisionedResourcesResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        provisionedResources =+          Prelude.mempty+      }++-- | A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the current requested list of+-- provisioned resources.+listComponentProvisionedResourcesResponse_nextToken :: Lens.Lens' ListComponentProvisionedResourcesResponse (Prelude.Maybe Prelude.Text)+listComponentProvisionedResourcesResponse_nextToken = Lens.lens (\ListComponentProvisionedResourcesResponse' {nextToken} -> nextToken) (\s@ListComponentProvisionedResourcesResponse' {} a -> s {nextToken = a} :: ListComponentProvisionedResourcesResponse)++-- | The response's http status code.+listComponentProvisionedResourcesResponse_httpStatus :: Lens.Lens' ListComponentProvisionedResourcesResponse Prelude.Int+listComponentProvisionedResourcesResponse_httpStatus = Lens.lens (\ListComponentProvisionedResourcesResponse' {httpStatus} -> httpStatus) (\s@ListComponentProvisionedResourcesResponse' {} a -> s {httpStatus = a} :: ListComponentProvisionedResourcesResponse)++-- | An array of provisioned resources for a component.+listComponentProvisionedResourcesResponse_provisionedResources :: Lens.Lens' ListComponentProvisionedResourcesResponse [ProvisionedResource]+listComponentProvisionedResourcesResponse_provisionedResources = Lens.lens (\ListComponentProvisionedResourcesResponse' {provisionedResources} -> provisionedResources) (\s@ListComponentProvisionedResourcesResponse' {} a -> s {provisionedResources = a} :: ListComponentProvisionedResourcesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListComponentProvisionedResourcesResponse+  where+  rnf ListComponentProvisionedResourcesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf provisionedResources
+ gen/Amazonka/Proton/ListComponents.hs view
@@ -0,0 +1,284 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListComponents+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List components with summary data. You can filter the result list by+-- environment, service, or a single service instance.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListComponents+  ( -- * Creating a Request+    ListComponents (..),+    newListComponents,++    -- * Request Lenses+    listComponents_environmentName,+    listComponents_maxResults,+    listComponents_nextToken,+    listComponents_serviceInstanceName,+    listComponents_serviceName,++    -- * Destructuring the Response+    ListComponentsResponse (..),+    newListComponentsResponse,++    -- * Response Lenses+    listComponentsResponse_nextToken,+    listComponentsResponse_httpStatus,+    listComponentsResponse_components,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListComponents' smart constructor.+data ListComponents = ListComponents'+  { -- | The name of an environment for result list filtering. Proton returns+    -- components associated with the environment or attached to service+    -- instances running in it.+    environmentName :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of components to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next component in the array+    -- of components, after the list of components that was previously+    -- requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of a service instance for result list filtering. Proton returns+    -- the component attached to the service instance, if any.+    serviceInstanceName :: Prelude.Maybe Prelude.Text,+    -- | The name of a service for result list filtering. Proton returns+    -- components attached to service instances of the service.+    serviceName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListComponents' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentName', 'listComponents_environmentName' - The name of an environment for result list filtering. Proton returns+-- components associated with the environment or attached to service+-- instances running in it.+--+-- 'maxResults', 'listComponents_maxResults' - The maximum number of components to list.+--+-- 'nextToken', 'listComponents_nextToken' - A token that indicates the location of the next component in the array+-- of components, after the list of components that was previously+-- requested.+--+-- 'serviceInstanceName', 'listComponents_serviceInstanceName' - The name of a service instance for result list filtering. Proton returns+-- the component attached to the service instance, if any.+--+-- 'serviceName', 'listComponents_serviceName' - The name of a service for result list filtering. Proton returns+-- components attached to service instances of the service.+newListComponents ::+  ListComponents+newListComponents =+  ListComponents'+    { environmentName = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serviceInstanceName = Prelude.Nothing,+      serviceName = Prelude.Nothing+    }++-- | The name of an environment for result list filtering. Proton returns+-- components associated with the environment or attached to service+-- instances running in it.+listComponents_environmentName :: Lens.Lens' ListComponents (Prelude.Maybe Prelude.Text)+listComponents_environmentName = Lens.lens (\ListComponents' {environmentName} -> environmentName) (\s@ListComponents' {} a -> s {environmentName = a} :: ListComponents)++-- | The maximum number of components to list.+listComponents_maxResults :: Lens.Lens' ListComponents (Prelude.Maybe Prelude.Natural)+listComponents_maxResults = Lens.lens (\ListComponents' {maxResults} -> maxResults) (\s@ListComponents' {} a -> s {maxResults = a} :: ListComponents)++-- | A token that indicates the location of the next component in the array+-- of components, after the list of components that was previously+-- requested.+listComponents_nextToken :: Lens.Lens' ListComponents (Prelude.Maybe Prelude.Text)+listComponents_nextToken = Lens.lens (\ListComponents' {nextToken} -> nextToken) (\s@ListComponents' {} a -> s {nextToken = a} :: ListComponents)++-- | The name of a service instance for result list filtering. Proton returns+-- the component attached to the service instance, if any.+listComponents_serviceInstanceName :: Lens.Lens' ListComponents (Prelude.Maybe Prelude.Text)+listComponents_serviceInstanceName = Lens.lens (\ListComponents' {serviceInstanceName} -> serviceInstanceName) (\s@ListComponents' {} a -> s {serviceInstanceName = a} :: ListComponents)++-- | The name of a service for result list filtering. Proton returns+-- components attached to service instances of the service.+listComponents_serviceName :: Lens.Lens' ListComponents (Prelude.Maybe Prelude.Text)+listComponents_serviceName = Lens.lens (\ListComponents' {serviceName} -> serviceName) (\s@ListComponents' {} a -> s {serviceName = a} :: ListComponents)++instance Core.AWSPager ListComponents where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listComponentsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listComponentsResponse_components) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listComponents_nextToken+          Lens..~ rs+          Lens.^? listComponentsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListComponents where+  type+    AWSResponse ListComponents =+      ListComponentsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListComponentsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "components" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListComponents where+  hashWithSalt _salt ListComponents' {..} =+    _salt+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serviceInstanceName+      `Prelude.hashWithSalt` serviceName++instance Prelude.NFData ListComponents where+  rnf ListComponents' {..} =+    Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName++instance Data.ToHeaders ListComponents where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListComponents" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListComponents where+  toJSON ListComponents' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("environmentName" Data..=)+              Prelude.<$> environmentName,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("serviceInstanceName" Data..=)+              Prelude.<$> serviceInstanceName,+            ("serviceName" Data..=) Prelude.<$> serviceName+          ]+      )++instance Data.ToPath ListComponents where+  toPath = Prelude.const "/"++instance Data.ToQuery ListComponents where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListComponentsResponse' smart constructor.+data ListComponentsResponse = ListComponentsResponse'+  { -- | A token that indicates the location of the next component in the array+    -- of components, after the current requested list of components.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of components with summary data.+    components :: [ComponentSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListComponentsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listComponentsResponse_nextToken' - A token that indicates the location of the next component in the array+-- of components, after the current requested list of components.+--+-- 'httpStatus', 'listComponentsResponse_httpStatus' - The response's http status code.+--+-- 'components', 'listComponentsResponse_components' - An array of components with summary data.+newListComponentsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListComponentsResponse+newListComponentsResponse pHttpStatus_ =+  ListComponentsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      components = Prelude.mempty+    }++-- | A token that indicates the location of the next component in the array+-- of components, after the current requested list of components.+listComponentsResponse_nextToken :: Lens.Lens' ListComponentsResponse (Prelude.Maybe Prelude.Text)+listComponentsResponse_nextToken = Lens.lens (\ListComponentsResponse' {nextToken} -> nextToken) (\s@ListComponentsResponse' {} a -> s {nextToken = a} :: ListComponentsResponse)++-- | The response's http status code.+listComponentsResponse_httpStatus :: Lens.Lens' ListComponentsResponse Prelude.Int+listComponentsResponse_httpStatus = Lens.lens (\ListComponentsResponse' {httpStatus} -> httpStatus) (\s@ListComponentsResponse' {} a -> s {httpStatus = a} :: ListComponentsResponse)++-- | An array of components with summary data.+listComponentsResponse_components :: Lens.Lens' ListComponentsResponse [ComponentSummary]+listComponentsResponse_components = Lens.lens (\ListComponentsResponse' {components} -> components) (\s@ListComponentsResponse' {} a -> s {components = a} :: ListComponentsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListComponentsResponse where+  rnf ListComponentsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf components
+ gen/Amazonka/Proton/ListEnvironmentAccountConnections.hs view
@@ -0,0 +1,321 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListEnvironmentAccountConnections+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- View a list of environment account connections.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListEnvironmentAccountConnections+  ( -- * Creating a Request+    ListEnvironmentAccountConnections (..),+    newListEnvironmentAccountConnections,++    -- * Request Lenses+    listEnvironmentAccountConnections_environmentName,+    listEnvironmentAccountConnections_maxResults,+    listEnvironmentAccountConnections_nextToken,+    listEnvironmentAccountConnections_statuses,+    listEnvironmentAccountConnections_requestedBy,++    -- * Destructuring the Response+    ListEnvironmentAccountConnectionsResponse (..),+    newListEnvironmentAccountConnectionsResponse,++    -- * Response Lenses+    listEnvironmentAccountConnectionsResponse_nextToken,+    listEnvironmentAccountConnectionsResponse_httpStatus,+    listEnvironmentAccountConnectionsResponse_environmentAccountConnections,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListEnvironmentAccountConnections' smart constructor.+data ListEnvironmentAccountConnections = ListEnvironmentAccountConnections'+  { -- | The environment name that\'s associated with each listed environment+    -- account connection.+    environmentName :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of environment account connections to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next environment account+    -- connection in the array of environment account connections, after the+    -- list of environment account connections that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The status details for each listed environment account connection.+    statuses :: Prelude.Maybe [EnvironmentAccountConnectionStatus],+    -- | The type of account making the @ListEnvironmentAccountConnections@+    -- request.+    requestedBy :: EnvironmentAccountConnectionRequesterAccountType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentAccountConnections' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentName', 'listEnvironmentAccountConnections_environmentName' - The environment name that\'s associated with each listed environment+-- account connection.+--+-- 'maxResults', 'listEnvironmentAccountConnections_maxResults' - The maximum number of environment account connections to list.+--+-- 'nextToken', 'listEnvironmentAccountConnections_nextToken' - A token that indicates the location of the next environment account+-- connection in the array of environment account connections, after the+-- list of environment account connections that was previously requested.+--+-- 'statuses', 'listEnvironmentAccountConnections_statuses' - The status details for each listed environment account connection.+--+-- 'requestedBy', 'listEnvironmentAccountConnections_requestedBy' - The type of account making the @ListEnvironmentAccountConnections@+-- request.+newListEnvironmentAccountConnections ::+  -- | 'requestedBy'+  EnvironmentAccountConnectionRequesterAccountType ->+  ListEnvironmentAccountConnections+newListEnvironmentAccountConnections pRequestedBy_ =+  ListEnvironmentAccountConnections'+    { environmentName =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      statuses = Prelude.Nothing,+      requestedBy = pRequestedBy_+    }++-- | The environment name that\'s associated with each listed environment+-- account connection.+listEnvironmentAccountConnections_environmentName :: Lens.Lens' ListEnvironmentAccountConnections (Prelude.Maybe Prelude.Text)+listEnvironmentAccountConnections_environmentName = Lens.lens (\ListEnvironmentAccountConnections' {environmentName} -> environmentName) (\s@ListEnvironmentAccountConnections' {} a -> s {environmentName = a} :: ListEnvironmentAccountConnections)++-- | The maximum number of environment account connections to list.+listEnvironmentAccountConnections_maxResults :: Lens.Lens' ListEnvironmentAccountConnections (Prelude.Maybe Prelude.Natural)+listEnvironmentAccountConnections_maxResults = Lens.lens (\ListEnvironmentAccountConnections' {maxResults} -> maxResults) (\s@ListEnvironmentAccountConnections' {} a -> s {maxResults = a} :: ListEnvironmentAccountConnections)++-- | A token that indicates the location of the next environment account+-- connection in the array of environment account connections, after the+-- list of environment account connections that was previously requested.+listEnvironmentAccountConnections_nextToken :: Lens.Lens' ListEnvironmentAccountConnections (Prelude.Maybe Prelude.Text)+listEnvironmentAccountConnections_nextToken = Lens.lens (\ListEnvironmentAccountConnections' {nextToken} -> nextToken) (\s@ListEnvironmentAccountConnections' {} a -> s {nextToken = a} :: ListEnvironmentAccountConnections)++-- | The status details for each listed environment account connection.+listEnvironmentAccountConnections_statuses :: Lens.Lens' ListEnvironmentAccountConnections (Prelude.Maybe [EnvironmentAccountConnectionStatus])+listEnvironmentAccountConnections_statuses = Lens.lens (\ListEnvironmentAccountConnections' {statuses} -> statuses) (\s@ListEnvironmentAccountConnections' {} a -> s {statuses = a} :: ListEnvironmentAccountConnections) Prelude.. Lens.mapping Lens.coerced++-- | The type of account making the @ListEnvironmentAccountConnections@+-- request.+listEnvironmentAccountConnections_requestedBy :: Lens.Lens' ListEnvironmentAccountConnections EnvironmentAccountConnectionRequesterAccountType+listEnvironmentAccountConnections_requestedBy = Lens.lens (\ListEnvironmentAccountConnections' {requestedBy} -> requestedBy) (\s@ListEnvironmentAccountConnections' {} a -> s {requestedBy = a} :: ListEnvironmentAccountConnections)++instance+  Core.AWSPager+    ListEnvironmentAccountConnections+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEnvironmentAccountConnectionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listEnvironmentAccountConnectionsResponse_environmentAccountConnections+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEnvironmentAccountConnections_nextToken+          Lens..~ rs+          Lens.^? listEnvironmentAccountConnectionsResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListEnvironmentAccountConnections+  where+  type+    AWSResponse ListEnvironmentAccountConnections =+      ListEnvironmentAccountConnectionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEnvironmentAccountConnectionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "environmentAccountConnections"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListEnvironmentAccountConnections+  where+  hashWithSalt+    _salt+    ListEnvironmentAccountConnections' {..} =+      _salt+        `Prelude.hashWithSalt` environmentName+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` statuses+        `Prelude.hashWithSalt` requestedBy++instance+  Prelude.NFData+    ListEnvironmentAccountConnections+  where+  rnf ListEnvironmentAccountConnections' {..} =+    Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf statuses+      `Prelude.seq` Prelude.rnf requestedBy++instance+  Data.ToHeaders+    ListEnvironmentAccountConnections+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListEnvironmentAccountConnections" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    ListEnvironmentAccountConnections+  where+  toJSON ListEnvironmentAccountConnections' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("environmentName" Data..=)+              Prelude.<$> environmentName,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("statuses" Data..=) Prelude.<$> statuses,+            Prelude.Just ("requestedBy" Data..= requestedBy)+          ]+      )++instance+  Data.ToPath+    ListEnvironmentAccountConnections+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    ListEnvironmentAccountConnections+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEnvironmentAccountConnectionsResponse' smart constructor.+data ListEnvironmentAccountConnectionsResponse = ListEnvironmentAccountConnectionsResponse'+  { -- | A token that indicates the location of the next environment account+    -- connection in the array of environment account connections, after the+    -- current requested list of environment account connections.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of environment account connections with details that\'s+    -- returned by Proton.+    environmentAccountConnections :: [EnvironmentAccountConnectionSummary]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentAccountConnectionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentAccountConnectionsResponse_nextToken' - A token that indicates the location of the next environment account+-- connection in the array of environment account connections, after the+-- current requested list of environment account connections.+--+-- 'httpStatus', 'listEnvironmentAccountConnectionsResponse_httpStatus' - The response's http status code.+--+-- 'environmentAccountConnections', 'listEnvironmentAccountConnectionsResponse_environmentAccountConnections' - An array of environment account connections with details that\'s+-- returned by Proton.+newListEnvironmentAccountConnectionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEnvironmentAccountConnectionsResponse+newListEnvironmentAccountConnectionsResponse+  pHttpStatus_ =+    ListEnvironmentAccountConnectionsResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        environmentAccountConnections =+          Prelude.mempty+      }++-- | A token that indicates the location of the next environment account+-- connection in the array of environment account connections, after the+-- current requested list of environment account connections.+listEnvironmentAccountConnectionsResponse_nextToken :: Lens.Lens' ListEnvironmentAccountConnectionsResponse (Prelude.Maybe Prelude.Text)+listEnvironmentAccountConnectionsResponse_nextToken = Lens.lens (\ListEnvironmentAccountConnectionsResponse' {nextToken} -> nextToken) (\s@ListEnvironmentAccountConnectionsResponse' {} a -> s {nextToken = a} :: ListEnvironmentAccountConnectionsResponse)++-- | The response's http status code.+listEnvironmentAccountConnectionsResponse_httpStatus :: Lens.Lens' ListEnvironmentAccountConnectionsResponse Prelude.Int+listEnvironmentAccountConnectionsResponse_httpStatus = Lens.lens (\ListEnvironmentAccountConnectionsResponse' {httpStatus} -> httpStatus) (\s@ListEnvironmentAccountConnectionsResponse' {} a -> s {httpStatus = a} :: ListEnvironmentAccountConnectionsResponse)++-- | An array of environment account connections with details that\'s+-- returned by Proton.+listEnvironmentAccountConnectionsResponse_environmentAccountConnections :: Lens.Lens' ListEnvironmentAccountConnectionsResponse [EnvironmentAccountConnectionSummary]+listEnvironmentAccountConnectionsResponse_environmentAccountConnections = Lens.lens (\ListEnvironmentAccountConnectionsResponse' {environmentAccountConnections} -> environmentAccountConnections) (\s@ListEnvironmentAccountConnectionsResponse' {} a -> s {environmentAccountConnections = a} :: ListEnvironmentAccountConnectionsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListEnvironmentAccountConnectionsResponse+  where+  rnf ListEnvironmentAccountConnectionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentAccountConnections
+ gen/Amazonka/Proton/ListEnvironmentOutputs.hs view
@@ -0,0 +1,236 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListEnvironmentOutputs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the infrastructure as code outputs for your environment.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListEnvironmentOutputs+  ( -- * Creating a Request+    ListEnvironmentOutputs (..),+    newListEnvironmentOutputs,++    -- * Request Lenses+    listEnvironmentOutputs_nextToken,+    listEnvironmentOutputs_environmentName,++    -- * Destructuring the Response+    ListEnvironmentOutputsResponse (..),+    newListEnvironmentOutputsResponse,++    -- * Response Lenses+    listEnvironmentOutputsResponse_nextToken,+    listEnvironmentOutputsResponse_httpStatus,+    listEnvironmentOutputsResponse_outputs,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListEnvironmentOutputs' smart constructor.+data ListEnvironmentOutputs = ListEnvironmentOutputs'+  { -- | A token that indicates the location of the next environment output in+    -- the array of environment outputs, after the list of environment outputs+    -- that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The environment name.+    environmentName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentOutputs' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentOutputs_nextToken' - A token that indicates the location of the next environment output in+-- the array of environment outputs, after the list of environment outputs+-- that was previously requested.+--+-- 'environmentName', 'listEnvironmentOutputs_environmentName' - The environment name.+newListEnvironmentOutputs ::+  -- | 'environmentName'+  Prelude.Text ->+  ListEnvironmentOutputs+newListEnvironmentOutputs pEnvironmentName_ =+  ListEnvironmentOutputs'+    { nextToken =+        Prelude.Nothing,+      environmentName = pEnvironmentName_+    }++-- | A token that indicates the location of the next environment output in+-- the array of environment outputs, after the list of environment outputs+-- that was previously requested.+listEnvironmentOutputs_nextToken :: Lens.Lens' ListEnvironmentOutputs (Prelude.Maybe Prelude.Text)+listEnvironmentOutputs_nextToken = Lens.lens (\ListEnvironmentOutputs' {nextToken} -> nextToken) (\s@ListEnvironmentOutputs' {} a -> s {nextToken = a} :: ListEnvironmentOutputs)++-- | The environment name.+listEnvironmentOutputs_environmentName :: Lens.Lens' ListEnvironmentOutputs Prelude.Text+listEnvironmentOutputs_environmentName = Lens.lens (\ListEnvironmentOutputs' {environmentName} -> environmentName) (\s@ListEnvironmentOutputs' {} a -> s {environmentName = a} :: ListEnvironmentOutputs)++instance Core.AWSPager ListEnvironmentOutputs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEnvironmentOutputsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listEnvironmentOutputsResponse_outputs) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEnvironmentOutputs_nextToken+          Lens..~ rs+          Lens.^? listEnvironmentOutputsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListEnvironmentOutputs where+  type+    AWSResponse ListEnvironmentOutputs =+      ListEnvironmentOutputsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEnvironmentOutputsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "outputs" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListEnvironmentOutputs where+  hashWithSalt _salt ListEnvironmentOutputs' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` environmentName++instance Prelude.NFData ListEnvironmentOutputs where+  rnf ListEnvironmentOutputs' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf environmentName++instance Data.ToHeaders ListEnvironmentOutputs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListEnvironmentOutputs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListEnvironmentOutputs where+  toJSON ListEnvironmentOutputs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("environmentName" Data..= environmentName)+          ]+      )++instance Data.ToPath ListEnvironmentOutputs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListEnvironmentOutputs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEnvironmentOutputsResponse' smart constructor.+data ListEnvironmentOutputsResponse = ListEnvironmentOutputsResponse'+  { -- | A token that indicates the location of the next environment output in+    -- the array of environment outputs, after the current requested list of+    -- environment outputs.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of environment outputs with detail data.+    outputs :: [Data.Sensitive Output]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentOutputsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentOutputsResponse_nextToken' - A token that indicates the location of the next environment output in+-- the array of environment outputs, after the current requested list of+-- environment outputs.+--+-- 'httpStatus', 'listEnvironmentOutputsResponse_httpStatus' - The response's http status code.+--+-- 'outputs', 'listEnvironmentOutputsResponse_outputs' - An array of environment outputs with detail data.+newListEnvironmentOutputsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEnvironmentOutputsResponse+newListEnvironmentOutputsResponse pHttpStatus_ =+  ListEnvironmentOutputsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      outputs = Prelude.mempty+    }++-- | A token that indicates the location of the next environment output in+-- the array of environment outputs, after the current requested list of+-- environment outputs.+listEnvironmentOutputsResponse_nextToken :: Lens.Lens' ListEnvironmentOutputsResponse (Prelude.Maybe Prelude.Text)+listEnvironmentOutputsResponse_nextToken = Lens.lens (\ListEnvironmentOutputsResponse' {nextToken} -> nextToken) (\s@ListEnvironmentOutputsResponse' {} a -> s {nextToken = a} :: ListEnvironmentOutputsResponse)++-- | The response's http status code.+listEnvironmentOutputsResponse_httpStatus :: Lens.Lens' ListEnvironmentOutputsResponse Prelude.Int+listEnvironmentOutputsResponse_httpStatus = Lens.lens (\ListEnvironmentOutputsResponse' {httpStatus} -> httpStatus) (\s@ListEnvironmentOutputsResponse' {} a -> s {httpStatus = a} :: ListEnvironmentOutputsResponse)++-- | An array of environment outputs with detail data.+listEnvironmentOutputsResponse_outputs :: Lens.Lens' ListEnvironmentOutputsResponse [Output]+listEnvironmentOutputsResponse_outputs = Lens.lens (\ListEnvironmentOutputsResponse' {outputs} -> outputs) (\s@ListEnvironmentOutputsResponse' {} a -> s {outputs = a} :: ListEnvironmentOutputsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListEnvironmentOutputsResponse+  where+  rnf ListEnvironmentOutputsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf outputs
+ gen/Amazonka/Proton/ListEnvironmentProvisionedResources.hs view
@@ -0,0 +1,270 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListEnvironmentProvisionedResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the provisioned resources for your environment.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListEnvironmentProvisionedResources+  ( -- * Creating a Request+    ListEnvironmentProvisionedResources (..),+    newListEnvironmentProvisionedResources,++    -- * Request Lenses+    listEnvironmentProvisionedResources_nextToken,+    listEnvironmentProvisionedResources_environmentName,++    -- * Destructuring the Response+    ListEnvironmentProvisionedResourcesResponse (..),+    newListEnvironmentProvisionedResourcesResponse,++    -- * Response Lenses+    listEnvironmentProvisionedResourcesResponse_nextToken,+    listEnvironmentProvisionedResourcesResponse_httpStatus,+    listEnvironmentProvisionedResourcesResponse_provisionedResources,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListEnvironmentProvisionedResources' smart constructor.+data ListEnvironmentProvisionedResources = ListEnvironmentProvisionedResources'+  { -- | A token that indicates the location of the next environment provisioned+    -- resource in the array of environment provisioned resources, after the+    -- list of environment provisioned resources that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The environment name.+    environmentName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentProvisionedResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentProvisionedResources_nextToken' - A token that indicates the location of the next environment provisioned+-- resource in the array of environment provisioned resources, after the+-- list of environment provisioned resources that was previously requested.+--+-- 'environmentName', 'listEnvironmentProvisionedResources_environmentName' - The environment name.+newListEnvironmentProvisionedResources ::+  -- | 'environmentName'+  Prelude.Text ->+  ListEnvironmentProvisionedResources+newListEnvironmentProvisionedResources+  pEnvironmentName_ =+    ListEnvironmentProvisionedResources'+      { nextToken =+          Prelude.Nothing,+        environmentName = pEnvironmentName_+      }++-- | A token that indicates the location of the next environment provisioned+-- resource in the array of environment provisioned resources, after the+-- list of environment provisioned resources that was previously requested.+listEnvironmentProvisionedResources_nextToken :: Lens.Lens' ListEnvironmentProvisionedResources (Prelude.Maybe Prelude.Text)+listEnvironmentProvisionedResources_nextToken = Lens.lens (\ListEnvironmentProvisionedResources' {nextToken} -> nextToken) (\s@ListEnvironmentProvisionedResources' {} a -> s {nextToken = a} :: ListEnvironmentProvisionedResources)++-- | The environment name.+listEnvironmentProvisionedResources_environmentName :: Lens.Lens' ListEnvironmentProvisionedResources Prelude.Text+listEnvironmentProvisionedResources_environmentName = Lens.lens (\ListEnvironmentProvisionedResources' {environmentName} -> environmentName) (\s@ListEnvironmentProvisionedResources' {} a -> s {environmentName = a} :: ListEnvironmentProvisionedResources)++instance+  Core.AWSPager+    ListEnvironmentProvisionedResources+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEnvironmentProvisionedResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listEnvironmentProvisionedResourcesResponse_provisionedResources+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEnvironmentProvisionedResources_nextToken+          Lens..~ rs+          Lens.^? listEnvironmentProvisionedResourcesResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListEnvironmentProvisionedResources+  where+  type+    AWSResponse ListEnvironmentProvisionedResources =+      ListEnvironmentProvisionedResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEnvironmentProvisionedResourcesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "provisionedResources"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListEnvironmentProvisionedResources+  where+  hashWithSalt+    _salt+    ListEnvironmentProvisionedResources' {..} =+      _salt+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` environmentName++instance+  Prelude.NFData+    ListEnvironmentProvisionedResources+  where+  rnf ListEnvironmentProvisionedResources' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf environmentName++instance+  Data.ToHeaders+    ListEnvironmentProvisionedResources+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListEnvironmentProvisionedResources" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    ListEnvironmentProvisionedResources+  where+  toJSON ListEnvironmentProvisionedResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("environmentName" Data..= environmentName)+          ]+      )++instance+  Data.ToPath+    ListEnvironmentProvisionedResources+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    ListEnvironmentProvisionedResources+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEnvironmentProvisionedResourcesResponse' smart constructor.+data ListEnvironmentProvisionedResourcesResponse = ListEnvironmentProvisionedResourcesResponse'+  { -- | A token that indicates the location of the next environment provisioned+    -- resource in the array of provisioned resources, after the current+    -- requested list of environment provisioned resources.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of environment provisioned resources.+    provisionedResources :: [ProvisionedResource]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentProvisionedResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentProvisionedResourcesResponse_nextToken' - A token that indicates the location of the next environment provisioned+-- resource in the array of provisioned resources, after the current+-- requested list of environment provisioned resources.+--+-- 'httpStatus', 'listEnvironmentProvisionedResourcesResponse_httpStatus' - The response's http status code.+--+-- 'provisionedResources', 'listEnvironmentProvisionedResourcesResponse_provisionedResources' - An array of environment provisioned resources.+newListEnvironmentProvisionedResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEnvironmentProvisionedResourcesResponse+newListEnvironmentProvisionedResourcesResponse+  pHttpStatus_ =+    ListEnvironmentProvisionedResourcesResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        provisionedResources =+          Prelude.mempty+      }++-- | A token that indicates the location of the next environment provisioned+-- resource in the array of provisioned resources, after the current+-- requested list of environment provisioned resources.+listEnvironmentProvisionedResourcesResponse_nextToken :: Lens.Lens' ListEnvironmentProvisionedResourcesResponse (Prelude.Maybe Prelude.Text)+listEnvironmentProvisionedResourcesResponse_nextToken = Lens.lens (\ListEnvironmentProvisionedResourcesResponse' {nextToken} -> nextToken) (\s@ListEnvironmentProvisionedResourcesResponse' {} a -> s {nextToken = a} :: ListEnvironmentProvisionedResourcesResponse)++-- | The response's http status code.+listEnvironmentProvisionedResourcesResponse_httpStatus :: Lens.Lens' ListEnvironmentProvisionedResourcesResponse Prelude.Int+listEnvironmentProvisionedResourcesResponse_httpStatus = Lens.lens (\ListEnvironmentProvisionedResourcesResponse' {httpStatus} -> httpStatus) (\s@ListEnvironmentProvisionedResourcesResponse' {} a -> s {httpStatus = a} :: ListEnvironmentProvisionedResourcesResponse)++-- | An array of environment provisioned resources.+listEnvironmentProvisionedResourcesResponse_provisionedResources :: Lens.Lens' ListEnvironmentProvisionedResourcesResponse [ProvisionedResource]+listEnvironmentProvisionedResourcesResponse_provisionedResources = Lens.lens (\ListEnvironmentProvisionedResourcesResponse' {provisionedResources} -> provisionedResources) (\s@ListEnvironmentProvisionedResourcesResponse' {} a -> s {provisionedResources = a} :: ListEnvironmentProvisionedResourcesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListEnvironmentProvisionedResourcesResponse+  where+  rnf ListEnvironmentProvisionedResourcesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf provisionedResources
+ gen/Amazonka/Proton/ListEnvironmentTemplateVersions.hs view
@@ -0,0 +1,303 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListEnvironmentTemplateVersions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List major or minor versions of an environment template with detail+-- data.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListEnvironmentTemplateVersions+  ( -- * Creating a Request+    ListEnvironmentTemplateVersions (..),+    newListEnvironmentTemplateVersions,++    -- * Request Lenses+    listEnvironmentTemplateVersions_majorVersion,+    listEnvironmentTemplateVersions_maxResults,+    listEnvironmentTemplateVersions_nextToken,+    listEnvironmentTemplateVersions_templateName,++    -- * Destructuring the Response+    ListEnvironmentTemplateVersionsResponse (..),+    newListEnvironmentTemplateVersionsResponse,++    -- * Response Lenses+    listEnvironmentTemplateVersionsResponse_nextToken,+    listEnvironmentTemplateVersionsResponse_httpStatus,+    listEnvironmentTemplateVersionsResponse_templateVersions,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListEnvironmentTemplateVersions' smart constructor.+data ListEnvironmentTemplateVersions = ListEnvironmentTemplateVersions'+  { -- | To view a list of minor of versions under a major version of an+    -- environment template, include @major Version@.+    --+    -- To view a list of major versions of an environment template, /exclude/+    -- @major Version@.+    majorVersion :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of major or minor versions of an environment template+    -- to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next major or minor version+    -- in the array of major or minor versions of an environment template,+    -- after the list of major or minor versions that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentTemplateVersions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'listEnvironmentTemplateVersions_majorVersion' - To view a list of minor of versions under a major version of an+-- environment template, include @major Version@.+--+-- To view a list of major versions of an environment template, /exclude/+-- @major Version@.+--+-- 'maxResults', 'listEnvironmentTemplateVersions_maxResults' - The maximum number of major or minor versions of an environment template+-- to list.+--+-- 'nextToken', 'listEnvironmentTemplateVersions_nextToken' - A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of an environment template,+-- after the list of major or minor versions that was previously requested.+--+-- 'templateName', 'listEnvironmentTemplateVersions_templateName' - The name of the environment template.+newListEnvironmentTemplateVersions ::+  -- | 'templateName'+  Prelude.Text ->+  ListEnvironmentTemplateVersions+newListEnvironmentTemplateVersions pTemplateName_ =+  ListEnvironmentTemplateVersions'+    { majorVersion =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      templateName = pTemplateName_+    }++-- | To view a list of minor of versions under a major version of an+-- environment template, include @major Version@.+--+-- To view a list of major versions of an environment template, /exclude/+-- @major Version@.+listEnvironmentTemplateVersions_majorVersion :: Lens.Lens' ListEnvironmentTemplateVersions (Prelude.Maybe Prelude.Text)+listEnvironmentTemplateVersions_majorVersion = Lens.lens (\ListEnvironmentTemplateVersions' {majorVersion} -> majorVersion) (\s@ListEnvironmentTemplateVersions' {} a -> s {majorVersion = a} :: ListEnvironmentTemplateVersions)++-- | The maximum number of major or minor versions of an environment template+-- to list.+listEnvironmentTemplateVersions_maxResults :: Lens.Lens' ListEnvironmentTemplateVersions (Prelude.Maybe Prelude.Natural)+listEnvironmentTemplateVersions_maxResults = Lens.lens (\ListEnvironmentTemplateVersions' {maxResults} -> maxResults) (\s@ListEnvironmentTemplateVersions' {} a -> s {maxResults = a} :: ListEnvironmentTemplateVersions)++-- | A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of an environment template,+-- after the list of major or minor versions that was previously requested.+listEnvironmentTemplateVersions_nextToken :: Lens.Lens' ListEnvironmentTemplateVersions (Prelude.Maybe Prelude.Text)+listEnvironmentTemplateVersions_nextToken = Lens.lens (\ListEnvironmentTemplateVersions' {nextToken} -> nextToken) (\s@ListEnvironmentTemplateVersions' {} a -> s {nextToken = a} :: ListEnvironmentTemplateVersions)++-- | The name of the environment template.+listEnvironmentTemplateVersions_templateName :: Lens.Lens' ListEnvironmentTemplateVersions Prelude.Text+listEnvironmentTemplateVersions_templateName = Lens.lens (\ListEnvironmentTemplateVersions' {templateName} -> templateName) (\s@ListEnvironmentTemplateVersions' {} a -> s {templateName = a} :: ListEnvironmentTemplateVersions)++instance+  Core.AWSPager+    ListEnvironmentTemplateVersions+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEnvironmentTemplateVersionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listEnvironmentTemplateVersionsResponse_templateVersions+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEnvironmentTemplateVersions_nextToken+          Lens..~ rs+          Lens.^? listEnvironmentTemplateVersionsResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListEnvironmentTemplateVersions+  where+  type+    AWSResponse ListEnvironmentTemplateVersions =+      ListEnvironmentTemplateVersionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEnvironmentTemplateVersionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "templateVersions"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListEnvironmentTemplateVersions+  where+  hashWithSalt+    _salt+    ListEnvironmentTemplateVersions' {..} =+      _salt+        `Prelude.hashWithSalt` majorVersion+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` templateName++instance+  Prelude.NFData+    ListEnvironmentTemplateVersions+  where+  rnf ListEnvironmentTemplateVersions' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf templateName++instance+  Data.ToHeaders+    ListEnvironmentTemplateVersions+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListEnvironmentTemplateVersions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListEnvironmentTemplateVersions where+  toJSON ListEnvironmentTemplateVersions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("majorVersion" Data..=) Prelude.<$> majorVersion,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath ListEnvironmentTemplateVersions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListEnvironmentTemplateVersions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEnvironmentTemplateVersionsResponse' smart constructor.+data ListEnvironmentTemplateVersionsResponse = ListEnvironmentTemplateVersionsResponse'+  { -- | A token that indicates the location of the next major or minor version+    -- in the array of major or minor versions of an environment template,+    -- after the list of major or minor versions that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of major or minor versions of an environment template detail+    -- data.+    templateVersions :: [EnvironmentTemplateVersionSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentTemplateVersionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentTemplateVersionsResponse_nextToken' - A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of an environment template,+-- after the list of major or minor versions that was previously requested.+--+-- 'httpStatus', 'listEnvironmentTemplateVersionsResponse_httpStatus' - The response's http status code.+--+-- 'templateVersions', 'listEnvironmentTemplateVersionsResponse_templateVersions' - An array of major or minor versions of an environment template detail+-- data.+newListEnvironmentTemplateVersionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEnvironmentTemplateVersionsResponse+newListEnvironmentTemplateVersionsResponse+  pHttpStatus_ =+    ListEnvironmentTemplateVersionsResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        templateVersions = Prelude.mempty+      }++-- | A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of an environment template,+-- after the list of major or minor versions that was previously requested.+listEnvironmentTemplateVersionsResponse_nextToken :: Lens.Lens' ListEnvironmentTemplateVersionsResponse (Prelude.Maybe Prelude.Text)+listEnvironmentTemplateVersionsResponse_nextToken = Lens.lens (\ListEnvironmentTemplateVersionsResponse' {nextToken} -> nextToken) (\s@ListEnvironmentTemplateVersionsResponse' {} a -> s {nextToken = a} :: ListEnvironmentTemplateVersionsResponse)++-- | The response's http status code.+listEnvironmentTemplateVersionsResponse_httpStatus :: Lens.Lens' ListEnvironmentTemplateVersionsResponse Prelude.Int+listEnvironmentTemplateVersionsResponse_httpStatus = Lens.lens (\ListEnvironmentTemplateVersionsResponse' {httpStatus} -> httpStatus) (\s@ListEnvironmentTemplateVersionsResponse' {} a -> s {httpStatus = a} :: ListEnvironmentTemplateVersionsResponse)++-- | An array of major or minor versions of an environment template detail+-- data.+listEnvironmentTemplateVersionsResponse_templateVersions :: Lens.Lens' ListEnvironmentTemplateVersionsResponse [EnvironmentTemplateVersionSummary]+listEnvironmentTemplateVersionsResponse_templateVersions = Lens.lens (\ListEnvironmentTemplateVersionsResponse' {templateVersions} -> templateVersions) (\s@ListEnvironmentTemplateVersionsResponse' {} a -> s {templateVersions = a} :: ListEnvironmentTemplateVersionsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListEnvironmentTemplateVersionsResponse+  where+  rnf ListEnvironmentTemplateVersionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf templateVersions
+ gen/Amazonka/Proton/ListEnvironmentTemplates.hs view
@@ -0,0 +1,235 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListEnvironmentTemplates+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List environment templates.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListEnvironmentTemplates+  ( -- * Creating a Request+    ListEnvironmentTemplates (..),+    newListEnvironmentTemplates,++    -- * Request Lenses+    listEnvironmentTemplates_maxResults,+    listEnvironmentTemplates_nextToken,++    -- * Destructuring the Response+    ListEnvironmentTemplatesResponse (..),+    newListEnvironmentTemplatesResponse,++    -- * Response Lenses+    listEnvironmentTemplatesResponse_nextToken,+    listEnvironmentTemplatesResponse_httpStatus,+    listEnvironmentTemplatesResponse_templates,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListEnvironmentTemplates' smart constructor.+data ListEnvironmentTemplates = ListEnvironmentTemplates'+  { -- | The maximum number of environment templates to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next environment template in+    -- the array of environment templates, after the list of environment+    -- templates that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentTemplates' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listEnvironmentTemplates_maxResults' - The maximum number of environment templates to list.+--+-- 'nextToken', 'listEnvironmentTemplates_nextToken' - A token that indicates the location of the next environment template in+-- the array of environment templates, after the list of environment+-- templates that was previously requested.+newListEnvironmentTemplates ::+  ListEnvironmentTemplates+newListEnvironmentTemplates =+  ListEnvironmentTemplates'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of environment templates to list.+listEnvironmentTemplates_maxResults :: Lens.Lens' ListEnvironmentTemplates (Prelude.Maybe Prelude.Natural)+listEnvironmentTemplates_maxResults = Lens.lens (\ListEnvironmentTemplates' {maxResults} -> maxResults) (\s@ListEnvironmentTemplates' {} a -> s {maxResults = a} :: ListEnvironmentTemplates)++-- | A token that indicates the location of the next environment template in+-- the array of environment templates, after the list of environment+-- templates that was previously requested.+listEnvironmentTemplates_nextToken :: Lens.Lens' ListEnvironmentTemplates (Prelude.Maybe Prelude.Text)+listEnvironmentTemplates_nextToken = Lens.lens (\ListEnvironmentTemplates' {nextToken} -> nextToken) (\s@ListEnvironmentTemplates' {} a -> s {nextToken = a} :: ListEnvironmentTemplates)++instance Core.AWSPager ListEnvironmentTemplates where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEnvironmentTemplatesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listEnvironmentTemplatesResponse_templates+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEnvironmentTemplates_nextToken+          Lens..~ rs+          Lens.^? listEnvironmentTemplatesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListEnvironmentTemplates where+  type+    AWSResponse ListEnvironmentTemplates =+      ListEnvironmentTemplatesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEnvironmentTemplatesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "templates" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListEnvironmentTemplates where+  hashWithSalt _salt ListEnvironmentTemplates' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListEnvironmentTemplates where+  rnf ListEnvironmentTemplates' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListEnvironmentTemplates where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListEnvironmentTemplates" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListEnvironmentTemplates where+  toJSON ListEnvironmentTemplates' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListEnvironmentTemplates where+  toPath = Prelude.const "/"++instance Data.ToQuery ListEnvironmentTemplates where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEnvironmentTemplatesResponse' smart constructor.+data ListEnvironmentTemplatesResponse = ListEnvironmentTemplatesResponse'+  { -- | A token that indicates the location of the next environment template in+    -- the array of environment templates, after the current requested list of+    -- environment templates.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of environment templates with detail data.+    templates :: [EnvironmentTemplateSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentTemplatesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentTemplatesResponse_nextToken' - A token that indicates the location of the next environment template in+-- the array of environment templates, after the current requested list of+-- environment templates.+--+-- 'httpStatus', 'listEnvironmentTemplatesResponse_httpStatus' - The response's http status code.+--+-- 'templates', 'listEnvironmentTemplatesResponse_templates' - An array of environment templates with detail data.+newListEnvironmentTemplatesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEnvironmentTemplatesResponse+newListEnvironmentTemplatesResponse pHttpStatus_ =+  ListEnvironmentTemplatesResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      templates = Prelude.mempty+    }++-- | A token that indicates the location of the next environment template in+-- the array of environment templates, after the current requested list of+-- environment templates.+listEnvironmentTemplatesResponse_nextToken :: Lens.Lens' ListEnvironmentTemplatesResponse (Prelude.Maybe Prelude.Text)+listEnvironmentTemplatesResponse_nextToken = Lens.lens (\ListEnvironmentTemplatesResponse' {nextToken} -> nextToken) (\s@ListEnvironmentTemplatesResponse' {} a -> s {nextToken = a} :: ListEnvironmentTemplatesResponse)++-- | The response's http status code.+listEnvironmentTemplatesResponse_httpStatus :: Lens.Lens' ListEnvironmentTemplatesResponse Prelude.Int+listEnvironmentTemplatesResponse_httpStatus = Lens.lens (\ListEnvironmentTemplatesResponse' {httpStatus} -> httpStatus) (\s@ListEnvironmentTemplatesResponse' {} a -> s {httpStatus = a} :: ListEnvironmentTemplatesResponse)++-- | An array of environment templates with detail data.+listEnvironmentTemplatesResponse_templates :: Lens.Lens' ListEnvironmentTemplatesResponse [EnvironmentTemplateSummary]+listEnvironmentTemplatesResponse_templates = Lens.lens (\ListEnvironmentTemplatesResponse' {templates} -> templates) (\s@ListEnvironmentTemplatesResponse' {} a -> s {templates = a} :: ListEnvironmentTemplatesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListEnvironmentTemplatesResponse+  where+  rnf ListEnvironmentTemplatesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf templates
+ gen/Amazonka/Proton/ListEnvironments.hs view
@@ -0,0 +1,241 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListEnvironments+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List environments with detail data summaries.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListEnvironments+  ( -- * Creating a Request+    ListEnvironments (..),+    newListEnvironments,++    -- * Request Lenses+    listEnvironments_environmentTemplates,+    listEnvironments_maxResults,+    listEnvironments_nextToken,++    -- * Destructuring the Response+    ListEnvironmentsResponse (..),+    newListEnvironmentsResponse,++    -- * Response Lenses+    listEnvironmentsResponse_nextToken,+    listEnvironmentsResponse_httpStatus,+    listEnvironmentsResponse_environments,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListEnvironments' smart constructor.+data ListEnvironments = ListEnvironments'+  { -- | An array of the versions of the environment template.+    environmentTemplates :: Prelude.Maybe [EnvironmentTemplateFilter],+    -- | The maximum number of environments to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next environment in the array+    -- of environments, after the list of environments that was previously+    -- requested.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironments' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'environmentTemplates', 'listEnvironments_environmentTemplates' - An array of the versions of the environment template.+--+-- 'maxResults', 'listEnvironments_maxResults' - The maximum number of environments to list.+--+-- 'nextToken', 'listEnvironments_nextToken' - A token that indicates the location of the next environment in the array+-- of environments, after the list of environments that was previously+-- requested.+newListEnvironments ::+  ListEnvironments+newListEnvironments =+  ListEnvironments'+    { environmentTemplates =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | An array of the versions of the environment template.+listEnvironments_environmentTemplates :: Lens.Lens' ListEnvironments (Prelude.Maybe [EnvironmentTemplateFilter])+listEnvironments_environmentTemplates = Lens.lens (\ListEnvironments' {environmentTemplates} -> environmentTemplates) (\s@ListEnvironments' {} a -> s {environmentTemplates = a} :: ListEnvironments) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of environments to list.+listEnvironments_maxResults :: Lens.Lens' ListEnvironments (Prelude.Maybe Prelude.Natural)+listEnvironments_maxResults = Lens.lens (\ListEnvironments' {maxResults} -> maxResults) (\s@ListEnvironments' {} a -> s {maxResults = a} :: ListEnvironments)++-- | A token that indicates the location of the next environment in the array+-- of environments, after the list of environments that was previously+-- requested.+listEnvironments_nextToken :: Lens.Lens' ListEnvironments (Prelude.Maybe Prelude.Text)+listEnvironments_nextToken = Lens.lens (\ListEnvironments' {nextToken} -> nextToken) (\s@ListEnvironments' {} a -> s {nextToken = a} :: ListEnvironments)++instance Core.AWSPager ListEnvironments where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEnvironmentsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listEnvironmentsResponse_environments) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEnvironments_nextToken+          Lens..~ rs+          Lens.^? listEnvironmentsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListEnvironments where+  type+    AWSResponse ListEnvironments =+      ListEnvironmentsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEnvironmentsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "environments" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListEnvironments where+  hashWithSalt _salt ListEnvironments' {..} =+    _salt+      `Prelude.hashWithSalt` environmentTemplates+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListEnvironments where+  rnf ListEnvironments' {..} =+    Prelude.rnf environmentTemplates+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListEnvironments where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListEnvironments" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListEnvironments where+  toJSON ListEnvironments' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("environmentTemplates" Data..=)+              Prelude.<$> environmentTemplates,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListEnvironments where+  toPath = Prelude.const "/"++instance Data.ToQuery ListEnvironments where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEnvironmentsResponse' smart constructor.+data ListEnvironmentsResponse = ListEnvironmentsResponse'+  { -- | A token that indicates the location of the next environment in the array+    -- of environments, after the current requested list of environments.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of environment detail data summaries.+    environments :: [EnvironmentSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEnvironmentsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listEnvironmentsResponse_nextToken' - A token that indicates the location of the next environment in the array+-- of environments, after the current requested list of environments.+--+-- 'httpStatus', 'listEnvironmentsResponse_httpStatus' - The response's http status code.+--+-- 'environments', 'listEnvironmentsResponse_environments' - An array of environment detail data summaries.+newListEnvironmentsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEnvironmentsResponse+newListEnvironmentsResponse pHttpStatus_ =+  ListEnvironmentsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      environments = Prelude.mempty+    }++-- | A token that indicates the location of the next environment in the array+-- of environments, after the current requested list of environments.+listEnvironmentsResponse_nextToken :: Lens.Lens' ListEnvironmentsResponse (Prelude.Maybe Prelude.Text)+listEnvironmentsResponse_nextToken = Lens.lens (\ListEnvironmentsResponse' {nextToken} -> nextToken) (\s@ListEnvironmentsResponse' {} a -> s {nextToken = a} :: ListEnvironmentsResponse)++-- | The response's http status code.+listEnvironmentsResponse_httpStatus :: Lens.Lens' ListEnvironmentsResponse Prelude.Int+listEnvironmentsResponse_httpStatus = Lens.lens (\ListEnvironmentsResponse' {httpStatus} -> httpStatus) (\s@ListEnvironmentsResponse' {} a -> s {httpStatus = a} :: ListEnvironmentsResponse)++-- | An array of environment detail data summaries.+listEnvironmentsResponse_environments :: Lens.Lens' ListEnvironmentsResponse [EnvironmentSummary]+listEnvironmentsResponse_environments = Lens.lens (\ListEnvironmentsResponse' {environments} -> environments) (\s@ListEnvironmentsResponse' {} a -> s {environments = a} :: ListEnvironmentsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListEnvironmentsResponse where+  rnf ListEnvironmentsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environments
+ gen/Amazonka/Proton/ListRepositories.hs view
@@ -0,0 +1,223 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListRepositories+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List linked repositories with detail data.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListRepositories+  ( -- * Creating a Request+    ListRepositories (..),+    newListRepositories,++    -- * Request Lenses+    listRepositories_maxResults,+    listRepositories_nextToken,++    -- * Destructuring the Response+    ListRepositoriesResponse (..),+    newListRepositoriesResponse,++    -- * Response Lenses+    listRepositoriesResponse_nextToken,+    listRepositoriesResponse_httpStatus,+    listRepositoriesResponse_repositories,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListRepositories' smart constructor.+data ListRepositories = ListRepositories'+  { -- | The maximum number of repositories to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next repository in the array+    -- of repositories, after the list of repositories previously requested.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRepositories' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listRepositories_maxResults' - The maximum number of repositories to list.+--+-- 'nextToken', 'listRepositories_nextToken' - A token that indicates the location of the next repository in the array+-- of repositories, after the list of repositories previously requested.+newListRepositories ::+  ListRepositories+newListRepositories =+  ListRepositories'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of repositories to list.+listRepositories_maxResults :: Lens.Lens' ListRepositories (Prelude.Maybe Prelude.Natural)+listRepositories_maxResults = Lens.lens (\ListRepositories' {maxResults} -> maxResults) (\s@ListRepositories' {} a -> s {maxResults = a} :: ListRepositories)++-- | A token that indicates the location of the next repository in the array+-- of repositories, after the list of repositories previously requested.+listRepositories_nextToken :: Lens.Lens' ListRepositories (Prelude.Maybe Prelude.Text)+listRepositories_nextToken = Lens.lens (\ListRepositories' {nextToken} -> nextToken) (\s@ListRepositories' {} a -> s {nextToken = a} :: ListRepositories)++instance Core.AWSPager ListRepositories where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listRepositoriesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listRepositoriesResponse_repositories) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listRepositories_nextToken+          Lens..~ rs+          Lens.^? listRepositoriesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListRepositories where+  type+    AWSResponse ListRepositories =+      ListRepositoriesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListRepositoriesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "repositories" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListRepositories where+  hashWithSalt _salt ListRepositories' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListRepositories where+  rnf ListRepositories' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListRepositories where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListRepositories" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListRepositories where+  toJSON ListRepositories' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListRepositories where+  toPath = Prelude.const "/"++instance Data.ToQuery ListRepositories where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListRepositoriesResponse' smart constructor.+data ListRepositoriesResponse = ListRepositoriesResponse'+  { -- | A token that indicates the location of the next repository in the array+    -- of repositories, after the current requested list of repositories.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of repository links.+    repositories :: [RepositorySummary]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRepositoriesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRepositoriesResponse_nextToken' - A token that indicates the location of the next repository in the array+-- of repositories, after the current requested list of repositories.+--+-- 'httpStatus', 'listRepositoriesResponse_httpStatus' - The response's http status code.+--+-- 'repositories', 'listRepositoriesResponse_repositories' - An array of repository links.+newListRepositoriesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListRepositoriesResponse+newListRepositoriesResponse pHttpStatus_ =+  ListRepositoriesResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      repositories = Prelude.mempty+    }++-- | A token that indicates the location of the next repository in the array+-- of repositories, after the current requested list of repositories.+listRepositoriesResponse_nextToken :: Lens.Lens' ListRepositoriesResponse (Prelude.Maybe Prelude.Text)+listRepositoriesResponse_nextToken = Lens.lens (\ListRepositoriesResponse' {nextToken} -> nextToken) (\s@ListRepositoriesResponse' {} a -> s {nextToken = a} :: ListRepositoriesResponse)++-- | The response's http status code.+listRepositoriesResponse_httpStatus :: Lens.Lens' ListRepositoriesResponse Prelude.Int+listRepositoriesResponse_httpStatus = Lens.lens (\ListRepositoriesResponse' {httpStatus} -> httpStatus) (\s@ListRepositoriesResponse' {} a -> s {httpStatus = a} :: ListRepositoriesResponse)++-- | An array of repository links.+listRepositoriesResponse_repositories :: Lens.Lens' ListRepositoriesResponse [RepositorySummary]+listRepositoriesResponse_repositories = Lens.lens (\ListRepositoriesResponse' {repositories} -> repositories) (\s@ListRepositoriesResponse' {} a -> s {repositories = a} :: ListRepositoriesResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListRepositoriesResponse where+  rnf ListRepositoriesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf repositories
+ gen/Amazonka/Proton/ListRepositorySyncDefinitions.hs view
@@ -0,0 +1,281 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListRepositorySyncDefinitions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List repository sync definitions with detail data.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListRepositorySyncDefinitions+  ( -- * Creating a Request+    ListRepositorySyncDefinitions (..),+    newListRepositorySyncDefinitions,++    -- * Request Lenses+    listRepositorySyncDefinitions_nextToken,+    listRepositorySyncDefinitions_repositoryName,+    listRepositorySyncDefinitions_repositoryProvider,+    listRepositorySyncDefinitions_syncType,++    -- * Destructuring the Response+    ListRepositorySyncDefinitionsResponse (..),+    newListRepositorySyncDefinitionsResponse,++    -- * Response Lenses+    listRepositorySyncDefinitionsResponse_nextToken,+    listRepositorySyncDefinitionsResponse_httpStatus,+    listRepositorySyncDefinitionsResponse_syncDefinitions,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListRepositorySyncDefinitions' smart constructor.+data ListRepositorySyncDefinitions = ListRepositorySyncDefinitions'+  { -- | A token that indicates the location of the next repository sync+    -- definition in the array of repository sync definitions, after the list+    -- of repository sync definitions previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The repository name.+    repositoryName :: Prelude.Text,+    -- | The repository provider.+    repositoryProvider :: RepositoryProvider,+    -- | The sync type. The only supported value is @TEMPLATE_SYNC@.+    syncType :: SyncType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRepositorySyncDefinitions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRepositorySyncDefinitions_nextToken' - A token that indicates the location of the next repository sync+-- definition in the array of repository sync definitions, after the list+-- of repository sync definitions previously requested.+--+-- 'repositoryName', 'listRepositorySyncDefinitions_repositoryName' - The repository name.+--+-- 'repositoryProvider', 'listRepositorySyncDefinitions_repositoryProvider' - The repository provider.+--+-- 'syncType', 'listRepositorySyncDefinitions_syncType' - The sync type. The only supported value is @TEMPLATE_SYNC@.+newListRepositorySyncDefinitions ::+  -- | 'repositoryName'+  Prelude.Text ->+  -- | 'repositoryProvider'+  RepositoryProvider ->+  -- | 'syncType'+  SyncType ->+  ListRepositorySyncDefinitions+newListRepositorySyncDefinitions+  pRepositoryName_+  pRepositoryProvider_+  pSyncType_ =+    ListRepositorySyncDefinitions'+      { nextToken =+          Prelude.Nothing,+        repositoryName = pRepositoryName_,+        repositoryProvider = pRepositoryProvider_,+        syncType = pSyncType_+      }++-- | A token that indicates the location of the next repository sync+-- definition in the array of repository sync definitions, after the list+-- of repository sync definitions previously requested.+listRepositorySyncDefinitions_nextToken :: Lens.Lens' ListRepositorySyncDefinitions (Prelude.Maybe Prelude.Text)+listRepositorySyncDefinitions_nextToken = Lens.lens (\ListRepositorySyncDefinitions' {nextToken} -> nextToken) (\s@ListRepositorySyncDefinitions' {} a -> s {nextToken = a} :: ListRepositorySyncDefinitions)++-- | The repository name.+listRepositorySyncDefinitions_repositoryName :: Lens.Lens' ListRepositorySyncDefinitions Prelude.Text+listRepositorySyncDefinitions_repositoryName = Lens.lens (\ListRepositorySyncDefinitions' {repositoryName} -> repositoryName) (\s@ListRepositorySyncDefinitions' {} a -> s {repositoryName = a} :: ListRepositorySyncDefinitions)++-- | The repository provider.+listRepositorySyncDefinitions_repositoryProvider :: Lens.Lens' ListRepositorySyncDefinitions RepositoryProvider+listRepositorySyncDefinitions_repositoryProvider = Lens.lens (\ListRepositorySyncDefinitions' {repositoryProvider} -> repositoryProvider) (\s@ListRepositorySyncDefinitions' {} a -> s {repositoryProvider = a} :: ListRepositorySyncDefinitions)++-- | The sync type. The only supported value is @TEMPLATE_SYNC@.+listRepositorySyncDefinitions_syncType :: Lens.Lens' ListRepositorySyncDefinitions SyncType+listRepositorySyncDefinitions_syncType = Lens.lens (\ListRepositorySyncDefinitions' {syncType} -> syncType) (\s@ListRepositorySyncDefinitions' {} a -> s {syncType = a} :: ListRepositorySyncDefinitions)++instance Core.AWSPager ListRepositorySyncDefinitions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listRepositorySyncDefinitionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listRepositorySyncDefinitionsResponse_syncDefinitions+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listRepositorySyncDefinitions_nextToken+          Lens..~ rs+          Lens.^? listRepositorySyncDefinitionsResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListRepositorySyncDefinitions+  where+  type+    AWSResponse ListRepositorySyncDefinitions =+      ListRepositorySyncDefinitionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListRepositorySyncDefinitionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "syncDefinitions"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListRepositorySyncDefinitions+  where+  hashWithSalt _salt ListRepositorySyncDefinitions' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` repositoryName+      `Prelude.hashWithSalt` repositoryProvider+      `Prelude.hashWithSalt` syncType++instance Prelude.NFData ListRepositorySyncDefinitions where+  rnf ListRepositorySyncDefinitions' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf repositoryName+      `Prelude.seq` Prelude.rnf repositoryProvider+      `Prelude.seq` Prelude.rnf syncType++instance Data.ToHeaders ListRepositorySyncDefinitions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListRepositorySyncDefinitions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListRepositorySyncDefinitions where+  toJSON ListRepositorySyncDefinitions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("repositoryName" Data..= repositoryName),+            Prelude.Just+              ("repositoryProvider" Data..= repositoryProvider),+            Prelude.Just ("syncType" Data..= syncType)+          ]+      )++instance Data.ToPath ListRepositorySyncDefinitions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListRepositorySyncDefinitions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListRepositorySyncDefinitionsResponse' smart constructor.+data ListRepositorySyncDefinitionsResponse = ListRepositorySyncDefinitionsResponse'+  { -- | A token that indicates the location of the next repository sync+    -- definition in the array of repository sync definitions, after the+    -- current requested list of repository sync definitions.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of repository sync definitions.+    syncDefinitions :: [RepositorySyncDefinition]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRepositorySyncDefinitionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRepositorySyncDefinitionsResponse_nextToken' - A token that indicates the location of the next repository sync+-- definition in the array of repository sync definitions, after the+-- current requested list of repository sync definitions.+--+-- 'httpStatus', 'listRepositorySyncDefinitionsResponse_httpStatus' - The response's http status code.+--+-- 'syncDefinitions', 'listRepositorySyncDefinitionsResponse_syncDefinitions' - An array of repository sync definitions.+newListRepositorySyncDefinitionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListRepositorySyncDefinitionsResponse+newListRepositorySyncDefinitionsResponse pHttpStatus_ =+  ListRepositorySyncDefinitionsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      syncDefinitions = Prelude.mempty+    }++-- | A token that indicates the location of the next repository sync+-- definition in the array of repository sync definitions, after the+-- current requested list of repository sync definitions.+listRepositorySyncDefinitionsResponse_nextToken :: Lens.Lens' ListRepositorySyncDefinitionsResponse (Prelude.Maybe Prelude.Text)+listRepositorySyncDefinitionsResponse_nextToken = Lens.lens (\ListRepositorySyncDefinitionsResponse' {nextToken} -> nextToken) (\s@ListRepositorySyncDefinitionsResponse' {} a -> s {nextToken = a} :: ListRepositorySyncDefinitionsResponse)++-- | The response's http status code.+listRepositorySyncDefinitionsResponse_httpStatus :: Lens.Lens' ListRepositorySyncDefinitionsResponse Prelude.Int+listRepositorySyncDefinitionsResponse_httpStatus = Lens.lens (\ListRepositorySyncDefinitionsResponse' {httpStatus} -> httpStatus) (\s@ListRepositorySyncDefinitionsResponse' {} a -> s {httpStatus = a} :: ListRepositorySyncDefinitionsResponse)++-- | An array of repository sync definitions.+listRepositorySyncDefinitionsResponse_syncDefinitions :: Lens.Lens' ListRepositorySyncDefinitionsResponse [RepositorySyncDefinition]+listRepositorySyncDefinitionsResponse_syncDefinitions = Lens.lens (\ListRepositorySyncDefinitionsResponse' {syncDefinitions} -> syncDefinitions) (\s@ListRepositorySyncDefinitionsResponse' {} a -> s {syncDefinitions = a} :: ListRepositorySyncDefinitionsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListRepositorySyncDefinitionsResponse+  where+  rnf ListRepositorySyncDefinitionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf syncDefinitions
+ gen/Amazonka/Proton/ListServiceInstanceOutputs.hs view
@@ -0,0 +1,249 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServiceInstanceOutputs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get a list service of instance Infrastructure as Code (IaC) outputs.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServiceInstanceOutputs+  ( -- * Creating a Request+    ListServiceInstanceOutputs (..),+    newListServiceInstanceOutputs,++    -- * Request Lenses+    listServiceInstanceOutputs_nextToken,+    listServiceInstanceOutputs_serviceInstanceName,+    listServiceInstanceOutputs_serviceName,++    -- * Destructuring the Response+    ListServiceInstanceOutputsResponse (..),+    newListServiceInstanceOutputsResponse,++    -- * Response Lenses+    listServiceInstanceOutputsResponse_nextToken,+    listServiceInstanceOutputsResponse_httpStatus,+    listServiceInstanceOutputsResponse_outputs,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServiceInstanceOutputs' smart constructor.+data ListServiceInstanceOutputs = ListServiceInstanceOutputs'+  { -- | A token that indicates the location of the next output in the array of+    -- outputs, after the list of outputs that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the service instance whose outputs you want.+    serviceInstanceName :: Prelude.Text,+    -- | The name of the service that @serviceInstanceName@ is associated to.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstanceOutputs' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceInstanceOutputs_nextToken' - A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+--+-- 'serviceInstanceName', 'listServiceInstanceOutputs_serviceInstanceName' - The name of the service instance whose outputs you want.+--+-- 'serviceName', 'listServiceInstanceOutputs_serviceName' - The name of the service that @serviceInstanceName@ is associated to.+newListServiceInstanceOutputs ::+  -- | 'serviceInstanceName'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  ListServiceInstanceOutputs+newListServiceInstanceOutputs+  pServiceInstanceName_+  pServiceName_ =+    ListServiceInstanceOutputs'+      { nextToken =+          Prelude.Nothing,+        serviceInstanceName = pServiceInstanceName_,+        serviceName = pServiceName_+      }++-- | A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+listServiceInstanceOutputs_nextToken :: Lens.Lens' ListServiceInstanceOutputs (Prelude.Maybe Prelude.Text)+listServiceInstanceOutputs_nextToken = Lens.lens (\ListServiceInstanceOutputs' {nextToken} -> nextToken) (\s@ListServiceInstanceOutputs' {} a -> s {nextToken = a} :: ListServiceInstanceOutputs)++-- | The name of the service instance whose outputs you want.+listServiceInstanceOutputs_serviceInstanceName :: Lens.Lens' ListServiceInstanceOutputs Prelude.Text+listServiceInstanceOutputs_serviceInstanceName = Lens.lens (\ListServiceInstanceOutputs' {serviceInstanceName} -> serviceInstanceName) (\s@ListServiceInstanceOutputs' {} a -> s {serviceInstanceName = a} :: ListServiceInstanceOutputs)++-- | The name of the service that @serviceInstanceName@ is associated to.+listServiceInstanceOutputs_serviceName :: Lens.Lens' ListServiceInstanceOutputs Prelude.Text+listServiceInstanceOutputs_serviceName = Lens.lens (\ListServiceInstanceOutputs' {serviceName} -> serviceName) (\s@ListServiceInstanceOutputs' {} a -> s {serviceName = a} :: ListServiceInstanceOutputs)++instance Core.AWSPager ListServiceInstanceOutputs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServiceInstanceOutputsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listServiceInstanceOutputsResponse_outputs+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServiceInstanceOutputs_nextToken+          Lens..~ rs+          Lens.^? listServiceInstanceOutputsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServiceInstanceOutputs where+  type+    AWSResponse ListServiceInstanceOutputs =+      ListServiceInstanceOutputsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServiceInstanceOutputsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "outputs" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListServiceInstanceOutputs where+  hashWithSalt _salt ListServiceInstanceOutputs' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serviceInstanceName+      `Prelude.hashWithSalt` serviceName++instance Prelude.NFData ListServiceInstanceOutputs where+  rnf ListServiceInstanceOutputs' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName++instance Data.ToHeaders ListServiceInstanceOutputs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServiceInstanceOutputs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServiceInstanceOutputs where+  toJSON ListServiceInstanceOutputs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("serviceInstanceName" Data..= serviceInstanceName),+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance Data.ToPath ListServiceInstanceOutputs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListServiceInstanceOutputs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServiceInstanceOutputsResponse' smart constructor.+data ListServiceInstanceOutputsResponse = ListServiceInstanceOutputsResponse'+  { -- | A token that indicates the location of the next output in the array of+    -- outputs, after the current requested list of outputs.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of service instance Infrastructure as Code (IaC) outputs.+    outputs :: [Data.Sensitive Output]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstanceOutputsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceInstanceOutputsResponse_nextToken' - A token that indicates the location of the next output in the array of+-- outputs, after the current requested list of outputs.+--+-- 'httpStatus', 'listServiceInstanceOutputsResponse_httpStatus' - The response's http status code.+--+-- 'outputs', 'listServiceInstanceOutputsResponse_outputs' - An array of service instance Infrastructure as Code (IaC) outputs.+newListServiceInstanceOutputsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServiceInstanceOutputsResponse+newListServiceInstanceOutputsResponse pHttpStatus_ =+  ListServiceInstanceOutputsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      outputs = Prelude.mempty+    }++-- | A token that indicates the location of the next output in the array of+-- outputs, after the current requested list of outputs.+listServiceInstanceOutputsResponse_nextToken :: Lens.Lens' ListServiceInstanceOutputsResponse (Prelude.Maybe Prelude.Text)+listServiceInstanceOutputsResponse_nextToken = Lens.lens (\ListServiceInstanceOutputsResponse' {nextToken} -> nextToken) (\s@ListServiceInstanceOutputsResponse' {} a -> s {nextToken = a} :: ListServiceInstanceOutputsResponse)++-- | The response's http status code.+listServiceInstanceOutputsResponse_httpStatus :: Lens.Lens' ListServiceInstanceOutputsResponse Prelude.Int+listServiceInstanceOutputsResponse_httpStatus = Lens.lens (\ListServiceInstanceOutputsResponse' {httpStatus} -> httpStatus) (\s@ListServiceInstanceOutputsResponse' {} a -> s {httpStatus = a} :: ListServiceInstanceOutputsResponse)++-- | An array of service instance Infrastructure as Code (IaC) outputs.+listServiceInstanceOutputsResponse_outputs :: Lens.Lens' ListServiceInstanceOutputsResponse [Output]+listServiceInstanceOutputsResponse_outputs = Lens.lens (\ListServiceInstanceOutputsResponse' {outputs} -> outputs) (\s@ListServiceInstanceOutputsResponse' {} a -> s {outputs = a} :: ListServiceInstanceOutputsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListServiceInstanceOutputsResponse+  where+  rnf ListServiceInstanceOutputsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf outputs
+ gen/Amazonka/Proton/ListServiceInstanceProvisionedResources.hs view
@@ -0,0 +1,289 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServiceInstanceProvisionedResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List provisioned resources for a service instance with details.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServiceInstanceProvisionedResources+  ( -- * Creating a Request+    ListServiceInstanceProvisionedResources (..),+    newListServiceInstanceProvisionedResources,++    -- * Request Lenses+    listServiceInstanceProvisionedResources_nextToken,+    listServiceInstanceProvisionedResources_serviceInstanceName,+    listServiceInstanceProvisionedResources_serviceName,++    -- * Destructuring the Response+    ListServiceInstanceProvisionedResourcesResponse (..),+    newListServiceInstanceProvisionedResourcesResponse,++    -- * Response Lenses+    listServiceInstanceProvisionedResourcesResponse_nextToken,+    listServiceInstanceProvisionedResourcesResponse_httpStatus,+    listServiceInstanceProvisionedResourcesResponse_provisionedResources,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServiceInstanceProvisionedResources' smart constructor.+data ListServiceInstanceProvisionedResources = ListServiceInstanceProvisionedResources'+  { -- | A token that indicates the location of the next provisioned resource in+    -- the array of provisioned resources, after the list of provisioned+    -- resources that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the service instance whose provisioned resources you want.+    serviceInstanceName :: Prelude.Text,+    -- | The name of the service that @serviceInstanceName@ is associated to.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstanceProvisionedResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceInstanceProvisionedResources_nextToken' - A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the list of provisioned+-- resources that was previously requested.+--+-- 'serviceInstanceName', 'listServiceInstanceProvisionedResources_serviceInstanceName' - The name of the service instance whose provisioned resources you want.+--+-- 'serviceName', 'listServiceInstanceProvisionedResources_serviceName' - The name of the service that @serviceInstanceName@ is associated to.+newListServiceInstanceProvisionedResources ::+  -- | 'serviceInstanceName'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  ListServiceInstanceProvisionedResources+newListServiceInstanceProvisionedResources+  pServiceInstanceName_+  pServiceName_ =+    ListServiceInstanceProvisionedResources'+      { nextToken =+          Prelude.Nothing,+        serviceInstanceName =+          pServiceInstanceName_,+        serviceName = pServiceName_+      }++-- | A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the list of provisioned+-- resources that was previously requested.+listServiceInstanceProvisionedResources_nextToken :: Lens.Lens' ListServiceInstanceProvisionedResources (Prelude.Maybe Prelude.Text)+listServiceInstanceProvisionedResources_nextToken = Lens.lens (\ListServiceInstanceProvisionedResources' {nextToken} -> nextToken) (\s@ListServiceInstanceProvisionedResources' {} a -> s {nextToken = a} :: ListServiceInstanceProvisionedResources)++-- | The name of the service instance whose provisioned resources you want.+listServiceInstanceProvisionedResources_serviceInstanceName :: Lens.Lens' ListServiceInstanceProvisionedResources Prelude.Text+listServiceInstanceProvisionedResources_serviceInstanceName = Lens.lens (\ListServiceInstanceProvisionedResources' {serviceInstanceName} -> serviceInstanceName) (\s@ListServiceInstanceProvisionedResources' {} a -> s {serviceInstanceName = a} :: ListServiceInstanceProvisionedResources)++-- | The name of the service that @serviceInstanceName@ is associated to.+listServiceInstanceProvisionedResources_serviceName :: Lens.Lens' ListServiceInstanceProvisionedResources Prelude.Text+listServiceInstanceProvisionedResources_serviceName = Lens.lens (\ListServiceInstanceProvisionedResources' {serviceName} -> serviceName) (\s@ListServiceInstanceProvisionedResources' {} a -> s {serviceName = a} :: ListServiceInstanceProvisionedResources)++instance+  Core.AWSPager+    ListServiceInstanceProvisionedResources+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServiceInstanceProvisionedResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listServiceInstanceProvisionedResourcesResponse_provisionedResources+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServiceInstanceProvisionedResources_nextToken+          Lens..~ rs+          Lens.^? listServiceInstanceProvisionedResourcesResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListServiceInstanceProvisionedResources+  where+  type+    AWSResponse+      ListServiceInstanceProvisionedResources =+      ListServiceInstanceProvisionedResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServiceInstanceProvisionedResourcesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "provisionedResources"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListServiceInstanceProvisionedResources+  where+  hashWithSalt+    _salt+    ListServiceInstanceProvisionedResources' {..} =+      _salt+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` serviceInstanceName+        `Prelude.hashWithSalt` serviceName++instance+  Prelude.NFData+    ListServiceInstanceProvisionedResources+  where+  rnf ListServiceInstanceProvisionedResources' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName++instance+  Data.ToHeaders+    ListServiceInstanceProvisionedResources+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServiceInstanceProvisionedResources" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    ListServiceInstanceProvisionedResources+  where+  toJSON ListServiceInstanceProvisionedResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("serviceInstanceName" Data..= serviceInstanceName),+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance+  Data.ToPath+    ListServiceInstanceProvisionedResources+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    ListServiceInstanceProvisionedResources+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServiceInstanceProvisionedResourcesResponse' smart constructor.+data ListServiceInstanceProvisionedResourcesResponse = ListServiceInstanceProvisionedResourcesResponse'+  { -- | A token that indicates the location of the next provisioned resource in+    -- the array of provisioned resources, after the current requested list of+    -- provisioned resources.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of provisioned resources for a service instance.+    provisionedResources :: [ProvisionedResource]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstanceProvisionedResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceInstanceProvisionedResourcesResponse_nextToken' - A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the current requested list of+-- provisioned resources.+--+-- 'httpStatus', 'listServiceInstanceProvisionedResourcesResponse_httpStatus' - The response's http status code.+--+-- 'provisionedResources', 'listServiceInstanceProvisionedResourcesResponse_provisionedResources' - An array of provisioned resources for a service instance.+newListServiceInstanceProvisionedResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServiceInstanceProvisionedResourcesResponse+newListServiceInstanceProvisionedResourcesResponse+  pHttpStatus_ =+    ListServiceInstanceProvisionedResourcesResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        provisionedResources =+          Prelude.mempty+      }++-- | A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the current requested list of+-- provisioned resources.+listServiceInstanceProvisionedResourcesResponse_nextToken :: Lens.Lens' ListServiceInstanceProvisionedResourcesResponse (Prelude.Maybe Prelude.Text)+listServiceInstanceProvisionedResourcesResponse_nextToken = Lens.lens (\ListServiceInstanceProvisionedResourcesResponse' {nextToken} -> nextToken) (\s@ListServiceInstanceProvisionedResourcesResponse' {} a -> s {nextToken = a} :: ListServiceInstanceProvisionedResourcesResponse)++-- | The response's http status code.+listServiceInstanceProvisionedResourcesResponse_httpStatus :: Lens.Lens' ListServiceInstanceProvisionedResourcesResponse Prelude.Int+listServiceInstanceProvisionedResourcesResponse_httpStatus = Lens.lens (\ListServiceInstanceProvisionedResourcesResponse' {httpStatus} -> httpStatus) (\s@ListServiceInstanceProvisionedResourcesResponse' {} a -> s {httpStatus = a} :: ListServiceInstanceProvisionedResourcesResponse)++-- | An array of provisioned resources for a service instance.+listServiceInstanceProvisionedResourcesResponse_provisionedResources :: Lens.Lens' ListServiceInstanceProvisionedResourcesResponse [ProvisionedResource]+listServiceInstanceProvisionedResourcesResponse_provisionedResources = Lens.lens (\ListServiceInstanceProvisionedResourcesResponse' {provisionedResources} -> provisionedResources) (\s@ListServiceInstanceProvisionedResourcesResponse' {} a -> s {provisionedResources = a} :: ListServiceInstanceProvisionedResourcesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListServiceInstanceProvisionedResourcesResponse+  where+  rnf+    ListServiceInstanceProvisionedResourcesResponse' {..} =+      Prelude.rnf nextToken+        `Prelude.seq` Prelude.rnf httpStatus+        `Prelude.seq` Prelude.rnf provisionedResources
+ gen/Amazonka/Proton/ListServiceInstances.hs view
@@ -0,0 +1,314 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServiceInstances+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List service instances with summary data. This action lists service+-- instances of all services in the Amazon Web Services account.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServiceInstances+  ( -- * Creating a Request+    ListServiceInstances (..),+    newListServiceInstances,++    -- * Request Lenses+    listServiceInstances_filters,+    listServiceInstances_maxResults,+    listServiceInstances_nextToken,+    listServiceInstances_serviceName,+    listServiceInstances_sortBy,+    listServiceInstances_sortOrder,++    -- * Destructuring the Response+    ListServiceInstancesResponse (..),+    newListServiceInstancesResponse,++    -- * Response Lenses+    listServiceInstancesResponse_nextToken,+    listServiceInstancesResponse_httpStatus,+    listServiceInstancesResponse_serviceInstances,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServiceInstances' smart constructor.+data ListServiceInstances = ListServiceInstances'+  { -- | An array of filtering criteria that scope down the result list. By+    -- default, all service instances in the Amazon Web Services account are+    -- returned.+    filters :: Prelude.Maybe [ListServiceInstancesFilter],+    -- | The maximum number of service instances to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next service in the array of+    -- service instances, after the list of service instances that was+    -- previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the service that the service instance belongs to.+    serviceName :: Prelude.Maybe Prelude.Text,+    -- | The field that the result list is sorted by.+    --+    -- When you choose to sort by @serviceName@, service instances within each+    -- service are sorted by service instance name.+    --+    -- Default: @serviceName@+    sortBy :: Prelude.Maybe ListServiceInstancesSortBy,+    -- | Result list sort order.+    --+    -- Default: @ASCENDING@+    sortOrder :: Prelude.Maybe SortOrder+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstances' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filters', 'listServiceInstances_filters' - An array of filtering criteria that scope down the result list. By+-- default, all service instances in the Amazon Web Services account are+-- returned.+--+-- 'maxResults', 'listServiceInstances_maxResults' - The maximum number of service instances to list.+--+-- 'nextToken', 'listServiceInstances_nextToken' - A token that indicates the location of the next service in the array of+-- service instances, after the list of service instances that was+-- previously requested.+--+-- 'serviceName', 'listServiceInstances_serviceName' - The name of the service that the service instance belongs to.+--+-- 'sortBy', 'listServiceInstances_sortBy' - The field that the result list is sorted by.+--+-- When you choose to sort by @serviceName@, service instances within each+-- service are sorted by service instance name.+--+-- Default: @serviceName@+--+-- 'sortOrder', 'listServiceInstances_sortOrder' - Result list sort order.+--+-- Default: @ASCENDING@+newListServiceInstances ::+  ListServiceInstances+newListServiceInstances =+  ListServiceInstances'+    { filters = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      serviceName = Prelude.Nothing,+      sortBy = Prelude.Nothing,+      sortOrder = Prelude.Nothing+    }++-- | An array of filtering criteria that scope down the result list. By+-- default, all service instances in the Amazon Web Services account are+-- returned.+listServiceInstances_filters :: Lens.Lens' ListServiceInstances (Prelude.Maybe [ListServiceInstancesFilter])+listServiceInstances_filters = Lens.lens (\ListServiceInstances' {filters} -> filters) (\s@ListServiceInstances' {} a -> s {filters = a} :: ListServiceInstances) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of service instances to list.+listServiceInstances_maxResults :: Lens.Lens' ListServiceInstances (Prelude.Maybe Prelude.Natural)+listServiceInstances_maxResults = Lens.lens (\ListServiceInstances' {maxResults} -> maxResults) (\s@ListServiceInstances' {} a -> s {maxResults = a} :: ListServiceInstances)++-- | A token that indicates the location of the next service in the array of+-- service instances, after the list of service instances that was+-- previously requested.+listServiceInstances_nextToken :: Lens.Lens' ListServiceInstances (Prelude.Maybe Prelude.Text)+listServiceInstances_nextToken = Lens.lens (\ListServiceInstances' {nextToken} -> nextToken) (\s@ListServiceInstances' {} a -> s {nextToken = a} :: ListServiceInstances)++-- | The name of the service that the service instance belongs to.+listServiceInstances_serviceName :: Lens.Lens' ListServiceInstances (Prelude.Maybe Prelude.Text)+listServiceInstances_serviceName = Lens.lens (\ListServiceInstances' {serviceName} -> serviceName) (\s@ListServiceInstances' {} a -> s {serviceName = a} :: ListServiceInstances)++-- | The field that the result list is sorted by.+--+-- When you choose to sort by @serviceName@, service instances within each+-- service are sorted by service instance name.+--+-- Default: @serviceName@+listServiceInstances_sortBy :: Lens.Lens' ListServiceInstances (Prelude.Maybe ListServiceInstancesSortBy)+listServiceInstances_sortBy = Lens.lens (\ListServiceInstances' {sortBy} -> sortBy) (\s@ListServiceInstances' {} a -> s {sortBy = a} :: ListServiceInstances)++-- | Result list sort order.+--+-- Default: @ASCENDING@+listServiceInstances_sortOrder :: Lens.Lens' ListServiceInstances (Prelude.Maybe SortOrder)+listServiceInstances_sortOrder = Lens.lens (\ListServiceInstances' {sortOrder} -> sortOrder) (\s@ListServiceInstances' {} a -> s {sortOrder = a} :: ListServiceInstances)++instance Core.AWSPager ListServiceInstances where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServiceInstancesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listServiceInstancesResponse_serviceInstances+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServiceInstances_nextToken+          Lens..~ rs+          Lens.^? listServiceInstancesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServiceInstances where+  type+    AWSResponse ListServiceInstances =+      ListServiceInstancesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServiceInstancesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "serviceInstances"+                            Core..!@ Prelude.mempty+                        )+      )++instance Prelude.Hashable ListServiceInstances where+  hashWithSalt _salt ListServiceInstances' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` sortBy+      `Prelude.hashWithSalt` sortOrder++instance Prelude.NFData ListServiceInstances where+  rnf ListServiceInstances' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf sortBy+      `Prelude.seq` Prelude.rnf sortOrder++instance Data.ToHeaders ListServiceInstances where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServiceInstances" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServiceInstances where+  toJSON ListServiceInstances' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filters" Data..=) Prelude.<$> filters,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            ("serviceName" Data..=) Prelude.<$> serviceName,+            ("sortBy" Data..=) Prelude.<$> sortBy,+            ("sortOrder" Data..=) Prelude.<$> sortOrder+          ]+      )++instance Data.ToPath ListServiceInstances where+  toPath = Prelude.const "/"++instance Data.ToQuery ListServiceInstances where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServiceInstancesResponse' smart constructor.+data ListServiceInstancesResponse = ListServiceInstancesResponse'+  { -- | A token that indicates the location of the next service instance in the+    -- array of service instances, after the current requested list of service+    -- instances.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of service instances with summary data.+    serviceInstances :: [ServiceInstanceSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstancesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceInstancesResponse_nextToken' - A token that indicates the location of the next service instance in the+-- array of service instances, after the current requested list of service+-- instances.+--+-- 'httpStatus', 'listServiceInstancesResponse_httpStatus' - The response's http status code.+--+-- 'serviceInstances', 'listServiceInstancesResponse_serviceInstances' - An array of service instances with summary data.+newListServiceInstancesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServiceInstancesResponse+newListServiceInstancesResponse pHttpStatus_ =+  ListServiceInstancesResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      serviceInstances = Prelude.mempty+    }++-- | A token that indicates the location of the next service instance in the+-- array of service instances, after the current requested list of service+-- instances.+listServiceInstancesResponse_nextToken :: Lens.Lens' ListServiceInstancesResponse (Prelude.Maybe Prelude.Text)+listServiceInstancesResponse_nextToken = Lens.lens (\ListServiceInstancesResponse' {nextToken} -> nextToken) (\s@ListServiceInstancesResponse' {} a -> s {nextToken = a} :: ListServiceInstancesResponse)++-- | The response's http status code.+listServiceInstancesResponse_httpStatus :: Lens.Lens' ListServiceInstancesResponse Prelude.Int+listServiceInstancesResponse_httpStatus = Lens.lens (\ListServiceInstancesResponse' {httpStatus} -> httpStatus) (\s@ListServiceInstancesResponse' {} a -> s {httpStatus = a} :: ListServiceInstancesResponse)++-- | An array of service instances with summary data.+listServiceInstancesResponse_serviceInstances :: Lens.Lens' ListServiceInstancesResponse [ServiceInstanceSummary]+listServiceInstancesResponse_serviceInstances = Lens.lens (\ListServiceInstancesResponse' {serviceInstances} -> serviceInstances) (\s@ListServiceInstancesResponse' {} a -> s {serviceInstances = a} :: ListServiceInstancesResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListServiceInstancesResponse where+  rnf ListServiceInstancesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceInstances
+ gen/Amazonka/Proton/ListServicePipelineOutputs.hs view
@@ -0,0 +1,231 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServicePipelineOutputs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get a list of service pipeline Infrastructure as Code (IaC) outputs.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServicePipelineOutputs+  ( -- * Creating a Request+    ListServicePipelineOutputs (..),+    newListServicePipelineOutputs,++    -- * Request Lenses+    listServicePipelineOutputs_nextToken,+    listServicePipelineOutputs_serviceName,++    -- * Destructuring the Response+    ListServicePipelineOutputsResponse (..),+    newListServicePipelineOutputsResponse,++    -- * Response Lenses+    listServicePipelineOutputsResponse_nextToken,+    listServicePipelineOutputsResponse_httpStatus,+    listServicePipelineOutputsResponse_outputs,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServicePipelineOutputs' smart constructor.+data ListServicePipelineOutputs = ListServicePipelineOutputs'+  { -- | A token that indicates the location of the next output in the array of+    -- outputs, after the list of outputs that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the service whose pipeline\'s outputs you want.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServicePipelineOutputs' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServicePipelineOutputs_nextToken' - A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+--+-- 'serviceName', 'listServicePipelineOutputs_serviceName' - The name of the service whose pipeline\'s outputs you want.+newListServicePipelineOutputs ::+  -- | 'serviceName'+  Prelude.Text ->+  ListServicePipelineOutputs+newListServicePipelineOutputs pServiceName_ =+  ListServicePipelineOutputs'+    { nextToken =+        Prelude.Nothing,+      serviceName = pServiceName_+    }++-- | A token that indicates the location of the next output in the array of+-- outputs, after the list of outputs that was previously requested.+listServicePipelineOutputs_nextToken :: Lens.Lens' ListServicePipelineOutputs (Prelude.Maybe Prelude.Text)+listServicePipelineOutputs_nextToken = Lens.lens (\ListServicePipelineOutputs' {nextToken} -> nextToken) (\s@ListServicePipelineOutputs' {} a -> s {nextToken = a} :: ListServicePipelineOutputs)++-- | The name of the service whose pipeline\'s outputs you want.+listServicePipelineOutputs_serviceName :: Lens.Lens' ListServicePipelineOutputs Prelude.Text+listServicePipelineOutputs_serviceName = Lens.lens (\ListServicePipelineOutputs' {serviceName} -> serviceName) (\s@ListServicePipelineOutputs' {} a -> s {serviceName = a} :: ListServicePipelineOutputs)++instance Core.AWSPager ListServicePipelineOutputs where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServicePipelineOutputsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listServicePipelineOutputsResponse_outputs+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServicePipelineOutputs_nextToken+          Lens..~ rs+          Lens.^? listServicePipelineOutputsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServicePipelineOutputs where+  type+    AWSResponse ListServicePipelineOutputs =+      ListServicePipelineOutputsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServicePipelineOutputsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "outputs" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListServicePipelineOutputs where+  hashWithSalt _salt ListServicePipelineOutputs' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` serviceName++instance Prelude.NFData ListServicePipelineOutputs where+  rnf ListServicePipelineOutputs' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceName++instance Data.ToHeaders ListServicePipelineOutputs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServicePipelineOutputs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServicePipelineOutputs where+  toJSON ListServicePipelineOutputs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance Data.ToPath ListServicePipelineOutputs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListServicePipelineOutputs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServicePipelineOutputsResponse' smart constructor.+data ListServicePipelineOutputsResponse = ListServicePipelineOutputsResponse'+  { -- | A token that indicates the location of the next output in the array of+    -- outputs, after the current requested list of outputs.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of service pipeline Infrastructure as Code (IaC) outputs.+    outputs :: [Data.Sensitive Output]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServicePipelineOutputsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServicePipelineOutputsResponse_nextToken' - A token that indicates the location of the next output in the array of+-- outputs, after the current requested list of outputs.+--+-- 'httpStatus', 'listServicePipelineOutputsResponse_httpStatus' - The response's http status code.+--+-- 'outputs', 'listServicePipelineOutputsResponse_outputs' - An array of service pipeline Infrastructure as Code (IaC) outputs.+newListServicePipelineOutputsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServicePipelineOutputsResponse+newListServicePipelineOutputsResponse pHttpStatus_ =+  ListServicePipelineOutputsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      outputs = Prelude.mempty+    }++-- | A token that indicates the location of the next output in the array of+-- outputs, after the current requested list of outputs.+listServicePipelineOutputsResponse_nextToken :: Lens.Lens' ListServicePipelineOutputsResponse (Prelude.Maybe Prelude.Text)+listServicePipelineOutputsResponse_nextToken = Lens.lens (\ListServicePipelineOutputsResponse' {nextToken} -> nextToken) (\s@ListServicePipelineOutputsResponse' {} a -> s {nextToken = a} :: ListServicePipelineOutputsResponse)++-- | The response's http status code.+listServicePipelineOutputsResponse_httpStatus :: Lens.Lens' ListServicePipelineOutputsResponse Prelude.Int+listServicePipelineOutputsResponse_httpStatus = Lens.lens (\ListServicePipelineOutputsResponse' {httpStatus} -> httpStatus) (\s@ListServicePipelineOutputsResponse' {} a -> s {httpStatus = a} :: ListServicePipelineOutputsResponse)++-- | An array of service pipeline Infrastructure as Code (IaC) outputs.+listServicePipelineOutputsResponse_outputs :: Lens.Lens' ListServicePipelineOutputsResponse [Output]+listServicePipelineOutputsResponse_outputs = Lens.lens (\ListServicePipelineOutputsResponse' {outputs} -> outputs) (\s@ListServicePipelineOutputsResponse' {} a -> s {outputs = a} :: ListServicePipelineOutputsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListServicePipelineOutputsResponse+  where+  rnf ListServicePipelineOutputsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf outputs
+ gen/Amazonka/Proton/ListServicePipelineProvisionedResources.hs view
@@ -0,0 +1,274 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServicePipelineProvisionedResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List provisioned resources for a service and pipeline with details.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServicePipelineProvisionedResources+  ( -- * Creating a Request+    ListServicePipelineProvisionedResources (..),+    newListServicePipelineProvisionedResources,++    -- * Request Lenses+    listServicePipelineProvisionedResources_nextToken,+    listServicePipelineProvisionedResources_serviceName,++    -- * Destructuring the Response+    ListServicePipelineProvisionedResourcesResponse (..),+    newListServicePipelineProvisionedResourcesResponse,++    -- * Response Lenses+    listServicePipelineProvisionedResourcesResponse_nextToken,+    listServicePipelineProvisionedResourcesResponse_httpStatus,+    listServicePipelineProvisionedResourcesResponse_provisionedResources,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServicePipelineProvisionedResources' smart constructor.+data ListServicePipelineProvisionedResources = ListServicePipelineProvisionedResources'+  { -- | A token that indicates the location of the next provisioned resource in+    -- the array of provisioned resources, after the list of provisioned+    -- resources that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the service whose pipeline\'s provisioned resources you+    -- want.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServicePipelineProvisionedResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServicePipelineProvisionedResources_nextToken' - A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the list of provisioned+-- resources that was previously requested.+--+-- 'serviceName', 'listServicePipelineProvisionedResources_serviceName' - The name of the service whose pipeline\'s provisioned resources you+-- want.+newListServicePipelineProvisionedResources ::+  -- | 'serviceName'+  Prelude.Text ->+  ListServicePipelineProvisionedResources+newListServicePipelineProvisionedResources+  pServiceName_ =+    ListServicePipelineProvisionedResources'+      { nextToken =+          Prelude.Nothing,+        serviceName = pServiceName_+      }++-- | A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the list of provisioned+-- resources that was previously requested.+listServicePipelineProvisionedResources_nextToken :: Lens.Lens' ListServicePipelineProvisionedResources (Prelude.Maybe Prelude.Text)+listServicePipelineProvisionedResources_nextToken = Lens.lens (\ListServicePipelineProvisionedResources' {nextToken} -> nextToken) (\s@ListServicePipelineProvisionedResources' {} a -> s {nextToken = a} :: ListServicePipelineProvisionedResources)++-- | The name of the service whose pipeline\'s provisioned resources you+-- want.+listServicePipelineProvisionedResources_serviceName :: Lens.Lens' ListServicePipelineProvisionedResources Prelude.Text+listServicePipelineProvisionedResources_serviceName = Lens.lens (\ListServicePipelineProvisionedResources' {serviceName} -> serviceName) (\s@ListServicePipelineProvisionedResources' {} a -> s {serviceName = a} :: ListServicePipelineProvisionedResources)++instance+  Core.AWSPager+    ListServicePipelineProvisionedResources+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServicePipelineProvisionedResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listServicePipelineProvisionedResourcesResponse_provisionedResources+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServicePipelineProvisionedResources_nextToken+          Lens..~ rs+          Lens.^? listServicePipelineProvisionedResourcesResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    ListServicePipelineProvisionedResources+  where+  type+    AWSResponse+      ListServicePipelineProvisionedResources =+      ListServicePipelineProvisionedResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServicePipelineProvisionedResourcesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "provisionedResources"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    ListServicePipelineProvisionedResources+  where+  hashWithSalt+    _salt+    ListServicePipelineProvisionedResources' {..} =+      _salt+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` serviceName++instance+  Prelude.NFData+    ListServicePipelineProvisionedResources+  where+  rnf ListServicePipelineProvisionedResources' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf serviceName++instance+  Data.ToHeaders+    ListServicePipelineProvisionedResources+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServicePipelineProvisionedResources" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    ListServicePipelineProvisionedResources+  where+  toJSON ListServicePipelineProvisionedResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance+  Data.ToPath+    ListServicePipelineProvisionedResources+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    ListServicePipelineProvisionedResources+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServicePipelineProvisionedResourcesResponse' smart constructor.+data ListServicePipelineProvisionedResourcesResponse = ListServicePipelineProvisionedResourcesResponse'+  { -- | A token that indicates the location of the next provisioned resource in+    -- the array of provisioned resources, after the current requested list of+    -- provisioned resources.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of provisioned resources for a service and pipeline.+    provisionedResources :: [ProvisionedResource]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServicePipelineProvisionedResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServicePipelineProvisionedResourcesResponse_nextToken' - A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the current requested list of+-- provisioned resources.+--+-- 'httpStatus', 'listServicePipelineProvisionedResourcesResponse_httpStatus' - The response's http status code.+--+-- 'provisionedResources', 'listServicePipelineProvisionedResourcesResponse_provisionedResources' - An array of provisioned resources for a service and pipeline.+newListServicePipelineProvisionedResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServicePipelineProvisionedResourcesResponse+newListServicePipelineProvisionedResourcesResponse+  pHttpStatus_ =+    ListServicePipelineProvisionedResourcesResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        provisionedResources =+          Prelude.mempty+      }++-- | A token that indicates the location of the next provisioned resource in+-- the array of provisioned resources, after the current requested list of+-- provisioned resources.+listServicePipelineProvisionedResourcesResponse_nextToken :: Lens.Lens' ListServicePipelineProvisionedResourcesResponse (Prelude.Maybe Prelude.Text)+listServicePipelineProvisionedResourcesResponse_nextToken = Lens.lens (\ListServicePipelineProvisionedResourcesResponse' {nextToken} -> nextToken) (\s@ListServicePipelineProvisionedResourcesResponse' {} a -> s {nextToken = a} :: ListServicePipelineProvisionedResourcesResponse)++-- | The response's http status code.+listServicePipelineProvisionedResourcesResponse_httpStatus :: Lens.Lens' ListServicePipelineProvisionedResourcesResponse Prelude.Int+listServicePipelineProvisionedResourcesResponse_httpStatus = Lens.lens (\ListServicePipelineProvisionedResourcesResponse' {httpStatus} -> httpStatus) (\s@ListServicePipelineProvisionedResourcesResponse' {} a -> s {httpStatus = a} :: ListServicePipelineProvisionedResourcesResponse)++-- | An array of provisioned resources for a service and pipeline.+listServicePipelineProvisionedResourcesResponse_provisionedResources :: Lens.Lens' ListServicePipelineProvisionedResourcesResponse [ProvisionedResource]+listServicePipelineProvisionedResourcesResponse_provisionedResources = Lens.lens (\ListServicePipelineProvisionedResourcesResponse' {provisionedResources} -> provisionedResources) (\s@ListServicePipelineProvisionedResourcesResponse' {} a -> s {provisionedResources = a} :: ListServicePipelineProvisionedResourcesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListServicePipelineProvisionedResourcesResponse+  where+  rnf+    ListServicePipelineProvisionedResourcesResponse' {..} =+      Prelude.rnf nextToken+        `Prelude.seq` Prelude.rnf httpStatus+        `Prelude.seq` Prelude.rnf provisionedResources
+ gen/Amazonka/Proton/ListServiceTemplateVersions.hs view
@@ -0,0 +1,284 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServiceTemplateVersions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List major or minor versions of a service template with detail data.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServiceTemplateVersions+  ( -- * Creating a Request+    ListServiceTemplateVersions (..),+    newListServiceTemplateVersions,++    -- * Request Lenses+    listServiceTemplateVersions_majorVersion,+    listServiceTemplateVersions_maxResults,+    listServiceTemplateVersions_nextToken,+    listServiceTemplateVersions_templateName,++    -- * Destructuring the Response+    ListServiceTemplateVersionsResponse (..),+    newListServiceTemplateVersionsResponse,++    -- * Response Lenses+    listServiceTemplateVersionsResponse_nextToken,+    listServiceTemplateVersionsResponse_httpStatus,+    listServiceTemplateVersionsResponse_templateVersions,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServiceTemplateVersions' smart constructor.+data ListServiceTemplateVersions = ListServiceTemplateVersions'+  { -- | To view a list of minor of versions under a major version of a service+    -- template, include @major Version@.+    --+    -- To view a list of major versions of a service template, /exclude/+    -- @major Version@.+    majorVersion :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of major or minor versions of a service template to+    -- list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next major or minor version+    -- in the array of major or minor versions of a service template, after the+    -- list of major or minor versions that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceTemplateVersions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'listServiceTemplateVersions_majorVersion' - To view a list of minor of versions under a major version of a service+-- template, include @major Version@.+--+-- To view a list of major versions of a service template, /exclude/+-- @major Version@.+--+-- 'maxResults', 'listServiceTemplateVersions_maxResults' - The maximum number of major or minor versions of a service template to+-- list.+--+-- 'nextToken', 'listServiceTemplateVersions_nextToken' - A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of a service template, after the+-- list of major or minor versions that was previously requested.+--+-- 'templateName', 'listServiceTemplateVersions_templateName' - The name of the service template.+newListServiceTemplateVersions ::+  -- | 'templateName'+  Prelude.Text ->+  ListServiceTemplateVersions+newListServiceTemplateVersions pTemplateName_ =+  ListServiceTemplateVersions'+    { majorVersion =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      templateName = pTemplateName_+    }++-- | To view a list of minor of versions under a major version of a service+-- template, include @major Version@.+--+-- To view a list of major versions of a service template, /exclude/+-- @major Version@.+listServiceTemplateVersions_majorVersion :: Lens.Lens' ListServiceTemplateVersions (Prelude.Maybe Prelude.Text)+listServiceTemplateVersions_majorVersion = Lens.lens (\ListServiceTemplateVersions' {majorVersion} -> majorVersion) (\s@ListServiceTemplateVersions' {} a -> s {majorVersion = a} :: ListServiceTemplateVersions)++-- | The maximum number of major or minor versions of a service template to+-- list.+listServiceTemplateVersions_maxResults :: Lens.Lens' ListServiceTemplateVersions (Prelude.Maybe Prelude.Natural)+listServiceTemplateVersions_maxResults = Lens.lens (\ListServiceTemplateVersions' {maxResults} -> maxResults) (\s@ListServiceTemplateVersions' {} a -> s {maxResults = a} :: ListServiceTemplateVersions)++-- | A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of a service template, after the+-- list of major or minor versions that was previously requested.+listServiceTemplateVersions_nextToken :: Lens.Lens' ListServiceTemplateVersions (Prelude.Maybe Prelude.Text)+listServiceTemplateVersions_nextToken = Lens.lens (\ListServiceTemplateVersions' {nextToken} -> nextToken) (\s@ListServiceTemplateVersions' {} a -> s {nextToken = a} :: ListServiceTemplateVersions)++-- | The name of the service template.+listServiceTemplateVersions_templateName :: Lens.Lens' ListServiceTemplateVersions Prelude.Text+listServiceTemplateVersions_templateName = Lens.lens (\ListServiceTemplateVersions' {templateName} -> templateName) (\s@ListServiceTemplateVersions' {} a -> s {templateName = a} :: ListServiceTemplateVersions)++instance Core.AWSPager ListServiceTemplateVersions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServiceTemplateVersionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listServiceTemplateVersionsResponse_templateVersions+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServiceTemplateVersions_nextToken+          Lens..~ rs+          Lens.^? listServiceTemplateVersionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServiceTemplateVersions where+  type+    AWSResponse ListServiceTemplateVersions =+      ListServiceTemplateVersionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServiceTemplateVersionsResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "templateVersions"+                            Core..!@ Prelude.mempty+                        )+      )++instance Prelude.Hashable ListServiceTemplateVersions where+  hashWithSalt _salt ListServiceTemplateVersions' {..} =+    _salt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ListServiceTemplateVersions where+  rnf ListServiceTemplateVersions' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders ListServiceTemplateVersions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServiceTemplateVersions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServiceTemplateVersions where+  toJSON ListServiceTemplateVersions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("majorVersion" Data..=) Prelude.<$> majorVersion,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath ListServiceTemplateVersions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListServiceTemplateVersions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServiceTemplateVersionsResponse' smart constructor.+data ListServiceTemplateVersionsResponse = ListServiceTemplateVersionsResponse'+  { -- | A token that indicates the location of the next major or minor version+    -- in the array of major or minor versions of a service template, after the+    -- current requested list of service major or minor versions.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of major or minor versions of a service template with detail+    -- data.+    templateVersions :: [ServiceTemplateVersionSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceTemplateVersionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceTemplateVersionsResponse_nextToken' - A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of a service template, after the+-- current requested list of service major or minor versions.+--+-- 'httpStatus', 'listServiceTemplateVersionsResponse_httpStatus' - The response's http status code.+--+-- 'templateVersions', 'listServiceTemplateVersionsResponse_templateVersions' - An array of major or minor versions of a service template with detail+-- data.+newListServiceTemplateVersionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServiceTemplateVersionsResponse+newListServiceTemplateVersionsResponse pHttpStatus_ =+  ListServiceTemplateVersionsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      templateVersions = Prelude.mempty+    }++-- | A token that indicates the location of the next major or minor version+-- in the array of major or minor versions of a service template, after the+-- current requested list of service major or minor versions.+listServiceTemplateVersionsResponse_nextToken :: Lens.Lens' ListServiceTemplateVersionsResponse (Prelude.Maybe Prelude.Text)+listServiceTemplateVersionsResponse_nextToken = Lens.lens (\ListServiceTemplateVersionsResponse' {nextToken} -> nextToken) (\s@ListServiceTemplateVersionsResponse' {} a -> s {nextToken = a} :: ListServiceTemplateVersionsResponse)++-- | The response's http status code.+listServiceTemplateVersionsResponse_httpStatus :: Lens.Lens' ListServiceTemplateVersionsResponse Prelude.Int+listServiceTemplateVersionsResponse_httpStatus = Lens.lens (\ListServiceTemplateVersionsResponse' {httpStatus} -> httpStatus) (\s@ListServiceTemplateVersionsResponse' {} a -> s {httpStatus = a} :: ListServiceTemplateVersionsResponse)++-- | An array of major or minor versions of a service template with detail+-- data.+listServiceTemplateVersionsResponse_templateVersions :: Lens.Lens' ListServiceTemplateVersionsResponse [ServiceTemplateVersionSummary]+listServiceTemplateVersionsResponse_templateVersions = Lens.lens (\ListServiceTemplateVersionsResponse' {templateVersions} -> templateVersions) (\s@ListServiceTemplateVersionsResponse' {} a -> s {templateVersions = a} :: ListServiceTemplateVersionsResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    ListServiceTemplateVersionsResponse+  where+  rnf ListServiceTemplateVersionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf templateVersions
+ gen/Amazonka/Proton/ListServiceTemplates.hs view
@@ -0,0 +1,229 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServiceTemplates+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List service templates with detail data.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServiceTemplates+  ( -- * Creating a Request+    ListServiceTemplates (..),+    newListServiceTemplates,++    -- * Request Lenses+    listServiceTemplates_maxResults,+    listServiceTemplates_nextToken,++    -- * Destructuring the Response+    ListServiceTemplatesResponse (..),+    newListServiceTemplatesResponse,++    -- * Response Lenses+    listServiceTemplatesResponse_nextToken,+    listServiceTemplatesResponse_httpStatus,+    listServiceTemplatesResponse_templates,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServiceTemplates' smart constructor.+data ListServiceTemplates = ListServiceTemplates'+  { -- | The maximum number of service templates to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next service template in the+    -- array of service templates, after the list of service templates+    -- previously requested.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceTemplates' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listServiceTemplates_maxResults' - The maximum number of service templates to list.+--+-- 'nextToken', 'listServiceTemplates_nextToken' - A token that indicates the location of the next service template in the+-- array of service templates, after the list of service templates+-- previously requested.+newListServiceTemplates ::+  ListServiceTemplates+newListServiceTemplates =+  ListServiceTemplates'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of service templates to list.+listServiceTemplates_maxResults :: Lens.Lens' ListServiceTemplates (Prelude.Maybe Prelude.Natural)+listServiceTemplates_maxResults = Lens.lens (\ListServiceTemplates' {maxResults} -> maxResults) (\s@ListServiceTemplates' {} a -> s {maxResults = a} :: ListServiceTemplates)++-- | A token that indicates the location of the next service template in the+-- array of service templates, after the list of service templates+-- previously requested.+listServiceTemplates_nextToken :: Lens.Lens' ListServiceTemplates (Prelude.Maybe Prelude.Text)+listServiceTemplates_nextToken = Lens.lens (\ListServiceTemplates' {nextToken} -> nextToken) (\s@ListServiceTemplates' {} a -> s {nextToken = a} :: ListServiceTemplates)++instance Core.AWSPager ListServiceTemplates where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServiceTemplatesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listServiceTemplatesResponse_templates) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServiceTemplates_nextToken+          Lens..~ rs+          Lens.^? listServiceTemplatesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServiceTemplates where+  type+    AWSResponse ListServiceTemplates =+      ListServiceTemplatesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServiceTemplatesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "templates" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListServiceTemplates where+  hashWithSalt _salt ListServiceTemplates' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListServiceTemplates where+  rnf ListServiceTemplates' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListServiceTemplates where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServiceTemplates" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServiceTemplates where+  toJSON ListServiceTemplates' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListServiceTemplates where+  toPath = Prelude.const "/"++instance Data.ToQuery ListServiceTemplates where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServiceTemplatesResponse' smart constructor.+data ListServiceTemplatesResponse = ListServiceTemplatesResponse'+  { -- | A token that indicates the location of the next service template in the+    -- array of service templates, after the current requested list of service+    -- templates.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of service templates with detail data.+    templates :: [ServiceTemplateSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceTemplatesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServiceTemplatesResponse_nextToken' - A token that indicates the location of the next service template in the+-- array of service templates, after the current requested list of service+-- templates.+--+-- 'httpStatus', 'listServiceTemplatesResponse_httpStatus' - The response's http status code.+--+-- 'templates', 'listServiceTemplatesResponse_templates' - An array of service templates with detail data.+newListServiceTemplatesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServiceTemplatesResponse+newListServiceTemplatesResponse pHttpStatus_ =+  ListServiceTemplatesResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      templates = Prelude.mempty+    }++-- | A token that indicates the location of the next service template in the+-- array of service templates, after the current requested list of service+-- templates.+listServiceTemplatesResponse_nextToken :: Lens.Lens' ListServiceTemplatesResponse (Prelude.Maybe Prelude.Text)+listServiceTemplatesResponse_nextToken = Lens.lens (\ListServiceTemplatesResponse' {nextToken} -> nextToken) (\s@ListServiceTemplatesResponse' {} a -> s {nextToken = a} :: ListServiceTemplatesResponse)++-- | The response's http status code.+listServiceTemplatesResponse_httpStatus :: Lens.Lens' ListServiceTemplatesResponse Prelude.Int+listServiceTemplatesResponse_httpStatus = Lens.lens (\ListServiceTemplatesResponse' {httpStatus} -> httpStatus) (\s@ListServiceTemplatesResponse' {} a -> s {httpStatus = a} :: ListServiceTemplatesResponse)++-- | An array of service templates with detail data.+listServiceTemplatesResponse_templates :: Lens.Lens' ListServiceTemplatesResponse [ServiceTemplateSummary]+listServiceTemplatesResponse_templates = Lens.lens (\ListServiceTemplatesResponse' {templates} -> templates) (\s@ListServiceTemplatesResponse' {} a -> s {templates = a} :: ListServiceTemplatesResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListServiceTemplatesResponse where+  rnf ListServiceTemplatesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf templates
+ gen/Amazonka/Proton/ListServices.hs view
@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListServices+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List services with summaries of detail data.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListServices+  ( -- * Creating a Request+    ListServices (..),+    newListServices,++    -- * Request Lenses+    listServices_maxResults,+    listServices_nextToken,++    -- * Destructuring the Response+    ListServicesResponse (..),+    newListServicesResponse,++    -- * Response Lenses+    listServicesResponse_nextToken,+    listServicesResponse_httpStatus,+    listServicesResponse_services,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListServices' smart constructor.+data ListServices = ListServices'+  { -- | The maximum number of services to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next service in the array of+    -- services, after the list of services that was previously requested.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServices' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listServices_maxResults' - The maximum number of services to list.+--+-- 'nextToken', 'listServices_nextToken' - A token that indicates the location of the next service in the array of+-- services, after the list of services that was previously requested.+newListServices ::+  ListServices+newListServices =+  ListServices'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of services to list.+listServices_maxResults :: Lens.Lens' ListServices (Prelude.Maybe Prelude.Natural)+listServices_maxResults = Lens.lens (\ListServices' {maxResults} -> maxResults) (\s@ListServices' {} a -> s {maxResults = a} :: ListServices)++-- | A token that indicates the location of the next service in the array of+-- services, after the list of services that was previously requested.+listServices_nextToken :: Lens.Lens' ListServices (Prelude.Maybe Prelude.Text)+listServices_nextToken = Lens.lens (\ListServices' {nextToken} -> nextToken) (\s@ListServices' {} a -> s {nextToken = a} :: ListServices)++instance Core.AWSPager ListServices where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listServicesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listServicesResponse_services) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listServices_nextToken+          Lens..~ rs+          Lens.^? listServicesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListServices where+  type AWSResponse ListServices = ListServicesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListServicesResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "services" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListServices where+  hashWithSalt _salt ListServices' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListServices where+  rnf ListServices' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListServices where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListServices" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListServices where+  toJSON ListServices' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListServices where+  toPath = Prelude.const "/"++instance Data.ToQuery ListServices where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListServicesResponse' smart constructor.+data ListServicesResponse = ListServicesResponse'+  { -- | A token that indicates the location of the next service in the array of+    -- services, after the current requested list of services.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | An array of services with summaries of detail data.+    services :: [ServiceSummary]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServicesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listServicesResponse_nextToken' - A token that indicates the location of the next service in the array of+-- services, after the current requested list of services.+--+-- 'httpStatus', 'listServicesResponse_httpStatus' - The response's http status code.+--+-- 'services', 'listServicesResponse_services' - An array of services with summaries of detail data.+newListServicesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListServicesResponse+newListServicesResponse pHttpStatus_ =+  ListServicesResponse'+    { nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_,+      services = Prelude.mempty+    }++-- | A token that indicates the location of the next service in the array of+-- services, after the current requested list of services.+listServicesResponse_nextToken :: Lens.Lens' ListServicesResponse (Prelude.Maybe Prelude.Text)+listServicesResponse_nextToken = Lens.lens (\ListServicesResponse' {nextToken} -> nextToken) (\s@ListServicesResponse' {} a -> s {nextToken = a} :: ListServicesResponse)++-- | The response's http status code.+listServicesResponse_httpStatus :: Lens.Lens' ListServicesResponse Prelude.Int+listServicesResponse_httpStatus = Lens.lens (\ListServicesResponse' {httpStatus} -> httpStatus) (\s@ListServicesResponse' {} a -> s {httpStatus = a} :: ListServicesResponse)++-- | An array of services with summaries of detail data.+listServicesResponse_services :: Lens.Lens' ListServicesResponse [ServiceSummary]+listServicesResponse_services = Lens.lens (\ListServicesResponse' {services} -> services) (\s@ListServicesResponse' {} a -> s {services = a} :: ListServicesResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListServicesResponse where+  rnf ListServicesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf services
+ gen/Amazonka/Proton/ListTagsForResource.hs view
@@ -0,0 +1,246 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List tags for a resource. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+--+-- This operation returns paginated results.+module Amazonka.Proton.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_maxResults,+    listTagsForResource_nextToken,+    listTagsForResource_resourceArn,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_httpStatus,+    listTagsForResourceResponse_tags,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The maximum number of tags to list.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A token that indicates the location of the next resource tag in the+    -- array of resource tags, after the list of resource tags that was+    -- previously requested.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the resource for the listed tags.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listTagsForResource_maxResults' - The maximum number of tags to list.+--+-- 'nextToken', 'listTagsForResource_nextToken' - A token that indicates the location of the next resource tag in the+-- array of resource tags, after the list of resource tags that was+-- previously requested.+--+-- 'resourceArn', 'listTagsForResource_resourceArn' - The Amazon Resource Name (ARN) of the resource for the listed tags.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      resourceArn = pResourceArn_+    }++-- | The maximum number of tags to list.+listTagsForResource_maxResults :: Lens.Lens' ListTagsForResource (Prelude.Maybe Prelude.Natural)+listTagsForResource_maxResults = Lens.lens (\ListTagsForResource' {maxResults} -> maxResults) (\s@ListTagsForResource' {} a -> s {maxResults = a} :: ListTagsForResource)++-- | A token that indicates the location of the next resource tag in the+-- array of resource tags, after the list of resource tags that was+-- previously requested.+listTagsForResource_nextToken :: Lens.Lens' ListTagsForResource (Prelude.Maybe Prelude.Text)+listTagsForResource_nextToken = Lens.lens (\ListTagsForResource' {nextToken} -> nextToken) (\s@ListTagsForResource' {} a -> s {nextToken = a} :: ListTagsForResource)++-- | The Amazon Resource Name (ARN) of the resource for the listed tags.+listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource)++instance Core.AWSPager ListTagsForResource where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTagsForResourceResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listTagsForResourceResponse_tags) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTagsForResource_nextToken+          Lens..~ rs+          Lens.^? listTagsForResourceResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf resourceArn++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("resourceArn" Data..= resourceArn)+          ]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | A token that indicates the location of the next resource tag in the+    -- array of resource tags, after the current requested list of resource+    -- tags.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of resource tags with detail data.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTagsForResourceResponse_nextToken' - A token that indicates the location of the next resource tag in the+-- array of resource tags, after the current requested list of resource+-- tags.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+--+-- 'tags', 'listTagsForResourceResponse_tags' - A list of resource tags with detail data.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      tags = Prelude.mempty+    }++-- | A token that indicates the location of the next resource tag in the+-- array of resource tags, after the current requested list of resource+-- tags.+listTagsForResourceResponse_nextToken :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe Prelude.Text)+listTagsForResourceResponse_nextToken = Lens.lens (\ListTagsForResourceResponse' {nextToken} -> nextToken) (\s@ListTagsForResourceResponse' {} a -> s {nextToken = a} :: ListTagsForResourceResponse)++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++-- | A list of resource tags with detail data.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse [Tag]+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Proton/NotifyResourceDeploymentStatusChange.hs view
@@ -0,0 +1,249 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.NotifyResourceDeploymentStatusChange+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Notify Proton of status changes to a provisioned resource when you use+-- self-managed provisioning.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html#ag-works-prov-methods-self Self-managed provisioning>+-- in the /Proton User Guide/.+module Amazonka.Proton.NotifyResourceDeploymentStatusChange+  ( -- * Creating a Request+    NotifyResourceDeploymentStatusChange (..),+    newNotifyResourceDeploymentStatusChange,++    -- * Request Lenses+    notifyResourceDeploymentStatusChange_deploymentId,+    notifyResourceDeploymentStatusChange_outputs,+    notifyResourceDeploymentStatusChange_status,+    notifyResourceDeploymentStatusChange_statusMessage,+    notifyResourceDeploymentStatusChange_resourceArn,++    -- * Destructuring the Response+    NotifyResourceDeploymentStatusChangeResponse (..),+    newNotifyResourceDeploymentStatusChangeResponse,++    -- * Response Lenses+    notifyResourceDeploymentStatusChangeResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newNotifyResourceDeploymentStatusChange' smart constructor.+data NotifyResourceDeploymentStatusChange = NotifyResourceDeploymentStatusChange'+  { -- | The deployment ID for your provisioned resource.+    deploymentId :: Prelude.Maybe Prelude.Text,+    -- | The provisioned resource state change detail data that\'s returned by+    -- Proton.+    outputs :: Prelude.Maybe [Data.Sensitive Output],+    -- | The status of your provisioned resource.+    status :: Prelude.Maybe ResourceDeploymentStatus,+    -- | The deployment status message for your provisioned resource.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The provisioned resource Amazon Resource Name (ARN).+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NotifyResourceDeploymentStatusChange' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deploymentId', 'notifyResourceDeploymentStatusChange_deploymentId' - The deployment ID for your provisioned resource.+--+-- 'outputs', 'notifyResourceDeploymentStatusChange_outputs' - The provisioned resource state change detail data that\'s returned by+-- Proton.+--+-- 'status', 'notifyResourceDeploymentStatusChange_status' - The status of your provisioned resource.+--+-- 'statusMessage', 'notifyResourceDeploymentStatusChange_statusMessage' - The deployment status message for your provisioned resource.+--+-- 'resourceArn', 'notifyResourceDeploymentStatusChange_resourceArn' - The provisioned resource Amazon Resource Name (ARN).+newNotifyResourceDeploymentStatusChange ::+  -- | 'resourceArn'+  Prelude.Text ->+  NotifyResourceDeploymentStatusChange+newNotifyResourceDeploymentStatusChange pResourceArn_ =+  NotifyResourceDeploymentStatusChange'+    { deploymentId =+        Prelude.Nothing,+      outputs = Prelude.Nothing,+      status = Prelude.Nothing,+      statusMessage = Prelude.Nothing,+      resourceArn = pResourceArn_+    }++-- | The deployment ID for your provisioned resource.+notifyResourceDeploymentStatusChange_deploymentId :: Lens.Lens' NotifyResourceDeploymentStatusChange (Prelude.Maybe Prelude.Text)+notifyResourceDeploymentStatusChange_deploymentId = Lens.lens (\NotifyResourceDeploymentStatusChange' {deploymentId} -> deploymentId) (\s@NotifyResourceDeploymentStatusChange' {} a -> s {deploymentId = a} :: NotifyResourceDeploymentStatusChange)++-- | The provisioned resource state change detail data that\'s returned by+-- Proton.+notifyResourceDeploymentStatusChange_outputs :: Lens.Lens' NotifyResourceDeploymentStatusChange (Prelude.Maybe [Output])+notifyResourceDeploymentStatusChange_outputs = Lens.lens (\NotifyResourceDeploymentStatusChange' {outputs} -> outputs) (\s@NotifyResourceDeploymentStatusChange' {} a -> s {outputs = a} :: NotifyResourceDeploymentStatusChange) Prelude.. Lens.mapping Lens.coerced++-- | The status of your provisioned resource.+notifyResourceDeploymentStatusChange_status :: Lens.Lens' NotifyResourceDeploymentStatusChange (Prelude.Maybe ResourceDeploymentStatus)+notifyResourceDeploymentStatusChange_status = Lens.lens (\NotifyResourceDeploymentStatusChange' {status} -> status) (\s@NotifyResourceDeploymentStatusChange' {} a -> s {status = a} :: NotifyResourceDeploymentStatusChange)++-- | The deployment status message for your provisioned resource.+notifyResourceDeploymentStatusChange_statusMessage :: Lens.Lens' NotifyResourceDeploymentStatusChange (Prelude.Maybe Prelude.Text)+notifyResourceDeploymentStatusChange_statusMessage = Lens.lens (\NotifyResourceDeploymentStatusChange' {statusMessage} -> statusMessage) (\s@NotifyResourceDeploymentStatusChange' {} a -> s {statusMessage = a} :: NotifyResourceDeploymentStatusChange) Prelude.. Lens.mapping Data._Sensitive++-- | The provisioned resource Amazon Resource Name (ARN).+notifyResourceDeploymentStatusChange_resourceArn :: Lens.Lens' NotifyResourceDeploymentStatusChange Prelude.Text+notifyResourceDeploymentStatusChange_resourceArn = Lens.lens (\NotifyResourceDeploymentStatusChange' {resourceArn} -> resourceArn) (\s@NotifyResourceDeploymentStatusChange' {} a -> s {resourceArn = a} :: NotifyResourceDeploymentStatusChange)++instance+  Core.AWSRequest+    NotifyResourceDeploymentStatusChange+  where+  type+    AWSResponse NotifyResourceDeploymentStatusChange =+      NotifyResourceDeploymentStatusChangeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          NotifyResourceDeploymentStatusChangeResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    NotifyResourceDeploymentStatusChange+  where+  hashWithSalt+    _salt+    NotifyResourceDeploymentStatusChange' {..} =+      _salt+        `Prelude.hashWithSalt` deploymentId+        `Prelude.hashWithSalt` outputs+        `Prelude.hashWithSalt` status+        `Prelude.hashWithSalt` statusMessage+        `Prelude.hashWithSalt` resourceArn++instance+  Prelude.NFData+    NotifyResourceDeploymentStatusChange+  where+  rnf NotifyResourceDeploymentStatusChange' {..} =+    Prelude.rnf deploymentId+      `Prelude.seq` Prelude.rnf outputs+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf resourceArn++instance+  Data.ToHeaders+    NotifyResourceDeploymentStatusChange+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.NotifyResourceDeploymentStatusChange" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    NotifyResourceDeploymentStatusChange+  where+  toJSON NotifyResourceDeploymentStatusChange' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("deploymentId" Data..=) Prelude.<$> deploymentId,+            ("outputs" Data..=) Prelude.<$> outputs,+            ("status" Data..=) Prelude.<$> status,+            ("statusMessage" Data..=) Prelude.<$> statusMessage,+            Prelude.Just ("resourceArn" Data..= resourceArn)+          ]+      )++instance+  Data.ToPath+    NotifyResourceDeploymentStatusChange+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    NotifyResourceDeploymentStatusChange+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newNotifyResourceDeploymentStatusChangeResponse' smart constructor.+data NotifyResourceDeploymentStatusChangeResponse = NotifyResourceDeploymentStatusChangeResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'NotifyResourceDeploymentStatusChangeResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'notifyResourceDeploymentStatusChangeResponse_httpStatus' - The response's http status code.+newNotifyResourceDeploymentStatusChangeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  NotifyResourceDeploymentStatusChangeResponse+newNotifyResourceDeploymentStatusChangeResponse+  pHttpStatus_ =+    NotifyResourceDeploymentStatusChangeResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+notifyResourceDeploymentStatusChangeResponse_httpStatus :: Lens.Lens' NotifyResourceDeploymentStatusChangeResponse Prelude.Int+notifyResourceDeploymentStatusChangeResponse_httpStatus = Lens.lens (\NotifyResourceDeploymentStatusChangeResponse' {httpStatus} -> httpStatus) (\s@NotifyResourceDeploymentStatusChangeResponse' {} a -> s {httpStatus = a} :: NotifyResourceDeploymentStatusChangeResponse)++instance+  Prelude.NFData+    NotifyResourceDeploymentStatusChangeResponse+  where+  rnf NotifyResourceDeploymentStatusChangeResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/Proton/RejectEnvironmentAccountConnection.hs view
@@ -0,0 +1,212 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.RejectEnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- In a management account, reject an environment account connection from+-- another environment account.+--+-- After you reject an environment account connection request, you /can\'t/+-- accept or use the rejected environment account connection.+--+-- You /can’t/ reject an environment account connection that\'s connected+-- to an environment.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+module Amazonka.Proton.RejectEnvironmentAccountConnection+  ( -- * Creating a Request+    RejectEnvironmentAccountConnection (..),+    newRejectEnvironmentAccountConnection,++    -- * Request Lenses+    rejectEnvironmentAccountConnection_id,++    -- * Destructuring the Response+    RejectEnvironmentAccountConnectionResponse (..),+    newRejectEnvironmentAccountConnectionResponse,++    -- * Response Lenses+    rejectEnvironmentAccountConnectionResponse_httpStatus,+    rejectEnvironmentAccountConnectionResponse_environmentAccountConnection,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRejectEnvironmentAccountConnection' smart constructor.+data RejectEnvironmentAccountConnection = RejectEnvironmentAccountConnection'+  { -- | The ID of the environment account connection to reject.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RejectEnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'rejectEnvironmentAccountConnection_id' - The ID of the environment account connection to reject.+newRejectEnvironmentAccountConnection ::+  -- | 'id'+  Prelude.Text ->+  RejectEnvironmentAccountConnection+newRejectEnvironmentAccountConnection pId_ =+  RejectEnvironmentAccountConnection' {id = pId_}++-- | The ID of the environment account connection to reject.+rejectEnvironmentAccountConnection_id :: Lens.Lens' RejectEnvironmentAccountConnection Prelude.Text+rejectEnvironmentAccountConnection_id = Lens.lens (\RejectEnvironmentAccountConnection' {id} -> id) (\s@RejectEnvironmentAccountConnection' {} a -> s {id = a} :: RejectEnvironmentAccountConnection)++instance+  Core.AWSRequest+    RejectEnvironmentAccountConnection+  where+  type+    AWSResponse RejectEnvironmentAccountConnection =+      RejectEnvironmentAccountConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RejectEnvironmentAccountConnectionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentAccountConnection")+      )++instance+  Prelude.Hashable+    RejectEnvironmentAccountConnection+  where+  hashWithSalt+    _salt+    RejectEnvironmentAccountConnection' {..} =+      _salt `Prelude.hashWithSalt` id++instance+  Prelude.NFData+    RejectEnvironmentAccountConnection+  where+  rnf RejectEnvironmentAccountConnection' {..} =+    Prelude.rnf id++instance+  Data.ToHeaders+    RejectEnvironmentAccountConnection+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.RejectEnvironmentAccountConnection" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    RejectEnvironmentAccountConnection+  where+  toJSON RejectEnvironmentAccountConnection' {..} =+    Data.object+      (Prelude.catMaybes [Prelude.Just ("id" Data..= id)])++instance+  Data.ToPath+    RejectEnvironmentAccountConnection+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    RejectEnvironmentAccountConnection+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRejectEnvironmentAccountConnectionResponse' smart constructor.+data RejectEnvironmentAccountConnectionResponse = RejectEnvironmentAccountConnectionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment connection account detail data that\'s returned by+    -- Proton.+    environmentAccountConnection :: EnvironmentAccountConnection+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RejectEnvironmentAccountConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'rejectEnvironmentAccountConnectionResponse_httpStatus' - The response's http status code.+--+-- 'environmentAccountConnection', 'rejectEnvironmentAccountConnectionResponse_environmentAccountConnection' - The environment connection account detail data that\'s returned by+-- Proton.+newRejectEnvironmentAccountConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentAccountConnection'+  EnvironmentAccountConnection ->+  RejectEnvironmentAccountConnectionResponse+newRejectEnvironmentAccountConnectionResponse+  pHttpStatus_+  pEnvironmentAccountConnection_ =+    RejectEnvironmentAccountConnectionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentAccountConnection =+          pEnvironmentAccountConnection_+      }++-- | The response's http status code.+rejectEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' RejectEnvironmentAccountConnectionResponse Prelude.Int+rejectEnvironmentAccountConnectionResponse_httpStatus = Lens.lens (\RejectEnvironmentAccountConnectionResponse' {httpStatus} -> httpStatus) (\s@RejectEnvironmentAccountConnectionResponse' {} a -> s {httpStatus = a} :: RejectEnvironmentAccountConnectionResponse)++-- | The environment connection account detail data that\'s returned by+-- Proton.+rejectEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' RejectEnvironmentAccountConnectionResponse EnvironmentAccountConnection+rejectEnvironmentAccountConnectionResponse_environmentAccountConnection = Lens.lens (\RejectEnvironmentAccountConnectionResponse' {environmentAccountConnection} -> environmentAccountConnection) (\s@RejectEnvironmentAccountConnectionResponse' {} a -> s {environmentAccountConnection = a} :: RejectEnvironmentAccountConnectionResponse)++instance+  Prelude.NFData+    RejectEnvironmentAccountConnectionResponse+  where+  rnf RejectEnvironmentAccountConnectionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentAccountConnection
+ gen/Amazonka/Proton/TagResource.hs view
@@ -0,0 +1,176 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.TagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Tag a resource. A tag is a key-value pair of metadata that you associate+-- with an Proton resource.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+module Amazonka.Proton.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceArn,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The Amazon Resource Name (ARN) of the Proton resource to apply customer+    -- tags to.+    resourceArn :: Prelude.Text,+    -- | A list of customer tags to apply to the Proton resource.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'tagResource_resourceArn' - The Amazon Resource Name (ARN) of the Proton resource to apply customer+-- tags to.+--+-- 'tags', 'tagResource_tags' - A list of customer tags to apply to the Proton resource.+newTagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  TagResource+newTagResource pResourceArn_ =+  TagResource'+    { resourceArn = pResourceArn_,+      tags = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the Proton resource to apply customer+-- tags to.+tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource)++-- | A list of customer tags to apply to the Proton resource.+tagResource_tags :: Lens.Lens' TagResource [Tag]+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.TagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("resourceArn" Data..= resourceArn),+            Prelude.Just ("tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus
+ gen/Amazonka/Proton/Types.hs view
@@ -0,0 +1,715 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AccessDeniedException,+    _ConflictException,+    _InternalServerException,+    _ResourceNotFoundException,+    _ServiceQuotaExceededException,+    _ThrottlingException,+    _ValidationException,++    -- * ComponentDeploymentUpdateType+    ComponentDeploymentUpdateType (..),++    -- * DeploymentStatus+    DeploymentStatus (..),++    -- * DeploymentUpdateType+    DeploymentUpdateType (..),++    -- * EnvironmentAccountConnectionRequesterAccountType+    EnvironmentAccountConnectionRequesterAccountType (..),++    -- * EnvironmentAccountConnectionStatus+    EnvironmentAccountConnectionStatus (..),++    -- * ListServiceInstancesFilterBy+    ListServiceInstancesFilterBy (..),++    -- * ListServiceInstancesSortBy+    ListServiceInstancesSortBy (..),++    -- * ProvisionedResourceEngine+    ProvisionedResourceEngine (..),++    -- * Provisioning+    Provisioning (..),++    -- * RepositoryProvider+    RepositoryProvider (..),++    -- * RepositorySyncStatus+    RepositorySyncStatus (..),++    -- * ResourceDeploymentStatus+    ResourceDeploymentStatus (..),++    -- * ResourceSyncStatus+    ResourceSyncStatus (..),++    -- * ServiceStatus+    ServiceStatus (..),++    -- * ServiceTemplateSupportedComponentSourceType+    ServiceTemplateSupportedComponentSourceType (..),++    -- * SortOrder+    SortOrder (..),++    -- * SyncType+    SyncType (..),++    -- * TemplateType+    TemplateType (..),++    -- * TemplateVersionStatus+    TemplateVersionStatus (..),++    -- * AccountSettings+    AccountSettings (..),+    newAccountSettings,+    accountSettings_pipelineCodebuildRoleArn,+    accountSettings_pipelineProvisioningRepository,+    accountSettings_pipelineServiceRoleArn,++    -- * CompatibleEnvironmentTemplate+    CompatibleEnvironmentTemplate (..),+    newCompatibleEnvironmentTemplate,+    compatibleEnvironmentTemplate_majorVersion,+    compatibleEnvironmentTemplate_templateName,++    -- * CompatibleEnvironmentTemplateInput+    CompatibleEnvironmentTemplateInput (..),+    newCompatibleEnvironmentTemplateInput,+    compatibleEnvironmentTemplateInput_majorVersion,+    compatibleEnvironmentTemplateInput_templateName,++    -- * Component+    Component (..),+    newComponent,+    component_deploymentStatusMessage,+    component_description,+    component_lastDeploymentAttemptedAt,+    component_lastDeploymentSucceededAt,+    component_serviceInstanceName,+    component_serviceName,+    component_serviceSpec,+    component_arn,+    component_createdAt,+    component_deploymentStatus,+    component_environmentName,+    component_lastModifiedAt,+    component_name,++    -- * ComponentSummary+    ComponentSummary (..),+    newComponentSummary,+    componentSummary_deploymentStatusMessage,+    componentSummary_lastDeploymentAttemptedAt,+    componentSummary_lastDeploymentSucceededAt,+    componentSummary_serviceInstanceName,+    componentSummary_serviceName,+    componentSummary_arn,+    componentSummary_createdAt,+    componentSummary_deploymentStatus,+    componentSummary_environmentName,+    componentSummary_lastModifiedAt,+    componentSummary_name,++    -- * Environment+    Environment (..),+    newEnvironment,+    environment_codebuildRoleArn,+    environment_componentRoleArn,+    environment_deploymentStatusMessage,+    environment_description,+    environment_environmentAccountConnectionId,+    environment_environmentAccountId,+    environment_protonServiceRoleArn,+    environment_provisioning,+    environment_provisioningRepository,+    environment_spec,+    environment_arn,+    environment_createdAt,+    environment_deploymentStatus,+    environment_lastDeploymentAttemptedAt,+    environment_lastDeploymentSucceededAt,+    environment_name,+    environment_templateMajorVersion,+    environment_templateMinorVersion,+    environment_templateName,++    -- * EnvironmentAccountConnection+    EnvironmentAccountConnection (..),+    newEnvironmentAccountConnection,+    environmentAccountConnection_codebuildRoleArn,+    environmentAccountConnection_componentRoleArn,+    environmentAccountConnection_arn,+    environmentAccountConnection_environmentAccountId,+    environmentAccountConnection_environmentName,+    environmentAccountConnection_id,+    environmentAccountConnection_lastModifiedAt,+    environmentAccountConnection_managementAccountId,+    environmentAccountConnection_requestedAt,+    environmentAccountConnection_roleArn,+    environmentAccountConnection_status,++    -- * EnvironmentAccountConnectionSummary+    EnvironmentAccountConnectionSummary (..),+    newEnvironmentAccountConnectionSummary,+    environmentAccountConnectionSummary_componentRoleArn,+    environmentAccountConnectionSummary_arn,+    environmentAccountConnectionSummary_environmentAccountId,+    environmentAccountConnectionSummary_environmentName,+    environmentAccountConnectionSummary_id,+    environmentAccountConnectionSummary_lastModifiedAt,+    environmentAccountConnectionSummary_managementAccountId,+    environmentAccountConnectionSummary_requestedAt,+    environmentAccountConnectionSummary_roleArn,+    environmentAccountConnectionSummary_status,++    -- * EnvironmentSummary+    EnvironmentSummary (..),+    newEnvironmentSummary,+    environmentSummary_componentRoleArn,+    environmentSummary_deploymentStatusMessage,+    environmentSummary_description,+    environmentSummary_environmentAccountConnectionId,+    environmentSummary_environmentAccountId,+    environmentSummary_protonServiceRoleArn,+    environmentSummary_provisioning,+    environmentSummary_arn,+    environmentSummary_createdAt,+    environmentSummary_deploymentStatus,+    environmentSummary_lastDeploymentAttemptedAt,+    environmentSummary_lastDeploymentSucceededAt,+    environmentSummary_name,+    environmentSummary_templateMajorVersion,+    environmentSummary_templateMinorVersion,+    environmentSummary_templateName,++    -- * EnvironmentTemplate+    EnvironmentTemplate (..),+    newEnvironmentTemplate,+    environmentTemplate_description,+    environmentTemplate_displayName,+    environmentTemplate_encryptionKey,+    environmentTemplate_provisioning,+    environmentTemplate_recommendedVersion,+    environmentTemplate_arn,+    environmentTemplate_createdAt,+    environmentTemplate_lastModifiedAt,+    environmentTemplate_name,++    -- * EnvironmentTemplateFilter+    EnvironmentTemplateFilter (..),+    newEnvironmentTemplateFilter,+    environmentTemplateFilter_majorVersion,+    environmentTemplateFilter_templateName,++    -- * EnvironmentTemplateSummary+    EnvironmentTemplateSummary (..),+    newEnvironmentTemplateSummary,+    environmentTemplateSummary_description,+    environmentTemplateSummary_displayName,+    environmentTemplateSummary_provisioning,+    environmentTemplateSummary_recommendedVersion,+    environmentTemplateSummary_arn,+    environmentTemplateSummary_createdAt,+    environmentTemplateSummary_lastModifiedAt,+    environmentTemplateSummary_name,++    -- * EnvironmentTemplateVersion+    EnvironmentTemplateVersion (..),+    newEnvironmentTemplateVersion,+    environmentTemplateVersion_description,+    environmentTemplateVersion_recommendedMinorVersion,+    environmentTemplateVersion_schema,+    environmentTemplateVersion_statusMessage,+    environmentTemplateVersion_arn,+    environmentTemplateVersion_createdAt,+    environmentTemplateVersion_lastModifiedAt,+    environmentTemplateVersion_majorVersion,+    environmentTemplateVersion_minorVersion,+    environmentTemplateVersion_status,+    environmentTemplateVersion_templateName,++    -- * EnvironmentTemplateVersionSummary+    EnvironmentTemplateVersionSummary (..),+    newEnvironmentTemplateVersionSummary,+    environmentTemplateVersionSummary_description,+    environmentTemplateVersionSummary_recommendedMinorVersion,+    environmentTemplateVersionSummary_statusMessage,+    environmentTemplateVersionSummary_arn,+    environmentTemplateVersionSummary_createdAt,+    environmentTemplateVersionSummary_lastModifiedAt,+    environmentTemplateVersionSummary_majorVersion,+    environmentTemplateVersionSummary_minorVersion,+    environmentTemplateVersionSummary_status,+    environmentTemplateVersionSummary_templateName,++    -- * ListServiceInstancesFilter+    ListServiceInstancesFilter (..),+    newListServiceInstancesFilter,+    listServiceInstancesFilter_key,+    listServiceInstancesFilter_value,++    -- * Output+    Output (..),+    newOutput,+    output_key,+    output_valueString,++    -- * ProvisionedResource+    ProvisionedResource (..),+    newProvisionedResource,+    provisionedResource_identifier,+    provisionedResource_name,+    provisionedResource_provisioningEngine,++    -- * Repository+    Repository (..),+    newRepository,+    repository_encryptionKey,+    repository_arn,+    repository_connectionArn,+    repository_name,+    repository_provider,++    -- * RepositoryBranch+    RepositoryBranch (..),+    newRepositoryBranch,+    repositoryBranch_arn,+    repositoryBranch_branch,+    repositoryBranch_name,+    repositoryBranch_provider,++    -- * RepositoryBranchInput+    RepositoryBranchInput (..),+    newRepositoryBranchInput,+    repositoryBranchInput_branch,+    repositoryBranchInput_name,+    repositoryBranchInput_provider,++    -- * RepositorySummary+    RepositorySummary (..),+    newRepositorySummary,+    repositorySummary_arn,+    repositorySummary_name,+    repositorySummary_provider,++    -- * RepositorySyncAttempt+    RepositorySyncAttempt (..),+    newRepositorySyncAttempt,+    repositorySyncAttempt_events,+    repositorySyncAttempt_startedAt,+    repositorySyncAttempt_status,++    -- * RepositorySyncDefinition+    RepositorySyncDefinition (..),+    newRepositorySyncDefinition,+    repositorySyncDefinition_branch,+    repositorySyncDefinition_directory,+    repositorySyncDefinition_parent,+    repositorySyncDefinition_target,++    -- * RepositorySyncEvent+    RepositorySyncEvent (..),+    newRepositorySyncEvent,+    repositorySyncEvent_externalId,+    repositorySyncEvent_event,+    repositorySyncEvent_time,+    repositorySyncEvent_type,++    -- * ResourceSyncAttempt+    ResourceSyncAttempt (..),+    newResourceSyncAttempt,+    resourceSyncAttempt_events,+    resourceSyncAttempt_initialRevision,+    resourceSyncAttempt_startedAt,+    resourceSyncAttempt_status,+    resourceSyncAttempt_target,+    resourceSyncAttempt_targetRevision,++    -- * ResourceSyncEvent+    ResourceSyncEvent (..),+    newResourceSyncEvent,+    resourceSyncEvent_externalId,+    resourceSyncEvent_event,+    resourceSyncEvent_time,+    resourceSyncEvent_type,++    -- * Revision+    Revision (..),+    newRevision,+    revision_branch,+    revision_directory,+    revision_repositoryName,+    revision_repositoryProvider,+    revision_sha,++    -- * S3ObjectSource+    S3ObjectSource (..),+    newS3ObjectSource,+    s3ObjectSource_bucket,+    s3ObjectSource_key,++    -- * Service+    Service (..),+    newService,+    service_branchName,+    service_description,+    service_pipeline,+    service_repositoryConnectionArn,+    service_repositoryId,+    service_statusMessage,+    service_arn,+    service_createdAt,+    service_lastModifiedAt,+    service_name,+    service_spec,+    service_status,+    service_templateName,++    -- * ServiceInstance+    ServiceInstance (..),+    newServiceInstance,+    serviceInstance_deploymentStatusMessage,+    serviceInstance_spec,+    serviceInstance_arn,+    serviceInstance_createdAt,+    serviceInstance_deploymentStatus,+    serviceInstance_environmentName,+    serviceInstance_lastDeploymentAttemptedAt,+    serviceInstance_lastDeploymentSucceededAt,+    serviceInstance_name,+    serviceInstance_serviceName,+    serviceInstance_templateMajorVersion,+    serviceInstance_templateMinorVersion,+    serviceInstance_templateName,++    -- * ServiceInstanceSummary+    ServiceInstanceSummary (..),+    newServiceInstanceSummary,+    serviceInstanceSummary_deploymentStatusMessage,+    serviceInstanceSummary_arn,+    serviceInstanceSummary_createdAt,+    serviceInstanceSummary_deploymentStatus,+    serviceInstanceSummary_environmentName,+    serviceInstanceSummary_lastDeploymentAttemptedAt,+    serviceInstanceSummary_lastDeploymentSucceededAt,+    serviceInstanceSummary_name,+    serviceInstanceSummary_serviceName,+    serviceInstanceSummary_templateMajorVersion,+    serviceInstanceSummary_templateMinorVersion,+    serviceInstanceSummary_templateName,++    -- * ServicePipeline+    ServicePipeline (..),+    newServicePipeline,+    servicePipeline_deploymentStatusMessage,+    servicePipeline_spec,+    servicePipeline_arn,+    servicePipeline_createdAt,+    servicePipeline_deploymentStatus,+    servicePipeline_lastDeploymentAttemptedAt,+    servicePipeline_lastDeploymentSucceededAt,+    servicePipeline_templateMajorVersion,+    servicePipeline_templateMinorVersion,+    servicePipeline_templateName,++    -- * ServiceSummary+    ServiceSummary (..),+    newServiceSummary,+    serviceSummary_description,+    serviceSummary_statusMessage,+    serviceSummary_arn,+    serviceSummary_createdAt,+    serviceSummary_lastModifiedAt,+    serviceSummary_name,+    serviceSummary_status,+    serviceSummary_templateName,++    -- * ServiceTemplate+    ServiceTemplate (..),+    newServiceTemplate,+    serviceTemplate_description,+    serviceTemplate_displayName,+    serviceTemplate_encryptionKey,+    serviceTemplate_pipelineProvisioning,+    serviceTemplate_recommendedVersion,+    serviceTemplate_arn,+    serviceTemplate_createdAt,+    serviceTemplate_lastModifiedAt,+    serviceTemplate_name,++    -- * ServiceTemplateSummary+    ServiceTemplateSummary (..),+    newServiceTemplateSummary,+    serviceTemplateSummary_description,+    serviceTemplateSummary_displayName,+    serviceTemplateSummary_pipelineProvisioning,+    serviceTemplateSummary_recommendedVersion,+    serviceTemplateSummary_arn,+    serviceTemplateSummary_createdAt,+    serviceTemplateSummary_lastModifiedAt,+    serviceTemplateSummary_name,++    -- * ServiceTemplateVersion+    ServiceTemplateVersion (..),+    newServiceTemplateVersion,+    serviceTemplateVersion_description,+    serviceTemplateVersion_recommendedMinorVersion,+    serviceTemplateVersion_schema,+    serviceTemplateVersion_statusMessage,+    serviceTemplateVersion_supportedComponentSources,+    serviceTemplateVersion_arn,+    serviceTemplateVersion_compatibleEnvironmentTemplates,+    serviceTemplateVersion_createdAt,+    serviceTemplateVersion_lastModifiedAt,+    serviceTemplateVersion_majorVersion,+    serviceTemplateVersion_minorVersion,+    serviceTemplateVersion_status,+    serviceTemplateVersion_templateName,++    -- * ServiceTemplateVersionSummary+    ServiceTemplateVersionSummary (..),+    newServiceTemplateVersionSummary,+    serviceTemplateVersionSummary_description,+    serviceTemplateVersionSummary_recommendedMinorVersion,+    serviceTemplateVersionSummary_statusMessage,+    serviceTemplateVersionSummary_arn,+    serviceTemplateVersionSummary_createdAt,+    serviceTemplateVersionSummary_lastModifiedAt,+    serviceTemplateVersionSummary_majorVersion,+    serviceTemplateVersionSummary_minorVersion,+    serviceTemplateVersionSummary_status,+    serviceTemplateVersionSummary_templateName,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,++    -- * TemplateSyncConfig+    TemplateSyncConfig (..),+    newTemplateSyncConfig,+    templateSyncConfig_subdirectory,+    templateSyncConfig_branch,+    templateSyncConfig_repositoryName,+    templateSyncConfig_repositoryProvider,+    templateSyncConfig_templateName,+    templateSyncConfig_templateType,++    -- * TemplateVersionSourceInput+    TemplateVersionSourceInput (..),+    newTemplateVersionSourceInput,+    templateVersionSourceInput_s3,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.AccountSettings+import Amazonka.Proton.Types.CompatibleEnvironmentTemplate+import Amazonka.Proton.Types.CompatibleEnvironmentTemplateInput+import Amazonka.Proton.Types.Component+import Amazonka.Proton.Types.ComponentDeploymentUpdateType+import Amazonka.Proton.Types.ComponentSummary+import Amazonka.Proton.Types.DeploymentStatus+import Amazonka.Proton.Types.DeploymentUpdateType+import Amazonka.Proton.Types.Environment+import Amazonka.Proton.Types.EnvironmentAccountConnection+import Amazonka.Proton.Types.EnvironmentAccountConnectionRequesterAccountType+import Amazonka.Proton.Types.EnvironmentAccountConnectionStatus+import Amazonka.Proton.Types.EnvironmentAccountConnectionSummary+import Amazonka.Proton.Types.EnvironmentSummary+import Amazonka.Proton.Types.EnvironmentTemplate+import Amazonka.Proton.Types.EnvironmentTemplateFilter+import Amazonka.Proton.Types.EnvironmentTemplateSummary+import Amazonka.Proton.Types.EnvironmentTemplateVersion+import Amazonka.Proton.Types.EnvironmentTemplateVersionSummary+import Amazonka.Proton.Types.ListServiceInstancesFilter+import Amazonka.Proton.Types.ListServiceInstancesFilterBy+import Amazonka.Proton.Types.ListServiceInstancesSortBy+import Amazonka.Proton.Types.Output+import Amazonka.Proton.Types.ProvisionedResource+import Amazonka.Proton.Types.ProvisionedResourceEngine+import Amazonka.Proton.Types.Provisioning+import Amazonka.Proton.Types.Repository+import Amazonka.Proton.Types.RepositoryBranch+import Amazonka.Proton.Types.RepositoryBranchInput+import Amazonka.Proton.Types.RepositoryProvider+import Amazonka.Proton.Types.RepositorySummary+import Amazonka.Proton.Types.RepositorySyncAttempt+import Amazonka.Proton.Types.RepositorySyncDefinition+import Amazonka.Proton.Types.RepositorySyncEvent+import Amazonka.Proton.Types.RepositorySyncStatus+import Amazonka.Proton.Types.ResourceDeploymentStatus+import Amazonka.Proton.Types.ResourceSyncAttempt+import Amazonka.Proton.Types.ResourceSyncEvent+import Amazonka.Proton.Types.ResourceSyncStatus+import Amazonka.Proton.Types.Revision+import Amazonka.Proton.Types.S3ObjectSource+import Amazonka.Proton.Types.Service+import Amazonka.Proton.Types.ServiceInstance+import Amazonka.Proton.Types.ServiceInstanceSummary+import Amazonka.Proton.Types.ServicePipeline+import Amazonka.Proton.Types.ServiceStatus+import Amazonka.Proton.Types.ServiceSummary+import Amazonka.Proton.Types.ServiceTemplate+import Amazonka.Proton.Types.ServiceTemplateSummary+import Amazonka.Proton.Types.ServiceTemplateSupportedComponentSourceType+import Amazonka.Proton.Types.ServiceTemplateVersion+import Amazonka.Proton.Types.ServiceTemplateVersionSummary+import Amazonka.Proton.Types.SortOrder+import Amazonka.Proton.Types.SyncType+import Amazonka.Proton.Types.Tag+import Amazonka.Proton.Types.TemplateSyncConfig+import Amazonka.Proton.Types.TemplateType+import Amazonka.Proton.Types.TemplateVersionSourceInput+import Amazonka.Proton.Types.TemplateVersionStatus+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2020-07-20@ of the Amazon Proton SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "Proton",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "proton",+      Core.signingName = "proton",+      Core.version = "2020-07-20",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "Proton",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | There /isn\'t/ sufficient access for performing this action.+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessDeniedException =+  Core._MatchServiceError+    defaultService+    "AccessDeniedException"++-- | The request /couldn\'t/ be made due to a conflicting operation or+-- resource.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"++-- | The request failed to register with the service.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"++-- | The requested resource /wasn\'t/ found.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"++-- | A quota was exceeded. For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-limits.html Proton Quotas>+-- in the /Proton User Guide/.+_ServiceQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceQuotaExceededException =+  Core._MatchServiceError+    defaultService+    "ServiceQuotaExceededException"++-- | The request was denied due to request throttling.+_ThrottlingException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ThrottlingException =+  Core._MatchServiceError+    defaultService+    "ThrottlingException"++-- | The input is invalid or an out-of-range value was supplied for the input+-- parameter.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"
+ gen/Amazonka/Proton/Types/AccountSettings.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.AccountSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.AccountSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryBranch++-- | Proton settings that are used for multiple services in the Amazon Web+-- Services account.+--+-- /See:/ 'newAccountSettings' smart constructor.+data AccountSettings = AccountSettings'+  { -- | The Amazon Resource Name (ARN) of the service role that Proton uses for+    -- provisioning pipelines. Proton assumes this role for CodeBuild-based+    -- provisioning.+    pipelineCodebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The linked repository for pipeline provisioning. Required if you have+    -- environments configured for self-managed provisioning with services that+    -- include pipelines. A linked repository is a repository that has been+    -- registered with Proton. For more information, see CreateRepository.+    pipelineProvisioningRepository :: Prelude.Maybe RepositoryBranch,+    -- | The Amazon Resource Name (ARN) of the service role you want to use for+    -- provisioning pipelines. Assumed by Proton for Amazon Web+    -- Services-managed provisioning, and by customer-owned automation for+    -- self-managed provisioning.+    pipelineServiceRoleArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AccountSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'pipelineCodebuildRoleArn', 'accountSettings_pipelineCodebuildRoleArn' - The Amazon Resource Name (ARN) of the service role that Proton uses for+-- provisioning pipelines. Proton assumes this role for CodeBuild-based+-- provisioning.+--+-- 'pipelineProvisioningRepository', 'accountSettings_pipelineProvisioningRepository' - The linked repository for pipeline provisioning. Required if you have+-- environments configured for self-managed provisioning with services that+-- include pipelines. A linked repository is a repository that has been+-- registered with Proton. For more information, see CreateRepository.+--+-- 'pipelineServiceRoleArn', 'accountSettings_pipelineServiceRoleArn' - The Amazon Resource Name (ARN) of the service role you want to use for+-- provisioning pipelines. Assumed by Proton for Amazon Web+-- Services-managed provisioning, and by customer-owned automation for+-- self-managed provisioning.+newAccountSettings ::+  AccountSettings+newAccountSettings =+  AccountSettings'+    { pipelineCodebuildRoleArn =+        Prelude.Nothing,+      pipelineProvisioningRepository = Prelude.Nothing,+      pipelineServiceRoleArn = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the service role that Proton uses for+-- provisioning pipelines. Proton assumes this role for CodeBuild-based+-- provisioning.+accountSettings_pipelineCodebuildRoleArn :: Lens.Lens' AccountSettings (Prelude.Maybe Prelude.Text)+accountSettings_pipelineCodebuildRoleArn = Lens.lens (\AccountSettings' {pipelineCodebuildRoleArn} -> pipelineCodebuildRoleArn) (\s@AccountSettings' {} a -> s {pipelineCodebuildRoleArn = a} :: AccountSettings)++-- | The linked repository for pipeline provisioning. Required if you have+-- environments configured for self-managed provisioning with services that+-- include pipelines. A linked repository is a repository that has been+-- registered with Proton. For more information, see CreateRepository.+accountSettings_pipelineProvisioningRepository :: Lens.Lens' AccountSettings (Prelude.Maybe RepositoryBranch)+accountSettings_pipelineProvisioningRepository = Lens.lens (\AccountSettings' {pipelineProvisioningRepository} -> pipelineProvisioningRepository) (\s@AccountSettings' {} a -> s {pipelineProvisioningRepository = a} :: AccountSettings)++-- | The Amazon Resource Name (ARN) of the service role you want to use for+-- provisioning pipelines. Assumed by Proton for Amazon Web+-- Services-managed provisioning, and by customer-owned automation for+-- self-managed provisioning.+accountSettings_pipelineServiceRoleArn :: Lens.Lens' AccountSettings (Prelude.Maybe Prelude.Text)+accountSettings_pipelineServiceRoleArn = Lens.lens (\AccountSettings' {pipelineServiceRoleArn} -> pipelineServiceRoleArn) (\s@AccountSettings' {} a -> s {pipelineServiceRoleArn = a} :: AccountSettings)++instance Data.FromJSON AccountSettings where+  parseJSON =+    Data.withObject+      "AccountSettings"+      ( \x ->+          AccountSettings'+            Prelude.<$> (x Data..:? "pipelineCodebuildRoleArn")+            Prelude.<*> (x Data..:? "pipelineProvisioningRepository")+            Prelude.<*> (x Data..:? "pipelineServiceRoleArn")+      )++instance Prelude.Hashable AccountSettings where+  hashWithSalt _salt AccountSettings' {..} =+    _salt+      `Prelude.hashWithSalt` pipelineCodebuildRoleArn+      `Prelude.hashWithSalt` pipelineProvisioningRepository+      `Prelude.hashWithSalt` pipelineServiceRoleArn++instance Prelude.NFData AccountSettings where+  rnf AccountSettings' {..} =+    Prelude.rnf pipelineCodebuildRoleArn+      `Prelude.seq` Prelude.rnf pipelineProvisioningRepository+      `Prelude.seq` Prelude.rnf pipelineServiceRoleArn
+ gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplate.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.CompatibleEnvironmentTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.CompatibleEnvironmentTemplate where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Compatible environment template data.+--+-- /See:/ 'newCompatibleEnvironmentTemplate' smart constructor.+data CompatibleEnvironmentTemplate = CompatibleEnvironmentTemplate'+  { -- | The major version of the compatible environment template.+    majorVersion :: Prelude.Text,+    -- | The compatible environment template name.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CompatibleEnvironmentTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'compatibleEnvironmentTemplate_majorVersion' - The major version of the compatible environment template.+--+-- 'templateName', 'compatibleEnvironmentTemplate_templateName' - The compatible environment template name.+newCompatibleEnvironmentTemplate ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  CompatibleEnvironmentTemplate+newCompatibleEnvironmentTemplate+  pMajorVersion_+  pTemplateName_ =+    CompatibleEnvironmentTemplate'+      { majorVersion =+          pMajorVersion_,+        templateName = pTemplateName_+      }++-- | The major version of the compatible environment template.+compatibleEnvironmentTemplate_majorVersion :: Lens.Lens' CompatibleEnvironmentTemplate Prelude.Text+compatibleEnvironmentTemplate_majorVersion = Lens.lens (\CompatibleEnvironmentTemplate' {majorVersion} -> majorVersion) (\s@CompatibleEnvironmentTemplate' {} a -> s {majorVersion = a} :: CompatibleEnvironmentTemplate)++-- | The compatible environment template name.+compatibleEnvironmentTemplate_templateName :: Lens.Lens' CompatibleEnvironmentTemplate Prelude.Text+compatibleEnvironmentTemplate_templateName = Lens.lens (\CompatibleEnvironmentTemplate' {templateName} -> templateName) (\s@CompatibleEnvironmentTemplate' {} a -> s {templateName = a} :: CompatibleEnvironmentTemplate)++instance Data.FromJSON CompatibleEnvironmentTemplate where+  parseJSON =+    Data.withObject+      "CompatibleEnvironmentTemplate"+      ( \x ->+          CompatibleEnvironmentTemplate'+            Prelude.<$> (x Data..: "majorVersion")+            Prelude.<*> (x Data..: "templateName")+      )++instance+  Prelude.Hashable+    CompatibleEnvironmentTemplate+  where+  hashWithSalt _salt CompatibleEnvironmentTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData CompatibleEnvironmentTemplate where+  rnf CompatibleEnvironmentTemplate' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplateInput.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.CompatibleEnvironmentTemplateInput+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.CompatibleEnvironmentTemplateInput where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Compatible environment template data.+--+-- /See:/ 'newCompatibleEnvironmentTemplateInput' smart constructor.+data CompatibleEnvironmentTemplateInput = CompatibleEnvironmentTemplateInput'+  { -- | The major version of the compatible environment template.+    majorVersion :: Prelude.Text,+    -- | The compatible environment template name.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CompatibleEnvironmentTemplateInput' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'compatibleEnvironmentTemplateInput_majorVersion' - The major version of the compatible environment template.+--+-- 'templateName', 'compatibleEnvironmentTemplateInput_templateName' - The compatible environment template name.+newCompatibleEnvironmentTemplateInput ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  CompatibleEnvironmentTemplateInput+newCompatibleEnvironmentTemplateInput+  pMajorVersion_+  pTemplateName_ =+    CompatibleEnvironmentTemplateInput'+      { majorVersion =+          pMajorVersion_,+        templateName = pTemplateName_+      }++-- | The major version of the compatible environment template.+compatibleEnvironmentTemplateInput_majorVersion :: Lens.Lens' CompatibleEnvironmentTemplateInput Prelude.Text+compatibleEnvironmentTemplateInput_majorVersion = Lens.lens (\CompatibleEnvironmentTemplateInput' {majorVersion} -> majorVersion) (\s@CompatibleEnvironmentTemplateInput' {} a -> s {majorVersion = a} :: CompatibleEnvironmentTemplateInput)++-- | The compatible environment template name.+compatibleEnvironmentTemplateInput_templateName :: Lens.Lens' CompatibleEnvironmentTemplateInput Prelude.Text+compatibleEnvironmentTemplateInput_templateName = Lens.lens (\CompatibleEnvironmentTemplateInput' {templateName} -> templateName) (\s@CompatibleEnvironmentTemplateInput' {} a -> s {templateName = a} :: CompatibleEnvironmentTemplateInput)++instance+  Prelude.Hashable+    CompatibleEnvironmentTemplateInput+  where+  hashWithSalt+    _salt+    CompatibleEnvironmentTemplateInput' {..} =+      _salt+        `Prelude.hashWithSalt` majorVersion+        `Prelude.hashWithSalt` templateName++instance+  Prelude.NFData+    CompatibleEnvironmentTemplateInput+  where+  rnf CompatibleEnvironmentTemplateInput' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf templateName++instance+  Data.ToJSON+    CompatibleEnvironmentTemplateInput+  where+  toJSON CompatibleEnvironmentTemplateInput' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )
+ gen/Amazonka/Proton/Types/Component.hs view
@@ -0,0 +1,252 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Component+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Component where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus++-- | Detailed data of an Proton component resource.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- /See:/ 'newComponent' smart constructor.+data Component = Component'+  { -- | The message associated with the component deployment status.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | A description of the component.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The time when a deployment of the component was last attempted.+    lastDeploymentAttemptedAt :: Prelude.Maybe Data.POSIX,+    -- | The time when the component was last deployed successfully.+    lastDeploymentSucceededAt :: Prelude.Maybe Data.POSIX,+    -- | The name of the service instance that this component is attached to.+    -- Provided when a component is attached to a service instance.+    serviceInstanceName :: Prelude.Maybe Prelude.Text,+    -- | The name of the service that @serviceInstanceName@ is associated with.+    -- Provided when a component is attached to a service instance.+    serviceName :: Prelude.Maybe Prelude.Text,+    -- | The service spec that the component uses to access service inputs.+    -- Provided when a component is attached to a service instance.+    serviceSpec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the component.+    arn :: Prelude.Text,+    -- | The time when the component was created.+    createdAt :: Data.POSIX,+    -- | The component deployment status.+    deploymentStatus :: DeploymentStatus,+    -- | The name of the Proton environment that this component is associated+    -- with.+    environmentName :: Prelude.Text,+    -- | The time when the component was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the component.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Component' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deploymentStatusMessage', 'component_deploymentStatusMessage' - The message associated with the component deployment status.+--+-- 'description', 'component_description' - A description of the component.+--+-- 'lastDeploymentAttemptedAt', 'component_lastDeploymentAttemptedAt' - The time when a deployment of the component was last attempted.+--+-- 'lastDeploymentSucceededAt', 'component_lastDeploymentSucceededAt' - The time when the component was last deployed successfully.+--+-- 'serviceInstanceName', 'component_serviceInstanceName' - The name of the service instance that this component is attached to.+-- Provided when a component is attached to a service instance.+--+-- 'serviceName', 'component_serviceName' - The name of the service that @serviceInstanceName@ is associated with.+-- Provided when a component is attached to a service instance.+--+-- 'serviceSpec', 'component_serviceSpec' - The service spec that the component uses to access service inputs.+-- Provided when a component is attached to a service instance.+--+-- 'arn', 'component_arn' - The Amazon Resource Name (ARN) of the component.+--+-- 'createdAt', 'component_createdAt' - The time when the component was created.+--+-- 'deploymentStatus', 'component_deploymentStatus' - The component deployment status.+--+-- 'environmentName', 'component_environmentName' - The name of the Proton environment that this component is associated+-- with.+--+-- 'lastModifiedAt', 'component_lastModifiedAt' - The time when the component was last modified.+--+-- 'name', 'component_name' - The name of the component.+newComponent ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  Component+newComponent+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pEnvironmentName_+  pLastModifiedAt_+  pName_ =+    Component'+      { deploymentStatusMessage =+          Prelude.Nothing,+        description = Prelude.Nothing,+        lastDeploymentAttemptedAt = Prelude.Nothing,+        lastDeploymentSucceededAt = Prelude.Nothing,+        serviceInstanceName = Prelude.Nothing,+        serviceName = Prelude.Nothing,+        serviceSpec = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        environmentName = pEnvironmentName_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_+      }++-- | The message associated with the component deployment status.+component_deploymentStatusMessage :: Lens.Lens' Component (Prelude.Maybe Prelude.Text)+component_deploymentStatusMessage = Lens.lens (\Component' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@Component' {} a -> s {deploymentStatusMessage = a} :: Component) Prelude.. Lens.mapping Data._Sensitive++-- | A description of the component.+component_description :: Lens.Lens' Component (Prelude.Maybe Prelude.Text)+component_description = Lens.lens (\Component' {description} -> description) (\s@Component' {} a -> s {description = a} :: Component) Prelude.. Lens.mapping Data._Sensitive++-- | The time when a deployment of the component was last attempted.+component_lastDeploymentAttemptedAt :: Lens.Lens' Component (Prelude.Maybe Prelude.UTCTime)+component_lastDeploymentAttemptedAt = Lens.lens (\Component' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@Component' {} a -> s {lastDeploymentAttemptedAt = a} :: Component) Prelude.. Lens.mapping Data._Time++-- | The time when the component was last deployed successfully.+component_lastDeploymentSucceededAt :: Lens.Lens' Component (Prelude.Maybe Prelude.UTCTime)+component_lastDeploymentSucceededAt = Lens.lens (\Component' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@Component' {} a -> s {lastDeploymentSucceededAt = a} :: Component) Prelude.. Lens.mapping Data._Time++-- | The name of the service instance that this component is attached to.+-- Provided when a component is attached to a service instance.+component_serviceInstanceName :: Lens.Lens' Component (Prelude.Maybe Prelude.Text)+component_serviceInstanceName = Lens.lens (\Component' {serviceInstanceName} -> serviceInstanceName) (\s@Component' {} a -> s {serviceInstanceName = a} :: Component)++-- | The name of the service that @serviceInstanceName@ is associated with.+-- Provided when a component is attached to a service instance.+component_serviceName :: Lens.Lens' Component (Prelude.Maybe Prelude.Text)+component_serviceName = Lens.lens (\Component' {serviceName} -> serviceName) (\s@Component' {} a -> s {serviceName = a} :: Component)++-- | The service spec that the component uses to access service inputs.+-- Provided when a component is attached to a service instance.+component_serviceSpec :: Lens.Lens' Component (Prelude.Maybe Prelude.Text)+component_serviceSpec = Lens.lens (\Component' {serviceSpec} -> serviceSpec) (\s@Component' {} a -> s {serviceSpec = a} :: Component) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the component.+component_arn :: Lens.Lens' Component Prelude.Text+component_arn = Lens.lens (\Component' {arn} -> arn) (\s@Component' {} a -> s {arn = a} :: Component)++-- | The time when the component was created.+component_createdAt :: Lens.Lens' Component Prelude.UTCTime+component_createdAt = Lens.lens (\Component' {createdAt} -> createdAt) (\s@Component' {} a -> s {createdAt = a} :: Component) Prelude.. Data._Time++-- | The component deployment status.+component_deploymentStatus :: Lens.Lens' Component DeploymentStatus+component_deploymentStatus = Lens.lens (\Component' {deploymentStatus} -> deploymentStatus) (\s@Component' {} a -> s {deploymentStatus = a} :: Component)++-- | The name of the Proton environment that this component is associated+-- with.+component_environmentName :: Lens.Lens' Component Prelude.Text+component_environmentName = Lens.lens (\Component' {environmentName} -> environmentName) (\s@Component' {} a -> s {environmentName = a} :: Component)++-- | The time when the component was last modified.+component_lastModifiedAt :: Lens.Lens' Component Prelude.UTCTime+component_lastModifiedAt = Lens.lens (\Component' {lastModifiedAt} -> lastModifiedAt) (\s@Component' {} a -> s {lastModifiedAt = a} :: Component) Prelude.. Data._Time++-- | The name of the component.+component_name :: Lens.Lens' Component Prelude.Text+component_name = Lens.lens (\Component' {name} -> name) (\s@Component' {} a -> s {name = a} :: Component)++instance Data.FromJSON Component where+  parseJSON =+    Data.withObject+      "Component"+      ( \x ->+          Component'+            Prelude.<$> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..:? "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..:? "serviceInstanceName")+            Prelude.<*> (x Data..:? "serviceName")+            Prelude.<*> (x Data..:? "serviceSpec")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "environmentName")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+      )++instance Prelude.Hashable Component where+  hashWithSalt _salt Component' {..} =+    _salt+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` serviceInstanceName+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` serviceSpec+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name++instance Prelude.NFData Component where+  rnf Component' {..} =+    Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf serviceSpec+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/Proton/Types/ComponentDeploymentUpdateType.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ComponentDeploymentUpdateType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ComponentDeploymentUpdateType+  ( ComponentDeploymentUpdateType+      ( ..,+        ComponentDeploymentUpdateType_CURRENT_VERSION,+        ComponentDeploymentUpdateType_NONE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ComponentDeploymentUpdateType = ComponentDeploymentUpdateType'+  { fromComponentDeploymentUpdateType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ComponentDeploymentUpdateType_CURRENT_VERSION :: ComponentDeploymentUpdateType+pattern ComponentDeploymentUpdateType_CURRENT_VERSION = ComponentDeploymentUpdateType' "CURRENT_VERSION"++pattern ComponentDeploymentUpdateType_NONE :: ComponentDeploymentUpdateType+pattern ComponentDeploymentUpdateType_NONE = ComponentDeploymentUpdateType' "NONE"++{-# COMPLETE+  ComponentDeploymentUpdateType_CURRENT_VERSION,+  ComponentDeploymentUpdateType_NONE,+  ComponentDeploymentUpdateType'+  #-}
+ gen/Amazonka/Proton/Types/ComponentSummary.hs view
@@ -0,0 +1,225 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ComponentSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ComponentSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus++-- | Summary data of an Proton component resource.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- /See:/ 'newComponentSummary' smart constructor.+data ComponentSummary = ComponentSummary'+  { -- | The message associated with the component deployment status.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The time when a deployment of the component was last attempted.+    lastDeploymentAttemptedAt :: Prelude.Maybe Data.POSIX,+    -- | The time when the component was last deployed successfully.+    lastDeploymentSucceededAt :: Prelude.Maybe Data.POSIX,+    -- | The name of the service instance that this component is attached to.+    -- Provided when a component is attached to a service instance.+    serviceInstanceName :: Prelude.Maybe Prelude.Text,+    -- | The name of the service that @serviceInstanceName@ is associated with.+    -- Provided when a component is attached to a service instance.+    serviceName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the component.+    arn :: Prelude.Text,+    -- | The time when the component was created.+    createdAt :: Data.POSIX,+    -- | The component deployment status.+    deploymentStatus :: DeploymentStatus,+    -- | The name of the Proton environment that this component is associated+    -- with.+    environmentName :: Prelude.Text,+    -- | The time when the component was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the component.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ComponentSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deploymentStatusMessage', 'componentSummary_deploymentStatusMessage' - The message associated with the component deployment status.+--+-- 'lastDeploymentAttemptedAt', 'componentSummary_lastDeploymentAttemptedAt' - The time when a deployment of the component was last attempted.+--+-- 'lastDeploymentSucceededAt', 'componentSummary_lastDeploymentSucceededAt' - The time when the component was last deployed successfully.+--+-- 'serviceInstanceName', 'componentSummary_serviceInstanceName' - The name of the service instance that this component is attached to.+-- Provided when a component is attached to a service instance.+--+-- 'serviceName', 'componentSummary_serviceName' - The name of the service that @serviceInstanceName@ is associated with.+-- Provided when a component is attached to a service instance.+--+-- 'arn', 'componentSummary_arn' - The Amazon Resource Name (ARN) of the component.+--+-- 'createdAt', 'componentSummary_createdAt' - The time when the component was created.+--+-- 'deploymentStatus', 'componentSummary_deploymentStatus' - The component deployment status.+--+-- 'environmentName', 'componentSummary_environmentName' - The name of the Proton environment that this component is associated+-- with.+--+-- 'lastModifiedAt', 'componentSummary_lastModifiedAt' - The time when the component was last modified.+--+-- 'name', 'componentSummary_name' - The name of the component.+newComponentSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  ComponentSummary+newComponentSummary+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pEnvironmentName_+  pLastModifiedAt_+  pName_ =+    ComponentSummary'+      { deploymentStatusMessage =+          Prelude.Nothing,+        lastDeploymentAttemptedAt = Prelude.Nothing,+        lastDeploymentSucceededAt = Prelude.Nothing,+        serviceInstanceName = Prelude.Nothing,+        serviceName = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        environmentName = pEnvironmentName_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_+      }++-- | The message associated with the component deployment status.+componentSummary_deploymentStatusMessage :: Lens.Lens' ComponentSummary (Prelude.Maybe Prelude.Text)+componentSummary_deploymentStatusMessage = Lens.lens (\ComponentSummary' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@ComponentSummary' {} a -> s {deploymentStatusMessage = a} :: ComponentSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The time when a deployment of the component was last attempted.+componentSummary_lastDeploymentAttemptedAt :: Lens.Lens' ComponentSummary (Prelude.Maybe Prelude.UTCTime)+componentSummary_lastDeploymentAttemptedAt = Lens.lens (\ComponentSummary' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@ComponentSummary' {} a -> s {lastDeploymentAttemptedAt = a} :: ComponentSummary) Prelude.. Lens.mapping Data._Time++-- | The time when the component was last deployed successfully.+componentSummary_lastDeploymentSucceededAt :: Lens.Lens' ComponentSummary (Prelude.Maybe Prelude.UTCTime)+componentSummary_lastDeploymentSucceededAt = Lens.lens (\ComponentSummary' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@ComponentSummary' {} a -> s {lastDeploymentSucceededAt = a} :: ComponentSummary) Prelude.. Lens.mapping Data._Time++-- | The name of the service instance that this component is attached to.+-- Provided when a component is attached to a service instance.+componentSummary_serviceInstanceName :: Lens.Lens' ComponentSummary (Prelude.Maybe Prelude.Text)+componentSummary_serviceInstanceName = Lens.lens (\ComponentSummary' {serviceInstanceName} -> serviceInstanceName) (\s@ComponentSummary' {} a -> s {serviceInstanceName = a} :: ComponentSummary)++-- | The name of the service that @serviceInstanceName@ is associated with.+-- Provided when a component is attached to a service instance.+componentSummary_serviceName :: Lens.Lens' ComponentSummary (Prelude.Maybe Prelude.Text)+componentSummary_serviceName = Lens.lens (\ComponentSummary' {serviceName} -> serviceName) (\s@ComponentSummary' {} a -> s {serviceName = a} :: ComponentSummary)++-- | The Amazon Resource Name (ARN) of the component.+componentSummary_arn :: Lens.Lens' ComponentSummary Prelude.Text+componentSummary_arn = Lens.lens (\ComponentSummary' {arn} -> arn) (\s@ComponentSummary' {} a -> s {arn = a} :: ComponentSummary)++-- | The time when the component was created.+componentSummary_createdAt :: Lens.Lens' ComponentSummary Prelude.UTCTime+componentSummary_createdAt = Lens.lens (\ComponentSummary' {createdAt} -> createdAt) (\s@ComponentSummary' {} a -> s {createdAt = a} :: ComponentSummary) Prelude.. Data._Time++-- | The component deployment status.+componentSummary_deploymentStatus :: Lens.Lens' ComponentSummary DeploymentStatus+componentSummary_deploymentStatus = Lens.lens (\ComponentSummary' {deploymentStatus} -> deploymentStatus) (\s@ComponentSummary' {} a -> s {deploymentStatus = a} :: ComponentSummary)++-- | The name of the Proton environment that this component is associated+-- with.+componentSummary_environmentName :: Lens.Lens' ComponentSummary Prelude.Text+componentSummary_environmentName = Lens.lens (\ComponentSummary' {environmentName} -> environmentName) (\s@ComponentSummary' {} a -> s {environmentName = a} :: ComponentSummary)++-- | The time when the component was last modified.+componentSummary_lastModifiedAt :: Lens.Lens' ComponentSummary Prelude.UTCTime+componentSummary_lastModifiedAt = Lens.lens (\ComponentSummary' {lastModifiedAt} -> lastModifiedAt) (\s@ComponentSummary' {} a -> s {lastModifiedAt = a} :: ComponentSummary) Prelude.. Data._Time++-- | The name of the component.+componentSummary_name :: Lens.Lens' ComponentSummary Prelude.Text+componentSummary_name = Lens.lens (\ComponentSummary' {name} -> name) (\s@ComponentSummary' {} a -> s {name = a} :: ComponentSummary)++instance Data.FromJSON ComponentSummary where+  parseJSON =+    Data.withObject+      "ComponentSummary"+      ( \x ->+          ComponentSummary'+            Prelude.<$> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..:? "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..:? "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..:? "serviceInstanceName")+            Prelude.<*> (x Data..:? "serviceName")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "environmentName")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+      )++instance Prelude.Hashable ComponentSummary where+  hashWithSalt _salt ComponentSummary' {..} =+    _salt+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` serviceInstanceName+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name++instance Prelude.NFData ComponentSummary where+  rnf ComponentSummary' {..} =+    Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/Proton/Types/DeploymentStatus.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.DeploymentStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.DeploymentStatus+  ( DeploymentStatus+      ( ..,+        DeploymentStatus_CANCELLED,+        DeploymentStatus_CANCELLING,+        DeploymentStatus_DELETE_COMPLETE,+        DeploymentStatus_DELETE_FAILED,+        DeploymentStatus_DELETE_IN_PROGRESS,+        DeploymentStatus_FAILED,+        DeploymentStatus_IN_PROGRESS,+        DeploymentStatus_SUCCEEDED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DeploymentStatus = DeploymentStatus'+  { fromDeploymentStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DeploymentStatus_CANCELLED :: DeploymentStatus+pattern DeploymentStatus_CANCELLED = DeploymentStatus' "CANCELLED"++pattern DeploymentStatus_CANCELLING :: DeploymentStatus+pattern DeploymentStatus_CANCELLING = DeploymentStatus' "CANCELLING"++pattern DeploymentStatus_DELETE_COMPLETE :: DeploymentStatus+pattern DeploymentStatus_DELETE_COMPLETE = DeploymentStatus' "DELETE_COMPLETE"++pattern DeploymentStatus_DELETE_FAILED :: DeploymentStatus+pattern DeploymentStatus_DELETE_FAILED = DeploymentStatus' "DELETE_FAILED"++pattern DeploymentStatus_DELETE_IN_PROGRESS :: DeploymentStatus+pattern DeploymentStatus_DELETE_IN_PROGRESS = DeploymentStatus' "DELETE_IN_PROGRESS"++pattern DeploymentStatus_FAILED :: DeploymentStatus+pattern DeploymentStatus_FAILED = DeploymentStatus' "FAILED"++pattern DeploymentStatus_IN_PROGRESS :: DeploymentStatus+pattern DeploymentStatus_IN_PROGRESS = DeploymentStatus' "IN_PROGRESS"++pattern DeploymentStatus_SUCCEEDED :: DeploymentStatus+pattern DeploymentStatus_SUCCEEDED = DeploymentStatus' "SUCCEEDED"++{-# COMPLETE+  DeploymentStatus_CANCELLED,+  DeploymentStatus_CANCELLING,+  DeploymentStatus_DELETE_COMPLETE,+  DeploymentStatus_DELETE_FAILED,+  DeploymentStatus_DELETE_IN_PROGRESS,+  DeploymentStatus_FAILED,+  DeploymentStatus_IN_PROGRESS,+  DeploymentStatus_SUCCEEDED,+  DeploymentStatus'+  #-}
+ gen/Amazonka/Proton/Types/DeploymentUpdateType.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.DeploymentUpdateType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.DeploymentUpdateType+  ( DeploymentUpdateType+      ( ..,+        DeploymentUpdateType_CURRENT_VERSION,+        DeploymentUpdateType_MAJOR_VERSION,+        DeploymentUpdateType_MINOR_VERSION,+        DeploymentUpdateType_NONE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DeploymentUpdateType = DeploymentUpdateType'+  { fromDeploymentUpdateType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DeploymentUpdateType_CURRENT_VERSION :: DeploymentUpdateType+pattern DeploymentUpdateType_CURRENT_VERSION = DeploymentUpdateType' "CURRENT_VERSION"++pattern DeploymentUpdateType_MAJOR_VERSION :: DeploymentUpdateType+pattern DeploymentUpdateType_MAJOR_VERSION = DeploymentUpdateType' "MAJOR_VERSION"++pattern DeploymentUpdateType_MINOR_VERSION :: DeploymentUpdateType+pattern DeploymentUpdateType_MINOR_VERSION = DeploymentUpdateType' "MINOR_VERSION"++pattern DeploymentUpdateType_NONE :: DeploymentUpdateType+pattern DeploymentUpdateType_NONE = DeploymentUpdateType' "NONE"++{-# COMPLETE+  DeploymentUpdateType_CURRENT_VERSION,+  DeploymentUpdateType_MAJOR_VERSION,+  DeploymentUpdateType_MINOR_VERSION,+  DeploymentUpdateType_NONE,+  DeploymentUpdateType'+  #-}
+ gen/Amazonka/Proton/Types/Environment.hs view
@@ -0,0 +1,375 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Environment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Environment where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus+import Amazonka.Proton.Types.Provisioning+import Amazonka.Proton.Types.RepositoryBranch++-- | Detailed data of an Proton environment resource. An Proton environment+-- is a set of resources shared across Proton services.+--+-- /See:/ 'newEnvironment' smart constructor.+data Environment = Environment'+  { -- | The Amazon Resource Name (ARN) of the IAM service role that allows+    -- Proton to provision infrastructure using CodeBuild-based provisioning on+    -- your behalf.+    codebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in this environment. It+    -- determines the scope of infrastructure that a component can provision.+    --+    -- The environment must have a @componentRoleArn@ to allow directly defined+    -- components to be associated with the environment.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | An environment deployment status message.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The description of the environment.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The ID of the environment account connection that\'s used to provision+    -- infrastructure resources in an environment account.+    environmentAccountConnectionId :: Prelude.Maybe Prelude.Text,+    -- | The ID of the environment account that the environment infrastructure+    -- resources are provisioned in.+    environmentAccountId :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the Proton service role that allows+    -- Proton to make calls to other services on your behalf.+    protonServiceRoleArn :: Prelude.Maybe Prelude.Text,+    -- | When included, indicates that the environment template is for customer+    -- provisioned and managed infrastructure.+    provisioning :: Prelude.Maybe Provisioning,+    -- | The linked repository that you use to host your rendered infrastructure+    -- templates for self-managed provisioning. A linked repository is a+    -- repository that has been registered with Proton. For more information,+    -- see CreateRepository.+    provisioningRepository :: Prelude.Maybe RepositoryBranch,+    -- | The environment spec.+    spec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the environment.+    arn :: Prelude.Text,+    -- | The time when the environment was created.+    createdAt :: Data.POSIX,+    -- | The environment deployment status.+    deploymentStatus :: DeploymentStatus,+    -- | The time when a deployment of the environment was last attempted.+    lastDeploymentAttemptedAt :: Data.POSIX,+    -- | The time when the environment was last deployed successfully.+    lastDeploymentSucceededAt :: Data.POSIX,+    -- | The name of the environment.+    name :: Prelude.Text,+    -- | The major version of the environment template.+    templateMajorVersion :: Prelude.Text,+    -- | The minor version of the environment template.+    templateMinorVersion :: Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Environment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'codebuildRoleArn', 'environment_codebuildRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that allows+-- Proton to provision infrastructure using CodeBuild-based provisioning on+-- your behalf.+--+-- 'componentRoleArn', 'environment_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- The environment must have a @componentRoleArn@ to allow directly defined+-- components to be associated with the environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'deploymentStatusMessage', 'environment_deploymentStatusMessage' - An environment deployment status message.+--+-- 'description', 'environment_description' - The description of the environment.+--+-- 'environmentAccountConnectionId', 'environment_environmentAccountConnectionId' - The ID of the environment account connection that\'s used to provision+-- infrastructure resources in an environment account.+--+-- 'environmentAccountId', 'environment_environmentAccountId' - The ID of the environment account that the environment infrastructure+-- resources are provisioned in.+--+-- 'protonServiceRoleArn', 'environment_protonServiceRoleArn' - The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make calls to other services on your behalf.+--+-- 'provisioning', 'environment_provisioning' - When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+--+-- 'provisioningRepository', 'environment_provisioningRepository' - The linked repository that you use to host your rendered infrastructure+-- templates for self-managed provisioning. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+--+-- 'spec', 'environment_spec' - The environment spec.+--+-- 'arn', 'environment_arn' - The Amazon Resource Name (ARN) of the environment.+--+-- 'createdAt', 'environment_createdAt' - The time when the environment was created.+--+-- 'deploymentStatus', 'environment_deploymentStatus' - The environment deployment status.+--+-- 'lastDeploymentAttemptedAt', 'environment_lastDeploymentAttemptedAt' - The time when a deployment of the environment was last attempted.+--+-- 'lastDeploymentSucceededAt', 'environment_lastDeploymentSucceededAt' - The time when the environment was last deployed successfully.+--+-- 'name', 'environment_name' - The name of the environment.+--+-- 'templateMajorVersion', 'environment_templateMajorVersion' - The major version of the environment template.+--+-- 'templateMinorVersion', 'environment_templateMinorVersion' - The minor version of the environment template.+--+-- 'templateName', 'environment_templateName' - The Amazon Resource Name (ARN) of the environment template.+newEnvironment ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'lastDeploymentAttemptedAt'+  Prelude.UTCTime ->+  -- | 'lastDeploymentSucceededAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateMinorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  Environment+newEnvironment+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pLastDeploymentAttemptedAt_+  pLastDeploymentSucceededAt_+  pName_+  pTemplateMajorVersion_+  pTemplateMinorVersion_+  pTemplateName_ =+    Environment'+      { codebuildRoleArn = Prelude.Nothing,+        componentRoleArn = Prelude.Nothing,+        deploymentStatusMessage = Prelude.Nothing,+        description = Prelude.Nothing,+        environmentAccountConnectionId = Prelude.Nothing,+        environmentAccountId = Prelude.Nothing,+        protonServiceRoleArn = Prelude.Nothing,+        provisioning = Prelude.Nothing,+        provisioningRepository = Prelude.Nothing,+        spec = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        lastDeploymentAttemptedAt =+          Data._Time Lens.# pLastDeploymentAttemptedAt_,+        lastDeploymentSucceededAt =+          Data._Time Lens.# pLastDeploymentSucceededAt_,+        name = pName_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateMinorVersion = pTemplateMinorVersion_,+        templateName = pTemplateName_+      }++-- | The Amazon Resource Name (ARN) of the IAM service role that allows+-- Proton to provision infrastructure using CodeBuild-based provisioning on+-- your behalf.+environment_codebuildRoleArn :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_codebuildRoleArn = Lens.lens (\Environment' {codebuildRoleArn} -> codebuildRoleArn) (\s@Environment' {} a -> s {codebuildRoleArn = a} :: Environment)++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- The environment must have a @componentRoleArn@ to allow directly defined+-- components to be associated with the environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+environment_componentRoleArn :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_componentRoleArn = Lens.lens (\Environment' {componentRoleArn} -> componentRoleArn) (\s@Environment' {} a -> s {componentRoleArn = a} :: Environment)++-- | An environment deployment status message.+environment_deploymentStatusMessage :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_deploymentStatusMessage = Lens.lens (\Environment' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@Environment' {} a -> s {deploymentStatusMessage = a} :: Environment) Prelude.. Lens.mapping Data._Sensitive++-- | The description of the environment.+environment_description :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_description = Lens.lens (\Environment' {description} -> description) (\s@Environment' {} a -> s {description = a} :: Environment) Prelude.. Lens.mapping Data._Sensitive++-- | The ID of the environment account connection that\'s used to provision+-- infrastructure resources in an environment account.+environment_environmentAccountConnectionId :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_environmentAccountConnectionId = Lens.lens (\Environment' {environmentAccountConnectionId} -> environmentAccountConnectionId) (\s@Environment' {} a -> s {environmentAccountConnectionId = a} :: Environment)++-- | The ID of the environment account that the environment infrastructure+-- resources are provisioned in.+environment_environmentAccountId :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_environmentAccountId = Lens.lens (\Environment' {environmentAccountId} -> environmentAccountId) (\s@Environment' {} a -> s {environmentAccountId = a} :: Environment)++-- | The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make calls to other services on your behalf.+environment_protonServiceRoleArn :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_protonServiceRoleArn = Lens.lens (\Environment' {protonServiceRoleArn} -> protonServiceRoleArn) (\s@Environment' {} a -> s {protonServiceRoleArn = a} :: Environment)++-- | When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+environment_provisioning :: Lens.Lens' Environment (Prelude.Maybe Provisioning)+environment_provisioning = Lens.lens (\Environment' {provisioning} -> provisioning) (\s@Environment' {} a -> s {provisioning = a} :: Environment)++-- | The linked repository that you use to host your rendered infrastructure+-- templates for self-managed provisioning. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+environment_provisioningRepository :: Lens.Lens' Environment (Prelude.Maybe RepositoryBranch)+environment_provisioningRepository = Lens.lens (\Environment' {provisioningRepository} -> provisioningRepository) (\s@Environment' {} a -> s {provisioningRepository = a} :: Environment)++-- | The environment spec.+environment_spec :: Lens.Lens' Environment (Prelude.Maybe Prelude.Text)+environment_spec = Lens.lens (\Environment' {spec} -> spec) (\s@Environment' {} a -> s {spec = a} :: Environment) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the environment.+environment_arn :: Lens.Lens' Environment Prelude.Text+environment_arn = Lens.lens (\Environment' {arn} -> arn) (\s@Environment' {} a -> s {arn = a} :: Environment)++-- | The time when the environment was created.+environment_createdAt :: Lens.Lens' Environment Prelude.UTCTime+environment_createdAt = Lens.lens (\Environment' {createdAt} -> createdAt) (\s@Environment' {} a -> s {createdAt = a} :: Environment) Prelude.. Data._Time++-- | The environment deployment status.+environment_deploymentStatus :: Lens.Lens' Environment DeploymentStatus+environment_deploymentStatus = Lens.lens (\Environment' {deploymentStatus} -> deploymentStatus) (\s@Environment' {} a -> s {deploymentStatus = a} :: Environment)++-- | The time when a deployment of the environment was last attempted.+environment_lastDeploymentAttemptedAt :: Lens.Lens' Environment Prelude.UTCTime+environment_lastDeploymentAttemptedAt = Lens.lens (\Environment' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@Environment' {} a -> s {lastDeploymentAttemptedAt = a} :: Environment) Prelude.. Data._Time++-- | The time when the environment was last deployed successfully.+environment_lastDeploymentSucceededAt :: Lens.Lens' Environment Prelude.UTCTime+environment_lastDeploymentSucceededAt = Lens.lens (\Environment' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@Environment' {} a -> s {lastDeploymentSucceededAt = a} :: Environment) Prelude.. Data._Time++-- | The name of the environment.+environment_name :: Lens.Lens' Environment Prelude.Text+environment_name = Lens.lens (\Environment' {name} -> name) (\s@Environment' {} a -> s {name = a} :: Environment)++-- | The major version of the environment template.+environment_templateMajorVersion :: Lens.Lens' Environment Prelude.Text+environment_templateMajorVersion = Lens.lens (\Environment' {templateMajorVersion} -> templateMajorVersion) (\s@Environment' {} a -> s {templateMajorVersion = a} :: Environment)++-- | The minor version of the environment template.+environment_templateMinorVersion :: Lens.Lens' Environment Prelude.Text+environment_templateMinorVersion = Lens.lens (\Environment' {templateMinorVersion} -> templateMinorVersion) (\s@Environment' {} a -> s {templateMinorVersion = a} :: Environment)++-- | The Amazon Resource Name (ARN) of the environment template.+environment_templateName :: Lens.Lens' Environment Prelude.Text+environment_templateName = Lens.lens (\Environment' {templateName} -> templateName) (\s@Environment' {} a -> s {templateName = a} :: Environment)++instance Data.FromJSON Environment where+  parseJSON =+    Data.withObject+      "Environment"+      ( \x ->+          Environment'+            Prelude.<$> (x Data..:? "codebuildRoleArn")+            Prelude.<*> (x Data..:? "componentRoleArn")+            Prelude.<*> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "environmentAccountConnectionId")+            Prelude.<*> (x Data..:? "environmentAccountId")+            Prelude.<*> (x Data..:? "protonServiceRoleArn")+            Prelude.<*> (x Data..:? "provisioning")+            Prelude.<*> (x Data..:? "provisioningRepository")+            Prelude.<*> (x Data..:? "spec")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..: "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "templateMajorVersion")+            Prelude.<*> (x Data..: "templateMinorVersion")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable Environment where+  hashWithSalt _salt Environment' {..} =+    _salt+      `Prelude.hashWithSalt` codebuildRoleArn+      `Prelude.hashWithSalt` componentRoleArn+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` environmentAccountConnectionId+      `Prelude.hashWithSalt` environmentAccountId+      `Prelude.hashWithSalt` protonServiceRoleArn+      `Prelude.hashWithSalt` provisioning+      `Prelude.hashWithSalt` provisioningRepository+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData Environment where+  rnf Environment' {..} =+    Prelude.rnf codebuildRoleArn+      `Prelude.seq` Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf environmentAccountConnectionId+      `Prelude.seq` Prelude.rnf environmentAccountId+      `Prelude.seq` Prelude.rnf protonServiceRoleArn+      `Prelude.seq` Prelude.rnf provisioning+      `Prelude.seq` Prelude.rnf provisioningRepository+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/EnvironmentAccountConnection.hs view
@@ -0,0 +1,279 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentAccountConnection where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.EnvironmentAccountConnectionStatus++-- | Detailed data of an Proton environment account connection resource.+--+-- /See:/ 'newEnvironmentAccountConnection' smart constructor.+data EnvironmentAccountConnection = EnvironmentAccountConnection'+  { -- | The Amazon Resource Name (ARN) of an IAM service role in the environment+    -- account. Proton uses this role to provision infrastructure resources+    -- using CodeBuild-based provisioning in the associated environment+    -- account.+    codebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in the associated+    -- environment account. It determines the scope of infrastructure that a+    -- component can provision in the account.+    --+    -- The environment account connection must have a @componentRoleArn@ to+    -- allow directly defined components to be associated with any environments+    -- running in the account.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the environment account connection.+    arn :: Prelude.Text,+    -- | The environment account that\'s connected to the environment account+    -- connection.+    environmentAccountId :: Prelude.Text,+    -- | The name of the environment that\'s associated with the environment+    -- account connection.+    environmentName :: Prelude.Text,+    -- | The ID of the environment account connection.+    id :: Prelude.Text,+    -- | The time when the environment account connection was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The ID of the management account that\'s connected to the environment+    -- account connection.+    managementAccountId :: Prelude.Text,+    -- | The time when the environment account connection request was made.+    requestedAt :: Data.POSIX,+    -- | The IAM service role that\'s associated with the environment account+    -- connection.+    roleArn :: Prelude.Text,+    -- | The status of the environment account connection.+    status :: EnvironmentAccountConnectionStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'codebuildRoleArn', 'environmentAccountConnection_codebuildRoleArn' - The Amazon Resource Name (ARN) of an IAM service role in the environment+-- account. Proton uses this role to provision infrastructure resources+-- using CodeBuild-based provisioning in the associated environment+-- account.+--+-- 'componentRoleArn', 'environmentAccountConnection_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- The environment account connection must have a @componentRoleArn@ to+-- allow directly defined components to be associated with any environments+-- running in the account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'arn', 'environmentAccountConnection_arn' - The Amazon Resource Name (ARN) of the environment account connection.+--+-- 'environmentAccountId', 'environmentAccountConnection_environmentAccountId' - The environment account that\'s connected to the environment account+-- connection.+--+-- 'environmentName', 'environmentAccountConnection_environmentName' - The name of the environment that\'s associated with the environment+-- account connection.+--+-- 'id', 'environmentAccountConnection_id' - The ID of the environment account connection.+--+-- 'lastModifiedAt', 'environmentAccountConnection_lastModifiedAt' - The time when the environment account connection was last modified.+--+-- 'managementAccountId', 'environmentAccountConnection_managementAccountId' - The ID of the management account that\'s connected to the environment+-- account connection.+--+-- 'requestedAt', 'environmentAccountConnection_requestedAt' - The time when the environment account connection request was made.+--+-- 'roleArn', 'environmentAccountConnection_roleArn' - The IAM service role that\'s associated with the environment account+-- connection.+--+-- 'status', 'environmentAccountConnection_status' - The status of the environment account connection.+newEnvironmentAccountConnection ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'environmentAccountId'+  Prelude.Text ->+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'id'+  Prelude.Text ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'managementAccountId'+  Prelude.Text ->+  -- | 'requestedAt'+  Prelude.UTCTime ->+  -- | 'roleArn'+  Prelude.Text ->+  -- | 'status'+  EnvironmentAccountConnectionStatus ->+  EnvironmentAccountConnection+newEnvironmentAccountConnection+  pArn_+  pEnvironmentAccountId_+  pEnvironmentName_+  pId_+  pLastModifiedAt_+  pManagementAccountId_+  pRequestedAt_+  pRoleArn_+  pStatus_ =+    EnvironmentAccountConnection'+      { codebuildRoleArn =+          Prelude.Nothing,+        componentRoleArn = Prelude.Nothing,+        arn = pArn_,+        environmentAccountId = pEnvironmentAccountId_,+        environmentName = pEnvironmentName_,+        id = pId_,+        lastModifiedAt =+          Data._Time Lens.# pLastModifiedAt_,+        managementAccountId = pManagementAccountId_,+        requestedAt = Data._Time Lens.# pRequestedAt_,+        roleArn = pRoleArn_,+        status = pStatus_+      }++-- | The Amazon Resource Name (ARN) of an IAM service role in the environment+-- account. Proton uses this role to provision infrastructure resources+-- using CodeBuild-based provisioning in the associated environment+-- account.+environmentAccountConnection_codebuildRoleArn :: Lens.Lens' EnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+environmentAccountConnection_codebuildRoleArn = Lens.lens (\EnvironmentAccountConnection' {codebuildRoleArn} -> codebuildRoleArn) (\s@EnvironmentAccountConnection' {} a -> s {codebuildRoleArn = a} :: EnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- The environment account connection must have a @componentRoleArn@ to+-- allow directly defined components to be associated with any environments+-- running in the account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+environmentAccountConnection_componentRoleArn :: Lens.Lens' EnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+environmentAccountConnection_componentRoleArn = Lens.lens (\EnvironmentAccountConnection' {componentRoleArn} -> componentRoleArn) (\s@EnvironmentAccountConnection' {} a -> s {componentRoleArn = a} :: EnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of the environment account connection.+environmentAccountConnection_arn :: Lens.Lens' EnvironmentAccountConnection Prelude.Text+environmentAccountConnection_arn = Lens.lens (\EnvironmentAccountConnection' {arn} -> arn) (\s@EnvironmentAccountConnection' {} a -> s {arn = a} :: EnvironmentAccountConnection)++-- | The environment account that\'s connected to the environment account+-- connection.+environmentAccountConnection_environmentAccountId :: Lens.Lens' EnvironmentAccountConnection Prelude.Text+environmentAccountConnection_environmentAccountId = Lens.lens (\EnvironmentAccountConnection' {environmentAccountId} -> environmentAccountId) (\s@EnvironmentAccountConnection' {} a -> s {environmentAccountId = a} :: EnvironmentAccountConnection)++-- | The name of the environment that\'s associated with the environment+-- account connection.+environmentAccountConnection_environmentName :: Lens.Lens' EnvironmentAccountConnection Prelude.Text+environmentAccountConnection_environmentName = Lens.lens (\EnvironmentAccountConnection' {environmentName} -> environmentName) (\s@EnvironmentAccountConnection' {} a -> s {environmentName = a} :: EnvironmentAccountConnection)++-- | The ID of the environment account connection.+environmentAccountConnection_id :: Lens.Lens' EnvironmentAccountConnection Prelude.Text+environmentAccountConnection_id = Lens.lens (\EnvironmentAccountConnection' {id} -> id) (\s@EnvironmentAccountConnection' {} a -> s {id = a} :: EnvironmentAccountConnection)++-- | The time when the environment account connection was last modified.+environmentAccountConnection_lastModifiedAt :: Lens.Lens' EnvironmentAccountConnection Prelude.UTCTime+environmentAccountConnection_lastModifiedAt = Lens.lens (\EnvironmentAccountConnection' {lastModifiedAt} -> lastModifiedAt) (\s@EnvironmentAccountConnection' {} a -> s {lastModifiedAt = a} :: EnvironmentAccountConnection) Prelude.. Data._Time++-- | The ID of the management account that\'s connected to the environment+-- account connection.+environmentAccountConnection_managementAccountId :: Lens.Lens' EnvironmentAccountConnection Prelude.Text+environmentAccountConnection_managementAccountId = Lens.lens (\EnvironmentAccountConnection' {managementAccountId} -> managementAccountId) (\s@EnvironmentAccountConnection' {} a -> s {managementAccountId = a} :: EnvironmentAccountConnection)++-- | The time when the environment account connection request was made.+environmentAccountConnection_requestedAt :: Lens.Lens' EnvironmentAccountConnection Prelude.UTCTime+environmentAccountConnection_requestedAt = Lens.lens (\EnvironmentAccountConnection' {requestedAt} -> requestedAt) (\s@EnvironmentAccountConnection' {} a -> s {requestedAt = a} :: EnvironmentAccountConnection) Prelude.. Data._Time++-- | The IAM service role that\'s associated with the environment account+-- connection.+environmentAccountConnection_roleArn :: Lens.Lens' EnvironmentAccountConnection Prelude.Text+environmentAccountConnection_roleArn = Lens.lens (\EnvironmentAccountConnection' {roleArn} -> roleArn) (\s@EnvironmentAccountConnection' {} a -> s {roleArn = a} :: EnvironmentAccountConnection)++-- | The status of the environment account connection.+environmentAccountConnection_status :: Lens.Lens' EnvironmentAccountConnection EnvironmentAccountConnectionStatus+environmentAccountConnection_status = Lens.lens (\EnvironmentAccountConnection' {status} -> status) (\s@EnvironmentAccountConnection' {} a -> s {status = a} :: EnvironmentAccountConnection)++instance Data.FromJSON EnvironmentAccountConnection where+  parseJSON =+    Data.withObject+      "EnvironmentAccountConnection"+      ( \x ->+          EnvironmentAccountConnection'+            Prelude.<$> (x Data..:? "codebuildRoleArn")+            Prelude.<*> (x Data..:? "componentRoleArn")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "environmentAccountId")+            Prelude.<*> (x Data..: "environmentName")+            Prelude.<*> (x Data..: "id")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "managementAccountId")+            Prelude.<*> (x Data..: "requestedAt")+            Prelude.<*> (x Data..: "roleArn")+            Prelude.<*> (x Data..: "status")+      )++instance+  Prelude.Hashable+    EnvironmentAccountConnection+  where+  hashWithSalt _salt EnvironmentAccountConnection' {..} =+    _salt+      `Prelude.hashWithSalt` codebuildRoleArn+      `Prelude.hashWithSalt` componentRoleArn+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` environmentAccountId+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` managementAccountId+      `Prelude.hashWithSalt` requestedAt+      `Prelude.hashWithSalt` roleArn+      `Prelude.hashWithSalt` status++instance Prelude.NFData EnvironmentAccountConnection where+  rnf EnvironmentAccountConnection' {..} =+    Prelude.rnf codebuildRoleArn+      `Prelude.seq` Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf environmentAccountId+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf managementAccountId+      `Prelude.seq` Prelude.rnf requestedAt+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Proton/Types/EnvironmentAccountConnectionRequesterAccountType.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentAccountConnectionRequesterAccountType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentAccountConnectionRequesterAccountType+  ( EnvironmentAccountConnectionRequesterAccountType+      ( ..,+        EnvironmentAccountConnectionRequesterAccountType_ENVIRONMENT_ACCOUNT,+        EnvironmentAccountConnectionRequesterAccountType_MANAGEMENT_ACCOUNT+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype EnvironmentAccountConnectionRequesterAccountType = EnvironmentAccountConnectionRequesterAccountType'+  { fromEnvironmentAccountConnectionRequesterAccountType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern EnvironmentAccountConnectionRequesterAccountType_ENVIRONMENT_ACCOUNT :: EnvironmentAccountConnectionRequesterAccountType+pattern EnvironmentAccountConnectionRequesterAccountType_ENVIRONMENT_ACCOUNT = EnvironmentAccountConnectionRequesterAccountType' "ENVIRONMENT_ACCOUNT"++pattern EnvironmentAccountConnectionRequesterAccountType_MANAGEMENT_ACCOUNT :: EnvironmentAccountConnectionRequesterAccountType+pattern EnvironmentAccountConnectionRequesterAccountType_MANAGEMENT_ACCOUNT = EnvironmentAccountConnectionRequesterAccountType' "MANAGEMENT_ACCOUNT"++{-# COMPLETE+  EnvironmentAccountConnectionRequesterAccountType_ENVIRONMENT_ACCOUNT,+  EnvironmentAccountConnectionRequesterAccountType_MANAGEMENT_ACCOUNT,+  EnvironmentAccountConnectionRequesterAccountType'+  #-}
+ gen/Amazonka/Proton/Types/EnvironmentAccountConnectionStatus.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentAccountConnectionStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentAccountConnectionStatus+  ( EnvironmentAccountConnectionStatus+      ( ..,+        EnvironmentAccountConnectionStatus_CONNECTED,+        EnvironmentAccountConnectionStatus_PENDING,+        EnvironmentAccountConnectionStatus_REJECTED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype EnvironmentAccountConnectionStatus = EnvironmentAccountConnectionStatus'+  { fromEnvironmentAccountConnectionStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern EnvironmentAccountConnectionStatus_CONNECTED :: EnvironmentAccountConnectionStatus+pattern EnvironmentAccountConnectionStatus_CONNECTED = EnvironmentAccountConnectionStatus' "CONNECTED"++pattern EnvironmentAccountConnectionStatus_PENDING :: EnvironmentAccountConnectionStatus+pattern EnvironmentAccountConnectionStatus_PENDING = EnvironmentAccountConnectionStatus' "PENDING"++pattern EnvironmentAccountConnectionStatus_REJECTED :: EnvironmentAccountConnectionStatus+pattern EnvironmentAccountConnectionStatus_REJECTED = EnvironmentAccountConnectionStatus' "REJECTED"++{-# COMPLETE+  EnvironmentAccountConnectionStatus_CONNECTED,+  EnvironmentAccountConnectionStatus_PENDING,+  EnvironmentAccountConnectionStatus_REJECTED,+  EnvironmentAccountConnectionStatus'+  #-}
+ gen/Amazonka/Proton/Types/EnvironmentAccountConnectionSummary.hs view
@@ -0,0 +1,269 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentAccountConnectionSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentAccountConnectionSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.EnvironmentAccountConnectionStatus++-- | Summary data of an Proton environment account connection resource.+--+-- /See:/ 'newEnvironmentAccountConnectionSummary' smart constructor.+data EnvironmentAccountConnectionSummary = EnvironmentAccountConnectionSummary'+  { -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in the associated+    -- environment account. It determines the scope of infrastructure that a+    -- component can provision in the account.+    --+    -- The environment account connection must have a @componentRoleArn@ to+    -- allow directly defined components to be associated with any environments+    -- running in the account.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the environment account connection.+    arn :: Prelude.Text,+    -- | The ID of the environment account that\'s connected to the environment+    -- account connection.+    environmentAccountId :: Prelude.Text,+    -- | The name of the environment that\'s associated with the environment+    -- account connection.+    environmentName :: Prelude.Text,+    -- | The ID of the environment account connection.+    id :: Prelude.Text,+    -- | The time when the environment account connection was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The ID of the management account that\'s connected to the environment+    -- account connection.+    managementAccountId :: Prelude.Text,+    -- | The time when the environment account connection request was made.+    requestedAt :: Data.POSIX,+    -- | The IAM service role that\'s associated with the environment account+    -- connection.+    roleArn :: Prelude.Text,+    -- | The status of the environment account connection.+    status :: EnvironmentAccountConnectionStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentAccountConnectionSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'componentRoleArn', 'environmentAccountConnectionSummary_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- The environment account connection must have a @componentRoleArn@ to+-- allow directly defined components to be associated with any environments+-- running in the account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'arn', 'environmentAccountConnectionSummary_arn' - The Amazon Resource Name (ARN) of the environment account connection.+--+-- 'environmentAccountId', 'environmentAccountConnectionSummary_environmentAccountId' - The ID of the environment account that\'s connected to the environment+-- account connection.+--+-- 'environmentName', 'environmentAccountConnectionSummary_environmentName' - The name of the environment that\'s associated with the environment+-- account connection.+--+-- 'id', 'environmentAccountConnectionSummary_id' - The ID of the environment account connection.+--+-- 'lastModifiedAt', 'environmentAccountConnectionSummary_lastModifiedAt' - The time when the environment account connection was last modified.+--+-- 'managementAccountId', 'environmentAccountConnectionSummary_managementAccountId' - The ID of the management account that\'s connected to the environment+-- account connection.+--+-- 'requestedAt', 'environmentAccountConnectionSummary_requestedAt' - The time when the environment account connection request was made.+--+-- 'roleArn', 'environmentAccountConnectionSummary_roleArn' - The IAM service role that\'s associated with the environment account+-- connection.+--+-- 'status', 'environmentAccountConnectionSummary_status' - The status of the environment account connection.+newEnvironmentAccountConnectionSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'environmentAccountId'+  Prelude.Text ->+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'id'+  Prelude.Text ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'managementAccountId'+  Prelude.Text ->+  -- | 'requestedAt'+  Prelude.UTCTime ->+  -- | 'roleArn'+  Prelude.Text ->+  -- | 'status'+  EnvironmentAccountConnectionStatus ->+  EnvironmentAccountConnectionSummary+newEnvironmentAccountConnectionSummary+  pArn_+  pEnvironmentAccountId_+  pEnvironmentName_+  pId_+  pLastModifiedAt_+  pManagementAccountId_+  pRequestedAt_+  pRoleArn_+  pStatus_ =+    EnvironmentAccountConnectionSummary'+      { componentRoleArn =+          Prelude.Nothing,+        arn = pArn_,+        environmentAccountId =+          pEnvironmentAccountId_,+        environmentName = pEnvironmentName_,+        id = pId_,+        lastModifiedAt =+          Data._Time Lens.# pLastModifiedAt_,+        managementAccountId =+          pManagementAccountId_,+        requestedAt =+          Data._Time Lens.# pRequestedAt_,+        roleArn = pRoleArn_,+        status = pStatus_+      }++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- The environment account connection must have a @componentRoleArn@ to+-- allow directly defined components to be associated with any environments+-- running in the account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+environmentAccountConnectionSummary_componentRoleArn :: Lens.Lens' EnvironmentAccountConnectionSummary (Prelude.Maybe Prelude.Text)+environmentAccountConnectionSummary_componentRoleArn = Lens.lens (\EnvironmentAccountConnectionSummary' {componentRoleArn} -> componentRoleArn) (\s@EnvironmentAccountConnectionSummary' {} a -> s {componentRoleArn = a} :: EnvironmentAccountConnectionSummary)++-- | The Amazon Resource Name (ARN) of the environment account connection.+environmentAccountConnectionSummary_arn :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.Text+environmentAccountConnectionSummary_arn = Lens.lens (\EnvironmentAccountConnectionSummary' {arn} -> arn) (\s@EnvironmentAccountConnectionSummary' {} a -> s {arn = a} :: EnvironmentAccountConnectionSummary)++-- | The ID of the environment account that\'s connected to the environment+-- account connection.+environmentAccountConnectionSummary_environmentAccountId :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.Text+environmentAccountConnectionSummary_environmentAccountId = Lens.lens (\EnvironmentAccountConnectionSummary' {environmentAccountId} -> environmentAccountId) (\s@EnvironmentAccountConnectionSummary' {} a -> s {environmentAccountId = a} :: EnvironmentAccountConnectionSummary)++-- | The name of the environment that\'s associated with the environment+-- account connection.+environmentAccountConnectionSummary_environmentName :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.Text+environmentAccountConnectionSummary_environmentName = Lens.lens (\EnvironmentAccountConnectionSummary' {environmentName} -> environmentName) (\s@EnvironmentAccountConnectionSummary' {} a -> s {environmentName = a} :: EnvironmentAccountConnectionSummary)++-- | The ID of the environment account connection.+environmentAccountConnectionSummary_id :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.Text+environmentAccountConnectionSummary_id = Lens.lens (\EnvironmentAccountConnectionSummary' {id} -> id) (\s@EnvironmentAccountConnectionSummary' {} a -> s {id = a} :: EnvironmentAccountConnectionSummary)++-- | The time when the environment account connection was last modified.+environmentAccountConnectionSummary_lastModifiedAt :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.UTCTime+environmentAccountConnectionSummary_lastModifiedAt = Lens.lens (\EnvironmentAccountConnectionSummary' {lastModifiedAt} -> lastModifiedAt) (\s@EnvironmentAccountConnectionSummary' {} a -> s {lastModifiedAt = a} :: EnvironmentAccountConnectionSummary) Prelude.. Data._Time++-- | The ID of the management account that\'s connected to the environment+-- account connection.+environmentAccountConnectionSummary_managementAccountId :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.Text+environmentAccountConnectionSummary_managementAccountId = Lens.lens (\EnvironmentAccountConnectionSummary' {managementAccountId} -> managementAccountId) (\s@EnvironmentAccountConnectionSummary' {} a -> s {managementAccountId = a} :: EnvironmentAccountConnectionSummary)++-- | The time when the environment account connection request was made.+environmentAccountConnectionSummary_requestedAt :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.UTCTime+environmentAccountConnectionSummary_requestedAt = Lens.lens (\EnvironmentAccountConnectionSummary' {requestedAt} -> requestedAt) (\s@EnvironmentAccountConnectionSummary' {} a -> s {requestedAt = a} :: EnvironmentAccountConnectionSummary) Prelude.. Data._Time++-- | The IAM service role that\'s associated with the environment account+-- connection.+environmentAccountConnectionSummary_roleArn :: Lens.Lens' EnvironmentAccountConnectionSummary Prelude.Text+environmentAccountConnectionSummary_roleArn = Lens.lens (\EnvironmentAccountConnectionSummary' {roleArn} -> roleArn) (\s@EnvironmentAccountConnectionSummary' {} a -> s {roleArn = a} :: EnvironmentAccountConnectionSummary)++-- | The status of the environment account connection.+environmentAccountConnectionSummary_status :: Lens.Lens' EnvironmentAccountConnectionSummary EnvironmentAccountConnectionStatus+environmentAccountConnectionSummary_status = Lens.lens (\EnvironmentAccountConnectionSummary' {status} -> status) (\s@EnvironmentAccountConnectionSummary' {} a -> s {status = a} :: EnvironmentAccountConnectionSummary)++instance+  Data.FromJSON+    EnvironmentAccountConnectionSummary+  where+  parseJSON =+    Data.withObject+      "EnvironmentAccountConnectionSummary"+      ( \x ->+          EnvironmentAccountConnectionSummary'+            Prelude.<$> (x Data..:? "componentRoleArn")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "environmentAccountId")+            Prelude.<*> (x Data..: "environmentName")+            Prelude.<*> (x Data..: "id")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "managementAccountId")+            Prelude.<*> (x Data..: "requestedAt")+            Prelude.<*> (x Data..: "roleArn")+            Prelude.<*> (x Data..: "status")+      )++instance+  Prelude.Hashable+    EnvironmentAccountConnectionSummary+  where+  hashWithSalt+    _salt+    EnvironmentAccountConnectionSummary' {..} =+      _salt+        `Prelude.hashWithSalt` componentRoleArn+        `Prelude.hashWithSalt` arn+        `Prelude.hashWithSalt` environmentAccountId+        `Prelude.hashWithSalt` environmentName+        `Prelude.hashWithSalt` id+        `Prelude.hashWithSalt` lastModifiedAt+        `Prelude.hashWithSalt` managementAccountId+        `Prelude.hashWithSalt` requestedAt+        `Prelude.hashWithSalt` roleArn+        `Prelude.hashWithSalt` status++instance+  Prelude.NFData+    EnvironmentAccountConnectionSummary+  where+  rnf EnvironmentAccountConnectionSummary' {..} =+    Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf environmentAccountId+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf managementAccountId+      `Prelude.seq` Prelude.rnf requestedAt+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Proton/Types/EnvironmentSummary.hs view
@@ -0,0 +1,324 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus+import Amazonka.Proton.Types.Provisioning++-- | Summary data of an Proton environment resource. An Proton environment is+-- a set of resources shared across Proton services.+--+-- /See:/ 'newEnvironmentSummary' smart constructor.+data EnvironmentSummary = EnvironmentSummary'+  { -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in this environment. It+    -- determines the scope of infrastructure that a component can provision.+    --+    -- The environment must have a @componentRoleArn@ to allow directly defined+    -- components to be associated with the environment.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | An environment deployment status message.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The description of the environment.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The ID of the environment account connection that the environment is+    -- associated with.+    environmentAccountConnectionId :: Prelude.Maybe Prelude.Text,+    -- | The ID of the environment account that the environment infrastructure+    -- resources are provisioned in.+    environmentAccountId :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the Proton service role that allows+    -- Proton to make calls to other services on your behalf.+    protonServiceRoleArn :: Prelude.Maybe Prelude.Text,+    -- | When included, indicates that the environment template is for customer+    -- provisioned and managed infrastructure.+    provisioning :: Prelude.Maybe Provisioning,+    -- | The Amazon Resource Name (ARN) of the environment.+    arn :: Prelude.Text,+    -- | The time when the environment was created.+    createdAt :: Data.POSIX,+    -- | The environment deployment status.+    deploymentStatus :: DeploymentStatus,+    -- | The time when a deployment of the environment was last attempted.+    lastDeploymentAttemptedAt :: Data.POSIX,+    -- | The time when the environment was last deployed successfully.+    lastDeploymentSucceededAt :: Data.POSIX,+    -- | The name of the environment.+    name :: Prelude.Text,+    -- | The major version of the environment template.+    templateMajorVersion :: Prelude.Text,+    -- | The minor version of the environment template.+    templateMinorVersion :: Prelude.Text,+    -- | The name of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'componentRoleArn', 'environmentSummary_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- The environment must have a @componentRoleArn@ to allow directly defined+-- components to be associated with the environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'deploymentStatusMessage', 'environmentSummary_deploymentStatusMessage' - An environment deployment status message.+--+-- 'description', 'environmentSummary_description' - The description of the environment.+--+-- 'environmentAccountConnectionId', 'environmentSummary_environmentAccountConnectionId' - The ID of the environment account connection that the environment is+-- associated with.+--+-- 'environmentAccountId', 'environmentSummary_environmentAccountId' - The ID of the environment account that the environment infrastructure+-- resources are provisioned in.+--+-- 'protonServiceRoleArn', 'environmentSummary_protonServiceRoleArn' - The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make calls to other services on your behalf.+--+-- 'provisioning', 'environmentSummary_provisioning' - When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+--+-- 'arn', 'environmentSummary_arn' - The Amazon Resource Name (ARN) of the environment.+--+-- 'createdAt', 'environmentSummary_createdAt' - The time when the environment was created.+--+-- 'deploymentStatus', 'environmentSummary_deploymentStatus' - The environment deployment status.+--+-- 'lastDeploymentAttemptedAt', 'environmentSummary_lastDeploymentAttemptedAt' - The time when a deployment of the environment was last attempted.+--+-- 'lastDeploymentSucceededAt', 'environmentSummary_lastDeploymentSucceededAt' - The time when the environment was last deployed successfully.+--+-- 'name', 'environmentSummary_name' - The name of the environment.+--+-- 'templateMajorVersion', 'environmentSummary_templateMajorVersion' - The major version of the environment template.+--+-- 'templateMinorVersion', 'environmentSummary_templateMinorVersion' - The minor version of the environment template.+--+-- 'templateName', 'environmentSummary_templateName' - The name of the environment template.+newEnvironmentSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'lastDeploymentAttemptedAt'+  Prelude.UTCTime ->+  -- | 'lastDeploymentSucceededAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateMinorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  EnvironmentSummary+newEnvironmentSummary+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pLastDeploymentAttemptedAt_+  pLastDeploymentSucceededAt_+  pName_+  pTemplateMajorVersion_+  pTemplateMinorVersion_+  pTemplateName_ =+    EnvironmentSummary'+      { componentRoleArn =+          Prelude.Nothing,+        deploymentStatusMessage = Prelude.Nothing,+        description = Prelude.Nothing,+        environmentAccountConnectionId = Prelude.Nothing,+        environmentAccountId = Prelude.Nothing,+        protonServiceRoleArn = Prelude.Nothing,+        provisioning = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        lastDeploymentAttemptedAt =+          Data._Time Lens.# pLastDeploymentAttemptedAt_,+        lastDeploymentSucceededAt =+          Data._Time Lens.# pLastDeploymentSucceededAt_,+        name = pName_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateMinorVersion = pTemplateMinorVersion_,+        templateName = pTemplateName_+      }++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- The environment must have a @componentRoleArn@ to allow directly defined+-- components to be associated with the environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+environmentSummary_componentRoleArn :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Prelude.Text)+environmentSummary_componentRoleArn = Lens.lens (\EnvironmentSummary' {componentRoleArn} -> componentRoleArn) (\s@EnvironmentSummary' {} a -> s {componentRoleArn = a} :: EnvironmentSummary)++-- | An environment deployment status message.+environmentSummary_deploymentStatusMessage :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Prelude.Text)+environmentSummary_deploymentStatusMessage = Lens.lens (\EnvironmentSummary' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@EnvironmentSummary' {} a -> s {deploymentStatusMessage = a} :: EnvironmentSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The description of the environment.+environmentSummary_description :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Prelude.Text)+environmentSummary_description = Lens.lens (\EnvironmentSummary' {description} -> description) (\s@EnvironmentSummary' {} a -> s {description = a} :: EnvironmentSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The ID of the environment account connection that the environment is+-- associated with.+environmentSummary_environmentAccountConnectionId :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Prelude.Text)+environmentSummary_environmentAccountConnectionId = Lens.lens (\EnvironmentSummary' {environmentAccountConnectionId} -> environmentAccountConnectionId) (\s@EnvironmentSummary' {} a -> s {environmentAccountConnectionId = a} :: EnvironmentSummary)++-- | The ID of the environment account that the environment infrastructure+-- resources are provisioned in.+environmentSummary_environmentAccountId :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Prelude.Text)+environmentSummary_environmentAccountId = Lens.lens (\EnvironmentSummary' {environmentAccountId} -> environmentAccountId) (\s@EnvironmentSummary' {} a -> s {environmentAccountId = a} :: EnvironmentSummary)++-- | The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make calls to other services on your behalf.+environmentSummary_protonServiceRoleArn :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Prelude.Text)+environmentSummary_protonServiceRoleArn = Lens.lens (\EnvironmentSummary' {protonServiceRoleArn} -> protonServiceRoleArn) (\s@EnvironmentSummary' {} a -> s {protonServiceRoleArn = a} :: EnvironmentSummary)++-- | When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+environmentSummary_provisioning :: Lens.Lens' EnvironmentSummary (Prelude.Maybe Provisioning)+environmentSummary_provisioning = Lens.lens (\EnvironmentSummary' {provisioning} -> provisioning) (\s@EnvironmentSummary' {} a -> s {provisioning = a} :: EnvironmentSummary)++-- | The Amazon Resource Name (ARN) of the environment.+environmentSummary_arn :: Lens.Lens' EnvironmentSummary Prelude.Text+environmentSummary_arn = Lens.lens (\EnvironmentSummary' {arn} -> arn) (\s@EnvironmentSummary' {} a -> s {arn = a} :: EnvironmentSummary)++-- | The time when the environment was created.+environmentSummary_createdAt :: Lens.Lens' EnvironmentSummary Prelude.UTCTime+environmentSummary_createdAt = Lens.lens (\EnvironmentSummary' {createdAt} -> createdAt) (\s@EnvironmentSummary' {} a -> s {createdAt = a} :: EnvironmentSummary) Prelude.. Data._Time++-- | The environment deployment status.+environmentSummary_deploymentStatus :: Lens.Lens' EnvironmentSummary DeploymentStatus+environmentSummary_deploymentStatus = Lens.lens (\EnvironmentSummary' {deploymentStatus} -> deploymentStatus) (\s@EnvironmentSummary' {} a -> s {deploymentStatus = a} :: EnvironmentSummary)++-- | The time when a deployment of the environment was last attempted.+environmentSummary_lastDeploymentAttemptedAt :: Lens.Lens' EnvironmentSummary Prelude.UTCTime+environmentSummary_lastDeploymentAttemptedAt = Lens.lens (\EnvironmentSummary' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@EnvironmentSummary' {} a -> s {lastDeploymentAttemptedAt = a} :: EnvironmentSummary) Prelude.. Data._Time++-- | The time when the environment was last deployed successfully.+environmentSummary_lastDeploymentSucceededAt :: Lens.Lens' EnvironmentSummary Prelude.UTCTime+environmentSummary_lastDeploymentSucceededAt = Lens.lens (\EnvironmentSummary' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@EnvironmentSummary' {} a -> s {lastDeploymentSucceededAt = a} :: EnvironmentSummary) Prelude.. Data._Time++-- | The name of the environment.+environmentSummary_name :: Lens.Lens' EnvironmentSummary Prelude.Text+environmentSummary_name = Lens.lens (\EnvironmentSummary' {name} -> name) (\s@EnvironmentSummary' {} a -> s {name = a} :: EnvironmentSummary)++-- | The major version of the environment template.+environmentSummary_templateMajorVersion :: Lens.Lens' EnvironmentSummary Prelude.Text+environmentSummary_templateMajorVersion = Lens.lens (\EnvironmentSummary' {templateMajorVersion} -> templateMajorVersion) (\s@EnvironmentSummary' {} a -> s {templateMajorVersion = a} :: EnvironmentSummary)++-- | The minor version of the environment template.+environmentSummary_templateMinorVersion :: Lens.Lens' EnvironmentSummary Prelude.Text+environmentSummary_templateMinorVersion = Lens.lens (\EnvironmentSummary' {templateMinorVersion} -> templateMinorVersion) (\s@EnvironmentSummary' {} a -> s {templateMinorVersion = a} :: EnvironmentSummary)++-- | The name of the environment template.+environmentSummary_templateName :: Lens.Lens' EnvironmentSummary Prelude.Text+environmentSummary_templateName = Lens.lens (\EnvironmentSummary' {templateName} -> templateName) (\s@EnvironmentSummary' {} a -> s {templateName = a} :: EnvironmentSummary)++instance Data.FromJSON EnvironmentSummary where+  parseJSON =+    Data.withObject+      "EnvironmentSummary"+      ( \x ->+          EnvironmentSummary'+            Prelude.<$> (x Data..:? "componentRoleArn")+            Prelude.<*> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "environmentAccountConnectionId")+            Prelude.<*> (x Data..:? "environmentAccountId")+            Prelude.<*> (x Data..:? "protonServiceRoleArn")+            Prelude.<*> (x Data..:? "provisioning")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..: "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "templateMajorVersion")+            Prelude.<*> (x Data..: "templateMinorVersion")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable EnvironmentSummary where+  hashWithSalt _salt EnvironmentSummary' {..} =+    _salt+      `Prelude.hashWithSalt` componentRoleArn+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` environmentAccountConnectionId+      `Prelude.hashWithSalt` environmentAccountId+      `Prelude.hashWithSalt` protonServiceRoleArn+      `Prelude.hashWithSalt` provisioning+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData EnvironmentSummary where+  rnf EnvironmentSummary' {..} =+    Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf environmentAccountConnectionId+      `Prelude.seq` Prelude.rnf environmentAccountId+      `Prelude.seq` Prelude.rnf protonServiceRoleArn+      `Prelude.seq` Prelude.rnf provisioning+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/EnvironmentTemplate.hs view
@@ -0,0 +1,187 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentTemplate where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.Provisioning++-- | The environment template data.+--+-- /See:/ 'newEnvironmentTemplate' smart constructor.+data EnvironmentTemplate = EnvironmentTemplate'+  { -- | A description of the environment template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the environment template as displayed in the developer+    -- interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The customer provided encryption key for the environment template.+    encryptionKey :: Prelude.Maybe Prelude.Text,+    -- | When included, indicates that the environment template is for customer+    -- provisioned and managed infrastructure.+    provisioning :: Prelude.Maybe Provisioning,+    -- | The ID of the recommended version of the environment template.+    recommendedVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the environment template.+    arn :: Prelude.Text,+    -- | The time when the environment template was created.+    createdAt :: Data.POSIX,+    -- | The time when the environment template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the environment template.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'environmentTemplate_description' - A description of the environment template.+--+-- 'displayName', 'environmentTemplate_displayName' - The name of the environment template as displayed in the developer+-- interface.+--+-- 'encryptionKey', 'environmentTemplate_encryptionKey' - The customer provided encryption key for the environment template.+--+-- 'provisioning', 'environmentTemplate_provisioning' - When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+--+-- 'recommendedVersion', 'environmentTemplate_recommendedVersion' - The ID of the recommended version of the environment template.+--+-- 'arn', 'environmentTemplate_arn' - The Amazon Resource Name (ARN) of the environment template.+--+-- 'createdAt', 'environmentTemplate_createdAt' - The time when the environment template was created.+--+-- 'lastModifiedAt', 'environmentTemplate_lastModifiedAt' - The time when the environment template was last modified.+--+-- 'name', 'environmentTemplate_name' - The name of the environment template.+newEnvironmentTemplate ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  EnvironmentTemplate+newEnvironmentTemplate+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pName_ =+    EnvironmentTemplate'+      { description = Prelude.Nothing,+        displayName = Prelude.Nothing,+        encryptionKey = Prelude.Nothing,+        provisioning = Prelude.Nothing,+        recommendedVersion = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_+      }++-- | A description of the environment template.+environmentTemplate_description :: Lens.Lens' EnvironmentTemplate (Prelude.Maybe Prelude.Text)+environmentTemplate_description = Lens.lens (\EnvironmentTemplate' {description} -> description) (\s@EnvironmentTemplate' {} a -> s {description = a} :: EnvironmentTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the environment template as displayed in the developer+-- interface.+environmentTemplate_displayName :: Lens.Lens' EnvironmentTemplate (Prelude.Maybe Prelude.Text)+environmentTemplate_displayName = Lens.lens (\EnvironmentTemplate' {displayName} -> displayName) (\s@EnvironmentTemplate' {} a -> s {displayName = a} :: EnvironmentTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The customer provided encryption key for the environment template.+environmentTemplate_encryptionKey :: Lens.Lens' EnvironmentTemplate (Prelude.Maybe Prelude.Text)+environmentTemplate_encryptionKey = Lens.lens (\EnvironmentTemplate' {encryptionKey} -> encryptionKey) (\s@EnvironmentTemplate' {} a -> s {encryptionKey = a} :: EnvironmentTemplate)++-- | When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+environmentTemplate_provisioning :: Lens.Lens' EnvironmentTemplate (Prelude.Maybe Provisioning)+environmentTemplate_provisioning = Lens.lens (\EnvironmentTemplate' {provisioning} -> provisioning) (\s@EnvironmentTemplate' {} a -> s {provisioning = a} :: EnvironmentTemplate)++-- | The ID of the recommended version of the environment template.+environmentTemplate_recommendedVersion :: Lens.Lens' EnvironmentTemplate (Prelude.Maybe Prelude.Text)+environmentTemplate_recommendedVersion = Lens.lens (\EnvironmentTemplate' {recommendedVersion} -> recommendedVersion) (\s@EnvironmentTemplate' {} a -> s {recommendedVersion = a} :: EnvironmentTemplate)++-- | The Amazon Resource Name (ARN) of the environment template.+environmentTemplate_arn :: Lens.Lens' EnvironmentTemplate Prelude.Text+environmentTemplate_arn = Lens.lens (\EnvironmentTemplate' {arn} -> arn) (\s@EnvironmentTemplate' {} a -> s {arn = a} :: EnvironmentTemplate)++-- | The time when the environment template was created.+environmentTemplate_createdAt :: Lens.Lens' EnvironmentTemplate Prelude.UTCTime+environmentTemplate_createdAt = Lens.lens (\EnvironmentTemplate' {createdAt} -> createdAt) (\s@EnvironmentTemplate' {} a -> s {createdAt = a} :: EnvironmentTemplate) Prelude.. Data._Time++-- | The time when the environment template was last modified.+environmentTemplate_lastModifiedAt :: Lens.Lens' EnvironmentTemplate Prelude.UTCTime+environmentTemplate_lastModifiedAt = Lens.lens (\EnvironmentTemplate' {lastModifiedAt} -> lastModifiedAt) (\s@EnvironmentTemplate' {} a -> s {lastModifiedAt = a} :: EnvironmentTemplate) Prelude.. Data._Time++-- | The name of the environment template.+environmentTemplate_name :: Lens.Lens' EnvironmentTemplate Prelude.Text+environmentTemplate_name = Lens.lens (\EnvironmentTemplate' {name} -> name) (\s@EnvironmentTemplate' {} a -> s {name = a} :: EnvironmentTemplate)++instance Data.FromJSON EnvironmentTemplate where+  parseJSON =+    Data.withObject+      "EnvironmentTemplate"+      ( \x ->+          EnvironmentTemplate'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "displayName")+            Prelude.<*> (x Data..:? "encryptionKey")+            Prelude.<*> (x Data..:? "provisioning")+            Prelude.<*> (x Data..:? "recommendedVersion")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+      )++instance Prelude.Hashable EnvironmentTemplate where+  hashWithSalt _salt EnvironmentTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` provisioning+      `Prelude.hashWithSalt` recommendedVersion+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name++instance Prelude.NFData EnvironmentTemplate where+  rnf EnvironmentTemplate' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf provisioning+      `Prelude.seq` Prelude.rnf recommendedVersion+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/Proton/Types/EnvironmentTemplateFilter.hs view
@@ -0,0 +1,90 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentTemplateFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentTemplateFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A search filter for environment templates.+--+-- /See:/ 'newEnvironmentTemplateFilter' smart constructor.+data EnvironmentTemplateFilter = EnvironmentTemplateFilter'+  { -- | Include @majorVersion@ to filter search for a major version.+    majorVersion :: Prelude.Text,+    -- | Include @templateName@ to filter search for a template name.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentTemplateFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'majorVersion', 'environmentTemplateFilter_majorVersion' - Include @majorVersion@ to filter search for a major version.+--+-- 'templateName', 'environmentTemplateFilter_templateName' - Include @templateName@ to filter search for a template name.+newEnvironmentTemplateFilter ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  EnvironmentTemplateFilter+newEnvironmentTemplateFilter+  pMajorVersion_+  pTemplateName_ =+    EnvironmentTemplateFilter'+      { majorVersion =+          pMajorVersion_,+        templateName = pTemplateName_+      }++-- | Include @majorVersion@ to filter search for a major version.+environmentTemplateFilter_majorVersion :: Lens.Lens' EnvironmentTemplateFilter Prelude.Text+environmentTemplateFilter_majorVersion = Lens.lens (\EnvironmentTemplateFilter' {majorVersion} -> majorVersion) (\s@EnvironmentTemplateFilter' {} a -> s {majorVersion = a} :: EnvironmentTemplateFilter)++-- | Include @templateName@ to filter search for a template name.+environmentTemplateFilter_templateName :: Lens.Lens' EnvironmentTemplateFilter Prelude.Text+environmentTemplateFilter_templateName = Lens.lens (\EnvironmentTemplateFilter' {templateName} -> templateName) (\s@EnvironmentTemplateFilter' {} a -> s {templateName = a} :: EnvironmentTemplateFilter)++instance Prelude.Hashable EnvironmentTemplateFilter where+  hashWithSalt _salt EnvironmentTemplateFilter' {..} =+    _salt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData EnvironmentTemplateFilter where+  rnf EnvironmentTemplateFilter' {..} =+    Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToJSON EnvironmentTemplateFilter where+  toJSON EnvironmentTemplateFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )
+ gen/Amazonka/Proton/Types/EnvironmentTemplateSummary.hs view
@@ -0,0 +1,177 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentTemplateSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentTemplateSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.Provisioning++-- | The environment template data.+--+-- /See:/ 'newEnvironmentTemplateSummary' smart constructor.+data EnvironmentTemplateSummary = EnvironmentTemplateSummary'+  { -- | A description of the environment template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the environment template as displayed in the developer+    -- interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | When included, indicates that the environment template is for customer+    -- provisioned and managed infrastructure.+    provisioning :: Prelude.Maybe Provisioning,+    -- | The recommended version of the environment template.+    recommendedVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the environment template.+    arn :: Prelude.Text,+    -- | The time when the environment template was created.+    createdAt :: Data.POSIX,+    -- | The time when the environment template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the environment template.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentTemplateSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'environmentTemplateSummary_description' - A description of the environment template.+--+-- 'displayName', 'environmentTemplateSummary_displayName' - The name of the environment template as displayed in the developer+-- interface.+--+-- 'provisioning', 'environmentTemplateSummary_provisioning' - When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+--+-- 'recommendedVersion', 'environmentTemplateSummary_recommendedVersion' - The recommended version of the environment template.+--+-- 'arn', 'environmentTemplateSummary_arn' - The Amazon Resource Name (ARN) of the environment template.+--+-- 'createdAt', 'environmentTemplateSummary_createdAt' - The time when the environment template was created.+--+-- 'lastModifiedAt', 'environmentTemplateSummary_lastModifiedAt' - The time when the environment template was last modified.+--+-- 'name', 'environmentTemplateSummary_name' - The name of the environment template.+newEnvironmentTemplateSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  EnvironmentTemplateSummary+newEnvironmentTemplateSummary+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pName_ =+    EnvironmentTemplateSummary'+      { description =+          Prelude.Nothing,+        displayName = Prelude.Nothing,+        provisioning = Prelude.Nothing,+        recommendedVersion = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt =+          Data._Time Lens.# pLastModifiedAt_,+        name = pName_+      }++-- | A description of the environment template.+environmentTemplateSummary_description :: Lens.Lens' EnvironmentTemplateSummary (Prelude.Maybe Prelude.Text)+environmentTemplateSummary_description = Lens.lens (\EnvironmentTemplateSummary' {description} -> description) (\s@EnvironmentTemplateSummary' {} a -> s {description = a} :: EnvironmentTemplateSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the environment template as displayed in the developer+-- interface.+environmentTemplateSummary_displayName :: Lens.Lens' EnvironmentTemplateSummary (Prelude.Maybe Prelude.Text)+environmentTemplateSummary_displayName = Lens.lens (\EnvironmentTemplateSummary' {displayName} -> displayName) (\s@EnvironmentTemplateSummary' {} a -> s {displayName = a} :: EnvironmentTemplateSummary) Prelude.. Lens.mapping Data._Sensitive++-- | When included, indicates that the environment template is for customer+-- provisioned and managed infrastructure.+environmentTemplateSummary_provisioning :: Lens.Lens' EnvironmentTemplateSummary (Prelude.Maybe Provisioning)+environmentTemplateSummary_provisioning = Lens.lens (\EnvironmentTemplateSummary' {provisioning} -> provisioning) (\s@EnvironmentTemplateSummary' {} a -> s {provisioning = a} :: EnvironmentTemplateSummary)++-- | The recommended version of the environment template.+environmentTemplateSummary_recommendedVersion :: Lens.Lens' EnvironmentTemplateSummary (Prelude.Maybe Prelude.Text)+environmentTemplateSummary_recommendedVersion = Lens.lens (\EnvironmentTemplateSummary' {recommendedVersion} -> recommendedVersion) (\s@EnvironmentTemplateSummary' {} a -> s {recommendedVersion = a} :: EnvironmentTemplateSummary)++-- | The Amazon Resource Name (ARN) of the environment template.+environmentTemplateSummary_arn :: Lens.Lens' EnvironmentTemplateSummary Prelude.Text+environmentTemplateSummary_arn = Lens.lens (\EnvironmentTemplateSummary' {arn} -> arn) (\s@EnvironmentTemplateSummary' {} a -> s {arn = a} :: EnvironmentTemplateSummary)++-- | The time when the environment template was created.+environmentTemplateSummary_createdAt :: Lens.Lens' EnvironmentTemplateSummary Prelude.UTCTime+environmentTemplateSummary_createdAt = Lens.lens (\EnvironmentTemplateSummary' {createdAt} -> createdAt) (\s@EnvironmentTemplateSummary' {} a -> s {createdAt = a} :: EnvironmentTemplateSummary) Prelude.. Data._Time++-- | The time when the environment template was last modified.+environmentTemplateSummary_lastModifiedAt :: Lens.Lens' EnvironmentTemplateSummary Prelude.UTCTime+environmentTemplateSummary_lastModifiedAt = Lens.lens (\EnvironmentTemplateSummary' {lastModifiedAt} -> lastModifiedAt) (\s@EnvironmentTemplateSummary' {} a -> s {lastModifiedAt = a} :: EnvironmentTemplateSummary) Prelude.. Data._Time++-- | The name of the environment template.+environmentTemplateSummary_name :: Lens.Lens' EnvironmentTemplateSummary Prelude.Text+environmentTemplateSummary_name = Lens.lens (\EnvironmentTemplateSummary' {name} -> name) (\s@EnvironmentTemplateSummary' {} a -> s {name = a} :: EnvironmentTemplateSummary)++instance Data.FromJSON EnvironmentTemplateSummary where+  parseJSON =+    Data.withObject+      "EnvironmentTemplateSummary"+      ( \x ->+          EnvironmentTemplateSummary'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "displayName")+            Prelude.<*> (x Data..:? "provisioning")+            Prelude.<*> (x Data..:? "recommendedVersion")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+      )++instance Prelude.Hashable EnvironmentTemplateSummary where+  hashWithSalt _salt EnvironmentTemplateSummary' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` provisioning+      `Prelude.hashWithSalt` recommendedVersion+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name++instance Prelude.NFData EnvironmentTemplateSummary where+  rnf EnvironmentTemplateSummary' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf provisioning+      `Prelude.seq` Prelude.rnf recommendedVersion+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/Proton/Types/EnvironmentTemplateVersion.hs view
@@ -0,0 +1,222 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentTemplateVersion where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.TemplateVersionStatus++-- | The environment template version data.+--+-- /See:/ 'newEnvironmentTemplateVersion' smart constructor.+data EnvironmentTemplateVersion = EnvironmentTemplateVersion'+  { -- | A description of the minor version of an environment template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The recommended minor version of the environment template.+    recommendedMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The schema of the version of an environment template.+    schema :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The status message of the version of an environment template.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the version of an environment+    -- template.+    arn :: Prelude.Text,+    -- | The time when the version of an environment template was created.+    createdAt :: Data.POSIX,+    -- | The time when the version of an environment template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The latest major version that\'s associated with the version of an+    -- environment template.+    majorVersion :: Prelude.Text,+    -- | The minor version of an environment template.+    minorVersion :: Prelude.Text,+    -- | The status of the version of an environment template.+    status :: TemplateVersionStatus,+    -- | The name of the version of an environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'environmentTemplateVersion_description' - A description of the minor version of an environment template.+--+-- 'recommendedMinorVersion', 'environmentTemplateVersion_recommendedMinorVersion' - The recommended minor version of the environment template.+--+-- 'schema', 'environmentTemplateVersion_schema' - The schema of the version of an environment template.+--+-- 'statusMessage', 'environmentTemplateVersion_statusMessage' - The status message of the version of an environment template.+--+-- 'arn', 'environmentTemplateVersion_arn' - The Amazon Resource Name (ARN) of the version of an environment+-- template.+--+-- 'createdAt', 'environmentTemplateVersion_createdAt' - The time when the version of an environment template was created.+--+-- 'lastModifiedAt', 'environmentTemplateVersion_lastModifiedAt' - The time when the version of an environment template was last modified.+--+-- 'majorVersion', 'environmentTemplateVersion_majorVersion' - The latest major version that\'s associated with the version of an+-- environment template.+--+-- 'minorVersion', 'environmentTemplateVersion_minorVersion' - The minor version of an environment template.+--+-- 'status', 'environmentTemplateVersion_status' - The status of the version of an environment template.+--+-- 'templateName', 'environmentTemplateVersion_templateName' - The name of the version of an environment template.+newEnvironmentTemplateVersion ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'status'+  TemplateVersionStatus ->+  -- | 'templateName'+  Prelude.Text ->+  EnvironmentTemplateVersion+newEnvironmentTemplateVersion+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pMajorVersion_+  pMinorVersion_+  pStatus_+  pTemplateName_ =+    EnvironmentTemplateVersion'+      { description =+          Prelude.Nothing,+        recommendedMinorVersion = Prelude.Nothing,+        schema = Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt =+          Data._Time Lens.# pLastModifiedAt_,+        majorVersion = pMajorVersion_,+        minorVersion = pMinorVersion_,+        status = pStatus_,+        templateName = pTemplateName_+      }++-- | A description of the minor version of an environment template.+environmentTemplateVersion_description :: Lens.Lens' EnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+environmentTemplateVersion_description = Lens.lens (\EnvironmentTemplateVersion' {description} -> description) (\s@EnvironmentTemplateVersion' {} a -> s {description = a} :: EnvironmentTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | The recommended minor version of the environment template.+environmentTemplateVersion_recommendedMinorVersion :: Lens.Lens' EnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+environmentTemplateVersion_recommendedMinorVersion = Lens.lens (\EnvironmentTemplateVersion' {recommendedMinorVersion} -> recommendedMinorVersion) (\s@EnvironmentTemplateVersion' {} a -> s {recommendedMinorVersion = a} :: EnvironmentTemplateVersion)++-- | The schema of the version of an environment template.+environmentTemplateVersion_schema :: Lens.Lens' EnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+environmentTemplateVersion_schema = Lens.lens (\EnvironmentTemplateVersion' {schema} -> schema) (\s@EnvironmentTemplateVersion' {} a -> s {schema = a} :: EnvironmentTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | The status message of the version of an environment template.+environmentTemplateVersion_statusMessage :: Lens.Lens' EnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+environmentTemplateVersion_statusMessage = Lens.lens (\EnvironmentTemplateVersion' {statusMessage} -> statusMessage) (\s@EnvironmentTemplateVersion' {} a -> s {statusMessage = a} :: EnvironmentTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the version of an environment+-- template.+environmentTemplateVersion_arn :: Lens.Lens' EnvironmentTemplateVersion Prelude.Text+environmentTemplateVersion_arn = Lens.lens (\EnvironmentTemplateVersion' {arn} -> arn) (\s@EnvironmentTemplateVersion' {} a -> s {arn = a} :: EnvironmentTemplateVersion)++-- | The time when the version of an environment template was created.+environmentTemplateVersion_createdAt :: Lens.Lens' EnvironmentTemplateVersion Prelude.UTCTime+environmentTemplateVersion_createdAt = Lens.lens (\EnvironmentTemplateVersion' {createdAt} -> createdAt) (\s@EnvironmentTemplateVersion' {} a -> s {createdAt = a} :: EnvironmentTemplateVersion) Prelude.. Data._Time++-- | The time when the version of an environment template was last modified.+environmentTemplateVersion_lastModifiedAt :: Lens.Lens' EnvironmentTemplateVersion Prelude.UTCTime+environmentTemplateVersion_lastModifiedAt = Lens.lens (\EnvironmentTemplateVersion' {lastModifiedAt} -> lastModifiedAt) (\s@EnvironmentTemplateVersion' {} a -> s {lastModifiedAt = a} :: EnvironmentTemplateVersion) Prelude.. Data._Time++-- | The latest major version that\'s associated with the version of an+-- environment template.+environmentTemplateVersion_majorVersion :: Lens.Lens' EnvironmentTemplateVersion Prelude.Text+environmentTemplateVersion_majorVersion = Lens.lens (\EnvironmentTemplateVersion' {majorVersion} -> majorVersion) (\s@EnvironmentTemplateVersion' {} a -> s {majorVersion = a} :: EnvironmentTemplateVersion)++-- | The minor version of an environment template.+environmentTemplateVersion_minorVersion :: Lens.Lens' EnvironmentTemplateVersion Prelude.Text+environmentTemplateVersion_minorVersion = Lens.lens (\EnvironmentTemplateVersion' {minorVersion} -> minorVersion) (\s@EnvironmentTemplateVersion' {} a -> s {minorVersion = a} :: EnvironmentTemplateVersion)++-- | The status of the version of an environment template.+environmentTemplateVersion_status :: Lens.Lens' EnvironmentTemplateVersion TemplateVersionStatus+environmentTemplateVersion_status = Lens.lens (\EnvironmentTemplateVersion' {status} -> status) (\s@EnvironmentTemplateVersion' {} a -> s {status = a} :: EnvironmentTemplateVersion)++-- | The name of the version of an environment template.+environmentTemplateVersion_templateName :: Lens.Lens' EnvironmentTemplateVersion Prelude.Text+environmentTemplateVersion_templateName = Lens.lens (\EnvironmentTemplateVersion' {templateName} -> templateName) (\s@EnvironmentTemplateVersion' {} a -> s {templateName = a} :: EnvironmentTemplateVersion)++instance Data.FromJSON EnvironmentTemplateVersion where+  parseJSON =+    Data.withObject+      "EnvironmentTemplateVersion"+      ( \x ->+          EnvironmentTemplateVersion'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "recommendedMinorVersion")+            Prelude.<*> (x Data..:? "schema")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "majorVersion")+            Prelude.<*> (x Data..: "minorVersion")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable EnvironmentTemplateVersion where+  hashWithSalt _salt EnvironmentTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` recommendedMinorVersion+      `Prelude.hashWithSalt` schema+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData EnvironmentTemplateVersion where+  rnf EnvironmentTemplateVersion' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf recommendedMinorVersion+      `Prelude.seq` Prelude.rnf schema+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/EnvironmentTemplateVersionSummary.hs view
@@ -0,0 +1,223 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.EnvironmentTemplateVersionSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.EnvironmentTemplateVersionSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.TemplateVersionStatus++-- | A summary of the version of an environment template detail data.+--+-- /See:/ 'newEnvironmentTemplateVersionSummary' smart constructor.+data EnvironmentTemplateVersionSummary = EnvironmentTemplateVersionSummary'+  { -- | A description of the version of an environment template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The recommended minor version of the environment template.+    recommendedMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The status message of the version of an environment template.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the version of an environment+    -- template.+    arn :: Prelude.Text,+    -- | The time when the version of an environment template was created.+    createdAt :: Data.POSIX,+    -- | The time when the version of an environment template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The latest major version that\'s associated with the version of an+    -- environment template.+    majorVersion :: Prelude.Text,+    -- | The version of an environment template.+    minorVersion :: Prelude.Text,+    -- | The status of the version of an environment template.+    status :: TemplateVersionStatus,+    -- | The name of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnvironmentTemplateVersionSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'environmentTemplateVersionSummary_description' - A description of the version of an environment template.+--+-- 'recommendedMinorVersion', 'environmentTemplateVersionSummary_recommendedMinorVersion' - The recommended minor version of the environment template.+--+-- 'statusMessage', 'environmentTemplateVersionSummary_statusMessage' - The status message of the version of an environment template.+--+-- 'arn', 'environmentTemplateVersionSummary_arn' - The Amazon Resource Name (ARN) of the version of an environment+-- template.+--+-- 'createdAt', 'environmentTemplateVersionSummary_createdAt' - The time when the version of an environment template was created.+--+-- 'lastModifiedAt', 'environmentTemplateVersionSummary_lastModifiedAt' - The time when the version of an environment template was last modified.+--+-- 'majorVersion', 'environmentTemplateVersionSummary_majorVersion' - The latest major version that\'s associated with the version of an+-- environment template.+--+-- 'minorVersion', 'environmentTemplateVersionSummary_minorVersion' - The version of an environment template.+--+-- 'status', 'environmentTemplateVersionSummary_status' - The status of the version of an environment template.+--+-- 'templateName', 'environmentTemplateVersionSummary_templateName' - The name of the environment template.+newEnvironmentTemplateVersionSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'status'+  TemplateVersionStatus ->+  -- | 'templateName'+  Prelude.Text ->+  EnvironmentTemplateVersionSummary+newEnvironmentTemplateVersionSummary+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pMajorVersion_+  pMinorVersion_+  pStatus_+  pTemplateName_ =+    EnvironmentTemplateVersionSummary'+      { description =+          Prelude.Nothing,+        recommendedMinorVersion =+          Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        arn = pArn_,+        createdAt =+          Data._Time Lens.# pCreatedAt_,+        lastModifiedAt =+          Data._Time Lens.# pLastModifiedAt_,+        majorVersion = pMajorVersion_,+        minorVersion = pMinorVersion_,+        status = pStatus_,+        templateName = pTemplateName_+      }++-- | A description of the version of an environment template.+environmentTemplateVersionSummary_description :: Lens.Lens' EnvironmentTemplateVersionSummary (Prelude.Maybe Prelude.Text)+environmentTemplateVersionSummary_description = Lens.lens (\EnvironmentTemplateVersionSummary' {description} -> description) (\s@EnvironmentTemplateVersionSummary' {} a -> s {description = a} :: EnvironmentTemplateVersionSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The recommended minor version of the environment template.+environmentTemplateVersionSummary_recommendedMinorVersion :: Lens.Lens' EnvironmentTemplateVersionSummary (Prelude.Maybe Prelude.Text)+environmentTemplateVersionSummary_recommendedMinorVersion = Lens.lens (\EnvironmentTemplateVersionSummary' {recommendedMinorVersion} -> recommendedMinorVersion) (\s@EnvironmentTemplateVersionSummary' {} a -> s {recommendedMinorVersion = a} :: EnvironmentTemplateVersionSummary)++-- | The status message of the version of an environment template.+environmentTemplateVersionSummary_statusMessage :: Lens.Lens' EnvironmentTemplateVersionSummary (Prelude.Maybe Prelude.Text)+environmentTemplateVersionSummary_statusMessage = Lens.lens (\EnvironmentTemplateVersionSummary' {statusMessage} -> statusMessage) (\s@EnvironmentTemplateVersionSummary' {} a -> s {statusMessage = a} :: EnvironmentTemplateVersionSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the version of an environment+-- template.+environmentTemplateVersionSummary_arn :: Lens.Lens' EnvironmentTemplateVersionSummary Prelude.Text+environmentTemplateVersionSummary_arn = Lens.lens (\EnvironmentTemplateVersionSummary' {arn} -> arn) (\s@EnvironmentTemplateVersionSummary' {} a -> s {arn = a} :: EnvironmentTemplateVersionSummary)++-- | The time when the version of an environment template was created.+environmentTemplateVersionSummary_createdAt :: Lens.Lens' EnvironmentTemplateVersionSummary Prelude.UTCTime+environmentTemplateVersionSummary_createdAt = Lens.lens (\EnvironmentTemplateVersionSummary' {createdAt} -> createdAt) (\s@EnvironmentTemplateVersionSummary' {} a -> s {createdAt = a} :: EnvironmentTemplateVersionSummary) Prelude.. Data._Time++-- | The time when the version of an environment template was last modified.+environmentTemplateVersionSummary_lastModifiedAt :: Lens.Lens' EnvironmentTemplateVersionSummary Prelude.UTCTime+environmentTemplateVersionSummary_lastModifiedAt = Lens.lens (\EnvironmentTemplateVersionSummary' {lastModifiedAt} -> lastModifiedAt) (\s@EnvironmentTemplateVersionSummary' {} a -> s {lastModifiedAt = a} :: EnvironmentTemplateVersionSummary) Prelude.. Data._Time++-- | The latest major version that\'s associated with the version of an+-- environment template.+environmentTemplateVersionSummary_majorVersion :: Lens.Lens' EnvironmentTemplateVersionSummary Prelude.Text+environmentTemplateVersionSummary_majorVersion = Lens.lens (\EnvironmentTemplateVersionSummary' {majorVersion} -> majorVersion) (\s@EnvironmentTemplateVersionSummary' {} a -> s {majorVersion = a} :: EnvironmentTemplateVersionSummary)++-- | The version of an environment template.+environmentTemplateVersionSummary_minorVersion :: Lens.Lens' EnvironmentTemplateVersionSummary Prelude.Text+environmentTemplateVersionSummary_minorVersion = Lens.lens (\EnvironmentTemplateVersionSummary' {minorVersion} -> minorVersion) (\s@EnvironmentTemplateVersionSummary' {} a -> s {minorVersion = a} :: EnvironmentTemplateVersionSummary)++-- | The status of the version of an environment template.+environmentTemplateVersionSummary_status :: Lens.Lens' EnvironmentTemplateVersionSummary TemplateVersionStatus+environmentTemplateVersionSummary_status = Lens.lens (\EnvironmentTemplateVersionSummary' {status} -> status) (\s@EnvironmentTemplateVersionSummary' {} a -> s {status = a} :: EnvironmentTemplateVersionSummary)++-- | The name of the environment template.+environmentTemplateVersionSummary_templateName :: Lens.Lens' EnvironmentTemplateVersionSummary Prelude.Text+environmentTemplateVersionSummary_templateName = Lens.lens (\EnvironmentTemplateVersionSummary' {templateName} -> templateName) (\s@EnvironmentTemplateVersionSummary' {} a -> s {templateName = a} :: EnvironmentTemplateVersionSummary)++instance+  Data.FromJSON+    EnvironmentTemplateVersionSummary+  where+  parseJSON =+    Data.withObject+      "EnvironmentTemplateVersionSummary"+      ( \x ->+          EnvironmentTemplateVersionSummary'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "recommendedMinorVersion")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "majorVersion")+            Prelude.<*> (x Data..: "minorVersion")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "templateName")+      )++instance+  Prelude.Hashable+    EnvironmentTemplateVersionSummary+  where+  hashWithSalt+    _salt+    EnvironmentTemplateVersionSummary' {..} =+      _salt+        `Prelude.hashWithSalt` description+        `Prelude.hashWithSalt` recommendedMinorVersion+        `Prelude.hashWithSalt` statusMessage+        `Prelude.hashWithSalt` arn+        `Prelude.hashWithSalt` createdAt+        `Prelude.hashWithSalt` lastModifiedAt+        `Prelude.hashWithSalt` majorVersion+        `Prelude.hashWithSalt` minorVersion+        `Prelude.hashWithSalt` status+        `Prelude.hashWithSalt` templateName++instance+  Prelude.NFData+    EnvironmentTemplateVersionSummary+  where+  rnf EnvironmentTemplateVersionSummary' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf recommendedMinorVersion+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ListServiceInstancesFilter.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ListServiceInstancesFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ListServiceInstancesFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.ListServiceInstancesFilterBy++-- | A filtering criterion to scope down the result list of the+-- ListServiceInstances action.+--+-- /See:/ 'newListServiceInstancesFilter' smart constructor.+data ListServiceInstancesFilter = ListServiceInstancesFilter'+  { -- | The name of a filtering criterion.+    key :: Prelude.Maybe ListServiceInstancesFilterBy,+    -- | A value to filter by.+    --+    -- With the date\/time keys (@*At{Before,After}@), the value is a valid+    -- <https://datatracker.ietf.org/doc/html/rfc3339.html RFC 3339> string+    -- with no UTC offset and with an optional fractional precision (for+    -- example, @1985-04-12T23:20:50.52Z@).+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListServiceInstancesFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'listServiceInstancesFilter_key' - The name of a filtering criterion.+--+-- 'value', 'listServiceInstancesFilter_value' - A value to filter by.+--+-- With the date\/time keys (@*At{Before,After}@), the value is a valid+-- <https://datatracker.ietf.org/doc/html/rfc3339.html RFC 3339> string+-- with no UTC offset and with an optional fractional precision (for+-- example, @1985-04-12T23:20:50.52Z@).+newListServiceInstancesFilter ::+  ListServiceInstancesFilter+newListServiceInstancesFilter =+  ListServiceInstancesFilter'+    { key = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The name of a filtering criterion.+listServiceInstancesFilter_key :: Lens.Lens' ListServiceInstancesFilter (Prelude.Maybe ListServiceInstancesFilterBy)+listServiceInstancesFilter_key = Lens.lens (\ListServiceInstancesFilter' {key} -> key) (\s@ListServiceInstancesFilter' {} a -> s {key = a} :: ListServiceInstancesFilter)++-- | A value to filter by.+--+-- With the date\/time keys (@*At{Before,After}@), the value is a valid+-- <https://datatracker.ietf.org/doc/html/rfc3339.html RFC 3339> string+-- with no UTC offset and with an optional fractional precision (for+-- example, @1985-04-12T23:20:50.52Z@).+listServiceInstancesFilter_value :: Lens.Lens' ListServiceInstancesFilter (Prelude.Maybe Prelude.Text)+listServiceInstancesFilter_value = Lens.lens (\ListServiceInstancesFilter' {value} -> value) (\s@ListServiceInstancesFilter' {} a -> s {value = a} :: ListServiceInstancesFilter)++instance Prelude.Hashable ListServiceInstancesFilter where+  hashWithSalt _salt ListServiceInstancesFilter' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData ListServiceInstancesFilter where+  rnf ListServiceInstancesFilter' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON ListServiceInstancesFilter where+  toJSON ListServiceInstancesFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("key" Data..=) Prelude.<$> key,+            ("value" Data..=) Prelude.<$> value+          ]+      )
+ gen/Amazonka/Proton/Types/ListServiceInstancesFilterBy.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ListServiceInstancesFilterBy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ListServiceInstancesFilterBy+  ( ListServiceInstancesFilterBy+      ( ..,+        ListServiceInstancesFilterBy_CreatedAtAfter,+        ListServiceInstancesFilterBy_CreatedAtBefore,+        ListServiceInstancesFilterBy_DeployedTemplateVersionStatus,+        ListServiceInstancesFilterBy_DeploymentStatus,+        ListServiceInstancesFilterBy_EnvironmentName,+        ListServiceInstancesFilterBy_LastDeploymentAttemptedAtAfter,+        ListServiceInstancesFilterBy_LastDeploymentAttemptedAtBefore,+        ListServiceInstancesFilterBy_Name,+        ListServiceInstancesFilterBy_ServiceName,+        ListServiceInstancesFilterBy_TemplateName+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ListServiceInstancesFilterBy = ListServiceInstancesFilterBy'+  { fromListServiceInstancesFilterBy ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ListServiceInstancesFilterBy_CreatedAtAfter :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_CreatedAtAfter = ListServiceInstancesFilterBy' "createdAtAfter"++pattern ListServiceInstancesFilterBy_CreatedAtBefore :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_CreatedAtBefore = ListServiceInstancesFilterBy' "createdAtBefore"++pattern ListServiceInstancesFilterBy_DeployedTemplateVersionStatus :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_DeployedTemplateVersionStatus = ListServiceInstancesFilterBy' "deployedTemplateVersionStatus"++pattern ListServiceInstancesFilterBy_DeploymentStatus :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_DeploymentStatus = ListServiceInstancesFilterBy' "deploymentStatus"++pattern ListServiceInstancesFilterBy_EnvironmentName :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_EnvironmentName = ListServiceInstancesFilterBy' "environmentName"++pattern ListServiceInstancesFilterBy_LastDeploymentAttemptedAtAfter :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_LastDeploymentAttemptedAtAfter = ListServiceInstancesFilterBy' "lastDeploymentAttemptedAtAfter"++pattern ListServiceInstancesFilterBy_LastDeploymentAttemptedAtBefore :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_LastDeploymentAttemptedAtBefore = ListServiceInstancesFilterBy' "lastDeploymentAttemptedAtBefore"++pattern ListServiceInstancesFilterBy_Name :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_Name = ListServiceInstancesFilterBy' "name"++pattern ListServiceInstancesFilterBy_ServiceName :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_ServiceName = ListServiceInstancesFilterBy' "serviceName"++pattern ListServiceInstancesFilterBy_TemplateName :: ListServiceInstancesFilterBy+pattern ListServiceInstancesFilterBy_TemplateName = ListServiceInstancesFilterBy' "templateName"++{-# COMPLETE+  ListServiceInstancesFilterBy_CreatedAtAfter,+  ListServiceInstancesFilterBy_CreatedAtBefore,+  ListServiceInstancesFilterBy_DeployedTemplateVersionStatus,+  ListServiceInstancesFilterBy_DeploymentStatus,+  ListServiceInstancesFilterBy_EnvironmentName,+  ListServiceInstancesFilterBy_LastDeploymentAttemptedAtAfter,+  ListServiceInstancesFilterBy_LastDeploymentAttemptedAtBefore,+  ListServiceInstancesFilterBy_Name,+  ListServiceInstancesFilterBy_ServiceName,+  ListServiceInstancesFilterBy_TemplateName,+  ListServiceInstancesFilterBy'+  #-}
+ gen/Amazonka/Proton/Types/ListServiceInstancesSortBy.hs view
@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ListServiceInstancesSortBy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ListServiceInstancesSortBy+  ( ListServiceInstancesSortBy+      ( ..,+        ListServiceInstancesSortBy_CreatedAt,+        ListServiceInstancesSortBy_DeploymentStatus,+        ListServiceInstancesSortBy_EnvironmentName,+        ListServiceInstancesSortBy_LastDeploymentAttemptedAt,+        ListServiceInstancesSortBy_Name,+        ListServiceInstancesSortBy_ServiceName,+        ListServiceInstancesSortBy_TemplateName+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ListServiceInstancesSortBy = ListServiceInstancesSortBy'+  { fromListServiceInstancesSortBy ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ListServiceInstancesSortBy_CreatedAt :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_CreatedAt = ListServiceInstancesSortBy' "createdAt"++pattern ListServiceInstancesSortBy_DeploymentStatus :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_DeploymentStatus = ListServiceInstancesSortBy' "deploymentStatus"++pattern ListServiceInstancesSortBy_EnvironmentName :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_EnvironmentName = ListServiceInstancesSortBy' "environmentName"++pattern ListServiceInstancesSortBy_LastDeploymentAttemptedAt :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_LastDeploymentAttemptedAt = ListServiceInstancesSortBy' "lastDeploymentAttemptedAt"++pattern ListServiceInstancesSortBy_Name :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_Name = ListServiceInstancesSortBy' "name"++pattern ListServiceInstancesSortBy_ServiceName :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_ServiceName = ListServiceInstancesSortBy' "serviceName"++pattern ListServiceInstancesSortBy_TemplateName :: ListServiceInstancesSortBy+pattern ListServiceInstancesSortBy_TemplateName = ListServiceInstancesSortBy' "templateName"++{-# COMPLETE+  ListServiceInstancesSortBy_CreatedAt,+  ListServiceInstancesSortBy_DeploymentStatus,+  ListServiceInstancesSortBy_EnvironmentName,+  ListServiceInstancesSortBy_LastDeploymentAttemptedAt,+  ListServiceInstancesSortBy_Name,+  ListServiceInstancesSortBy_ServiceName,+  ListServiceInstancesSortBy_TemplateName,+  ListServiceInstancesSortBy'+  #-}
+ gen/Amazonka/Proton/Types/Output.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Output+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Output where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | An infrastructure as code defined resource output.+--+-- /See:/ 'newOutput' smart constructor.+data Output = Output'+  { -- | The output key.+    key :: Prelude.Maybe Prelude.Text,+    -- | The output value.+    valueString :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Output' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'output_key' - The output key.+--+-- 'valueString', 'output_valueString' - The output value.+newOutput ::+  Output+newOutput =+  Output'+    { key = Prelude.Nothing,+      valueString = Prelude.Nothing+    }++-- | The output key.+output_key :: Lens.Lens' Output (Prelude.Maybe Prelude.Text)+output_key = Lens.lens (\Output' {key} -> key) (\s@Output' {} a -> s {key = a} :: Output)++-- | The output value.+output_valueString :: Lens.Lens' Output (Prelude.Maybe Prelude.Text)+output_valueString = Lens.lens (\Output' {valueString} -> valueString) (\s@Output' {} a -> s {valueString = a} :: Output)++instance Data.FromJSON Output where+  parseJSON =+    Data.withObject+      "Output"+      ( \x ->+          Output'+            Prelude.<$> (x Data..:? "key")+            Prelude.<*> (x Data..:? "valueString")+      )++instance Prelude.Hashable Output where+  hashWithSalt _salt Output' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` valueString++instance Prelude.NFData Output where+  rnf Output' {..} =+    Prelude.rnf key+      `Prelude.seq` Prelude.rnf valueString++instance Data.ToJSON Output where+  toJSON Output' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("key" Data..=) Prelude.<$> key,+            ("valueString" Data..=) Prelude.<$> valueString+          ]+      )
+ gen/Amazonka/Proton/Types/ProvisionedResource.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ProvisionedResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ProvisionedResource where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.ProvisionedResourceEngine++-- | Detail data for a provisioned resource.+--+-- /See:/ 'newProvisionedResource' smart constructor.+data ProvisionedResource = ProvisionedResource'+  { -- | The provisioned resource identifier.+    identifier :: Prelude.Maybe Prelude.Text,+    -- | The provisioned resource name.+    name :: Prelude.Maybe Prelude.Text,+    -- | The resource provisioning engine. At this time, @CLOUDFORMATION@ can be+    -- used for Amazon Web Services-managed provisioning, and @TERRAFORM@ can+    -- be used for self-managed provisioning.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html#ag-works-prov-methods-self Self-managed provisioning>+    -- in the /Proton User Guide/.+    provisioningEngine :: Prelude.Maybe ProvisionedResourceEngine+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ProvisionedResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'identifier', 'provisionedResource_identifier' - The provisioned resource identifier.+--+-- 'name', 'provisionedResource_name' - The provisioned resource name.+--+-- 'provisioningEngine', 'provisionedResource_provisioningEngine' - The resource provisioning engine. At this time, @CLOUDFORMATION@ can be+-- used for Amazon Web Services-managed provisioning, and @TERRAFORM@ can+-- be used for self-managed provisioning.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html#ag-works-prov-methods-self Self-managed provisioning>+-- in the /Proton User Guide/.+newProvisionedResource ::+  ProvisionedResource+newProvisionedResource =+  ProvisionedResource'+    { identifier = Prelude.Nothing,+      name = Prelude.Nothing,+      provisioningEngine = Prelude.Nothing+    }++-- | The provisioned resource identifier.+provisionedResource_identifier :: Lens.Lens' ProvisionedResource (Prelude.Maybe Prelude.Text)+provisionedResource_identifier = Lens.lens (\ProvisionedResource' {identifier} -> identifier) (\s@ProvisionedResource' {} a -> s {identifier = a} :: ProvisionedResource)++-- | The provisioned resource name.+provisionedResource_name :: Lens.Lens' ProvisionedResource (Prelude.Maybe Prelude.Text)+provisionedResource_name = Lens.lens (\ProvisionedResource' {name} -> name) (\s@ProvisionedResource' {} a -> s {name = a} :: ProvisionedResource)++-- | The resource provisioning engine. At this time, @CLOUDFORMATION@ can be+-- used for Amazon Web Services-managed provisioning, and @TERRAFORM@ can+-- be used for self-managed provisioning.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html#ag-works-prov-methods-self Self-managed provisioning>+-- in the /Proton User Guide/.+provisionedResource_provisioningEngine :: Lens.Lens' ProvisionedResource (Prelude.Maybe ProvisionedResourceEngine)+provisionedResource_provisioningEngine = Lens.lens (\ProvisionedResource' {provisioningEngine} -> provisioningEngine) (\s@ProvisionedResource' {} a -> s {provisioningEngine = a} :: ProvisionedResource)++instance Data.FromJSON ProvisionedResource where+  parseJSON =+    Data.withObject+      "ProvisionedResource"+      ( \x ->+          ProvisionedResource'+            Prelude.<$> (x Data..:? "identifier")+            Prelude.<*> (x Data..:? "name")+            Prelude.<*> (x Data..:? "provisioningEngine")+      )++instance Prelude.Hashable ProvisionedResource where+  hashWithSalt _salt ProvisionedResource' {..} =+    _salt+      `Prelude.hashWithSalt` identifier+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provisioningEngine++instance Prelude.NFData ProvisionedResource where+  rnf ProvisionedResource' {..} =+    Prelude.rnf identifier+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf provisioningEngine
+ gen/Amazonka/Proton/Types/ProvisionedResourceEngine.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ProvisionedResourceEngine+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ProvisionedResourceEngine+  ( ProvisionedResourceEngine+      ( ..,+        ProvisionedResourceEngine_CLOUDFORMATION,+        ProvisionedResourceEngine_TERRAFORM+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | List of provisioning engines+newtype ProvisionedResourceEngine = ProvisionedResourceEngine'+  { fromProvisionedResourceEngine ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ProvisionedResourceEngine_CLOUDFORMATION :: ProvisionedResourceEngine+pattern ProvisionedResourceEngine_CLOUDFORMATION = ProvisionedResourceEngine' "CLOUDFORMATION"++pattern ProvisionedResourceEngine_TERRAFORM :: ProvisionedResourceEngine+pattern ProvisionedResourceEngine_TERRAFORM = ProvisionedResourceEngine' "TERRAFORM"++{-# COMPLETE+  ProvisionedResourceEngine_CLOUDFORMATION,+  ProvisionedResourceEngine_TERRAFORM,+  ProvisionedResourceEngine'+  #-}
+ gen/Amazonka/Proton/Types/Provisioning.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Provisioning+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Provisioning+  ( Provisioning+      ( ..,+        Provisioning_CUSTOMER_MANAGED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Provisioning = Provisioning'+  { fromProvisioning ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern Provisioning_CUSTOMER_MANAGED :: Provisioning+pattern Provisioning_CUSTOMER_MANAGED = Provisioning' "CUSTOMER_MANAGED"++{-# COMPLETE+  Provisioning_CUSTOMER_MANAGED,+  Provisioning'+  #-}
+ gen/Amazonka/Proton/Types/Repository.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Repository+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Repository where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryProvider++-- | Detailed data of a linked repository—a repository that has been+-- registered with Proton.+--+-- /See:/ 'newRepository' smart constructor.+data Repository = Repository'+  { -- | Your customer Amazon Web Services KMS encryption key.+    encryptionKey :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the linked repository.+    arn :: Prelude.Text,+    -- | The Amazon Resource Name (ARN) of your AWS CodeStar connection that+    -- connects Proton to your repository provider account.+    connectionArn :: Prelude.Text,+    -- | The repository name.+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Repository' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'encryptionKey', 'repository_encryptionKey' - Your customer Amazon Web Services KMS encryption key.+--+-- 'arn', 'repository_arn' - The Amazon Resource Name (ARN) of the linked repository.+--+-- 'connectionArn', 'repository_connectionArn' - The Amazon Resource Name (ARN) of your AWS CodeStar connection that+-- connects Proton to your repository provider account.+--+-- 'name', 'repository_name' - The repository name.+--+-- 'provider', 'repository_provider' - The repository provider.+newRepository ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'connectionArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  Repository+newRepository pArn_ pConnectionArn_ pName_ pProvider_ =+  Repository'+    { encryptionKey = Prelude.Nothing,+      arn = pArn_,+      connectionArn = pConnectionArn_,+      name = pName_,+      provider = pProvider_+    }++-- | Your customer Amazon Web Services KMS encryption key.+repository_encryptionKey :: Lens.Lens' Repository (Prelude.Maybe Prelude.Text)+repository_encryptionKey = Lens.lens (\Repository' {encryptionKey} -> encryptionKey) (\s@Repository' {} a -> s {encryptionKey = a} :: Repository)++-- | The Amazon Resource Name (ARN) of the linked repository.+repository_arn :: Lens.Lens' Repository Prelude.Text+repository_arn = Lens.lens (\Repository' {arn} -> arn) (\s@Repository' {} a -> s {arn = a} :: Repository)++-- | The Amazon Resource Name (ARN) of your AWS CodeStar connection that+-- connects Proton to your repository provider account.+repository_connectionArn :: Lens.Lens' Repository Prelude.Text+repository_connectionArn = Lens.lens (\Repository' {connectionArn} -> connectionArn) (\s@Repository' {} a -> s {connectionArn = a} :: Repository)++-- | The repository name.+repository_name :: Lens.Lens' Repository Prelude.Text+repository_name = Lens.lens (\Repository' {name} -> name) (\s@Repository' {} a -> s {name = a} :: Repository)++-- | The repository provider.+repository_provider :: Lens.Lens' Repository RepositoryProvider+repository_provider = Lens.lens (\Repository' {provider} -> provider) (\s@Repository' {} a -> s {provider = a} :: Repository)++instance Data.FromJSON Repository where+  parseJSON =+    Data.withObject+      "Repository"+      ( \x ->+          Repository'+            Prelude.<$> (x Data..:? "encryptionKey")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "connectionArn")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "provider")+      )++instance Prelude.Hashable Repository where+  hashWithSalt _salt Repository' {..} =+    _salt+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` connectionArn+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData Repository where+  rnf Repository' {..} =+    Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf connectionArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf provider
+ gen/Amazonka/Proton/Types/RepositoryBranch.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositoryBranch+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositoryBranch where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryProvider++-- | Detail data for a linked repository branch.+--+-- /See:/ 'newRepositoryBranch' smart constructor.+data RepositoryBranch = RepositoryBranch'+  { -- | The Amazon Resource Name (ARN) of the linked repository.+    arn :: Prelude.Text,+    -- | The repository branch.+    branch :: Prelude.Text,+    -- | The repository name.+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RepositoryBranch' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'repositoryBranch_arn' - The Amazon Resource Name (ARN) of the linked repository.+--+-- 'branch', 'repositoryBranch_branch' - The repository branch.+--+-- 'name', 'repositoryBranch_name' - The repository name.+--+-- 'provider', 'repositoryBranch_provider' - The repository provider.+newRepositoryBranch ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'branch'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  RepositoryBranch+newRepositoryBranch pArn_ pBranch_ pName_ pProvider_ =+  RepositoryBranch'+    { arn = pArn_,+      branch = pBranch_,+      name = pName_,+      provider = pProvider_+    }++-- | The Amazon Resource Name (ARN) of the linked repository.+repositoryBranch_arn :: Lens.Lens' RepositoryBranch Prelude.Text+repositoryBranch_arn = Lens.lens (\RepositoryBranch' {arn} -> arn) (\s@RepositoryBranch' {} a -> s {arn = a} :: RepositoryBranch)++-- | The repository branch.+repositoryBranch_branch :: Lens.Lens' RepositoryBranch Prelude.Text+repositoryBranch_branch = Lens.lens (\RepositoryBranch' {branch} -> branch) (\s@RepositoryBranch' {} a -> s {branch = a} :: RepositoryBranch)++-- | The repository name.+repositoryBranch_name :: Lens.Lens' RepositoryBranch Prelude.Text+repositoryBranch_name = Lens.lens (\RepositoryBranch' {name} -> name) (\s@RepositoryBranch' {} a -> s {name = a} :: RepositoryBranch)++-- | The repository provider.+repositoryBranch_provider :: Lens.Lens' RepositoryBranch RepositoryProvider+repositoryBranch_provider = Lens.lens (\RepositoryBranch' {provider} -> provider) (\s@RepositoryBranch' {} a -> s {provider = a} :: RepositoryBranch)++instance Data.FromJSON RepositoryBranch where+  parseJSON =+    Data.withObject+      "RepositoryBranch"+      ( \x ->+          RepositoryBranch'+            Prelude.<$> (x Data..: "arn")+            Prelude.<*> (x Data..: "branch")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "provider")+      )++instance Prelude.Hashable RepositoryBranch where+  hashWithSalt _salt RepositoryBranch' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData RepositoryBranch where+  rnf RepositoryBranch' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf branch+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf provider
+ gen/Amazonka/Proton/Types/RepositoryBranchInput.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositoryBranchInput+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositoryBranchInput where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryProvider++-- | Detail input data for a linked repository branch.+--+-- /See:/ 'newRepositoryBranchInput' smart constructor.+data RepositoryBranchInput = RepositoryBranchInput'+  { -- | The repository branch.+    branch :: Prelude.Text,+    -- | The repository name.+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RepositoryBranchInput' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'branch', 'repositoryBranchInput_branch' - The repository branch.+--+-- 'name', 'repositoryBranchInput_name' - The repository name.+--+-- 'provider', 'repositoryBranchInput_provider' - The repository provider.+newRepositoryBranchInput ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  RepositoryBranchInput+newRepositoryBranchInput pBranch_ pName_ pProvider_ =+  RepositoryBranchInput'+    { branch = pBranch_,+      name = pName_,+      provider = pProvider_+    }++-- | The repository branch.+repositoryBranchInput_branch :: Lens.Lens' RepositoryBranchInput Prelude.Text+repositoryBranchInput_branch = Lens.lens (\RepositoryBranchInput' {branch} -> branch) (\s@RepositoryBranchInput' {} a -> s {branch = a} :: RepositoryBranchInput)++-- | The repository name.+repositoryBranchInput_name :: Lens.Lens' RepositoryBranchInput Prelude.Text+repositoryBranchInput_name = Lens.lens (\RepositoryBranchInput' {name} -> name) (\s@RepositoryBranchInput' {} a -> s {name = a} :: RepositoryBranchInput)++-- | The repository provider.+repositoryBranchInput_provider :: Lens.Lens' RepositoryBranchInput RepositoryProvider+repositoryBranchInput_provider = Lens.lens (\RepositoryBranchInput' {provider} -> provider) (\s@RepositoryBranchInput' {} a -> s {provider = a} :: RepositoryBranchInput)++instance Prelude.Hashable RepositoryBranchInput where+  hashWithSalt _salt RepositoryBranchInput' {..} =+    _salt+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData RepositoryBranchInput where+  rnf RepositoryBranchInput' {..} =+    Prelude.rnf branch+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf provider++instance Data.ToJSON RepositoryBranchInput where+  toJSON RepositoryBranchInput' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("branch" Data..= branch),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("provider" Data..= provider)+          ]+      )
+ gen/Amazonka/Proton/Types/RepositoryProvider.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositoryProvider+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositoryProvider+  ( RepositoryProvider+      ( ..,+        RepositoryProvider_BITBUCKET,+        RepositoryProvider_GITHUB,+        RepositoryProvider_GITHUB_ENTERPRISE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RepositoryProvider = RepositoryProvider'+  { fromRepositoryProvider ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RepositoryProvider_BITBUCKET :: RepositoryProvider+pattern RepositoryProvider_BITBUCKET = RepositoryProvider' "BITBUCKET"++pattern RepositoryProvider_GITHUB :: RepositoryProvider+pattern RepositoryProvider_GITHUB = RepositoryProvider' "GITHUB"++pattern RepositoryProvider_GITHUB_ENTERPRISE :: RepositoryProvider+pattern RepositoryProvider_GITHUB_ENTERPRISE = RepositoryProvider' "GITHUB_ENTERPRISE"++{-# COMPLETE+  RepositoryProvider_BITBUCKET,+  RepositoryProvider_GITHUB,+  RepositoryProvider_GITHUB_ENTERPRISE,+  RepositoryProvider'+  #-}
+ gen/Amazonka/Proton/Types/RepositorySummary.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositorySummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositorySummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryProvider++-- | Summary data of a linked repository—a repository that has been+-- registered with Proton.+--+-- /See:/ 'newRepositorySummary' smart constructor.+data RepositorySummary = RepositorySummary'+  { -- | The Amazon Resource Name (ARN) of the linked repository.+    arn :: Prelude.Text,+    -- | The repository name.+    name :: Prelude.Text,+    -- | The repository provider.+    provider :: RepositoryProvider+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RepositorySummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'repositorySummary_arn' - The Amazon Resource Name (ARN) of the linked repository.+--+-- 'name', 'repositorySummary_name' - The repository name.+--+-- 'provider', 'repositorySummary_provider' - The repository provider.+newRepositorySummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'provider'+  RepositoryProvider ->+  RepositorySummary+newRepositorySummary pArn_ pName_ pProvider_ =+  RepositorySummary'+    { arn = pArn_,+      name = pName_,+      provider = pProvider_+    }++-- | The Amazon Resource Name (ARN) of the linked repository.+repositorySummary_arn :: Lens.Lens' RepositorySummary Prelude.Text+repositorySummary_arn = Lens.lens (\RepositorySummary' {arn} -> arn) (\s@RepositorySummary' {} a -> s {arn = a} :: RepositorySummary)++-- | The repository name.+repositorySummary_name :: Lens.Lens' RepositorySummary Prelude.Text+repositorySummary_name = Lens.lens (\RepositorySummary' {name} -> name) (\s@RepositorySummary' {} a -> s {name = a} :: RepositorySummary)++-- | The repository provider.+repositorySummary_provider :: Lens.Lens' RepositorySummary RepositoryProvider+repositorySummary_provider = Lens.lens (\RepositorySummary' {provider} -> provider) (\s@RepositorySummary' {} a -> s {provider = a} :: RepositorySummary)++instance Data.FromJSON RepositorySummary where+  parseJSON =+    Data.withObject+      "RepositorySummary"+      ( \x ->+          RepositorySummary'+            Prelude.<$> (x Data..: "arn")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "provider")+      )++instance Prelude.Hashable RepositorySummary where+  hashWithSalt _salt RepositorySummary' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` provider++instance Prelude.NFData RepositorySummary where+  rnf RepositorySummary' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf provider
+ gen/Amazonka/Proton/Types/RepositorySyncAttempt.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositorySyncAttempt+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositorySyncAttempt where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositorySyncEvent+import Amazonka.Proton.Types.RepositorySyncStatus++-- | Detail data for a repository sync attempt activated by a push to a+-- repository.+--+-- /See:/ 'newRepositorySyncAttempt' smart constructor.+data RepositorySyncAttempt = RepositorySyncAttempt'+  { -- | Detail data for sync attempt events.+    events :: [RepositorySyncEvent],+    -- | The time when the sync attempt started.+    startedAt :: Data.POSIX,+    -- | The sync attempt status.+    status :: RepositorySyncStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RepositorySyncAttempt' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'events', 'repositorySyncAttempt_events' - Detail data for sync attempt events.+--+-- 'startedAt', 'repositorySyncAttempt_startedAt' - The time when the sync attempt started.+--+-- 'status', 'repositorySyncAttempt_status' - The sync attempt status.+newRepositorySyncAttempt ::+  -- | 'startedAt'+  Prelude.UTCTime ->+  -- | 'status'+  RepositorySyncStatus ->+  RepositorySyncAttempt+newRepositorySyncAttempt pStartedAt_ pStatus_ =+  RepositorySyncAttempt'+    { events = Prelude.mempty,+      startedAt = Data._Time Lens.# pStartedAt_,+      status = pStatus_+    }++-- | Detail data for sync attempt events.+repositorySyncAttempt_events :: Lens.Lens' RepositorySyncAttempt [RepositorySyncEvent]+repositorySyncAttempt_events = Lens.lens (\RepositorySyncAttempt' {events} -> events) (\s@RepositorySyncAttempt' {} a -> s {events = a} :: RepositorySyncAttempt) Prelude.. Lens.coerced++-- | The time when the sync attempt started.+repositorySyncAttempt_startedAt :: Lens.Lens' RepositorySyncAttempt Prelude.UTCTime+repositorySyncAttempt_startedAt = Lens.lens (\RepositorySyncAttempt' {startedAt} -> startedAt) (\s@RepositorySyncAttempt' {} a -> s {startedAt = a} :: RepositorySyncAttempt) Prelude.. Data._Time++-- | The sync attempt status.+repositorySyncAttempt_status :: Lens.Lens' RepositorySyncAttempt RepositorySyncStatus+repositorySyncAttempt_status = Lens.lens (\RepositorySyncAttempt' {status} -> status) (\s@RepositorySyncAttempt' {} a -> s {status = a} :: RepositorySyncAttempt)++instance Data.FromJSON RepositorySyncAttempt where+  parseJSON =+    Data.withObject+      "RepositorySyncAttempt"+      ( \x ->+          RepositorySyncAttempt'+            Prelude.<$> (x Data..:? "events" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..: "startedAt")+            Prelude.<*> (x Data..: "status")+      )++instance Prelude.Hashable RepositorySyncAttempt where+  hashWithSalt _salt RepositorySyncAttempt' {..} =+    _salt+      `Prelude.hashWithSalt` events+      `Prelude.hashWithSalt` startedAt+      `Prelude.hashWithSalt` status++instance Prelude.NFData RepositorySyncAttempt where+  rnf RepositorySyncAttempt' {..} =+    Prelude.rnf events+      `Prelude.seq` Prelude.rnf startedAt+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/Proton/Types/RepositorySyncDefinition.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositorySyncDefinition+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositorySyncDefinition where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A repository sync definition.+--+-- /See:/ 'newRepositorySyncDefinition' smart constructor.+data RepositorySyncDefinition = RepositorySyncDefinition'+  { -- | The repository branch.+    branch :: Prelude.Text,+    -- | The directory in the repository.+    directory :: Prelude.Text,+    -- | The resource that is synced from.+    parent :: Prelude.Text,+    -- | The resource that is synced to.+    target :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RepositorySyncDefinition' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'branch', 'repositorySyncDefinition_branch' - The repository branch.+--+-- 'directory', 'repositorySyncDefinition_directory' - The directory in the repository.+--+-- 'parent', 'repositorySyncDefinition_parent' - The resource that is synced from.+--+-- 'target', 'repositorySyncDefinition_target' - The resource that is synced to.+newRepositorySyncDefinition ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'directory'+  Prelude.Text ->+  -- | 'parent'+  Prelude.Text ->+  -- | 'target'+  Prelude.Text ->+  RepositorySyncDefinition+newRepositorySyncDefinition+  pBranch_+  pDirectory_+  pParent_+  pTarget_ =+    RepositorySyncDefinition'+      { branch = pBranch_,+        directory = pDirectory_,+        parent = pParent_,+        target = pTarget_+      }++-- | The repository branch.+repositorySyncDefinition_branch :: Lens.Lens' RepositorySyncDefinition Prelude.Text+repositorySyncDefinition_branch = Lens.lens (\RepositorySyncDefinition' {branch} -> branch) (\s@RepositorySyncDefinition' {} a -> s {branch = a} :: RepositorySyncDefinition)++-- | The directory in the repository.+repositorySyncDefinition_directory :: Lens.Lens' RepositorySyncDefinition Prelude.Text+repositorySyncDefinition_directory = Lens.lens (\RepositorySyncDefinition' {directory} -> directory) (\s@RepositorySyncDefinition' {} a -> s {directory = a} :: RepositorySyncDefinition)++-- | The resource that is synced from.+repositorySyncDefinition_parent :: Lens.Lens' RepositorySyncDefinition Prelude.Text+repositorySyncDefinition_parent = Lens.lens (\RepositorySyncDefinition' {parent} -> parent) (\s@RepositorySyncDefinition' {} a -> s {parent = a} :: RepositorySyncDefinition)++-- | The resource that is synced to.+repositorySyncDefinition_target :: Lens.Lens' RepositorySyncDefinition Prelude.Text+repositorySyncDefinition_target = Lens.lens (\RepositorySyncDefinition' {target} -> target) (\s@RepositorySyncDefinition' {} a -> s {target = a} :: RepositorySyncDefinition)++instance Data.FromJSON RepositorySyncDefinition where+  parseJSON =+    Data.withObject+      "RepositorySyncDefinition"+      ( \x ->+          RepositorySyncDefinition'+            Prelude.<$> (x Data..: "branch")+            Prelude.<*> (x Data..: "directory")+            Prelude.<*> (x Data..: "parent")+            Prelude.<*> (x Data..: "target")+      )++instance Prelude.Hashable RepositorySyncDefinition where+  hashWithSalt _salt RepositorySyncDefinition' {..} =+    _salt+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` directory+      `Prelude.hashWithSalt` parent+      `Prelude.hashWithSalt` target++instance Prelude.NFData RepositorySyncDefinition where+  rnf RepositorySyncDefinition' {..} =+    Prelude.rnf branch+      `Prelude.seq` Prelude.rnf directory+      `Prelude.seq` Prelude.rnf parent+      `Prelude.seq` Prelude.rnf target
+ gen/Amazonka/Proton/Types/RepositorySyncEvent.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositorySyncEvent+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositorySyncEvent where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Repository sync event detail data for a sync attempt.+--+-- /See:/ 'newRepositorySyncEvent' smart constructor.+data RepositorySyncEvent = RepositorySyncEvent'+  { -- | The external ID of the sync event.+    externalId :: Prelude.Maybe Prelude.Text,+    -- | Event detail for a repository sync attempt.+    event :: Prelude.Text,+    -- | The time that the sync event occurred.+    time :: Data.POSIX,+    -- | The type of event.+    type' :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RepositorySyncEvent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'externalId', 'repositorySyncEvent_externalId' - The external ID of the sync event.+--+-- 'event', 'repositorySyncEvent_event' - Event detail for a repository sync attempt.+--+-- 'time', 'repositorySyncEvent_time' - The time that the sync event occurred.+--+-- 'type'', 'repositorySyncEvent_type' - The type of event.+newRepositorySyncEvent ::+  -- | 'event'+  Prelude.Text ->+  -- | 'time'+  Prelude.UTCTime ->+  -- | 'type''+  Prelude.Text ->+  RepositorySyncEvent+newRepositorySyncEvent pEvent_ pTime_ pType_ =+  RepositorySyncEvent'+    { externalId = Prelude.Nothing,+      event = pEvent_,+      time = Data._Time Lens.# pTime_,+      type' = pType_+    }++-- | The external ID of the sync event.+repositorySyncEvent_externalId :: Lens.Lens' RepositorySyncEvent (Prelude.Maybe Prelude.Text)+repositorySyncEvent_externalId = Lens.lens (\RepositorySyncEvent' {externalId} -> externalId) (\s@RepositorySyncEvent' {} a -> s {externalId = a} :: RepositorySyncEvent)++-- | Event detail for a repository sync attempt.+repositorySyncEvent_event :: Lens.Lens' RepositorySyncEvent Prelude.Text+repositorySyncEvent_event = Lens.lens (\RepositorySyncEvent' {event} -> event) (\s@RepositorySyncEvent' {} a -> s {event = a} :: RepositorySyncEvent)++-- | The time that the sync event occurred.+repositorySyncEvent_time :: Lens.Lens' RepositorySyncEvent Prelude.UTCTime+repositorySyncEvent_time = Lens.lens (\RepositorySyncEvent' {time} -> time) (\s@RepositorySyncEvent' {} a -> s {time = a} :: RepositorySyncEvent) Prelude.. Data._Time++-- | The type of event.+repositorySyncEvent_type :: Lens.Lens' RepositorySyncEvent Prelude.Text+repositorySyncEvent_type = Lens.lens (\RepositorySyncEvent' {type'} -> type') (\s@RepositorySyncEvent' {} a -> s {type' = a} :: RepositorySyncEvent)++instance Data.FromJSON RepositorySyncEvent where+  parseJSON =+    Data.withObject+      "RepositorySyncEvent"+      ( \x ->+          RepositorySyncEvent'+            Prelude.<$> (x Data..:? "externalId")+            Prelude.<*> (x Data..: "event")+            Prelude.<*> (x Data..: "time")+            Prelude.<*> (x Data..: "type")+      )++instance Prelude.Hashable RepositorySyncEvent where+  hashWithSalt _salt RepositorySyncEvent' {..} =+    _salt+      `Prelude.hashWithSalt` externalId+      `Prelude.hashWithSalt` event+      `Prelude.hashWithSalt` time+      `Prelude.hashWithSalt` type'++instance Prelude.NFData RepositorySyncEvent where+  rnf RepositorySyncEvent' {..} =+    Prelude.rnf externalId+      `Prelude.seq` Prelude.rnf event+      `Prelude.seq` Prelude.rnf time+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/Proton/Types/RepositorySyncStatus.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.RepositorySyncStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.RepositorySyncStatus+  ( RepositorySyncStatus+      ( ..,+        RepositorySyncStatus_FAILED,+        RepositorySyncStatus_INITIATED,+        RepositorySyncStatus_IN_PROGRESS,+        RepositorySyncStatus_QUEUED,+        RepositorySyncStatus_SUCCEEDED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RepositorySyncStatus = RepositorySyncStatus'+  { fromRepositorySyncStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RepositorySyncStatus_FAILED :: RepositorySyncStatus+pattern RepositorySyncStatus_FAILED = RepositorySyncStatus' "FAILED"++pattern RepositorySyncStatus_INITIATED :: RepositorySyncStatus+pattern RepositorySyncStatus_INITIATED = RepositorySyncStatus' "INITIATED"++pattern RepositorySyncStatus_IN_PROGRESS :: RepositorySyncStatus+pattern RepositorySyncStatus_IN_PROGRESS = RepositorySyncStatus' "IN_PROGRESS"++pattern RepositorySyncStatus_QUEUED :: RepositorySyncStatus+pattern RepositorySyncStatus_QUEUED = RepositorySyncStatus' "QUEUED"++pattern RepositorySyncStatus_SUCCEEDED :: RepositorySyncStatus+pattern RepositorySyncStatus_SUCCEEDED = RepositorySyncStatus' "SUCCEEDED"++{-# COMPLETE+  RepositorySyncStatus_FAILED,+  RepositorySyncStatus_INITIATED,+  RepositorySyncStatus_IN_PROGRESS,+  RepositorySyncStatus_QUEUED,+  RepositorySyncStatus_SUCCEEDED,+  RepositorySyncStatus'+  #-}
+ gen/Amazonka/Proton/Types/ResourceDeploymentStatus.hs view
@@ -0,0 +1,77 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ResourceDeploymentStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ResourceDeploymentStatus+  ( ResourceDeploymentStatus+      ( ..,+        ResourceDeploymentStatus_FAILED,+        ResourceDeploymentStatus_IN_PROGRESS,+        ResourceDeploymentStatus_SUCCEEDED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The state that a PR-based deployment can be updated to.+newtype ResourceDeploymentStatus = ResourceDeploymentStatus'+  { fromResourceDeploymentStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ResourceDeploymentStatus_FAILED :: ResourceDeploymentStatus+pattern ResourceDeploymentStatus_FAILED = ResourceDeploymentStatus' "FAILED"++pattern ResourceDeploymentStatus_IN_PROGRESS :: ResourceDeploymentStatus+pattern ResourceDeploymentStatus_IN_PROGRESS = ResourceDeploymentStatus' "IN_PROGRESS"++pattern ResourceDeploymentStatus_SUCCEEDED :: ResourceDeploymentStatus+pattern ResourceDeploymentStatus_SUCCEEDED = ResourceDeploymentStatus' "SUCCEEDED"++{-# COMPLETE+  ResourceDeploymentStatus_FAILED,+  ResourceDeploymentStatus_IN_PROGRESS,+  ResourceDeploymentStatus_SUCCEEDED,+  ResourceDeploymentStatus'+  #-}
+ gen/Amazonka/Proton/Types/ResourceSyncAttempt.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ResourceSyncAttempt+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ResourceSyncAttempt where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.ResourceSyncEvent+import Amazonka.Proton.Types.ResourceSyncStatus+import Amazonka.Proton.Types.Revision++-- | Detail data for a resource sync attempt activated by a push to a+-- repository.+--+-- /See:/ 'newResourceSyncAttempt' smart constructor.+data ResourceSyncAttempt = ResourceSyncAttempt'+  { -- | An array of events with detail data.+    events :: [ResourceSyncEvent],+    -- | Detail data for the initial repository commit, path and push.+    initialRevision :: Revision,+    -- | The time when the sync attempt started.+    startedAt :: Data.POSIX,+    -- | The status of the sync attempt.+    status :: ResourceSyncStatus,+    -- | The resource that is synced to.+    target :: Prelude.Text,+    -- | Detail data for the target revision.+    targetRevision :: Revision+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResourceSyncAttempt' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'events', 'resourceSyncAttempt_events' - An array of events with detail data.+--+-- 'initialRevision', 'resourceSyncAttempt_initialRevision' - Detail data for the initial repository commit, path and push.+--+-- 'startedAt', 'resourceSyncAttempt_startedAt' - The time when the sync attempt started.+--+-- 'status', 'resourceSyncAttempt_status' - The status of the sync attempt.+--+-- 'target', 'resourceSyncAttempt_target' - The resource that is synced to.+--+-- 'targetRevision', 'resourceSyncAttempt_targetRevision' - Detail data for the target revision.+newResourceSyncAttempt ::+  -- | 'initialRevision'+  Revision ->+  -- | 'startedAt'+  Prelude.UTCTime ->+  -- | 'status'+  ResourceSyncStatus ->+  -- | 'target'+  Prelude.Text ->+  -- | 'targetRevision'+  Revision ->+  ResourceSyncAttempt+newResourceSyncAttempt+  pInitialRevision_+  pStartedAt_+  pStatus_+  pTarget_+  pTargetRevision_ =+    ResourceSyncAttempt'+      { events = Prelude.mempty,+        initialRevision = pInitialRevision_,+        startedAt = Data._Time Lens.# pStartedAt_,+        status = pStatus_,+        target = pTarget_,+        targetRevision = pTargetRevision_+      }++-- | An array of events with detail data.+resourceSyncAttempt_events :: Lens.Lens' ResourceSyncAttempt [ResourceSyncEvent]+resourceSyncAttempt_events = Lens.lens (\ResourceSyncAttempt' {events} -> events) (\s@ResourceSyncAttempt' {} a -> s {events = a} :: ResourceSyncAttempt) Prelude.. Lens.coerced++-- | Detail data for the initial repository commit, path and push.+resourceSyncAttempt_initialRevision :: Lens.Lens' ResourceSyncAttempt Revision+resourceSyncAttempt_initialRevision = Lens.lens (\ResourceSyncAttempt' {initialRevision} -> initialRevision) (\s@ResourceSyncAttempt' {} a -> s {initialRevision = a} :: ResourceSyncAttempt)++-- | The time when the sync attempt started.+resourceSyncAttempt_startedAt :: Lens.Lens' ResourceSyncAttempt Prelude.UTCTime+resourceSyncAttempt_startedAt = Lens.lens (\ResourceSyncAttempt' {startedAt} -> startedAt) (\s@ResourceSyncAttempt' {} a -> s {startedAt = a} :: ResourceSyncAttempt) Prelude.. Data._Time++-- | The status of the sync attempt.+resourceSyncAttempt_status :: Lens.Lens' ResourceSyncAttempt ResourceSyncStatus+resourceSyncAttempt_status = Lens.lens (\ResourceSyncAttempt' {status} -> status) (\s@ResourceSyncAttempt' {} a -> s {status = a} :: ResourceSyncAttempt)++-- | The resource that is synced to.+resourceSyncAttempt_target :: Lens.Lens' ResourceSyncAttempt Prelude.Text+resourceSyncAttempt_target = Lens.lens (\ResourceSyncAttempt' {target} -> target) (\s@ResourceSyncAttempt' {} a -> s {target = a} :: ResourceSyncAttempt)++-- | Detail data for the target revision.+resourceSyncAttempt_targetRevision :: Lens.Lens' ResourceSyncAttempt Revision+resourceSyncAttempt_targetRevision = Lens.lens (\ResourceSyncAttempt' {targetRevision} -> targetRevision) (\s@ResourceSyncAttempt' {} a -> s {targetRevision = a} :: ResourceSyncAttempt)++instance Data.FromJSON ResourceSyncAttempt where+  parseJSON =+    Data.withObject+      "ResourceSyncAttempt"+      ( \x ->+          ResourceSyncAttempt'+            Prelude.<$> (x Data..:? "events" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..: "initialRevision")+            Prelude.<*> (x Data..: "startedAt")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "target")+            Prelude.<*> (x Data..: "targetRevision")+      )++instance Prelude.Hashable ResourceSyncAttempt where+  hashWithSalt _salt ResourceSyncAttempt' {..} =+    _salt+      `Prelude.hashWithSalt` events+      `Prelude.hashWithSalt` initialRevision+      `Prelude.hashWithSalt` startedAt+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` target+      `Prelude.hashWithSalt` targetRevision++instance Prelude.NFData ResourceSyncAttempt where+  rnf ResourceSyncAttempt' {..} =+    Prelude.rnf events+      `Prelude.seq` Prelude.rnf initialRevision+      `Prelude.seq` Prelude.rnf startedAt+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf target+      `Prelude.seq` Prelude.rnf targetRevision
+ gen/Amazonka/Proton/Types/ResourceSyncEvent.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ResourceSyncEvent+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ResourceSyncEvent where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Detail data for a resource sync event.+--+-- /See:/ 'newResourceSyncEvent' smart constructor.+data ResourceSyncEvent = ResourceSyncEvent'+  { -- | The external ID for the event.+    externalId :: Prelude.Maybe Prelude.Text,+    -- | A resource sync event.+    event :: Prelude.Text,+    -- | The time when the event occurred.+    time :: Data.POSIX,+    -- | The type of event.+    type' :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResourceSyncEvent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'externalId', 'resourceSyncEvent_externalId' - The external ID for the event.+--+-- 'event', 'resourceSyncEvent_event' - A resource sync event.+--+-- 'time', 'resourceSyncEvent_time' - The time when the event occurred.+--+-- 'type'', 'resourceSyncEvent_type' - The type of event.+newResourceSyncEvent ::+  -- | 'event'+  Prelude.Text ->+  -- | 'time'+  Prelude.UTCTime ->+  -- | 'type''+  Prelude.Text ->+  ResourceSyncEvent+newResourceSyncEvent pEvent_ pTime_ pType_ =+  ResourceSyncEvent'+    { externalId = Prelude.Nothing,+      event = pEvent_,+      time = Data._Time Lens.# pTime_,+      type' = pType_+    }++-- | The external ID for the event.+resourceSyncEvent_externalId :: Lens.Lens' ResourceSyncEvent (Prelude.Maybe Prelude.Text)+resourceSyncEvent_externalId = Lens.lens (\ResourceSyncEvent' {externalId} -> externalId) (\s@ResourceSyncEvent' {} a -> s {externalId = a} :: ResourceSyncEvent)++-- | A resource sync event.+resourceSyncEvent_event :: Lens.Lens' ResourceSyncEvent Prelude.Text+resourceSyncEvent_event = Lens.lens (\ResourceSyncEvent' {event} -> event) (\s@ResourceSyncEvent' {} a -> s {event = a} :: ResourceSyncEvent)++-- | The time when the event occurred.+resourceSyncEvent_time :: Lens.Lens' ResourceSyncEvent Prelude.UTCTime+resourceSyncEvent_time = Lens.lens (\ResourceSyncEvent' {time} -> time) (\s@ResourceSyncEvent' {} a -> s {time = a} :: ResourceSyncEvent) Prelude.. Data._Time++-- | The type of event.+resourceSyncEvent_type :: Lens.Lens' ResourceSyncEvent Prelude.Text+resourceSyncEvent_type = Lens.lens (\ResourceSyncEvent' {type'} -> type') (\s@ResourceSyncEvent' {} a -> s {type' = a} :: ResourceSyncEvent)++instance Data.FromJSON ResourceSyncEvent where+  parseJSON =+    Data.withObject+      "ResourceSyncEvent"+      ( \x ->+          ResourceSyncEvent'+            Prelude.<$> (x Data..:? "externalId")+            Prelude.<*> (x Data..: "event")+            Prelude.<*> (x Data..: "time")+            Prelude.<*> (x Data..: "type")+      )++instance Prelude.Hashable ResourceSyncEvent where+  hashWithSalt _salt ResourceSyncEvent' {..} =+    _salt+      `Prelude.hashWithSalt` externalId+      `Prelude.hashWithSalt` event+      `Prelude.hashWithSalt` time+      `Prelude.hashWithSalt` type'++instance Prelude.NFData ResourceSyncEvent where+  rnf ResourceSyncEvent' {..} =+    Prelude.rnf externalId+      `Prelude.seq` Prelude.rnf event+      `Prelude.seq` Prelude.rnf time+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/Proton/Types/ResourceSyncStatus.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ResourceSyncStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ResourceSyncStatus+  ( ResourceSyncStatus+      ( ..,+        ResourceSyncStatus_FAILED,+        ResourceSyncStatus_INITIATED,+        ResourceSyncStatus_IN_PROGRESS,+        ResourceSyncStatus_SUCCEEDED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ResourceSyncStatus = ResourceSyncStatus'+  { fromResourceSyncStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ResourceSyncStatus_FAILED :: ResourceSyncStatus+pattern ResourceSyncStatus_FAILED = ResourceSyncStatus' "FAILED"++pattern ResourceSyncStatus_INITIATED :: ResourceSyncStatus+pattern ResourceSyncStatus_INITIATED = ResourceSyncStatus' "INITIATED"++pattern ResourceSyncStatus_IN_PROGRESS :: ResourceSyncStatus+pattern ResourceSyncStatus_IN_PROGRESS = ResourceSyncStatus' "IN_PROGRESS"++pattern ResourceSyncStatus_SUCCEEDED :: ResourceSyncStatus+pattern ResourceSyncStatus_SUCCEEDED = ResourceSyncStatus' "SUCCEEDED"++{-# COMPLETE+  ResourceSyncStatus_FAILED,+  ResourceSyncStatus_INITIATED,+  ResourceSyncStatus_IN_PROGRESS,+  ResourceSyncStatus_SUCCEEDED,+  ResourceSyncStatus'+  #-}
+ gen/Amazonka/Proton/Types/Revision.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Revision+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Revision where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryProvider++-- | Revision detail data for a commit and push that activates a sync attempt+--+-- /See:/ 'newRevision' smart constructor.+data Revision = Revision'+  { -- | The repository branch.+    branch :: Prelude.Text,+    -- | The repository directory changed by a commit and push that activated the+    -- sync attempt.+    directory :: Prelude.Text,+    -- | The repository name.+    repositoryName :: Prelude.Text,+    -- | The repository provider.+    repositoryProvider :: RepositoryProvider,+    -- | The secure hash algorithm (SHA) hash for the revision.+    sha :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Revision' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'branch', 'revision_branch' - The repository branch.+--+-- 'directory', 'revision_directory' - The repository directory changed by a commit and push that activated the+-- sync attempt.+--+-- 'repositoryName', 'revision_repositoryName' - The repository name.+--+-- 'repositoryProvider', 'revision_repositoryProvider' - The repository provider.+--+-- 'sha', 'revision_sha' - The secure hash algorithm (SHA) hash for the revision.+newRevision ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'directory'+  Prelude.Text ->+  -- | 'repositoryName'+  Prelude.Text ->+  -- | 'repositoryProvider'+  RepositoryProvider ->+  -- | 'sha'+  Prelude.Text ->+  Revision+newRevision+  pBranch_+  pDirectory_+  pRepositoryName_+  pRepositoryProvider_+  pSha_ =+    Revision'+      { branch = pBranch_,+        directory = pDirectory_,+        repositoryName = pRepositoryName_,+        repositoryProvider = pRepositoryProvider_,+        sha = pSha_+      }++-- | The repository branch.+revision_branch :: Lens.Lens' Revision Prelude.Text+revision_branch = Lens.lens (\Revision' {branch} -> branch) (\s@Revision' {} a -> s {branch = a} :: Revision)++-- | The repository directory changed by a commit and push that activated the+-- sync attempt.+revision_directory :: Lens.Lens' Revision Prelude.Text+revision_directory = Lens.lens (\Revision' {directory} -> directory) (\s@Revision' {} a -> s {directory = a} :: Revision)++-- | The repository name.+revision_repositoryName :: Lens.Lens' Revision Prelude.Text+revision_repositoryName = Lens.lens (\Revision' {repositoryName} -> repositoryName) (\s@Revision' {} a -> s {repositoryName = a} :: Revision)++-- | The repository provider.+revision_repositoryProvider :: Lens.Lens' Revision RepositoryProvider+revision_repositoryProvider = Lens.lens (\Revision' {repositoryProvider} -> repositoryProvider) (\s@Revision' {} a -> s {repositoryProvider = a} :: Revision)++-- | The secure hash algorithm (SHA) hash for the revision.+revision_sha :: Lens.Lens' Revision Prelude.Text+revision_sha = Lens.lens (\Revision' {sha} -> sha) (\s@Revision' {} a -> s {sha = a} :: Revision)++instance Data.FromJSON Revision where+  parseJSON =+    Data.withObject+      "Revision"+      ( \x ->+          Revision'+            Prelude.<$> (x Data..: "branch")+            Prelude.<*> (x Data..: "directory")+            Prelude.<*> (x Data..: "repositoryName")+            Prelude.<*> (x Data..: "repositoryProvider")+            Prelude.<*> (x Data..: "sha")+      )++instance Prelude.Hashable Revision where+  hashWithSalt _salt Revision' {..} =+    _salt+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` directory+      `Prelude.hashWithSalt` repositoryName+      `Prelude.hashWithSalt` repositoryProvider+      `Prelude.hashWithSalt` sha++instance Prelude.NFData Revision where+  rnf Revision' {..} =+    Prelude.rnf branch+      `Prelude.seq` Prelude.rnf directory+      `Prelude.seq` Prelude.rnf repositoryName+      `Prelude.seq` Prelude.rnf repositoryProvider+      `Prelude.seq` Prelude.rnf sha
+ gen/Amazonka/Proton/Types/S3ObjectSource.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.S3ObjectSource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.S3ObjectSource where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Template bundle S3 bucket data.+--+-- /See:/ 'newS3ObjectSource' smart constructor.+data S3ObjectSource = S3ObjectSource'+  { -- | The name of the S3 bucket that contains a template bundle.+    bucket :: Prelude.Text,+    -- | The path to the S3 bucket that contains a template bundle.+    key :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'S3ObjectSource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'bucket', 's3ObjectSource_bucket' - The name of the S3 bucket that contains a template bundle.+--+-- 'key', 's3ObjectSource_key' - The path to the S3 bucket that contains a template bundle.+newS3ObjectSource ::+  -- | 'bucket'+  Prelude.Text ->+  -- | 'key'+  Prelude.Text ->+  S3ObjectSource+newS3ObjectSource pBucket_ pKey_ =+  S3ObjectSource' {bucket = pBucket_, key = pKey_}++-- | The name of the S3 bucket that contains a template bundle.+s3ObjectSource_bucket :: Lens.Lens' S3ObjectSource Prelude.Text+s3ObjectSource_bucket = Lens.lens (\S3ObjectSource' {bucket} -> bucket) (\s@S3ObjectSource' {} a -> s {bucket = a} :: S3ObjectSource)++-- | The path to the S3 bucket that contains a template bundle.+s3ObjectSource_key :: Lens.Lens' S3ObjectSource Prelude.Text+s3ObjectSource_key = Lens.lens (\S3ObjectSource' {key} -> key) (\s@S3ObjectSource' {} a -> s {key = a} :: S3ObjectSource)++instance Prelude.Hashable S3ObjectSource where+  hashWithSalt _salt S3ObjectSource' {..} =+    _salt+      `Prelude.hashWithSalt` bucket+      `Prelude.hashWithSalt` key++instance Prelude.NFData S3ObjectSource where+  rnf S3ObjectSource' {..} =+    Prelude.rnf bucket `Prelude.seq` Prelude.rnf key++instance Data.ToJSON S3ObjectSource where+  toJSON S3ObjectSource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("bucket" Data..= bucket),+            Prelude.Just ("key" Data..= key)+          ]+      )
+ gen/Amazonka/Proton/Types/Service.hs view
@@ -0,0 +1,251 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Service+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Service where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.ServicePipeline+import Amazonka.Proton.Types.ServiceStatus++-- | Detailed data of an Proton service resource.+--+-- /See:/ 'newService' smart constructor.+data Service = Service'+  { -- | The name of the code repository branch that holds the code that\'s+    -- deployed in Proton.+    branchName :: Prelude.Maybe Prelude.Text,+    -- | A description of the service.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The service pipeline detail data.+    pipeline :: Prelude.Maybe ServicePipeline,+    -- | The Amazon Resource Name (ARN) of the repository connection. For more+    -- information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html#setting-up-vcontrol Setting up an AWS CodeStar connection>+    -- in the /Proton User Guide/.+    repositoryConnectionArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the source code repository.+    repositoryId :: Prelude.Maybe Prelude.Text,+    -- | A service status message.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the service.+    arn :: Prelude.Text,+    -- | The time when the service was created.+    createdAt :: Data.POSIX,+    -- | The time when the service was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the service.+    name :: Prelude.Text,+    -- | The formatted specification that defines the service.+    spec :: Data.Sensitive Prelude.Text,+    -- | The status of the service.+    status :: ServiceStatus,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Service' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'branchName', 'service_branchName' - The name of the code repository branch that holds the code that\'s+-- deployed in Proton.+--+-- 'description', 'service_description' - A description of the service.+--+-- 'pipeline', 'service_pipeline' - The service pipeline detail data.+--+-- 'repositoryConnectionArn', 'service_repositoryConnectionArn' - The Amazon Resource Name (ARN) of the repository connection. For more+-- information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html#setting-up-vcontrol Setting up an AWS CodeStar connection>+-- in the /Proton User Guide/.+--+-- 'repositoryId', 'service_repositoryId' - The ID of the source code repository.+--+-- 'statusMessage', 'service_statusMessage' - A service status message.+--+-- 'arn', 'service_arn' - The Amazon Resource Name (ARN) of the service.+--+-- 'createdAt', 'service_createdAt' - The time when the service was created.+--+-- 'lastModifiedAt', 'service_lastModifiedAt' - The time when the service was last modified.+--+-- 'name', 'service_name' - The name of the service.+--+-- 'spec', 'service_spec' - The formatted specification that defines the service.+--+-- 'status', 'service_status' - The status of the service.+--+-- 'templateName', 'service_templateName' - The name of the service template.+newService ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  -- | 'spec'+  Prelude.Text ->+  -- | 'status'+  ServiceStatus ->+  -- | 'templateName'+  Prelude.Text ->+  Service+newService+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pName_+  pSpec_+  pStatus_+  pTemplateName_ =+    Service'+      { branchName = Prelude.Nothing,+        description = Prelude.Nothing,+        pipeline = Prelude.Nothing,+        repositoryConnectionArn = Prelude.Nothing,+        repositoryId = Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_,+        spec = Data._Sensitive Lens.# pSpec_,+        status = pStatus_,+        templateName = pTemplateName_+      }++-- | The name of the code repository branch that holds the code that\'s+-- deployed in Proton.+service_branchName :: Lens.Lens' Service (Prelude.Maybe Prelude.Text)+service_branchName = Lens.lens (\Service' {branchName} -> branchName) (\s@Service' {} a -> s {branchName = a} :: Service)++-- | A description of the service.+service_description :: Lens.Lens' Service (Prelude.Maybe Prelude.Text)+service_description = Lens.lens (\Service' {description} -> description) (\s@Service' {} a -> s {description = a} :: Service) Prelude.. Lens.mapping Data._Sensitive++-- | The service pipeline detail data.+service_pipeline :: Lens.Lens' Service (Prelude.Maybe ServicePipeline)+service_pipeline = Lens.lens (\Service' {pipeline} -> pipeline) (\s@Service' {} a -> s {pipeline = a} :: Service)++-- | The Amazon Resource Name (ARN) of the repository connection. For more+-- information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/setting-up-for-service.html#setting-up-vcontrol Setting up an AWS CodeStar connection>+-- in the /Proton User Guide/.+service_repositoryConnectionArn :: Lens.Lens' Service (Prelude.Maybe Prelude.Text)+service_repositoryConnectionArn = Lens.lens (\Service' {repositoryConnectionArn} -> repositoryConnectionArn) (\s@Service' {} a -> s {repositoryConnectionArn = a} :: Service)++-- | The ID of the source code repository.+service_repositoryId :: Lens.Lens' Service (Prelude.Maybe Prelude.Text)+service_repositoryId = Lens.lens (\Service' {repositoryId} -> repositoryId) (\s@Service' {} a -> s {repositoryId = a} :: Service)++-- | A service status message.+service_statusMessage :: Lens.Lens' Service (Prelude.Maybe Prelude.Text)+service_statusMessage = Lens.lens (\Service' {statusMessage} -> statusMessage) (\s@Service' {} a -> s {statusMessage = a} :: Service) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the service.+service_arn :: Lens.Lens' Service Prelude.Text+service_arn = Lens.lens (\Service' {arn} -> arn) (\s@Service' {} a -> s {arn = a} :: Service)++-- | The time when the service was created.+service_createdAt :: Lens.Lens' Service Prelude.UTCTime+service_createdAt = Lens.lens (\Service' {createdAt} -> createdAt) (\s@Service' {} a -> s {createdAt = a} :: Service) Prelude.. Data._Time++-- | The time when the service was last modified.+service_lastModifiedAt :: Lens.Lens' Service Prelude.UTCTime+service_lastModifiedAt = Lens.lens (\Service' {lastModifiedAt} -> lastModifiedAt) (\s@Service' {} a -> s {lastModifiedAt = a} :: Service) Prelude.. Data._Time++-- | The name of the service.+service_name :: Lens.Lens' Service Prelude.Text+service_name = Lens.lens (\Service' {name} -> name) (\s@Service' {} a -> s {name = a} :: Service)++-- | The formatted specification that defines the service.+service_spec :: Lens.Lens' Service Prelude.Text+service_spec = Lens.lens (\Service' {spec} -> spec) (\s@Service' {} a -> s {spec = a} :: Service) Prelude.. Data._Sensitive++-- | The status of the service.+service_status :: Lens.Lens' Service ServiceStatus+service_status = Lens.lens (\Service' {status} -> status) (\s@Service' {} a -> s {status = a} :: Service)++-- | The name of the service template.+service_templateName :: Lens.Lens' Service Prelude.Text+service_templateName = Lens.lens (\Service' {templateName} -> templateName) (\s@Service' {} a -> s {templateName = a} :: Service)++instance Data.FromJSON Service where+  parseJSON =+    Data.withObject+      "Service"+      ( \x ->+          Service'+            Prelude.<$> (x Data..:? "branchName")+            Prelude.<*> (x Data..:? "description")+            Prelude.<*> (x Data..:? "pipeline")+            Prelude.<*> (x Data..:? "repositoryConnectionArn")+            Prelude.<*> (x Data..:? "repositoryId")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "spec")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable Service where+  hashWithSalt _salt Service' {..} =+    _salt+      `Prelude.hashWithSalt` branchName+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` pipeline+      `Prelude.hashWithSalt` repositoryConnectionArn+      `Prelude.hashWithSalt` repositoryId+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData Service where+  rnf Service' {..} =+    Prelude.rnf branchName+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf pipeline+      `Prelude.seq` Prelude.rnf repositoryConnectionArn+      `Prelude.seq` Prelude.rnf repositoryId+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ServiceInstance.hs view
@@ -0,0 +1,262 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceInstance where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus++-- | Detailed data of an Proton service instance resource.+--+-- /See:/ 'newServiceInstance' smart constructor.+data ServiceInstance = ServiceInstance'+  { -- | The message associated with the service instance deployment status.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The service spec that was used to create the service instance.+    spec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the service instance.+    arn :: Prelude.Text,+    -- | The time when the service instance was created.+    createdAt :: Data.POSIX,+    -- | The service instance deployment status.+    deploymentStatus :: DeploymentStatus,+    -- | The name of the environment that the service instance was deployed into.+    environmentName :: Prelude.Text,+    -- | The time when a deployment of the service instance was last attempted.+    lastDeploymentAttemptedAt :: Data.POSIX,+    -- | The time when the service instance was last deployed successfully.+    lastDeploymentSucceededAt :: Data.POSIX,+    -- | The name of the service instance.+    name :: Prelude.Text,+    -- | The name of the service that the service instance belongs to.+    serviceName :: Prelude.Text,+    -- | The major version of the service template that was used to create the+    -- service instance.+    templateMajorVersion :: Prelude.Text,+    -- | The minor version of the service template that was used to create the+    -- service instance.+    templateMinorVersion :: Prelude.Text,+    -- | The name of the service template that was used to create the service+    -- instance.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceInstance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deploymentStatusMessage', 'serviceInstance_deploymentStatusMessage' - The message associated with the service instance deployment status.+--+-- 'spec', 'serviceInstance_spec' - The service spec that was used to create the service instance.+--+-- 'arn', 'serviceInstance_arn' - The Amazon Resource Name (ARN) of the service instance.+--+-- 'createdAt', 'serviceInstance_createdAt' - The time when the service instance was created.+--+-- 'deploymentStatus', 'serviceInstance_deploymentStatus' - The service instance deployment status.+--+-- 'environmentName', 'serviceInstance_environmentName' - The name of the environment that the service instance was deployed into.+--+-- 'lastDeploymentAttemptedAt', 'serviceInstance_lastDeploymentAttemptedAt' - The time when a deployment of the service instance was last attempted.+--+-- 'lastDeploymentSucceededAt', 'serviceInstance_lastDeploymentSucceededAt' - The time when the service instance was last deployed successfully.+--+-- 'name', 'serviceInstance_name' - The name of the service instance.+--+-- 'serviceName', 'serviceInstance_serviceName' - The name of the service that the service instance belongs to.+--+-- 'templateMajorVersion', 'serviceInstance_templateMajorVersion' - The major version of the service template that was used to create the+-- service instance.+--+-- 'templateMinorVersion', 'serviceInstance_templateMinorVersion' - The minor version of the service template that was used to create the+-- service instance.+--+-- 'templateName', 'serviceInstance_templateName' - The name of the service template that was used to create the service+-- instance.+newServiceInstance ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'lastDeploymentAttemptedAt'+  Prelude.UTCTime ->+  -- | 'lastDeploymentSucceededAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateMinorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  ServiceInstance+newServiceInstance+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pEnvironmentName_+  pLastDeploymentAttemptedAt_+  pLastDeploymentSucceededAt_+  pName_+  pServiceName_+  pTemplateMajorVersion_+  pTemplateMinorVersion_+  pTemplateName_ =+    ServiceInstance'+      { deploymentStatusMessage =+          Prelude.Nothing,+        spec = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        environmentName = pEnvironmentName_,+        lastDeploymentAttemptedAt =+          Data._Time Lens.# pLastDeploymentAttemptedAt_,+        lastDeploymentSucceededAt =+          Data._Time Lens.# pLastDeploymentSucceededAt_,+        name = pName_,+        serviceName = pServiceName_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateMinorVersion = pTemplateMinorVersion_,+        templateName = pTemplateName_+      }++-- | The message associated with the service instance deployment status.+serviceInstance_deploymentStatusMessage :: Lens.Lens' ServiceInstance (Prelude.Maybe Prelude.Text)+serviceInstance_deploymentStatusMessage = Lens.lens (\ServiceInstance' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@ServiceInstance' {} a -> s {deploymentStatusMessage = a} :: ServiceInstance) Prelude.. Lens.mapping Data._Sensitive++-- | The service spec that was used to create the service instance.+serviceInstance_spec :: Lens.Lens' ServiceInstance (Prelude.Maybe Prelude.Text)+serviceInstance_spec = Lens.lens (\ServiceInstance' {spec} -> spec) (\s@ServiceInstance' {} a -> s {spec = a} :: ServiceInstance) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the service instance.+serviceInstance_arn :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_arn = Lens.lens (\ServiceInstance' {arn} -> arn) (\s@ServiceInstance' {} a -> s {arn = a} :: ServiceInstance)++-- | The time when the service instance was created.+serviceInstance_createdAt :: Lens.Lens' ServiceInstance Prelude.UTCTime+serviceInstance_createdAt = Lens.lens (\ServiceInstance' {createdAt} -> createdAt) (\s@ServiceInstance' {} a -> s {createdAt = a} :: ServiceInstance) Prelude.. Data._Time++-- | The service instance deployment status.+serviceInstance_deploymentStatus :: Lens.Lens' ServiceInstance DeploymentStatus+serviceInstance_deploymentStatus = Lens.lens (\ServiceInstance' {deploymentStatus} -> deploymentStatus) (\s@ServiceInstance' {} a -> s {deploymentStatus = a} :: ServiceInstance)++-- | The name of the environment that the service instance was deployed into.+serviceInstance_environmentName :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_environmentName = Lens.lens (\ServiceInstance' {environmentName} -> environmentName) (\s@ServiceInstance' {} a -> s {environmentName = a} :: ServiceInstance)++-- | The time when a deployment of the service instance was last attempted.+serviceInstance_lastDeploymentAttemptedAt :: Lens.Lens' ServiceInstance Prelude.UTCTime+serviceInstance_lastDeploymentAttemptedAt = Lens.lens (\ServiceInstance' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@ServiceInstance' {} a -> s {lastDeploymentAttemptedAt = a} :: ServiceInstance) Prelude.. Data._Time++-- | The time when the service instance was last deployed successfully.+serviceInstance_lastDeploymentSucceededAt :: Lens.Lens' ServiceInstance Prelude.UTCTime+serviceInstance_lastDeploymentSucceededAt = Lens.lens (\ServiceInstance' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@ServiceInstance' {} a -> s {lastDeploymentSucceededAt = a} :: ServiceInstance) Prelude.. Data._Time++-- | The name of the service instance.+serviceInstance_name :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_name = Lens.lens (\ServiceInstance' {name} -> name) (\s@ServiceInstance' {} a -> s {name = a} :: ServiceInstance)++-- | The name of the service that the service instance belongs to.+serviceInstance_serviceName :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_serviceName = Lens.lens (\ServiceInstance' {serviceName} -> serviceName) (\s@ServiceInstance' {} a -> s {serviceName = a} :: ServiceInstance)++-- | The major version of the service template that was used to create the+-- service instance.+serviceInstance_templateMajorVersion :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_templateMajorVersion = Lens.lens (\ServiceInstance' {templateMajorVersion} -> templateMajorVersion) (\s@ServiceInstance' {} a -> s {templateMajorVersion = a} :: ServiceInstance)++-- | The minor version of the service template that was used to create the+-- service instance.+serviceInstance_templateMinorVersion :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_templateMinorVersion = Lens.lens (\ServiceInstance' {templateMinorVersion} -> templateMinorVersion) (\s@ServiceInstance' {} a -> s {templateMinorVersion = a} :: ServiceInstance)++-- | The name of the service template that was used to create the service+-- instance.+serviceInstance_templateName :: Lens.Lens' ServiceInstance Prelude.Text+serviceInstance_templateName = Lens.lens (\ServiceInstance' {templateName} -> templateName) (\s@ServiceInstance' {} a -> s {templateName = a} :: ServiceInstance)++instance Data.FromJSON ServiceInstance where+  parseJSON =+    Data.withObject+      "ServiceInstance"+      ( \x ->+          ServiceInstance'+            Prelude.<$> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..:? "spec")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "environmentName")+            Prelude.<*> (x Data..: "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..: "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "serviceName")+            Prelude.<*> (x Data..: "templateMajorVersion")+            Prelude.<*> (x Data..: "templateMinorVersion")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable ServiceInstance where+  hashWithSalt _salt ServiceInstance' {..} =+    _salt+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ServiceInstance where+  rnf ServiceInstance' {..} =+    Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ServiceInstanceSummary.hs view
@@ -0,0 +1,241 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceInstanceSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceInstanceSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus++-- | Summary data of an Proton service instance resource.+--+-- /See:/ 'newServiceInstanceSummary' smart constructor.+data ServiceInstanceSummary = ServiceInstanceSummary'+  { -- | A service instance deployment status message.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the service instance.+    arn :: Prelude.Text,+    -- | The time when the service instance was created.+    createdAt :: Data.POSIX,+    -- | The service instance deployment status.+    deploymentStatus :: DeploymentStatus,+    -- | The name of the environment that the service instance was deployed into.+    environmentName :: Prelude.Text,+    -- | The time when a deployment of the service was last attempted.+    lastDeploymentAttemptedAt :: Data.POSIX,+    -- | The time when the service was last deployed successfully.+    lastDeploymentSucceededAt :: Data.POSIX,+    -- | The name of the service instance.+    name :: Prelude.Text,+    -- | The name of the service that the service instance belongs to.+    serviceName :: Prelude.Text,+    -- | The service instance template major version.+    templateMajorVersion :: Prelude.Text,+    -- | The service instance template minor version.+    templateMinorVersion :: Prelude.Text,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceInstanceSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deploymentStatusMessage', 'serviceInstanceSummary_deploymentStatusMessage' - A service instance deployment status message.+--+-- 'arn', 'serviceInstanceSummary_arn' - The Amazon Resource Name (ARN) of the service instance.+--+-- 'createdAt', 'serviceInstanceSummary_createdAt' - The time when the service instance was created.+--+-- 'deploymentStatus', 'serviceInstanceSummary_deploymentStatus' - The service instance deployment status.+--+-- 'environmentName', 'serviceInstanceSummary_environmentName' - The name of the environment that the service instance was deployed into.+--+-- 'lastDeploymentAttemptedAt', 'serviceInstanceSummary_lastDeploymentAttemptedAt' - The time when a deployment of the service was last attempted.+--+-- 'lastDeploymentSucceededAt', 'serviceInstanceSummary_lastDeploymentSucceededAt' - The time when the service was last deployed successfully.+--+-- 'name', 'serviceInstanceSummary_name' - The name of the service instance.+--+-- 'serviceName', 'serviceInstanceSummary_serviceName' - The name of the service that the service instance belongs to.+--+-- 'templateMajorVersion', 'serviceInstanceSummary_templateMajorVersion' - The service instance template major version.+--+-- 'templateMinorVersion', 'serviceInstanceSummary_templateMinorVersion' - The service instance template minor version.+--+-- 'templateName', 'serviceInstanceSummary_templateName' - The name of the service template.+newServiceInstanceSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'environmentName'+  Prelude.Text ->+  -- | 'lastDeploymentAttemptedAt'+  Prelude.UTCTime ->+  -- | 'lastDeploymentSucceededAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateMinorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  ServiceInstanceSummary+newServiceInstanceSummary+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pEnvironmentName_+  pLastDeploymentAttemptedAt_+  pLastDeploymentSucceededAt_+  pName_+  pServiceName_+  pTemplateMajorVersion_+  pTemplateMinorVersion_+  pTemplateName_ =+    ServiceInstanceSummary'+      { deploymentStatusMessage =+          Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        environmentName = pEnvironmentName_,+        lastDeploymentAttemptedAt =+          Data._Time Lens.# pLastDeploymentAttemptedAt_,+        lastDeploymentSucceededAt =+          Data._Time Lens.# pLastDeploymentSucceededAt_,+        name = pName_,+        serviceName = pServiceName_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateMinorVersion = pTemplateMinorVersion_,+        templateName = pTemplateName_+      }++-- | A service instance deployment status message.+serviceInstanceSummary_deploymentStatusMessage :: Lens.Lens' ServiceInstanceSummary (Prelude.Maybe Prelude.Text)+serviceInstanceSummary_deploymentStatusMessage = Lens.lens (\ServiceInstanceSummary' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@ServiceInstanceSummary' {} a -> s {deploymentStatusMessage = a} :: ServiceInstanceSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the service instance.+serviceInstanceSummary_arn :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_arn = Lens.lens (\ServiceInstanceSummary' {arn} -> arn) (\s@ServiceInstanceSummary' {} a -> s {arn = a} :: ServiceInstanceSummary)++-- | The time when the service instance was created.+serviceInstanceSummary_createdAt :: Lens.Lens' ServiceInstanceSummary Prelude.UTCTime+serviceInstanceSummary_createdAt = Lens.lens (\ServiceInstanceSummary' {createdAt} -> createdAt) (\s@ServiceInstanceSummary' {} a -> s {createdAt = a} :: ServiceInstanceSummary) Prelude.. Data._Time++-- | The service instance deployment status.+serviceInstanceSummary_deploymentStatus :: Lens.Lens' ServiceInstanceSummary DeploymentStatus+serviceInstanceSummary_deploymentStatus = Lens.lens (\ServiceInstanceSummary' {deploymentStatus} -> deploymentStatus) (\s@ServiceInstanceSummary' {} a -> s {deploymentStatus = a} :: ServiceInstanceSummary)++-- | The name of the environment that the service instance was deployed into.+serviceInstanceSummary_environmentName :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_environmentName = Lens.lens (\ServiceInstanceSummary' {environmentName} -> environmentName) (\s@ServiceInstanceSummary' {} a -> s {environmentName = a} :: ServiceInstanceSummary)++-- | The time when a deployment of the service was last attempted.+serviceInstanceSummary_lastDeploymentAttemptedAt :: Lens.Lens' ServiceInstanceSummary Prelude.UTCTime+serviceInstanceSummary_lastDeploymentAttemptedAt = Lens.lens (\ServiceInstanceSummary' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@ServiceInstanceSummary' {} a -> s {lastDeploymentAttemptedAt = a} :: ServiceInstanceSummary) Prelude.. Data._Time++-- | The time when the service was last deployed successfully.+serviceInstanceSummary_lastDeploymentSucceededAt :: Lens.Lens' ServiceInstanceSummary Prelude.UTCTime+serviceInstanceSummary_lastDeploymentSucceededAt = Lens.lens (\ServiceInstanceSummary' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@ServiceInstanceSummary' {} a -> s {lastDeploymentSucceededAt = a} :: ServiceInstanceSummary) Prelude.. Data._Time++-- | The name of the service instance.+serviceInstanceSummary_name :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_name = Lens.lens (\ServiceInstanceSummary' {name} -> name) (\s@ServiceInstanceSummary' {} a -> s {name = a} :: ServiceInstanceSummary)++-- | The name of the service that the service instance belongs to.+serviceInstanceSummary_serviceName :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_serviceName = Lens.lens (\ServiceInstanceSummary' {serviceName} -> serviceName) (\s@ServiceInstanceSummary' {} a -> s {serviceName = a} :: ServiceInstanceSummary)++-- | The service instance template major version.+serviceInstanceSummary_templateMajorVersion :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_templateMajorVersion = Lens.lens (\ServiceInstanceSummary' {templateMajorVersion} -> templateMajorVersion) (\s@ServiceInstanceSummary' {} a -> s {templateMajorVersion = a} :: ServiceInstanceSummary)++-- | The service instance template minor version.+serviceInstanceSummary_templateMinorVersion :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_templateMinorVersion = Lens.lens (\ServiceInstanceSummary' {templateMinorVersion} -> templateMinorVersion) (\s@ServiceInstanceSummary' {} a -> s {templateMinorVersion = a} :: ServiceInstanceSummary)++-- | The name of the service template.+serviceInstanceSummary_templateName :: Lens.Lens' ServiceInstanceSummary Prelude.Text+serviceInstanceSummary_templateName = Lens.lens (\ServiceInstanceSummary' {templateName} -> templateName) (\s@ServiceInstanceSummary' {} a -> s {templateName = a} :: ServiceInstanceSummary)++instance Data.FromJSON ServiceInstanceSummary where+  parseJSON =+    Data.withObject+      "ServiceInstanceSummary"+      ( \x ->+          ServiceInstanceSummary'+            Prelude.<$> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "environmentName")+            Prelude.<*> (x Data..: "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..: "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "serviceName")+            Prelude.<*> (x Data..: "templateMajorVersion")+            Prelude.<*> (x Data..: "templateMinorVersion")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable ServiceInstanceSummary where+  hashWithSalt _salt ServiceInstanceSummary' {..} =+    _salt+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` environmentName+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ServiceInstanceSummary where+  rnf ServiceInstanceSummary' {..} =+    Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf environmentName+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ServicePipeline.hs view
@@ -0,0 +1,217 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServicePipeline+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServicePipeline where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.DeploymentStatus++-- | Detailed data of an Proton service instance pipeline resource.+--+-- /See:/ 'newServicePipeline' smart constructor.+data ServicePipeline = ServicePipeline'+  { -- | A service pipeline deployment status message.+    deploymentStatusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The service spec that was used to create the service pipeline.+    spec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the service pipeline.+    arn :: Prelude.Text,+    -- | The time when the service pipeline was created.+    createdAt :: Data.POSIX,+    -- | The deployment status of the service pipeline.+    deploymentStatus :: DeploymentStatus,+    -- | The time when a deployment of the service pipeline was last attempted.+    lastDeploymentAttemptedAt :: Data.POSIX,+    -- | The time when the service pipeline was last deployed successfully.+    lastDeploymentSucceededAt :: Data.POSIX,+    -- | The major version of the service template that was used to create the+    -- service pipeline.+    templateMajorVersion :: Prelude.Text,+    -- | The minor version of the service template that was used to create the+    -- service pipeline.+    templateMinorVersion :: Prelude.Text,+    -- | The name of the service template that was used to create the service+    -- pipeline.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServicePipeline' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deploymentStatusMessage', 'servicePipeline_deploymentStatusMessage' - A service pipeline deployment status message.+--+-- 'spec', 'servicePipeline_spec' - The service spec that was used to create the service pipeline.+--+-- 'arn', 'servicePipeline_arn' - The Amazon Resource Name (ARN) of the service pipeline.+--+-- 'createdAt', 'servicePipeline_createdAt' - The time when the service pipeline was created.+--+-- 'deploymentStatus', 'servicePipeline_deploymentStatus' - The deployment status of the service pipeline.+--+-- 'lastDeploymentAttemptedAt', 'servicePipeline_lastDeploymentAttemptedAt' - The time when a deployment of the service pipeline was last attempted.+--+-- 'lastDeploymentSucceededAt', 'servicePipeline_lastDeploymentSucceededAt' - The time when the service pipeline was last deployed successfully.+--+-- 'templateMajorVersion', 'servicePipeline_templateMajorVersion' - The major version of the service template that was used to create the+-- service pipeline.+--+-- 'templateMinorVersion', 'servicePipeline_templateMinorVersion' - The minor version of the service template that was used to create the+-- service pipeline.+--+-- 'templateName', 'servicePipeline_templateName' - The name of the service template that was used to create the service+-- pipeline.+newServicePipeline ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'deploymentStatus'+  DeploymentStatus ->+  -- | 'lastDeploymentAttemptedAt'+  Prelude.UTCTime ->+  -- | 'lastDeploymentSucceededAt'+  Prelude.UTCTime ->+  -- | 'templateMajorVersion'+  Prelude.Text ->+  -- | 'templateMinorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  ServicePipeline+newServicePipeline+  pArn_+  pCreatedAt_+  pDeploymentStatus_+  pLastDeploymentAttemptedAt_+  pLastDeploymentSucceededAt_+  pTemplateMajorVersion_+  pTemplateMinorVersion_+  pTemplateName_ =+    ServicePipeline'+      { deploymentStatusMessage =+          Prelude.Nothing,+        spec = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        deploymentStatus = pDeploymentStatus_,+        lastDeploymentAttemptedAt =+          Data._Time Lens.# pLastDeploymentAttemptedAt_,+        lastDeploymentSucceededAt =+          Data._Time Lens.# pLastDeploymentSucceededAt_,+        templateMajorVersion = pTemplateMajorVersion_,+        templateMinorVersion = pTemplateMinorVersion_,+        templateName = pTemplateName_+      }++-- | A service pipeline deployment status message.+servicePipeline_deploymentStatusMessage :: Lens.Lens' ServicePipeline (Prelude.Maybe Prelude.Text)+servicePipeline_deploymentStatusMessage = Lens.lens (\ServicePipeline' {deploymentStatusMessage} -> deploymentStatusMessage) (\s@ServicePipeline' {} a -> s {deploymentStatusMessage = a} :: ServicePipeline) Prelude.. Lens.mapping Data._Sensitive++-- | The service spec that was used to create the service pipeline.+servicePipeline_spec :: Lens.Lens' ServicePipeline (Prelude.Maybe Prelude.Text)+servicePipeline_spec = Lens.lens (\ServicePipeline' {spec} -> spec) (\s@ServicePipeline' {} a -> s {spec = a} :: ServicePipeline) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the service pipeline.+servicePipeline_arn :: Lens.Lens' ServicePipeline Prelude.Text+servicePipeline_arn = Lens.lens (\ServicePipeline' {arn} -> arn) (\s@ServicePipeline' {} a -> s {arn = a} :: ServicePipeline)++-- | The time when the service pipeline was created.+servicePipeline_createdAt :: Lens.Lens' ServicePipeline Prelude.UTCTime+servicePipeline_createdAt = Lens.lens (\ServicePipeline' {createdAt} -> createdAt) (\s@ServicePipeline' {} a -> s {createdAt = a} :: ServicePipeline) Prelude.. Data._Time++-- | The deployment status of the service pipeline.+servicePipeline_deploymentStatus :: Lens.Lens' ServicePipeline DeploymentStatus+servicePipeline_deploymentStatus = Lens.lens (\ServicePipeline' {deploymentStatus} -> deploymentStatus) (\s@ServicePipeline' {} a -> s {deploymentStatus = a} :: ServicePipeline)++-- | The time when a deployment of the service pipeline was last attempted.+servicePipeline_lastDeploymentAttemptedAt :: Lens.Lens' ServicePipeline Prelude.UTCTime+servicePipeline_lastDeploymentAttemptedAt = Lens.lens (\ServicePipeline' {lastDeploymentAttemptedAt} -> lastDeploymentAttemptedAt) (\s@ServicePipeline' {} a -> s {lastDeploymentAttemptedAt = a} :: ServicePipeline) Prelude.. Data._Time++-- | The time when the service pipeline was last deployed successfully.+servicePipeline_lastDeploymentSucceededAt :: Lens.Lens' ServicePipeline Prelude.UTCTime+servicePipeline_lastDeploymentSucceededAt = Lens.lens (\ServicePipeline' {lastDeploymentSucceededAt} -> lastDeploymentSucceededAt) (\s@ServicePipeline' {} a -> s {lastDeploymentSucceededAt = a} :: ServicePipeline) Prelude.. Data._Time++-- | The major version of the service template that was used to create the+-- service pipeline.+servicePipeline_templateMajorVersion :: Lens.Lens' ServicePipeline Prelude.Text+servicePipeline_templateMajorVersion = Lens.lens (\ServicePipeline' {templateMajorVersion} -> templateMajorVersion) (\s@ServicePipeline' {} a -> s {templateMajorVersion = a} :: ServicePipeline)++-- | The minor version of the service template that was used to create the+-- service pipeline.+servicePipeline_templateMinorVersion :: Lens.Lens' ServicePipeline Prelude.Text+servicePipeline_templateMinorVersion = Lens.lens (\ServicePipeline' {templateMinorVersion} -> templateMinorVersion) (\s@ServicePipeline' {} a -> s {templateMinorVersion = a} :: ServicePipeline)++-- | The name of the service template that was used to create the service+-- pipeline.+servicePipeline_templateName :: Lens.Lens' ServicePipeline Prelude.Text+servicePipeline_templateName = Lens.lens (\ServicePipeline' {templateName} -> templateName) (\s@ServicePipeline' {} a -> s {templateName = a} :: ServicePipeline)++instance Data.FromJSON ServicePipeline where+  parseJSON =+    Data.withObject+      "ServicePipeline"+      ( \x ->+          ServicePipeline'+            Prelude.<$> (x Data..:? "deploymentStatusMessage")+            Prelude.<*> (x Data..:? "spec")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "deploymentStatus")+            Prelude.<*> (x Data..: "lastDeploymentAttemptedAt")+            Prelude.<*> (x Data..: "lastDeploymentSucceededAt")+            Prelude.<*> (x Data..: "templateMajorVersion")+            Prelude.<*> (x Data..: "templateMinorVersion")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable ServicePipeline where+  hashWithSalt _salt ServicePipeline' {..} =+    _salt+      `Prelude.hashWithSalt` deploymentStatusMessage+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` deploymentStatus+      `Prelude.hashWithSalt` lastDeploymentAttemptedAt+      `Prelude.hashWithSalt` lastDeploymentSucceededAt+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ServicePipeline where+  rnf ServicePipeline' {..} =+    Prelude.rnf deploymentStatusMessage+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf deploymentStatus+      `Prelude.seq` Prelude.rnf lastDeploymentAttemptedAt+      `Prelude.seq` Prelude.rnf lastDeploymentSucceededAt+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ServiceStatus.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceStatus+  ( ServiceStatus+      ( ..,+        ServiceStatus_ACTIVE,+        ServiceStatus_CREATE_FAILED,+        ServiceStatus_CREATE_FAILED_CLEANUP_COMPLETE,+        ServiceStatus_CREATE_FAILED_CLEANUP_FAILED,+        ServiceStatus_CREATE_FAILED_CLEANUP_IN_PROGRESS,+        ServiceStatus_CREATE_IN_PROGRESS,+        ServiceStatus_DELETE_FAILED,+        ServiceStatus_DELETE_IN_PROGRESS,+        ServiceStatus_UPDATE_COMPLETE_CLEANUP_FAILED,+        ServiceStatus_UPDATE_FAILED,+        ServiceStatus_UPDATE_FAILED_CLEANUP_COMPLETE,+        ServiceStatus_UPDATE_FAILED_CLEANUP_FAILED,+        ServiceStatus_UPDATE_FAILED_CLEANUP_IN_PROGRESS,+        ServiceStatus_UPDATE_IN_PROGRESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ServiceStatus = ServiceStatus'+  { fromServiceStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ServiceStatus_ACTIVE :: ServiceStatus+pattern ServiceStatus_ACTIVE = ServiceStatus' "ACTIVE"++pattern ServiceStatus_CREATE_FAILED :: ServiceStatus+pattern ServiceStatus_CREATE_FAILED = ServiceStatus' "CREATE_FAILED"++pattern ServiceStatus_CREATE_FAILED_CLEANUP_COMPLETE :: ServiceStatus+pattern ServiceStatus_CREATE_FAILED_CLEANUP_COMPLETE = ServiceStatus' "CREATE_FAILED_CLEANUP_COMPLETE"++pattern ServiceStatus_CREATE_FAILED_CLEANUP_FAILED :: ServiceStatus+pattern ServiceStatus_CREATE_FAILED_CLEANUP_FAILED = ServiceStatus' "CREATE_FAILED_CLEANUP_FAILED"++pattern ServiceStatus_CREATE_FAILED_CLEANUP_IN_PROGRESS :: ServiceStatus+pattern ServiceStatus_CREATE_FAILED_CLEANUP_IN_PROGRESS = ServiceStatus' "CREATE_FAILED_CLEANUP_IN_PROGRESS"++pattern ServiceStatus_CREATE_IN_PROGRESS :: ServiceStatus+pattern ServiceStatus_CREATE_IN_PROGRESS = ServiceStatus' "CREATE_IN_PROGRESS"++pattern ServiceStatus_DELETE_FAILED :: ServiceStatus+pattern ServiceStatus_DELETE_FAILED = ServiceStatus' "DELETE_FAILED"++pattern ServiceStatus_DELETE_IN_PROGRESS :: ServiceStatus+pattern ServiceStatus_DELETE_IN_PROGRESS = ServiceStatus' "DELETE_IN_PROGRESS"++pattern ServiceStatus_UPDATE_COMPLETE_CLEANUP_FAILED :: ServiceStatus+pattern ServiceStatus_UPDATE_COMPLETE_CLEANUP_FAILED = ServiceStatus' "UPDATE_COMPLETE_CLEANUP_FAILED"++pattern ServiceStatus_UPDATE_FAILED :: ServiceStatus+pattern ServiceStatus_UPDATE_FAILED = ServiceStatus' "UPDATE_FAILED"++pattern ServiceStatus_UPDATE_FAILED_CLEANUP_COMPLETE :: ServiceStatus+pattern ServiceStatus_UPDATE_FAILED_CLEANUP_COMPLETE = ServiceStatus' "UPDATE_FAILED_CLEANUP_COMPLETE"++pattern ServiceStatus_UPDATE_FAILED_CLEANUP_FAILED :: ServiceStatus+pattern ServiceStatus_UPDATE_FAILED_CLEANUP_FAILED = ServiceStatus' "UPDATE_FAILED_CLEANUP_FAILED"++pattern ServiceStatus_UPDATE_FAILED_CLEANUP_IN_PROGRESS :: ServiceStatus+pattern ServiceStatus_UPDATE_FAILED_CLEANUP_IN_PROGRESS = ServiceStatus' "UPDATE_FAILED_CLEANUP_IN_PROGRESS"++pattern ServiceStatus_UPDATE_IN_PROGRESS :: ServiceStatus+pattern ServiceStatus_UPDATE_IN_PROGRESS = ServiceStatus' "UPDATE_IN_PROGRESS"++{-# COMPLETE+  ServiceStatus_ACTIVE,+  ServiceStatus_CREATE_FAILED,+  ServiceStatus_CREATE_FAILED_CLEANUP_COMPLETE,+  ServiceStatus_CREATE_FAILED_CLEANUP_FAILED,+  ServiceStatus_CREATE_FAILED_CLEANUP_IN_PROGRESS,+  ServiceStatus_CREATE_IN_PROGRESS,+  ServiceStatus_DELETE_FAILED,+  ServiceStatus_DELETE_IN_PROGRESS,+  ServiceStatus_UPDATE_COMPLETE_CLEANUP_FAILED,+  ServiceStatus_UPDATE_FAILED,+  ServiceStatus_UPDATE_FAILED_CLEANUP_COMPLETE,+  ServiceStatus_UPDATE_FAILED_CLEANUP_FAILED,+  ServiceStatus_UPDATE_FAILED_CLEANUP_IN_PROGRESS,+  ServiceStatus_UPDATE_IN_PROGRESS,+  ServiceStatus'+  #-}
+ gen/Amazonka/Proton/Types/ServiceSummary.hs view
@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.ServiceStatus++-- | Summary data of an Proton service resource.+--+-- /See:/ 'newServiceSummary' smart constructor.+data ServiceSummary = ServiceSummary'+  { -- | A description of the service.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | A service status message.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the service.+    arn :: Prelude.Text,+    -- | The time when the service was created.+    createdAt :: Data.POSIX,+    -- | The time when the service was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the service.+    name :: Prelude.Text,+    -- | The status of the service.+    status :: ServiceStatus,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'serviceSummary_description' - A description of the service.+--+-- 'statusMessage', 'serviceSummary_statusMessage' - A service status message.+--+-- 'arn', 'serviceSummary_arn' - The Amazon Resource Name (ARN) of the service.+--+-- 'createdAt', 'serviceSummary_createdAt' - The time when the service was created.+--+-- 'lastModifiedAt', 'serviceSummary_lastModifiedAt' - The time when the service was last modified.+--+-- 'name', 'serviceSummary_name' - The name of the service.+--+-- 'status', 'serviceSummary_status' - The status of the service.+--+-- 'templateName', 'serviceSummary_templateName' - The name of the service template.+newServiceSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  -- | 'status'+  ServiceStatus ->+  -- | 'templateName'+  Prelude.Text ->+  ServiceSummary+newServiceSummary+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pName_+  pStatus_+  pTemplateName_ =+    ServiceSummary'+      { description = Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_,+        status = pStatus_,+        templateName = pTemplateName_+      }++-- | A description of the service.+serviceSummary_description :: Lens.Lens' ServiceSummary (Prelude.Maybe Prelude.Text)+serviceSummary_description = Lens.lens (\ServiceSummary' {description} -> description) (\s@ServiceSummary' {} a -> s {description = a} :: ServiceSummary) Prelude.. Lens.mapping Data._Sensitive++-- | A service status message.+serviceSummary_statusMessage :: Lens.Lens' ServiceSummary (Prelude.Maybe Prelude.Text)+serviceSummary_statusMessage = Lens.lens (\ServiceSummary' {statusMessage} -> statusMessage) (\s@ServiceSummary' {} a -> s {statusMessage = a} :: ServiceSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the service.+serviceSummary_arn :: Lens.Lens' ServiceSummary Prelude.Text+serviceSummary_arn = Lens.lens (\ServiceSummary' {arn} -> arn) (\s@ServiceSummary' {} a -> s {arn = a} :: ServiceSummary)++-- | The time when the service was created.+serviceSummary_createdAt :: Lens.Lens' ServiceSummary Prelude.UTCTime+serviceSummary_createdAt = Lens.lens (\ServiceSummary' {createdAt} -> createdAt) (\s@ServiceSummary' {} a -> s {createdAt = a} :: ServiceSummary) Prelude.. Data._Time++-- | The time when the service was last modified.+serviceSummary_lastModifiedAt :: Lens.Lens' ServiceSummary Prelude.UTCTime+serviceSummary_lastModifiedAt = Lens.lens (\ServiceSummary' {lastModifiedAt} -> lastModifiedAt) (\s@ServiceSummary' {} a -> s {lastModifiedAt = a} :: ServiceSummary) Prelude.. Data._Time++-- | The name of the service.+serviceSummary_name :: Lens.Lens' ServiceSummary Prelude.Text+serviceSummary_name = Lens.lens (\ServiceSummary' {name} -> name) (\s@ServiceSummary' {} a -> s {name = a} :: ServiceSummary)++-- | The status of the service.+serviceSummary_status :: Lens.Lens' ServiceSummary ServiceStatus+serviceSummary_status = Lens.lens (\ServiceSummary' {status} -> status) (\s@ServiceSummary' {} a -> s {status = a} :: ServiceSummary)++-- | The name of the service template.+serviceSummary_templateName :: Lens.Lens' ServiceSummary Prelude.Text+serviceSummary_templateName = Lens.lens (\ServiceSummary' {templateName} -> templateName) (\s@ServiceSummary' {} a -> s {templateName = a} :: ServiceSummary)++instance Data.FromJSON ServiceSummary where+  parseJSON =+    Data.withObject+      "ServiceSummary"+      ( \x ->+          ServiceSummary'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable ServiceSummary where+  hashWithSalt _salt ServiceSummary' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ServiceSummary where+  rnf ServiceSummary' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ServiceTemplate.hs view
@@ -0,0 +1,190 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceTemplate where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.Provisioning++-- | Detailed data of an Proton service template resource.+--+-- /See:/ 'newServiceTemplate' smart constructor.+data ServiceTemplate = ServiceTemplate'+  { -- | A description of the service template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The service template name as displayed in the developer interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The customer provided service template encryption key that\'s used to+    -- encrypt data.+    encryptionKey :: Prelude.Maybe Prelude.Text,+    -- | If @pipelineProvisioning@ is @true@, a service pipeline is included in+    -- the service template. Otherwise, a service pipeline /isn\'t/ included in+    -- the service template.+    pipelineProvisioning :: Prelude.Maybe Provisioning,+    -- | The recommended version of the service template.+    recommendedVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the service template.+    arn :: Prelude.Text,+    -- | The time when the service template was created.+    createdAt :: Data.POSIX,+    -- | The time when the service template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the service template.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'serviceTemplate_description' - A description of the service template.+--+-- 'displayName', 'serviceTemplate_displayName' - The service template name as displayed in the developer interface.+--+-- 'encryptionKey', 'serviceTemplate_encryptionKey' - The customer provided service template encryption key that\'s used to+-- encrypt data.+--+-- 'pipelineProvisioning', 'serviceTemplate_pipelineProvisioning' - If @pipelineProvisioning@ is @true@, a service pipeline is included in+-- the service template. Otherwise, a service pipeline /isn\'t/ included in+-- the service template.+--+-- 'recommendedVersion', 'serviceTemplate_recommendedVersion' - The recommended version of the service template.+--+-- 'arn', 'serviceTemplate_arn' - The Amazon Resource Name (ARN) of the service template.+--+-- 'createdAt', 'serviceTemplate_createdAt' - The time when the service template was created.+--+-- 'lastModifiedAt', 'serviceTemplate_lastModifiedAt' - The time when the service template was last modified.+--+-- 'name', 'serviceTemplate_name' - The name of the service template.+newServiceTemplate ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  ServiceTemplate+newServiceTemplate+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pName_ =+    ServiceTemplate'+      { description = Prelude.Nothing,+        displayName = Prelude.Nothing,+        encryptionKey = Prelude.Nothing,+        pipelineProvisioning = Prelude.Nothing,+        recommendedVersion = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_+      }++-- | A description of the service template.+serviceTemplate_description :: Lens.Lens' ServiceTemplate (Prelude.Maybe Prelude.Text)+serviceTemplate_description = Lens.lens (\ServiceTemplate' {description} -> description) (\s@ServiceTemplate' {} a -> s {description = a} :: ServiceTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The service template name as displayed in the developer interface.+serviceTemplate_displayName :: Lens.Lens' ServiceTemplate (Prelude.Maybe Prelude.Text)+serviceTemplate_displayName = Lens.lens (\ServiceTemplate' {displayName} -> displayName) (\s@ServiceTemplate' {} a -> s {displayName = a} :: ServiceTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The customer provided service template encryption key that\'s used to+-- encrypt data.+serviceTemplate_encryptionKey :: Lens.Lens' ServiceTemplate (Prelude.Maybe Prelude.Text)+serviceTemplate_encryptionKey = Lens.lens (\ServiceTemplate' {encryptionKey} -> encryptionKey) (\s@ServiceTemplate' {} a -> s {encryptionKey = a} :: ServiceTemplate)++-- | If @pipelineProvisioning@ is @true@, a service pipeline is included in+-- the service template. Otherwise, a service pipeline /isn\'t/ included in+-- the service template.+serviceTemplate_pipelineProvisioning :: Lens.Lens' ServiceTemplate (Prelude.Maybe Provisioning)+serviceTemplate_pipelineProvisioning = Lens.lens (\ServiceTemplate' {pipelineProvisioning} -> pipelineProvisioning) (\s@ServiceTemplate' {} a -> s {pipelineProvisioning = a} :: ServiceTemplate)++-- | The recommended version of the service template.+serviceTemplate_recommendedVersion :: Lens.Lens' ServiceTemplate (Prelude.Maybe Prelude.Text)+serviceTemplate_recommendedVersion = Lens.lens (\ServiceTemplate' {recommendedVersion} -> recommendedVersion) (\s@ServiceTemplate' {} a -> s {recommendedVersion = a} :: ServiceTemplate)++-- | The Amazon Resource Name (ARN) of the service template.+serviceTemplate_arn :: Lens.Lens' ServiceTemplate Prelude.Text+serviceTemplate_arn = Lens.lens (\ServiceTemplate' {arn} -> arn) (\s@ServiceTemplate' {} a -> s {arn = a} :: ServiceTemplate)++-- | The time when the service template was created.+serviceTemplate_createdAt :: Lens.Lens' ServiceTemplate Prelude.UTCTime+serviceTemplate_createdAt = Lens.lens (\ServiceTemplate' {createdAt} -> createdAt) (\s@ServiceTemplate' {} a -> s {createdAt = a} :: ServiceTemplate) Prelude.. Data._Time++-- | The time when the service template was last modified.+serviceTemplate_lastModifiedAt :: Lens.Lens' ServiceTemplate Prelude.UTCTime+serviceTemplate_lastModifiedAt = Lens.lens (\ServiceTemplate' {lastModifiedAt} -> lastModifiedAt) (\s@ServiceTemplate' {} a -> s {lastModifiedAt = a} :: ServiceTemplate) Prelude.. Data._Time++-- | The name of the service template.+serviceTemplate_name :: Lens.Lens' ServiceTemplate Prelude.Text+serviceTemplate_name = Lens.lens (\ServiceTemplate' {name} -> name) (\s@ServiceTemplate' {} a -> s {name = a} :: ServiceTemplate)++instance Data.FromJSON ServiceTemplate where+  parseJSON =+    Data.withObject+      "ServiceTemplate"+      ( \x ->+          ServiceTemplate'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "displayName")+            Prelude.<*> (x Data..:? "encryptionKey")+            Prelude.<*> (x Data..:? "pipelineProvisioning")+            Prelude.<*> (x Data..:? "recommendedVersion")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+      )++instance Prelude.Hashable ServiceTemplate where+  hashWithSalt _salt ServiceTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` pipelineProvisioning+      `Prelude.hashWithSalt` recommendedVersion+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name++instance Prelude.NFData ServiceTemplate where+  rnf ServiceTemplate' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf pipelineProvisioning+      `Prelude.seq` Prelude.rnf recommendedVersion+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/Proton/Types/ServiceTemplateSummary.hs view
@@ -0,0 +1,176 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceTemplateSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceTemplateSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.Provisioning++-- | Summary data of an Proton service template resource.+--+-- /See:/ 'newServiceTemplateSummary' smart constructor.+data ServiceTemplateSummary = ServiceTemplateSummary'+  { -- | A description of the service template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The service template name as displayed in the developer interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | If @pipelineProvisioning@ is @true@, a service pipeline is included in+    -- the service template, otherwise a service pipeline /isn\'t/ included in+    -- the service template.+    pipelineProvisioning :: Prelude.Maybe Provisioning,+    -- | The recommended version of the service template.+    recommendedVersion :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the service template.+    arn :: Prelude.Text,+    -- | The time when the service template was created.+    createdAt :: Data.POSIX,+    -- | The time when the service template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The name of the service template.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceTemplateSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'serviceTemplateSummary_description' - A description of the service template.+--+-- 'displayName', 'serviceTemplateSummary_displayName' - The service template name as displayed in the developer interface.+--+-- 'pipelineProvisioning', 'serviceTemplateSummary_pipelineProvisioning' - If @pipelineProvisioning@ is @true@, a service pipeline is included in+-- the service template, otherwise a service pipeline /isn\'t/ included in+-- the service template.+--+-- 'recommendedVersion', 'serviceTemplateSummary_recommendedVersion' - The recommended version of the service template.+--+-- 'arn', 'serviceTemplateSummary_arn' - The Amazon Resource Name (ARN) of the service template.+--+-- 'createdAt', 'serviceTemplateSummary_createdAt' - The time when the service template was created.+--+-- 'lastModifiedAt', 'serviceTemplateSummary_lastModifiedAt' - The time when the service template was last modified.+--+-- 'name', 'serviceTemplateSummary_name' - The name of the service template.+newServiceTemplateSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'name'+  Prelude.Text ->+  ServiceTemplateSummary+newServiceTemplateSummary+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pName_ =+    ServiceTemplateSummary'+      { description =+          Prelude.Nothing,+        displayName = Prelude.Nothing,+        pipelineProvisioning = Prelude.Nothing,+        recommendedVersion = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        name = pName_+      }++-- | A description of the service template.+serviceTemplateSummary_description :: Lens.Lens' ServiceTemplateSummary (Prelude.Maybe Prelude.Text)+serviceTemplateSummary_description = Lens.lens (\ServiceTemplateSummary' {description} -> description) (\s@ServiceTemplateSummary' {} a -> s {description = a} :: ServiceTemplateSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The service template name as displayed in the developer interface.+serviceTemplateSummary_displayName :: Lens.Lens' ServiceTemplateSummary (Prelude.Maybe Prelude.Text)+serviceTemplateSummary_displayName = Lens.lens (\ServiceTemplateSummary' {displayName} -> displayName) (\s@ServiceTemplateSummary' {} a -> s {displayName = a} :: ServiceTemplateSummary) Prelude.. Lens.mapping Data._Sensitive++-- | If @pipelineProvisioning@ is @true@, a service pipeline is included in+-- the service template, otherwise a service pipeline /isn\'t/ included in+-- the service template.+serviceTemplateSummary_pipelineProvisioning :: Lens.Lens' ServiceTemplateSummary (Prelude.Maybe Provisioning)+serviceTemplateSummary_pipelineProvisioning = Lens.lens (\ServiceTemplateSummary' {pipelineProvisioning} -> pipelineProvisioning) (\s@ServiceTemplateSummary' {} a -> s {pipelineProvisioning = a} :: ServiceTemplateSummary)++-- | The recommended version of the service template.+serviceTemplateSummary_recommendedVersion :: Lens.Lens' ServiceTemplateSummary (Prelude.Maybe Prelude.Text)+serviceTemplateSummary_recommendedVersion = Lens.lens (\ServiceTemplateSummary' {recommendedVersion} -> recommendedVersion) (\s@ServiceTemplateSummary' {} a -> s {recommendedVersion = a} :: ServiceTemplateSummary)++-- | The Amazon Resource Name (ARN) of the service template.+serviceTemplateSummary_arn :: Lens.Lens' ServiceTemplateSummary Prelude.Text+serviceTemplateSummary_arn = Lens.lens (\ServiceTemplateSummary' {arn} -> arn) (\s@ServiceTemplateSummary' {} a -> s {arn = a} :: ServiceTemplateSummary)++-- | The time when the service template was created.+serviceTemplateSummary_createdAt :: Lens.Lens' ServiceTemplateSummary Prelude.UTCTime+serviceTemplateSummary_createdAt = Lens.lens (\ServiceTemplateSummary' {createdAt} -> createdAt) (\s@ServiceTemplateSummary' {} a -> s {createdAt = a} :: ServiceTemplateSummary) Prelude.. Data._Time++-- | The time when the service template was last modified.+serviceTemplateSummary_lastModifiedAt :: Lens.Lens' ServiceTemplateSummary Prelude.UTCTime+serviceTemplateSummary_lastModifiedAt = Lens.lens (\ServiceTemplateSummary' {lastModifiedAt} -> lastModifiedAt) (\s@ServiceTemplateSummary' {} a -> s {lastModifiedAt = a} :: ServiceTemplateSummary) Prelude.. Data._Time++-- | The name of the service template.+serviceTemplateSummary_name :: Lens.Lens' ServiceTemplateSummary Prelude.Text+serviceTemplateSummary_name = Lens.lens (\ServiceTemplateSummary' {name} -> name) (\s@ServiceTemplateSummary' {} a -> s {name = a} :: ServiceTemplateSummary)++instance Data.FromJSON ServiceTemplateSummary where+  parseJSON =+    Data.withObject+      "ServiceTemplateSummary"+      ( \x ->+          ServiceTemplateSummary'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "displayName")+            Prelude.<*> (x Data..:? "pipelineProvisioning")+            Prelude.<*> (x Data..:? "recommendedVersion")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "name")+      )++instance Prelude.Hashable ServiceTemplateSummary where+  hashWithSalt _salt ServiceTemplateSummary' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` pipelineProvisioning+      `Prelude.hashWithSalt` recommendedVersion+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` name++instance Prelude.NFData ServiceTemplateSummary where+  rnf ServiceTemplateSummary' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf pipelineProvisioning+      `Prelude.seq` Prelude.rnf recommendedVersion+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf name
+ gen/Amazonka/Proton/Types/ServiceTemplateSupportedComponentSourceType.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceTemplateSupportedComponentSourceType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceTemplateSupportedComponentSourceType+  ( ServiceTemplateSupportedComponentSourceType+      ( ..,+        ServiceTemplateSupportedComponentSourceType_DIRECTLY_DEFINED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ServiceTemplateSupportedComponentSourceType = ServiceTemplateSupportedComponentSourceType'+  { fromServiceTemplateSupportedComponentSourceType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ServiceTemplateSupportedComponentSourceType_DIRECTLY_DEFINED :: ServiceTemplateSupportedComponentSourceType+pattern ServiceTemplateSupportedComponentSourceType_DIRECTLY_DEFINED = ServiceTemplateSupportedComponentSourceType' "DIRECTLY_DEFINED"++{-# COMPLETE+  ServiceTemplateSupportedComponentSourceType_DIRECTLY_DEFINED,+  ServiceTemplateSupportedComponentSourceType'+  #-}
+ gen/Amazonka/Proton/Types/ServiceTemplateVersion.hs view
@@ -0,0 +1,271 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceTemplateVersion where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.CompatibleEnvironmentTemplate+import Amazonka.Proton.Types.ServiceTemplateSupportedComponentSourceType+import Amazonka.Proton.Types.TemplateVersionStatus++-- | Detailed data of an Proton service template version resource.+--+-- /See:/ 'newServiceTemplateVersion' smart constructor.+data ServiceTemplateVersion = ServiceTemplateVersion'+  { -- | A description of the version of a service template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The recommended minor version of the service template.+    recommendedMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The schema of the version of a service template.+    schema :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | A service template version status message.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | An array of supported component sources. Components with supported+    -- sources can be attached to service instances based on this service+    -- template version.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    supportedComponentSources :: Prelude.Maybe [ServiceTemplateSupportedComponentSourceType],+    -- | The Amazon Resource Name (ARN) of the version of a service template.+    arn :: Prelude.Text,+    -- | An array of compatible environment template names for the major version+    -- of a service template.+    compatibleEnvironmentTemplates :: [CompatibleEnvironmentTemplate],+    -- | The time when the version of a service template was created.+    createdAt :: Data.POSIX,+    -- | The time when the version of a service template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The latest major version that\'s associated with the version of a+    -- service template.+    majorVersion :: Prelude.Text,+    -- | The minor version of a service template.+    minorVersion :: Prelude.Text,+    -- | The service template version status.+    status :: TemplateVersionStatus,+    -- | The name of the version of a service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'serviceTemplateVersion_description' - A description of the version of a service template.+--+-- 'recommendedMinorVersion', 'serviceTemplateVersion_recommendedMinorVersion' - The recommended minor version of the service template.+--+-- 'schema', 'serviceTemplateVersion_schema' - The schema of the version of a service template.+--+-- 'statusMessage', 'serviceTemplateVersion_statusMessage' - A service template version status message.+--+-- 'supportedComponentSources', 'serviceTemplateVersion_supportedComponentSources' - An array of supported component sources. Components with supported+-- sources can be attached to service instances based on this service+-- template version.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'arn', 'serviceTemplateVersion_arn' - The Amazon Resource Name (ARN) of the version of a service template.+--+-- 'compatibleEnvironmentTemplates', 'serviceTemplateVersion_compatibleEnvironmentTemplates' - An array of compatible environment template names for the major version+-- of a service template.+--+-- 'createdAt', 'serviceTemplateVersion_createdAt' - The time when the version of a service template was created.+--+-- 'lastModifiedAt', 'serviceTemplateVersion_lastModifiedAt' - The time when the version of a service template was last modified.+--+-- 'majorVersion', 'serviceTemplateVersion_majorVersion' - The latest major version that\'s associated with the version of a+-- service template.+--+-- 'minorVersion', 'serviceTemplateVersion_minorVersion' - The minor version of a service template.+--+-- 'status', 'serviceTemplateVersion_status' - The service template version status.+--+-- 'templateName', 'serviceTemplateVersion_templateName' - The name of the version of a service template.+newServiceTemplateVersion ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'status'+  TemplateVersionStatus ->+  -- | 'templateName'+  Prelude.Text ->+  ServiceTemplateVersion+newServiceTemplateVersion+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pMajorVersion_+  pMinorVersion_+  pStatus_+  pTemplateName_ =+    ServiceTemplateVersion'+      { description =+          Prelude.Nothing,+        recommendedMinorVersion = Prelude.Nothing,+        schema = Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        supportedComponentSources = Prelude.Nothing,+        arn = pArn_,+        compatibleEnvironmentTemplates = Prelude.mempty,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt = Data._Time Lens.# pLastModifiedAt_,+        majorVersion = pMajorVersion_,+        minorVersion = pMinorVersion_,+        status = pStatus_,+        templateName = pTemplateName_+      }++-- | A description of the version of a service template.+serviceTemplateVersion_description :: Lens.Lens' ServiceTemplateVersion (Prelude.Maybe Prelude.Text)+serviceTemplateVersion_description = Lens.lens (\ServiceTemplateVersion' {description} -> description) (\s@ServiceTemplateVersion' {} a -> s {description = a} :: ServiceTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | The recommended minor version of the service template.+serviceTemplateVersion_recommendedMinorVersion :: Lens.Lens' ServiceTemplateVersion (Prelude.Maybe Prelude.Text)+serviceTemplateVersion_recommendedMinorVersion = Lens.lens (\ServiceTemplateVersion' {recommendedMinorVersion} -> recommendedMinorVersion) (\s@ServiceTemplateVersion' {} a -> s {recommendedMinorVersion = a} :: ServiceTemplateVersion)++-- | The schema of the version of a service template.+serviceTemplateVersion_schema :: Lens.Lens' ServiceTemplateVersion (Prelude.Maybe Prelude.Text)+serviceTemplateVersion_schema = Lens.lens (\ServiceTemplateVersion' {schema} -> schema) (\s@ServiceTemplateVersion' {} a -> s {schema = a} :: ServiceTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | A service template version status message.+serviceTemplateVersion_statusMessage :: Lens.Lens' ServiceTemplateVersion (Prelude.Maybe Prelude.Text)+serviceTemplateVersion_statusMessage = Lens.lens (\ServiceTemplateVersion' {statusMessage} -> statusMessage) (\s@ServiceTemplateVersion' {} a -> s {statusMessage = a} :: ServiceTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | An array of supported component sources. Components with supported+-- sources can be attached to service instances based on this service+-- template version.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+serviceTemplateVersion_supportedComponentSources :: Lens.Lens' ServiceTemplateVersion (Prelude.Maybe [ServiceTemplateSupportedComponentSourceType])+serviceTemplateVersion_supportedComponentSources = Lens.lens (\ServiceTemplateVersion' {supportedComponentSources} -> supportedComponentSources) (\s@ServiceTemplateVersion' {} a -> s {supportedComponentSources = a} :: ServiceTemplateVersion) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Resource Name (ARN) of the version of a service template.+serviceTemplateVersion_arn :: Lens.Lens' ServiceTemplateVersion Prelude.Text+serviceTemplateVersion_arn = Lens.lens (\ServiceTemplateVersion' {arn} -> arn) (\s@ServiceTemplateVersion' {} a -> s {arn = a} :: ServiceTemplateVersion)++-- | An array of compatible environment template names for the major version+-- of a service template.+serviceTemplateVersion_compatibleEnvironmentTemplates :: Lens.Lens' ServiceTemplateVersion [CompatibleEnvironmentTemplate]+serviceTemplateVersion_compatibleEnvironmentTemplates = Lens.lens (\ServiceTemplateVersion' {compatibleEnvironmentTemplates} -> compatibleEnvironmentTemplates) (\s@ServiceTemplateVersion' {} a -> s {compatibleEnvironmentTemplates = a} :: ServiceTemplateVersion) Prelude.. Lens.coerced++-- | The time when the version of a service template was created.+serviceTemplateVersion_createdAt :: Lens.Lens' ServiceTemplateVersion Prelude.UTCTime+serviceTemplateVersion_createdAt = Lens.lens (\ServiceTemplateVersion' {createdAt} -> createdAt) (\s@ServiceTemplateVersion' {} a -> s {createdAt = a} :: ServiceTemplateVersion) Prelude.. Data._Time++-- | The time when the version of a service template was last modified.+serviceTemplateVersion_lastModifiedAt :: Lens.Lens' ServiceTemplateVersion Prelude.UTCTime+serviceTemplateVersion_lastModifiedAt = Lens.lens (\ServiceTemplateVersion' {lastModifiedAt} -> lastModifiedAt) (\s@ServiceTemplateVersion' {} a -> s {lastModifiedAt = a} :: ServiceTemplateVersion) Prelude.. Data._Time++-- | The latest major version that\'s associated with the version of a+-- service template.+serviceTemplateVersion_majorVersion :: Lens.Lens' ServiceTemplateVersion Prelude.Text+serviceTemplateVersion_majorVersion = Lens.lens (\ServiceTemplateVersion' {majorVersion} -> majorVersion) (\s@ServiceTemplateVersion' {} a -> s {majorVersion = a} :: ServiceTemplateVersion)++-- | The minor version of a service template.+serviceTemplateVersion_minorVersion :: Lens.Lens' ServiceTemplateVersion Prelude.Text+serviceTemplateVersion_minorVersion = Lens.lens (\ServiceTemplateVersion' {minorVersion} -> minorVersion) (\s@ServiceTemplateVersion' {} a -> s {minorVersion = a} :: ServiceTemplateVersion)++-- | The service template version status.+serviceTemplateVersion_status :: Lens.Lens' ServiceTemplateVersion TemplateVersionStatus+serviceTemplateVersion_status = Lens.lens (\ServiceTemplateVersion' {status} -> status) (\s@ServiceTemplateVersion' {} a -> s {status = a} :: ServiceTemplateVersion)++-- | The name of the version of a service template.+serviceTemplateVersion_templateName :: Lens.Lens' ServiceTemplateVersion Prelude.Text+serviceTemplateVersion_templateName = Lens.lens (\ServiceTemplateVersion' {templateName} -> templateName) (\s@ServiceTemplateVersion' {} a -> s {templateName = a} :: ServiceTemplateVersion)++instance Data.FromJSON ServiceTemplateVersion where+  parseJSON =+    Data.withObject+      "ServiceTemplateVersion"+      ( \x ->+          ServiceTemplateVersion'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "recommendedMinorVersion")+            Prelude.<*> (x Data..:? "schema")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> ( x+                            Data..:? "supportedComponentSources"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> ( x+                            Data..:? "compatibleEnvironmentTemplates"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "majorVersion")+            Prelude.<*> (x Data..: "minorVersion")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "templateName")+      )++instance Prelude.Hashable ServiceTemplateVersion where+  hashWithSalt _salt ServiceTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` recommendedMinorVersion+      `Prelude.hashWithSalt` schema+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` supportedComponentSources+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` compatibleEnvironmentTemplates+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ServiceTemplateVersion where+  rnf ServiceTemplateVersion' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf recommendedMinorVersion+      `Prelude.seq` Prelude.rnf schema+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf supportedComponentSources+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf compatibleEnvironmentTemplates+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/ServiceTemplateVersionSummary.hs view
@@ -0,0 +1,210 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.ServiceTemplateVersionSummary+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.ServiceTemplateVersionSummary where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.TemplateVersionStatus++-- | Summary data of an Proton service template version resource.+--+-- /See:/ 'newServiceTemplateVersionSummary' smart constructor.+data ServiceTemplateVersionSummary = ServiceTemplateVersionSummary'+  { -- | A description of the version of a service template.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The recommended minor version of the service template.+    recommendedMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | A service template minor version status message.+    statusMessage :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The Amazon Resource Name (ARN) of the version of a service template.+    arn :: Prelude.Text,+    -- | The time when the version of a service template was created.+    createdAt :: Data.POSIX,+    -- | The time when the version of a service template was last modified.+    lastModifiedAt :: Data.POSIX,+    -- | The latest major version that\'s associated with the version of a+    -- service template.+    majorVersion :: Prelude.Text,+    -- | The minor version of a service template.+    minorVersion :: Prelude.Text,+    -- | The service template minor version status.+    status :: TemplateVersionStatus,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ServiceTemplateVersionSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'serviceTemplateVersionSummary_description' - A description of the version of a service template.+--+-- 'recommendedMinorVersion', 'serviceTemplateVersionSummary_recommendedMinorVersion' - The recommended minor version of the service template.+--+-- 'statusMessage', 'serviceTemplateVersionSummary_statusMessage' - A service template minor version status message.+--+-- 'arn', 'serviceTemplateVersionSummary_arn' - The Amazon Resource Name (ARN) of the version of a service template.+--+-- 'createdAt', 'serviceTemplateVersionSummary_createdAt' - The time when the version of a service template was created.+--+-- 'lastModifiedAt', 'serviceTemplateVersionSummary_lastModifiedAt' - The time when the version of a service template was last modified.+--+-- 'majorVersion', 'serviceTemplateVersionSummary_majorVersion' - The latest major version that\'s associated with the version of a+-- service template.+--+-- 'minorVersion', 'serviceTemplateVersionSummary_minorVersion' - The minor version of a service template.+--+-- 'status', 'serviceTemplateVersionSummary_status' - The service template minor version status.+--+-- 'templateName', 'serviceTemplateVersionSummary_templateName' - The name of the service template.+newServiceTemplateVersionSummary ::+  -- | 'arn'+  Prelude.Text ->+  -- | 'createdAt'+  Prelude.UTCTime ->+  -- | 'lastModifiedAt'+  Prelude.UTCTime ->+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'status'+  TemplateVersionStatus ->+  -- | 'templateName'+  Prelude.Text ->+  ServiceTemplateVersionSummary+newServiceTemplateVersionSummary+  pArn_+  pCreatedAt_+  pLastModifiedAt_+  pMajorVersion_+  pMinorVersion_+  pStatus_+  pTemplateName_ =+    ServiceTemplateVersionSummary'+      { description =+          Prelude.Nothing,+        recommendedMinorVersion = Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        arn = pArn_,+        createdAt = Data._Time Lens.# pCreatedAt_,+        lastModifiedAt =+          Data._Time Lens.# pLastModifiedAt_,+        majorVersion = pMajorVersion_,+        minorVersion = pMinorVersion_,+        status = pStatus_,+        templateName = pTemplateName_+      }++-- | A description of the version of a service template.+serviceTemplateVersionSummary_description :: Lens.Lens' ServiceTemplateVersionSummary (Prelude.Maybe Prelude.Text)+serviceTemplateVersionSummary_description = Lens.lens (\ServiceTemplateVersionSummary' {description} -> description) (\s@ServiceTemplateVersionSummary' {} a -> s {description = a} :: ServiceTemplateVersionSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The recommended minor version of the service template.+serviceTemplateVersionSummary_recommendedMinorVersion :: Lens.Lens' ServiceTemplateVersionSummary (Prelude.Maybe Prelude.Text)+serviceTemplateVersionSummary_recommendedMinorVersion = Lens.lens (\ServiceTemplateVersionSummary' {recommendedMinorVersion} -> recommendedMinorVersion) (\s@ServiceTemplateVersionSummary' {} a -> s {recommendedMinorVersion = a} :: ServiceTemplateVersionSummary)++-- | A service template minor version status message.+serviceTemplateVersionSummary_statusMessage :: Lens.Lens' ServiceTemplateVersionSummary (Prelude.Maybe Prelude.Text)+serviceTemplateVersionSummary_statusMessage = Lens.lens (\ServiceTemplateVersionSummary' {statusMessage} -> statusMessage) (\s@ServiceTemplateVersionSummary' {} a -> s {statusMessage = a} :: ServiceTemplateVersionSummary) Prelude.. Lens.mapping Data._Sensitive++-- | The Amazon Resource Name (ARN) of the version of a service template.+serviceTemplateVersionSummary_arn :: Lens.Lens' ServiceTemplateVersionSummary Prelude.Text+serviceTemplateVersionSummary_arn = Lens.lens (\ServiceTemplateVersionSummary' {arn} -> arn) (\s@ServiceTemplateVersionSummary' {} a -> s {arn = a} :: ServiceTemplateVersionSummary)++-- | The time when the version of a service template was created.+serviceTemplateVersionSummary_createdAt :: Lens.Lens' ServiceTemplateVersionSummary Prelude.UTCTime+serviceTemplateVersionSummary_createdAt = Lens.lens (\ServiceTemplateVersionSummary' {createdAt} -> createdAt) (\s@ServiceTemplateVersionSummary' {} a -> s {createdAt = a} :: ServiceTemplateVersionSummary) Prelude.. Data._Time++-- | The time when the version of a service template was last modified.+serviceTemplateVersionSummary_lastModifiedAt :: Lens.Lens' ServiceTemplateVersionSummary Prelude.UTCTime+serviceTemplateVersionSummary_lastModifiedAt = Lens.lens (\ServiceTemplateVersionSummary' {lastModifiedAt} -> lastModifiedAt) (\s@ServiceTemplateVersionSummary' {} a -> s {lastModifiedAt = a} :: ServiceTemplateVersionSummary) Prelude.. Data._Time++-- | The latest major version that\'s associated with the version of a+-- service template.+serviceTemplateVersionSummary_majorVersion :: Lens.Lens' ServiceTemplateVersionSummary Prelude.Text+serviceTemplateVersionSummary_majorVersion = Lens.lens (\ServiceTemplateVersionSummary' {majorVersion} -> majorVersion) (\s@ServiceTemplateVersionSummary' {} a -> s {majorVersion = a} :: ServiceTemplateVersionSummary)++-- | The minor version of a service template.+serviceTemplateVersionSummary_minorVersion :: Lens.Lens' ServiceTemplateVersionSummary Prelude.Text+serviceTemplateVersionSummary_minorVersion = Lens.lens (\ServiceTemplateVersionSummary' {minorVersion} -> minorVersion) (\s@ServiceTemplateVersionSummary' {} a -> s {minorVersion = a} :: ServiceTemplateVersionSummary)++-- | The service template minor version status.+serviceTemplateVersionSummary_status :: Lens.Lens' ServiceTemplateVersionSummary TemplateVersionStatus+serviceTemplateVersionSummary_status = Lens.lens (\ServiceTemplateVersionSummary' {status} -> status) (\s@ServiceTemplateVersionSummary' {} a -> s {status = a} :: ServiceTemplateVersionSummary)++-- | The name of the service template.+serviceTemplateVersionSummary_templateName :: Lens.Lens' ServiceTemplateVersionSummary Prelude.Text+serviceTemplateVersionSummary_templateName = Lens.lens (\ServiceTemplateVersionSummary' {templateName} -> templateName) (\s@ServiceTemplateVersionSummary' {} a -> s {templateName = a} :: ServiceTemplateVersionSummary)++instance Data.FromJSON ServiceTemplateVersionSummary where+  parseJSON =+    Data.withObject+      "ServiceTemplateVersionSummary"+      ( \x ->+          ServiceTemplateVersionSummary'+            Prelude.<$> (x Data..:? "description")+            Prelude.<*> (x Data..:? "recommendedMinorVersion")+            Prelude.<*> (x Data..:? "statusMessage")+            Prelude.<*> (x Data..: "arn")+            Prelude.<*> (x Data..: "createdAt")+            Prelude.<*> (x Data..: "lastModifiedAt")+            Prelude.<*> (x Data..: "majorVersion")+            Prelude.<*> (x Data..: "minorVersion")+            Prelude.<*> (x Data..: "status")+            Prelude.<*> (x Data..: "templateName")+      )++instance+  Prelude.Hashable+    ServiceTemplateVersionSummary+  where+  hashWithSalt _salt ServiceTemplateVersionSummary' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` recommendedMinorVersion+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` createdAt+      `Prelude.hashWithSalt` lastModifiedAt+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData ServiceTemplateVersionSummary where+  rnf ServiceTemplateVersionSummary' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf recommendedMinorVersion+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf arn+      `Prelude.seq` Prelude.rnf createdAt+      `Prelude.seq` Prelude.rnf lastModifiedAt+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf templateName
+ gen/Amazonka/Proton/Types/SortOrder.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.SortOrder+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.SortOrder+  ( SortOrder+      ( ..,+        SortOrder_ASCENDING,+        SortOrder_DESCENDING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SortOrder = SortOrder'+  { fromSortOrder ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SortOrder_ASCENDING :: SortOrder+pattern SortOrder_ASCENDING = SortOrder' "ASCENDING"++pattern SortOrder_DESCENDING :: SortOrder+pattern SortOrder_DESCENDING = SortOrder' "DESCENDING"++{-# COMPLETE+  SortOrder_ASCENDING,+  SortOrder_DESCENDING,+  SortOrder'+  #-}
+ gen/Amazonka/Proton/Types/SyncType.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.SyncType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.SyncType+  ( SyncType+      ( ..,+        SyncType_TEMPLATE_SYNC+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SyncType = SyncType'+  { fromSyncType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SyncType_TEMPLATE_SYNC :: SyncType+pattern SyncType_TEMPLATE_SYNC = SyncType' "TEMPLATE_SYNC"++{-# COMPLETE+  SyncType_TEMPLATE_SYNC,+  SyncType'+  #-}
+ gen/Amazonka/Proton/Types/Tag.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.Tag+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.Tag where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A description of a resource tag.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | The key of the resource tag.+    key :: Prelude.Text,+    -- | The value of the resource tag.+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'tag_key' - The key of the resource tag.+--+-- 'value', 'tag_value' - The value of the resource tag.+newTag ::+  -- | 'key'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  Tag+newTag pKey_ pValue_ =+  Tag' {key = pKey_, value = pValue_}++-- | The key of the resource tag.+tag_key :: Lens.Lens' Tag Prelude.Text+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | The value of the resource tag.+tag_value :: Lens.Lens' Tag Prelude.Text+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..: "key")+            Prelude.<*> (x Data..: "value")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("key" Data..= key),+            Prelude.Just ("value" Data..= value)+          ]+      )
+ gen/Amazonka/Proton/Types/TemplateSyncConfig.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.TemplateSyncConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.TemplateSyncConfig where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.RepositoryProvider+import Amazonka.Proton.Types.TemplateType++-- | The detail data for a template sync configuration.+--+-- /See:/ 'newTemplateSyncConfig' smart constructor.+data TemplateSyncConfig = TemplateSyncConfig'+  { -- | A subdirectory path to your template bundle version.+    subdirectory :: Prelude.Maybe Prelude.Text,+    -- | The repository branch.+    branch :: Prelude.Text,+    -- | The repository name (for example, @myrepos\/myrepo@).+    repositoryName :: Prelude.Text,+    -- | The repository provider.+    repositoryProvider :: RepositoryProvider,+    -- | The template name.+    templateName :: Prelude.Text,+    -- | The template type.+    templateType :: TemplateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TemplateSyncConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'subdirectory', 'templateSyncConfig_subdirectory' - A subdirectory path to your template bundle version.+--+-- 'branch', 'templateSyncConfig_branch' - The repository branch.+--+-- 'repositoryName', 'templateSyncConfig_repositoryName' - The repository name (for example, @myrepos\/myrepo@).+--+-- 'repositoryProvider', 'templateSyncConfig_repositoryProvider' - The repository provider.+--+-- 'templateName', 'templateSyncConfig_templateName' - The template name.+--+-- 'templateType', 'templateSyncConfig_templateType' - The template type.+newTemplateSyncConfig ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'repositoryName'+  Prelude.Text ->+  -- | 'repositoryProvider'+  RepositoryProvider ->+  -- | 'templateName'+  Prelude.Text ->+  -- | 'templateType'+  TemplateType ->+  TemplateSyncConfig+newTemplateSyncConfig+  pBranch_+  pRepositoryName_+  pRepositoryProvider_+  pTemplateName_+  pTemplateType_ =+    TemplateSyncConfig'+      { subdirectory = Prelude.Nothing,+        branch = pBranch_,+        repositoryName = pRepositoryName_,+        repositoryProvider = pRepositoryProvider_,+        templateName = pTemplateName_,+        templateType = pTemplateType_+      }++-- | A subdirectory path to your template bundle version.+templateSyncConfig_subdirectory :: Lens.Lens' TemplateSyncConfig (Prelude.Maybe Prelude.Text)+templateSyncConfig_subdirectory = Lens.lens (\TemplateSyncConfig' {subdirectory} -> subdirectory) (\s@TemplateSyncConfig' {} a -> s {subdirectory = a} :: TemplateSyncConfig)++-- | The repository branch.+templateSyncConfig_branch :: Lens.Lens' TemplateSyncConfig Prelude.Text+templateSyncConfig_branch = Lens.lens (\TemplateSyncConfig' {branch} -> branch) (\s@TemplateSyncConfig' {} a -> s {branch = a} :: TemplateSyncConfig)++-- | The repository name (for example, @myrepos\/myrepo@).+templateSyncConfig_repositoryName :: Lens.Lens' TemplateSyncConfig Prelude.Text+templateSyncConfig_repositoryName = Lens.lens (\TemplateSyncConfig' {repositoryName} -> repositoryName) (\s@TemplateSyncConfig' {} a -> s {repositoryName = a} :: TemplateSyncConfig)++-- | The repository provider.+templateSyncConfig_repositoryProvider :: Lens.Lens' TemplateSyncConfig RepositoryProvider+templateSyncConfig_repositoryProvider = Lens.lens (\TemplateSyncConfig' {repositoryProvider} -> repositoryProvider) (\s@TemplateSyncConfig' {} a -> s {repositoryProvider = a} :: TemplateSyncConfig)++-- | The template name.+templateSyncConfig_templateName :: Lens.Lens' TemplateSyncConfig Prelude.Text+templateSyncConfig_templateName = Lens.lens (\TemplateSyncConfig' {templateName} -> templateName) (\s@TemplateSyncConfig' {} a -> s {templateName = a} :: TemplateSyncConfig)++-- | The template type.+templateSyncConfig_templateType :: Lens.Lens' TemplateSyncConfig TemplateType+templateSyncConfig_templateType = Lens.lens (\TemplateSyncConfig' {templateType} -> templateType) (\s@TemplateSyncConfig' {} a -> s {templateType = a} :: TemplateSyncConfig)++instance Data.FromJSON TemplateSyncConfig where+  parseJSON =+    Data.withObject+      "TemplateSyncConfig"+      ( \x ->+          TemplateSyncConfig'+            Prelude.<$> (x Data..:? "subdirectory")+            Prelude.<*> (x Data..: "branch")+            Prelude.<*> (x Data..: "repositoryName")+            Prelude.<*> (x Data..: "repositoryProvider")+            Prelude.<*> (x Data..: "templateName")+            Prelude.<*> (x Data..: "templateType")+      )++instance Prelude.Hashable TemplateSyncConfig where+  hashWithSalt _salt TemplateSyncConfig' {..} =+    _salt+      `Prelude.hashWithSalt` subdirectory+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` repositoryName+      `Prelude.hashWithSalt` repositoryProvider+      `Prelude.hashWithSalt` templateName+      `Prelude.hashWithSalt` templateType++instance Prelude.NFData TemplateSyncConfig where+  rnf TemplateSyncConfig' {..} =+    Prelude.rnf subdirectory+      `Prelude.seq` Prelude.rnf branch+      `Prelude.seq` Prelude.rnf repositoryName+      `Prelude.seq` Prelude.rnf repositoryProvider+      `Prelude.seq` Prelude.rnf templateName+      `Prelude.seq` Prelude.rnf templateType
+ gen/Amazonka/Proton/Types/TemplateType.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.TemplateType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.TemplateType+  ( TemplateType+      ( ..,+        TemplateType_ENVIRONMENT,+        TemplateType_SERVICE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TemplateType = TemplateType'+  { fromTemplateType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TemplateType_ENVIRONMENT :: TemplateType+pattern TemplateType_ENVIRONMENT = TemplateType' "ENVIRONMENT"++pattern TemplateType_SERVICE :: TemplateType+pattern TemplateType_SERVICE = TemplateType' "SERVICE"++{-# COMPLETE+  TemplateType_ENVIRONMENT,+  TemplateType_SERVICE,+  TemplateType'+  #-}
+ gen/Amazonka/Proton/Types/TemplateVersionSourceInput.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.TemplateVersionSourceInput+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.TemplateVersionSourceInput where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types.S3ObjectSource++-- | Template version source data.+--+-- /See:/ 'newTemplateVersionSourceInput' smart constructor.+data TemplateVersionSourceInput = TemplateVersionSourceInput'+  { -- | An S3 source object that includes the template bundle S3 path and name+    -- for a template minor version.+    s3 :: Prelude.Maybe S3ObjectSource+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TemplateVersionSourceInput' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 's3', 'templateVersionSourceInput_s3' - An S3 source object that includes the template bundle S3 path and name+-- for a template minor version.+newTemplateVersionSourceInput ::+  TemplateVersionSourceInput+newTemplateVersionSourceInput =+  TemplateVersionSourceInput' {s3 = Prelude.Nothing}++-- | An S3 source object that includes the template bundle S3 path and name+-- for a template minor version.+templateVersionSourceInput_s3 :: Lens.Lens' TemplateVersionSourceInput (Prelude.Maybe S3ObjectSource)+templateVersionSourceInput_s3 = Lens.lens (\TemplateVersionSourceInput' {s3} -> s3) (\s@TemplateVersionSourceInput' {} a -> s {s3 = a} :: TemplateVersionSourceInput)++instance Prelude.Hashable TemplateVersionSourceInput where+  hashWithSalt _salt TemplateVersionSourceInput' {..} =+    _salt `Prelude.hashWithSalt` s3++instance Prelude.NFData TemplateVersionSourceInput where+  rnf TemplateVersionSourceInput' {..} = Prelude.rnf s3++instance Data.ToJSON TemplateVersionSourceInput where+  toJSON TemplateVersionSourceInput' {..} =+    Data.object+      (Prelude.catMaybes [("s3" Data..=) Prelude.<$> s3])
+ gen/Amazonka/Proton/Types/TemplateVersionStatus.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Types.TemplateVersionStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Types.TemplateVersionStatus+  ( TemplateVersionStatus+      ( ..,+        TemplateVersionStatus_DRAFT,+        TemplateVersionStatus_PUBLISHED,+        TemplateVersionStatus_REGISTRATION_FAILED,+        TemplateVersionStatus_REGISTRATION_IN_PROGRESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TemplateVersionStatus = TemplateVersionStatus'+  { fromTemplateVersionStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TemplateVersionStatus_DRAFT :: TemplateVersionStatus+pattern TemplateVersionStatus_DRAFT = TemplateVersionStatus' "DRAFT"++pattern TemplateVersionStatus_PUBLISHED :: TemplateVersionStatus+pattern TemplateVersionStatus_PUBLISHED = TemplateVersionStatus' "PUBLISHED"++pattern TemplateVersionStatus_REGISTRATION_FAILED :: TemplateVersionStatus+pattern TemplateVersionStatus_REGISTRATION_FAILED = TemplateVersionStatus' "REGISTRATION_FAILED"++pattern TemplateVersionStatus_REGISTRATION_IN_PROGRESS :: TemplateVersionStatus+pattern TemplateVersionStatus_REGISTRATION_IN_PROGRESS = TemplateVersionStatus' "REGISTRATION_IN_PROGRESS"++{-# COMPLETE+  TemplateVersionStatus_DRAFT,+  TemplateVersionStatus_PUBLISHED,+  TemplateVersionStatus_REGISTRATION_FAILED,+  TemplateVersionStatus_REGISTRATION_IN_PROGRESS,+  TemplateVersionStatus'+  #-}
+ gen/Amazonka/Proton/UntagResource.hs view
@@ -0,0 +1,182 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UntagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Remove a customer tag from a resource. A tag is a key-value pair of+-- metadata associated with an Proton resource.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/resources.html Proton resources and tagging>+-- in the /Proton User Guide/.+module Amazonka.Proton.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_resourceArn,+    untagResource_tagKeys,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,++    -- * Response Lenses+    untagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | The Amazon Resource Name (ARN) of the resource to remove customer tags+    -- from.+    resourceArn :: Prelude.Text,+    -- | A list of customer tag keys that indicate the customer tags to be+    -- removed from the resource.+    tagKeys :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'untagResource_resourceArn' - The Amazon Resource Name (ARN) of the resource to remove customer tags+-- from.+--+-- 'tagKeys', 'untagResource_tagKeys' - A list of customer tag keys that indicate the customer tags to be+-- removed from the resource.+newUntagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  UntagResource+newUntagResource pResourceArn_ =+  UntagResource'+    { resourceArn = pResourceArn_,+      tagKeys = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the resource to remove customer tags+-- from.+untagResource_resourceArn :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceArn = Lens.lens (\UntagResource' {resourceArn} -> resourceArn) (\s@UntagResource' {} a -> s {resourceArn = a} :: UntagResource)++-- | A list of customer tag keys that indicate the customer tags to be+-- removed from the resource.+untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]+untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UntagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UntagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UntagResource where+  toJSON UntagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("resourceArn" Data..= resourceArn),+            Prelude.Just ("tagKeys" Data..= tagKeys)+          ]+      )++instance Data.ToPath UntagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery UntagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'untagResourceResponse_httpStatus' - The response's http status code.+newUntagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UntagResourceResponse+newUntagResourceResponse pHttpStatus_ =+  UntagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int+untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)++instance Prelude.NFData UntagResourceResponse where+  rnf UntagResourceResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/Proton/UpdateAccountSettings.hs view
@@ -0,0 +1,271 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateAccountSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update Proton settings that are used for multiple services in the Amazon+-- Web Services account.+module Amazonka.Proton.UpdateAccountSettings+  ( -- * Creating a Request+    UpdateAccountSettings (..),+    newUpdateAccountSettings,++    -- * Request Lenses+    updateAccountSettings_deletePipelineProvisioningRepository,+    updateAccountSettings_pipelineCodebuildRoleArn,+    updateAccountSettings_pipelineProvisioningRepository,+    updateAccountSettings_pipelineServiceRoleArn,++    -- * Destructuring the Response+    UpdateAccountSettingsResponse (..),+    newUpdateAccountSettingsResponse,++    -- * Response Lenses+    updateAccountSettingsResponse_httpStatus,+    updateAccountSettingsResponse_accountSettings,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateAccountSettings' smart constructor.+data UpdateAccountSettings = UpdateAccountSettings'+  { -- | Set to @true@ to remove a configured pipeline repository from the+    -- account settings. Don\'t set this field if you are updating the+    -- configured pipeline repository.+    deletePipelineProvisioningRepository :: Prelude.Maybe Prelude.Bool,+    -- | The Amazon Resource Name (ARN) of the service role you want to use for+    -- provisioning pipelines. Proton assumes this role for CodeBuild-based+    -- provisioning.+    pipelineCodebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | A linked repository for pipeline provisioning. Specify it if you have+    -- environments configured for self-managed provisioning with services that+    -- include pipelines. A linked repository is a repository that has been+    -- registered with Proton. For more information, see CreateRepository.+    --+    -- To remove a previously configured repository, set+    -- @deletePipelineProvisioningRepository@ to @true@, and don\'t set+    -- @pipelineProvisioningRepository@.+    pipelineProvisioningRepository :: Prelude.Maybe RepositoryBranchInput,+    -- | The Amazon Resource Name (ARN) of the service role you want to use for+    -- provisioning pipelines. Assumed by Proton for Amazon Web+    -- Services-managed provisioning, and by customer-owned automation for+    -- self-managed provisioning.+    --+    -- To remove a previously configured ARN, specify an empty string.+    pipelineServiceRoleArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateAccountSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deletePipelineProvisioningRepository', 'updateAccountSettings_deletePipelineProvisioningRepository' - Set to @true@ to remove a configured pipeline repository from the+-- account settings. Don\'t set this field if you are updating the+-- configured pipeline repository.+--+-- 'pipelineCodebuildRoleArn', 'updateAccountSettings_pipelineCodebuildRoleArn' - The Amazon Resource Name (ARN) of the service role you want to use for+-- provisioning pipelines. Proton assumes this role for CodeBuild-based+-- provisioning.+--+-- 'pipelineProvisioningRepository', 'updateAccountSettings_pipelineProvisioningRepository' - A linked repository for pipeline provisioning. Specify it if you have+-- environments configured for self-managed provisioning with services that+-- include pipelines. A linked repository is a repository that has been+-- registered with Proton. For more information, see CreateRepository.+--+-- To remove a previously configured repository, set+-- @deletePipelineProvisioningRepository@ to @true@, and don\'t set+-- @pipelineProvisioningRepository@.+--+-- 'pipelineServiceRoleArn', 'updateAccountSettings_pipelineServiceRoleArn' - The Amazon Resource Name (ARN) of the service role you want to use for+-- provisioning pipelines. Assumed by Proton for Amazon Web+-- Services-managed provisioning, and by customer-owned automation for+-- self-managed provisioning.+--+-- To remove a previously configured ARN, specify an empty string.+newUpdateAccountSettings ::+  UpdateAccountSettings+newUpdateAccountSettings =+  UpdateAccountSettings'+    { deletePipelineProvisioningRepository =+        Prelude.Nothing,+      pipelineCodebuildRoleArn = Prelude.Nothing,+      pipelineProvisioningRepository = Prelude.Nothing,+      pipelineServiceRoleArn = Prelude.Nothing+    }++-- | Set to @true@ to remove a configured pipeline repository from the+-- account settings. Don\'t set this field if you are updating the+-- configured pipeline repository.+updateAccountSettings_deletePipelineProvisioningRepository :: Lens.Lens' UpdateAccountSettings (Prelude.Maybe Prelude.Bool)+updateAccountSettings_deletePipelineProvisioningRepository = Lens.lens (\UpdateAccountSettings' {deletePipelineProvisioningRepository} -> deletePipelineProvisioningRepository) (\s@UpdateAccountSettings' {} a -> s {deletePipelineProvisioningRepository = a} :: UpdateAccountSettings)++-- | The Amazon Resource Name (ARN) of the service role you want to use for+-- provisioning pipelines. Proton assumes this role for CodeBuild-based+-- provisioning.+updateAccountSettings_pipelineCodebuildRoleArn :: Lens.Lens' UpdateAccountSettings (Prelude.Maybe Prelude.Text)+updateAccountSettings_pipelineCodebuildRoleArn = Lens.lens (\UpdateAccountSettings' {pipelineCodebuildRoleArn} -> pipelineCodebuildRoleArn) (\s@UpdateAccountSettings' {} a -> s {pipelineCodebuildRoleArn = a} :: UpdateAccountSettings)++-- | A linked repository for pipeline provisioning. Specify it if you have+-- environments configured for self-managed provisioning with services that+-- include pipelines. A linked repository is a repository that has been+-- registered with Proton. For more information, see CreateRepository.+--+-- To remove a previously configured repository, set+-- @deletePipelineProvisioningRepository@ to @true@, and don\'t set+-- @pipelineProvisioningRepository@.+updateAccountSettings_pipelineProvisioningRepository :: Lens.Lens' UpdateAccountSettings (Prelude.Maybe RepositoryBranchInput)+updateAccountSettings_pipelineProvisioningRepository = Lens.lens (\UpdateAccountSettings' {pipelineProvisioningRepository} -> pipelineProvisioningRepository) (\s@UpdateAccountSettings' {} a -> s {pipelineProvisioningRepository = a} :: UpdateAccountSettings)++-- | The Amazon Resource Name (ARN) of the service role you want to use for+-- provisioning pipelines. Assumed by Proton for Amazon Web+-- Services-managed provisioning, and by customer-owned automation for+-- self-managed provisioning.+--+-- To remove a previously configured ARN, specify an empty string.+updateAccountSettings_pipelineServiceRoleArn :: Lens.Lens' UpdateAccountSettings (Prelude.Maybe Prelude.Text)+updateAccountSettings_pipelineServiceRoleArn = Lens.lens (\UpdateAccountSettings' {pipelineServiceRoleArn} -> pipelineServiceRoleArn) (\s@UpdateAccountSettings' {} a -> s {pipelineServiceRoleArn = a} :: UpdateAccountSettings)++instance Core.AWSRequest UpdateAccountSettings where+  type+    AWSResponse UpdateAccountSettings =+      UpdateAccountSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateAccountSettingsResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "accountSettings")+      )++instance Prelude.Hashable UpdateAccountSettings where+  hashWithSalt _salt UpdateAccountSettings' {..} =+    _salt+      `Prelude.hashWithSalt` deletePipelineProvisioningRepository+      `Prelude.hashWithSalt` pipelineCodebuildRoleArn+      `Prelude.hashWithSalt` pipelineProvisioningRepository+      `Prelude.hashWithSalt` pipelineServiceRoleArn++instance Prelude.NFData UpdateAccountSettings where+  rnf UpdateAccountSettings' {..} =+    Prelude.rnf deletePipelineProvisioningRepository+      `Prelude.seq` Prelude.rnf pipelineCodebuildRoleArn+      `Prelude.seq` Prelude.rnf pipelineProvisioningRepository+      `Prelude.seq` Prelude.rnf pipelineServiceRoleArn++instance Data.ToHeaders UpdateAccountSettings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateAccountSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateAccountSettings where+  toJSON UpdateAccountSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("deletePipelineProvisioningRepository" Data..=)+              Prelude.<$> deletePipelineProvisioningRepository,+            ("pipelineCodebuildRoleArn" Data..=)+              Prelude.<$> pipelineCodebuildRoleArn,+            ("pipelineProvisioningRepository" Data..=)+              Prelude.<$> pipelineProvisioningRepository,+            ("pipelineServiceRoleArn" Data..=)+              Prelude.<$> pipelineServiceRoleArn+          ]+      )++instance Data.ToPath UpdateAccountSettings where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateAccountSettings where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateAccountSettingsResponse' smart constructor.+data UpdateAccountSettingsResponse = UpdateAccountSettingsResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Proton pipeline service role and repository data shared across the+    -- Amazon Web Services account.+    accountSettings :: AccountSettings+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateAccountSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateAccountSettingsResponse_httpStatus' - The response's http status code.+--+-- 'accountSettings', 'updateAccountSettingsResponse_accountSettings' - The Proton pipeline service role and repository data shared across the+-- Amazon Web Services account.+newUpdateAccountSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'accountSettings'+  AccountSettings ->+  UpdateAccountSettingsResponse+newUpdateAccountSettingsResponse+  pHttpStatus_+  pAccountSettings_ =+    UpdateAccountSettingsResponse'+      { httpStatus =+          pHttpStatus_,+        accountSettings = pAccountSettings_+      }++-- | The response's http status code.+updateAccountSettingsResponse_httpStatus :: Lens.Lens' UpdateAccountSettingsResponse Prelude.Int+updateAccountSettingsResponse_httpStatus = Lens.lens (\UpdateAccountSettingsResponse' {httpStatus} -> httpStatus) (\s@UpdateAccountSettingsResponse' {} a -> s {httpStatus = a} :: UpdateAccountSettingsResponse)++-- | The Proton pipeline service role and repository data shared across the+-- Amazon Web Services account.+updateAccountSettingsResponse_accountSettings :: Lens.Lens' UpdateAccountSettingsResponse AccountSettings+updateAccountSettingsResponse_accountSettings = Lens.lens (\UpdateAccountSettingsResponse' {accountSettings} -> accountSettings) (\s@UpdateAccountSettingsResponse' {} a -> s {accountSettings = a} :: UpdateAccountSettingsResponse)++instance Prelude.NFData UpdateAccountSettingsResponse where+  rnf UpdateAccountSettingsResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf accountSettings
+ gen/Amazonka/Proton/UpdateComponent.hs view
@@ -0,0 +1,354 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateComponent+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update a component.+--+-- There are a few modes for updating a component. The @deploymentType@+-- field defines the mode.+--+-- You can\'t update a component while its deployment status, or the+-- deployment status of a service instance attached to it, is+-- @IN_PROGRESS@.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.UpdateComponent+  ( -- * Creating a Request+    UpdateComponent (..),+    newUpdateComponent,++    -- * Request Lenses+    updateComponent_description,+    updateComponent_serviceInstanceName,+    updateComponent_serviceName,+    updateComponent_serviceSpec,+    updateComponent_templateFile,+    updateComponent_deploymentType,+    updateComponent_name,++    -- * Destructuring the Response+    UpdateComponentResponse (..),+    newUpdateComponentResponse,++    -- * Response Lenses+    updateComponentResponse_httpStatus,+    updateComponentResponse_component,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateComponent' smart constructor.+data UpdateComponent = UpdateComponent'+  { -- | An optional customer-provided description of the component.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the service instance that you want to attach this component+    -- to. Don\'t specify to keep the component\'s current service instance+    -- attachment. Specify an empty string to detach the component from the+    -- service instance it\'s attached to. Specify non-empty values for both+    -- @serviceInstanceName@ and @serviceName@ or for neither of them.+    serviceInstanceName :: Prelude.Maybe Prelude.Text,+    -- | The name of the service that @serviceInstanceName@ is associated with.+    -- Don\'t specify to keep the component\'s current service instance+    -- attachment. Specify an empty string to detach the component from the+    -- service instance it\'s attached to. Specify non-empty values for both+    -- @serviceInstanceName@ and @serviceName@ or for neither of them.+    serviceName :: Prelude.Maybe Prelude.Text,+    -- | The service spec that you want the component to use to access service+    -- inputs. Set this only when the component is attached to a service+    -- instance.+    serviceSpec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | A path to the Infrastructure as Code (IaC) file describing+    -- infrastructure that a custom component provisions.+    --+    -- Components support a single IaC file, even if you use Terraform as your+    -- template language.+    templateFile :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The deployment type. It defines the mode for updating a component, as+    -- follows:+    --+    -- []+    --     @NONE@+    --+    --     In this mode, a deployment /doesn\'t/ occur. Only the requested+    --     metadata parameters are updated. You can only specify @description@+    --     in this mode.+    --+    -- []+    --     @CURRENT_VERSION@+    --+    --     In this mode, the component is deployed and updated with the new+    --     @serviceSpec@, @templateSource@, and\/or @type@ that you provide.+    --     Only requested parameters are updated.+    deploymentType :: ComponentDeploymentUpdateType,+    -- | The name of the component to update.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateComponent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateComponent_description' - An optional customer-provided description of the component.+--+-- 'serviceInstanceName', 'updateComponent_serviceInstanceName' - The name of the service instance that you want to attach this component+-- to. Don\'t specify to keep the component\'s current service instance+-- attachment. Specify an empty string to detach the component from the+-- service instance it\'s attached to. Specify non-empty values for both+-- @serviceInstanceName@ and @serviceName@ or for neither of them.+--+-- 'serviceName', 'updateComponent_serviceName' - The name of the service that @serviceInstanceName@ is associated with.+-- Don\'t specify to keep the component\'s current service instance+-- attachment. Specify an empty string to detach the component from the+-- service instance it\'s attached to. Specify non-empty values for both+-- @serviceInstanceName@ and @serviceName@ or for neither of them.+--+-- 'serviceSpec', 'updateComponent_serviceSpec' - The service spec that you want the component to use to access service+-- inputs. Set this only when the component is attached to a service+-- instance.+--+-- 'templateFile', 'updateComponent_templateFile' - A path to the Infrastructure as Code (IaC) file describing+-- infrastructure that a custom component provisions.+--+-- Components support a single IaC file, even if you use Terraform as your+-- template language.+--+-- 'deploymentType', 'updateComponent_deploymentType' - The deployment type. It defines the mode for updating a component, as+-- follows:+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated. You can only specify @description@+--     in this mode.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the component is deployed and updated with the new+--     @serviceSpec@, @templateSource@, and\/or @type@ that you provide.+--     Only requested parameters are updated.+--+-- 'name', 'updateComponent_name' - The name of the component to update.+newUpdateComponent ::+  -- | 'deploymentType'+  ComponentDeploymentUpdateType ->+  -- | 'name'+  Prelude.Text ->+  UpdateComponent+newUpdateComponent pDeploymentType_ pName_ =+  UpdateComponent'+    { description = Prelude.Nothing,+      serviceInstanceName = Prelude.Nothing,+      serviceName = Prelude.Nothing,+      serviceSpec = Prelude.Nothing,+      templateFile = Prelude.Nothing,+      deploymentType = pDeploymentType_,+      name = pName_+    }++-- | An optional customer-provided description of the component.+updateComponent_description :: Lens.Lens' UpdateComponent (Prelude.Maybe Prelude.Text)+updateComponent_description = Lens.lens (\UpdateComponent' {description} -> description) (\s@UpdateComponent' {} a -> s {description = a} :: UpdateComponent) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the service instance that you want to attach this component+-- to. Don\'t specify to keep the component\'s current service instance+-- attachment. Specify an empty string to detach the component from the+-- service instance it\'s attached to. Specify non-empty values for both+-- @serviceInstanceName@ and @serviceName@ or for neither of them.+updateComponent_serviceInstanceName :: Lens.Lens' UpdateComponent (Prelude.Maybe Prelude.Text)+updateComponent_serviceInstanceName = Lens.lens (\UpdateComponent' {serviceInstanceName} -> serviceInstanceName) (\s@UpdateComponent' {} a -> s {serviceInstanceName = a} :: UpdateComponent)++-- | The name of the service that @serviceInstanceName@ is associated with.+-- Don\'t specify to keep the component\'s current service instance+-- attachment. Specify an empty string to detach the component from the+-- service instance it\'s attached to. Specify non-empty values for both+-- @serviceInstanceName@ and @serviceName@ or for neither of them.+updateComponent_serviceName :: Lens.Lens' UpdateComponent (Prelude.Maybe Prelude.Text)+updateComponent_serviceName = Lens.lens (\UpdateComponent' {serviceName} -> serviceName) (\s@UpdateComponent' {} a -> s {serviceName = a} :: UpdateComponent)++-- | The service spec that you want the component to use to access service+-- inputs. Set this only when the component is attached to a service+-- instance.+updateComponent_serviceSpec :: Lens.Lens' UpdateComponent (Prelude.Maybe Prelude.Text)+updateComponent_serviceSpec = Lens.lens (\UpdateComponent' {serviceSpec} -> serviceSpec) (\s@UpdateComponent' {} a -> s {serviceSpec = a} :: UpdateComponent) Prelude.. Lens.mapping Data._Sensitive++-- | A path to the Infrastructure as Code (IaC) file describing+-- infrastructure that a custom component provisions.+--+-- Components support a single IaC file, even if you use Terraform as your+-- template language.+updateComponent_templateFile :: Lens.Lens' UpdateComponent (Prelude.Maybe Prelude.Text)+updateComponent_templateFile = Lens.lens (\UpdateComponent' {templateFile} -> templateFile) (\s@UpdateComponent' {} a -> s {templateFile = a} :: UpdateComponent) Prelude.. Lens.mapping Data._Sensitive++-- | The deployment type. It defines the mode for updating a component, as+-- follows:+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated. You can only specify @description@+--     in this mode.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the component is deployed and updated with the new+--     @serviceSpec@, @templateSource@, and\/or @type@ that you provide.+--     Only requested parameters are updated.+updateComponent_deploymentType :: Lens.Lens' UpdateComponent ComponentDeploymentUpdateType+updateComponent_deploymentType = Lens.lens (\UpdateComponent' {deploymentType} -> deploymentType) (\s@UpdateComponent' {} a -> s {deploymentType = a} :: UpdateComponent)++-- | The name of the component to update.+updateComponent_name :: Lens.Lens' UpdateComponent Prelude.Text+updateComponent_name = Lens.lens (\UpdateComponent' {name} -> name) (\s@UpdateComponent' {} a -> s {name = a} :: UpdateComponent)++instance Core.AWSRequest UpdateComponent where+  type+    AWSResponse UpdateComponent =+      UpdateComponentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateComponentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "component")+      )++instance Prelude.Hashable UpdateComponent where+  hashWithSalt _salt UpdateComponent' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` serviceInstanceName+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` serviceSpec+      `Prelude.hashWithSalt` templateFile+      `Prelude.hashWithSalt` deploymentType+      `Prelude.hashWithSalt` name++instance Prelude.NFData UpdateComponent where+  rnf UpdateComponent' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf serviceInstanceName+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf serviceSpec+      `Prelude.seq` Prelude.rnf templateFile+      `Prelude.seq` Prelude.rnf deploymentType+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders UpdateComponent where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateComponent" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateComponent where+  toJSON UpdateComponent' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("serviceInstanceName" Data..=)+              Prelude.<$> serviceInstanceName,+            ("serviceName" Data..=) Prelude.<$> serviceName,+            ("serviceSpec" Data..=) Prelude.<$> serviceSpec,+            ("templateFile" Data..=) Prelude.<$> templateFile,+            Prelude.Just+              ("deploymentType" Data..= deploymentType),+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath UpdateComponent where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateComponent where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateComponentResponse' smart constructor.+data UpdateComponentResponse = UpdateComponentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The detailed data of the updated component.+    component :: Component+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateComponentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateComponentResponse_httpStatus' - The response's http status code.+--+-- 'component', 'updateComponentResponse_component' - The detailed data of the updated component.+newUpdateComponentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'component'+  Component ->+  UpdateComponentResponse+newUpdateComponentResponse pHttpStatus_ pComponent_ =+  UpdateComponentResponse'+    { httpStatus = pHttpStatus_,+      component = pComponent_+    }++-- | The response's http status code.+updateComponentResponse_httpStatus :: Lens.Lens' UpdateComponentResponse Prelude.Int+updateComponentResponse_httpStatus = Lens.lens (\UpdateComponentResponse' {httpStatus} -> httpStatus) (\s@UpdateComponentResponse' {} a -> s {httpStatus = a} :: UpdateComponentResponse)++-- | The detailed data of the updated component.+updateComponentResponse_component :: Lens.Lens' UpdateComponentResponse Component+updateComponentResponse_component = Lens.lens (\UpdateComponentResponse' {component} -> component) (\s@UpdateComponentResponse' {} a -> s {component = a} :: UpdateComponentResponse)++instance Prelude.NFData UpdateComponentResponse where+  rnf UpdateComponentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf component
+ gen/Amazonka/Proton/UpdateEnvironment.hs view
@@ -0,0 +1,540 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateEnvironment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update an environment.+--+-- If the environment is associated with an environment account connection,+-- /don\'t/ update or include the @protonServiceRoleArn@ and+-- @provisioningRepository@ parameter to update or connect to an+-- environment account connection.+--+-- You can only update to a new environment account connection if that+-- connection was created in the same environment account that the current+-- environment account connection was created in. The account connection+-- must also be associated with the current environment.+--+-- If the environment /isn\'t/ associated with an environment account+-- connection, /don\'t/ update or include the+-- @environmentAccountConnectionId@ parameter. You /can\'t/ update or+-- connect the environment to an environment account connection if it+-- /isn\'t/ already associated with an environment connection.+--+-- You can update either the @environmentAccountConnectionId@ or+-- @protonServiceRoleArn@ parameter and value. You can’t update both.+--+-- If the environment was configured for Amazon Web Services-managed+-- provisioning, omit the @provisioningRepository@ parameter.+--+-- If the environment was configured for self-managed provisioning, specify+-- the @provisioningRepository@ parameter and omit the+-- @protonServiceRoleArn@ and @environmentAccountConnectionId@ parameters.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-environments.html Environments>+-- and+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-works-prov-methods.html Provisioning methods>+-- in the /Proton User Guide/.+--+-- There are four modes for updating an environment. The @deploymentType@+-- field defines the mode.+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the environment is deployed and updated with the new+--     spec that you provide. Only requested parameters are updated.+--     /Don’t/ include minor or major version parameters when you use this+--     @deployment-type@.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the environment is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can also specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the environment is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can also specify a different major+--     version that\'s higher than the major version in use and a minor+--     version.+module Amazonka.Proton.UpdateEnvironment+  ( -- * Creating a Request+    UpdateEnvironment (..),+    newUpdateEnvironment,++    -- * Request Lenses+    updateEnvironment_codebuildRoleArn,+    updateEnvironment_componentRoleArn,+    updateEnvironment_description,+    updateEnvironment_environmentAccountConnectionId,+    updateEnvironment_protonServiceRoleArn,+    updateEnvironment_provisioningRepository,+    updateEnvironment_spec,+    updateEnvironment_templateMajorVersion,+    updateEnvironment_templateMinorVersion,+    updateEnvironment_deploymentType,+    updateEnvironment_name,++    -- * Destructuring the Response+    UpdateEnvironmentResponse (..),+    newUpdateEnvironmentResponse,++    -- * Response Lenses+    updateEnvironmentResponse_httpStatus,+    updateEnvironmentResponse_environment,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateEnvironment' smart constructor.+data UpdateEnvironment = UpdateEnvironment'+  { -- | The Amazon Resource Name (ARN) of the IAM service role that allows+    -- Proton to provision infrastructure using CodeBuild-based provisioning on+    -- your behalf.+    codebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in this environment. It+    -- determines the scope of infrastructure that a component can provision.+    --+    -- The environment must have a @componentRoleArn@ to allow directly defined+    -- components to be associated with the environment.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | A description of the environment update.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The ID of the environment account connection.+    --+    -- You can only update to a new environment account connection if it was+    -- created in the same environment account that the current environment+    -- account connection was created in and is associated with the current+    -- environment.+    environmentAccountConnectionId :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the Proton service role that allows+    -- Proton to make API calls to other services your behalf.+    protonServiceRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The linked repository that you use to host your rendered infrastructure+    -- templates for self-managed provisioning. A linked repository is a+    -- repository that has been registered with Proton. For more information,+    -- see CreateRepository.+    provisioningRepository :: Prelude.Maybe RepositoryBranchInput,+    -- | The formatted specification that defines the update.+    spec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The major version of the environment to update.+    templateMajorVersion :: Prelude.Maybe Prelude.Text,+    -- | The minor version of the environment to update.+    templateMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | There are four modes for updating an environment. The @deploymentType@+    -- field defines the mode.+    --+    -- []+    --     @NONE@+    --+    --     In this mode, a deployment /doesn\'t/ occur. Only the requested+    --     metadata parameters are updated.+    --+    -- []+    --     @CURRENT_VERSION@+    --+    --     In this mode, the environment is deployed and updated with the new+    --     spec that you provide. Only requested parameters are updated.+    --     /Don’t/ include major or minor version parameters when you use this+    --     @deployment-type@.+    --+    -- []+    --     @MINOR_VERSION@+    --+    --     In this mode, the environment is deployed and updated with the+    --     published, recommended (latest) minor version of the current major+    --     version in use, by default. You can also specify a different minor+    --     version of the current major version in use.+    --+    -- []+    --     @MAJOR_VERSION@+    --+    --     In this mode, the environment is deployed and updated with the+    --     published, recommended (latest) major and minor version of the+    --     current template, by default. You can also specify a different major+    --     version that is higher than the major version in use and a minor+    --     version (optional).+    deploymentType :: DeploymentUpdateType,+    -- | The name of the environment to update.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'codebuildRoleArn', 'updateEnvironment_codebuildRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that allows+-- Proton to provision infrastructure using CodeBuild-based provisioning on+-- your behalf.+--+-- 'componentRoleArn', 'updateEnvironment_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- The environment must have a @componentRoleArn@ to allow directly defined+-- components to be associated with the environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'description', 'updateEnvironment_description' - A description of the environment update.+--+-- 'environmentAccountConnectionId', 'updateEnvironment_environmentAccountConnectionId' - The ID of the environment account connection.+--+-- You can only update to a new environment account connection if it was+-- created in the same environment account that the current environment+-- account connection was created in and is associated with the current+-- environment.+--+-- 'protonServiceRoleArn', 'updateEnvironment_protonServiceRoleArn' - The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make API calls to other services your behalf.+--+-- 'provisioningRepository', 'updateEnvironment_provisioningRepository' - The linked repository that you use to host your rendered infrastructure+-- templates for self-managed provisioning. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+--+-- 'spec', 'updateEnvironment_spec' - The formatted specification that defines the update.+--+-- 'templateMajorVersion', 'updateEnvironment_templateMajorVersion' - The major version of the environment to update.+--+-- 'templateMinorVersion', 'updateEnvironment_templateMinorVersion' - The minor version of the environment to update.+--+-- 'deploymentType', 'updateEnvironment_deploymentType' - There are four modes for updating an environment. The @deploymentType@+-- field defines the mode.+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the environment is deployed and updated with the new+--     spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     @deployment-type@.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the environment is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can also specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the environment is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can also specify a different major+--     version that is higher than the major version in use and a minor+--     version (optional).+--+-- 'name', 'updateEnvironment_name' - The name of the environment to update.+newUpdateEnvironment ::+  -- | 'deploymentType'+  DeploymentUpdateType ->+  -- | 'name'+  Prelude.Text ->+  UpdateEnvironment+newUpdateEnvironment pDeploymentType_ pName_ =+  UpdateEnvironment'+    { codebuildRoleArn =+        Prelude.Nothing,+      componentRoleArn = Prelude.Nothing,+      description = Prelude.Nothing,+      environmentAccountConnectionId = Prelude.Nothing,+      protonServiceRoleArn = Prelude.Nothing,+      provisioningRepository = Prelude.Nothing,+      spec = Prelude.Nothing,+      templateMajorVersion = Prelude.Nothing,+      templateMinorVersion = Prelude.Nothing,+      deploymentType = pDeploymentType_,+      name = pName_+    }++-- | The Amazon Resource Name (ARN) of the IAM service role that allows+-- Proton to provision infrastructure using CodeBuild-based provisioning on+-- your behalf.+updateEnvironment_codebuildRoleArn :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_codebuildRoleArn = Lens.lens (\UpdateEnvironment' {codebuildRoleArn} -> codebuildRoleArn) (\s@UpdateEnvironment' {} a -> s {codebuildRoleArn = a} :: UpdateEnvironment)++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in this environment. It+-- determines the scope of infrastructure that a component can provision.+--+-- The environment must have a @componentRoleArn@ to allow directly defined+-- components to be associated with the environment.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+updateEnvironment_componentRoleArn :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_componentRoleArn = Lens.lens (\UpdateEnvironment' {componentRoleArn} -> componentRoleArn) (\s@UpdateEnvironment' {} a -> s {componentRoleArn = a} :: UpdateEnvironment)++-- | A description of the environment update.+updateEnvironment_description :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_description = Lens.lens (\UpdateEnvironment' {description} -> description) (\s@UpdateEnvironment' {} a -> s {description = a} :: UpdateEnvironment) Prelude.. Lens.mapping Data._Sensitive++-- | The ID of the environment account connection.+--+-- You can only update to a new environment account connection if it was+-- created in the same environment account that the current environment+-- account connection was created in and is associated with the current+-- environment.+updateEnvironment_environmentAccountConnectionId :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_environmentAccountConnectionId = Lens.lens (\UpdateEnvironment' {environmentAccountConnectionId} -> environmentAccountConnectionId) (\s@UpdateEnvironment' {} a -> s {environmentAccountConnectionId = a} :: UpdateEnvironment)++-- | The Amazon Resource Name (ARN) of the Proton service role that allows+-- Proton to make API calls to other services your behalf.+updateEnvironment_protonServiceRoleArn :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_protonServiceRoleArn = Lens.lens (\UpdateEnvironment' {protonServiceRoleArn} -> protonServiceRoleArn) (\s@UpdateEnvironment' {} a -> s {protonServiceRoleArn = a} :: UpdateEnvironment)++-- | The linked repository that you use to host your rendered infrastructure+-- templates for self-managed provisioning. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+updateEnvironment_provisioningRepository :: Lens.Lens' UpdateEnvironment (Prelude.Maybe RepositoryBranchInput)+updateEnvironment_provisioningRepository = Lens.lens (\UpdateEnvironment' {provisioningRepository} -> provisioningRepository) (\s@UpdateEnvironment' {} a -> s {provisioningRepository = a} :: UpdateEnvironment)++-- | The formatted specification that defines the update.+updateEnvironment_spec :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_spec = Lens.lens (\UpdateEnvironment' {spec} -> spec) (\s@UpdateEnvironment' {} a -> s {spec = a} :: UpdateEnvironment) Prelude.. Lens.mapping Data._Sensitive++-- | The major version of the environment to update.+updateEnvironment_templateMajorVersion :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_templateMajorVersion = Lens.lens (\UpdateEnvironment' {templateMajorVersion} -> templateMajorVersion) (\s@UpdateEnvironment' {} a -> s {templateMajorVersion = a} :: UpdateEnvironment)++-- | The minor version of the environment to update.+updateEnvironment_templateMinorVersion :: Lens.Lens' UpdateEnvironment (Prelude.Maybe Prelude.Text)+updateEnvironment_templateMinorVersion = Lens.lens (\UpdateEnvironment' {templateMinorVersion} -> templateMinorVersion) (\s@UpdateEnvironment' {} a -> s {templateMinorVersion = a} :: UpdateEnvironment)++-- | There are four modes for updating an environment. The @deploymentType@+-- field defines the mode.+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the environment is deployed and updated with the new+--     spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     @deployment-type@.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the environment is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can also specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the environment is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can also specify a different major+--     version that is higher than the major version in use and a minor+--     version (optional).+updateEnvironment_deploymentType :: Lens.Lens' UpdateEnvironment DeploymentUpdateType+updateEnvironment_deploymentType = Lens.lens (\UpdateEnvironment' {deploymentType} -> deploymentType) (\s@UpdateEnvironment' {} a -> s {deploymentType = a} :: UpdateEnvironment)++-- | The name of the environment to update.+updateEnvironment_name :: Lens.Lens' UpdateEnvironment Prelude.Text+updateEnvironment_name = Lens.lens (\UpdateEnvironment' {name} -> name) (\s@UpdateEnvironment' {} a -> s {name = a} :: UpdateEnvironment)++instance Core.AWSRequest UpdateEnvironment where+  type+    AWSResponse UpdateEnvironment =+      UpdateEnvironmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateEnvironmentResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environment")+      )++instance Prelude.Hashable UpdateEnvironment where+  hashWithSalt _salt UpdateEnvironment' {..} =+    _salt+      `Prelude.hashWithSalt` codebuildRoleArn+      `Prelude.hashWithSalt` componentRoleArn+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` environmentAccountConnectionId+      `Prelude.hashWithSalt` protonServiceRoleArn+      `Prelude.hashWithSalt` provisioningRepository+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` deploymentType+      `Prelude.hashWithSalt` name++instance Prelude.NFData UpdateEnvironment where+  rnf UpdateEnvironment' {..} =+    Prelude.rnf codebuildRoleArn+      `Prelude.seq` Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf environmentAccountConnectionId+      `Prelude.seq` Prelude.rnf protonServiceRoleArn+      `Prelude.seq` Prelude.rnf provisioningRepository+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf deploymentType+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders UpdateEnvironment where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateEnvironment" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateEnvironment where+  toJSON UpdateEnvironment' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("codebuildRoleArn" Data..=)+              Prelude.<$> codebuildRoleArn,+            ("componentRoleArn" Data..=)+              Prelude.<$> componentRoleArn,+            ("description" Data..=) Prelude.<$> description,+            ("environmentAccountConnectionId" Data..=)+              Prelude.<$> environmentAccountConnectionId,+            ("protonServiceRoleArn" Data..=)+              Prelude.<$> protonServiceRoleArn,+            ("provisioningRepository" Data..=)+              Prelude.<$> provisioningRepository,+            ("spec" Data..=) Prelude.<$> spec,+            ("templateMajorVersion" Data..=)+              Prelude.<$> templateMajorVersion,+            ("templateMinorVersion" Data..=)+              Prelude.<$> templateMinorVersion,+            Prelude.Just+              ("deploymentType" Data..= deploymentType),+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath UpdateEnvironment where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateEnvironment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateEnvironmentResponse' smart constructor.+data UpdateEnvironmentResponse = UpdateEnvironmentResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment detail data that\'s returned by Proton.+    environment :: Environment+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateEnvironmentResponse_httpStatus' - The response's http status code.+--+-- 'environment', 'updateEnvironmentResponse_environment' - The environment detail data that\'s returned by Proton.+newUpdateEnvironmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environment'+  Environment ->+  UpdateEnvironmentResponse+newUpdateEnvironmentResponse+  pHttpStatus_+  pEnvironment_ =+    UpdateEnvironmentResponse'+      { httpStatus =+          pHttpStatus_,+        environment = pEnvironment_+      }++-- | The response's http status code.+updateEnvironmentResponse_httpStatus :: Lens.Lens' UpdateEnvironmentResponse Prelude.Int+updateEnvironmentResponse_httpStatus = Lens.lens (\UpdateEnvironmentResponse' {httpStatus} -> httpStatus) (\s@UpdateEnvironmentResponse' {} a -> s {httpStatus = a} :: UpdateEnvironmentResponse)++-- | The environment detail data that\'s returned by Proton.+updateEnvironmentResponse_environment :: Lens.Lens' UpdateEnvironmentResponse Environment+updateEnvironmentResponse_environment = Lens.lens (\UpdateEnvironmentResponse' {environment} -> environment) (\s@UpdateEnvironmentResponse' {} a -> s {environment = a} :: UpdateEnvironmentResponse)++instance Prelude.NFData UpdateEnvironmentResponse where+  rnf UpdateEnvironmentResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environment
+ gen/Amazonka/Proton/UpdateEnvironmentAccountConnection.hs view
@@ -0,0 +1,299 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateEnvironmentAccountConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- In an environment account, update an environment account connection to+-- use a new IAM role.+--+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-env-account-connections.html Environment account connections>+-- in the /Proton User guide/.+module Amazonka.Proton.UpdateEnvironmentAccountConnection+  ( -- * Creating a Request+    UpdateEnvironmentAccountConnection (..),+    newUpdateEnvironmentAccountConnection,++    -- * Request Lenses+    updateEnvironmentAccountConnection_codebuildRoleArn,+    updateEnvironmentAccountConnection_componentRoleArn,+    updateEnvironmentAccountConnection_roleArn,+    updateEnvironmentAccountConnection_id,++    -- * Destructuring the Response+    UpdateEnvironmentAccountConnectionResponse (..),+    newUpdateEnvironmentAccountConnectionResponse,++    -- * Response Lenses+    updateEnvironmentAccountConnectionResponse_httpStatus,+    updateEnvironmentAccountConnectionResponse_environmentAccountConnection,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateEnvironmentAccountConnection' smart constructor.+data UpdateEnvironmentAccountConnection = UpdateEnvironmentAccountConnection'+  { -- | The Amazon Resource Name (ARN) of an IAM service role in the environment+    -- account. Proton uses this role to provision infrastructure resources+    -- using CodeBuild-based provisioning in the associated environment+    -- account.+    codebuildRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+    -- when provisioning directly defined components in the associated+    -- environment account. It determines the scope of infrastructure that a+    -- component can provision in the account.+    --+    -- The environment account connection must have a @componentRoleArn@ to+    -- allow directly defined components to be associated with any environments+    -- running in the account.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    componentRoleArn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM service role that\'s+    -- associated with the environment account connection to update.+    roleArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the environment account connection to update.+    id :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentAccountConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'codebuildRoleArn', 'updateEnvironmentAccountConnection_codebuildRoleArn' - The Amazon Resource Name (ARN) of an IAM service role in the environment+-- account. Proton uses this role to provision infrastructure resources+-- using CodeBuild-based provisioning in the associated environment+-- account.+--+-- 'componentRoleArn', 'updateEnvironmentAccountConnection_componentRoleArn' - The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- The environment account connection must have a @componentRoleArn@ to+-- allow directly defined components to be associated with any environments+-- running in the account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'roleArn', 'updateEnvironmentAccountConnection_roleArn' - The Amazon Resource Name (ARN) of the IAM service role that\'s+-- associated with the environment account connection to update.+--+-- 'id', 'updateEnvironmentAccountConnection_id' - The ID of the environment account connection to update.+newUpdateEnvironmentAccountConnection ::+  -- | 'id'+  Prelude.Text ->+  UpdateEnvironmentAccountConnection+newUpdateEnvironmentAccountConnection pId_ =+  UpdateEnvironmentAccountConnection'+    { codebuildRoleArn =+        Prelude.Nothing,+      componentRoleArn = Prelude.Nothing,+      roleArn = Prelude.Nothing,+      id = pId_+    }++-- | The Amazon Resource Name (ARN) of an IAM service role in the environment+-- account. Proton uses this role to provision infrastructure resources+-- using CodeBuild-based provisioning in the associated environment+-- account.+updateEnvironmentAccountConnection_codebuildRoleArn :: Lens.Lens' UpdateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+updateEnvironmentAccountConnection_codebuildRoleArn = Lens.lens (\UpdateEnvironmentAccountConnection' {codebuildRoleArn} -> codebuildRoleArn) (\s@UpdateEnvironmentAccountConnection' {} a -> s {codebuildRoleArn = a} :: UpdateEnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of the IAM service role that Proton uses+-- when provisioning directly defined components in the associated+-- environment account. It determines the scope of infrastructure that a+-- component can provision in the account.+--+-- The environment account connection must have a @componentRoleArn@ to+-- allow directly defined components to be associated with any environments+-- running in the account.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+updateEnvironmentAccountConnection_componentRoleArn :: Lens.Lens' UpdateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+updateEnvironmentAccountConnection_componentRoleArn = Lens.lens (\UpdateEnvironmentAccountConnection' {componentRoleArn} -> componentRoleArn) (\s@UpdateEnvironmentAccountConnection' {} a -> s {componentRoleArn = a} :: UpdateEnvironmentAccountConnection)++-- | The Amazon Resource Name (ARN) of the IAM service role that\'s+-- associated with the environment account connection to update.+updateEnvironmentAccountConnection_roleArn :: Lens.Lens' UpdateEnvironmentAccountConnection (Prelude.Maybe Prelude.Text)+updateEnvironmentAccountConnection_roleArn = Lens.lens (\UpdateEnvironmentAccountConnection' {roleArn} -> roleArn) (\s@UpdateEnvironmentAccountConnection' {} a -> s {roleArn = a} :: UpdateEnvironmentAccountConnection)++-- | The ID of the environment account connection to update.+updateEnvironmentAccountConnection_id :: Lens.Lens' UpdateEnvironmentAccountConnection Prelude.Text+updateEnvironmentAccountConnection_id = Lens.lens (\UpdateEnvironmentAccountConnection' {id} -> id) (\s@UpdateEnvironmentAccountConnection' {} a -> s {id = a} :: UpdateEnvironmentAccountConnection)++instance+  Core.AWSRequest+    UpdateEnvironmentAccountConnection+  where+  type+    AWSResponse UpdateEnvironmentAccountConnection =+      UpdateEnvironmentAccountConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateEnvironmentAccountConnectionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentAccountConnection")+      )++instance+  Prelude.Hashable+    UpdateEnvironmentAccountConnection+  where+  hashWithSalt+    _salt+    UpdateEnvironmentAccountConnection' {..} =+      _salt+        `Prelude.hashWithSalt` codebuildRoleArn+        `Prelude.hashWithSalt` componentRoleArn+        `Prelude.hashWithSalt` roleArn+        `Prelude.hashWithSalt` id++instance+  Prelude.NFData+    UpdateEnvironmentAccountConnection+  where+  rnf UpdateEnvironmentAccountConnection' {..} =+    Prelude.rnf codebuildRoleArn+      `Prelude.seq` Prelude.rnf componentRoleArn+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf id++instance+  Data.ToHeaders+    UpdateEnvironmentAccountConnection+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateEnvironmentAccountConnection" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    UpdateEnvironmentAccountConnection+  where+  toJSON UpdateEnvironmentAccountConnection' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("codebuildRoleArn" Data..=)+              Prelude.<$> codebuildRoleArn,+            ("componentRoleArn" Data..=)+              Prelude.<$> componentRoleArn,+            ("roleArn" Data..=) Prelude.<$> roleArn,+            Prelude.Just ("id" Data..= id)+          ]+      )++instance+  Data.ToPath+    UpdateEnvironmentAccountConnection+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    UpdateEnvironmentAccountConnection+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateEnvironmentAccountConnectionResponse' smart constructor.+data UpdateEnvironmentAccountConnectionResponse = UpdateEnvironmentAccountConnectionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment account connection detail data that\'s returned by+    -- Proton.+    environmentAccountConnection :: EnvironmentAccountConnection+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentAccountConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateEnvironmentAccountConnectionResponse_httpStatus' - The response's http status code.+--+-- 'environmentAccountConnection', 'updateEnvironmentAccountConnectionResponse_environmentAccountConnection' - The environment account connection detail data that\'s returned by+-- Proton.+newUpdateEnvironmentAccountConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentAccountConnection'+  EnvironmentAccountConnection ->+  UpdateEnvironmentAccountConnectionResponse+newUpdateEnvironmentAccountConnectionResponse+  pHttpStatus_+  pEnvironmentAccountConnection_ =+    UpdateEnvironmentAccountConnectionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentAccountConnection =+          pEnvironmentAccountConnection_+      }++-- | The response's http status code.+updateEnvironmentAccountConnectionResponse_httpStatus :: Lens.Lens' UpdateEnvironmentAccountConnectionResponse Prelude.Int+updateEnvironmentAccountConnectionResponse_httpStatus = Lens.lens (\UpdateEnvironmentAccountConnectionResponse' {httpStatus} -> httpStatus) (\s@UpdateEnvironmentAccountConnectionResponse' {} a -> s {httpStatus = a} :: UpdateEnvironmentAccountConnectionResponse)++-- | The environment account connection detail data that\'s returned by+-- Proton.+updateEnvironmentAccountConnectionResponse_environmentAccountConnection :: Lens.Lens' UpdateEnvironmentAccountConnectionResponse EnvironmentAccountConnection+updateEnvironmentAccountConnectionResponse_environmentAccountConnection = Lens.lens (\UpdateEnvironmentAccountConnectionResponse' {environmentAccountConnection} -> environmentAccountConnection) (\s@UpdateEnvironmentAccountConnectionResponse' {} a -> s {environmentAccountConnection = a} :: UpdateEnvironmentAccountConnectionResponse)++instance+  Prelude.NFData+    UpdateEnvironmentAccountConnectionResponse+  where+  rnf UpdateEnvironmentAccountConnectionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentAccountConnection
+ gen/Amazonka/Proton/UpdateEnvironmentTemplate.hs view
@@ -0,0 +1,211 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateEnvironmentTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update an environment template.+module Amazonka.Proton.UpdateEnvironmentTemplate+  ( -- * Creating a Request+    UpdateEnvironmentTemplate (..),+    newUpdateEnvironmentTemplate,++    -- * Request Lenses+    updateEnvironmentTemplate_description,+    updateEnvironmentTemplate_displayName,+    updateEnvironmentTemplate_name,++    -- * Destructuring the Response+    UpdateEnvironmentTemplateResponse (..),+    newUpdateEnvironmentTemplateResponse,++    -- * Response Lenses+    updateEnvironmentTemplateResponse_httpStatus,+    updateEnvironmentTemplateResponse_environmentTemplate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateEnvironmentTemplate' smart constructor.+data UpdateEnvironmentTemplate = UpdateEnvironmentTemplate'+  { -- | A description of the environment template update.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the environment template to update as displayed in the+    -- developer interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the environment template to update.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateEnvironmentTemplate_description' - A description of the environment template update.+--+-- 'displayName', 'updateEnvironmentTemplate_displayName' - The name of the environment template to update as displayed in the+-- developer interface.+--+-- 'name', 'updateEnvironmentTemplate_name' - The name of the environment template to update.+newUpdateEnvironmentTemplate ::+  -- | 'name'+  Prelude.Text ->+  UpdateEnvironmentTemplate+newUpdateEnvironmentTemplate pName_ =+  UpdateEnvironmentTemplate'+    { description =+        Prelude.Nothing,+      displayName = Prelude.Nothing,+      name = pName_+    }++-- | A description of the environment template update.+updateEnvironmentTemplate_description :: Lens.Lens' UpdateEnvironmentTemplate (Prelude.Maybe Prelude.Text)+updateEnvironmentTemplate_description = Lens.lens (\UpdateEnvironmentTemplate' {description} -> description) (\s@UpdateEnvironmentTemplate' {} a -> s {description = a} :: UpdateEnvironmentTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the environment template to update as displayed in the+-- developer interface.+updateEnvironmentTemplate_displayName :: Lens.Lens' UpdateEnvironmentTemplate (Prelude.Maybe Prelude.Text)+updateEnvironmentTemplate_displayName = Lens.lens (\UpdateEnvironmentTemplate' {displayName} -> displayName) (\s@UpdateEnvironmentTemplate' {} a -> s {displayName = a} :: UpdateEnvironmentTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the environment template to update.+updateEnvironmentTemplate_name :: Lens.Lens' UpdateEnvironmentTemplate Prelude.Text+updateEnvironmentTemplate_name = Lens.lens (\UpdateEnvironmentTemplate' {name} -> name) (\s@UpdateEnvironmentTemplate' {} a -> s {name = a} :: UpdateEnvironmentTemplate)++instance Core.AWSRequest UpdateEnvironmentTemplate where+  type+    AWSResponse UpdateEnvironmentTemplate =+      UpdateEnvironmentTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateEnvironmentTemplateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentTemplate")+      )++instance Prelude.Hashable UpdateEnvironmentTemplate where+  hashWithSalt _salt UpdateEnvironmentTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` name++instance Prelude.NFData UpdateEnvironmentTemplate where+  rnf UpdateEnvironmentTemplate' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders UpdateEnvironmentTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateEnvironmentTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateEnvironmentTemplate where+  toJSON UpdateEnvironmentTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("displayName" Data..=) Prelude.<$> displayName,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath UpdateEnvironmentTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateEnvironmentTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateEnvironmentTemplateResponse' smart constructor.+data UpdateEnvironmentTemplateResponse = UpdateEnvironmentTemplateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment template detail data that\'s returned by Proton.+    environmentTemplate :: EnvironmentTemplate+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateEnvironmentTemplateResponse_httpStatus' - The response's http status code.+--+-- 'environmentTemplate', 'updateEnvironmentTemplateResponse_environmentTemplate' - The environment template detail data that\'s returned by Proton.+newUpdateEnvironmentTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentTemplate'+  EnvironmentTemplate ->+  UpdateEnvironmentTemplateResponse+newUpdateEnvironmentTemplateResponse+  pHttpStatus_+  pEnvironmentTemplate_ =+    UpdateEnvironmentTemplateResponse'+      { httpStatus =+          pHttpStatus_,+        environmentTemplate =+          pEnvironmentTemplate_+      }++-- | The response's http status code.+updateEnvironmentTemplateResponse_httpStatus :: Lens.Lens' UpdateEnvironmentTemplateResponse Prelude.Int+updateEnvironmentTemplateResponse_httpStatus = Lens.lens (\UpdateEnvironmentTemplateResponse' {httpStatus} -> httpStatus) (\s@UpdateEnvironmentTemplateResponse' {} a -> s {httpStatus = a} :: UpdateEnvironmentTemplateResponse)++-- | The environment template detail data that\'s returned by Proton.+updateEnvironmentTemplateResponse_environmentTemplate :: Lens.Lens' UpdateEnvironmentTemplateResponse EnvironmentTemplate+updateEnvironmentTemplateResponse_environmentTemplate = Lens.lens (\UpdateEnvironmentTemplateResponse' {environmentTemplate} -> environmentTemplate) (\s@UpdateEnvironmentTemplateResponse' {} a -> s {environmentTemplate = a} :: UpdateEnvironmentTemplateResponse)++instance+  Prelude.NFData+    UpdateEnvironmentTemplateResponse+  where+  rnf UpdateEnvironmentTemplateResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentTemplate
+ gen/Amazonka/Proton/UpdateEnvironmentTemplateVersion.hs view
@@ -0,0 +1,264 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateEnvironmentTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update a major or minor version of an environment template.+module Amazonka.Proton.UpdateEnvironmentTemplateVersion+  ( -- * Creating a Request+    UpdateEnvironmentTemplateVersion (..),+    newUpdateEnvironmentTemplateVersion,++    -- * Request Lenses+    updateEnvironmentTemplateVersion_description,+    updateEnvironmentTemplateVersion_status,+    updateEnvironmentTemplateVersion_majorVersion,+    updateEnvironmentTemplateVersion_minorVersion,+    updateEnvironmentTemplateVersion_templateName,++    -- * Destructuring the Response+    UpdateEnvironmentTemplateVersionResponse (..),+    newUpdateEnvironmentTemplateVersionResponse,++    -- * Response Lenses+    updateEnvironmentTemplateVersionResponse_httpStatus,+    updateEnvironmentTemplateVersionResponse_environmentTemplateVersion,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateEnvironmentTemplateVersion' smart constructor.+data UpdateEnvironmentTemplateVersion = UpdateEnvironmentTemplateVersion'+  { -- | A description of environment template version to update.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The status of the environment template minor version to update.+    status :: Prelude.Maybe TemplateVersionStatus,+    -- | To update a major version of an environment template, include+    -- @major Version@.+    majorVersion :: Prelude.Text,+    -- | To update a minor version of an environment template, include+    -- @minorVersion@.+    minorVersion :: Prelude.Text,+    -- | The name of the environment template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateEnvironmentTemplateVersion_description' - A description of environment template version to update.+--+-- 'status', 'updateEnvironmentTemplateVersion_status' - The status of the environment template minor version to update.+--+-- 'majorVersion', 'updateEnvironmentTemplateVersion_majorVersion' - To update a major version of an environment template, include+-- @major Version@.+--+-- 'minorVersion', 'updateEnvironmentTemplateVersion_minorVersion' - To update a minor version of an environment template, include+-- @minorVersion@.+--+-- 'templateName', 'updateEnvironmentTemplateVersion_templateName' - The name of the environment template.+newUpdateEnvironmentTemplateVersion ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  UpdateEnvironmentTemplateVersion+newUpdateEnvironmentTemplateVersion+  pMajorVersion_+  pMinorVersion_+  pTemplateName_ =+    UpdateEnvironmentTemplateVersion'+      { description =+          Prelude.Nothing,+        status = Prelude.Nothing,+        majorVersion = pMajorVersion_,+        minorVersion = pMinorVersion_,+        templateName = pTemplateName_+      }++-- | A description of environment template version to update.+updateEnvironmentTemplateVersion_description :: Lens.Lens' UpdateEnvironmentTemplateVersion (Prelude.Maybe Prelude.Text)+updateEnvironmentTemplateVersion_description = Lens.lens (\UpdateEnvironmentTemplateVersion' {description} -> description) (\s@UpdateEnvironmentTemplateVersion' {} a -> s {description = a} :: UpdateEnvironmentTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | The status of the environment template minor version to update.+updateEnvironmentTemplateVersion_status :: Lens.Lens' UpdateEnvironmentTemplateVersion (Prelude.Maybe TemplateVersionStatus)+updateEnvironmentTemplateVersion_status = Lens.lens (\UpdateEnvironmentTemplateVersion' {status} -> status) (\s@UpdateEnvironmentTemplateVersion' {} a -> s {status = a} :: UpdateEnvironmentTemplateVersion)++-- | To update a major version of an environment template, include+-- @major Version@.+updateEnvironmentTemplateVersion_majorVersion :: Lens.Lens' UpdateEnvironmentTemplateVersion Prelude.Text+updateEnvironmentTemplateVersion_majorVersion = Lens.lens (\UpdateEnvironmentTemplateVersion' {majorVersion} -> majorVersion) (\s@UpdateEnvironmentTemplateVersion' {} a -> s {majorVersion = a} :: UpdateEnvironmentTemplateVersion)++-- | To update a minor version of an environment template, include+-- @minorVersion@.+updateEnvironmentTemplateVersion_minorVersion :: Lens.Lens' UpdateEnvironmentTemplateVersion Prelude.Text+updateEnvironmentTemplateVersion_minorVersion = Lens.lens (\UpdateEnvironmentTemplateVersion' {minorVersion} -> minorVersion) (\s@UpdateEnvironmentTemplateVersion' {} a -> s {minorVersion = a} :: UpdateEnvironmentTemplateVersion)++-- | The name of the environment template.+updateEnvironmentTemplateVersion_templateName :: Lens.Lens' UpdateEnvironmentTemplateVersion Prelude.Text+updateEnvironmentTemplateVersion_templateName = Lens.lens (\UpdateEnvironmentTemplateVersion' {templateName} -> templateName) (\s@UpdateEnvironmentTemplateVersion' {} a -> s {templateName = a} :: UpdateEnvironmentTemplateVersion)++instance+  Core.AWSRequest+    UpdateEnvironmentTemplateVersion+  where+  type+    AWSResponse UpdateEnvironmentTemplateVersion =+      UpdateEnvironmentTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateEnvironmentTemplateVersionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "environmentTemplateVersion")+      )++instance+  Prelude.Hashable+    UpdateEnvironmentTemplateVersion+  where+  hashWithSalt+    _salt+    UpdateEnvironmentTemplateVersion' {..} =+      _salt+        `Prelude.hashWithSalt` description+        `Prelude.hashWithSalt` status+        `Prelude.hashWithSalt` majorVersion+        `Prelude.hashWithSalt` minorVersion+        `Prelude.hashWithSalt` templateName++instance+  Prelude.NFData+    UpdateEnvironmentTemplateVersion+  where+  rnf UpdateEnvironmentTemplateVersion' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf templateName++instance+  Data.ToHeaders+    UpdateEnvironmentTemplateVersion+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateEnvironmentTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateEnvironmentTemplateVersion where+  toJSON UpdateEnvironmentTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("status" Data..=) Prelude.<$> status,+            Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("minorVersion" Data..= minorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath UpdateEnvironmentTemplateVersion where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    UpdateEnvironmentTemplateVersion+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateEnvironmentTemplateVersionResponse' smart constructor.+data UpdateEnvironmentTemplateVersionResponse = UpdateEnvironmentTemplateVersionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The environment template version detail data that\'s returned by Proton.+    environmentTemplateVersion :: EnvironmentTemplateVersion+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateEnvironmentTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateEnvironmentTemplateVersionResponse_httpStatus' - The response's http status code.+--+-- 'environmentTemplateVersion', 'updateEnvironmentTemplateVersionResponse_environmentTemplateVersion' - The environment template version detail data that\'s returned by Proton.+newUpdateEnvironmentTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'environmentTemplateVersion'+  EnvironmentTemplateVersion ->+  UpdateEnvironmentTemplateVersionResponse+newUpdateEnvironmentTemplateVersionResponse+  pHttpStatus_+  pEnvironmentTemplateVersion_ =+    UpdateEnvironmentTemplateVersionResponse'+      { httpStatus =+          pHttpStatus_,+        environmentTemplateVersion =+          pEnvironmentTemplateVersion_+      }++-- | The response's http status code.+updateEnvironmentTemplateVersionResponse_httpStatus :: Lens.Lens' UpdateEnvironmentTemplateVersionResponse Prelude.Int+updateEnvironmentTemplateVersionResponse_httpStatus = Lens.lens (\UpdateEnvironmentTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@UpdateEnvironmentTemplateVersionResponse' {} a -> s {httpStatus = a} :: UpdateEnvironmentTemplateVersionResponse)++-- | The environment template version detail data that\'s returned by Proton.+updateEnvironmentTemplateVersionResponse_environmentTemplateVersion :: Lens.Lens' UpdateEnvironmentTemplateVersionResponse EnvironmentTemplateVersion+updateEnvironmentTemplateVersionResponse_environmentTemplateVersion = Lens.lens (\UpdateEnvironmentTemplateVersionResponse' {environmentTemplateVersion} -> environmentTemplateVersion) (\s@UpdateEnvironmentTemplateVersionResponse' {} a -> s {environmentTemplateVersion = a} :: UpdateEnvironmentTemplateVersionResponse)++instance+  Prelude.NFData+    UpdateEnvironmentTemplateVersionResponse+  where+  rnf UpdateEnvironmentTemplateVersionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf environmentTemplateVersion
+ gen/Amazonka/Proton/UpdateService.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Edit a service description or use a spec to add and delete service+-- instances.+--+-- Existing service instances and the service pipeline /can\'t/ be edited+-- using this API. They can only be deleted.+--+-- Use the @description@ parameter to modify the description.+--+-- Edit the @spec@ parameter to add or delete instances.+--+-- You can\'t delete a service instance (remove it from the spec) if it has+-- an attached component.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.UpdateService+  ( -- * Creating a Request+    UpdateService (..),+    newUpdateService,++    -- * Request Lenses+    updateService_description,+    updateService_spec,+    updateService_name,++    -- * Destructuring the Response+    UpdateServiceResponse (..),+    newUpdateServiceResponse,++    -- * Response Lenses+    updateServiceResponse_httpStatus,+    updateServiceResponse_service,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateService' smart constructor.+data UpdateService = UpdateService'+  { -- | The edited service description.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Lists the service instances to add and the existing service instances to+    -- remain. Omit the existing service instances to delete from the list.+    -- /Don\'t/ include edits to the existing service instances or pipeline.+    -- For more information, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-svc-update.html Edit a service>+    -- in the /Proton User Guide/.+    spec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the service to edit.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateService' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateService_description' - The edited service description.+--+-- 'spec', 'updateService_spec' - Lists the service instances to add and the existing service instances to+-- remain. Omit the existing service instances to delete from the list.+-- /Don\'t/ include edits to the existing service instances or pipeline.+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-svc-update.html Edit a service>+-- in the /Proton User Guide/.+--+-- 'name', 'updateService_name' - The name of the service to edit.+newUpdateService ::+  -- | 'name'+  Prelude.Text ->+  UpdateService+newUpdateService pName_ =+  UpdateService'+    { description = Prelude.Nothing,+      spec = Prelude.Nothing,+      name = pName_+    }++-- | The edited service description.+updateService_description :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Text)+updateService_description = Lens.lens (\UpdateService' {description} -> description) (\s@UpdateService' {} a -> s {description = a} :: UpdateService) Prelude.. Lens.mapping Data._Sensitive++-- | Lists the service instances to add and the existing service instances to+-- remain. Omit the existing service instances to delete from the list.+-- /Don\'t/ include edits to the existing service instances or pipeline.+-- For more information, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-svc-update.html Edit a service>+-- in the /Proton User Guide/.+updateService_spec :: Lens.Lens' UpdateService (Prelude.Maybe Prelude.Text)+updateService_spec = Lens.lens (\UpdateService' {spec} -> spec) (\s@UpdateService' {} a -> s {spec = a} :: UpdateService) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the service to edit.+updateService_name :: Lens.Lens' UpdateService Prelude.Text+updateService_name = Lens.lens (\UpdateService' {name} -> name) (\s@UpdateService' {} a -> s {name = a} :: UpdateService)++instance Core.AWSRequest UpdateService where+  type+    AWSResponse UpdateService =+      UpdateServiceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateServiceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "service")+      )++instance Prelude.Hashable UpdateService where+  hashWithSalt _salt UpdateService' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` name++instance Prelude.NFData UpdateService where+  rnf UpdateService' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf spec+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders UpdateService where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateService" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateService where+  toJSON UpdateService' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("spec" Data..=) Prelude.<$> spec,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath UpdateService where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateService where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateServiceResponse' smart constructor.+data UpdateServiceResponse = UpdateServiceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service detail data that\'s returned by Proton.+    service :: Service+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateServiceResponse_httpStatus' - The response's http status code.+--+-- 'service', 'updateServiceResponse_service' - The service detail data that\'s returned by Proton.+newUpdateServiceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'service'+  Service ->+  UpdateServiceResponse+newUpdateServiceResponse pHttpStatus_ pService_ =+  UpdateServiceResponse'+    { httpStatus = pHttpStatus_,+      service = pService_+    }++-- | The response's http status code.+updateServiceResponse_httpStatus :: Lens.Lens' UpdateServiceResponse Prelude.Int+updateServiceResponse_httpStatus = Lens.lens (\UpdateServiceResponse' {httpStatus} -> httpStatus) (\s@UpdateServiceResponse' {} a -> s {httpStatus = a} :: UpdateServiceResponse)++-- | The service detail data that\'s returned by Proton.+updateServiceResponse_service :: Lens.Lens' UpdateServiceResponse Service+updateServiceResponse_service = Lens.lens (\UpdateServiceResponse' {service} -> service) (\s@UpdateServiceResponse' {} a -> s {service = a} :: UpdateServiceResponse)++instance Prelude.NFData UpdateServiceResponse where+  rnf UpdateServiceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf service
+ gen/Amazonka/Proton/UpdateServiceInstance.hs view
@@ -0,0 +1,358 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateServiceInstance+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update a service instance.+--+-- There are a few modes for updating a service instance. The+-- @deploymentType@ field defines the mode.+--+-- You can\'t update a service instance while its deployment status, or the+-- deployment status of a component attached to it, is @IN_PROGRESS@.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+module Amazonka.Proton.UpdateServiceInstance+  ( -- * Creating a Request+    UpdateServiceInstance (..),+    newUpdateServiceInstance,++    -- * Request Lenses+    updateServiceInstance_spec,+    updateServiceInstance_templateMajorVersion,+    updateServiceInstance_templateMinorVersion,+    updateServiceInstance_deploymentType,+    updateServiceInstance_name,+    updateServiceInstance_serviceName,++    -- * Destructuring the Response+    UpdateServiceInstanceResponse (..),+    newUpdateServiceInstanceResponse,++    -- * Response Lenses+    updateServiceInstanceResponse_httpStatus,+    updateServiceInstanceResponse_serviceInstance,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateServiceInstance' smart constructor.+data UpdateServiceInstance = UpdateServiceInstance'+  { -- | The formatted specification that defines the service instance update.+    spec :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The major version of the service template to update.+    templateMajorVersion :: Prelude.Maybe Prelude.Text,+    -- | The minor version of the service template to update.+    templateMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The deployment type. It defines the mode for updating a service+    -- instance, as follows:+    --+    -- []+    --     @NONE@+    --+    --     In this mode, a deployment /doesn\'t/ occur. Only the requested+    --     metadata parameters are updated.+    --+    -- []+    --     @CURRENT_VERSION@+    --+    --     In this mode, the service instance is deployed and updated with the+    --     new spec that you provide. Only requested parameters are updated.+    --     /Don’t/ include major or minor version parameters when you use this+    --     deployment type.+    --+    -- []+    --     @MINOR_VERSION@+    --+    --     In this mode, the service instance is deployed and updated with the+    --     published, recommended (latest) minor version of the current major+    --     version in use, by default. You can also specify a different minor+    --     version of the current major version in use.+    --+    -- []+    --     @MAJOR_VERSION@+    --+    --     In this mode, the service instance is deployed and updated with the+    --     published, recommended (latest) major and minor version of the+    --     current template, by default. You can specify a different major+    --     version that\'s higher than the major version in use and a minor+    --     version.+    deploymentType :: DeploymentUpdateType,+    -- | The name of the service instance to update.+    name :: Prelude.Text,+    -- | The name of the service that the service instance belongs to.+    serviceName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceInstance' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'spec', 'updateServiceInstance_spec' - The formatted specification that defines the service instance update.+--+-- 'templateMajorVersion', 'updateServiceInstance_templateMajorVersion' - The major version of the service template to update.+--+-- 'templateMinorVersion', 'updateServiceInstance_templateMinorVersion' - The minor version of the service template to update.+--+-- 'deploymentType', 'updateServiceInstance_deploymentType' - The deployment type. It defines the mode for updating a service+-- instance, as follows:+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the service instance is deployed and updated with the+--     new spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     deployment type.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the service instance is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can also specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the service instance is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can specify a different major+--     version that\'s higher than the major version in use and a minor+--     version.+--+-- 'name', 'updateServiceInstance_name' - The name of the service instance to update.+--+-- 'serviceName', 'updateServiceInstance_serviceName' - The name of the service that the service instance belongs to.+newUpdateServiceInstance ::+  -- | 'deploymentType'+  DeploymentUpdateType ->+  -- | 'name'+  Prelude.Text ->+  -- | 'serviceName'+  Prelude.Text ->+  UpdateServiceInstance+newUpdateServiceInstance+  pDeploymentType_+  pName_+  pServiceName_ =+    UpdateServiceInstance'+      { spec = Prelude.Nothing,+        templateMajorVersion = Prelude.Nothing,+        templateMinorVersion = Prelude.Nothing,+        deploymentType = pDeploymentType_,+        name = pName_,+        serviceName = pServiceName_+      }++-- | The formatted specification that defines the service instance update.+updateServiceInstance_spec :: Lens.Lens' UpdateServiceInstance (Prelude.Maybe Prelude.Text)+updateServiceInstance_spec = Lens.lens (\UpdateServiceInstance' {spec} -> spec) (\s@UpdateServiceInstance' {} a -> s {spec = a} :: UpdateServiceInstance) Prelude.. Lens.mapping Data._Sensitive++-- | The major version of the service template to update.+updateServiceInstance_templateMajorVersion :: Lens.Lens' UpdateServiceInstance (Prelude.Maybe Prelude.Text)+updateServiceInstance_templateMajorVersion = Lens.lens (\UpdateServiceInstance' {templateMajorVersion} -> templateMajorVersion) (\s@UpdateServiceInstance' {} a -> s {templateMajorVersion = a} :: UpdateServiceInstance)++-- | The minor version of the service template to update.+updateServiceInstance_templateMinorVersion :: Lens.Lens' UpdateServiceInstance (Prelude.Maybe Prelude.Text)+updateServiceInstance_templateMinorVersion = Lens.lens (\UpdateServiceInstance' {templateMinorVersion} -> templateMinorVersion) (\s@UpdateServiceInstance' {} a -> s {templateMinorVersion = a} :: UpdateServiceInstance)++-- | The deployment type. It defines the mode for updating a service+-- instance, as follows:+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the service instance is deployed and updated with the+--     new spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     deployment type.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the service instance is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can also specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the service instance is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can specify a different major+--     version that\'s higher than the major version in use and a minor+--     version.+updateServiceInstance_deploymentType :: Lens.Lens' UpdateServiceInstance DeploymentUpdateType+updateServiceInstance_deploymentType = Lens.lens (\UpdateServiceInstance' {deploymentType} -> deploymentType) (\s@UpdateServiceInstance' {} a -> s {deploymentType = a} :: UpdateServiceInstance)++-- | The name of the service instance to update.+updateServiceInstance_name :: Lens.Lens' UpdateServiceInstance Prelude.Text+updateServiceInstance_name = Lens.lens (\UpdateServiceInstance' {name} -> name) (\s@UpdateServiceInstance' {} a -> s {name = a} :: UpdateServiceInstance)++-- | The name of the service that the service instance belongs to.+updateServiceInstance_serviceName :: Lens.Lens' UpdateServiceInstance Prelude.Text+updateServiceInstance_serviceName = Lens.lens (\UpdateServiceInstance' {serviceName} -> serviceName) (\s@UpdateServiceInstance' {} a -> s {serviceName = a} :: UpdateServiceInstance)++instance Core.AWSRequest UpdateServiceInstance where+  type+    AWSResponse UpdateServiceInstance =+      UpdateServiceInstanceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateServiceInstanceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceInstance")+      )++instance Prelude.Hashable UpdateServiceInstance where+  hashWithSalt _salt UpdateServiceInstance' {..} =+    _salt+      `Prelude.hashWithSalt` spec+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` deploymentType+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` serviceName++instance Prelude.NFData UpdateServiceInstance where+  rnf UpdateServiceInstance' {..} =+    Prelude.rnf spec+      `Prelude.seq` Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf deploymentType+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf serviceName++instance Data.ToHeaders UpdateServiceInstance where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateServiceInstance" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateServiceInstance where+  toJSON UpdateServiceInstance' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("spec" Data..=) Prelude.<$> spec,+            ("templateMajorVersion" Data..=)+              Prelude.<$> templateMajorVersion,+            ("templateMinorVersion" Data..=)+              Prelude.<$> templateMinorVersion,+            Prelude.Just+              ("deploymentType" Data..= deploymentType),+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("serviceName" Data..= serviceName)+          ]+      )++instance Data.ToPath UpdateServiceInstance where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateServiceInstance where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateServiceInstanceResponse' smart constructor.+data UpdateServiceInstanceResponse = UpdateServiceInstanceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service instance summary data that\'s returned by Proton.+    serviceInstance :: ServiceInstance+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceInstanceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateServiceInstanceResponse_httpStatus' - The response's http status code.+--+-- 'serviceInstance', 'updateServiceInstanceResponse_serviceInstance' - The service instance summary data that\'s returned by Proton.+newUpdateServiceInstanceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceInstance'+  ServiceInstance ->+  UpdateServiceInstanceResponse+newUpdateServiceInstanceResponse+  pHttpStatus_+  pServiceInstance_ =+    UpdateServiceInstanceResponse'+      { httpStatus =+          pHttpStatus_,+        serviceInstance = pServiceInstance_+      }++-- | The response's http status code.+updateServiceInstanceResponse_httpStatus :: Lens.Lens' UpdateServiceInstanceResponse Prelude.Int+updateServiceInstanceResponse_httpStatus = Lens.lens (\UpdateServiceInstanceResponse' {httpStatus} -> httpStatus) (\s@UpdateServiceInstanceResponse' {} a -> s {httpStatus = a} :: UpdateServiceInstanceResponse)++-- | The service instance summary data that\'s returned by Proton.+updateServiceInstanceResponse_serviceInstance :: Lens.Lens' UpdateServiceInstanceResponse ServiceInstance+updateServiceInstanceResponse_serviceInstance = Lens.lens (\UpdateServiceInstanceResponse' {serviceInstance} -> serviceInstance) (\s@UpdateServiceInstanceResponse' {} a -> s {serviceInstance = a} :: UpdateServiceInstanceResponse)++instance Prelude.NFData UpdateServiceInstanceResponse where+  rnf UpdateServiceInstanceResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceInstance
+ gen/Amazonka/Proton/UpdateServicePipeline.hs view
@@ -0,0 +1,382 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateServicePipeline+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update the service pipeline.+--+-- There are four modes for updating a service pipeline. The+-- @deploymentType@ field defines the mode.+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     new spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     @deployment-type@.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template by default. You can specify a different major+--     version that\'s higher than the major version in use and a minor+--     version.+module Amazonka.Proton.UpdateServicePipeline+  ( -- * Creating a Request+    UpdateServicePipeline (..),+    newUpdateServicePipeline,++    -- * Request Lenses+    updateServicePipeline_templateMajorVersion,+    updateServicePipeline_templateMinorVersion,+    updateServicePipeline_deploymentType,+    updateServicePipeline_serviceName,+    updateServicePipeline_spec,++    -- * Destructuring the Response+    UpdateServicePipelineResponse (..),+    newUpdateServicePipelineResponse,++    -- * Response Lenses+    updateServicePipelineResponse_httpStatus,+    updateServicePipelineResponse_pipeline,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateServicePipeline' smart constructor.+data UpdateServicePipeline = UpdateServicePipeline'+  { -- | The major version of the service template that was used to create the+    -- service that the pipeline is associated with.+    templateMajorVersion :: Prelude.Maybe Prelude.Text,+    -- | The minor version of the service template that was used to create the+    -- service that the pipeline is associated with.+    templateMinorVersion :: Prelude.Maybe Prelude.Text,+    -- | The deployment type.+    --+    -- There are four modes for updating a service pipeline. The+    -- @deploymentType@ field defines the mode.+    --+    -- []+    --     @NONE@+    --+    --     In this mode, a deployment /doesn\'t/ occur. Only the requested+    --     metadata parameters are updated.+    --+    -- []+    --     @CURRENT_VERSION@+    --+    --     In this mode, the service pipeline is deployed and updated with the+    --     new spec that you provide. Only requested parameters are updated.+    --     /Don’t/ include major or minor version parameters when you use this+    --     @deployment-type@.+    --+    -- []+    --     @MINOR_VERSION@+    --+    --     In this mode, the service pipeline is deployed and updated with the+    --     published, recommended (latest) minor version of the current major+    --     version in use, by default. You can specify a different minor+    --     version of the current major version in use.+    --+    -- []+    --     @MAJOR_VERSION@+    --+    --     In this mode, the service pipeline is deployed and updated with the+    --     published, recommended (latest) major and minor version of the+    --     current template, by default. You can specify a different major+    --     version that\'s higher than the major version in use and a minor+    --     version.+    deploymentType :: DeploymentUpdateType,+    -- | The name of the service to that the pipeline is associated with.+    serviceName :: Prelude.Text,+    -- | The spec for the service pipeline to update.+    spec :: Data.Sensitive Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServicePipeline' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateMajorVersion', 'updateServicePipeline_templateMajorVersion' - The major version of the service template that was used to create the+-- service that the pipeline is associated with.+--+-- 'templateMinorVersion', 'updateServicePipeline_templateMinorVersion' - The minor version of the service template that was used to create the+-- service that the pipeline is associated with.+--+-- 'deploymentType', 'updateServicePipeline_deploymentType' - The deployment type.+--+-- There are four modes for updating a service pipeline. The+-- @deploymentType@ field defines the mode.+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     new spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     @deployment-type@.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can specify a different major+--     version that\'s higher than the major version in use and a minor+--     version.+--+-- 'serviceName', 'updateServicePipeline_serviceName' - The name of the service to that the pipeline is associated with.+--+-- 'spec', 'updateServicePipeline_spec' - The spec for the service pipeline to update.+newUpdateServicePipeline ::+  -- | 'deploymentType'+  DeploymentUpdateType ->+  -- | 'serviceName'+  Prelude.Text ->+  -- | 'spec'+  Prelude.Text ->+  UpdateServicePipeline+newUpdateServicePipeline+  pDeploymentType_+  pServiceName_+  pSpec_ =+    UpdateServicePipeline'+      { templateMajorVersion =+          Prelude.Nothing,+        templateMinorVersion = Prelude.Nothing,+        deploymentType = pDeploymentType_,+        serviceName = pServiceName_,+        spec = Data._Sensitive Lens.# pSpec_+      }++-- | The major version of the service template that was used to create the+-- service that the pipeline is associated with.+updateServicePipeline_templateMajorVersion :: Lens.Lens' UpdateServicePipeline (Prelude.Maybe Prelude.Text)+updateServicePipeline_templateMajorVersion = Lens.lens (\UpdateServicePipeline' {templateMajorVersion} -> templateMajorVersion) (\s@UpdateServicePipeline' {} a -> s {templateMajorVersion = a} :: UpdateServicePipeline)++-- | The minor version of the service template that was used to create the+-- service that the pipeline is associated with.+updateServicePipeline_templateMinorVersion :: Lens.Lens' UpdateServicePipeline (Prelude.Maybe Prelude.Text)+updateServicePipeline_templateMinorVersion = Lens.lens (\UpdateServicePipeline' {templateMinorVersion} -> templateMinorVersion) (\s@UpdateServicePipeline' {} a -> s {templateMinorVersion = a} :: UpdateServicePipeline)++-- | The deployment type.+--+-- There are four modes for updating a service pipeline. The+-- @deploymentType@ field defines the mode.+--+-- []+--     @NONE@+--+--     In this mode, a deployment /doesn\'t/ occur. Only the requested+--     metadata parameters are updated.+--+-- []+--     @CURRENT_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     new spec that you provide. Only requested parameters are updated.+--     /Don’t/ include major or minor version parameters when you use this+--     @deployment-type@.+--+-- []+--     @MINOR_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     published, recommended (latest) minor version of the current major+--     version in use, by default. You can specify a different minor+--     version of the current major version in use.+--+-- []+--     @MAJOR_VERSION@+--+--     In this mode, the service pipeline is deployed and updated with the+--     published, recommended (latest) major and minor version of the+--     current template, by default. You can specify a different major+--     version that\'s higher than the major version in use and a minor+--     version.+updateServicePipeline_deploymentType :: Lens.Lens' UpdateServicePipeline DeploymentUpdateType+updateServicePipeline_deploymentType = Lens.lens (\UpdateServicePipeline' {deploymentType} -> deploymentType) (\s@UpdateServicePipeline' {} a -> s {deploymentType = a} :: UpdateServicePipeline)++-- | The name of the service to that the pipeline is associated with.+updateServicePipeline_serviceName :: Lens.Lens' UpdateServicePipeline Prelude.Text+updateServicePipeline_serviceName = Lens.lens (\UpdateServicePipeline' {serviceName} -> serviceName) (\s@UpdateServicePipeline' {} a -> s {serviceName = a} :: UpdateServicePipeline)++-- | The spec for the service pipeline to update.+updateServicePipeline_spec :: Lens.Lens' UpdateServicePipeline Prelude.Text+updateServicePipeline_spec = Lens.lens (\UpdateServicePipeline' {spec} -> spec) (\s@UpdateServicePipeline' {} a -> s {spec = a} :: UpdateServicePipeline) Prelude.. Data._Sensitive++instance Core.AWSRequest UpdateServicePipeline where+  type+    AWSResponse UpdateServicePipeline =+      UpdateServicePipelineResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateServicePipelineResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "pipeline")+      )++instance Prelude.Hashable UpdateServicePipeline where+  hashWithSalt _salt UpdateServicePipeline' {..} =+    _salt+      `Prelude.hashWithSalt` templateMajorVersion+      `Prelude.hashWithSalt` templateMinorVersion+      `Prelude.hashWithSalt` deploymentType+      `Prelude.hashWithSalt` serviceName+      `Prelude.hashWithSalt` spec++instance Prelude.NFData UpdateServicePipeline where+  rnf UpdateServicePipeline' {..} =+    Prelude.rnf templateMajorVersion+      `Prelude.seq` Prelude.rnf templateMinorVersion+      `Prelude.seq` Prelude.rnf deploymentType+      `Prelude.seq` Prelude.rnf serviceName+      `Prelude.seq` Prelude.rnf spec++instance Data.ToHeaders UpdateServicePipeline where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateServicePipeline" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateServicePipeline where+  toJSON UpdateServicePipeline' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("templateMajorVersion" Data..=)+              Prelude.<$> templateMajorVersion,+            ("templateMinorVersion" Data..=)+              Prelude.<$> templateMinorVersion,+            Prelude.Just+              ("deploymentType" Data..= deploymentType),+            Prelude.Just ("serviceName" Data..= serviceName),+            Prelude.Just ("spec" Data..= spec)+          ]+      )++instance Data.ToPath UpdateServicePipeline where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateServicePipeline where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateServicePipelineResponse' smart constructor.+data UpdateServicePipelineResponse = UpdateServicePipelineResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The pipeline details that are returned by Proton.+    pipeline :: ServicePipeline+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServicePipelineResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateServicePipelineResponse_httpStatus' - The response's http status code.+--+-- 'pipeline', 'updateServicePipelineResponse_pipeline' - The pipeline details that are returned by Proton.+newUpdateServicePipelineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'pipeline'+  ServicePipeline ->+  UpdateServicePipelineResponse+newUpdateServicePipelineResponse+  pHttpStatus_+  pPipeline_ =+    UpdateServicePipelineResponse'+      { httpStatus =+          pHttpStatus_,+        pipeline = pPipeline_+      }++-- | The response's http status code.+updateServicePipelineResponse_httpStatus :: Lens.Lens' UpdateServicePipelineResponse Prelude.Int+updateServicePipelineResponse_httpStatus = Lens.lens (\UpdateServicePipelineResponse' {httpStatus} -> httpStatus) (\s@UpdateServicePipelineResponse' {} a -> s {httpStatus = a} :: UpdateServicePipelineResponse)++-- | The pipeline details that are returned by Proton.+updateServicePipelineResponse_pipeline :: Lens.Lens' UpdateServicePipelineResponse ServicePipeline+updateServicePipelineResponse_pipeline = Lens.lens (\UpdateServicePipelineResponse' {pipeline} -> pipeline) (\s@UpdateServicePipelineResponse' {} a -> s {pipeline = a} :: UpdateServicePipelineResponse)++instance Prelude.NFData UpdateServicePipelineResponse where+  rnf UpdateServicePipelineResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf pipeline
+ gen/Amazonka/Proton/UpdateServiceTemplate.hs view
@@ -0,0 +1,207 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateServiceTemplate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update a service template.+module Amazonka.Proton.UpdateServiceTemplate+  ( -- * Creating a Request+    UpdateServiceTemplate (..),+    newUpdateServiceTemplate,++    -- * Request Lenses+    updateServiceTemplate_description,+    updateServiceTemplate_displayName,+    updateServiceTemplate_name,++    -- * Destructuring the Response+    UpdateServiceTemplateResponse (..),+    newUpdateServiceTemplateResponse,++    -- * Response Lenses+    updateServiceTemplateResponse_httpStatus,+    updateServiceTemplateResponse_serviceTemplate,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateServiceTemplate' smart constructor.+data UpdateServiceTemplate = UpdateServiceTemplate'+  { -- | A description of the service template update.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the service template to update that\'s displayed in the+    -- developer interface.+    displayName :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The name of the service template to update.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceTemplate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateServiceTemplate_description' - A description of the service template update.+--+-- 'displayName', 'updateServiceTemplate_displayName' - The name of the service template to update that\'s displayed in the+-- developer interface.+--+-- 'name', 'updateServiceTemplate_name' - The name of the service template to update.+newUpdateServiceTemplate ::+  -- | 'name'+  Prelude.Text ->+  UpdateServiceTemplate+newUpdateServiceTemplate pName_ =+  UpdateServiceTemplate'+    { description =+        Prelude.Nothing,+      displayName = Prelude.Nothing,+      name = pName_+    }++-- | A description of the service template update.+updateServiceTemplate_description :: Lens.Lens' UpdateServiceTemplate (Prelude.Maybe Prelude.Text)+updateServiceTemplate_description = Lens.lens (\UpdateServiceTemplate' {description} -> description) (\s@UpdateServiceTemplate' {} a -> s {description = a} :: UpdateServiceTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the service template to update that\'s displayed in the+-- developer interface.+updateServiceTemplate_displayName :: Lens.Lens' UpdateServiceTemplate (Prelude.Maybe Prelude.Text)+updateServiceTemplate_displayName = Lens.lens (\UpdateServiceTemplate' {displayName} -> displayName) (\s@UpdateServiceTemplate' {} a -> s {displayName = a} :: UpdateServiceTemplate) Prelude.. Lens.mapping Data._Sensitive++-- | The name of the service template to update.+updateServiceTemplate_name :: Lens.Lens' UpdateServiceTemplate Prelude.Text+updateServiceTemplate_name = Lens.lens (\UpdateServiceTemplate' {name} -> name) (\s@UpdateServiceTemplate' {} a -> s {name = a} :: UpdateServiceTemplate)++instance Core.AWSRequest UpdateServiceTemplate where+  type+    AWSResponse UpdateServiceTemplate =+      UpdateServiceTemplateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateServiceTemplateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceTemplate")+      )++instance Prelude.Hashable UpdateServiceTemplate where+  hashWithSalt _salt UpdateServiceTemplate' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` name++instance Prelude.NFData UpdateServiceTemplate where+  rnf UpdateServiceTemplate' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders UpdateServiceTemplate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateServiceTemplate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateServiceTemplate where+  toJSON UpdateServiceTemplate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("description" Data..=) Prelude.<$> description,+            ("displayName" Data..=) Prelude.<$> displayName,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath UpdateServiceTemplate where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateServiceTemplate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateServiceTemplateResponse' smart constructor.+data UpdateServiceTemplateResponse = UpdateServiceTemplateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service template detail data that\'s returned by Proton.+    serviceTemplate :: ServiceTemplate+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceTemplateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateServiceTemplateResponse_httpStatus' - The response's http status code.+--+-- 'serviceTemplate', 'updateServiceTemplateResponse_serviceTemplate' - The service template detail data that\'s returned by Proton.+newUpdateServiceTemplateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceTemplate'+  ServiceTemplate ->+  UpdateServiceTemplateResponse+newUpdateServiceTemplateResponse+  pHttpStatus_+  pServiceTemplate_ =+    UpdateServiceTemplateResponse'+      { httpStatus =+          pHttpStatus_,+        serviceTemplate = pServiceTemplate_+      }++-- | The response's http status code.+updateServiceTemplateResponse_httpStatus :: Lens.Lens' UpdateServiceTemplateResponse Prelude.Int+updateServiceTemplateResponse_httpStatus = Lens.lens (\UpdateServiceTemplateResponse' {httpStatus} -> httpStatus) (\s@UpdateServiceTemplateResponse' {} a -> s {httpStatus = a} :: UpdateServiceTemplateResponse)++-- | The service template detail data that\'s returned by Proton.+updateServiceTemplateResponse_serviceTemplate :: Lens.Lens' UpdateServiceTemplateResponse ServiceTemplate+updateServiceTemplateResponse_serviceTemplate = Lens.lens (\UpdateServiceTemplateResponse' {serviceTemplate} -> serviceTemplate) (\s@UpdateServiceTemplateResponse' {} a -> s {serviceTemplate = a} :: UpdateServiceTemplateResponse)++instance Prelude.NFData UpdateServiceTemplateResponse where+  rnf UpdateServiceTemplateResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceTemplate
+ gen/Amazonka/Proton/UpdateServiceTemplateVersion.hs view
@@ -0,0 +1,311 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateServiceTemplateVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update a major or minor version of a service template.+module Amazonka.Proton.UpdateServiceTemplateVersion+  ( -- * Creating a Request+    UpdateServiceTemplateVersion (..),+    newUpdateServiceTemplateVersion,++    -- * Request Lenses+    updateServiceTemplateVersion_compatibleEnvironmentTemplates,+    updateServiceTemplateVersion_description,+    updateServiceTemplateVersion_status,+    updateServiceTemplateVersion_supportedComponentSources,+    updateServiceTemplateVersion_majorVersion,+    updateServiceTemplateVersion_minorVersion,+    updateServiceTemplateVersion_templateName,++    -- * Destructuring the Response+    UpdateServiceTemplateVersionResponse (..),+    newUpdateServiceTemplateVersionResponse,++    -- * Response Lenses+    updateServiceTemplateVersionResponse_httpStatus,+    updateServiceTemplateVersionResponse_serviceTemplateVersion,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateServiceTemplateVersion' smart constructor.+data UpdateServiceTemplateVersion = UpdateServiceTemplateVersion'+  { -- | An array of environment template objects that are compatible with this+    -- service template version. A service instance based on this service+    -- template version can run in environments based on compatible templates.+    compatibleEnvironmentTemplates :: Prelude.Maybe (Prelude.NonEmpty CompatibleEnvironmentTemplateInput),+    -- | A description of a service template version to update.+    description :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The status of the service template minor version to update.+    status :: Prelude.Maybe TemplateVersionStatus,+    -- | An array of supported component sources. Components with supported+    -- sources can be attached to service instances based on this service+    -- template version.+    --+    -- A change to @supportedComponentSources@ doesn\'t impact existing+    -- component attachments to instances based on this template version. A+    -- change only affects later associations.+    --+    -- For more information about components, see+    -- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+    -- in the /Proton User Guide/.+    supportedComponentSources :: Prelude.Maybe [ServiceTemplateSupportedComponentSourceType],+    -- | To update a major version of a service template, include+    -- @major Version@.+    majorVersion :: Prelude.Text,+    -- | To update a minor version of a service template, include @minorVersion@.+    minorVersion :: Prelude.Text,+    -- | The name of the service template.+    templateName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceTemplateVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'compatibleEnvironmentTemplates', 'updateServiceTemplateVersion_compatibleEnvironmentTemplates' - An array of environment template objects that are compatible with this+-- service template version. A service instance based on this service+-- template version can run in environments based on compatible templates.+--+-- 'description', 'updateServiceTemplateVersion_description' - A description of a service template version to update.+--+-- 'status', 'updateServiceTemplateVersion_status' - The status of the service template minor version to update.+--+-- 'supportedComponentSources', 'updateServiceTemplateVersion_supportedComponentSources' - An array of supported component sources. Components with supported+-- sources can be attached to service instances based on this service+-- template version.+--+-- A change to @supportedComponentSources@ doesn\'t impact existing+-- component attachments to instances based on this template version. A+-- change only affects later associations.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+--+-- 'majorVersion', 'updateServiceTemplateVersion_majorVersion' - To update a major version of a service template, include+-- @major Version@.+--+-- 'minorVersion', 'updateServiceTemplateVersion_minorVersion' - To update a minor version of a service template, include @minorVersion@.+--+-- 'templateName', 'updateServiceTemplateVersion_templateName' - The name of the service template.+newUpdateServiceTemplateVersion ::+  -- | 'majorVersion'+  Prelude.Text ->+  -- | 'minorVersion'+  Prelude.Text ->+  -- | 'templateName'+  Prelude.Text ->+  UpdateServiceTemplateVersion+newUpdateServiceTemplateVersion+  pMajorVersion_+  pMinorVersion_+  pTemplateName_ =+    UpdateServiceTemplateVersion'+      { compatibleEnvironmentTemplates =+          Prelude.Nothing,+        description = Prelude.Nothing,+        status = Prelude.Nothing,+        supportedComponentSources = Prelude.Nothing,+        majorVersion = pMajorVersion_,+        minorVersion = pMinorVersion_,+        templateName = pTemplateName_+      }++-- | An array of environment template objects that are compatible with this+-- service template version. A service instance based on this service+-- template version can run in environments based on compatible templates.+updateServiceTemplateVersion_compatibleEnvironmentTemplates :: Lens.Lens' UpdateServiceTemplateVersion (Prelude.Maybe (Prelude.NonEmpty CompatibleEnvironmentTemplateInput))+updateServiceTemplateVersion_compatibleEnvironmentTemplates = Lens.lens (\UpdateServiceTemplateVersion' {compatibleEnvironmentTemplates} -> compatibleEnvironmentTemplates) (\s@UpdateServiceTemplateVersion' {} a -> s {compatibleEnvironmentTemplates = a} :: UpdateServiceTemplateVersion) Prelude.. Lens.mapping Lens.coerced++-- | A description of a service template version to update.+updateServiceTemplateVersion_description :: Lens.Lens' UpdateServiceTemplateVersion (Prelude.Maybe Prelude.Text)+updateServiceTemplateVersion_description = Lens.lens (\UpdateServiceTemplateVersion' {description} -> description) (\s@UpdateServiceTemplateVersion' {} a -> s {description = a} :: UpdateServiceTemplateVersion) Prelude.. Lens.mapping Data._Sensitive++-- | The status of the service template minor version to update.+updateServiceTemplateVersion_status :: Lens.Lens' UpdateServiceTemplateVersion (Prelude.Maybe TemplateVersionStatus)+updateServiceTemplateVersion_status = Lens.lens (\UpdateServiceTemplateVersion' {status} -> status) (\s@UpdateServiceTemplateVersion' {} a -> s {status = a} :: UpdateServiceTemplateVersion)++-- | An array of supported component sources. Components with supported+-- sources can be attached to service instances based on this service+-- template version.+--+-- A change to @supportedComponentSources@ doesn\'t impact existing+-- component attachments to instances based on this template version. A+-- change only affects later associations.+--+-- For more information about components, see+-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-components.html Proton components>+-- in the /Proton User Guide/.+updateServiceTemplateVersion_supportedComponentSources :: Lens.Lens' UpdateServiceTemplateVersion (Prelude.Maybe [ServiceTemplateSupportedComponentSourceType])+updateServiceTemplateVersion_supportedComponentSources = Lens.lens (\UpdateServiceTemplateVersion' {supportedComponentSources} -> supportedComponentSources) (\s@UpdateServiceTemplateVersion' {} a -> s {supportedComponentSources = a} :: UpdateServiceTemplateVersion) Prelude.. Lens.mapping Lens.coerced++-- | To update a major version of a service template, include+-- @major Version@.+updateServiceTemplateVersion_majorVersion :: Lens.Lens' UpdateServiceTemplateVersion Prelude.Text+updateServiceTemplateVersion_majorVersion = Lens.lens (\UpdateServiceTemplateVersion' {majorVersion} -> majorVersion) (\s@UpdateServiceTemplateVersion' {} a -> s {majorVersion = a} :: UpdateServiceTemplateVersion)++-- | To update a minor version of a service template, include @minorVersion@.+updateServiceTemplateVersion_minorVersion :: Lens.Lens' UpdateServiceTemplateVersion Prelude.Text+updateServiceTemplateVersion_minorVersion = Lens.lens (\UpdateServiceTemplateVersion' {minorVersion} -> minorVersion) (\s@UpdateServiceTemplateVersion' {} a -> s {minorVersion = a} :: UpdateServiceTemplateVersion)++-- | The name of the service template.+updateServiceTemplateVersion_templateName :: Lens.Lens' UpdateServiceTemplateVersion Prelude.Text+updateServiceTemplateVersion_templateName = Lens.lens (\UpdateServiceTemplateVersion' {templateName} -> templateName) (\s@UpdateServiceTemplateVersion' {} a -> s {templateName = a} :: UpdateServiceTemplateVersion)++instance Core.AWSRequest UpdateServiceTemplateVersion where+  type+    AWSResponse UpdateServiceTemplateVersion =+      UpdateServiceTemplateVersionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateServiceTemplateVersionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "serviceTemplateVersion")+      )++instance+  Prelude.Hashable+    UpdateServiceTemplateVersion+  where+  hashWithSalt _salt UpdateServiceTemplateVersion' {..} =+    _salt+      `Prelude.hashWithSalt` compatibleEnvironmentTemplates+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` supportedComponentSources+      `Prelude.hashWithSalt` majorVersion+      `Prelude.hashWithSalt` minorVersion+      `Prelude.hashWithSalt` templateName++instance Prelude.NFData UpdateServiceTemplateVersion where+  rnf UpdateServiceTemplateVersion' {..} =+    Prelude.rnf compatibleEnvironmentTemplates+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf supportedComponentSources+      `Prelude.seq` Prelude.rnf majorVersion+      `Prelude.seq` Prelude.rnf minorVersion+      `Prelude.seq` Prelude.rnf templateName++instance Data.ToHeaders UpdateServiceTemplateVersion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateServiceTemplateVersion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateServiceTemplateVersion where+  toJSON UpdateServiceTemplateVersion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("compatibleEnvironmentTemplates" Data..=)+              Prelude.<$> compatibleEnvironmentTemplates,+            ("description" Data..=) Prelude.<$> description,+            ("status" Data..=) Prelude.<$> status,+            ("supportedComponentSources" Data..=)+              Prelude.<$> supportedComponentSources,+            Prelude.Just ("majorVersion" Data..= majorVersion),+            Prelude.Just ("minorVersion" Data..= minorVersion),+            Prelude.Just ("templateName" Data..= templateName)+          ]+      )++instance Data.ToPath UpdateServiceTemplateVersion where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateServiceTemplateVersion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateServiceTemplateVersionResponse' smart constructor.+data UpdateServiceTemplateVersionResponse = UpdateServiceTemplateVersionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The service template version detail data that\'s returned by Proton.+    serviceTemplateVersion :: ServiceTemplateVersion+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateServiceTemplateVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateServiceTemplateVersionResponse_httpStatus' - The response's http status code.+--+-- 'serviceTemplateVersion', 'updateServiceTemplateVersionResponse_serviceTemplateVersion' - The service template version detail data that\'s returned by Proton.+newUpdateServiceTemplateVersionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'serviceTemplateVersion'+  ServiceTemplateVersion ->+  UpdateServiceTemplateVersionResponse+newUpdateServiceTemplateVersionResponse+  pHttpStatus_+  pServiceTemplateVersion_ =+    UpdateServiceTemplateVersionResponse'+      { httpStatus =+          pHttpStatus_,+        serviceTemplateVersion =+          pServiceTemplateVersion_+      }++-- | The response's http status code.+updateServiceTemplateVersionResponse_httpStatus :: Lens.Lens' UpdateServiceTemplateVersionResponse Prelude.Int+updateServiceTemplateVersionResponse_httpStatus = Lens.lens (\UpdateServiceTemplateVersionResponse' {httpStatus} -> httpStatus) (\s@UpdateServiceTemplateVersionResponse' {} a -> s {httpStatus = a} :: UpdateServiceTemplateVersionResponse)++-- | The service template version detail data that\'s returned by Proton.+updateServiceTemplateVersionResponse_serviceTemplateVersion :: Lens.Lens' UpdateServiceTemplateVersionResponse ServiceTemplateVersion+updateServiceTemplateVersionResponse_serviceTemplateVersion = Lens.lens (\UpdateServiceTemplateVersionResponse' {serviceTemplateVersion} -> serviceTemplateVersion) (\s@UpdateServiceTemplateVersionResponse' {} a -> s {serviceTemplateVersion = a} :: UpdateServiceTemplateVersionResponse)++instance+  Prelude.NFData+    UpdateServiceTemplateVersionResponse+  where+  rnf UpdateServiceTemplateVersionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf serviceTemplateVersion
+ gen/Amazonka/Proton/UpdateTemplateSyncConfig.hs view
@@ -0,0 +1,264 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.UpdateTemplateSyncConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Update template sync configuration parameters, except for the+-- @templateName@ and @templateType@. Repository details (branch, name, and+-- provider) should be of a linked repository. A linked repository is a+-- repository that has been registered with Proton. For more information,+-- see CreateRepository.+module Amazonka.Proton.UpdateTemplateSyncConfig+  ( -- * Creating a Request+    UpdateTemplateSyncConfig (..),+    newUpdateTemplateSyncConfig,++    -- * Request Lenses+    updateTemplateSyncConfig_subdirectory,+    updateTemplateSyncConfig_branch,+    updateTemplateSyncConfig_repositoryName,+    updateTemplateSyncConfig_repositoryProvider,+    updateTemplateSyncConfig_templateName,+    updateTemplateSyncConfig_templateType,++    -- * Destructuring the Response+    UpdateTemplateSyncConfigResponse (..),+    newUpdateTemplateSyncConfigResponse,++    -- * Response Lenses+    updateTemplateSyncConfigResponse_templateSyncConfig,+    updateTemplateSyncConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.Types+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateTemplateSyncConfig' smart constructor.+data UpdateTemplateSyncConfig = UpdateTemplateSyncConfig'+  { -- | A subdirectory path to your template bundle version. When included,+    -- limits the template bundle search to this repository directory.+    subdirectory :: Prelude.Maybe Prelude.Text,+    -- | The repository branch for your template.+    branch :: Prelude.Text,+    -- | The repository name (for example, @myrepos\/myrepo@).+    repositoryName :: Prelude.Text,+    -- | The repository provider.+    repositoryProvider :: RepositoryProvider,+    -- | The synced template name.+    templateName :: Prelude.Text,+    -- | The synced template type.+    templateType :: TemplateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTemplateSyncConfig' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'subdirectory', 'updateTemplateSyncConfig_subdirectory' - A subdirectory path to your template bundle version. When included,+-- limits the template bundle search to this repository directory.+--+-- 'branch', 'updateTemplateSyncConfig_branch' - The repository branch for your template.+--+-- 'repositoryName', 'updateTemplateSyncConfig_repositoryName' - The repository name (for example, @myrepos\/myrepo@).+--+-- 'repositoryProvider', 'updateTemplateSyncConfig_repositoryProvider' - The repository provider.+--+-- 'templateName', 'updateTemplateSyncConfig_templateName' - The synced template name.+--+-- 'templateType', 'updateTemplateSyncConfig_templateType' - The synced template type.+newUpdateTemplateSyncConfig ::+  -- | 'branch'+  Prelude.Text ->+  -- | 'repositoryName'+  Prelude.Text ->+  -- | 'repositoryProvider'+  RepositoryProvider ->+  -- | 'templateName'+  Prelude.Text ->+  -- | 'templateType'+  TemplateType ->+  UpdateTemplateSyncConfig+newUpdateTemplateSyncConfig+  pBranch_+  pRepositoryName_+  pRepositoryProvider_+  pTemplateName_+  pTemplateType_ =+    UpdateTemplateSyncConfig'+      { subdirectory =+          Prelude.Nothing,+        branch = pBranch_,+        repositoryName = pRepositoryName_,+        repositoryProvider = pRepositoryProvider_,+        templateName = pTemplateName_,+        templateType = pTemplateType_+      }++-- | A subdirectory path to your template bundle version. When included,+-- limits the template bundle search to this repository directory.+updateTemplateSyncConfig_subdirectory :: Lens.Lens' UpdateTemplateSyncConfig (Prelude.Maybe Prelude.Text)+updateTemplateSyncConfig_subdirectory = Lens.lens (\UpdateTemplateSyncConfig' {subdirectory} -> subdirectory) (\s@UpdateTemplateSyncConfig' {} a -> s {subdirectory = a} :: UpdateTemplateSyncConfig)++-- | The repository branch for your template.+updateTemplateSyncConfig_branch :: Lens.Lens' UpdateTemplateSyncConfig Prelude.Text+updateTemplateSyncConfig_branch = Lens.lens (\UpdateTemplateSyncConfig' {branch} -> branch) (\s@UpdateTemplateSyncConfig' {} a -> s {branch = a} :: UpdateTemplateSyncConfig)++-- | The repository name (for example, @myrepos\/myrepo@).+updateTemplateSyncConfig_repositoryName :: Lens.Lens' UpdateTemplateSyncConfig Prelude.Text+updateTemplateSyncConfig_repositoryName = Lens.lens (\UpdateTemplateSyncConfig' {repositoryName} -> repositoryName) (\s@UpdateTemplateSyncConfig' {} a -> s {repositoryName = a} :: UpdateTemplateSyncConfig)++-- | The repository provider.+updateTemplateSyncConfig_repositoryProvider :: Lens.Lens' UpdateTemplateSyncConfig RepositoryProvider+updateTemplateSyncConfig_repositoryProvider = Lens.lens (\UpdateTemplateSyncConfig' {repositoryProvider} -> repositoryProvider) (\s@UpdateTemplateSyncConfig' {} a -> s {repositoryProvider = a} :: UpdateTemplateSyncConfig)++-- | The synced template name.+updateTemplateSyncConfig_templateName :: Lens.Lens' UpdateTemplateSyncConfig Prelude.Text+updateTemplateSyncConfig_templateName = Lens.lens (\UpdateTemplateSyncConfig' {templateName} -> templateName) (\s@UpdateTemplateSyncConfig' {} a -> s {templateName = a} :: UpdateTemplateSyncConfig)++-- | The synced template type.+updateTemplateSyncConfig_templateType :: Lens.Lens' UpdateTemplateSyncConfig TemplateType+updateTemplateSyncConfig_templateType = Lens.lens (\UpdateTemplateSyncConfig' {templateType} -> templateType) (\s@UpdateTemplateSyncConfig' {} a -> s {templateType = a} :: UpdateTemplateSyncConfig)++instance Core.AWSRequest UpdateTemplateSyncConfig where+  type+    AWSResponse UpdateTemplateSyncConfig =+      UpdateTemplateSyncConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateTemplateSyncConfigResponse'+            Prelude.<$> (x Data..?> "templateSyncConfig")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateTemplateSyncConfig where+  hashWithSalt _salt UpdateTemplateSyncConfig' {..} =+    _salt+      `Prelude.hashWithSalt` subdirectory+      `Prelude.hashWithSalt` branch+      `Prelude.hashWithSalt` repositoryName+      `Prelude.hashWithSalt` repositoryProvider+      `Prelude.hashWithSalt` templateName+      `Prelude.hashWithSalt` templateType++instance Prelude.NFData UpdateTemplateSyncConfig where+  rnf UpdateTemplateSyncConfig' {..} =+    Prelude.rnf subdirectory+      `Prelude.seq` Prelude.rnf branch+      `Prelude.seq` Prelude.rnf repositoryName+      `Prelude.seq` Prelude.rnf repositoryProvider+      `Prelude.seq` Prelude.rnf templateName+      `Prelude.seq` Prelude.rnf templateType++instance Data.ToHeaders UpdateTemplateSyncConfig where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AwsProton20200720.UpdateTemplateSyncConfig" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateTemplateSyncConfig where+  toJSON UpdateTemplateSyncConfig' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("subdirectory" Data..=) Prelude.<$> subdirectory,+            Prelude.Just ("branch" Data..= branch),+            Prelude.Just+              ("repositoryName" Data..= repositoryName),+            Prelude.Just+              ("repositoryProvider" Data..= repositoryProvider),+            Prelude.Just ("templateName" Data..= templateName),+            Prelude.Just ("templateType" Data..= templateType)+          ]+      )++instance Data.ToPath UpdateTemplateSyncConfig where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateTemplateSyncConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateTemplateSyncConfigResponse' smart constructor.+data UpdateTemplateSyncConfigResponse = UpdateTemplateSyncConfigResponse'+  { -- | The template sync configuration detail data that\'s returned by Proton.+    templateSyncConfig :: Prelude.Maybe TemplateSyncConfig,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTemplateSyncConfigResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'templateSyncConfig', 'updateTemplateSyncConfigResponse_templateSyncConfig' - The template sync configuration detail data that\'s returned by Proton.+--+-- 'httpStatus', 'updateTemplateSyncConfigResponse_httpStatus' - The response's http status code.+newUpdateTemplateSyncConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateTemplateSyncConfigResponse+newUpdateTemplateSyncConfigResponse pHttpStatus_ =+  UpdateTemplateSyncConfigResponse'+    { templateSyncConfig =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The template sync configuration detail data that\'s returned by Proton.+updateTemplateSyncConfigResponse_templateSyncConfig :: Lens.Lens' UpdateTemplateSyncConfigResponse (Prelude.Maybe TemplateSyncConfig)+updateTemplateSyncConfigResponse_templateSyncConfig = Lens.lens (\UpdateTemplateSyncConfigResponse' {templateSyncConfig} -> templateSyncConfig) (\s@UpdateTemplateSyncConfigResponse' {} a -> s {templateSyncConfig = a} :: UpdateTemplateSyncConfigResponse)++-- | The response's http status code.+updateTemplateSyncConfigResponse_httpStatus :: Lens.Lens' UpdateTemplateSyncConfigResponse Prelude.Int+updateTemplateSyncConfigResponse_httpStatus = Lens.lens (\UpdateTemplateSyncConfigResponse' {httpStatus} -> httpStatus) (\s@UpdateTemplateSyncConfigResponse' {} a -> s {httpStatus = a} :: UpdateTemplateSyncConfigResponse)++instance+  Prelude.NFData+    UpdateTemplateSyncConfigResponse+  where+  rnf UpdateTemplateSyncConfigResponse' {..} =+    Prelude.rnf templateSyncConfig+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Proton/Waiters.hs view
@@ -0,0 +1,342 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Proton.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.Proton.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Proton.GetComponent+import Amazonka.Proton.GetEnvironment+import Amazonka.Proton.GetEnvironmentTemplateVersion+import Amazonka.Proton.GetService+import Amazonka.Proton.GetServiceInstance+import Amazonka.Proton.GetServiceTemplateVersion+import Amazonka.Proton.Lens+import Amazonka.Proton.Types++-- | Polls 'Amazonka.Proton.GetComponent' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newComponentDeleted :: Core.Wait GetComponent+newComponentDeleted =+  Core.Wait+    { Core.name = "ComponentDeleted",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchError+            "ResourceNotFoundException"+            Core.AcceptSuccess,+          Core.matchAll+            "DELETE_FAILED"+            Core.AcceptFailure+            ( getComponentResponse_component+                Prelude.. Lens._Just+                Prelude.. component_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetComponent' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newComponentDeployed :: Core.Wait GetComponent+newComponentDeployed =+  Core.Wait+    { Core.name = "ComponentDeployed",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchAll+            "SUCCEEDED"+            Core.AcceptSuccess+            ( getComponentResponse_component+                Prelude.. Lens._Just+                Prelude.. component_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "FAILED"+            Core.AcceptFailure+            ( getComponentResponse_component+                Prelude.. Lens._Just+                Prelude.. component_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetEnvironment' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newEnvironmentDeployed :: Core.Wait GetEnvironment+newEnvironmentDeployed =+  Core.Wait+    { Core.name = "EnvironmentDeployed",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchAll+            "SUCCEEDED"+            Core.AcceptSuccess+            ( getEnvironmentResponse_environment+                Prelude.. environment_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "FAILED"+            Core.AcceptFailure+            ( getEnvironmentResponse_environment+                Prelude.. environment_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetEnvironmentTemplateVersion' every 2 seconds until a successful state is reached. An error is returned after 150 failed checks.+newEnvironmentTemplateVersionRegistered :: Core.Wait GetEnvironmentTemplateVersion+newEnvironmentTemplateVersionRegistered =+  Core.Wait+    { Core.name =+        "EnvironmentTemplateVersionRegistered",+      Core.attempts = 150,+      Core.delay = 2,+      Core.acceptors =+        [ Core.matchAll+            "DRAFT"+            Core.AcceptSuccess+            ( getEnvironmentTemplateVersionResponse_environmentTemplateVersion+                Prelude.. environmentTemplateVersion_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "PUBLISHED"+            Core.AcceptSuccess+            ( getEnvironmentTemplateVersionResponse_environmentTemplateVersion+                Prelude.. environmentTemplateVersion_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "REGISTRATION_FAILED"+            Core.AcceptFailure+            ( getEnvironmentTemplateVersionResponse_environmentTemplateVersion+                Prelude.. environmentTemplateVersion_status+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetService' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newServiceCreated :: Core.Wait GetService+newServiceCreated =+  Core.Wait+    { Core.name = "ServiceCreated",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchAll+            "ACTIVE"+            Core.AcceptSuccess+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "CREATE_FAILED_CLEANUP_COMPLETE"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "CREATE_FAILED_CLEANUP_FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "CREATE_FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetService' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newServiceDeleted :: Core.Wait GetService+newServiceDeleted =+  Core.Wait+    { Core.name = "ServiceDeleted",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchError+            "ResourceNotFoundException"+            Core.AcceptSuccess,+          Core.matchAll+            "DELETE_FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetServiceInstance' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newServiceInstanceDeployed :: Core.Wait GetServiceInstance+newServiceInstanceDeployed =+  Core.Wait+    { Core.name = "ServiceInstanceDeployed",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchAll+            "SUCCEEDED"+            Core.AcceptSuccess+            ( getServiceInstanceResponse_serviceInstance+                Prelude.. serviceInstance_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "FAILED"+            Core.AcceptFailure+            ( getServiceInstanceResponse_serviceInstance+                Prelude.. serviceInstance_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetService' every 10 seconds until a successful state is reached. An error is returned after 360 failed checks.+newServicePipelineDeployed :: Core.Wait GetService+newServicePipelineDeployed =+  Core.Wait+    { Core.name = "ServicePipelineDeployed",+      Core.attempts = 360,+      Core.delay = 10,+      Core.acceptors =+        [ Core.matchAll+            "SUCCEEDED"+            Core.AcceptSuccess+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_pipeline+                Prelude.. Lens._Just+                Prelude.. servicePipeline_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_pipeline+                Prelude.. Lens._Just+                Prelude.. servicePipeline_deploymentStatus+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetServiceTemplateVersion' every 2 seconds until a successful state is reached. An error is returned after 150 failed checks.+newServiceTemplateVersionRegistered :: Core.Wait GetServiceTemplateVersion+newServiceTemplateVersionRegistered =+  Core.Wait+    { Core.name =+        "ServiceTemplateVersionRegistered",+      Core.attempts = 150,+      Core.delay = 2,+      Core.acceptors =+        [ Core.matchAll+            "DRAFT"+            Core.AcceptSuccess+            ( getServiceTemplateVersionResponse_serviceTemplateVersion+                Prelude.. serviceTemplateVersion_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "PUBLISHED"+            Core.AcceptSuccess+            ( getServiceTemplateVersionResponse_serviceTemplateVersion+                Prelude.. serviceTemplateVersion_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "REGISTRATION_FAILED"+            Core.AcceptFailure+            ( getServiceTemplateVersionResponse_serviceTemplateVersion+                Prelude.. serviceTemplateVersion_status+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }++-- | Polls 'Amazonka.Proton.GetService' every 5 seconds until a successful state is reached. An error is returned after 999 failed checks.+newServiceUpdated :: Core.Wait GetService+newServiceUpdated =+  Core.Wait+    { Core.name = "ServiceUpdated",+      Core.attempts = 999,+      Core.delay = 5,+      Core.acceptors =+        [ Core.matchAll+            "ACTIVE"+            Core.AcceptSuccess+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "UPDATE_FAILED_CLEANUP_COMPLETE"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "UPDATE_FAILED_CLEANUP_FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "UPDATE_FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "UPDATE_COMPLETE_CLEANUP_FAILED"+            Core.AcceptFailure+            ( getServiceResponse_service+                Prelude.. Lens._Just+                Prelude.. service_status+                Prelude.. Lens.to Data.toTextCI+            )+        ]+    }
+ src/.gitkeep view
+ test/Main.hs view
@@ -0,0 +1,23 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Main+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Main (main) where++import Test.Amazonka.Proton+import Test.Amazonka.Proton.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "Proton"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/Gen/Proton.hs view
@@ -0,0 +1,1538 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.Proton+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.Proton where++import Amazonka.Proton+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Amazonka.Proton.Internal+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestAcceptEnvironmentAccountConnection $+--             newAcceptEnvironmentAccountConnection+--+--         , requestCancelComponentDeployment $+--             newCancelComponentDeployment+--+--         , requestCancelEnvironmentDeployment $+--             newCancelEnvironmentDeployment+--+--         , requestCancelServiceInstanceDeployment $+--             newCancelServiceInstanceDeployment+--+--         , requestCancelServicePipelineDeployment $+--             newCancelServicePipelineDeployment+--+--         , requestCreateComponent $+--             newCreateComponent+--+--         , requestCreateEnvironment $+--             newCreateEnvironment+--+--         , requestCreateEnvironmentAccountConnection $+--             newCreateEnvironmentAccountConnection+--+--         , requestCreateEnvironmentTemplate $+--             newCreateEnvironmentTemplate+--+--         , requestCreateEnvironmentTemplateVersion $+--             newCreateEnvironmentTemplateVersion+--+--         , requestCreateRepository $+--             newCreateRepository+--+--         , requestCreateService $+--             newCreateService+--+--         , requestCreateServiceTemplate $+--             newCreateServiceTemplate+--+--         , requestCreateServiceTemplateVersion $+--             newCreateServiceTemplateVersion+--+--         , requestCreateTemplateSyncConfig $+--             newCreateTemplateSyncConfig+--+--         , requestDeleteComponent $+--             newDeleteComponent+--+--         , requestDeleteEnvironment $+--             newDeleteEnvironment+--+--         , requestDeleteEnvironmentAccountConnection $+--             newDeleteEnvironmentAccountConnection+--+--         , requestDeleteEnvironmentTemplate $+--             newDeleteEnvironmentTemplate+--+--         , requestDeleteEnvironmentTemplateVersion $+--             newDeleteEnvironmentTemplateVersion+--+--         , requestDeleteRepository $+--             newDeleteRepository+--+--         , requestDeleteService $+--             newDeleteService+--+--         , requestDeleteServiceTemplate $+--             newDeleteServiceTemplate+--+--         , requestDeleteServiceTemplateVersion $+--             newDeleteServiceTemplateVersion+--+--         , requestDeleteTemplateSyncConfig $+--             newDeleteTemplateSyncConfig+--+--         , requestGetAccountSettings $+--             newGetAccountSettings+--+--         , requestGetComponent $+--             newGetComponent+--+--         , requestGetEnvironment $+--             newGetEnvironment+--+--         , requestGetEnvironmentAccountConnection $+--             newGetEnvironmentAccountConnection+--+--         , requestGetEnvironmentTemplate $+--             newGetEnvironmentTemplate+--+--         , requestGetEnvironmentTemplateVersion $+--             newGetEnvironmentTemplateVersion+--+--         , requestGetRepository $+--             newGetRepository+--+--         , requestGetRepositorySyncStatus $+--             newGetRepositorySyncStatus+--+--         , requestGetService $+--             newGetService+--+--         , requestGetServiceInstance $+--             newGetServiceInstance+--+--         , requestGetServiceTemplate $+--             newGetServiceTemplate+--+--         , requestGetServiceTemplateVersion $+--             newGetServiceTemplateVersion+--+--         , requestGetTemplateSyncConfig $+--             newGetTemplateSyncConfig+--+--         , requestGetTemplateSyncStatus $+--             newGetTemplateSyncStatus+--+--         , requestListComponentOutputs $+--             newListComponentOutputs+--+--         , requestListComponentProvisionedResources $+--             newListComponentProvisionedResources+--+--         , requestListComponents $+--             newListComponents+--+--         , requestListEnvironmentAccountConnections $+--             newListEnvironmentAccountConnections+--+--         , requestListEnvironmentOutputs $+--             newListEnvironmentOutputs+--+--         , requestListEnvironmentProvisionedResources $+--             newListEnvironmentProvisionedResources+--+--         , requestListEnvironmentTemplateVersions $+--             newListEnvironmentTemplateVersions+--+--         , requestListEnvironmentTemplates $+--             newListEnvironmentTemplates+--+--         , requestListEnvironments $+--             newListEnvironments+--+--         , requestListRepositories $+--             newListRepositories+--+--         , requestListRepositorySyncDefinitions $+--             newListRepositorySyncDefinitions+--+--         , requestListServiceInstanceOutputs $+--             newListServiceInstanceOutputs+--+--         , requestListServiceInstanceProvisionedResources $+--             newListServiceInstanceProvisionedResources+--+--         , requestListServiceInstances $+--             newListServiceInstances+--+--         , requestListServicePipelineOutputs $+--             newListServicePipelineOutputs+--+--         , requestListServicePipelineProvisionedResources $+--             newListServicePipelineProvisionedResources+--+--         , requestListServiceTemplateVersions $+--             newListServiceTemplateVersions+--+--         , requestListServiceTemplates $+--             newListServiceTemplates+--+--         , requestListServices $+--             newListServices+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestNotifyResourceDeploymentStatusChange $+--             newNotifyResourceDeploymentStatusChange+--+--         , requestRejectEnvironmentAccountConnection $+--             newRejectEnvironmentAccountConnection+--+--         , requestTagResource $+--             newTagResource+--+--         , requestUntagResource $+--             newUntagResource+--+--         , requestUpdateAccountSettings $+--             newUpdateAccountSettings+--+--         , requestUpdateComponent $+--             newUpdateComponent+--+--         , requestUpdateEnvironment $+--             newUpdateEnvironment+--+--         , requestUpdateEnvironmentAccountConnection $+--             newUpdateEnvironmentAccountConnection+--+--         , requestUpdateEnvironmentTemplate $+--             newUpdateEnvironmentTemplate+--+--         , requestUpdateEnvironmentTemplateVersion $+--             newUpdateEnvironmentTemplateVersion+--+--         , requestUpdateService $+--             newUpdateService+--+--         , requestUpdateServiceInstance $+--             newUpdateServiceInstance+--+--         , requestUpdateServicePipeline $+--             newUpdateServicePipeline+--+--         , requestUpdateServiceTemplate $+--             newUpdateServiceTemplate+--+--         , requestUpdateServiceTemplateVersion $+--             newUpdateServiceTemplateVersion+--+--         , requestUpdateTemplateSyncConfig $+--             newUpdateTemplateSyncConfig+--+--           ]++--     , testGroup "response"+--         [ responseAcceptEnvironmentAccountConnection $+--             newAcceptEnvironmentAccountConnectionResponse+--+--         , responseCancelComponentDeployment $+--             newCancelComponentDeploymentResponse+--+--         , responseCancelEnvironmentDeployment $+--             newCancelEnvironmentDeploymentResponse+--+--         , responseCancelServiceInstanceDeployment $+--             newCancelServiceInstanceDeploymentResponse+--+--         , responseCancelServicePipelineDeployment $+--             newCancelServicePipelineDeploymentResponse+--+--         , responseCreateComponent $+--             newCreateComponentResponse+--+--         , responseCreateEnvironment $+--             newCreateEnvironmentResponse+--+--         , responseCreateEnvironmentAccountConnection $+--             newCreateEnvironmentAccountConnectionResponse+--+--         , responseCreateEnvironmentTemplate $+--             newCreateEnvironmentTemplateResponse+--+--         , responseCreateEnvironmentTemplateVersion $+--             newCreateEnvironmentTemplateVersionResponse+--+--         , responseCreateRepository $+--             newCreateRepositoryResponse+--+--         , responseCreateService $+--             newCreateServiceResponse+--+--         , responseCreateServiceTemplate $+--             newCreateServiceTemplateResponse+--+--         , responseCreateServiceTemplateVersion $+--             newCreateServiceTemplateVersionResponse+--+--         , responseCreateTemplateSyncConfig $+--             newCreateTemplateSyncConfigResponse+--+--         , responseDeleteComponent $+--             newDeleteComponentResponse+--+--         , responseDeleteEnvironment $+--             newDeleteEnvironmentResponse+--+--         , responseDeleteEnvironmentAccountConnection $+--             newDeleteEnvironmentAccountConnectionResponse+--+--         , responseDeleteEnvironmentTemplate $+--             newDeleteEnvironmentTemplateResponse+--+--         , responseDeleteEnvironmentTemplateVersion $+--             newDeleteEnvironmentTemplateVersionResponse+--+--         , responseDeleteRepository $+--             newDeleteRepositoryResponse+--+--         , responseDeleteService $+--             newDeleteServiceResponse+--+--         , responseDeleteServiceTemplate $+--             newDeleteServiceTemplateResponse+--+--         , responseDeleteServiceTemplateVersion $+--             newDeleteServiceTemplateVersionResponse+--+--         , responseDeleteTemplateSyncConfig $+--             newDeleteTemplateSyncConfigResponse+--+--         , responseGetAccountSettings $+--             newGetAccountSettingsResponse+--+--         , responseGetComponent $+--             newGetComponentResponse+--+--         , responseGetEnvironment $+--             newGetEnvironmentResponse+--+--         , responseGetEnvironmentAccountConnection $+--             newGetEnvironmentAccountConnectionResponse+--+--         , responseGetEnvironmentTemplate $+--             newGetEnvironmentTemplateResponse+--+--         , responseGetEnvironmentTemplateVersion $+--             newGetEnvironmentTemplateVersionResponse+--+--         , responseGetRepository $+--             newGetRepositoryResponse+--+--         , responseGetRepositorySyncStatus $+--             newGetRepositorySyncStatusResponse+--+--         , responseGetService $+--             newGetServiceResponse+--+--         , responseGetServiceInstance $+--             newGetServiceInstanceResponse+--+--         , responseGetServiceTemplate $+--             newGetServiceTemplateResponse+--+--         , responseGetServiceTemplateVersion $+--             newGetServiceTemplateVersionResponse+--+--         , responseGetTemplateSyncConfig $+--             newGetTemplateSyncConfigResponse+--+--         , responseGetTemplateSyncStatus $+--             newGetTemplateSyncStatusResponse+--+--         , responseListComponentOutputs $+--             newListComponentOutputsResponse+--+--         , responseListComponentProvisionedResources $+--             newListComponentProvisionedResourcesResponse+--+--         , responseListComponents $+--             newListComponentsResponse+--+--         , responseListEnvironmentAccountConnections $+--             newListEnvironmentAccountConnectionsResponse+--+--         , responseListEnvironmentOutputs $+--             newListEnvironmentOutputsResponse+--+--         , responseListEnvironmentProvisionedResources $+--             newListEnvironmentProvisionedResourcesResponse+--+--         , responseListEnvironmentTemplateVersions $+--             newListEnvironmentTemplateVersionsResponse+--+--         , responseListEnvironmentTemplates $+--             newListEnvironmentTemplatesResponse+--+--         , responseListEnvironments $+--             newListEnvironmentsResponse+--+--         , responseListRepositories $+--             newListRepositoriesResponse+--+--         , responseListRepositorySyncDefinitions $+--             newListRepositorySyncDefinitionsResponse+--+--         , responseListServiceInstanceOutputs $+--             newListServiceInstanceOutputsResponse+--+--         , responseListServiceInstanceProvisionedResources $+--             newListServiceInstanceProvisionedResourcesResponse+--+--         , responseListServiceInstances $+--             newListServiceInstancesResponse+--+--         , responseListServicePipelineOutputs $+--             newListServicePipelineOutputsResponse+--+--         , responseListServicePipelineProvisionedResources $+--             newListServicePipelineProvisionedResourcesResponse+--+--         , responseListServiceTemplateVersions $+--             newListServiceTemplateVersionsResponse+--+--         , responseListServiceTemplates $+--             newListServiceTemplatesResponse+--+--         , responseListServices $+--             newListServicesResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responseNotifyResourceDeploymentStatusChange $+--             newNotifyResourceDeploymentStatusChangeResponse+--+--         , responseRejectEnvironmentAccountConnection $+--             newRejectEnvironmentAccountConnectionResponse+--+--         , responseTagResource $+--             newTagResourceResponse+--+--         , responseUntagResource $+--             newUntagResourceResponse+--+--         , responseUpdateAccountSettings $+--             newUpdateAccountSettingsResponse+--+--         , responseUpdateComponent $+--             newUpdateComponentResponse+--+--         , responseUpdateEnvironment $+--             newUpdateEnvironmentResponse+--+--         , responseUpdateEnvironmentAccountConnection $+--             newUpdateEnvironmentAccountConnectionResponse+--+--         , responseUpdateEnvironmentTemplate $+--             newUpdateEnvironmentTemplateResponse+--+--         , responseUpdateEnvironmentTemplateVersion $+--             newUpdateEnvironmentTemplateVersionResponse+--+--         , responseUpdateService $+--             newUpdateServiceResponse+--+--         , responseUpdateServiceInstance $+--             newUpdateServiceInstanceResponse+--+--         , responseUpdateServicePipeline $+--             newUpdateServicePipelineResponse+--+--         , responseUpdateServiceTemplate $+--             newUpdateServiceTemplateResponse+--+--         , responseUpdateServiceTemplateVersion $+--             newUpdateServiceTemplateVersionResponse+--+--         , responseUpdateTemplateSyncConfig $+--             newUpdateTemplateSyncConfigResponse+--+--           ]+--     ]++-- Requests++requestAcceptEnvironmentAccountConnection :: AcceptEnvironmentAccountConnection -> TestTree+requestAcceptEnvironmentAccountConnection =+  req+    "AcceptEnvironmentAccountConnection"+    "fixture/AcceptEnvironmentAccountConnection.yaml"++requestCancelComponentDeployment :: CancelComponentDeployment -> TestTree+requestCancelComponentDeployment =+  req+    "CancelComponentDeployment"+    "fixture/CancelComponentDeployment.yaml"++requestCancelEnvironmentDeployment :: CancelEnvironmentDeployment -> TestTree+requestCancelEnvironmentDeployment =+  req+    "CancelEnvironmentDeployment"+    "fixture/CancelEnvironmentDeployment.yaml"++requestCancelServiceInstanceDeployment :: CancelServiceInstanceDeployment -> TestTree+requestCancelServiceInstanceDeployment =+  req+    "CancelServiceInstanceDeployment"+    "fixture/CancelServiceInstanceDeployment.yaml"++requestCancelServicePipelineDeployment :: CancelServicePipelineDeployment -> TestTree+requestCancelServicePipelineDeployment =+  req+    "CancelServicePipelineDeployment"+    "fixture/CancelServicePipelineDeployment.yaml"++requestCreateComponent :: CreateComponent -> TestTree+requestCreateComponent =+  req+    "CreateComponent"+    "fixture/CreateComponent.yaml"++requestCreateEnvironment :: CreateEnvironment -> TestTree+requestCreateEnvironment =+  req+    "CreateEnvironment"+    "fixture/CreateEnvironment.yaml"++requestCreateEnvironmentAccountConnection :: CreateEnvironmentAccountConnection -> TestTree+requestCreateEnvironmentAccountConnection =+  req+    "CreateEnvironmentAccountConnection"+    "fixture/CreateEnvironmentAccountConnection.yaml"++requestCreateEnvironmentTemplate :: CreateEnvironmentTemplate -> TestTree+requestCreateEnvironmentTemplate =+  req+    "CreateEnvironmentTemplate"+    "fixture/CreateEnvironmentTemplate.yaml"++requestCreateEnvironmentTemplateVersion :: CreateEnvironmentTemplateVersion -> TestTree+requestCreateEnvironmentTemplateVersion =+  req+    "CreateEnvironmentTemplateVersion"+    "fixture/CreateEnvironmentTemplateVersion.yaml"++requestCreateRepository :: CreateRepository -> TestTree+requestCreateRepository =+  req+    "CreateRepository"+    "fixture/CreateRepository.yaml"++requestCreateService :: CreateService -> TestTree+requestCreateService =+  req+    "CreateService"+    "fixture/CreateService.yaml"++requestCreateServiceTemplate :: CreateServiceTemplate -> TestTree+requestCreateServiceTemplate =+  req+    "CreateServiceTemplate"+    "fixture/CreateServiceTemplate.yaml"++requestCreateServiceTemplateVersion :: CreateServiceTemplateVersion -> TestTree+requestCreateServiceTemplateVersion =+  req+    "CreateServiceTemplateVersion"+    "fixture/CreateServiceTemplateVersion.yaml"++requestCreateTemplateSyncConfig :: CreateTemplateSyncConfig -> TestTree+requestCreateTemplateSyncConfig =+  req+    "CreateTemplateSyncConfig"+    "fixture/CreateTemplateSyncConfig.yaml"++requestDeleteComponent :: DeleteComponent -> TestTree+requestDeleteComponent =+  req+    "DeleteComponent"+    "fixture/DeleteComponent.yaml"++requestDeleteEnvironment :: DeleteEnvironment -> TestTree+requestDeleteEnvironment =+  req+    "DeleteEnvironment"+    "fixture/DeleteEnvironment.yaml"++requestDeleteEnvironmentAccountConnection :: DeleteEnvironmentAccountConnection -> TestTree+requestDeleteEnvironmentAccountConnection =+  req+    "DeleteEnvironmentAccountConnection"+    "fixture/DeleteEnvironmentAccountConnection.yaml"++requestDeleteEnvironmentTemplate :: DeleteEnvironmentTemplate -> TestTree+requestDeleteEnvironmentTemplate =+  req+    "DeleteEnvironmentTemplate"+    "fixture/DeleteEnvironmentTemplate.yaml"++requestDeleteEnvironmentTemplateVersion :: DeleteEnvironmentTemplateVersion -> TestTree+requestDeleteEnvironmentTemplateVersion =+  req+    "DeleteEnvironmentTemplateVersion"+    "fixture/DeleteEnvironmentTemplateVersion.yaml"++requestDeleteRepository :: DeleteRepository -> TestTree+requestDeleteRepository =+  req+    "DeleteRepository"+    "fixture/DeleteRepository.yaml"++requestDeleteService :: DeleteService -> TestTree+requestDeleteService =+  req+    "DeleteService"+    "fixture/DeleteService.yaml"++requestDeleteServiceTemplate :: DeleteServiceTemplate -> TestTree+requestDeleteServiceTemplate =+  req+    "DeleteServiceTemplate"+    "fixture/DeleteServiceTemplate.yaml"++requestDeleteServiceTemplateVersion :: DeleteServiceTemplateVersion -> TestTree+requestDeleteServiceTemplateVersion =+  req+    "DeleteServiceTemplateVersion"+    "fixture/DeleteServiceTemplateVersion.yaml"++requestDeleteTemplateSyncConfig :: DeleteTemplateSyncConfig -> TestTree+requestDeleteTemplateSyncConfig =+  req+    "DeleteTemplateSyncConfig"+    "fixture/DeleteTemplateSyncConfig.yaml"++requestGetAccountSettings :: GetAccountSettings -> TestTree+requestGetAccountSettings =+  req+    "GetAccountSettings"+    "fixture/GetAccountSettings.yaml"++requestGetComponent :: GetComponent -> TestTree+requestGetComponent =+  req+    "GetComponent"+    "fixture/GetComponent.yaml"++requestGetEnvironment :: GetEnvironment -> TestTree+requestGetEnvironment =+  req+    "GetEnvironment"+    "fixture/GetEnvironment.yaml"++requestGetEnvironmentAccountConnection :: GetEnvironmentAccountConnection -> TestTree+requestGetEnvironmentAccountConnection =+  req+    "GetEnvironmentAccountConnection"+    "fixture/GetEnvironmentAccountConnection.yaml"++requestGetEnvironmentTemplate :: GetEnvironmentTemplate -> TestTree+requestGetEnvironmentTemplate =+  req+    "GetEnvironmentTemplate"+    "fixture/GetEnvironmentTemplate.yaml"++requestGetEnvironmentTemplateVersion :: GetEnvironmentTemplateVersion -> TestTree+requestGetEnvironmentTemplateVersion =+  req+    "GetEnvironmentTemplateVersion"+    "fixture/GetEnvironmentTemplateVersion.yaml"++requestGetRepository :: GetRepository -> TestTree+requestGetRepository =+  req+    "GetRepository"+    "fixture/GetRepository.yaml"++requestGetRepositorySyncStatus :: GetRepositorySyncStatus -> TestTree+requestGetRepositorySyncStatus =+  req+    "GetRepositorySyncStatus"+    "fixture/GetRepositorySyncStatus.yaml"++requestGetService :: GetService -> TestTree+requestGetService =+  req+    "GetService"+    "fixture/GetService.yaml"++requestGetServiceInstance :: GetServiceInstance -> TestTree+requestGetServiceInstance =+  req+    "GetServiceInstance"+    "fixture/GetServiceInstance.yaml"++requestGetServiceTemplate :: GetServiceTemplate -> TestTree+requestGetServiceTemplate =+  req+    "GetServiceTemplate"+    "fixture/GetServiceTemplate.yaml"++requestGetServiceTemplateVersion :: GetServiceTemplateVersion -> TestTree+requestGetServiceTemplateVersion =+  req+    "GetServiceTemplateVersion"+    "fixture/GetServiceTemplateVersion.yaml"++requestGetTemplateSyncConfig :: GetTemplateSyncConfig -> TestTree+requestGetTemplateSyncConfig =+  req+    "GetTemplateSyncConfig"+    "fixture/GetTemplateSyncConfig.yaml"++requestGetTemplateSyncStatus :: GetTemplateSyncStatus -> TestTree+requestGetTemplateSyncStatus =+  req+    "GetTemplateSyncStatus"+    "fixture/GetTemplateSyncStatus.yaml"++requestListComponentOutputs :: ListComponentOutputs -> TestTree+requestListComponentOutputs =+  req+    "ListComponentOutputs"+    "fixture/ListComponentOutputs.yaml"++requestListComponentProvisionedResources :: ListComponentProvisionedResources -> TestTree+requestListComponentProvisionedResources =+  req+    "ListComponentProvisionedResources"+    "fixture/ListComponentProvisionedResources.yaml"++requestListComponents :: ListComponents -> TestTree+requestListComponents =+  req+    "ListComponents"+    "fixture/ListComponents.yaml"++requestListEnvironmentAccountConnections :: ListEnvironmentAccountConnections -> TestTree+requestListEnvironmentAccountConnections =+  req+    "ListEnvironmentAccountConnections"+    "fixture/ListEnvironmentAccountConnections.yaml"++requestListEnvironmentOutputs :: ListEnvironmentOutputs -> TestTree+requestListEnvironmentOutputs =+  req+    "ListEnvironmentOutputs"+    "fixture/ListEnvironmentOutputs.yaml"++requestListEnvironmentProvisionedResources :: ListEnvironmentProvisionedResources -> TestTree+requestListEnvironmentProvisionedResources =+  req+    "ListEnvironmentProvisionedResources"+    "fixture/ListEnvironmentProvisionedResources.yaml"++requestListEnvironmentTemplateVersions :: ListEnvironmentTemplateVersions -> TestTree+requestListEnvironmentTemplateVersions =+  req+    "ListEnvironmentTemplateVersions"+    "fixture/ListEnvironmentTemplateVersions.yaml"++requestListEnvironmentTemplates :: ListEnvironmentTemplates -> TestTree+requestListEnvironmentTemplates =+  req+    "ListEnvironmentTemplates"+    "fixture/ListEnvironmentTemplates.yaml"++requestListEnvironments :: ListEnvironments -> TestTree+requestListEnvironments =+  req+    "ListEnvironments"+    "fixture/ListEnvironments.yaml"++requestListRepositories :: ListRepositories -> TestTree+requestListRepositories =+  req+    "ListRepositories"+    "fixture/ListRepositories.yaml"++requestListRepositorySyncDefinitions :: ListRepositorySyncDefinitions -> TestTree+requestListRepositorySyncDefinitions =+  req+    "ListRepositorySyncDefinitions"+    "fixture/ListRepositorySyncDefinitions.yaml"++requestListServiceInstanceOutputs :: ListServiceInstanceOutputs -> TestTree+requestListServiceInstanceOutputs =+  req+    "ListServiceInstanceOutputs"+    "fixture/ListServiceInstanceOutputs.yaml"++requestListServiceInstanceProvisionedResources :: ListServiceInstanceProvisionedResources -> TestTree+requestListServiceInstanceProvisionedResources =+  req+    "ListServiceInstanceProvisionedResources"+    "fixture/ListServiceInstanceProvisionedResources.yaml"++requestListServiceInstances :: ListServiceInstances -> TestTree+requestListServiceInstances =+  req+    "ListServiceInstances"+    "fixture/ListServiceInstances.yaml"++requestListServicePipelineOutputs :: ListServicePipelineOutputs -> TestTree+requestListServicePipelineOutputs =+  req+    "ListServicePipelineOutputs"+    "fixture/ListServicePipelineOutputs.yaml"++requestListServicePipelineProvisionedResources :: ListServicePipelineProvisionedResources -> TestTree+requestListServicePipelineProvisionedResources =+  req+    "ListServicePipelineProvisionedResources"+    "fixture/ListServicePipelineProvisionedResources.yaml"++requestListServiceTemplateVersions :: ListServiceTemplateVersions -> TestTree+requestListServiceTemplateVersions =+  req+    "ListServiceTemplateVersions"+    "fixture/ListServiceTemplateVersions.yaml"++requestListServiceTemplates :: ListServiceTemplates -> TestTree+requestListServiceTemplates =+  req+    "ListServiceTemplates"+    "fixture/ListServiceTemplates.yaml"++requestListServices :: ListServices -> TestTree+requestListServices =+  req+    "ListServices"+    "fixture/ListServices.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestNotifyResourceDeploymentStatusChange :: NotifyResourceDeploymentStatusChange -> TestTree+requestNotifyResourceDeploymentStatusChange =+  req+    "NotifyResourceDeploymentStatusChange"+    "fixture/NotifyResourceDeploymentStatusChange.yaml"++requestRejectEnvironmentAccountConnection :: RejectEnvironmentAccountConnection -> TestTree+requestRejectEnvironmentAccountConnection =+  req+    "RejectEnvironmentAccountConnection"+    "fixture/RejectEnvironmentAccountConnection.yaml"++requestTagResource :: TagResource -> TestTree+requestTagResource =+  req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource =+  req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestUpdateAccountSettings :: UpdateAccountSettings -> TestTree+requestUpdateAccountSettings =+  req+    "UpdateAccountSettings"+    "fixture/UpdateAccountSettings.yaml"++requestUpdateComponent :: UpdateComponent -> TestTree+requestUpdateComponent =+  req+    "UpdateComponent"+    "fixture/UpdateComponent.yaml"++requestUpdateEnvironment :: UpdateEnvironment -> TestTree+requestUpdateEnvironment =+  req+    "UpdateEnvironment"+    "fixture/UpdateEnvironment.yaml"++requestUpdateEnvironmentAccountConnection :: UpdateEnvironmentAccountConnection -> TestTree+requestUpdateEnvironmentAccountConnection =+  req+    "UpdateEnvironmentAccountConnection"+    "fixture/UpdateEnvironmentAccountConnection.yaml"++requestUpdateEnvironmentTemplate :: UpdateEnvironmentTemplate -> TestTree+requestUpdateEnvironmentTemplate =+  req+    "UpdateEnvironmentTemplate"+    "fixture/UpdateEnvironmentTemplate.yaml"++requestUpdateEnvironmentTemplateVersion :: UpdateEnvironmentTemplateVersion -> TestTree+requestUpdateEnvironmentTemplateVersion =+  req+    "UpdateEnvironmentTemplateVersion"+    "fixture/UpdateEnvironmentTemplateVersion.yaml"++requestUpdateService :: UpdateService -> TestTree+requestUpdateService =+  req+    "UpdateService"+    "fixture/UpdateService.yaml"++requestUpdateServiceInstance :: UpdateServiceInstance -> TestTree+requestUpdateServiceInstance =+  req+    "UpdateServiceInstance"+    "fixture/UpdateServiceInstance.yaml"++requestUpdateServicePipeline :: UpdateServicePipeline -> TestTree+requestUpdateServicePipeline =+  req+    "UpdateServicePipeline"+    "fixture/UpdateServicePipeline.yaml"++requestUpdateServiceTemplate :: UpdateServiceTemplate -> TestTree+requestUpdateServiceTemplate =+  req+    "UpdateServiceTemplate"+    "fixture/UpdateServiceTemplate.yaml"++requestUpdateServiceTemplateVersion :: UpdateServiceTemplateVersion -> TestTree+requestUpdateServiceTemplateVersion =+  req+    "UpdateServiceTemplateVersion"+    "fixture/UpdateServiceTemplateVersion.yaml"++requestUpdateTemplateSyncConfig :: UpdateTemplateSyncConfig -> TestTree+requestUpdateTemplateSyncConfig =+  req+    "UpdateTemplateSyncConfig"+    "fixture/UpdateTemplateSyncConfig.yaml"++-- Responses++responseAcceptEnvironmentAccountConnection :: AcceptEnvironmentAccountConnectionResponse -> TestTree+responseAcceptEnvironmentAccountConnection =+  res+    "AcceptEnvironmentAccountConnectionResponse"+    "fixture/AcceptEnvironmentAccountConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy AcceptEnvironmentAccountConnection)++responseCancelComponentDeployment :: CancelComponentDeploymentResponse -> TestTree+responseCancelComponentDeployment =+  res+    "CancelComponentDeploymentResponse"+    "fixture/CancelComponentDeploymentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CancelComponentDeployment)++responseCancelEnvironmentDeployment :: CancelEnvironmentDeploymentResponse -> TestTree+responseCancelEnvironmentDeployment =+  res+    "CancelEnvironmentDeploymentResponse"+    "fixture/CancelEnvironmentDeploymentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CancelEnvironmentDeployment)++responseCancelServiceInstanceDeployment :: CancelServiceInstanceDeploymentResponse -> TestTree+responseCancelServiceInstanceDeployment =+  res+    "CancelServiceInstanceDeploymentResponse"+    "fixture/CancelServiceInstanceDeploymentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CancelServiceInstanceDeployment)++responseCancelServicePipelineDeployment :: CancelServicePipelineDeploymentResponse -> TestTree+responseCancelServicePipelineDeployment =+  res+    "CancelServicePipelineDeploymentResponse"+    "fixture/CancelServicePipelineDeploymentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CancelServicePipelineDeployment)++responseCreateComponent :: CreateComponentResponse -> TestTree+responseCreateComponent =+  res+    "CreateComponentResponse"+    "fixture/CreateComponentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateComponent)++responseCreateEnvironment :: CreateEnvironmentResponse -> TestTree+responseCreateEnvironment =+  res+    "CreateEnvironmentResponse"+    "fixture/CreateEnvironmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateEnvironment)++responseCreateEnvironmentAccountConnection :: CreateEnvironmentAccountConnectionResponse -> TestTree+responseCreateEnvironmentAccountConnection =+  res+    "CreateEnvironmentAccountConnectionResponse"+    "fixture/CreateEnvironmentAccountConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateEnvironmentAccountConnection)++responseCreateEnvironmentTemplate :: CreateEnvironmentTemplateResponse -> TestTree+responseCreateEnvironmentTemplate =+  res+    "CreateEnvironmentTemplateResponse"+    "fixture/CreateEnvironmentTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateEnvironmentTemplate)++responseCreateEnvironmentTemplateVersion :: CreateEnvironmentTemplateVersionResponse -> TestTree+responseCreateEnvironmentTemplateVersion =+  res+    "CreateEnvironmentTemplateVersionResponse"+    "fixture/CreateEnvironmentTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateEnvironmentTemplateVersion)++responseCreateRepository :: CreateRepositoryResponse -> TestTree+responseCreateRepository =+  res+    "CreateRepositoryResponse"+    "fixture/CreateRepositoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateRepository)++responseCreateService :: CreateServiceResponse -> TestTree+responseCreateService =+  res+    "CreateServiceResponse"+    "fixture/CreateServiceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateService)++responseCreateServiceTemplate :: CreateServiceTemplateResponse -> TestTree+responseCreateServiceTemplate =+  res+    "CreateServiceTemplateResponse"+    "fixture/CreateServiceTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateServiceTemplate)++responseCreateServiceTemplateVersion :: CreateServiceTemplateVersionResponse -> TestTree+responseCreateServiceTemplateVersion =+  res+    "CreateServiceTemplateVersionResponse"+    "fixture/CreateServiceTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateServiceTemplateVersion)++responseCreateTemplateSyncConfig :: CreateTemplateSyncConfigResponse -> TestTree+responseCreateTemplateSyncConfig =+  res+    "CreateTemplateSyncConfigResponse"+    "fixture/CreateTemplateSyncConfigResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateTemplateSyncConfig)++responseDeleteComponent :: DeleteComponentResponse -> TestTree+responseDeleteComponent =+  res+    "DeleteComponentResponse"+    "fixture/DeleteComponentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteComponent)++responseDeleteEnvironment :: DeleteEnvironmentResponse -> TestTree+responseDeleteEnvironment =+  res+    "DeleteEnvironmentResponse"+    "fixture/DeleteEnvironmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteEnvironment)++responseDeleteEnvironmentAccountConnection :: DeleteEnvironmentAccountConnectionResponse -> TestTree+responseDeleteEnvironmentAccountConnection =+  res+    "DeleteEnvironmentAccountConnectionResponse"+    "fixture/DeleteEnvironmentAccountConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteEnvironmentAccountConnection)++responseDeleteEnvironmentTemplate :: DeleteEnvironmentTemplateResponse -> TestTree+responseDeleteEnvironmentTemplate =+  res+    "DeleteEnvironmentTemplateResponse"+    "fixture/DeleteEnvironmentTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteEnvironmentTemplate)++responseDeleteEnvironmentTemplateVersion :: DeleteEnvironmentTemplateVersionResponse -> TestTree+responseDeleteEnvironmentTemplateVersion =+  res+    "DeleteEnvironmentTemplateVersionResponse"+    "fixture/DeleteEnvironmentTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteEnvironmentTemplateVersion)++responseDeleteRepository :: DeleteRepositoryResponse -> TestTree+responseDeleteRepository =+  res+    "DeleteRepositoryResponse"+    "fixture/DeleteRepositoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteRepository)++responseDeleteService :: DeleteServiceResponse -> TestTree+responseDeleteService =+  res+    "DeleteServiceResponse"+    "fixture/DeleteServiceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteService)++responseDeleteServiceTemplate :: DeleteServiceTemplateResponse -> TestTree+responseDeleteServiceTemplate =+  res+    "DeleteServiceTemplateResponse"+    "fixture/DeleteServiceTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteServiceTemplate)++responseDeleteServiceTemplateVersion :: DeleteServiceTemplateVersionResponse -> TestTree+responseDeleteServiceTemplateVersion =+  res+    "DeleteServiceTemplateVersionResponse"+    "fixture/DeleteServiceTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteServiceTemplateVersion)++responseDeleteTemplateSyncConfig :: DeleteTemplateSyncConfigResponse -> TestTree+responseDeleteTemplateSyncConfig =+  res+    "DeleteTemplateSyncConfigResponse"+    "fixture/DeleteTemplateSyncConfigResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteTemplateSyncConfig)++responseGetAccountSettings :: GetAccountSettingsResponse -> TestTree+responseGetAccountSettings =+  res+    "GetAccountSettingsResponse"+    "fixture/GetAccountSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetAccountSettings)++responseGetComponent :: GetComponentResponse -> TestTree+responseGetComponent =+  res+    "GetComponentResponse"+    "fixture/GetComponentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetComponent)++responseGetEnvironment :: GetEnvironmentResponse -> TestTree+responseGetEnvironment =+  res+    "GetEnvironmentResponse"+    "fixture/GetEnvironmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetEnvironment)++responseGetEnvironmentAccountConnection :: GetEnvironmentAccountConnectionResponse -> TestTree+responseGetEnvironmentAccountConnection =+  res+    "GetEnvironmentAccountConnectionResponse"+    "fixture/GetEnvironmentAccountConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetEnvironmentAccountConnection)++responseGetEnvironmentTemplate :: GetEnvironmentTemplateResponse -> TestTree+responseGetEnvironmentTemplate =+  res+    "GetEnvironmentTemplateResponse"+    "fixture/GetEnvironmentTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetEnvironmentTemplate)++responseGetEnvironmentTemplateVersion :: GetEnvironmentTemplateVersionResponse -> TestTree+responseGetEnvironmentTemplateVersion =+  res+    "GetEnvironmentTemplateVersionResponse"+    "fixture/GetEnvironmentTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetEnvironmentTemplateVersion)++responseGetRepository :: GetRepositoryResponse -> TestTree+responseGetRepository =+  res+    "GetRepositoryResponse"+    "fixture/GetRepositoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetRepository)++responseGetRepositorySyncStatus :: GetRepositorySyncStatusResponse -> TestTree+responseGetRepositorySyncStatus =+  res+    "GetRepositorySyncStatusResponse"+    "fixture/GetRepositorySyncStatusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetRepositorySyncStatus)++responseGetService :: GetServiceResponse -> TestTree+responseGetService =+  res+    "GetServiceResponse"+    "fixture/GetServiceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetService)++responseGetServiceInstance :: GetServiceInstanceResponse -> TestTree+responseGetServiceInstance =+  res+    "GetServiceInstanceResponse"+    "fixture/GetServiceInstanceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetServiceInstance)++responseGetServiceTemplate :: GetServiceTemplateResponse -> TestTree+responseGetServiceTemplate =+  res+    "GetServiceTemplateResponse"+    "fixture/GetServiceTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetServiceTemplate)++responseGetServiceTemplateVersion :: GetServiceTemplateVersionResponse -> TestTree+responseGetServiceTemplateVersion =+  res+    "GetServiceTemplateVersionResponse"+    "fixture/GetServiceTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetServiceTemplateVersion)++responseGetTemplateSyncConfig :: GetTemplateSyncConfigResponse -> TestTree+responseGetTemplateSyncConfig =+  res+    "GetTemplateSyncConfigResponse"+    "fixture/GetTemplateSyncConfigResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetTemplateSyncConfig)++responseGetTemplateSyncStatus :: GetTemplateSyncStatusResponse -> TestTree+responseGetTemplateSyncStatus =+  res+    "GetTemplateSyncStatusResponse"+    "fixture/GetTemplateSyncStatusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetTemplateSyncStatus)++responseListComponentOutputs :: ListComponentOutputsResponse -> TestTree+responseListComponentOutputs =+  res+    "ListComponentOutputsResponse"+    "fixture/ListComponentOutputsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListComponentOutputs)++responseListComponentProvisionedResources :: ListComponentProvisionedResourcesResponse -> TestTree+responseListComponentProvisionedResources =+  res+    "ListComponentProvisionedResourcesResponse"+    "fixture/ListComponentProvisionedResourcesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListComponentProvisionedResources)++responseListComponents :: ListComponentsResponse -> TestTree+responseListComponents =+  res+    "ListComponentsResponse"+    "fixture/ListComponentsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListComponents)++responseListEnvironmentAccountConnections :: ListEnvironmentAccountConnectionsResponse -> TestTree+responseListEnvironmentAccountConnections =+  res+    "ListEnvironmentAccountConnectionsResponse"+    "fixture/ListEnvironmentAccountConnectionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEnvironmentAccountConnections)++responseListEnvironmentOutputs :: ListEnvironmentOutputsResponse -> TestTree+responseListEnvironmentOutputs =+  res+    "ListEnvironmentOutputsResponse"+    "fixture/ListEnvironmentOutputsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEnvironmentOutputs)++responseListEnvironmentProvisionedResources :: ListEnvironmentProvisionedResourcesResponse -> TestTree+responseListEnvironmentProvisionedResources =+  res+    "ListEnvironmentProvisionedResourcesResponse"+    "fixture/ListEnvironmentProvisionedResourcesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEnvironmentProvisionedResources)++responseListEnvironmentTemplateVersions :: ListEnvironmentTemplateVersionsResponse -> TestTree+responseListEnvironmentTemplateVersions =+  res+    "ListEnvironmentTemplateVersionsResponse"+    "fixture/ListEnvironmentTemplateVersionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEnvironmentTemplateVersions)++responseListEnvironmentTemplates :: ListEnvironmentTemplatesResponse -> TestTree+responseListEnvironmentTemplates =+  res+    "ListEnvironmentTemplatesResponse"+    "fixture/ListEnvironmentTemplatesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEnvironmentTemplates)++responseListEnvironments :: ListEnvironmentsResponse -> TestTree+responseListEnvironments =+  res+    "ListEnvironmentsResponse"+    "fixture/ListEnvironmentsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEnvironments)++responseListRepositories :: ListRepositoriesResponse -> TestTree+responseListRepositories =+  res+    "ListRepositoriesResponse"+    "fixture/ListRepositoriesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListRepositories)++responseListRepositorySyncDefinitions :: ListRepositorySyncDefinitionsResponse -> TestTree+responseListRepositorySyncDefinitions =+  res+    "ListRepositorySyncDefinitionsResponse"+    "fixture/ListRepositorySyncDefinitionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListRepositorySyncDefinitions)++responseListServiceInstanceOutputs :: ListServiceInstanceOutputsResponse -> TestTree+responseListServiceInstanceOutputs =+  res+    "ListServiceInstanceOutputsResponse"+    "fixture/ListServiceInstanceOutputsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServiceInstanceOutputs)++responseListServiceInstanceProvisionedResources :: ListServiceInstanceProvisionedResourcesResponse -> TestTree+responseListServiceInstanceProvisionedResources =+  res+    "ListServiceInstanceProvisionedResourcesResponse"+    "fixture/ListServiceInstanceProvisionedResourcesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServiceInstanceProvisionedResources)++responseListServiceInstances :: ListServiceInstancesResponse -> TestTree+responseListServiceInstances =+  res+    "ListServiceInstancesResponse"+    "fixture/ListServiceInstancesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServiceInstances)++responseListServicePipelineOutputs :: ListServicePipelineOutputsResponse -> TestTree+responseListServicePipelineOutputs =+  res+    "ListServicePipelineOutputsResponse"+    "fixture/ListServicePipelineOutputsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServicePipelineOutputs)++responseListServicePipelineProvisionedResources :: ListServicePipelineProvisionedResourcesResponse -> TestTree+responseListServicePipelineProvisionedResources =+  res+    "ListServicePipelineProvisionedResourcesResponse"+    "fixture/ListServicePipelineProvisionedResourcesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServicePipelineProvisionedResources)++responseListServiceTemplateVersions :: ListServiceTemplateVersionsResponse -> TestTree+responseListServiceTemplateVersions =+  res+    "ListServiceTemplateVersionsResponse"+    "fixture/ListServiceTemplateVersionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServiceTemplateVersions)++responseListServiceTemplates :: ListServiceTemplatesResponse -> TestTree+responseListServiceTemplates =+  res+    "ListServiceTemplatesResponse"+    "fixture/ListServiceTemplatesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServiceTemplates)++responseListServices :: ListServicesResponse -> TestTree+responseListServices =+  res+    "ListServicesResponse"+    "fixture/ListServicesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListServices)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responseNotifyResourceDeploymentStatusChange :: NotifyResourceDeploymentStatusChangeResponse -> TestTree+responseNotifyResourceDeploymentStatusChange =+  res+    "NotifyResourceDeploymentStatusChangeResponse"+    "fixture/NotifyResourceDeploymentStatusChangeResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy NotifyResourceDeploymentStatusChange)++responseRejectEnvironmentAccountConnection :: RejectEnvironmentAccountConnectionResponse -> TestTree+responseRejectEnvironmentAccountConnection =+  res+    "RejectEnvironmentAccountConnectionResponse"+    "fixture/RejectEnvironmentAccountConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RejectEnvironmentAccountConnection)++responseTagResource :: TagResourceResponse -> TestTree+responseTagResource =+  res+    "TagResourceResponse"+    "fixture/TagResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy TagResource)++responseUntagResource :: UntagResourceResponse -> TestTree+responseUntagResource =+  res+    "UntagResourceResponse"+    "fixture/UntagResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UntagResource)++responseUpdateAccountSettings :: UpdateAccountSettingsResponse -> TestTree+responseUpdateAccountSettings =+  res+    "UpdateAccountSettingsResponse"+    "fixture/UpdateAccountSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateAccountSettings)++responseUpdateComponent :: UpdateComponentResponse -> TestTree+responseUpdateComponent =+  res+    "UpdateComponentResponse"+    "fixture/UpdateComponentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateComponent)++responseUpdateEnvironment :: UpdateEnvironmentResponse -> TestTree+responseUpdateEnvironment =+  res+    "UpdateEnvironmentResponse"+    "fixture/UpdateEnvironmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateEnvironment)++responseUpdateEnvironmentAccountConnection :: UpdateEnvironmentAccountConnectionResponse -> TestTree+responseUpdateEnvironmentAccountConnection =+  res+    "UpdateEnvironmentAccountConnectionResponse"+    "fixture/UpdateEnvironmentAccountConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateEnvironmentAccountConnection)++responseUpdateEnvironmentTemplate :: UpdateEnvironmentTemplateResponse -> TestTree+responseUpdateEnvironmentTemplate =+  res+    "UpdateEnvironmentTemplateResponse"+    "fixture/UpdateEnvironmentTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateEnvironmentTemplate)++responseUpdateEnvironmentTemplateVersion :: UpdateEnvironmentTemplateVersionResponse -> TestTree+responseUpdateEnvironmentTemplateVersion =+  res+    "UpdateEnvironmentTemplateVersionResponse"+    "fixture/UpdateEnvironmentTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateEnvironmentTemplateVersion)++responseUpdateService :: UpdateServiceResponse -> TestTree+responseUpdateService =+  res+    "UpdateServiceResponse"+    "fixture/UpdateServiceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateService)++responseUpdateServiceInstance :: UpdateServiceInstanceResponse -> TestTree+responseUpdateServiceInstance =+  res+    "UpdateServiceInstanceResponse"+    "fixture/UpdateServiceInstanceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateServiceInstance)++responseUpdateServicePipeline :: UpdateServicePipelineResponse -> TestTree+responseUpdateServicePipeline =+  res+    "UpdateServicePipelineResponse"+    "fixture/UpdateServicePipelineResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateServicePipeline)++responseUpdateServiceTemplate :: UpdateServiceTemplateResponse -> TestTree+responseUpdateServiceTemplate =+  res+    "UpdateServiceTemplateResponse"+    "fixture/UpdateServiceTemplateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateServiceTemplate)++responseUpdateServiceTemplateVersion :: UpdateServiceTemplateVersionResponse -> TestTree+responseUpdateServiceTemplateVersion =+  res+    "UpdateServiceTemplateVersionResponse"+    "fixture/UpdateServiceTemplateVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateServiceTemplateVersion)++responseUpdateTemplateSyncConfig :: UpdateTemplateSyncConfigResponse -> TestTree+responseUpdateTemplateSyncConfig =+  res+    "UpdateTemplateSyncConfigResponse"+    "fixture/UpdateTemplateSyncConfigResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateTemplateSyncConfig)
+ test/Test/Amazonka/Proton.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.Proton+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Proton+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/Proton/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.Proton.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Proton.Internal where