diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -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. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -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. diff --git a/amazonka-proton.cabal b/amazonka-proton.cabal new file mode 100644 --- /dev/null +++ b/amazonka-proton.cabal @@ -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 , Jack Kelly + +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 , + 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 or 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 or . + . + See "Amazonka.Proton" and the 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 diff --git a/fixture/AcceptEnvironmentAccountConnection.yaml b/fixture/AcceptEnvironmentAccountConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/AcceptEnvironmentAccountConnection.yaml @@ -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: + '' diff --git a/fixture/AcceptEnvironmentAccountConnectionResponse.proto b/fixture/AcceptEnvironmentAccountConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/AcceptEnvironmentAccountConnectionResponse.proto diff --git a/fixture/CancelComponentDeployment.yaml b/fixture/CancelComponentDeployment.yaml new file mode 100644 --- /dev/null +++ b/fixture/CancelComponentDeployment.yaml @@ -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: + '' diff --git a/fixture/CancelComponentDeploymentResponse.proto b/fixture/CancelComponentDeploymentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CancelComponentDeploymentResponse.proto diff --git a/fixture/CancelEnvironmentDeployment.yaml b/fixture/CancelEnvironmentDeployment.yaml new file mode 100644 --- /dev/null +++ b/fixture/CancelEnvironmentDeployment.yaml @@ -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: + '' diff --git a/fixture/CancelEnvironmentDeploymentResponse.proto b/fixture/CancelEnvironmentDeploymentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CancelEnvironmentDeploymentResponse.proto diff --git a/fixture/CancelServiceInstanceDeployment.yaml b/fixture/CancelServiceInstanceDeployment.yaml new file mode 100644 --- /dev/null +++ b/fixture/CancelServiceInstanceDeployment.yaml @@ -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: + '' diff --git a/fixture/CancelServiceInstanceDeploymentResponse.proto b/fixture/CancelServiceInstanceDeploymentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CancelServiceInstanceDeploymentResponse.proto diff --git a/fixture/CancelServicePipelineDeployment.yaml b/fixture/CancelServicePipelineDeployment.yaml new file mode 100644 --- /dev/null +++ b/fixture/CancelServicePipelineDeployment.yaml @@ -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: + '' diff --git a/fixture/CancelServicePipelineDeploymentResponse.proto b/fixture/CancelServicePipelineDeploymentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CancelServicePipelineDeploymentResponse.proto diff --git a/fixture/CreateComponent.yaml b/fixture/CreateComponent.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateComponent.yaml @@ -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: + '' diff --git a/fixture/CreateComponentResponse.proto b/fixture/CreateComponentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateComponentResponse.proto diff --git a/fixture/CreateEnvironment.yaml b/fixture/CreateEnvironment.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironment.yaml @@ -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: + '' diff --git a/fixture/CreateEnvironmentAccountConnection.yaml b/fixture/CreateEnvironmentAccountConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentAccountConnection.yaml @@ -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: + '' diff --git a/fixture/CreateEnvironmentAccountConnectionResponse.proto b/fixture/CreateEnvironmentAccountConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentAccountConnectionResponse.proto diff --git a/fixture/CreateEnvironmentResponse.proto b/fixture/CreateEnvironmentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentResponse.proto diff --git a/fixture/CreateEnvironmentTemplate.yaml b/fixture/CreateEnvironmentTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentTemplate.yaml @@ -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: + '' diff --git a/fixture/CreateEnvironmentTemplateResponse.proto b/fixture/CreateEnvironmentTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentTemplateResponse.proto diff --git a/fixture/CreateEnvironmentTemplateVersion.yaml b/fixture/CreateEnvironmentTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/CreateEnvironmentTemplateVersionResponse.proto b/fixture/CreateEnvironmentTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateEnvironmentTemplateVersionResponse.proto diff --git a/fixture/CreateRepository.yaml b/fixture/CreateRepository.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateRepository.yaml @@ -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: + '' diff --git a/fixture/CreateRepositoryResponse.proto b/fixture/CreateRepositoryResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateRepositoryResponse.proto diff --git a/fixture/CreateService.yaml b/fixture/CreateService.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateService.yaml @@ -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: + '' diff --git a/fixture/CreateServiceResponse.proto b/fixture/CreateServiceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateServiceResponse.proto diff --git a/fixture/CreateServiceTemplate.yaml b/fixture/CreateServiceTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateServiceTemplate.yaml @@ -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: + '' diff --git a/fixture/CreateServiceTemplateResponse.proto b/fixture/CreateServiceTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateServiceTemplateResponse.proto diff --git a/fixture/CreateServiceTemplateVersion.yaml b/fixture/CreateServiceTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateServiceTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/CreateServiceTemplateVersionResponse.proto b/fixture/CreateServiceTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateServiceTemplateVersionResponse.proto diff --git a/fixture/CreateTemplateSyncConfig.yaml b/fixture/CreateTemplateSyncConfig.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateTemplateSyncConfig.yaml @@ -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: + '' diff --git a/fixture/CreateTemplateSyncConfigResponse.proto b/fixture/CreateTemplateSyncConfigResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateTemplateSyncConfigResponse.proto diff --git a/fixture/DeleteComponent.yaml b/fixture/DeleteComponent.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteComponent.yaml @@ -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: + '' diff --git a/fixture/DeleteComponentResponse.proto b/fixture/DeleteComponentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteComponentResponse.proto diff --git a/fixture/DeleteEnvironment.yaml b/fixture/DeleteEnvironment.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironment.yaml @@ -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: + '' diff --git a/fixture/DeleteEnvironmentAccountConnection.yaml b/fixture/DeleteEnvironmentAccountConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentAccountConnection.yaml @@ -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: + '' diff --git a/fixture/DeleteEnvironmentAccountConnectionResponse.proto b/fixture/DeleteEnvironmentAccountConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentAccountConnectionResponse.proto diff --git a/fixture/DeleteEnvironmentResponse.proto b/fixture/DeleteEnvironmentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentResponse.proto diff --git a/fixture/DeleteEnvironmentTemplate.yaml b/fixture/DeleteEnvironmentTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentTemplate.yaml @@ -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: + '' diff --git a/fixture/DeleteEnvironmentTemplateResponse.proto b/fixture/DeleteEnvironmentTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentTemplateResponse.proto diff --git a/fixture/DeleteEnvironmentTemplateVersion.yaml b/fixture/DeleteEnvironmentTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/DeleteEnvironmentTemplateVersionResponse.proto b/fixture/DeleteEnvironmentTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteEnvironmentTemplateVersionResponse.proto diff --git a/fixture/DeleteRepository.yaml b/fixture/DeleteRepository.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteRepository.yaml @@ -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: + '' diff --git a/fixture/DeleteRepositoryResponse.proto b/fixture/DeleteRepositoryResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteRepositoryResponse.proto diff --git a/fixture/DeleteService.yaml b/fixture/DeleteService.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteService.yaml @@ -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: + '' diff --git a/fixture/DeleteServiceResponse.proto b/fixture/DeleteServiceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteServiceResponse.proto diff --git a/fixture/DeleteServiceTemplate.yaml b/fixture/DeleteServiceTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteServiceTemplate.yaml @@ -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: + '' diff --git a/fixture/DeleteServiceTemplateResponse.proto b/fixture/DeleteServiceTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteServiceTemplateResponse.proto diff --git a/fixture/DeleteServiceTemplateVersion.yaml b/fixture/DeleteServiceTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteServiceTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/DeleteServiceTemplateVersionResponse.proto b/fixture/DeleteServiceTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteServiceTemplateVersionResponse.proto diff --git a/fixture/DeleteTemplateSyncConfig.yaml b/fixture/DeleteTemplateSyncConfig.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteTemplateSyncConfig.yaml @@ -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: + '' diff --git a/fixture/DeleteTemplateSyncConfigResponse.proto b/fixture/DeleteTemplateSyncConfigResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteTemplateSyncConfigResponse.proto diff --git a/fixture/GetAccountSettings.yaml b/fixture/GetAccountSettings.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetAccountSettings.yaml @@ -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: + '' diff --git a/fixture/GetAccountSettingsResponse.proto b/fixture/GetAccountSettingsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetAccountSettingsResponse.proto diff --git a/fixture/GetComponent.yaml b/fixture/GetComponent.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetComponent.yaml @@ -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: + '' diff --git a/fixture/GetComponentResponse.proto b/fixture/GetComponentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetComponentResponse.proto diff --git a/fixture/GetEnvironment.yaml b/fixture/GetEnvironment.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironment.yaml @@ -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: + '' diff --git a/fixture/GetEnvironmentAccountConnection.yaml b/fixture/GetEnvironmentAccountConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentAccountConnection.yaml @@ -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: + '' diff --git a/fixture/GetEnvironmentAccountConnectionResponse.proto b/fixture/GetEnvironmentAccountConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentAccountConnectionResponse.proto diff --git a/fixture/GetEnvironmentResponse.proto b/fixture/GetEnvironmentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentResponse.proto diff --git a/fixture/GetEnvironmentTemplate.yaml b/fixture/GetEnvironmentTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentTemplate.yaml @@ -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: + '' diff --git a/fixture/GetEnvironmentTemplateResponse.proto b/fixture/GetEnvironmentTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentTemplateResponse.proto diff --git a/fixture/GetEnvironmentTemplateVersion.yaml b/fixture/GetEnvironmentTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/GetEnvironmentTemplateVersionResponse.proto b/fixture/GetEnvironmentTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetEnvironmentTemplateVersionResponse.proto diff --git a/fixture/GetRepository.yaml b/fixture/GetRepository.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetRepository.yaml @@ -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: + '' diff --git a/fixture/GetRepositoryResponse.proto b/fixture/GetRepositoryResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetRepositoryResponse.proto diff --git a/fixture/GetRepositorySyncStatus.yaml b/fixture/GetRepositorySyncStatus.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetRepositorySyncStatus.yaml @@ -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: + '' diff --git a/fixture/GetRepositorySyncStatusResponse.proto b/fixture/GetRepositorySyncStatusResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetRepositorySyncStatusResponse.proto diff --git a/fixture/GetService.yaml b/fixture/GetService.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetService.yaml @@ -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: + '' diff --git a/fixture/GetServiceInstance.yaml b/fixture/GetServiceInstance.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetServiceInstance.yaml @@ -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: + '' diff --git a/fixture/GetServiceInstanceResponse.proto b/fixture/GetServiceInstanceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetServiceInstanceResponse.proto diff --git a/fixture/GetServiceResponse.proto b/fixture/GetServiceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetServiceResponse.proto diff --git a/fixture/GetServiceTemplate.yaml b/fixture/GetServiceTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetServiceTemplate.yaml @@ -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: + '' diff --git a/fixture/GetServiceTemplateResponse.proto b/fixture/GetServiceTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetServiceTemplateResponse.proto diff --git a/fixture/GetServiceTemplateVersion.yaml b/fixture/GetServiceTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetServiceTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/GetServiceTemplateVersionResponse.proto b/fixture/GetServiceTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetServiceTemplateVersionResponse.proto diff --git a/fixture/GetTemplateSyncConfig.yaml b/fixture/GetTemplateSyncConfig.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetTemplateSyncConfig.yaml @@ -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: + '' diff --git a/fixture/GetTemplateSyncConfigResponse.proto b/fixture/GetTemplateSyncConfigResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetTemplateSyncConfigResponse.proto diff --git a/fixture/GetTemplateSyncStatus.yaml b/fixture/GetTemplateSyncStatus.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetTemplateSyncStatus.yaml @@ -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: + '' diff --git a/fixture/GetTemplateSyncStatusResponse.proto b/fixture/GetTemplateSyncStatusResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetTemplateSyncStatusResponse.proto diff --git a/fixture/ListComponentOutputs.yaml b/fixture/ListComponentOutputs.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListComponentOutputs.yaml @@ -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: + '' diff --git a/fixture/ListComponentOutputsResponse.proto b/fixture/ListComponentOutputsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListComponentOutputsResponse.proto diff --git a/fixture/ListComponentProvisionedResources.yaml b/fixture/ListComponentProvisionedResources.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListComponentProvisionedResources.yaml @@ -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: + '' diff --git a/fixture/ListComponentProvisionedResourcesResponse.proto b/fixture/ListComponentProvisionedResourcesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListComponentProvisionedResourcesResponse.proto diff --git a/fixture/ListComponents.yaml b/fixture/ListComponents.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListComponents.yaml @@ -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: + '' diff --git a/fixture/ListComponentsResponse.proto b/fixture/ListComponentsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListComponentsResponse.proto diff --git a/fixture/ListEnvironmentAccountConnections.yaml b/fixture/ListEnvironmentAccountConnections.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentAccountConnections.yaml @@ -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: + '' diff --git a/fixture/ListEnvironmentAccountConnectionsResponse.proto b/fixture/ListEnvironmentAccountConnectionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentAccountConnectionsResponse.proto diff --git a/fixture/ListEnvironmentOutputs.yaml b/fixture/ListEnvironmentOutputs.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentOutputs.yaml @@ -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: + '' diff --git a/fixture/ListEnvironmentOutputsResponse.proto b/fixture/ListEnvironmentOutputsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentOutputsResponse.proto diff --git a/fixture/ListEnvironmentProvisionedResources.yaml b/fixture/ListEnvironmentProvisionedResources.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentProvisionedResources.yaml @@ -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: + '' diff --git a/fixture/ListEnvironmentProvisionedResourcesResponse.proto b/fixture/ListEnvironmentProvisionedResourcesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentProvisionedResourcesResponse.proto diff --git a/fixture/ListEnvironmentTemplateVersions.yaml b/fixture/ListEnvironmentTemplateVersions.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentTemplateVersions.yaml @@ -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: + '' diff --git a/fixture/ListEnvironmentTemplateVersionsResponse.proto b/fixture/ListEnvironmentTemplateVersionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentTemplateVersionsResponse.proto diff --git a/fixture/ListEnvironmentTemplates.yaml b/fixture/ListEnvironmentTemplates.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentTemplates.yaml @@ -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: + '' diff --git a/fixture/ListEnvironmentTemplatesResponse.proto b/fixture/ListEnvironmentTemplatesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentTemplatesResponse.proto diff --git a/fixture/ListEnvironments.yaml b/fixture/ListEnvironments.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironments.yaml @@ -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: + '' diff --git a/fixture/ListEnvironmentsResponse.proto b/fixture/ListEnvironmentsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListEnvironmentsResponse.proto diff --git a/fixture/ListRepositories.yaml b/fixture/ListRepositories.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListRepositories.yaml @@ -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: + '' diff --git a/fixture/ListRepositoriesResponse.proto b/fixture/ListRepositoriesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListRepositoriesResponse.proto diff --git a/fixture/ListRepositorySyncDefinitions.yaml b/fixture/ListRepositorySyncDefinitions.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListRepositorySyncDefinitions.yaml @@ -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: + '' diff --git a/fixture/ListRepositorySyncDefinitionsResponse.proto b/fixture/ListRepositorySyncDefinitionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListRepositorySyncDefinitionsResponse.proto diff --git a/fixture/ListServiceInstanceOutputs.yaml b/fixture/ListServiceInstanceOutputs.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServiceInstanceOutputs.yaml @@ -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: + '' diff --git a/fixture/ListServiceInstanceOutputsResponse.proto b/fixture/ListServiceInstanceOutputsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServiceInstanceOutputsResponse.proto diff --git a/fixture/ListServiceInstanceProvisionedResources.yaml b/fixture/ListServiceInstanceProvisionedResources.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServiceInstanceProvisionedResources.yaml @@ -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: + '' diff --git a/fixture/ListServiceInstanceProvisionedResourcesResponse.proto b/fixture/ListServiceInstanceProvisionedResourcesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServiceInstanceProvisionedResourcesResponse.proto diff --git a/fixture/ListServiceInstances.yaml b/fixture/ListServiceInstances.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServiceInstances.yaml @@ -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: + '' diff --git a/fixture/ListServiceInstancesResponse.proto b/fixture/ListServiceInstancesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServiceInstancesResponse.proto diff --git a/fixture/ListServicePipelineOutputs.yaml b/fixture/ListServicePipelineOutputs.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServicePipelineOutputs.yaml @@ -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: + '' diff --git a/fixture/ListServicePipelineOutputsResponse.proto b/fixture/ListServicePipelineOutputsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServicePipelineOutputsResponse.proto diff --git a/fixture/ListServicePipelineProvisionedResources.yaml b/fixture/ListServicePipelineProvisionedResources.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServicePipelineProvisionedResources.yaml @@ -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: + '' diff --git a/fixture/ListServicePipelineProvisionedResourcesResponse.proto b/fixture/ListServicePipelineProvisionedResourcesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServicePipelineProvisionedResourcesResponse.proto diff --git a/fixture/ListServiceTemplateVersions.yaml b/fixture/ListServiceTemplateVersions.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServiceTemplateVersions.yaml @@ -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: + '' diff --git a/fixture/ListServiceTemplateVersionsResponse.proto b/fixture/ListServiceTemplateVersionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServiceTemplateVersionsResponse.proto diff --git a/fixture/ListServiceTemplates.yaml b/fixture/ListServiceTemplates.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServiceTemplates.yaml @@ -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: + '' diff --git a/fixture/ListServiceTemplatesResponse.proto b/fixture/ListServiceTemplatesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServiceTemplatesResponse.proto diff --git a/fixture/ListServices.yaml b/fixture/ListServices.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListServices.yaml @@ -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: + '' diff --git a/fixture/ListServicesResponse.proto b/fixture/ListServicesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListServicesResponse.proto diff --git a/fixture/ListTagsForResource.yaml b/fixture/ListTagsForResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListTagsForResource.yaml @@ -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: + '' diff --git a/fixture/ListTagsForResourceResponse.proto b/fixture/ListTagsForResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListTagsForResourceResponse.proto diff --git a/fixture/NotifyResourceDeploymentStatusChange.yaml b/fixture/NotifyResourceDeploymentStatusChange.yaml new file mode 100644 --- /dev/null +++ b/fixture/NotifyResourceDeploymentStatusChange.yaml @@ -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: + '' diff --git a/fixture/NotifyResourceDeploymentStatusChangeResponse.proto b/fixture/NotifyResourceDeploymentStatusChangeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/NotifyResourceDeploymentStatusChangeResponse.proto diff --git a/fixture/RejectEnvironmentAccountConnection.yaml b/fixture/RejectEnvironmentAccountConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/RejectEnvironmentAccountConnection.yaml @@ -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: + '' diff --git a/fixture/RejectEnvironmentAccountConnectionResponse.proto b/fixture/RejectEnvironmentAccountConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/RejectEnvironmentAccountConnectionResponse.proto diff --git a/fixture/TagResource.yaml b/fixture/TagResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/TagResource.yaml @@ -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: + '' diff --git a/fixture/TagResourceResponse.proto b/fixture/TagResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/TagResourceResponse.proto diff --git a/fixture/UntagResource.yaml b/fixture/UntagResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/UntagResource.yaml @@ -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: + '' diff --git a/fixture/UntagResourceResponse.proto b/fixture/UntagResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UntagResourceResponse.proto diff --git a/fixture/UpdateAccountSettings.yaml b/fixture/UpdateAccountSettings.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateAccountSettings.yaml @@ -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: + '' diff --git a/fixture/UpdateAccountSettingsResponse.proto b/fixture/UpdateAccountSettingsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateAccountSettingsResponse.proto diff --git a/fixture/UpdateComponent.yaml b/fixture/UpdateComponent.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateComponent.yaml @@ -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: + '' diff --git a/fixture/UpdateComponentResponse.proto b/fixture/UpdateComponentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateComponentResponse.proto diff --git a/fixture/UpdateEnvironment.yaml b/fixture/UpdateEnvironment.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironment.yaml @@ -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: + '' diff --git a/fixture/UpdateEnvironmentAccountConnection.yaml b/fixture/UpdateEnvironmentAccountConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentAccountConnection.yaml @@ -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: + '' diff --git a/fixture/UpdateEnvironmentAccountConnectionResponse.proto b/fixture/UpdateEnvironmentAccountConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentAccountConnectionResponse.proto diff --git a/fixture/UpdateEnvironmentResponse.proto b/fixture/UpdateEnvironmentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentResponse.proto diff --git a/fixture/UpdateEnvironmentTemplate.yaml b/fixture/UpdateEnvironmentTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentTemplate.yaml @@ -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: + '' diff --git a/fixture/UpdateEnvironmentTemplateResponse.proto b/fixture/UpdateEnvironmentTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentTemplateResponse.proto diff --git a/fixture/UpdateEnvironmentTemplateVersion.yaml b/fixture/UpdateEnvironmentTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/UpdateEnvironmentTemplateVersionResponse.proto b/fixture/UpdateEnvironmentTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateEnvironmentTemplateVersionResponse.proto diff --git a/fixture/UpdateService.yaml b/fixture/UpdateService.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateService.yaml @@ -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: + '' diff --git a/fixture/UpdateServiceInstance.yaml b/fixture/UpdateServiceInstance.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceInstance.yaml @@ -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: + '' diff --git a/fixture/UpdateServiceInstanceResponse.proto b/fixture/UpdateServiceInstanceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceInstanceResponse.proto diff --git a/fixture/UpdateServicePipeline.yaml b/fixture/UpdateServicePipeline.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateServicePipeline.yaml @@ -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: + '' diff --git a/fixture/UpdateServicePipelineResponse.proto b/fixture/UpdateServicePipelineResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateServicePipelineResponse.proto diff --git a/fixture/UpdateServiceResponse.proto b/fixture/UpdateServiceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceResponse.proto diff --git a/fixture/UpdateServiceTemplate.yaml b/fixture/UpdateServiceTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceTemplate.yaml @@ -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: + '' diff --git a/fixture/UpdateServiceTemplateResponse.proto b/fixture/UpdateServiceTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceTemplateResponse.proto diff --git a/fixture/UpdateServiceTemplateVersion.yaml b/fixture/UpdateServiceTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceTemplateVersion.yaml @@ -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: + '' diff --git a/fixture/UpdateServiceTemplateVersionResponse.proto b/fixture/UpdateServiceTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateServiceTemplateVersionResponse.proto diff --git a/fixture/UpdateTemplateSyncConfig.yaml b/fixture/UpdateTemplateSyncConfig.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateTemplateSyncConfig.yaml @@ -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: + '' diff --git a/fixture/UpdateTemplateSyncConfigResponse.proto b/fixture/UpdateTemplateSyncConfigResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateTemplateSyncConfigResponse.proto diff --git a/gen/Amazonka/Proton.hs b/gen/Amazonka/Proton.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton.hs @@ -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 +-- +-- and +-- +-- 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 +-- . +-- +-- 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 +-- . +-- +-- __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 +-- . +-- 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. diff --git a/gen/Amazonka/Proton/AcceptEnvironmentAccountConnection.hs b/gen/Amazonka/Proton/AcceptEnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/AcceptEnvironmentAccountConnection.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/CancelComponentDeployment.hs b/gen/Amazonka/Proton/CancelComponentDeployment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CancelComponentDeployment.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/CancelEnvironmentDeployment.hs b/gen/Amazonka/Proton/CancelEnvironmentDeployment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CancelEnvironmentDeployment.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/CancelServiceInstanceDeployment.hs b/gen/Amazonka/Proton/CancelServiceInstanceDeployment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CancelServiceInstanceDeployment.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/CancelServicePipelineDeployment.hs b/gen/Amazonka/Proton/CancelServicePipelineDeployment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CancelServicePipelineDeployment.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/CreateComponent.hs b/gen/Amazonka/Proton/CreateComponent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateComponent.hs @@ -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 +-- +-- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateEnvironment.hs b/gen/Amazonka/Proton/CreateEnvironment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateEnvironment.hs @@ -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 +-- +-- and +-- +-- 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 + -- + -- 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 + -- + -- 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 + -- + -- 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 + -- + -- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateEnvironmentAccountConnection.hs b/gen/Amazonka/Proton/CreateEnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateEnvironmentAccountConnection.hs @@ -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 +-- +-- 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 + -- + -- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateEnvironmentTemplate.hs b/gen/Amazonka/Proton/CreateEnvironmentTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateEnvironmentTemplate.hs @@ -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 +-- +-- 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 +-- +-- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateEnvironmentTemplateVersion.hs b/gen/Amazonka/Proton/CreateEnvironmentTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateEnvironmentTemplateVersion.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateRepository.hs b/gen/Amazonka/Proton/CreateRepository.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateRepository.hs @@ -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 +-- +-- for you. +-- +-- For more information, see +-- , +-- , +-- and +-- +-- 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 + -- + -- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateService.hs b/gen/Amazonka/Proton/CreateService.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateService.hs @@ -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 +-- +-- 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 + -- + -- 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 + -- + -- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateServiceTemplate.hs b/gen/Amazonka/Proton/CreateServiceTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateServiceTemplate.hs @@ -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 +-- +-- 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 + -- + -- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateServiceTemplateVersion.hs b/gen/Amazonka/Proton/CreateServiceTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateServiceTemplateVersion.hs @@ -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 + -- + -- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/CreateTemplateSyncConfig.hs b/gen/Amazonka/Proton/CreateTemplateSyncConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/CreateTemplateSyncConfig.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteComponent.hs b/gen/Amazonka/Proton/DeleteComponent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteComponent.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteEnvironment.hs b/gen/Amazonka/Proton/DeleteEnvironment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteEnvironment.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteEnvironmentAccountConnection.hs b/gen/Amazonka/Proton/DeleteEnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteEnvironmentAccountConnection.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteEnvironmentTemplate.hs b/gen/Amazonka/Proton/DeleteEnvironmentTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteEnvironmentTemplate.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteEnvironmentTemplateVersion.hs b/gen/Amazonka/Proton/DeleteEnvironmentTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteEnvironmentTemplateVersion.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteRepository.hs b/gen/Amazonka/Proton/DeleteRepository.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteRepository.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteService.hs b/gen/Amazonka/Proton/DeleteService.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteService.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteServiceTemplate.hs b/gen/Amazonka/Proton/DeleteServiceTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteServiceTemplate.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteServiceTemplateVersion.hs b/gen/Amazonka/Proton/DeleteServiceTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteServiceTemplateVersion.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/DeleteTemplateSyncConfig.hs b/gen/Amazonka/Proton/DeleteTemplateSyncConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/DeleteTemplateSyncConfig.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetAccountSettings.hs b/gen/Amazonka/Proton/GetAccountSettings.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetAccountSettings.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetComponent.hs b/gen/Amazonka/Proton/GetComponent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetComponent.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetEnvironment.hs b/gen/Amazonka/Proton/GetEnvironment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetEnvironment.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetEnvironmentAccountConnection.hs b/gen/Amazonka/Proton/GetEnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetEnvironmentAccountConnection.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetEnvironmentTemplate.hs b/gen/Amazonka/Proton/GetEnvironmentTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetEnvironmentTemplate.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetEnvironmentTemplateVersion.hs b/gen/Amazonka/Proton/GetEnvironmentTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetEnvironmentTemplateVersion.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetRepository.hs b/gen/Amazonka/Proton/GetRepository.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetRepository.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetRepositorySyncStatus.hs b/gen/Amazonka/Proton/GetRepositorySyncStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetRepositorySyncStatus.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetService.hs b/gen/Amazonka/Proton/GetService.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetService.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetServiceInstance.hs b/gen/Amazonka/Proton/GetServiceInstance.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetServiceInstance.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetServiceTemplate.hs b/gen/Amazonka/Proton/GetServiceTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetServiceTemplate.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetServiceTemplateVersion.hs b/gen/Amazonka/Proton/GetServiceTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetServiceTemplateVersion.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetTemplateSyncConfig.hs b/gen/Amazonka/Proton/GetTemplateSyncConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetTemplateSyncConfig.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/GetTemplateSyncStatus.hs b/gen/Amazonka/Proton/GetTemplateSyncStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/GetTemplateSyncStatus.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/Lens.hs b/gen/Amazonka/Proton/Lens.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Lens.hs @@ -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 diff --git a/gen/Amazonka/Proton/ListComponentOutputs.hs b/gen/Amazonka/Proton/ListComponentOutputs.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListComponentOutputs.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListComponentProvisionedResources.hs b/gen/Amazonka/Proton/ListComponentProvisionedResources.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListComponentProvisionedResources.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListComponents.hs b/gen/Amazonka/Proton/ListComponents.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListComponents.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListEnvironmentAccountConnections.hs b/gen/Amazonka/Proton/ListEnvironmentAccountConnections.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListEnvironmentAccountConnections.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListEnvironmentOutputs.hs b/gen/Amazonka/Proton/ListEnvironmentOutputs.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListEnvironmentOutputs.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListEnvironmentProvisionedResources.hs b/gen/Amazonka/Proton/ListEnvironmentProvisionedResources.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListEnvironmentProvisionedResources.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListEnvironmentTemplateVersions.hs b/gen/Amazonka/Proton/ListEnvironmentTemplateVersions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListEnvironmentTemplateVersions.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListEnvironmentTemplates.hs b/gen/Amazonka/Proton/ListEnvironmentTemplates.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListEnvironmentTemplates.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListEnvironments.hs b/gen/Amazonka/Proton/ListEnvironments.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListEnvironments.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListRepositories.hs b/gen/Amazonka/Proton/ListRepositories.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListRepositories.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListRepositorySyncDefinitions.hs b/gen/Amazonka/Proton/ListRepositorySyncDefinitions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListRepositorySyncDefinitions.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServiceInstanceOutputs.hs b/gen/Amazonka/Proton/ListServiceInstanceOutputs.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServiceInstanceOutputs.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServiceInstanceProvisionedResources.hs b/gen/Amazonka/Proton/ListServiceInstanceProvisionedResources.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServiceInstanceProvisionedResources.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServiceInstances.hs b/gen/Amazonka/Proton/ListServiceInstances.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServiceInstances.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServicePipelineOutputs.hs b/gen/Amazonka/Proton/ListServicePipelineOutputs.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServicePipelineOutputs.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServicePipelineProvisionedResources.hs b/gen/Amazonka/Proton/ListServicePipelineProvisionedResources.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServicePipelineProvisionedResources.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServiceTemplateVersions.hs b/gen/Amazonka/Proton/ListServiceTemplateVersions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServiceTemplateVersions.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServiceTemplates.hs b/gen/Amazonka/Proton/ListServiceTemplates.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServiceTemplates.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListServices.hs b/gen/Amazonka/Proton/ListServices.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListServices.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/ListTagsForResource.hs b/gen/Amazonka/Proton/ListTagsForResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/ListTagsForResource.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/NotifyResourceDeploymentStatusChange.hs b/gen/Amazonka/Proton/NotifyResourceDeploymentStatusChange.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/NotifyResourceDeploymentStatusChange.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/RejectEnvironmentAccountConnection.hs b/gen/Amazonka/Proton/RejectEnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/RejectEnvironmentAccountConnection.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/TagResource.hs b/gen/Amazonka/Proton/TagResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/TagResource.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/Types.hs b/gen/Amazonka/Proton/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types.hs @@ -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 +-- +-- 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" diff --git a/gen/Amazonka/Proton/Types/AccountSettings.hs b/gen/Amazonka/Proton/Types/AccountSettings.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/AccountSettings.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplate.hs b/gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplate.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplateInput.hs b/gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplateInput.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/CompatibleEnvironmentTemplateInput.hs @@ -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 or 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) + ] + ) diff --git a/gen/Amazonka/Proton/Types/Component.hs b/gen/Amazonka/Proton/Types/Component.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Component.hs @@ -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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/Types/ComponentDeploymentUpdateType.hs b/gen/Amazonka/Proton/Types/ComponentDeploymentUpdateType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ComponentDeploymentUpdateType.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/ComponentSummary.hs b/gen/Amazonka/Proton/Types/ComponentSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ComponentSummary.hs @@ -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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/Types/DeploymentStatus.hs b/gen/Amazonka/Proton/Types/DeploymentStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/DeploymentStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/DeploymentUpdateType.hs b/gen/Amazonka/Proton/Types/DeploymentUpdateType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/DeploymentUpdateType.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/Environment.hs b/gen/Amazonka/Proton/Types/Environment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Environment.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentAccountConnection.hs b/gen/Amazonka/Proton/Types/EnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentAccountConnection.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionRequesterAccountType.hs b/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionRequesterAccountType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionRequesterAccountType.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionStatus.hs b/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionSummary.hs b/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentAccountConnectionSummary.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentSummary.hs b/gen/Amazonka/Proton/Types/EnvironmentSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentSummary.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentTemplate.hs b/gen/Amazonka/Proton/Types/EnvironmentTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentTemplate.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentTemplateFilter.hs b/gen/Amazonka/Proton/Types/EnvironmentTemplateFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentTemplateFilter.hs @@ -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 or 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) + ] + ) diff --git a/gen/Amazonka/Proton/Types/EnvironmentTemplateSummary.hs b/gen/Amazonka/Proton/Types/EnvironmentTemplateSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentTemplateSummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentTemplateVersion.hs b/gen/Amazonka/Proton/Types/EnvironmentTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentTemplateVersion.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/EnvironmentTemplateVersionSummary.hs b/gen/Amazonka/Proton/Types/EnvironmentTemplateVersionSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/EnvironmentTemplateVersionSummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ListServiceInstancesFilter.hs b/gen/Amazonka/Proton/Types/ListServiceInstancesFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ListServiceInstancesFilter.hs @@ -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 + -- 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 or 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 +-- 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 +-- 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 + ] + ) diff --git a/gen/Amazonka/Proton/Types/ListServiceInstancesFilterBy.hs b/gen/Amazonka/Proton/Types/ListServiceInstancesFilterBy.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ListServiceInstancesFilterBy.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/ListServiceInstancesSortBy.hs b/gen/Amazonka/Proton/Types/ListServiceInstancesSortBy.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ListServiceInstancesSortBy.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/Output.hs b/gen/Amazonka/Proton/Types/Output.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Output.hs @@ -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 or 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 + ] + ) diff --git a/gen/Amazonka/Proton/Types/ProvisionedResource.hs b/gen/Amazonka/Proton/Types/ProvisionedResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ProvisionedResource.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/ProvisionedResourceEngine.hs b/gen/Amazonka/Proton/Types/ProvisionedResourceEngine.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ProvisionedResourceEngine.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/Provisioning.hs b/gen/Amazonka/Proton/Types/Provisioning.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Provisioning.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/Repository.hs b/gen/Amazonka/Proton/Types/Repository.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Repository.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/RepositoryBranch.hs b/gen/Amazonka/Proton/Types/RepositoryBranch.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositoryBranch.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/RepositoryBranchInput.hs b/gen/Amazonka/Proton/Types/RepositoryBranchInput.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositoryBranchInput.hs @@ -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 or 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) + ] + ) diff --git a/gen/Amazonka/Proton/Types/RepositoryProvider.hs b/gen/Amazonka/Proton/Types/RepositoryProvider.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositoryProvider.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/RepositorySummary.hs b/gen/Amazonka/Proton/Types/RepositorySummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositorySummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/RepositorySyncAttempt.hs b/gen/Amazonka/Proton/Types/RepositorySyncAttempt.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositorySyncAttempt.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/RepositorySyncDefinition.hs b/gen/Amazonka/Proton/Types/RepositorySyncDefinition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositorySyncDefinition.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/RepositorySyncEvent.hs b/gen/Amazonka/Proton/Types/RepositorySyncEvent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositorySyncEvent.hs @@ -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 or 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' diff --git a/gen/Amazonka/Proton/Types/RepositorySyncStatus.hs b/gen/Amazonka/Proton/Types/RepositorySyncStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/RepositorySyncStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/ResourceDeploymentStatus.hs b/gen/Amazonka/Proton/Types/ResourceDeploymentStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ResourceDeploymentStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/ResourceSyncAttempt.hs b/gen/Amazonka/Proton/Types/ResourceSyncAttempt.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ResourceSyncAttempt.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ResourceSyncEvent.hs b/gen/Amazonka/Proton/Types/ResourceSyncEvent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ResourceSyncEvent.hs @@ -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 or 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' diff --git a/gen/Amazonka/Proton/Types/ResourceSyncStatus.hs b/gen/Amazonka/Proton/Types/ResourceSyncStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ResourceSyncStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/Revision.hs b/gen/Amazonka/Proton/Types/Revision.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Revision.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/S3ObjectSource.hs b/gen/Amazonka/Proton/Types/S3ObjectSource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/S3ObjectSource.hs @@ -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 or 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) + ] + ) diff --git a/gen/Amazonka/Proton/Types/Service.hs b/gen/Amazonka/Proton/Types/Service.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Service.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/ServiceInstance.hs b/gen/Amazonka/Proton/Types/ServiceInstance.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceInstance.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ServiceInstanceSummary.hs b/gen/Amazonka/Proton/Types/ServiceInstanceSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceInstanceSummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ServicePipeline.hs b/gen/Amazonka/Proton/Types/ServicePipeline.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServicePipeline.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ServiceStatus.hs b/gen/Amazonka/Proton/Types/ServiceStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/ServiceSummary.hs b/gen/Amazonka/Proton/Types/ServiceSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceSummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ServiceTemplate.hs b/gen/Amazonka/Proton/Types/ServiceTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceTemplate.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ServiceTemplateSummary.hs b/gen/Amazonka/Proton/Types/ServiceTemplateSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceTemplateSummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/ServiceTemplateSupportedComponentSourceType.hs b/gen/Amazonka/Proton/Types/ServiceTemplateSupportedComponentSourceType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceTemplateSupportedComponentSourceType.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/ServiceTemplateVersion.hs b/gen/Amazonka/Proton/Types/ServiceTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceTemplateVersion.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/Proton/Types/ServiceTemplateVersionSummary.hs b/gen/Amazonka/Proton/Types/ServiceTemplateVersionSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/ServiceTemplateVersionSummary.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/SortOrder.hs b/gen/Amazonka/Proton/Types/SortOrder.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/SortOrder.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/SyncType.hs b/gen/Amazonka/Proton/Types/SyncType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/SyncType.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/Tag.hs b/gen/Amazonka/Proton/Types/Tag.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/Tag.hs @@ -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 or 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) + ] + ) diff --git a/gen/Amazonka/Proton/Types/TemplateSyncConfig.hs b/gen/Amazonka/Proton/Types/TemplateSyncConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/TemplateSyncConfig.hs @@ -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 or 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 diff --git a/gen/Amazonka/Proton/Types/TemplateType.hs b/gen/Amazonka/Proton/Types/TemplateType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/TemplateType.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/Types/TemplateVersionSourceInput.hs b/gen/Amazonka/Proton/Types/TemplateVersionSourceInput.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/TemplateVersionSourceInput.hs @@ -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 or 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]) diff --git a/gen/Amazonka/Proton/Types/TemplateVersionStatus.hs b/gen/Amazonka/Proton/Types/TemplateVersionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Types/TemplateVersionStatus.hs @@ -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' + #-} diff --git a/gen/Amazonka/Proton/UntagResource.hs b/gen/Amazonka/Proton/UntagResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UntagResource.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateAccountSettings.hs b/gen/Amazonka/Proton/UpdateAccountSettings.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateAccountSettings.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateComponent.hs b/gen/Amazonka/Proton/UpdateComponent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateComponent.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateEnvironment.hs b/gen/Amazonka/Proton/UpdateEnvironment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateEnvironment.hs @@ -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 +-- +-- and +-- +-- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateEnvironmentAccountConnection.hs b/gen/Amazonka/Proton/UpdateEnvironmentAccountConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateEnvironmentAccountConnection.hs @@ -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 +-- +-- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateEnvironmentTemplate.hs b/gen/Amazonka/Proton/UpdateEnvironmentTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateEnvironmentTemplate.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateEnvironmentTemplateVersion.hs b/gen/Amazonka/Proton/UpdateEnvironmentTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateEnvironmentTemplateVersion.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateService.hs b/gen/Amazonka/Proton/UpdateService.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateService.hs @@ -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 +-- +-- 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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateServiceInstance.hs b/gen/Amazonka/Proton/UpdateServiceInstance.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateServiceInstance.hs @@ -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 +-- +-- 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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateServicePipeline.hs b/gen/Amazonka/Proton/UpdateServicePipeline.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateServicePipeline.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateServiceTemplate.hs b/gen/Amazonka/Proton/UpdateServiceTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateServiceTemplate.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateServiceTemplateVersion.hs b/gen/Amazonka/Proton/UpdateServiceTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateServiceTemplateVersion.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/Proton/UpdateTemplateSyncConfig.hs b/gen/Amazonka/Proton/UpdateTemplateSyncConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/UpdateTemplateSyncConfig.hs @@ -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 or 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 or 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 diff --git a/gen/Amazonka/Proton/Waiters.hs b/gen/Amazonka/Proton/Waiters.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/Proton/Waiters.hs @@ -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 + ) + ] + } diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 --- /dev/null +++ b/test/Main.hs @@ -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 + ] diff --git a/test/Test/Amazonka/Gen/Proton.hs b/test/Test/Amazonka/Gen/Proton.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Gen/Proton.hs @@ -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) diff --git a/test/Test/Amazonka/Proton.hs b/test/Test/Amazonka/Proton.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Proton.hs @@ -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 = [] diff --git a/test/Test/Amazonka/Proton/Internal.hs b/test/Test/Amazonka/Proton/Internal.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Proton/Internal.hs @@ -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