packages feed

amazonka-schemas (empty) → 2.0

raw patch · 114 files changed

+10127/−0 lines, 114 filesdep +amazonka-coredep +amazonka-schemasdep +amazonka-test

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

Files

+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,44 @@+# Amazon Schemas SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2019-12-02@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-schemas)+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.Schemas](http://hackage.haskell.org/package/amazonka-schemas/docs/Amazonka-Schemas.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-schemas` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).++Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0.+Source files subject to this contain an additional licensing clause in their header.
+ amazonka-schemas.cabal view
@@ -0,0 +1,123 @@+cabal-version:      2.2+name:               amazonka-schemas+version:            2.0+synopsis:           Amazon Schemas SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep++description:+  Derived from API version @2019-12-02@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.Schemas.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.Schemas" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.++source-repository head+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-schemas++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.Schemas+    Amazonka.Schemas.CreateDiscoverer+    Amazonka.Schemas.CreateRegistry+    Amazonka.Schemas.CreateSchema+    Amazonka.Schemas.DeleteDiscoverer+    Amazonka.Schemas.DeleteRegistry+    Amazonka.Schemas.DeleteResourcePolicy+    Amazonka.Schemas.DeleteSchema+    Amazonka.Schemas.DeleteSchemaVersion+    Amazonka.Schemas.DescribeCodeBinding+    Amazonka.Schemas.DescribeDiscoverer+    Amazonka.Schemas.DescribeRegistry+    Amazonka.Schemas.DescribeSchema+    Amazonka.Schemas.ExportSchema+    Amazonka.Schemas.GetCodeBindingSource+    Amazonka.Schemas.GetDiscoveredSchema+    Amazonka.Schemas.GetResourcePolicy+    Amazonka.Schemas.Lens+    Amazonka.Schemas.ListDiscoverers+    Amazonka.Schemas.ListRegistries+    Amazonka.Schemas.ListSchemas+    Amazonka.Schemas.ListSchemaVersions+    Amazonka.Schemas.ListTagsForResource+    Amazonka.Schemas.PutCodeBinding+    Amazonka.Schemas.PutResourcePolicy+    Amazonka.Schemas.SearchSchemas+    Amazonka.Schemas.StartDiscoverer+    Amazonka.Schemas.StopDiscoverer+    Amazonka.Schemas.TagResource+    Amazonka.Schemas.Types+    Amazonka.Schemas.Types.CodeGenerationStatus+    Amazonka.Schemas.Types.DiscovererState+    Amazonka.Schemas.Types.DiscovererSummary+    Amazonka.Schemas.Types.RegistrySummary+    Amazonka.Schemas.Types.SchemaSummary+    Amazonka.Schemas.Types.SchemaVersionSummary+    Amazonka.Schemas.Types.SearchSchemaSummary+    Amazonka.Schemas.Types.SearchSchemaVersionSummary+    Amazonka.Schemas.Types.Type+    Amazonka.Schemas.UntagResource+    Amazonka.Schemas.UpdateDiscoverer+    Amazonka.Schemas.UpdateRegistry+    Amazonka.Schemas.UpdateSchema+    Amazonka.Schemas.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-schemas-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.Schemas+    Test.Amazonka.Schemas+    Test.Amazonka.Schemas.Internal++  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-schemas+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/CreateDiscoverer.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateDiscovererResponse.proto view
+ fixture/CreateRegistry.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateRegistryResponse.proto view
+ fixture/CreateSchema.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateSchemaResponse.proto view
+ fixture/DeleteDiscoverer.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteDiscovererResponse.proto view
+ fixture/DeleteRegistry.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteRegistryResponse.proto view
+ fixture/DeleteResourcePolicy.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteResourcePolicyResponse.proto view
+ fixture/DeleteSchema.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteSchemaResponse.proto view
+ fixture/DeleteSchemaVersion.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteSchemaVersionResponse.proto view
+ fixture/DescribeCodeBinding.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeCodeBindingResponse.proto view
+ fixture/DescribeDiscoverer.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeDiscovererResponse.proto view
+ fixture/DescribeRegistry.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeRegistryResponse.proto view
+ fixture/DescribeSchema.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeSchemaResponse.proto view
+ fixture/ExportSchema.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ExportSchemaResponse.proto view
+ fixture/GetCodeBindingSource.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetCodeBindingSourceResponse.proto view
+ fixture/GetDiscoveredSchema.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetDiscoveredSchemaResponse.proto view
+ fixture/GetResourcePolicy.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetResourcePolicyResponse.proto view
+ fixture/ListDiscoverers.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListDiscoverersResponse.proto view
+ fixture/ListRegistries.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListRegistriesResponse.proto view
+ fixture/ListSchemaVersions.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListSchemaVersionsResponse.proto view
+ fixture/ListSchemas.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListSchemasResponse.proto view
+ fixture/ListTagsForResource.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListTagsForResourceResponse.proto view
+ fixture/PutCodeBinding.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/PutCodeBindingResponse.proto view
+ fixture/PutResourcePolicy.yaml view
@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/PutResourcePolicyResponse.proto view
+ fixture/SearchSchemas.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/SearchSchemasResponse.proto view
+ fixture/StartDiscoverer.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StartDiscovererResponse.proto view
+ fixture/StopDiscoverer.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StopDiscovererResponse.proto view
+ fixture/TagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/TagResourceResponse.proto view
+ fixture/UntagResource.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UntagResourceResponse.proto view
+ fixture/UpdateDiscoverer.yaml view
@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateDiscovererResponse.proto view
+ fixture/UpdateRegistry.yaml view
@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateRegistryResponse.proto view
+ fixture/UpdateSchema.yaml view
@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/schemas/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  schemas.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateSchemaResponse.proto view
+ gen/Amazonka/Schemas.hs view
@@ -0,0 +1,344 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Schemas+-- 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 @2019-12-02@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon EventBridge Schema Registry+module Amazonka.Schemas+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BadRequestException+    _BadRequestException,++    -- ** ConflictException+    _ConflictException,++    -- ** ForbiddenException+    _ForbiddenException,++    -- ** GoneException+    _GoneException,++    -- ** InternalServerErrorException+    _InternalServerErrorException,++    -- ** NotFoundException+    _NotFoundException,++    -- ** PreconditionFailedException+    _PreconditionFailedException,++    -- ** ServiceUnavailableException+    _ServiceUnavailableException,++    -- ** TooManyRequestsException+    _TooManyRequestsException,++    -- ** UnauthorizedException+    _UnauthorizedException,++    -- * Waiters+    -- $waiters++    -- ** CodeBindingExists+    newCodeBindingExists,++    -- * Operations+    -- $operations++    -- ** CreateDiscoverer+    CreateDiscoverer (CreateDiscoverer'),+    newCreateDiscoverer,+    CreateDiscovererResponse (CreateDiscovererResponse'),+    newCreateDiscovererResponse,++    -- ** CreateRegistry+    CreateRegistry (CreateRegistry'),+    newCreateRegistry,+    CreateRegistryResponse (CreateRegistryResponse'),+    newCreateRegistryResponse,++    -- ** CreateSchema+    CreateSchema (CreateSchema'),+    newCreateSchema,+    CreateSchemaResponse (CreateSchemaResponse'),+    newCreateSchemaResponse,++    -- ** DeleteDiscoverer+    DeleteDiscoverer (DeleteDiscoverer'),+    newDeleteDiscoverer,+    DeleteDiscovererResponse (DeleteDiscovererResponse'),+    newDeleteDiscovererResponse,++    -- ** DeleteRegistry+    DeleteRegistry (DeleteRegistry'),+    newDeleteRegistry,+    DeleteRegistryResponse (DeleteRegistryResponse'),+    newDeleteRegistryResponse,++    -- ** DeleteResourcePolicy+    DeleteResourcePolicy (DeleteResourcePolicy'),+    newDeleteResourcePolicy,+    DeleteResourcePolicyResponse (DeleteResourcePolicyResponse'),+    newDeleteResourcePolicyResponse,++    -- ** DeleteSchema+    DeleteSchema (DeleteSchema'),+    newDeleteSchema,+    DeleteSchemaResponse (DeleteSchemaResponse'),+    newDeleteSchemaResponse,++    -- ** DeleteSchemaVersion+    DeleteSchemaVersion (DeleteSchemaVersion'),+    newDeleteSchemaVersion,+    DeleteSchemaVersionResponse (DeleteSchemaVersionResponse'),+    newDeleteSchemaVersionResponse,++    -- ** DescribeCodeBinding+    DescribeCodeBinding (DescribeCodeBinding'),+    newDescribeCodeBinding,+    DescribeCodeBindingResponse (DescribeCodeBindingResponse'),+    newDescribeCodeBindingResponse,++    -- ** DescribeDiscoverer+    DescribeDiscoverer (DescribeDiscoverer'),+    newDescribeDiscoverer,+    DescribeDiscovererResponse (DescribeDiscovererResponse'),+    newDescribeDiscovererResponse,++    -- ** DescribeRegistry+    DescribeRegistry (DescribeRegistry'),+    newDescribeRegistry,+    DescribeRegistryResponse (DescribeRegistryResponse'),+    newDescribeRegistryResponse,++    -- ** DescribeSchema+    DescribeSchema (DescribeSchema'),+    newDescribeSchema,+    DescribeSchemaResponse (DescribeSchemaResponse'),+    newDescribeSchemaResponse,++    -- ** ExportSchema+    ExportSchema (ExportSchema'),+    newExportSchema,+    ExportSchemaResponse (ExportSchemaResponse'),+    newExportSchemaResponse,++    -- ** GetCodeBindingSource+    GetCodeBindingSource (GetCodeBindingSource'),+    newGetCodeBindingSource,+    GetCodeBindingSourceResponse (GetCodeBindingSourceResponse'),+    newGetCodeBindingSourceResponse,++    -- ** GetDiscoveredSchema+    GetDiscoveredSchema (GetDiscoveredSchema'),+    newGetDiscoveredSchema,+    GetDiscoveredSchemaResponse (GetDiscoveredSchemaResponse'),+    newGetDiscoveredSchemaResponse,++    -- ** GetResourcePolicy+    GetResourcePolicy (GetResourcePolicy'),+    newGetResourcePolicy,+    GetResourcePolicyResponse (GetResourcePolicyResponse'),+    newGetResourcePolicyResponse,++    -- ** ListDiscoverers (Paginated)+    ListDiscoverers (ListDiscoverers'),+    newListDiscoverers,+    ListDiscoverersResponse (ListDiscoverersResponse'),+    newListDiscoverersResponse,++    -- ** ListRegistries (Paginated)+    ListRegistries (ListRegistries'),+    newListRegistries,+    ListRegistriesResponse (ListRegistriesResponse'),+    newListRegistriesResponse,++    -- ** ListSchemaVersions (Paginated)+    ListSchemaVersions (ListSchemaVersions'),+    newListSchemaVersions,+    ListSchemaVersionsResponse (ListSchemaVersionsResponse'),+    newListSchemaVersionsResponse,++    -- ** ListSchemas (Paginated)+    ListSchemas (ListSchemas'),+    newListSchemas,+    ListSchemasResponse (ListSchemasResponse'),+    newListSchemasResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** PutCodeBinding+    PutCodeBinding (PutCodeBinding'),+    newPutCodeBinding,+    PutCodeBindingResponse (PutCodeBindingResponse'),+    newPutCodeBindingResponse,++    -- ** PutResourcePolicy+    PutResourcePolicy (PutResourcePolicy'),+    newPutResourcePolicy,+    PutResourcePolicyResponse (PutResourcePolicyResponse'),+    newPutResourcePolicyResponse,++    -- ** SearchSchemas (Paginated)+    SearchSchemas (SearchSchemas'),+    newSearchSchemas,+    SearchSchemasResponse (SearchSchemasResponse'),+    newSearchSchemasResponse,++    -- ** StartDiscoverer+    StartDiscoverer (StartDiscoverer'),+    newStartDiscoverer,+    StartDiscovererResponse (StartDiscovererResponse'),+    newStartDiscovererResponse,++    -- ** StopDiscoverer+    StopDiscoverer (StopDiscoverer'),+    newStopDiscoverer,+    StopDiscovererResponse (StopDiscovererResponse'),+    newStopDiscovererResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateDiscoverer+    UpdateDiscoverer (UpdateDiscoverer'),+    newUpdateDiscoverer,+    UpdateDiscovererResponse (UpdateDiscovererResponse'),+    newUpdateDiscovererResponse,++    -- ** UpdateRegistry+    UpdateRegistry (UpdateRegistry'),+    newUpdateRegistry,+    UpdateRegistryResponse (UpdateRegistryResponse'),+    newUpdateRegistryResponse,++    -- ** UpdateSchema+    UpdateSchema (UpdateSchema'),+    newUpdateSchema,+    UpdateSchemaResponse (UpdateSchemaResponse'),+    newUpdateSchemaResponse,++    -- * Types++    -- ** CodeGenerationStatus+    CodeGenerationStatus (..),++    -- ** DiscovererState+    DiscovererState (..),++    -- ** Type+    Type (..),++    -- ** DiscovererSummary+    DiscovererSummary (DiscovererSummary'),+    newDiscovererSummary,++    -- ** RegistrySummary+    RegistrySummary (RegistrySummary'),+    newRegistrySummary,++    -- ** SchemaSummary+    SchemaSummary (SchemaSummary'),+    newSchemaSummary,++    -- ** SchemaVersionSummary+    SchemaVersionSummary (SchemaVersionSummary'),+    newSchemaVersionSummary,++    -- ** SearchSchemaSummary+    SearchSchemaSummary (SearchSchemaSummary'),+    newSearchSchemaSummary,++    -- ** SearchSchemaVersionSummary+    SearchSchemaVersionSummary (SearchSchemaVersionSummary'),+    newSearchSchemaVersionSummary,+  )+where++import Amazonka.Schemas.CreateDiscoverer+import Amazonka.Schemas.CreateRegistry+import Amazonka.Schemas.CreateSchema+import Amazonka.Schemas.DeleteDiscoverer+import Amazonka.Schemas.DeleteRegistry+import Amazonka.Schemas.DeleteResourcePolicy+import Amazonka.Schemas.DeleteSchema+import Amazonka.Schemas.DeleteSchemaVersion+import Amazonka.Schemas.DescribeCodeBinding+import Amazonka.Schemas.DescribeDiscoverer+import Amazonka.Schemas.DescribeRegistry+import Amazonka.Schemas.DescribeSchema+import Amazonka.Schemas.ExportSchema+import Amazonka.Schemas.GetCodeBindingSource+import Amazonka.Schemas.GetDiscoveredSchema+import Amazonka.Schemas.GetResourcePolicy+import Amazonka.Schemas.Lens+import Amazonka.Schemas.ListDiscoverers+import Amazonka.Schemas.ListRegistries+import Amazonka.Schemas.ListSchemaVersions+import Amazonka.Schemas.ListSchemas+import Amazonka.Schemas.ListTagsForResource+import Amazonka.Schemas.PutCodeBinding+import Amazonka.Schemas.PutResourcePolicy+import Amazonka.Schemas.SearchSchemas+import Amazonka.Schemas.StartDiscoverer+import Amazonka.Schemas.StopDiscoverer+import Amazonka.Schemas.TagResource+import Amazonka.Schemas.Types+import Amazonka.Schemas.UntagResource+import Amazonka.Schemas.UpdateDiscoverer+import Amazonka.Schemas.UpdateRegistry+import Amazonka.Schemas.UpdateSchema+import Amazonka.Schemas.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'Schemas'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.
+ gen/Amazonka/Schemas/CreateDiscoverer.hs view
@@ -0,0 +1,288 @@+{-# 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.Schemas.CreateDiscoverer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a discoverer.+module Amazonka.Schemas.CreateDiscoverer+  ( -- * Creating a Request+    CreateDiscoverer (..),+    newCreateDiscoverer,++    -- * Request Lenses+    createDiscoverer_crossAccount,+    createDiscoverer_description,+    createDiscoverer_tags,+    createDiscoverer_sourceArn,++    -- * Destructuring the Response+    CreateDiscovererResponse (..),+    newCreateDiscovererResponse,++    -- * Response Lenses+    createDiscovererResponse_crossAccount,+    createDiscovererResponse_description,+    createDiscovererResponse_discovererArn,+    createDiscovererResponse_discovererId,+    createDiscovererResponse_sourceArn,+    createDiscovererResponse_state,+    createDiscovererResponse_tags,+    createDiscovererResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- |+--+-- /See:/ 'newCreateDiscoverer' smart constructor.+data CreateDiscoverer = CreateDiscoverer'+  { -- | Support discovery of schemas in events sent to the bus from another+    -- account. (default: true).+    crossAccount :: Prelude.Maybe Prelude.Bool,+    -- | A description for the discoverer.+    description :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The ARN of the event bus.+    sourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDiscoverer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'crossAccount', 'createDiscoverer_crossAccount' - Support discovery of schemas in events sent to the bus from another+-- account. (default: true).+--+-- 'description', 'createDiscoverer_description' - A description for the discoverer.+--+-- 'tags', 'createDiscoverer_tags' - Tags associated with the resource.+--+-- 'sourceArn', 'createDiscoverer_sourceArn' - The ARN of the event bus.+newCreateDiscoverer ::+  -- | 'sourceArn'+  Prelude.Text ->+  CreateDiscoverer+newCreateDiscoverer pSourceArn_ =+  CreateDiscoverer'+    { crossAccount = Prelude.Nothing,+      description = Prelude.Nothing,+      tags = Prelude.Nothing,+      sourceArn = pSourceArn_+    }++-- | Support discovery of schemas in events sent to the bus from another+-- account. (default: true).+createDiscoverer_crossAccount :: Lens.Lens' CreateDiscoverer (Prelude.Maybe Prelude.Bool)+createDiscoverer_crossAccount = Lens.lens (\CreateDiscoverer' {crossAccount} -> crossAccount) (\s@CreateDiscoverer' {} a -> s {crossAccount = a} :: CreateDiscoverer)++-- | A description for the discoverer.+createDiscoverer_description :: Lens.Lens' CreateDiscoverer (Prelude.Maybe Prelude.Text)+createDiscoverer_description = Lens.lens (\CreateDiscoverer' {description} -> description) (\s@CreateDiscoverer' {} a -> s {description = a} :: CreateDiscoverer)++-- | Tags associated with the resource.+createDiscoverer_tags :: Lens.Lens' CreateDiscoverer (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createDiscoverer_tags = Lens.lens (\CreateDiscoverer' {tags} -> tags) (\s@CreateDiscoverer' {} a -> s {tags = a} :: CreateDiscoverer) Prelude.. Lens.mapping Lens.coerced++-- | The ARN of the event bus.+createDiscoverer_sourceArn :: Lens.Lens' CreateDiscoverer Prelude.Text+createDiscoverer_sourceArn = Lens.lens (\CreateDiscoverer' {sourceArn} -> sourceArn) (\s@CreateDiscoverer' {} a -> s {sourceArn = a} :: CreateDiscoverer)++instance Core.AWSRequest CreateDiscoverer where+  type+    AWSResponse CreateDiscoverer =+      CreateDiscovererResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateDiscovererResponse'+            Prelude.<$> (x Data..?> "CrossAccount")+            Prelude.<*> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "DiscovererArn")+            Prelude.<*> (x Data..?> "DiscovererId")+            Prelude.<*> (x Data..?> "SourceArn")+            Prelude.<*> (x Data..?> "State")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateDiscoverer where+  hashWithSalt _salt CreateDiscoverer' {..} =+    _salt+      `Prelude.hashWithSalt` crossAccount+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` sourceArn++instance Prelude.NFData CreateDiscoverer where+  rnf CreateDiscoverer' {..} =+    Prelude.rnf crossAccount+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf sourceArn++instance Data.ToHeaders CreateDiscoverer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateDiscoverer where+  toJSON CreateDiscoverer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CrossAccount" Data..=) Prelude.<$> crossAccount,+            ("Description" Data..=) Prelude.<$> description,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("SourceArn" Data..= sourceArn)+          ]+      )++instance Data.ToPath CreateDiscoverer where+  toPath = Prelude.const "/v1/discoverers"++instance Data.ToQuery CreateDiscoverer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateDiscovererResponse' smart constructor.+data CreateDiscovererResponse = CreateDiscovererResponse'+  { -- | The Status if the discoverer will discover schemas from events sent from+    -- another account.+    crossAccount :: Prelude.Maybe Prelude.Bool,+    -- | The description of the discoverer.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the discoverer.+    discovererArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the discoverer.+    discovererId :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the event bus.+    sourceArn :: Prelude.Maybe Prelude.Text,+    -- | The state of the discoverer.+    state :: Prelude.Maybe DiscovererState,+    -- | Tags associated with the resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDiscovererResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'crossAccount', 'createDiscovererResponse_crossAccount' - The Status if the discoverer will discover schemas from events sent from+-- another account.+--+-- 'description', 'createDiscovererResponse_description' - The description of the discoverer.+--+-- 'discovererArn', 'createDiscovererResponse_discovererArn' - The ARN of the discoverer.+--+-- 'discovererId', 'createDiscovererResponse_discovererId' - The ID of the discoverer.+--+-- 'sourceArn', 'createDiscovererResponse_sourceArn' - The ARN of the event bus.+--+-- 'state', 'createDiscovererResponse_state' - The state of the discoverer.+--+-- 'tags', 'createDiscovererResponse_tags' - Tags associated with the resource.+--+-- 'httpStatus', 'createDiscovererResponse_httpStatus' - The response's http status code.+newCreateDiscovererResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateDiscovererResponse+newCreateDiscovererResponse pHttpStatus_ =+  CreateDiscovererResponse'+    { crossAccount =+        Prelude.Nothing,+      description = Prelude.Nothing,+      discovererArn = Prelude.Nothing,+      discovererId = Prelude.Nothing,+      sourceArn = Prelude.Nothing,+      state = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Status if the discoverer will discover schemas from events sent from+-- another account.+createDiscovererResponse_crossAccount :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Bool)+createDiscovererResponse_crossAccount = Lens.lens (\CreateDiscovererResponse' {crossAccount} -> crossAccount) (\s@CreateDiscovererResponse' {} a -> s {crossAccount = a} :: CreateDiscovererResponse)++-- | The description of the discoverer.+createDiscovererResponse_description :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)+createDiscovererResponse_description = Lens.lens (\CreateDiscovererResponse' {description} -> description) (\s@CreateDiscovererResponse' {} a -> s {description = a} :: CreateDiscovererResponse)++-- | The ARN of the discoverer.+createDiscovererResponse_discovererArn :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)+createDiscovererResponse_discovererArn = Lens.lens (\CreateDiscovererResponse' {discovererArn} -> discovererArn) (\s@CreateDiscovererResponse' {} a -> s {discovererArn = a} :: CreateDiscovererResponse)++-- | The ID of the discoverer.+createDiscovererResponse_discovererId :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)+createDiscovererResponse_discovererId = Lens.lens (\CreateDiscovererResponse' {discovererId} -> discovererId) (\s@CreateDiscovererResponse' {} a -> s {discovererId = a} :: CreateDiscovererResponse)++-- | The ARN of the event bus.+createDiscovererResponse_sourceArn :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe Prelude.Text)+createDiscovererResponse_sourceArn = Lens.lens (\CreateDiscovererResponse' {sourceArn} -> sourceArn) (\s@CreateDiscovererResponse' {} a -> s {sourceArn = a} :: CreateDiscovererResponse)++-- | The state of the discoverer.+createDiscovererResponse_state :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe DiscovererState)+createDiscovererResponse_state = Lens.lens (\CreateDiscovererResponse' {state} -> state) (\s@CreateDiscovererResponse' {} a -> s {state = a} :: CreateDiscovererResponse)++-- | Tags associated with the resource.+createDiscovererResponse_tags :: Lens.Lens' CreateDiscovererResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createDiscovererResponse_tags = Lens.lens (\CreateDiscovererResponse' {tags} -> tags) (\s@CreateDiscovererResponse' {} a -> s {tags = a} :: CreateDiscovererResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+createDiscovererResponse_httpStatus :: Lens.Lens' CreateDiscovererResponse Prelude.Int+createDiscovererResponse_httpStatus = Lens.lens (\CreateDiscovererResponse' {httpStatus} -> httpStatus) (\s@CreateDiscovererResponse' {} a -> s {httpStatus = a} :: CreateDiscovererResponse)++instance Prelude.NFData CreateDiscovererResponse where+  rnf CreateDiscovererResponse' {..} =+    Prelude.rnf crossAccount+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf discovererArn+      `Prelude.seq` Prelude.rnf discovererId+      `Prelude.seq` Prelude.rnf sourceArn+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/CreateRegistry.hs view
@@ -0,0 +1,232 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.CreateRegistry+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a registry.+module Amazonka.Schemas.CreateRegistry+  ( -- * Creating a Request+    CreateRegistry (..),+    newCreateRegistry,++    -- * Request Lenses+    createRegistry_description,+    createRegistry_tags,+    createRegistry_registryName,++    -- * Destructuring the Response+    CreateRegistryResponse (..),+    newCreateRegistryResponse,++    -- * Response Lenses+    createRegistryResponse_description,+    createRegistryResponse_registryArn,+    createRegistryResponse_registryName,+    createRegistryResponse_tags,+    createRegistryResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newCreateRegistry' smart constructor.+data CreateRegistry = CreateRegistry'+  { -- | A description of the registry to be created.+    description :: Prelude.Maybe Prelude.Text,+    -- | Tags to associate with the registry.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The name of the registry.+    registryName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRegistry' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createRegistry_description' - A description of the registry to be created.+--+-- 'tags', 'createRegistry_tags' - Tags to associate with the registry.+--+-- 'registryName', 'createRegistry_registryName' - The name of the registry.+newCreateRegistry ::+  -- | 'registryName'+  Prelude.Text ->+  CreateRegistry+newCreateRegistry pRegistryName_ =+  CreateRegistry'+    { description = Prelude.Nothing,+      tags = Prelude.Nothing,+      registryName = pRegistryName_+    }++-- | A description of the registry to be created.+createRegistry_description :: Lens.Lens' CreateRegistry (Prelude.Maybe Prelude.Text)+createRegistry_description = Lens.lens (\CreateRegistry' {description} -> description) (\s@CreateRegistry' {} a -> s {description = a} :: CreateRegistry)++-- | Tags to associate with the registry.+createRegistry_tags :: Lens.Lens' CreateRegistry (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createRegistry_tags = Lens.lens (\CreateRegistry' {tags} -> tags) (\s@CreateRegistry' {} a -> s {tags = a} :: CreateRegistry) Prelude.. Lens.mapping Lens.coerced++-- | The name of the registry.+createRegistry_registryName :: Lens.Lens' CreateRegistry Prelude.Text+createRegistry_registryName = Lens.lens (\CreateRegistry' {registryName} -> registryName) (\s@CreateRegistry' {} a -> s {registryName = a} :: CreateRegistry)++instance Core.AWSRequest CreateRegistry where+  type+    AWSResponse CreateRegistry =+      CreateRegistryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateRegistryResponse'+            Prelude.<$> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "RegistryArn")+            Prelude.<*> (x Data..?> "RegistryName")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateRegistry where+  hashWithSalt _salt CreateRegistry' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` registryName++instance Prelude.NFData CreateRegistry where+  rnf CreateRegistry' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf registryName++instance Data.ToHeaders CreateRegistry where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateRegistry where+  toJSON CreateRegistry' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("tags" Data..=) Prelude.<$> tags+          ]+      )++instance Data.ToPath CreateRegistry where+  toPath CreateRegistry' {..} =+    Prelude.mconcat+      ["/v1/registries/name/", Data.toBS registryName]++instance Data.ToQuery CreateRegistry where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateRegistryResponse' smart constructor.+data CreateRegistryResponse = CreateRegistryResponse'+  { -- | The description of the registry.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the registry.+    registryArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the registry.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateRegistryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createRegistryResponse_description' - The description of the registry.+--+-- 'registryArn', 'createRegistryResponse_registryArn' - The ARN of the registry.+--+-- 'registryName', 'createRegistryResponse_registryName' - The name of the registry.+--+-- 'tags', 'createRegistryResponse_tags' - Tags associated with the registry.+--+-- 'httpStatus', 'createRegistryResponse_httpStatus' - The response's http status code.+newCreateRegistryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateRegistryResponse+newCreateRegistryResponse pHttpStatus_ =+  CreateRegistryResponse'+    { description =+        Prelude.Nothing,+      registryArn = Prelude.Nothing,+      registryName = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the registry.+createRegistryResponse_description :: Lens.Lens' CreateRegistryResponse (Prelude.Maybe Prelude.Text)+createRegistryResponse_description = Lens.lens (\CreateRegistryResponse' {description} -> description) (\s@CreateRegistryResponse' {} a -> s {description = a} :: CreateRegistryResponse)++-- | The ARN of the registry.+createRegistryResponse_registryArn :: Lens.Lens' CreateRegistryResponse (Prelude.Maybe Prelude.Text)+createRegistryResponse_registryArn = Lens.lens (\CreateRegistryResponse' {registryArn} -> registryArn) (\s@CreateRegistryResponse' {} a -> s {registryArn = a} :: CreateRegistryResponse)++-- | The name of the registry.+createRegistryResponse_registryName :: Lens.Lens' CreateRegistryResponse (Prelude.Maybe Prelude.Text)+createRegistryResponse_registryName = Lens.lens (\CreateRegistryResponse' {registryName} -> registryName) (\s@CreateRegistryResponse' {} a -> s {registryName = a} :: CreateRegistryResponse)++-- | Tags associated with the registry.+createRegistryResponse_tags :: Lens.Lens' CreateRegistryResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createRegistryResponse_tags = Lens.lens (\CreateRegistryResponse' {tags} -> tags) (\s@CreateRegistryResponse' {} a -> s {tags = a} :: CreateRegistryResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+createRegistryResponse_httpStatus :: Lens.Lens' CreateRegistryResponse Prelude.Int+createRegistryResponse_httpStatus = Lens.lens (\CreateRegistryResponse' {httpStatus} -> httpStatus) (\s@CreateRegistryResponse' {} a -> s {httpStatus = a} :: CreateRegistryResponse)++instance Prelude.NFData CreateRegistryResponse where+  rnf CreateRegistryResponse' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf registryArn+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/CreateSchema.hs view
@@ -0,0 +1,331 @@+{-# 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.Schemas.CreateSchema+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a schema definition.+--+-- Inactive schemas will be deleted after two years.+module Amazonka.Schemas.CreateSchema+  ( -- * Creating a Request+    CreateSchema (..),+    newCreateSchema,++    -- * Request Lenses+    createSchema_description,+    createSchema_tags,+    createSchema_registryName,+    createSchema_schemaName,+    createSchema_type,+    createSchema_content,++    -- * Destructuring the Response+    CreateSchemaResponse (..),+    newCreateSchemaResponse,++    -- * Response Lenses+    createSchemaResponse_description,+    createSchemaResponse_lastModified,+    createSchemaResponse_schemaArn,+    createSchemaResponse_schemaName,+    createSchemaResponse_schemaVersion,+    createSchemaResponse_tags,+    createSchemaResponse_type,+    createSchemaResponse_versionCreatedDate,+    createSchemaResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newCreateSchema' smart constructor.+data CreateSchema = CreateSchema'+  { -- | A description of the schema.+    description :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the schema.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text,+    -- | The type of schema.+    type' :: Type,+    -- | The source of the schema definition.+    content :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSchema' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createSchema_description' - A description of the schema.+--+-- 'tags', 'createSchema_tags' - Tags associated with the schema.+--+-- 'registryName', 'createSchema_registryName' - The name of the registry.+--+-- 'schemaName', 'createSchema_schemaName' - The name of the schema.+--+-- 'type'', 'createSchema_type' - The type of schema.+--+-- 'content', 'createSchema_content' - The source of the schema definition.+newCreateSchema ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  -- | 'type''+  Type ->+  -- | 'content'+  Prelude.Text ->+  CreateSchema+newCreateSchema+  pRegistryName_+  pSchemaName_+  pType_+  pContent_ =+    CreateSchema'+      { description = Prelude.Nothing,+        tags = Prelude.Nothing,+        registryName = pRegistryName_,+        schemaName = pSchemaName_,+        type' = pType_,+        content = pContent_+      }++-- | A description of the schema.+createSchema_description :: Lens.Lens' CreateSchema (Prelude.Maybe Prelude.Text)+createSchema_description = Lens.lens (\CreateSchema' {description} -> description) (\s@CreateSchema' {} a -> s {description = a} :: CreateSchema)++-- | Tags associated with the schema.+createSchema_tags :: Lens.Lens' CreateSchema (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createSchema_tags = Lens.lens (\CreateSchema' {tags} -> tags) (\s@CreateSchema' {} a -> s {tags = a} :: CreateSchema) Prelude.. Lens.mapping Lens.coerced++-- | The name of the registry.+createSchema_registryName :: Lens.Lens' CreateSchema Prelude.Text+createSchema_registryName = Lens.lens (\CreateSchema' {registryName} -> registryName) (\s@CreateSchema' {} a -> s {registryName = a} :: CreateSchema)++-- | The name of the schema.+createSchema_schemaName :: Lens.Lens' CreateSchema Prelude.Text+createSchema_schemaName = Lens.lens (\CreateSchema' {schemaName} -> schemaName) (\s@CreateSchema' {} a -> s {schemaName = a} :: CreateSchema)++-- | The type of schema.+createSchema_type :: Lens.Lens' CreateSchema Type+createSchema_type = Lens.lens (\CreateSchema' {type'} -> type') (\s@CreateSchema' {} a -> s {type' = a} :: CreateSchema)++-- | The source of the schema definition.+createSchema_content :: Lens.Lens' CreateSchema Prelude.Text+createSchema_content = Lens.lens (\CreateSchema' {content} -> content) (\s@CreateSchema' {} a -> s {content = a} :: CreateSchema)++instance Core.AWSRequest CreateSchema where+  type AWSResponse CreateSchema = CreateSchemaResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateSchemaResponse'+            Prelude.<$> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "LastModified")+            Prelude.<*> (x Data..?> "SchemaArn")+            Prelude.<*> (x Data..?> "SchemaName")+            Prelude.<*> (x Data..?> "SchemaVersion")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "Type")+            Prelude.<*> (x Data..?> "VersionCreatedDate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSchema where+  hashWithSalt _salt CreateSchema' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` content++instance Prelude.NFData CreateSchema where+  rnf CreateSchema' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf content++instance Data.ToHeaders CreateSchema where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateSchema where+  toJSON CreateSchema' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Type" Data..= type'),+            Prelude.Just ("Content" Data..= content)+          ]+      )++instance Data.ToPath CreateSchema where+  toPath CreateSchema' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName+      ]++instance Data.ToQuery CreateSchema where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateSchemaResponse' smart constructor.+data CreateSchemaResponse = CreateSchemaResponse'+  { -- | The description of the schema.+    description :: Prelude.Maybe Prelude.Text,+    -- | The date and time that schema was modified.+    lastModified :: Prelude.Maybe Data.ISO8601,+    -- | The ARN of the schema.+    schemaArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Maybe Prelude.Text,+    -- | The version number of the schema+    schemaVersion :: Prelude.Maybe Prelude.Text,+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The type of the schema.+    type' :: Prelude.Maybe Prelude.Text,+    -- | The date the schema version was created.+    versionCreatedDate :: Prelude.Maybe Data.ISO8601,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSchemaResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createSchemaResponse_description' - The description of the schema.+--+-- 'lastModified', 'createSchemaResponse_lastModified' - The date and time that schema was modified.+--+-- 'schemaArn', 'createSchemaResponse_schemaArn' - The ARN of the schema.+--+-- 'schemaName', 'createSchemaResponse_schemaName' - The name of the schema.+--+-- 'schemaVersion', 'createSchemaResponse_schemaVersion' - The version number of the schema+--+-- 'tags', 'createSchemaResponse_tags' - Undocumented member.+--+-- 'type'', 'createSchemaResponse_type' - The type of the schema.+--+-- 'versionCreatedDate', 'createSchemaResponse_versionCreatedDate' - The date the schema version was created.+--+-- 'httpStatus', 'createSchemaResponse_httpStatus' - The response's http status code.+newCreateSchemaResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSchemaResponse+newCreateSchemaResponse pHttpStatus_ =+  CreateSchemaResponse'+    { description =+        Prelude.Nothing,+      lastModified = Prelude.Nothing,+      schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      tags = Prelude.Nothing,+      type' = Prelude.Nothing,+      versionCreatedDate = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the schema.+createSchemaResponse_description :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.Text)+createSchemaResponse_description = Lens.lens (\CreateSchemaResponse' {description} -> description) (\s@CreateSchemaResponse' {} a -> s {description = a} :: CreateSchemaResponse)++-- | The date and time that schema was modified.+createSchemaResponse_lastModified :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.UTCTime)+createSchemaResponse_lastModified = Lens.lens (\CreateSchemaResponse' {lastModified} -> lastModified) (\s@CreateSchemaResponse' {} a -> s {lastModified = a} :: CreateSchemaResponse) Prelude.. Lens.mapping Data._Time++-- | The ARN of the schema.+createSchemaResponse_schemaArn :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.Text)+createSchemaResponse_schemaArn = Lens.lens (\CreateSchemaResponse' {schemaArn} -> schemaArn) (\s@CreateSchemaResponse' {} a -> s {schemaArn = a} :: CreateSchemaResponse)++-- | The name of the schema.+createSchemaResponse_schemaName :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.Text)+createSchemaResponse_schemaName = Lens.lens (\CreateSchemaResponse' {schemaName} -> schemaName) (\s@CreateSchemaResponse' {} a -> s {schemaName = a} :: CreateSchemaResponse)++-- | The version number of the schema+createSchemaResponse_schemaVersion :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.Text)+createSchemaResponse_schemaVersion = Lens.lens (\CreateSchemaResponse' {schemaVersion} -> schemaVersion) (\s@CreateSchemaResponse' {} a -> s {schemaVersion = a} :: CreateSchemaResponse)++-- | Undocumented member.+createSchemaResponse_tags :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createSchemaResponse_tags = Lens.lens (\CreateSchemaResponse' {tags} -> tags) (\s@CreateSchemaResponse' {} a -> s {tags = a} :: CreateSchemaResponse) Prelude.. Lens.mapping Lens.coerced++-- | The type of the schema.+createSchemaResponse_type :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.Text)+createSchemaResponse_type = Lens.lens (\CreateSchemaResponse' {type'} -> type') (\s@CreateSchemaResponse' {} a -> s {type' = a} :: CreateSchemaResponse)++-- | The date the schema version was created.+createSchemaResponse_versionCreatedDate :: Lens.Lens' CreateSchemaResponse (Prelude.Maybe Prelude.UTCTime)+createSchemaResponse_versionCreatedDate = Lens.lens (\CreateSchemaResponse' {versionCreatedDate} -> versionCreatedDate) (\s@CreateSchemaResponse' {} a -> s {versionCreatedDate = a} :: CreateSchemaResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+createSchemaResponse_httpStatus :: Lens.Lens' CreateSchemaResponse Prelude.Int+createSchemaResponse_httpStatus = Lens.lens (\CreateSchemaResponse' {httpStatus} -> httpStatus) (\s@CreateSchemaResponse' {} a -> s {httpStatus = a} :: CreateSchemaResponse)++instance Prelude.NFData CreateSchemaResponse where+  rnf CreateSchemaResponse' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf versionCreatedDate+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/DeleteDiscoverer.hs view
@@ -0,0 +1,124 @@+{-# 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.Schemas.DeleteDiscoverer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a discoverer.+module Amazonka.Schemas.DeleteDiscoverer+  ( -- * Creating a Request+    DeleteDiscoverer (..),+    newDeleteDiscoverer,++    -- * Request Lenses+    deleteDiscoverer_discovererId,++    -- * Destructuring the Response+    DeleteDiscovererResponse (..),+    newDeleteDiscovererResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDeleteDiscoverer' smart constructor.+data DeleteDiscoverer = DeleteDiscoverer'+  { -- | The ID of the discoverer.+    discovererId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDiscoverer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererId', 'deleteDiscoverer_discovererId' - The ID of the discoverer.+newDeleteDiscoverer ::+  -- | 'discovererId'+  Prelude.Text ->+  DeleteDiscoverer+newDeleteDiscoverer pDiscovererId_ =+  DeleteDiscoverer' {discovererId = pDiscovererId_}++-- | The ID of the discoverer.+deleteDiscoverer_discovererId :: Lens.Lens' DeleteDiscoverer Prelude.Text+deleteDiscoverer_discovererId = Lens.lens (\DeleteDiscoverer' {discovererId} -> discovererId) (\s@DeleteDiscoverer' {} a -> s {discovererId = a} :: DeleteDiscoverer)++instance Core.AWSRequest DeleteDiscoverer where+  type+    AWSResponse DeleteDiscoverer =+      DeleteDiscovererResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveNull DeleteDiscovererResponse'++instance Prelude.Hashable DeleteDiscoverer where+  hashWithSalt _salt DeleteDiscoverer' {..} =+    _salt `Prelude.hashWithSalt` discovererId++instance Prelude.NFData DeleteDiscoverer where+  rnf DeleteDiscoverer' {..} = Prelude.rnf discovererId++instance Data.ToHeaders DeleteDiscoverer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteDiscoverer where+  toPath DeleteDiscoverer' {..} =+    Prelude.mconcat+      ["/v1/discoverers/id/", Data.toBS discovererId]++instance Data.ToQuery DeleteDiscoverer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteDiscovererResponse' smart constructor.+data DeleteDiscovererResponse = DeleteDiscovererResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDiscovererResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteDiscovererResponse ::+  DeleteDiscovererResponse+newDeleteDiscovererResponse =+  DeleteDiscovererResponse'++instance Prelude.NFData DeleteDiscovererResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/DeleteRegistry.hs view
@@ -0,0 +1,123 @@+{-# 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.Schemas.DeleteRegistry+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a Registry.+module Amazonka.Schemas.DeleteRegistry+  ( -- * Creating a Request+    DeleteRegistry (..),+    newDeleteRegistry,++    -- * Request Lenses+    deleteRegistry_registryName,++    -- * Destructuring the Response+    DeleteRegistryResponse (..),+    newDeleteRegistryResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDeleteRegistry' smart constructor.+data DeleteRegistry = DeleteRegistry'+  { -- | The name of the registry.+    registryName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRegistry' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'deleteRegistry_registryName' - The name of the registry.+newDeleteRegistry ::+  -- | 'registryName'+  Prelude.Text ->+  DeleteRegistry+newDeleteRegistry pRegistryName_ =+  DeleteRegistry' {registryName = pRegistryName_}++-- | The name of the registry.+deleteRegistry_registryName :: Lens.Lens' DeleteRegistry Prelude.Text+deleteRegistry_registryName = Lens.lens (\DeleteRegistry' {registryName} -> registryName) (\s@DeleteRegistry' {} a -> s {registryName = a} :: DeleteRegistry)++instance Core.AWSRequest DeleteRegistry where+  type+    AWSResponse DeleteRegistry =+      DeleteRegistryResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveNull DeleteRegistryResponse'++instance Prelude.Hashable DeleteRegistry where+  hashWithSalt _salt DeleteRegistry' {..} =+    _salt `Prelude.hashWithSalt` registryName++instance Prelude.NFData DeleteRegistry where+  rnf DeleteRegistry' {..} = Prelude.rnf registryName++instance Data.ToHeaders DeleteRegistry where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteRegistry where+  toPath DeleteRegistry' {..} =+    Prelude.mconcat+      ["/v1/registries/name/", Data.toBS registryName]++instance Data.ToQuery DeleteRegistry where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteRegistryResponse' smart constructor.+data DeleteRegistryResponse = DeleteRegistryResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteRegistryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteRegistryResponse ::+  DeleteRegistryResponse+newDeleteRegistryResponse = DeleteRegistryResponse'++instance Prelude.NFData DeleteRegistryResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/DeleteResourcePolicy.hs view
@@ -0,0 +1,126 @@+{-# 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.Schemas.DeleteResourcePolicy+-- 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 the resource-based policy attached to the specified registry.+module Amazonka.Schemas.DeleteResourcePolicy+  ( -- * Creating a Request+    DeleteResourcePolicy (..),+    newDeleteResourcePolicy,++    -- * Request Lenses+    deleteResourcePolicy_registryName,++    -- * Destructuring the Response+    DeleteResourcePolicyResponse (..),+    newDeleteResourcePolicyResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDeleteResourcePolicy' smart constructor.+data DeleteResourcePolicy = DeleteResourcePolicy'+  { -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteResourcePolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'deleteResourcePolicy_registryName' - The name of the registry.+newDeleteResourcePolicy ::+  DeleteResourcePolicy+newDeleteResourcePolicy =+  DeleteResourcePolicy'+    { registryName =+        Prelude.Nothing+    }++-- | The name of the registry.+deleteResourcePolicy_registryName :: Lens.Lens' DeleteResourcePolicy (Prelude.Maybe Prelude.Text)+deleteResourcePolicy_registryName = Lens.lens (\DeleteResourcePolicy' {registryName} -> registryName) (\s@DeleteResourcePolicy' {} a -> s {registryName = a} :: DeleteResourcePolicy)++instance Core.AWSRequest DeleteResourcePolicy where+  type+    AWSResponse DeleteResourcePolicy =+      DeleteResourcePolicyResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveNull DeleteResourcePolicyResponse'++instance Prelude.Hashable DeleteResourcePolicy where+  hashWithSalt _salt DeleteResourcePolicy' {..} =+    _salt `Prelude.hashWithSalt` registryName++instance Prelude.NFData DeleteResourcePolicy where+  rnf DeleteResourcePolicy' {..} =+    Prelude.rnf registryName++instance Data.ToHeaders DeleteResourcePolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteResourcePolicy where+  toPath = Prelude.const "/v1/policy"++instance Data.ToQuery DeleteResourcePolicy where+  toQuery DeleteResourcePolicy' {..} =+    Prelude.mconcat+      ["registryName" Data.=: registryName]++-- | /See:/ 'newDeleteResourcePolicyResponse' smart constructor.+data DeleteResourcePolicyResponse = DeleteResourcePolicyResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteResourcePolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteResourcePolicyResponse ::+  DeleteResourcePolicyResponse+newDeleteResourcePolicyResponse =+  DeleteResourcePolicyResponse'++instance Prelude.NFData DeleteResourcePolicyResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/DeleteSchema.hs view
@@ -0,0 +1,142 @@+{-# 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.Schemas.DeleteSchema+-- 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 schema definition.+module Amazonka.Schemas.DeleteSchema+  ( -- * Creating a Request+    DeleteSchema (..),+    newDeleteSchema,++    -- * Request Lenses+    deleteSchema_registryName,+    deleteSchema_schemaName,++    -- * Destructuring the Response+    DeleteSchemaResponse (..),+    newDeleteSchemaResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDeleteSchema' smart constructor.+data DeleteSchema = DeleteSchema'+  { -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSchema' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'deleteSchema_registryName' - The name of the registry.+--+-- 'schemaName', 'deleteSchema_schemaName' - The name of the schema.+newDeleteSchema ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  DeleteSchema+newDeleteSchema pRegistryName_ pSchemaName_ =+  DeleteSchema'+    { registryName = pRegistryName_,+      schemaName = pSchemaName_+    }++-- | The name of the registry.+deleteSchema_registryName :: Lens.Lens' DeleteSchema Prelude.Text+deleteSchema_registryName = Lens.lens (\DeleteSchema' {registryName} -> registryName) (\s@DeleteSchema' {} a -> s {registryName = a} :: DeleteSchema)++-- | The name of the schema.+deleteSchema_schemaName :: Lens.Lens' DeleteSchema Prelude.Text+deleteSchema_schemaName = Lens.lens (\DeleteSchema' {schemaName} -> schemaName) (\s@DeleteSchema' {} a -> s {schemaName = a} :: DeleteSchema)++instance Core.AWSRequest DeleteSchema where+  type AWSResponse DeleteSchema = DeleteSchemaResponse+  request overrides =+    Request.delete (overrides defaultService)+  response = Response.receiveNull DeleteSchemaResponse'++instance Prelude.Hashable DeleteSchema where+  hashWithSalt _salt DeleteSchema' {..} =+    _salt+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName++instance Prelude.NFData DeleteSchema where+  rnf DeleteSchema' {..} =+    Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName++instance Data.ToHeaders DeleteSchema where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteSchema where+  toPath DeleteSchema' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName+      ]++instance Data.ToQuery DeleteSchema where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteSchemaResponse' smart constructor.+data DeleteSchemaResponse = DeleteSchemaResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSchemaResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteSchemaResponse ::+  DeleteSchemaResponse+newDeleteSchemaResponse = DeleteSchemaResponse'++instance Prelude.NFData DeleteSchemaResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/DeleteSchemaVersion.hs view
@@ -0,0 +1,166 @@+{-# 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.Schemas.DeleteSchemaVersion+-- 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 the schema version definition+module Amazonka.Schemas.DeleteSchemaVersion+  ( -- * Creating a Request+    DeleteSchemaVersion (..),+    newDeleteSchemaVersion,++    -- * Request Lenses+    deleteSchemaVersion_schemaVersion,+    deleteSchemaVersion_registryName,+    deleteSchemaVersion_schemaName,++    -- * Destructuring the Response+    DeleteSchemaVersionResponse (..),+    newDeleteSchemaVersionResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDeleteSchemaVersion' smart constructor.+data DeleteSchemaVersion = DeleteSchemaVersion'+  { -- | The version number of the schema+    schemaVersion :: Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSchemaVersion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaVersion', 'deleteSchemaVersion_schemaVersion' - The version number of the schema+--+-- 'registryName', 'deleteSchemaVersion_registryName' - The name of the registry.+--+-- 'schemaName', 'deleteSchemaVersion_schemaName' - The name of the schema.+newDeleteSchemaVersion ::+  -- | 'schemaVersion'+  Prelude.Text ->+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  DeleteSchemaVersion+newDeleteSchemaVersion+  pSchemaVersion_+  pRegistryName_+  pSchemaName_ =+    DeleteSchemaVersion'+      { schemaVersion =+          pSchemaVersion_,+        registryName = pRegistryName_,+        schemaName = pSchemaName_+      }++-- | The version number of the schema+deleteSchemaVersion_schemaVersion :: Lens.Lens' DeleteSchemaVersion Prelude.Text+deleteSchemaVersion_schemaVersion = Lens.lens (\DeleteSchemaVersion' {schemaVersion} -> schemaVersion) (\s@DeleteSchemaVersion' {} a -> s {schemaVersion = a} :: DeleteSchemaVersion)++-- | The name of the registry.+deleteSchemaVersion_registryName :: Lens.Lens' DeleteSchemaVersion Prelude.Text+deleteSchemaVersion_registryName = Lens.lens (\DeleteSchemaVersion' {registryName} -> registryName) (\s@DeleteSchemaVersion' {} a -> s {registryName = a} :: DeleteSchemaVersion)++-- | The name of the schema.+deleteSchemaVersion_schemaName :: Lens.Lens' DeleteSchemaVersion Prelude.Text+deleteSchemaVersion_schemaName = Lens.lens (\DeleteSchemaVersion' {schemaName} -> schemaName) (\s@DeleteSchemaVersion' {} a -> s {schemaName = a} :: DeleteSchemaVersion)++instance Core.AWSRequest DeleteSchemaVersion where+  type+    AWSResponse DeleteSchemaVersion =+      DeleteSchemaVersionResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveNull DeleteSchemaVersionResponse'++instance Prelude.Hashable DeleteSchemaVersion where+  hashWithSalt _salt DeleteSchemaVersion' {..} =+    _salt+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName++instance Prelude.NFData DeleteSchemaVersion where+  rnf DeleteSchemaVersion' {..} =+    Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName++instance Data.ToHeaders DeleteSchemaVersion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DeleteSchemaVersion where+  toPath DeleteSchemaVersion' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName,+        "/version/",+        Data.toBS schemaVersion+      ]++instance Data.ToQuery DeleteSchemaVersion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteSchemaVersionResponse' smart constructor.+data DeleteSchemaVersionResponse = DeleteSchemaVersionResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSchemaVersionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteSchemaVersionResponse ::+  DeleteSchemaVersionResponse+newDeleteSchemaVersionResponse =+  DeleteSchemaVersionResponse'++instance Prelude.NFData DeleteSchemaVersionResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/DescribeCodeBinding.hs view
@@ -0,0 +1,251 @@+{-# 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.Schemas.DescribeCodeBinding+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describe the code binding URI.+module Amazonka.Schemas.DescribeCodeBinding+  ( -- * Creating a Request+    DescribeCodeBinding (..),+    newDescribeCodeBinding,++    -- * Request Lenses+    describeCodeBinding_schemaVersion,+    describeCodeBinding_registryName,+    describeCodeBinding_schemaName,+    describeCodeBinding_language,++    -- * Destructuring the Response+    DescribeCodeBindingResponse (..),+    newDescribeCodeBindingResponse,++    -- * Response Lenses+    describeCodeBindingResponse_creationDate,+    describeCodeBindingResponse_lastModified,+    describeCodeBindingResponse_schemaVersion,+    describeCodeBindingResponse_status,+    describeCodeBindingResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDescribeCodeBinding' smart constructor.+data DescribeCodeBinding = DescribeCodeBinding'+  { -- | Specifying this limits the results to only this schema version.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text,+    -- | The language of the code binding.+    language :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCodeBinding' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaVersion', 'describeCodeBinding_schemaVersion' - Specifying this limits the results to only this schema version.+--+-- 'registryName', 'describeCodeBinding_registryName' - The name of the registry.+--+-- 'schemaName', 'describeCodeBinding_schemaName' - The name of the schema.+--+-- 'language', 'describeCodeBinding_language' - The language of the code binding.+newDescribeCodeBinding ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  -- | 'language'+  Prelude.Text ->+  DescribeCodeBinding+newDescribeCodeBinding+  pRegistryName_+  pSchemaName_+  pLanguage_ =+    DescribeCodeBinding'+      { schemaVersion =+          Prelude.Nothing,+        registryName = pRegistryName_,+        schemaName = pSchemaName_,+        language = pLanguage_+      }++-- | Specifying this limits the results to only this schema version.+describeCodeBinding_schemaVersion :: Lens.Lens' DescribeCodeBinding (Prelude.Maybe Prelude.Text)+describeCodeBinding_schemaVersion = Lens.lens (\DescribeCodeBinding' {schemaVersion} -> schemaVersion) (\s@DescribeCodeBinding' {} a -> s {schemaVersion = a} :: DescribeCodeBinding)++-- | The name of the registry.+describeCodeBinding_registryName :: Lens.Lens' DescribeCodeBinding Prelude.Text+describeCodeBinding_registryName = Lens.lens (\DescribeCodeBinding' {registryName} -> registryName) (\s@DescribeCodeBinding' {} a -> s {registryName = a} :: DescribeCodeBinding)++-- | The name of the schema.+describeCodeBinding_schemaName :: Lens.Lens' DescribeCodeBinding Prelude.Text+describeCodeBinding_schemaName = Lens.lens (\DescribeCodeBinding' {schemaName} -> schemaName) (\s@DescribeCodeBinding' {} a -> s {schemaName = a} :: DescribeCodeBinding)++-- | The language of the code binding.+describeCodeBinding_language :: Lens.Lens' DescribeCodeBinding Prelude.Text+describeCodeBinding_language = Lens.lens (\DescribeCodeBinding' {language} -> language) (\s@DescribeCodeBinding' {} a -> s {language = a} :: DescribeCodeBinding)++instance Core.AWSRequest DescribeCodeBinding where+  type+    AWSResponse DescribeCodeBinding =+      DescribeCodeBindingResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeCodeBindingResponse'+            Prelude.<$> (x Data..?> "CreationDate")+            Prelude.<*> (x Data..?> "LastModified")+            Prelude.<*> (x Data..?> "SchemaVersion")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeCodeBinding where+  hashWithSalt _salt DescribeCodeBinding' {..} =+    _salt+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` language++instance Prelude.NFData DescribeCodeBinding where+  rnf DescribeCodeBinding' {..} =+    Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf language++instance Data.ToHeaders DescribeCodeBinding where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeCodeBinding where+  toPath DescribeCodeBinding' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName,+        "/language/",+        Data.toBS language+      ]++instance Data.ToQuery DescribeCodeBinding where+  toQuery DescribeCodeBinding' {..} =+    Prelude.mconcat+      ["schemaVersion" Data.=: schemaVersion]++-- | /See:/ 'newDescribeCodeBindingResponse' smart constructor.+data DescribeCodeBindingResponse = DescribeCodeBindingResponse'+  { -- | The time and date that the code binding was created.+    creationDate :: Prelude.Maybe Data.ISO8601,+    -- | The date and time that code bindings were modified.+    lastModified :: Prelude.Maybe Data.ISO8601,+    -- | The version number of the schema.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The current status of code binding generation.+    status :: Prelude.Maybe CodeGenerationStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCodeBindingResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'creationDate', 'describeCodeBindingResponse_creationDate' - The time and date that the code binding was created.+--+-- 'lastModified', 'describeCodeBindingResponse_lastModified' - The date and time that code bindings were modified.+--+-- 'schemaVersion', 'describeCodeBindingResponse_schemaVersion' - The version number of the schema.+--+-- 'status', 'describeCodeBindingResponse_status' - The current status of code binding generation.+--+-- 'httpStatus', 'describeCodeBindingResponse_httpStatus' - The response's http status code.+newDescribeCodeBindingResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeCodeBindingResponse+newDescribeCodeBindingResponse pHttpStatus_ =+  DescribeCodeBindingResponse'+    { creationDate =+        Prelude.Nothing,+      lastModified = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time and date that the code binding was created.+describeCodeBindingResponse_creationDate :: Lens.Lens' DescribeCodeBindingResponse (Prelude.Maybe Prelude.UTCTime)+describeCodeBindingResponse_creationDate = Lens.lens (\DescribeCodeBindingResponse' {creationDate} -> creationDate) (\s@DescribeCodeBindingResponse' {} a -> s {creationDate = a} :: DescribeCodeBindingResponse) Prelude.. Lens.mapping Data._Time++-- | The date and time that code bindings were modified.+describeCodeBindingResponse_lastModified :: Lens.Lens' DescribeCodeBindingResponse (Prelude.Maybe Prelude.UTCTime)+describeCodeBindingResponse_lastModified = Lens.lens (\DescribeCodeBindingResponse' {lastModified} -> lastModified) (\s@DescribeCodeBindingResponse' {} a -> s {lastModified = a} :: DescribeCodeBindingResponse) Prelude.. Lens.mapping Data._Time++-- | The version number of the schema.+describeCodeBindingResponse_schemaVersion :: Lens.Lens' DescribeCodeBindingResponse (Prelude.Maybe Prelude.Text)+describeCodeBindingResponse_schemaVersion = Lens.lens (\DescribeCodeBindingResponse' {schemaVersion} -> schemaVersion) (\s@DescribeCodeBindingResponse' {} a -> s {schemaVersion = a} :: DescribeCodeBindingResponse)++-- | The current status of code binding generation.+describeCodeBindingResponse_status :: Lens.Lens' DescribeCodeBindingResponse (Prelude.Maybe CodeGenerationStatus)+describeCodeBindingResponse_status = Lens.lens (\DescribeCodeBindingResponse' {status} -> status) (\s@DescribeCodeBindingResponse' {} a -> s {status = a} :: DescribeCodeBindingResponse)++-- | The response's http status code.+describeCodeBindingResponse_httpStatus :: Lens.Lens' DescribeCodeBindingResponse Prelude.Int+describeCodeBindingResponse_httpStatus = Lens.lens (\DescribeCodeBindingResponse' {httpStatus} -> httpStatus) (\s@DescribeCodeBindingResponse' {} a -> s {httpStatus = a} :: DescribeCodeBindingResponse)++instance Prelude.NFData DescribeCodeBindingResponse where+  rnf DescribeCodeBindingResponse' {..} =+    Prelude.rnf creationDate+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/DescribeDiscoverer.hs view
@@ -0,0 +1,235 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.DescribeDiscoverer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the discoverer.+module Amazonka.Schemas.DescribeDiscoverer+  ( -- * Creating a Request+    DescribeDiscoverer (..),+    newDescribeDiscoverer,++    -- * Request Lenses+    describeDiscoverer_discovererId,++    -- * Destructuring the Response+    DescribeDiscovererResponse (..),+    newDescribeDiscovererResponse,++    -- * Response Lenses+    describeDiscovererResponse_crossAccount,+    describeDiscovererResponse_description,+    describeDiscovererResponse_discovererArn,+    describeDiscovererResponse_discovererId,+    describeDiscovererResponse_sourceArn,+    describeDiscovererResponse_state,+    describeDiscovererResponse_tags,+    describeDiscovererResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDescribeDiscoverer' smart constructor.+data DescribeDiscoverer = DescribeDiscoverer'+  { -- | The ID of the discoverer.+    discovererId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDiscoverer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererId', 'describeDiscoverer_discovererId' - The ID of the discoverer.+newDescribeDiscoverer ::+  -- | 'discovererId'+  Prelude.Text ->+  DescribeDiscoverer+newDescribeDiscoverer pDiscovererId_ =+  DescribeDiscoverer' {discovererId = pDiscovererId_}++-- | The ID of the discoverer.+describeDiscoverer_discovererId :: Lens.Lens' DescribeDiscoverer Prelude.Text+describeDiscoverer_discovererId = Lens.lens (\DescribeDiscoverer' {discovererId} -> discovererId) (\s@DescribeDiscoverer' {} a -> s {discovererId = a} :: DescribeDiscoverer)++instance Core.AWSRequest DescribeDiscoverer where+  type+    AWSResponse DescribeDiscoverer =+      DescribeDiscovererResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeDiscovererResponse'+            Prelude.<$> (x Data..?> "CrossAccount")+            Prelude.<*> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "DiscovererArn")+            Prelude.<*> (x Data..?> "DiscovererId")+            Prelude.<*> (x Data..?> "SourceArn")+            Prelude.<*> (x Data..?> "State")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeDiscoverer where+  hashWithSalt _salt DescribeDiscoverer' {..} =+    _salt `Prelude.hashWithSalt` discovererId++instance Prelude.NFData DescribeDiscoverer where+  rnf DescribeDiscoverer' {..} =+    Prelude.rnf discovererId++instance Data.ToHeaders DescribeDiscoverer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeDiscoverer where+  toPath DescribeDiscoverer' {..} =+    Prelude.mconcat+      ["/v1/discoverers/id/", Data.toBS discovererId]++instance Data.ToQuery DescribeDiscoverer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeDiscovererResponse' smart constructor.+data DescribeDiscovererResponse = DescribeDiscovererResponse'+  { -- | The Status if the discoverer will discover schemas from events sent from+    -- another account.+    crossAccount :: Prelude.Maybe Prelude.Bool,+    -- | The description of the discoverer.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the discoverer.+    discovererArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the discoverer.+    discovererId :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the event bus.+    sourceArn :: Prelude.Maybe Prelude.Text,+    -- | The state of the discoverer.+    state :: Prelude.Maybe DiscovererState,+    -- | Tags associated with the resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDiscovererResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'crossAccount', 'describeDiscovererResponse_crossAccount' - The Status if the discoverer will discover schemas from events sent from+-- another account.+--+-- 'description', 'describeDiscovererResponse_description' - The description of the discoverer.+--+-- 'discovererArn', 'describeDiscovererResponse_discovererArn' - The ARN of the discoverer.+--+-- 'discovererId', 'describeDiscovererResponse_discovererId' - The ID of the discoverer.+--+-- 'sourceArn', 'describeDiscovererResponse_sourceArn' - The ARN of the event bus.+--+-- 'state', 'describeDiscovererResponse_state' - The state of the discoverer.+--+-- 'tags', 'describeDiscovererResponse_tags' - Tags associated with the resource.+--+-- 'httpStatus', 'describeDiscovererResponse_httpStatus' - The response's http status code.+newDescribeDiscovererResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDiscovererResponse+newDescribeDiscovererResponse pHttpStatus_ =+  DescribeDiscovererResponse'+    { crossAccount =+        Prelude.Nothing,+      description = Prelude.Nothing,+      discovererArn = Prelude.Nothing,+      discovererId = Prelude.Nothing,+      sourceArn = Prelude.Nothing,+      state = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Status if the discoverer will discover schemas from events sent from+-- another account.+describeDiscovererResponse_crossAccount :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe Prelude.Bool)+describeDiscovererResponse_crossAccount = Lens.lens (\DescribeDiscovererResponse' {crossAccount} -> crossAccount) (\s@DescribeDiscovererResponse' {} a -> s {crossAccount = a} :: DescribeDiscovererResponse)++-- | The description of the discoverer.+describeDiscovererResponse_description :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe Prelude.Text)+describeDiscovererResponse_description = Lens.lens (\DescribeDiscovererResponse' {description} -> description) (\s@DescribeDiscovererResponse' {} a -> s {description = a} :: DescribeDiscovererResponse)++-- | The ARN of the discoverer.+describeDiscovererResponse_discovererArn :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe Prelude.Text)+describeDiscovererResponse_discovererArn = Lens.lens (\DescribeDiscovererResponse' {discovererArn} -> discovererArn) (\s@DescribeDiscovererResponse' {} a -> s {discovererArn = a} :: DescribeDiscovererResponse)++-- | The ID of the discoverer.+describeDiscovererResponse_discovererId :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe Prelude.Text)+describeDiscovererResponse_discovererId = Lens.lens (\DescribeDiscovererResponse' {discovererId} -> discovererId) (\s@DescribeDiscovererResponse' {} a -> s {discovererId = a} :: DescribeDiscovererResponse)++-- | The ARN of the event bus.+describeDiscovererResponse_sourceArn :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe Prelude.Text)+describeDiscovererResponse_sourceArn = Lens.lens (\DescribeDiscovererResponse' {sourceArn} -> sourceArn) (\s@DescribeDiscovererResponse' {} a -> s {sourceArn = a} :: DescribeDiscovererResponse)++-- | The state of the discoverer.+describeDiscovererResponse_state :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe DiscovererState)+describeDiscovererResponse_state = Lens.lens (\DescribeDiscovererResponse' {state} -> state) (\s@DescribeDiscovererResponse' {} a -> s {state = a} :: DescribeDiscovererResponse)++-- | Tags associated with the resource.+describeDiscovererResponse_tags :: Lens.Lens' DescribeDiscovererResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+describeDiscovererResponse_tags = Lens.lens (\DescribeDiscovererResponse' {tags} -> tags) (\s@DescribeDiscovererResponse' {} a -> s {tags = a} :: DescribeDiscovererResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeDiscovererResponse_httpStatus :: Lens.Lens' DescribeDiscovererResponse Prelude.Int+describeDiscovererResponse_httpStatus = Lens.lens (\DescribeDiscovererResponse' {httpStatus} -> httpStatus) (\s@DescribeDiscovererResponse' {} a -> s {httpStatus = a} :: DescribeDiscovererResponse)++instance Prelude.NFData DescribeDiscovererResponse where+  rnf DescribeDiscovererResponse' {..} =+    Prelude.rnf crossAccount+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf discovererArn+      `Prelude.seq` Prelude.rnf discovererId+      `Prelude.seq` Prelude.rnf sourceArn+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/DescribeRegistry.hs view
@@ -0,0 +1,195 @@+{-# 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.Schemas.DescribeRegistry+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the registry.+module Amazonka.Schemas.DescribeRegistry+  ( -- * Creating a Request+    DescribeRegistry (..),+    newDescribeRegistry,++    -- * Request Lenses+    describeRegistry_registryName,++    -- * Destructuring the Response+    DescribeRegistryResponse (..),+    newDescribeRegistryResponse,++    -- * Response Lenses+    describeRegistryResponse_description,+    describeRegistryResponse_registryArn,+    describeRegistryResponse_registryName,+    describeRegistryResponse_tags,+    describeRegistryResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDescribeRegistry' smart constructor.+data DescribeRegistry = DescribeRegistry'+  { -- | The name of the registry.+    registryName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeRegistry' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'describeRegistry_registryName' - The name of the registry.+newDescribeRegistry ::+  -- | 'registryName'+  Prelude.Text ->+  DescribeRegistry+newDescribeRegistry pRegistryName_ =+  DescribeRegistry' {registryName = pRegistryName_}++-- | The name of the registry.+describeRegistry_registryName :: Lens.Lens' DescribeRegistry Prelude.Text+describeRegistry_registryName = Lens.lens (\DescribeRegistry' {registryName} -> registryName) (\s@DescribeRegistry' {} a -> s {registryName = a} :: DescribeRegistry)++instance Core.AWSRequest DescribeRegistry where+  type+    AWSResponse DescribeRegistry =+      DescribeRegistryResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeRegistryResponse'+            Prelude.<$> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "RegistryArn")+            Prelude.<*> (x Data..?> "RegistryName")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeRegistry where+  hashWithSalt _salt DescribeRegistry' {..} =+    _salt `Prelude.hashWithSalt` registryName++instance Prelude.NFData DescribeRegistry where+  rnf DescribeRegistry' {..} = Prelude.rnf registryName++instance Data.ToHeaders DescribeRegistry where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeRegistry where+  toPath DescribeRegistry' {..} =+    Prelude.mconcat+      ["/v1/registries/name/", Data.toBS registryName]++instance Data.ToQuery DescribeRegistry where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeRegistryResponse' smart constructor.+data DescribeRegistryResponse = DescribeRegistryResponse'+  { -- | The description of the registry.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the registry.+    registryArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the registry.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeRegistryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'describeRegistryResponse_description' - The description of the registry.+--+-- 'registryArn', 'describeRegistryResponse_registryArn' - The ARN of the registry.+--+-- 'registryName', 'describeRegistryResponse_registryName' - The name of the registry.+--+-- 'tags', 'describeRegistryResponse_tags' - Tags associated with the registry.+--+-- 'httpStatus', 'describeRegistryResponse_httpStatus' - The response's http status code.+newDescribeRegistryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeRegistryResponse+newDescribeRegistryResponse pHttpStatus_ =+  DescribeRegistryResponse'+    { description =+        Prelude.Nothing,+      registryArn = Prelude.Nothing,+      registryName = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the registry.+describeRegistryResponse_description :: Lens.Lens' DescribeRegistryResponse (Prelude.Maybe Prelude.Text)+describeRegistryResponse_description = Lens.lens (\DescribeRegistryResponse' {description} -> description) (\s@DescribeRegistryResponse' {} a -> s {description = a} :: DescribeRegistryResponse)++-- | The ARN of the registry.+describeRegistryResponse_registryArn :: Lens.Lens' DescribeRegistryResponse (Prelude.Maybe Prelude.Text)+describeRegistryResponse_registryArn = Lens.lens (\DescribeRegistryResponse' {registryArn} -> registryArn) (\s@DescribeRegistryResponse' {} a -> s {registryArn = a} :: DescribeRegistryResponse)++-- | The name of the registry.+describeRegistryResponse_registryName :: Lens.Lens' DescribeRegistryResponse (Prelude.Maybe Prelude.Text)+describeRegistryResponse_registryName = Lens.lens (\DescribeRegistryResponse' {registryName} -> registryName) (\s@DescribeRegistryResponse' {} a -> s {registryName = a} :: DescribeRegistryResponse)++-- | Tags associated with the registry.+describeRegistryResponse_tags :: Lens.Lens' DescribeRegistryResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+describeRegistryResponse_tags = Lens.lens (\DescribeRegistryResponse' {tags} -> tags) (\s@DescribeRegistryResponse' {} a -> s {tags = a} :: DescribeRegistryResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeRegistryResponse_httpStatus :: Lens.Lens' DescribeRegistryResponse Prelude.Int+describeRegistryResponse_httpStatus = Lens.lens (\DescribeRegistryResponse' {httpStatus} -> httpStatus) (\s@DescribeRegistryResponse' {} a -> s {httpStatus = a} :: DescribeRegistryResponse)++instance Prelude.NFData DescribeRegistryResponse where+  rnf DescribeRegistryResponse' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf registryArn+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/DescribeSchema.hs view
@@ -0,0 +1,290 @@+{-# 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.Schemas.DescribeSchema+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieve the schema definition.+module Amazonka.Schemas.DescribeSchema+  ( -- * Creating a Request+    DescribeSchema (..),+    newDescribeSchema,++    -- * Request Lenses+    describeSchema_schemaVersion,+    describeSchema_registryName,+    describeSchema_schemaName,++    -- * Destructuring the Response+    DescribeSchemaResponse (..),+    newDescribeSchemaResponse,++    -- * Response Lenses+    describeSchemaResponse_content,+    describeSchemaResponse_description,+    describeSchemaResponse_lastModified,+    describeSchemaResponse_schemaArn,+    describeSchemaResponse_schemaName,+    describeSchemaResponse_schemaVersion,+    describeSchemaResponse_tags,+    describeSchemaResponse_type,+    describeSchemaResponse_versionCreatedDate,+    describeSchemaResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newDescribeSchema' smart constructor.+data DescribeSchema = DescribeSchema'+  { -- | Specifying this limits the results to only this schema version.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSchema' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaVersion', 'describeSchema_schemaVersion' - Specifying this limits the results to only this schema version.+--+-- 'registryName', 'describeSchema_registryName' - The name of the registry.+--+-- 'schemaName', 'describeSchema_schemaName' - The name of the schema.+newDescribeSchema ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  DescribeSchema+newDescribeSchema pRegistryName_ pSchemaName_ =+  DescribeSchema'+    { schemaVersion = Prelude.Nothing,+      registryName = pRegistryName_,+      schemaName = pSchemaName_+    }++-- | Specifying this limits the results to only this schema version.+describeSchema_schemaVersion :: Lens.Lens' DescribeSchema (Prelude.Maybe Prelude.Text)+describeSchema_schemaVersion = Lens.lens (\DescribeSchema' {schemaVersion} -> schemaVersion) (\s@DescribeSchema' {} a -> s {schemaVersion = a} :: DescribeSchema)++-- | The name of the registry.+describeSchema_registryName :: Lens.Lens' DescribeSchema Prelude.Text+describeSchema_registryName = Lens.lens (\DescribeSchema' {registryName} -> registryName) (\s@DescribeSchema' {} a -> s {registryName = a} :: DescribeSchema)++-- | The name of the schema.+describeSchema_schemaName :: Lens.Lens' DescribeSchema Prelude.Text+describeSchema_schemaName = Lens.lens (\DescribeSchema' {schemaName} -> schemaName) (\s@DescribeSchema' {} a -> s {schemaName = a} :: DescribeSchema)++instance Core.AWSRequest DescribeSchema where+  type+    AWSResponse DescribeSchema =+      DescribeSchemaResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSchemaResponse'+            Prelude.<$> (x Data..?> "Content")+            Prelude.<*> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "LastModified")+            Prelude.<*> (x Data..?> "SchemaArn")+            Prelude.<*> (x Data..?> "SchemaName")+            Prelude.<*> (x Data..?> "SchemaVersion")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "Type")+            Prelude.<*> (x Data..?> "VersionCreatedDate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSchema where+  hashWithSalt _salt DescribeSchema' {..} =+    _salt+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName++instance Prelude.NFData DescribeSchema where+  rnf DescribeSchema' {..} =+    Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName++instance Data.ToHeaders DescribeSchema where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath DescribeSchema where+  toPath DescribeSchema' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName+      ]++instance Data.ToQuery DescribeSchema where+  toQuery DescribeSchema' {..} =+    Prelude.mconcat+      ["schemaVersion" Data.=: schemaVersion]++-- | /See:/ 'newDescribeSchemaResponse' smart constructor.+data DescribeSchemaResponse = DescribeSchemaResponse'+  { -- | The source of the schema definition.+    content :: Prelude.Maybe Prelude.Text,+    -- | The description of the schema.+    description :: Prelude.Maybe Prelude.Text,+    -- | The date and time that schema was modified.+    lastModified :: Prelude.Maybe Data.ISO8601,+    -- | The ARN of the schema.+    schemaArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Maybe Prelude.Text,+    -- | The version number of the schema+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The type of the schema.+    type' :: Prelude.Maybe Prelude.Text,+    -- | The date the schema version was created.+    versionCreatedDate :: Prelude.Maybe Data.ISO8601,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSchemaResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'content', 'describeSchemaResponse_content' - The source of the schema definition.+--+-- 'description', 'describeSchemaResponse_description' - The description of the schema.+--+-- 'lastModified', 'describeSchemaResponse_lastModified' - The date and time that schema was modified.+--+-- 'schemaArn', 'describeSchemaResponse_schemaArn' - The ARN of the schema.+--+-- 'schemaName', 'describeSchemaResponse_schemaName' - The name of the schema.+--+-- 'schemaVersion', 'describeSchemaResponse_schemaVersion' - The version number of the schema+--+-- 'tags', 'describeSchemaResponse_tags' - Tags associated with the resource.+--+-- 'type'', 'describeSchemaResponse_type' - The type of the schema.+--+-- 'versionCreatedDate', 'describeSchemaResponse_versionCreatedDate' - The date the schema version was created.+--+-- 'httpStatus', 'describeSchemaResponse_httpStatus' - The response's http status code.+newDescribeSchemaResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSchemaResponse+newDescribeSchemaResponse pHttpStatus_ =+  DescribeSchemaResponse'+    { content = Prelude.Nothing,+      description = Prelude.Nothing,+      lastModified = Prelude.Nothing,+      schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      tags = Prelude.Nothing,+      type' = Prelude.Nothing,+      versionCreatedDate = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The source of the schema definition.+describeSchemaResponse_content :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.Text)+describeSchemaResponse_content = Lens.lens (\DescribeSchemaResponse' {content} -> content) (\s@DescribeSchemaResponse' {} a -> s {content = a} :: DescribeSchemaResponse)++-- | The description of the schema.+describeSchemaResponse_description :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.Text)+describeSchemaResponse_description = Lens.lens (\DescribeSchemaResponse' {description} -> description) (\s@DescribeSchemaResponse' {} a -> s {description = a} :: DescribeSchemaResponse)++-- | The date and time that schema was modified.+describeSchemaResponse_lastModified :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.UTCTime)+describeSchemaResponse_lastModified = Lens.lens (\DescribeSchemaResponse' {lastModified} -> lastModified) (\s@DescribeSchemaResponse' {} a -> s {lastModified = a} :: DescribeSchemaResponse) Prelude.. Lens.mapping Data._Time++-- | The ARN of the schema.+describeSchemaResponse_schemaArn :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.Text)+describeSchemaResponse_schemaArn = Lens.lens (\DescribeSchemaResponse' {schemaArn} -> schemaArn) (\s@DescribeSchemaResponse' {} a -> s {schemaArn = a} :: DescribeSchemaResponse)++-- | The name of the schema.+describeSchemaResponse_schemaName :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.Text)+describeSchemaResponse_schemaName = Lens.lens (\DescribeSchemaResponse' {schemaName} -> schemaName) (\s@DescribeSchemaResponse' {} a -> s {schemaName = a} :: DescribeSchemaResponse)++-- | The version number of the schema+describeSchemaResponse_schemaVersion :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.Text)+describeSchemaResponse_schemaVersion = Lens.lens (\DescribeSchemaResponse' {schemaVersion} -> schemaVersion) (\s@DescribeSchemaResponse' {} a -> s {schemaVersion = a} :: DescribeSchemaResponse)++-- | Tags associated with the resource.+describeSchemaResponse_tags :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+describeSchemaResponse_tags = Lens.lens (\DescribeSchemaResponse' {tags} -> tags) (\s@DescribeSchemaResponse' {} a -> s {tags = a} :: DescribeSchemaResponse) Prelude.. Lens.mapping Lens.coerced++-- | The type of the schema.+describeSchemaResponse_type :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.Text)+describeSchemaResponse_type = Lens.lens (\DescribeSchemaResponse' {type'} -> type') (\s@DescribeSchemaResponse' {} a -> s {type' = a} :: DescribeSchemaResponse)++-- | The date the schema version was created.+describeSchemaResponse_versionCreatedDate :: Lens.Lens' DescribeSchemaResponse (Prelude.Maybe Prelude.UTCTime)+describeSchemaResponse_versionCreatedDate = Lens.lens (\DescribeSchemaResponse' {versionCreatedDate} -> versionCreatedDate) (\s@DescribeSchemaResponse' {} a -> s {versionCreatedDate = a} :: DescribeSchemaResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeSchemaResponse_httpStatus :: Lens.Lens' DescribeSchemaResponse Prelude.Int+describeSchemaResponse_httpStatus = Lens.lens (\DescribeSchemaResponse' {httpStatus} -> httpStatus) (\s@DescribeSchemaResponse' {} a -> s {httpStatus = a} :: DescribeSchemaResponse)++instance Prelude.NFData DescribeSchemaResponse where+  rnf DescribeSchemaResponse' {..} =+    Prelude.rnf content+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf versionCreatedDate+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/ExportSchema.hs view
@@ -0,0 +1,251 @@+{-# 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.Schemas.ExportSchema+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- -- | Undocumented operation.+module Amazonka.Schemas.ExportSchema+  ( -- * Creating a Request+    ExportSchema (..),+    newExportSchema,++    -- * Request Lenses+    exportSchema_schemaVersion,+    exportSchema_registryName,+    exportSchema_schemaName,+    exportSchema_type,++    -- * Destructuring the Response+    ExportSchemaResponse (..),+    newExportSchemaResponse,++    -- * Response Lenses+    exportSchemaResponse_content,+    exportSchemaResponse_schemaArn,+    exportSchemaResponse_schemaName,+    exportSchemaResponse_schemaVersion,+    exportSchemaResponse_type,+    exportSchemaResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newExportSchema' smart constructor.+data ExportSchema = ExportSchema'+  { -- | Specifying this limits the results to only this schema version.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text,+    type' :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ExportSchema' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaVersion', 'exportSchema_schemaVersion' - Specifying this limits the results to only this schema version.+--+-- 'registryName', 'exportSchema_registryName' - The name of the registry.+--+-- 'schemaName', 'exportSchema_schemaName' - The name of the schema.+--+-- 'type'', 'exportSchema_type' - Undocumented member.+newExportSchema ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  -- | 'type''+  Prelude.Text ->+  ExportSchema+newExportSchema pRegistryName_ pSchemaName_ pType_ =+  ExportSchema'+    { schemaVersion = Prelude.Nothing,+      registryName = pRegistryName_,+      schemaName = pSchemaName_,+      type' = pType_+    }++-- | Specifying this limits the results to only this schema version.+exportSchema_schemaVersion :: Lens.Lens' ExportSchema (Prelude.Maybe Prelude.Text)+exportSchema_schemaVersion = Lens.lens (\ExportSchema' {schemaVersion} -> schemaVersion) (\s@ExportSchema' {} a -> s {schemaVersion = a} :: ExportSchema)++-- | The name of the registry.+exportSchema_registryName :: Lens.Lens' ExportSchema Prelude.Text+exportSchema_registryName = Lens.lens (\ExportSchema' {registryName} -> registryName) (\s@ExportSchema' {} a -> s {registryName = a} :: ExportSchema)++-- | The name of the schema.+exportSchema_schemaName :: Lens.Lens' ExportSchema Prelude.Text+exportSchema_schemaName = Lens.lens (\ExportSchema' {schemaName} -> schemaName) (\s@ExportSchema' {} a -> s {schemaName = a} :: ExportSchema)++-- | Undocumented member.+exportSchema_type :: Lens.Lens' ExportSchema Prelude.Text+exportSchema_type = Lens.lens (\ExportSchema' {type'} -> type') (\s@ExportSchema' {} a -> s {type' = a} :: ExportSchema)++instance Core.AWSRequest ExportSchema where+  type AWSResponse ExportSchema = ExportSchemaResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ExportSchemaResponse'+            Prelude.<$> (x Data..?> "Content")+            Prelude.<*> (x Data..?> "SchemaArn")+            Prelude.<*> (x Data..?> "SchemaName")+            Prelude.<*> (x Data..?> "SchemaVersion")+            Prelude.<*> (x Data..?> "Type")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ExportSchema where+  hashWithSalt _salt ExportSchema' {..} =+    _salt+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` type'++instance Prelude.NFData ExportSchema where+  rnf ExportSchema' {..} =+    Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders ExportSchema where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ExportSchema where+  toPath ExportSchema' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName,+        "/export"+      ]++instance Data.ToQuery ExportSchema where+  toQuery ExportSchema' {..} =+    Prelude.mconcat+      [ "schemaVersion" Data.=: schemaVersion,+        "type" Data.=: type'+      ]++-- | /See:/ 'newExportSchemaResponse' smart constructor.+data ExportSchemaResponse = ExportSchemaResponse'+  { content :: Prelude.Maybe Prelude.Text,+    schemaArn :: Prelude.Maybe Prelude.Text,+    schemaName :: Prelude.Maybe Prelude.Text,+    schemaVersion :: Prelude.Maybe Prelude.Text,+    type' :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ExportSchemaResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'content', 'exportSchemaResponse_content' - Undocumented member.+--+-- 'schemaArn', 'exportSchemaResponse_schemaArn' - Undocumented member.+--+-- 'schemaName', 'exportSchemaResponse_schemaName' - Undocumented member.+--+-- 'schemaVersion', 'exportSchemaResponse_schemaVersion' - Undocumented member.+--+-- 'type'', 'exportSchemaResponse_type' - Undocumented member.+--+-- 'httpStatus', 'exportSchemaResponse_httpStatus' - The response's http status code.+newExportSchemaResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ExportSchemaResponse+newExportSchemaResponse pHttpStatus_ =+  ExportSchemaResponse'+    { content = Prelude.Nothing,+      schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      type' = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+exportSchemaResponse_content :: Lens.Lens' ExportSchemaResponse (Prelude.Maybe Prelude.Text)+exportSchemaResponse_content = Lens.lens (\ExportSchemaResponse' {content} -> content) (\s@ExportSchemaResponse' {} a -> s {content = a} :: ExportSchemaResponse)++-- | Undocumented member.+exportSchemaResponse_schemaArn :: Lens.Lens' ExportSchemaResponse (Prelude.Maybe Prelude.Text)+exportSchemaResponse_schemaArn = Lens.lens (\ExportSchemaResponse' {schemaArn} -> schemaArn) (\s@ExportSchemaResponse' {} a -> s {schemaArn = a} :: ExportSchemaResponse)++-- | Undocumented member.+exportSchemaResponse_schemaName :: Lens.Lens' ExportSchemaResponse (Prelude.Maybe Prelude.Text)+exportSchemaResponse_schemaName = Lens.lens (\ExportSchemaResponse' {schemaName} -> schemaName) (\s@ExportSchemaResponse' {} a -> s {schemaName = a} :: ExportSchemaResponse)++-- | Undocumented member.+exportSchemaResponse_schemaVersion :: Lens.Lens' ExportSchemaResponse (Prelude.Maybe Prelude.Text)+exportSchemaResponse_schemaVersion = Lens.lens (\ExportSchemaResponse' {schemaVersion} -> schemaVersion) (\s@ExportSchemaResponse' {} a -> s {schemaVersion = a} :: ExportSchemaResponse)++-- | Undocumented member.+exportSchemaResponse_type :: Lens.Lens' ExportSchemaResponse (Prelude.Maybe Prelude.Text)+exportSchemaResponse_type = Lens.lens (\ExportSchemaResponse' {type'} -> type') (\s@ExportSchemaResponse' {} a -> s {type' = a} :: ExportSchemaResponse)++-- | The response's http status code.+exportSchemaResponse_httpStatus :: Lens.Lens' ExportSchemaResponse Prelude.Int+exportSchemaResponse_httpStatus = Lens.lens (\ExportSchemaResponse' {httpStatus} -> httpStatus) (\s@ExportSchemaResponse' {} a -> s {httpStatus = a} :: ExportSchemaResponse)++instance Prelude.NFData ExportSchemaResponse where+  rnf ExportSchemaResponse' {..} =+    Prelude.rnf content+      `Prelude.seq` Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/GetCodeBindingSource.hs view
@@ -0,0 +1,215 @@+{-# 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.Schemas.GetCodeBindingSource+-- 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 code binding source URI.+module Amazonka.Schemas.GetCodeBindingSource+  ( -- * Creating a Request+    GetCodeBindingSource (..),+    newGetCodeBindingSource,++    -- * Request Lenses+    getCodeBindingSource_schemaVersion,+    getCodeBindingSource_registryName,+    getCodeBindingSource_schemaName,+    getCodeBindingSource_language,++    -- * Destructuring the Response+    GetCodeBindingSourceResponse (..),+    newGetCodeBindingSourceResponse,++    -- * Response Lenses+    getCodeBindingSourceResponse_body,+    getCodeBindingSourceResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newGetCodeBindingSource' smart constructor.+data GetCodeBindingSource = GetCodeBindingSource'+  { -- | Specifying this limits the results to only this schema version.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text,+    -- | The language of the code binding.+    language :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetCodeBindingSource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaVersion', 'getCodeBindingSource_schemaVersion' - Specifying this limits the results to only this schema version.+--+-- 'registryName', 'getCodeBindingSource_registryName' - The name of the registry.+--+-- 'schemaName', 'getCodeBindingSource_schemaName' - The name of the schema.+--+-- 'language', 'getCodeBindingSource_language' - The language of the code binding.+newGetCodeBindingSource ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  -- | 'language'+  Prelude.Text ->+  GetCodeBindingSource+newGetCodeBindingSource+  pRegistryName_+  pSchemaName_+  pLanguage_ =+    GetCodeBindingSource'+      { schemaVersion =+          Prelude.Nothing,+        registryName = pRegistryName_,+        schemaName = pSchemaName_,+        language = pLanguage_+      }++-- | Specifying this limits the results to only this schema version.+getCodeBindingSource_schemaVersion :: Lens.Lens' GetCodeBindingSource (Prelude.Maybe Prelude.Text)+getCodeBindingSource_schemaVersion = Lens.lens (\GetCodeBindingSource' {schemaVersion} -> schemaVersion) (\s@GetCodeBindingSource' {} a -> s {schemaVersion = a} :: GetCodeBindingSource)++-- | The name of the registry.+getCodeBindingSource_registryName :: Lens.Lens' GetCodeBindingSource Prelude.Text+getCodeBindingSource_registryName = Lens.lens (\GetCodeBindingSource' {registryName} -> registryName) (\s@GetCodeBindingSource' {} a -> s {registryName = a} :: GetCodeBindingSource)++-- | The name of the schema.+getCodeBindingSource_schemaName :: Lens.Lens' GetCodeBindingSource Prelude.Text+getCodeBindingSource_schemaName = Lens.lens (\GetCodeBindingSource' {schemaName} -> schemaName) (\s@GetCodeBindingSource' {} a -> s {schemaName = a} :: GetCodeBindingSource)++-- | The language of the code binding.+getCodeBindingSource_language :: Lens.Lens' GetCodeBindingSource Prelude.Text+getCodeBindingSource_language = Lens.lens (\GetCodeBindingSource' {language} -> language) (\s@GetCodeBindingSource' {} a -> s {language = a} :: GetCodeBindingSource)++instance Core.AWSRequest GetCodeBindingSource where+  type+    AWSResponse GetCodeBindingSource =+      GetCodeBindingSourceResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveBytes+      ( \s h x ->+          GetCodeBindingSourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.Just (Prelude.coerce x)))+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetCodeBindingSource where+  hashWithSalt _salt GetCodeBindingSource' {..} =+    _salt+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` language++instance Prelude.NFData GetCodeBindingSource where+  rnf GetCodeBindingSource' {..} =+    Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf language++instance Data.ToHeaders GetCodeBindingSource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetCodeBindingSource where+  toPath GetCodeBindingSource' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName,+        "/language/",+        Data.toBS language,+        "/source"+      ]++instance Data.ToQuery GetCodeBindingSource where+  toQuery GetCodeBindingSource' {..} =+    Prelude.mconcat+      ["schemaVersion" Data.=: schemaVersion]++-- | /See:/ 'newGetCodeBindingSourceResponse' smart constructor.+data GetCodeBindingSourceResponse = GetCodeBindingSourceResponse'+  { body :: Prelude.Maybe Prelude.ByteString,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetCodeBindingSourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'body', 'getCodeBindingSourceResponse_body' - Undocumented member.+--+-- 'httpStatus', 'getCodeBindingSourceResponse_httpStatus' - The response's http status code.+newGetCodeBindingSourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetCodeBindingSourceResponse+newGetCodeBindingSourceResponse pHttpStatus_ =+  GetCodeBindingSourceResponse'+    { body =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+getCodeBindingSourceResponse_body :: Lens.Lens' GetCodeBindingSourceResponse (Prelude.Maybe Prelude.ByteString)+getCodeBindingSourceResponse_body = Lens.lens (\GetCodeBindingSourceResponse' {body} -> body) (\s@GetCodeBindingSourceResponse' {} a -> s {body = a} :: GetCodeBindingSourceResponse)++-- | The response's http status code.+getCodeBindingSourceResponse_httpStatus :: Lens.Lens' GetCodeBindingSourceResponse Prelude.Int+getCodeBindingSourceResponse_httpStatus = Lens.lens (\GetCodeBindingSourceResponse' {httpStatus} -> httpStatus) (\s@GetCodeBindingSourceResponse' {} a -> s {httpStatus = a} :: GetCodeBindingSourceResponse)++instance Prelude.NFData GetCodeBindingSourceResponse where+  rnf GetCodeBindingSourceResponse' {..} =+    Prelude.rnf body+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/GetDiscoveredSchema.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.GetDiscoveredSchema+-- 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 discovered schema that was generated based on sampled events.+module Amazonka.Schemas.GetDiscoveredSchema+  ( -- * Creating a Request+    GetDiscoveredSchema (..),+    newGetDiscoveredSchema,++    -- * Request Lenses+    getDiscoveredSchema_type,+    getDiscoveredSchema_events,++    -- * Destructuring the Response+    GetDiscoveredSchemaResponse (..),+    newGetDiscoveredSchemaResponse,++    -- * Response Lenses+    getDiscoveredSchemaResponse_content,+    getDiscoveredSchemaResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newGetDiscoveredSchema' smart constructor.+data GetDiscoveredSchema = GetDiscoveredSchema'+  { -- | The type of event.+    type' :: Type,+    -- | An array of strings where each string is a JSON event. These are the+    -- events that were used to generate the schema. The array includes a+    -- single type of event and has a maximum size of 10 events.+    events :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDiscoveredSchema' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'type'', 'getDiscoveredSchema_type' - The type of event.+--+-- 'events', 'getDiscoveredSchema_events' - An array of strings where each string is a JSON event. These are the+-- events that were used to generate the schema. The array includes a+-- single type of event and has a maximum size of 10 events.+newGetDiscoveredSchema ::+  -- | 'type''+  Type ->+  -- | 'events'+  Prelude.NonEmpty Prelude.Text ->+  GetDiscoveredSchema+newGetDiscoveredSchema pType_ pEvents_ =+  GetDiscoveredSchema'+    { type' = pType_,+      events = Lens.coerced Lens.# pEvents_+    }++-- | The type of event.+getDiscoveredSchema_type :: Lens.Lens' GetDiscoveredSchema Type+getDiscoveredSchema_type = Lens.lens (\GetDiscoveredSchema' {type'} -> type') (\s@GetDiscoveredSchema' {} a -> s {type' = a} :: GetDiscoveredSchema)++-- | An array of strings where each string is a JSON event. These are the+-- events that were used to generate the schema. The array includes a+-- single type of event and has a maximum size of 10 events.+getDiscoveredSchema_events :: Lens.Lens' GetDiscoveredSchema (Prelude.NonEmpty Prelude.Text)+getDiscoveredSchema_events = Lens.lens (\GetDiscoveredSchema' {events} -> events) (\s@GetDiscoveredSchema' {} a -> s {events = a} :: GetDiscoveredSchema) Prelude.. Lens.coerced++instance Core.AWSRequest GetDiscoveredSchema where+  type+    AWSResponse GetDiscoveredSchema =+      GetDiscoveredSchemaResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDiscoveredSchemaResponse'+            Prelude.<$> (x Data..?> "Content")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDiscoveredSchema where+  hashWithSalt _salt GetDiscoveredSchema' {..} =+    _salt+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` events++instance Prelude.NFData GetDiscoveredSchema where+  rnf GetDiscoveredSchema' {..} =+    Prelude.rnf type' `Prelude.seq` Prelude.rnf events++instance Data.ToHeaders GetDiscoveredSchema where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetDiscoveredSchema where+  toJSON GetDiscoveredSchema' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Type" Data..= type'),+            Prelude.Just ("Events" Data..= events)+          ]+      )++instance Data.ToPath GetDiscoveredSchema where+  toPath = Prelude.const "/v1/discover"++instance Data.ToQuery GetDiscoveredSchema where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetDiscoveredSchemaResponse' smart constructor.+data GetDiscoveredSchemaResponse = GetDiscoveredSchemaResponse'+  { -- | The source of the schema definition.+    content :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDiscoveredSchemaResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'content', 'getDiscoveredSchemaResponse_content' - The source of the schema definition.+--+-- 'httpStatus', 'getDiscoveredSchemaResponse_httpStatus' - The response's http status code.+newGetDiscoveredSchemaResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDiscoveredSchemaResponse+newGetDiscoveredSchemaResponse pHttpStatus_ =+  GetDiscoveredSchemaResponse'+    { content =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The source of the schema definition.+getDiscoveredSchemaResponse_content :: Lens.Lens' GetDiscoveredSchemaResponse (Prelude.Maybe Prelude.Text)+getDiscoveredSchemaResponse_content = Lens.lens (\GetDiscoveredSchemaResponse' {content} -> content) (\s@GetDiscoveredSchemaResponse' {} a -> s {content = a} :: GetDiscoveredSchemaResponse)++-- | The response's http status code.+getDiscoveredSchemaResponse_httpStatus :: Lens.Lens' GetDiscoveredSchemaResponse Prelude.Int+getDiscoveredSchemaResponse_httpStatus = Lens.lens (\GetDiscoveredSchemaResponse' {httpStatus} -> httpStatus) (\s@GetDiscoveredSchemaResponse' {} a -> s {httpStatus = a} :: GetDiscoveredSchemaResponse)++instance Prelude.NFData GetDiscoveredSchemaResponse where+  rnf GetDiscoveredSchemaResponse' {..} =+    Prelude.rnf content+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/GetResourcePolicy.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.GetResourcePolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the resource-based policy attached to a given registry.+module Amazonka.Schemas.GetResourcePolicy+  ( -- * Creating a Request+    GetResourcePolicy (..),+    newGetResourcePolicy,++    -- * Request Lenses+    getResourcePolicy_registryName,++    -- * Destructuring the Response+    GetResourcePolicyResponse (..),+    newGetResourcePolicyResponse,++    -- * Response Lenses+    getResourcePolicyResponse_policy,+    getResourcePolicyResponse_revisionId,+    getResourcePolicyResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newGetResourcePolicy' smart constructor.+data GetResourcePolicy = GetResourcePolicy'+  { -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetResourcePolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'getResourcePolicy_registryName' - The name of the registry.+newGetResourcePolicy ::+  GetResourcePolicy+newGetResourcePolicy =+  GetResourcePolicy' {registryName = Prelude.Nothing}++-- | The name of the registry.+getResourcePolicy_registryName :: Lens.Lens' GetResourcePolicy (Prelude.Maybe Prelude.Text)+getResourcePolicy_registryName = Lens.lens (\GetResourcePolicy' {registryName} -> registryName) (\s@GetResourcePolicy' {} a -> s {registryName = a} :: GetResourcePolicy)++instance Core.AWSRequest GetResourcePolicy where+  type+    AWSResponse GetResourcePolicy =+      GetResourcePolicyResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetResourcePolicyResponse'+            Prelude.<$> (x Data..?> "Policy")+            Prelude.<*> (x Data..?> "RevisionId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetResourcePolicy where+  hashWithSalt _salt GetResourcePolicy' {..} =+    _salt `Prelude.hashWithSalt` registryName++instance Prelude.NFData GetResourcePolicy where+  rnf GetResourcePolicy' {..} = Prelude.rnf registryName++instance Data.ToHeaders GetResourcePolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath GetResourcePolicy where+  toPath = Prelude.const "/v1/policy"++instance Data.ToQuery GetResourcePolicy where+  toQuery GetResourcePolicy' {..} =+    Prelude.mconcat+      ["registryName" Data.=: registryName]++-- | /See:/ 'newGetResourcePolicyResponse' smart constructor.+data GetResourcePolicyResponse = GetResourcePolicyResponse'+  { -- | The resource-based policy.+    policy :: Prelude.Maybe Prelude.Text,+    -- | The revision ID.+    revisionId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetResourcePolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'policy', 'getResourcePolicyResponse_policy' - The resource-based policy.+--+-- 'revisionId', 'getResourcePolicyResponse_revisionId' - The revision ID.+--+-- 'httpStatus', 'getResourcePolicyResponse_httpStatus' - The response's http status code.+newGetResourcePolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetResourcePolicyResponse+newGetResourcePolicyResponse pHttpStatus_ =+  GetResourcePolicyResponse'+    { policy =+        Prelude.Nothing,+      revisionId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The resource-based policy.+getResourcePolicyResponse_policy :: Lens.Lens' GetResourcePolicyResponse (Prelude.Maybe Prelude.Text)+getResourcePolicyResponse_policy = Lens.lens (\GetResourcePolicyResponse' {policy} -> policy) (\s@GetResourcePolicyResponse' {} a -> s {policy = a} :: GetResourcePolicyResponse)++-- | The revision ID.+getResourcePolicyResponse_revisionId :: Lens.Lens' GetResourcePolicyResponse (Prelude.Maybe Prelude.Text)+getResourcePolicyResponse_revisionId = Lens.lens (\GetResourcePolicyResponse' {revisionId} -> revisionId) (\s@GetResourcePolicyResponse' {} a -> s {revisionId = a} :: GetResourcePolicyResponse)++-- | The response's http status code.+getResourcePolicyResponse_httpStatus :: Lens.Lens' GetResourcePolicyResponse Prelude.Int+getResourcePolicyResponse_httpStatus = Lens.lens (\GetResourcePolicyResponse' {httpStatus} -> httpStatus) (\s@GetResourcePolicyResponse' {} a -> s {httpStatus = a} :: GetResourcePolicyResponse)++instance Prelude.NFData GetResourcePolicyResponse where+  rnf GetResourcePolicyResponse' {..} =+    Prelude.rnf policy+      `Prelude.seq` Prelude.rnf revisionId+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/Lens.hs view
@@ -0,0 +1,358 @@+{-# 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.Schemas.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.Schemas.Lens+  ( -- * Operations++    -- ** CreateDiscoverer+    createDiscoverer_crossAccount,+    createDiscoverer_description,+    createDiscoverer_tags,+    createDiscoverer_sourceArn,+    createDiscovererResponse_crossAccount,+    createDiscovererResponse_description,+    createDiscovererResponse_discovererArn,+    createDiscovererResponse_discovererId,+    createDiscovererResponse_sourceArn,+    createDiscovererResponse_state,+    createDiscovererResponse_tags,+    createDiscovererResponse_httpStatus,++    -- ** CreateRegistry+    createRegistry_description,+    createRegistry_tags,+    createRegistry_registryName,+    createRegistryResponse_description,+    createRegistryResponse_registryArn,+    createRegistryResponse_registryName,+    createRegistryResponse_tags,+    createRegistryResponse_httpStatus,++    -- ** CreateSchema+    createSchema_description,+    createSchema_tags,+    createSchema_registryName,+    createSchema_schemaName,+    createSchema_type,+    createSchema_content,+    createSchemaResponse_description,+    createSchemaResponse_lastModified,+    createSchemaResponse_schemaArn,+    createSchemaResponse_schemaName,+    createSchemaResponse_schemaVersion,+    createSchemaResponse_tags,+    createSchemaResponse_type,+    createSchemaResponse_versionCreatedDate,+    createSchemaResponse_httpStatus,++    -- ** DeleteDiscoverer+    deleteDiscoverer_discovererId,++    -- ** DeleteRegistry+    deleteRegistry_registryName,++    -- ** DeleteResourcePolicy+    deleteResourcePolicy_registryName,++    -- ** DeleteSchema+    deleteSchema_registryName,+    deleteSchema_schemaName,++    -- ** DeleteSchemaVersion+    deleteSchemaVersion_schemaVersion,+    deleteSchemaVersion_registryName,+    deleteSchemaVersion_schemaName,++    -- ** DescribeCodeBinding+    describeCodeBinding_schemaVersion,+    describeCodeBinding_registryName,+    describeCodeBinding_schemaName,+    describeCodeBinding_language,+    describeCodeBindingResponse_creationDate,+    describeCodeBindingResponse_lastModified,+    describeCodeBindingResponse_schemaVersion,+    describeCodeBindingResponse_status,+    describeCodeBindingResponse_httpStatus,++    -- ** DescribeDiscoverer+    describeDiscoverer_discovererId,+    describeDiscovererResponse_crossAccount,+    describeDiscovererResponse_description,+    describeDiscovererResponse_discovererArn,+    describeDiscovererResponse_discovererId,+    describeDiscovererResponse_sourceArn,+    describeDiscovererResponse_state,+    describeDiscovererResponse_tags,+    describeDiscovererResponse_httpStatus,++    -- ** DescribeRegistry+    describeRegistry_registryName,+    describeRegistryResponse_description,+    describeRegistryResponse_registryArn,+    describeRegistryResponse_registryName,+    describeRegistryResponse_tags,+    describeRegistryResponse_httpStatus,++    -- ** DescribeSchema+    describeSchema_schemaVersion,+    describeSchema_registryName,+    describeSchema_schemaName,+    describeSchemaResponse_content,+    describeSchemaResponse_description,+    describeSchemaResponse_lastModified,+    describeSchemaResponse_schemaArn,+    describeSchemaResponse_schemaName,+    describeSchemaResponse_schemaVersion,+    describeSchemaResponse_tags,+    describeSchemaResponse_type,+    describeSchemaResponse_versionCreatedDate,+    describeSchemaResponse_httpStatus,++    -- ** ExportSchema+    exportSchema_schemaVersion,+    exportSchema_registryName,+    exportSchema_schemaName,+    exportSchema_type,+    exportSchemaResponse_content,+    exportSchemaResponse_schemaArn,+    exportSchemaResponse_schemaName,+    exportSchemaResponse_schemaVersion,+    exportSchemaResponse_type,+    exportSchemaResponse_httpStatus,++    -- ** GetCodeBindingSource+    getCodeBindingSource_schemaVersion,+    getCodeBindingSource_registryName,+    getCodeBindingSource_schemaName,+    getCodeBindingSource_language,+    getCodeBindingSourceResponse_body,+    getCodeBindingSourceResponse_httpStatus,++    -- ** GetDiscoveredSchema+    getDiscoveredSchema_type,+    getDiscoveredSchema_events,+    getDiscoveredSchemaResponse_content,+    getDiscoveredSchemaResponse_httpStatus,++    -- ** GetResourcePolicy+    getResourcePolicy_registryName,+    getResourcePolicyResponse_policy,+    getResourcePolicyResponse_revisionId,+    getResourcePolicyResponse_httpStatus,++    -- ** ListDiscoverers+    listDiscoverers_discovererIdPrefix,+    listDiscoverers_limit,+    listDiscoverers_nextToken,+    listDiscoverers_sourceArnPrefix,+    listDiscoverersResponse_discoverers,+    listDiscoverersResponse_nextToken,+    listDiscoverersResponse_httpStatus,++    -- ** ListRegistries+    listRegistries_limit,+    listRegistries_nextToken,+    listRegistries_registryNamePrefix,+    listRegistries_scope,+    listRegistriesResponse_nextToken,+    listRegistriesResponse_registries,+    listRegistriesResponse_httpStatus,++    -- ** ListSchemaVersions+    listSchemaVersions_limit,+    listSchemaVersions_nextToken,+    listSchemaVersions_registryName,+    listSchemaVersions_schemaName,+    listSchemaVersionsResponse_nextToken,+    listSchemaVersionsResponse_schemaVersions,+    listSchemaVersionsResponse_httpStatus,++    -- ** ListSchemas+    listSchemas_limit,+    listSchemas_nextToken,+    listSchemas_schemaNamePrefix,+    listSchemas_registryName,+    listSchemasResponse_nextToken,+    listSchemasResponse_schemas,+    listSchemasResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** PutCodeBinding+    putCodeBinding_schemaVersion,+    putCodeBinding_registryName,+    putCodeBinding_schemaName,+    putCodeBinding_language,+    putCodeBindingResponse_creationDate,+    putCodeBindingResponse_lastModified,+    putCodeBindingResponse_schemaVersion,+    putCodeBindingResponse_status,+    putCodeBindingResponse_httpStatus,++    -- ** PutResourcePolicy+    putResourcePolicy_registryName,+    putResourcePolicy_revisionId,+    putResourcePolicy_policy,+    putResourcePolicyResponse_policy,+    putResourcePolicyResponse_revisionId,+    putResourcePolicyResponse_httpStatus,++    -- ** SearchSchemas+    searchSchemas_limit,+    searchSchemas_nextToken,+    searchSchemas_registryName,+    searchSchemas_keywords,+    searchSchemasResponse_nextToken,+    searchSchemasResponse_schemas,+    searchSchemasResponse_httpStatus,++    -- ** StartDiscoverer+    startDiscoverer_discovererId,+    startDiscovererResponse_discovererId,+    startDiscovererResponse_state,+    startDiscovererResponse_httpStatus,++    -- ** StopDiscoverer+    stopDiscoverer_discovererId,+    stopDiscovererResponse_discovererId,+    stopDiscovererResponse_state,+    stopDiscovererResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceArn,+    tagResource_tags,++    -- ** UntagResource+    untagResource_tagKeys,+    untagResource_resourceArn,++    -- ** UpdateDiscoverer+    updateDiscoverer_crossAccount,+    updateDiscoverer_description,+    updateDiscoverer_discovererId,+    updateDiscovererResponse_crossAccount,+    updateDiscovererResponse_description,+    updateDiscovererResponse_discovererArn,+    updateDiscovererResponse_discovererId,+    updateDiscovererResponse_sourceArn,+    updateDiscovererResponse_state,+    updateDiscovererResponse_tags,+    updateDiscovererResponse_httpStatus,++    -- ** UpdateRegistry+    updateRegistry_description,+    updateRegistry_registryName,+    updateRegistryResponse_description,+    updateRegistryResponse_registryArn,+    updateRegistryResponse_registryName,+    updateRegistryResponse_tags,+    updateRegistryResponse_httpStatus,++    -- ** UpdateSchema+    updateSchema_clientTokenId,+    updateSchema_content,+    updateSchema_description,+    updateSchema_type,+    updateSchema_registryName,+    updateSchema_schemaName,+    updateSchemaResponse_description,+    updateSchemaResponse_lastModified,+    updateSchemaResponse_schemaArn,+    updateSchemaResponse_schemaName,+    updateSchemaResponse_schemaVersion,+    updateSchemaResponse_tags,+    updateSchemaResponse_type,+    updateSchemaResponse_versionCreatedDate,+    updateSchemaResponse_httpStatus,++    -- * Types++    -- ** DiscovererSummary+    discovererSummary_crossAccount,+    discovererSummary_discovererArn,+    discovererSummary_discovererId,+    discovererSummary_sourceArn,+    discovererSummary_state,+    discovererSummary_tags,++    -- ** RegistrySummary+    registrySummary_registryArn,+    registrySummary_registryName,+    registrySummary_tags,++    -- ** SchemaSummary+    schemaSummary_lastModified,+    schemaSummary_schemaArn,+    schemaSummary_schemaName,+    schemaSummary_tags,+    schemaSummary_versionCount,++    -- ** SchemaVersionSummary+    schemaVersionSummary_schemaArn,+    schemaVersionSummary_schemaName,+    schemaVersionSummary_schemaVersion,+    schemaVersionSummary_type,++    -- ** SearchSchemaSummary+    searchSchemaSummary_registryName,+    searchSchemaSummary_schemaArn,+    searchSchemaSummary_schemaName,+    searchSchemaSummary_schemaVersions,++    -- ** SearchSchemaVersionSummary+    searchSchemaVersionSummary_createdDate,+    searchSchemaVersionSummary_schemaVersion,+    searchSchemaVersionSummary_type,+  )+where++import Amazonka.Schemas.CreateDiscoverer+import Amazonka.Schemas.CreateRegistry+import Amazonka.Schemas.CreateSchema+import Amazonka.Schemas.DeleteDiscoverer+import Amazonka.Schemas.DeleteRegistry+import Amazonka.Schemas.DeleteResourcePolicy+import Amazonka.Schemas.DeleteSchema+import Amazonka.Schemas.DeleteSchemaVersion+import Amazonka.Schemas.DescribeCodeBinding+import Amazonka.Schemas.DescribeDiscoverer+import Amazonka.Schemas.DescribeRegistry+import Amazonka.Schemas.DescribeSchema+import Amazonka.Schemas.ExportSchema+import Amazonka.Schemas.GetCodeBindingSource+import Amazonka.Schemas.GetDiscoveredSchema+import Amazonka.Schemas.GetResourcePolicy+import Amazonka.Schemas.ListDiscoverers+import Amazonka.Schemas.ListRegistries+import Amazonka.Schemas.ListSchemaVersions+import Amazonka.Schemas.ListSchemas+import Amazonka.Schemas.ListTagsForResource+import Amazonka.Schemas.PutCodeBinding+import Amazonka.Schemas.PutResourcePolicy+import Amazonka.Schemas.SearchSchemas+import Amazonka.Schemas.StartDiscoverer+import Amazonka.Schemas.StopDiscoverer+import Amazonka.Schemas.TagResource+import Amazonka.Schemas.Types.DiscovererSummary+import Amazonka.Schemas.Types.RegistrySummary+import Amazonka.Schemas.Types.SchemaSummary+import Amazonka.Schemas.Types.SchemaVersionSummary+import Amazonka.Schemas.Types.SearchSchemaSummary+import Amazonka.Schemas.Types.SearchSchemaVersionSummary+import Amazonka.Schemas.UntagResource+import Amazonka.Schemas.UpdateDiscoverer+import Amazonka.Schemas.UpdateRegistry+import Amazonka.Schemas.UpdateSchema
+ gen/Amazonka/Schemas/ListDiscoverers.hs view
@@ -0,0 +1,255 @@+{-# 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.Schemas.ListDiscoverers+-- 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 discoverers.+--+-- This operation returns paginated results.+module Amazonka.Schemas.ListDiscoverers+  ( -- * Creating a Request+    ListDiscoverers (..),+    newListDiscoverers,++    -- * Request Lenses+    listDiscoverers_discovererIdPrefix,+    listDiscoverers_limit,+    listDiscoverers_nextToken,+    listDiscoverers_sourceArnPrefix,++    -- * Destructuring the Response+    ListDiscoverersResponse (..),+    newListDiscoverersResponse,++    -- * Response Lenses+    listDiscoverersResponse_discoverers,+    listDiscoverersResponse_nextToken,+    listDiscoverersResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newListDiscoverers' smart constructor.+data ListDiscoverers = ListDiscoverers'+  { -- | Specifying this limits the results to only those discoverer IDs that+    -- start with the specified prefix.+    discovererIdPrefix :: Prelude.Maybe Prelude.Text,+    limit :: Prelude.Maybe Prelude.Int,+    -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specifying this limits the results to only those ARNs that start with+    -- the specified prefix.+    sourceArnPrefix :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDiscoverers' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererIdPrefix', 'listDiscoverers_discovererIdPrefix' - Specifying this limits the results to only those discoverer IDs that+-- start with the specified prefix.+--+-- 'limit', 'listDiscoverers_limit' - Undocumented member.+--+-- 'nextToken', 'listDiscoverers_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'sourceArnPrefix', 'listDiscoverers_sourceArnPrefix' - Specifying this limits the results to only those ARNs that start with+-- the specified prefix.+newListDiscoverers ::+  ListDiscoverers+newListDiscoverers =+  ListDiscoverers'+    { discovererIdPrefix =+        Prelude.Nothing,+      limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      sourceArnPrefix = Prelude.Nothing+    }++-- | Specifying this limits the results to only those discoverer IDs that+-- start with the specified prefix.+listDiscoverers_discovererIdPrefix :: Lens.Lens' ListDiscoverers (Prelude.Maybe Prelude.Text)+listDiscoverers_discovererIdPrefix = Lens.lens (\ListDiscoverers' {discovererIdPrefix} -> discovererIdPrefix) (\s@ListDiscoverers' {} a -> s {discovererIdPrefix = a} :: ListDiscoverers)++-- | Undocumented member.+listDiscoverers_limit :: Lens.Lens' ListDiscoverers (Prelude.Maybe Prelude.Int)+listDiscoverers_limit = Lens.lens (\ListDiscoverers' {limit} -> limit) (\s@ListDiscoverers' {} a -> s {limit = a} :: ListDiscoverers)++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listDiscoverers_nextToken :: Lens.Lens' ListDiscoverers (Prelude.Maybe Prelude.Text)+listDiscoverers_nextToken = Lens.lens (\ListDiscoverers' {nextToken} -> nextToken) (\s@ListDiscoverers' {} a -> s {nextToken = a} :: ListDiscoverers)++-- | Specifying this limits the results to only those ARNs that start with+-- the specified prefix.+listDiscoverers_sourceArnPrefix :: Lens.Lens' ListDiscoverers (Prelude.Maybe Prelude.Text)+listDiscoverers_sourceArnPrefix = Lens.lens (\ListDiscoverers' {sourceArnPrefix} -> sourceArnPrefix) (\s@ListDiscoverers' {} a -> s {sourceArnPrefix = a} :: ListDiscoverers)++instance Core.AWSPager ListDiscoverers where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listDiscoverersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listDiscoverersResponse_discoverers+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listDiscoverers_nextToken+          Lens..~ rs+          Lens.^? listDiscoverersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListDiscoverers where+  type+    AWSResponse ListDiscoverers =+      ListDiscoverersResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListDiscoverersResponse'+            Prelude.<$> (x Data..?> "Discoverers" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListDiscoverers where+  hashWithSalt _salt ListDiscoverers' {..} =+    _salt+      `Prelude.hashWithSalt` discovererIdPrefix+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` sourceArnPrefix++instance Prelude.NFData ListDiscoverers where+  rnf ListDiscoverers' {..} =+    Prelude.rnf discovererIdPrefix+      `Prelude.seq` Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sourceArnPrefix++instance Data.ToHeaders ListDiscoverers where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListDiscoverers where+  toPath = Prelude.const "/v1/discoverers"++instance Data.ToQuery ListDiscoverers where+  toQuery ListDiscoverers' {..} =+    Prelude.mconcat+      [ "discovererIdPrefix" Data.=: discovererIdPrefix,+        "limit" Data.=: limit,+        "nextToken" Data.=: nextToken,+        "sourceArnPrefix" Data.=: sourceArnPrefix+      ]++-- | /See:/ 'newListDiscoverersResponse' smart constructor.+data ListDiscoverersResponse = ListDiscoverersResponse'+  { -- | An array of DiscovererSummary information.+    discoverers :: Prelude.Maybe [DiscovererSummary],+    -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListDiscoverersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discoverers', 'listDiscoverersResponse_discoverers' - An array of DiscovererSummary information.+--+-- 'nextToken', 'listDiscoverersResponse_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'httpStatus', 'listDiscoverersResponse_httpStatus' - The response's http status code.+newListDiscoverersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListDiscoverersResponse+newListDiscoverersResponse pHttpStatus_ =+  ListDiscoverersResponse'+    { discoverers =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array of DiscovererSummary information.+listDiscoverersResponse_discoverers :: Lens.Lens' ListDiscoverersResponse (Prelude.Maybe [DiscovererSummary])+listDiscoverersResponse_discoverers = Lens.lens (\ListDiscoverersResponse' {discoverers} -> discoverers) (\s@ListDiscoverersResponse' {} a -> s {discoverers = a} :: ListDiscoverersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listDiscoverersResponse_nextToken :: Lens.Lens' ListDiscoverersResponse (Prelude.Maybe Prelude.Text)+listDiscoverersResponse_nextToken = Lens.lens (\ListDiscoverersResponse' {nextToken} -> nextToken) (\s@ListDiscoverersResponse' {} a -> s {nextToken = a} :: ListDiscoverersResponse)++-- | The response's http status code.+listDiscoverersResponse_httpStatus :: Lens.Lens' ListDiscoverersResponse Prelude.Int+listDiscoverersResponse_httpStatus = Lens.lens (\ListDiscoverersResponse' {httpStatus} -> httpStatus) (\s@ListDiscoverersResponse' {} a -> s {httpStatus = a} :: ListDiscoverersResponse)++instance Prelude.NFData ListDiscoverersResponse where+  rnf ListDiscoverersResponse' {..} =+    Prelude.rnf discoverers+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/ListRegistries.hs view
@@ -0,0 +1,254 @@+{-# 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.Schemas.ListRegistries+-- 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 registries.+--+-- This operation returns paginated results.+module Amazonka.Schemas.ListRegistries+  ( -- * Creating a Request+    ListRegistries (..),+    newListRegistries,++    -- * Request Lenses+    listRegistries_limit,+    listRegistries_nextToken,+    listRegistries_registryNamePrefix,+    listRegistries_scope,++    -- * Destructuring the Response+    ListRegistriesResponse (..),+    newListRegistriesResponse,++    -- * Response Lenses+    listRegistriesResponse_nextToken,+    listRegistriesResponse_registries,+    listRegistriesResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newListRegistries' smart constructor.+data ListRegistries = ListRegistries'+  { limit :: Prelude.Maybe Prelude.Int,+    -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specifying this limits the results to only those registry names that+    -- start with the specified prefix.+    registryNamePrefix :: Prelude.Maybe Prelude.Text,+    -- | Can be set to Local or AWS to limit responses to your custom registries,+    -- or the ones provided by AWS.+    scope :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRegistries' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listRegistries_limit' - Undocumented member.+--+-- 'nextToken', 'listRegistries_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'registryNamePrefix', 'listRegistries_registryNamePrefix' - Specifying this limits the results to only those registry names that+-- start with the specified prefix.+--+-- 'scope', 'listRegistries_scope' - Can be set to Local or AWS to limit responses to your custom registries,+-- or the ones provided by AWS.+newListRegistries ::+  ListRegistries+newListRegistries =+  ListRegistries'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      registryNamePrefix = Prelude.Nothing,+      scope = Prelude.Nothing+    }++-- | Undocumented member.+listRegistries_limit :: Lens.Lens' ListRegistries (Prelude.Maybe Prelude.Int)+listRegistries_limit = Lens.lens (\ListRegistries' {limit} -> limit) (\s@ListRegistries' {} a -> s {limit = a} :: ListRegistries)++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listRegistries_nextToken :: Lens.Lens' ListRegistries (Prelude.Maybe Prelude.Text)+listRegistries_nextToken = Lens.lens (\ListRegistries' {nextToken} -> nextToken) (\s@ListRegistries' {} a -> s {nextToken = a} :: ListRegistries)++-- | Specifying this limits the results to only those registry names that+-- start with the specified prefix.+listRegistries_registryNamePrefix :: Lens.Lens' ListRegistries (Prelude.Maybe Prelude.Text)+listRegistries_registryNamePrefix = Lens.lens (\ListRegistries' {registryNamePrefix} -> registryNamePrefix) (\s@ListRegistries' {} a -> s {registryNamePrefix = a} :: ListRegistries)++-- | Can be set to Local or AWS to limit responses to your custom registries,+-- or the ones provided by AWS.+listRegistries_scope :: Lens.Lens' ListRegistries (Prelude.Maybe Prelude.Text)+listRegistries_scope = Lens.lens (\ListRegistries' {scope} -> scope) (\s@ListRegistries' {} a -> s {scope = a} :: ListRegistries)++instance Core.AWSPager ListRegistries where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listRegistriesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listRegistriesResponse_registries+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listRegistries_nextToken+          Lens..~ rs+          Lens.^? listRegistriesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListRegistries where+  type+    AWSResponse ListRegistries =+      ListRegistriesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListRegistriesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Registries" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListRegistries where+  hashWithSalt _salt ListRegistries' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` registryNamePrefix+      `Prelude.hashWithSalt` scope++instance Prelude.NFData ListRegistries where+  rnf ListRegistries' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf registryNamePrefix+      `Prelude.seq` Prelude.rnf scope++instance Data.ToHeaders ListRegistries where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListRegistries where+  toPath = Prelude.const "/v1/registries"++instance Data.ToQuery ListRegistries where+  toQuery ListRegistries' {..} =+    Prelude.mconcat+      [ "limit" Data.=: limit,+        "nextToken" Data.=: nextToken,+        "registryNamePrefix" Data.=: registryNamePrefix,+        "scope" Data.=: scope+      ]++-- | /See:/ 'newListRegistriesResponse' smart constructor.+data ListRegistriesResponse = ListRegistriesResponse'+  { -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of registry summaries.+    registries :: Prelude.Maybe [RegistrySummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListRegistriesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listRegistriesResponse_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'registries', 'listRegistriesResponse_registries' - An array of registry summaries.+--+-- 'httpStatus', 'listRegistriesResponse_httpStatus' - The response's http status code.+newListRegistriesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListRegistriesResponse+newListRegistriesResponse pHttpStatus_ =+  ListRegistriesResponse'+    { nextToken =+        Prelude.Nothing,+      registries = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listRegistriesResponse_nextToken :: Lens.Lens' ListRegistriesResponse (Prelude.Maybe Prelude.Text)+listRegistriesResponse_nextToken = Lens.lens (\ListRegistriesResponse' {nextToken} -> nextToken) (\s@ListRegistriesResponse' {} a -> s {nextToken = a} :: ListRegistriesResponse)++-- | An array of registry summaries.+listRegistriesResponse_registries :: Lens.Lens' ListRegistriesResponse (Prelude.Maybe [RegistrySummary])+listRegistriesResponse_registries = Lens.lens (\ListRegistriesResponse' {registries} -> registries) (\s@ListRegistriesResponse' {} a -> s {registries = a} :: ListRegistriesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listRegistriesResponse_httpStatus :: Lens.Lens' ListRegistriesResponse Prelude.Int+listRegistriesResponse_httpStatus = Lens.lens (\ListRegistriesResponse' {httpStatus} -> httpStatus) (\s@ListRegistriesResponse' {} a -> s {httpStatus = a} :: ListRegistriesResponse)++instance Prelude.NFData ListRegistriesResponse where+  rnf ListRegistriesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf registries+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/ListSchemaVersions.hs view
@@ -0,0 +1,257 @@+{-# 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.Schemas.ListSchemaVersions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of the schema versions and related information.+--+-- This operation returns paginated results.+module Amazonka.Schemas.ListSchemaVersions+  ( -- * Creating a Request+    ListSchemaVersions (..),+    newListSchemaVersions,++    -- * Request Lenses+    listSchemaVersions_limit,+    listSchemaVersions_nextToken,+    listSchemaVersions_registryName,+    listSchemaVersions_schemaName,++    -- * Destructuring the Response+    ListSchemaVersionsResponse (..),+    newListSchemaVersionsResponse,++    -- * Response Lenses+    listSchemaVersionsResponse_nextToken,+    listSchemaVersionsResponse_schemaVersions,+    listSchemaVersionsResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newListSchemaVersions' smart constructor.+data ListSchemaVersions = ListSchemaVersions'+  { limit :: Prelude.Maybe Prelude.Int,+    -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSchemaVersions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listSchemaVersions_limit' - Undocumented member.+--+-- 'nextToken', 'listSchemaVersions_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'registryName', 'listSchemaVersions_registryName' - The name of the registry.+--+-- 'schemaName', 'listSchemaVersions_schemaName' - The name of the schema.+newListSchemaVersions ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  ListSchemaVersions+newListSchemaVersions pRegistryName_ pSchemaName_ =+  ListSchemaVersions'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      registryName = pRegistryName_,+      schemaName = pSchemaName_+    }++-- | Undocumented member.+listSchemaVersions_limit :: Lens.Lens' ListSchemaVersions (Prelude.Maybe Prelude.Int)+listSchemaVersions_limit = Lens.lens (\ListSchemaVersions' {limit} -> limit) (\s@ListSchemaVersions' {} a -> s {limit = a} :: ListSchemaVersions)++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listSchemaVersions_nextToken :: Lens.Lens' ListSchemaVersions (Prelude.Maybe Prelude.Text)+listSchemaVersions_nextToken = Lens.lens (\ListSchemaVersions' {nextToken} -> nextToken) (\s@ListSchemaVersions' {} a -> s {nextToken = a} :: ListSchemaVersions)++-- | The name of the registry.+listSchemaVersions_registryName :: Lens.Lens' ListSchemaVersions Prelude.Text+listSchemaVersions_registryName = Lens.lens (\ListSchemaVersions' {registryName} -> registryName) (\s@ListSchemaVersions' {} a -> s {registryName = a} :: ListSchemaVersions)++-- | The name of the schema.+listSchemaVersions_schemaName :: Lens.Lens' ListSchemaVersions Prelude.Text+listSchemaVersions_schemaName = Lens.lens (\ListSchemaVersions' {schemaName} -> schemaName) (\s@ListSchemaVersions' {} a -> s {schemaName = a} :: ListSchemaVersions)++instance Core.AWSPager ListSchemaVersions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSchemaVersionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSchemaVersionsResponse_schemaVersions+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSchemaVersions_nextToken+          Lens..~ rs+          Lens.^? listSchemaVersionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSchemaVersions where+  type+    AWSResponse ListSchemaVersions =+      ListSchemaVersionsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSchemaVersionsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "SchemaVersions" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSchemaVersions where+  hashWithSalt _salt ListSchemaVersions' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName++instance Prelude.NFData ListSchemaVersions where+  rnf ListSchemaVersions' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName++instance Data.ToHeaders ListSchemaVersions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListSchemaVersions where+  toPath ListSchemaVersions' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName,+        "/versions"+      ]++instance Data.ToQuery ListSchemaVersions where+  toQuery ListSchemaVersions' {..} =+    Prelude.mconcat+      [ "limit" Data.=: limit,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newListSchemaVersionsResponse' smart constructor.+data ListSchemaVersionsResponse = ListSchemaVersionsResponse'+  { -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of schema version summaries.+    schemaVersions :: Prelude.Maybe [SchemaVersionSummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSchemaVersionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSchemaVersionsResponse_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'schemaVersions', 'listSchemaVersionsResponse_schemaVersions' - An array of schema version summaries.+--+-- 'httpStatus', 'listSchemaVersionsResponse_httpStatus' - The response's http status code.+newListSchemaVersionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSchemaVersionsResponse+newListSchemaVersionsResponse pHttpStatus_ =+  ListSchemaVersionsResponse'+    { nextToken =+        Prelude.Nothing,+      schemaVersions = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listSchemaVersionsResponse_nextToken :: Lens.Lens' ListSchemaVersionsResponse (Prelude.Maybe Prelude.Text)+listSchemaVersionsResponse_nextToken = Lens.lens (\ListSchemaVersionsResponse' {nextToken} -> nextToken) (\s@ListSchemaVersionsResponse' {} a -> s {nextToken = a} :: ListSchemaVersionsResponse)++-- | An array of schema version summaries.+listSchemaVersionsResponse_schemaVersions :: Lens.Lens' ListSchemaVersionsResponse (Prelude.Maybe [SchemaVersionSummary])+listSchemaVersionsResponse_schemaVersions = Lens.lens (\ListSchemaVersionsResponse' {schemaVersions} -> schemaVersions) (\s@ListSchemaVersionsResponse' {} a -> s {schemaVersions = a} :: ListSchemaVersionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSchemaVersionsResponse_httpStatus :: Lens.Lens' ListSchemaVersionsResponse Prelude.Int+listSchemaVersionsResponse_httpStatus = Lens.lens (\ListSchemaVersionsResponse' {httpStatus} -> httpStatus) (\s@ListSchemaVersionsResponse' {} a -> s {httpStatus = a} :: ListSchemaVersionsResponse)++instance Prelude.NFData ListSchemaVersionsResponse where+  rnf ListSchemaVersionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf schemaVersions+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/ListSchemas.hs view
@@ -0,0 +1,254 @@+{-# 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.Schemas.ListSchemas+-- 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 schemas.+--+-- This operation returns paginated results.+module Amazonka.Schemas.ListSchemas+  ( -- * Creating a Request+    ListSchemas (..),+    newListSchemas,++    -- * Request Lenses+    listSchemas_limit,+    listSchemas_nextToken,+    listSchemas_schemaNamePrefix,+    listSchemas_registryName,++    -- * Destructuring the Response+    ListSchemasResponse (..),+    newListSchemasResponse,++    -- * Response Lenses+    listSchemasResponse_nextToken,+    listSchemasResponse_schemas,+    listSchemasResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newListSchemas' smart constructor.+data ListSchemas = ListSchemas'+  { limit :: Prelude.Maybe Prelude.Int,+    -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specifying this limits the results to only those schema names that start+    -- with the specified prefix.+    schemaNamePrefix :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSchemas' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listSchemas_limit' - Undocumented member.+--+-- 'nextToken', 'listSchemas_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'schemaNamePrefix', 'listSchemas_schemaNamePrefix' - Specifying this limits the results to only those schema names that start+-- with the specified prefix.+--+-- 'registryName', 'listSchemas_registryName' - The name of the registry.+newListSchemas ::+  -- | 'registryName'+  Prelude.Text ->+  ListSchemas+newListSchemas pRegistryName_ =+  ListSchemas'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      schemaNamePrefix = Prelude.Nothing,+      registryName = pRegistryName_+    }++-- | Undocumented member.+listSchemas_limit :: Lens.Lens' ListSchemas (Prelude.Maybe Prelude.Int)+listSchemas_limit = Lens.lens (\ListSchemas' {limit} -> limit) (\s@ListSchemas' {} a -> s {limit = a} :: ListSchemas)++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listSchemas_nextToken :: Lens.Lens' ListSchemas (Prelude.Maybe Prelude.Text)+listSchemas_nextToken = Lens.lens (\ListSchemas' {nextToken} -> nextToken) (\s@ListSchemas' {} a -> s {nextToken = a} :: ListSchemas)++-- | Specifying this limits the results to only those schema names that start+-- with the specified prefix.+listSchemas_schemaNamePrefix :: Lens.Lens' ListSchemas (Prelude.Maybe Prelude.Text)+listSchemas_schemaNamePrefix = Lens.lens (\ListSchemas' {schemaNamePrefix} -> schemaNamePrefix) (\s@ListSchemas' {} a -> s {schemaNamePrefix = a} :: ListSchemas)++-- | The name of the registry.+listSchemas_registryName :: Lens.Lens' ListSchemas Prelude.Text+listSchemas_registryName = Lens.lens (\ListSchemas' {registryName} -> registryName) (\s@ListSchemas' {} a -> s {registryName = a} :: ListSchemas)++instance Core.AWSPager ListSchemas where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSchemasResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSchemasResponse_schemas+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSchemas_nextToken+          Lens..~ rs+          Lens.^? listSchemasResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSchemas where+  type AWSResponse ListSchemas = ListSchemasResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSchemasResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Schemas" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSchemas where+  hashWithSalt _salt ListSchemas' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` schemaNamePrefix+      `Prelude.hashWithSalt` registryName++instance Prelude.NFData ListSchemas where+  rnf ListSchemas' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf schemaNamePrefix+      `Prelude.seq` Prelude.rnf registryName++instance Data.ToHeaders ListSchemas where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListSchemas where+  toPath ListSchemas' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas"+      ]++instance Data.ToQuery ListSchemas where+  toQuery ListSchemas' {..} =+    Prelude.mconcat+      [ "limit" Data.=: limit,+        "nextToken" Data.=: nextToken,+        "schemaNamePrefix" Data.=: schemaNamePrefix+      ]++-- | /See:/ 'newListSchemasResponse' smart constructor.+data ListSchemasResponse = ListSchemasResponse'+  { -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of schema summaries.+    schemas :: Prelude.Maybe [SchemaSummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSchemasResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSchemasResponse_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'schemas', 'listSchemasResponse_schemas' - An array of schema summaries.+--+-- 'httpStatus', 'listSchemasResponse_httpStatus' - The response's http status code.+newListSchemasResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSchemasResponse+newListSchemasResponse pHttpStatus_ =+  ListSchemasResponse'+    { nextToken = Prelude.Nothing,+      schemas = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+listSchemasResponse_nextToken :: Lens.Lens' ListSchemasResponse (Prelude.Maybe Prelude.Text)+listSchemasResponse_nextToken = Lens.lens (\ListSchemasResponse' {nextToken} -> nextToken) (\s@ListSchemasResponse' {} a -> s {nextToken = a} :: ListSchemasResponse)++-- | An array of schema summaries.+listSchemasResponse_schemas :: Lens.Lens' ListSchemasResponse (Prelude.Maybe [SchemaSummary])+listSchemasResponse_schemas = Lens.lens (\ListSchemasResponse' {schemas} -> schemas) (\s@ListSchemasResponse' {} a -> s {schemas = a} :: ListSchemasResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSchemasResponse_httpStatus :: Lens.Lens' ListSchemasResponse Prelude.Int+listSchemasResponse_httpStatus = Lens.lens (\ListSchemasResponse' {httpStatus} -> httpStatus) (\s@ListSchemasResponse' {} a -> s {httpStatus = a} :: ListSchemasResponse)++instance Prelude.NFData ListSchemasResponse where+  rnf ListSchemasResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf schemas+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/ListTagsForResource.hs view
@@ -0,0 +1,158 @@+{-# 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.Schemas.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)+--+-- Get tags for resource.+module Amazonka.Schemas.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_resourceArn,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The ARN of the resource.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'listTagsForResource_resourceArn' - The ARN of the resource.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource' {resourceArn = pResourceArn_}++-- | The ARN of the resource.+listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource)++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf resourceArn++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath ListTagsForResource where+  toPath ListTagsForResource' {..} =+    Prelude.mconcat ["/tags/", Data.toBS resourceArn]++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'listTagsForResourceResponse_tags' - Undocumented member.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | 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)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/PutCodeBinding.hs view
@@ -0,0 +1,253 @@+{-# 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.Schemas.PutCodeBinding+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Put code binding URI+module Amazonka.Schemas.PutCodeBinding+  ( -- * Creating a Request+    PutCodeBinding (..),+    newPutCodeBinding,++    -- * Request Lenses+    putCodeBinding_schemaVersion,+    putCodeBinding_registryName,+    putCodeBinding_schemaName,+    putCodeBinding_language,++    -- * Destructuring the Response+    PutCodeBindingResponse (..),+    newPutCodeBindingResponse,++    -- * Response Lenses+    putCodeBindingResponse_creationDate,+    putCodeBindingResponse_lastModified,+    putCodeBindingResponse_schemaVersion,+    putCodeBindingResponse_status,+    putCodeBindingResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newPutCodeBinding' smart constructor.+data PutCodeBinding = PutCodeBinding'+  { -- | Specifying this limits the results to only this schema version.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text,+    -- | The language of the code binding.+    language :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutCodeBinding' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaVersion', 'putCodeBinding_schemaVersion' - Specifying this limits the results to only this schema version.+--+-- 'registryName', 'putCodeBinding_registryName' - The name of the registry.+--+-- 'schemaName', 'putCodeBinding_schemaName' - The name of the schema.+--+-- 'language', 'putCodeBinding_language' - The language of the code binding.+newPutCodeBinding ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  -- | 'language'+  Prelude.Text ->+  PutCodeBinding+newPutCodeBinding+  pRegistryName_+  pSchemaName_+  pLanguage_ =+    PutCodeBinding'+      { schemaVersion = Prelude.Nothing,+        registryName = pRegistryName_,+        schemaName = pSchemaName_,+        language = pLanguage_+      }++-- | Specifying this limits the results to only this schema version.+putCodeBinding_schemaVersion :: Lens.Lens' PutCodeBinding (Prelude.Maybe Prelude.Text)+putCodeBinding_schemaVersion = Lens.lens (\PutCodeBinding' {schemaVersion} -> schemaVersion) (\s@PutCodeBinding' {} a -> s {schemaVersion = a} :: PutCodeBinding)++-- | The name of the registry.+putCodeBinding_registryName :: Lens.Lens' PutCodeBinding Prelude.Text+putCodeBinding_registryName = Lens.lens (\PutCodeBinding' {registryName} -> registryName) (\s@PutCodeBinding' {} a -> s {registryName = a} :: PutCodeBinding)++-- | The name of the schema.+putCodeBinding_schemaName :: Lens.Lens' PutCodeBinding Prelude.Text+putCodeBinding_schemaName = Lens.lens (\PutCodeBinding' {schemaName} -> schemaName) (\s@PutCodeBinding' {} a -> s {schemaName = a} :: PutCodeBinding)++-- | The language of the code binding.+putCodeBinding_language :: Lens.Lens' PutCodeBinding Prelude.Text+putCodeBinding_language = Lens.lens (\PutCodeBinding' {language} -> language) (\s@PutCodeBinding' {} a -> s {language = a} :: PutCodeBinding)++instance Core.AWSRequest PutCodeBinding where+  type+    AWSResponse PutCodeBinding =+      PutCodeBindingResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          PutCodeBindingResponse'+            Prelude.<$> (x Data..?> "CreationDate")+            Prelude.<*> (x Data..?> "LastModified")+            Prelude.<*> (x Data..?> "SchemaVersion")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutCodeBinding where+  hashWithSalt _salt PutCodeBinding' {..} =+    _salt+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` language++instance Prelude.NFData PutCodeBinding where+  rnf PutCodeBinding' {..} =+    Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf language++instance Data.ToHeaders PutCodeBinding where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutCodeBinding where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath PutCodeBinding where+  toPath PutCodeBinding' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName,+        "/language/",+        Data.toBS language+      ]++instance Data.ToQuery PutCodeBinding where+  toQuery PutCodeBinding' {..} =+    Prelude.mconcat+      ["schemaVersion" Data.=: schemaVersion]++-- | /See:/ 'newPutCodeBindingResponse' smart constructor.+data PutCodeBindingResponse = PutCodeBindingResponse'+  { -- | The time and date that the code binding was created.+    creationDate :: Prelude.Maybe Data.ISO8601,+    -- | The date and time that code bindings were modified.+    lastModified :: Prelude.Maybe Data.ISO8601,+    -- | The version number of the schema.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The current status of code binding generation.+    status :: Prelude.Maybe CodeGenerationStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutCodeBindingResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'creationDate', 'putCodeBindingResponse_creationDate' - The time and date that the code binding was created.+--+-- 'lastModified', 'putCodeBindingResponse_lastModified' - The date and time that code bindings were modified.+--+-- 'schemaVersion', 'putCodeBindingResponse_schemaVersion' - The version number of the schema.+--+-- 'status', 'putCodeBindingResponse_status' - The current status of code binding generation.+--+-- 'httpStatus', 'putCodeBindingResponse_httpStatus' - The response's http status code.+newPutCodeBindingResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutCodeBindingResponse+newPutCodeBindingResponse pHttpStatus_ =+  PutCodeBindingResponse'+    { creationDate =+        Prelude.Nothing,+      lastModified = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time and date that the code binding was created.+putCodeBindingResponse_creationDate :: Lens.Lens' PutCodeBindingResponse (Prelude.Maybe Prelude.UTCTime)+putCodeBindingResponse_creationDate = Lens.lens (\PutCodeBindingResponse' {creationDate} -> creationDate) (\s@PutCodeBindingResponse' {} a -> s {creationDate = a} :: PutCodeBindingResponse) Prelude.. Lens.mapping Data._Time++-- | The date and time that code bindings were modified.+putCodeBindingResponse_lastModified :: Lens.Lens' PutCodeBindingResponse (Prelude.Maybe Prelude.UTCTime)+putCodeBindingResponse_lastModified = Lens.lens (\PutCodeBindingResponse' {lastModified} -> lastModified) (\s@PutCodeBindingResponse' {} a -> s {lastModified = a} :: PutCodeBindingResponse) Prelude.. Lens.mapping Data._Time++-- | The version number of the schema.+putCodeBindingResponse_schemaVersion :: Lens.Lens' PutCodeBindingResponse (Prelude.Maybe Prelude.Text)+putCodeBindingResponse_schemaVersion = Lens.lens (\PutCodeBindingResponse' {schemaVersion} -> schemaVersion) (\s@PutCodeBindingResponse' {} a -> s {schemaVersion = a} :: PutCodeBindingResponse)++-- | The current status of code binding generation.+putCodeBindingResponse_status :: Lens.Lens' PutCodeBindingResponse (Prelude.Maybe CodeGenerationStatus)+putCodeBindingResponse_status = Lens.lens (\PutCodeBindingResponse' {status} -> status) (\s@PutCodeBindingResponse' {} a -> s {status = a} :: PutCodeBindingResponse)++-- | The response's http status code.+putCodeBindingResponse_httpStatus :: Lens.Lens' PutCodeBindingResponse Prelude.Int+putCodeBindingResponse_httpStatus = Lens.lens (\PutCodeBindingResponse' {httpStatus} -> httpStatus) (\s@PutCodeBindingResponse' {} a -> s {httpStatus = a} :: PutCodeBindingResponse)++instance Prelude.NFData PutCodeBindingResponse where+  rnf PutCodeBindingResponse' {..} =+    Prelude.rnf creationDate+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/PutResourcePolicy.hs view
@@ -0,0 +1,210 @@+{-# 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.Schemas.PutResourcePolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The name of the policy.+module Amazonka.Schemas.PutResourcePolicy+  ( -- * Creating a Request+    PutResourcePolicy (..),+    newPutResourcePolicy,++    -- * Request Lenses+    putResourcePolicy_registryName,+    putResourcePolicy_revisionId,+    putResourcePolicy_policy,++    -- * Destructuring the Response+    PutResourcePolicyResponse (..),+    newPutResourcePolicyResponse,++    -- * Response Lenses+    putResourcePolicyResponse_policy,+    putResourcePolicyResponse_revisionId,+    putResourcePolicyResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | The name of the policy.+--+-- /See:/ 'newPutResourcePolicy' smart constructor.+data PutResourcePolicy = PutResourcePolicy'+  { -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text,+    -- | The revision ID of the policy.+    revisionId :: Prelude.Maybe Prelude.Text,+    -- | The resource-based policy.+    policy :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutResourcePolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'putResourcePolicy_registryName' - The name of the registry.+--+-- 'revisionId', 'putResourcePolicy_revisionId' - The revision ID of the policy.+--+-- 'policy', 'putResourcePolicy_policy' - The resource-based policy.+newPutResourcePolicy ::+  -- | 'policy'+  Prelude.Text ->+  PutResourcePolicy+newPutResourcePolicy pPolicy_ =+  PutResourcePolicy'+    { registryName = Prelude.Nothing,+      revisionId = Prelude.Nothing,+      policy = pPolicy_+    }++-- | The name of the registry.+putResourcePolicy_registryName :: Lens.Lens' PutResourcePolicy (Prelude.Maybe Prelude.Text)+putResourcePolicy_registryName = Lens.lens (\PutResourcePolicy' {registryName} -> registryName) (\s@PutResourcePolicy' {} a -> s {registryName = a} :: PutResourcePolicy)++-- | The revision ID of the policy.+putResourcePolicy_revisionId :: Lens.Lens' PutResourcePolicy (Prelude.Maybe Prelude.Text)+putResourcePolicy_revisionId = Lens.lens (\PutResourcePolicy' {revisionId} -> revisionId) (\s@PutResourcePolicy' {} a -> s {revisionId = a} :: PutResourcePolicy)++-- | The resource-based policy.+putResourcePolicy_policy :: Lens.Lens' PutResourcePolicy Prelude.Text+putResourcePolicy_policy = Lens.lens (\PutResourcePolicy' {policy} -> policy) (\s@PutResourcePolicy' {} a -> s {policy = a} :: PutResourcePolicy)++instance Core.AWSRequest PutResourcePolicy where+  type+    AWSResponse PutResourcePolicy =+      PutResourcePolicyResponse+  request overrides =+    Request.putJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          PutResourcePolicyResponse'+            Prelude.<$> (x Data..?> "Policy")+            Prelude.<*> (x Data..?> "RevisionId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutResourcePolicy where+  hashWithSalt _salt PutResourcePolicy' {..} =+    _salt+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` revisionId+      `Prelude.hashWithSalt` policy++instance Prelude.NFData PutResourcePolicy where+  rnf PutResourcePolicy' {..} =+    Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf revisionId+      `Prelude.seq` Prelude.rnf policy++instance Data.ToHeaders PutResourcePolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutResourcePolicy where+  toJSON PutResourcePolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("RevisionId" Data..=) Prelude.<$> revisionId,+            Prelude.Just ("Policy" Data..= policy)+          ]+      )++instance Data.ToPath PutResourcePolicy where+  toPath = Prelude.const "/v1/policy"++instance Data.ToQuery PutResourcePolicy where+  toQuery PutResourcePolicy' {..} =+    Prelude.mconcat+      ["registryName" Data.=: registryName]++-- | /See:/ 'newPutResourcePolicyResponse' smart constructor.+data PutResourcePolicyResponse = PutResourcePolicyResponse'+  { -- | The resource-based policy.+    policy :: Prelude.Maybe Prelude.Text,+    -- | The revision ID of the policy.+    revisionId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutResourcePolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'policy', 'putResourcePolicyResponse_policy' - The resource-based policy.+--+-- 'revisionId', 'putResourcePolicyResponse_revisionId' - The revision ID of the policy.+--+-- 'httpStatus', 'putResourcePolicyResponse_httpStatus' - The response's http status code.+newPutResourcePolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutResourcePolicyResponse+newPutResourcePolicyResponse pHttpStatus_ =+  PutResourcePolicyResponse'+    { policy =+        Prelude.Nothing,+      revisionId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The resource-based policy.+putResourcePolicyResponse_policy :: Lens.Lens' PutResourcePolicyResponse (Prelude.Maybe Prelude.Text)+putResourcePolicyResponse_policy = Lens.lens (\PutResourcePolicyResponse' {policy} -> policy) (\s@PutResourcePolicyResponse' {} a -> s {policy = a} :: PutResourcePolicyResponse)++-- | The revision ID of the policy.+putResourcePolicyResponse_revisionId :: Lens.Lens' PutResourcePolicyResponse (Prelude.Maybe Prelude.Text)+putResourcePolicyResponse_revisionId = Lens.lens (\PutResourcePolicyResponse' {revisionId} -> revisionId) (\s@PutResourcePolicyResponse' {} a -> s {revisionId = a} :: PutResourcePolicyResponse)++-- | The response's http status code.+putResourcePolicyResponse_httpStatus :: Lens.Lens' PutResourcePolicyResponse Prelude.Int+putResourcePolicyResponse_httpStatus = Lens.lens (\PutResourcePolicyResponse' {httpStatus} -> httpStatus) (\s@PutResourcePolicyResponse' {} a -> s {httpStatus = a} :: PutResourcePolicyResponse)++instance Prelude.NFData PutResourcePolicyResponse where+  rnf PutResourcePolicyResponse' {..} =+    Prelude.rnf policy+      `Prelude.seq` Prelude.rnf revisionId+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/SearchSchemas.hs view
@@ -0,0 +1,258 @@+{-# 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.Schemas.SearchSchemas+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Search the schemas+--+-- This operation returns paginated results.+module Amazonka.Schemas.SearchSchemas+  ( -- * Creating a Request+    SearchSchemas (..),+    newSearchSchemas,++    -- * Request Lenses+    searchSchemas_limit,+    searchSchemas_nextToken,+    searchSchemas_registryName,+    searchSchemas_keywords,++    -- * Destructuring the Response+    SearchSchemasResponse (..),+    newSearchSchemasResponse,++    -- * Response Lenses+    searchSchemasResponse_nextToken,+    searchSchemasResponse_schemas,+    searchSchemasResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newSearchSchemas' smart constructor.+data SearchSchemas = SearchSchemas'+  { limit :: Prelude.Maybe Prelude.Int,+    -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | Specifying this limits the results to only schemas that include the+    -- provided keywords.+    keywords :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchSchemas' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'searchSchemas_limit' - Undocumented member.+--+-- 'nextToken', 'searchSchemas_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'registryName', 'searchSchemas_registryName' - The name of the registry.+--+-- 'keywords', 'searchSchemas_keywords' - Specifying this limits the results to only schemas that include the+-- provided keywords.+newSearchSchemas ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'keywords'+  Prelude.Text ->+  SearchSchemas+newSearchSchemas pRegistryName_ pKeywords_ =+  SearchSchemas'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      registryName = pRegistryName_,+      keywords = pKeywords_+    }++-- | Undocumented member.+searchSchemas_limit :: Lens.Lens' SearchSchemas (Prelude.Maybe Prelude.Int)+searchSchemas_limit = Lens.lens (\SearchSchemas' {limit} -> limit) (\s@SearchSchemas' {} a -> s {limit = a} :: SearchSchemas)++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+searchSchemas_nextToken :: Lens.Lens' SearchSchemas (Prelude.Maybe Prelude.Text)+searchSchemas_nextToken = Lens.lens (\SearchSchemas' {nextToken} -> nextToken) (\s@SearchSchemas' {} a -> s {nextToken = a} :: SearchSchemas)++-- | The name of the registry.+searchSchemas_registryName :: Lens.Lens' SearchSchemas Prelude.Text+searchSchemas_registryName = Lens.lens (\SearchSchemas' {registryName} -> registryName) (\s@SearchSchemas' {} a -> s {registryName = a} :: SearchSchemas)++-- | Specifying this limits the results to only schemas that include the+-- provided keywords.+searchSchemas_keywords :: Lens.Lens' SearchSchemas Prelude.Text+searchSchemas_keywords = Lens.lens (\SearchSchemas' {keywords} -> keywords) (\s@SearchSchemas' {} a -> s {keywords = a} :: SearchSchemas)++instance Core.AWSPager SearchSchemas where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? searchSchemasResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? searchSchemasResponse_schemas+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& searchSchemas_nextToken+          Lens..~ rs+          Lens.^? searchSchemasResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest SearchSchemas where+  type+    AWSResponse SearchSchemas =+      SearchSchemasResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          SearchSchemasResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Schemas" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable SearchSchemas where+  hashWithSalt _salt SearchSchemas' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` keywords++instance Prelude.NFData SearchSchemas where+  rnf SearchSchemas' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf keywords++instance Data.ToHeaders SearchSchemas where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath SearchSchemas where+  toPath SearchSchemas' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/search"+      ]++instance Data.ToQuery SearchSchemas where+  toQuery SearchSchemas' {..} =+    Prelude.mconcat+      [ "limit" Data.=: limit,+        "nextToken" Data.=: nextToken,+        "keywords" Data.=: keywords+      ]++-- | /See:/ 'newSearchSchemasResponse' smart constructor.+data SearchSchemasResponse = SearchSchemasResponse'+  { -- | The token that specifies the next page of results to return. To request+    -- the first page, leave NextToken empty. The token will expire in 24+    -- hours, and cannot be shared with other accounts.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | An array of SearchSchemaSummary information.+    schemas :: Prelude.Maybe [SearchSchemaSummary],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchSchemasResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'searchSchemasResponse_nextToken' - The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+--+-- 'schemas', 'searchSchemasResponse_schemas' - An array of SearchSchemaSummary information.+--+-- 'httpStatus', 'searchSchemasResponse_httpStatus' - The response's http status code.+newSearchSchemasResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SearchSchemasResponse+newSearchSchemasResponse pHttpStatus_ =+  SearchSchemasResponse'+    { nextToken = Prelude.Nothing,+      schemas = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token that specifies the next page of results to return. To request+-- the first page, leave NextToken empty. The token will expire in 24+-- hours, and cannot be shared with other accounts.+searchSchemasResponse_nextToken :: Lens.Lens' SearchSchemasResponse (Prelude.Maybe Prelude.Text)+searchSchemasResponse_nextToken = Lens.lens (\SearchSchemasResponse' {nextToken} -> nextToken) (\s@SearchSchemasResponse' {} a -> s {nextToken = a} :: SearchSchemasResponse)++-- | An array of SearchSchemaSummary information.+searchSchemasResponse_schemas :: Lens.Lens' SearchSchemasResponse (Prelude.Maybe [SearchSchemaSummary])+searchSchemasResponse_schemas = Lens.lens (\SearchSchemasResponse' {schemas} -> schemas) (\s@SearchSchemasResponse' {} a -> s {schemas = a} :: SearchSchemasResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+searchSchemasResponse_httpStatus :: Lens.Lens' SearchSchemasResponse Prelude.Int+searchSchemasResponse_httpStatus = Lens.lens (\SearchSchemasResponse' {httpStatus} -> httpStatus) (\s@SearchSchemasResponse' {} a -> s {httpStatus = a} :: SearchSchemasResponse)++instance Prelude.NFData SearchSchemasResponse where+  rnf SearchSchemasResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf schemas+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/StartDiscoverer.hs view
@@ -0,0 +1,177 @@+{-# 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.Schemas.StartDiscoverer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts the discoverer+module Amazonka.Schemas.StartDiscoverer+  ( -- * Creating a Request+    StartDiscoverer (..),+    newStartDiscoverer,++    -- * Request Lenses+    startDiscoverer_discovererId,++    -- * Destructuring the Response+    StartDiscovererResponse (..),+    newStartDiscovererResponse,++    -- * Response Lenses+    startDiscovererResponse_discovererId,+    startDiscovererResponse_state,+    startDiscovererResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newStartDiscoverer' smart constructor.+data StartDiscoverer = StartDiscoverer'+  { -- | The ID of the discoverer.+    discovererId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartDiscoverer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererId', 'startDiscoverer_discovererId' - The ID of the discoverer.+newStartDiscoverer ::+  -- | 'discovererId'+  Prelude.Text ->+  StartDiscoverer+newStartDiscoverer pDiscovererId_ =+  StartDiscoverer' {discovererId = pDiscovererId_}++-- | The ID of the discoverer.+startDiscoverer_discovererId :: Lens.Lens' StartDiscoverer Prelude.Text+startDiscoverer_discovererId = Lens.lens (\StartDiscoverer' {discovererId} -> discovererId) (\s@StartDiscoverer' {} a -> s {discovererId = a} :: StartDiscoverer)++instance Core.AWSRequest StartDiscoverer where+  type+    AWSResponse StartDiscoverer =+      StartDiscovererResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartDiscovererResponse'+            Prelude.<$> (x Data..?> "DiscovererId")+            Prelude.<*> (x Data..?> "State")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartDiscoverer where+  hashWithSalt _salt StartDiscoverer' {..} =+    _salt `Prelude.hashWithSalt` discovererId++instance Prelude.NFData StartDiscoverer where+  rnf StartDiscoverer' {..} = Prelude.rnf discovererId++instance Data.ToHeaders StartDiscoverer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartDiscoverer where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath StartDiscoverer where+  toPath StartDiscoverer' {..} =+    Prelude.mconcat+      [ "/v1/discoverers/id/",+        Data.toBS discovererId,+        "/start"+      ]++instance Data.ToQuery StartDiscoverer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartDiscovererResponse' smart constructor.+data StartDiscovererResponse = StartDiscovererResponse'+  { -- | The ID of the discoverer.+    discovererId :: Prelude.Maybe Prelude.Text,+    -- | The state of the discoverer.+    state :: Prelude.Maybe DiscovererState,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartDiscovererResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererId', 'startDiscovererResponse_discovererId' - The ID of the discoverer.+--+-- 'state', 'startDiscovererResponse_state' - The state of the discoverer.+--+-- 'httpStatus', 'startDiscovererResponse_httpStatus' - The response's http status code.+newStartDiscovererResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartDiscovererResponse+newStartDiscovererResponse pHttpStatus_ =+  StartDiscovererResponse'+    { discovererId =+        Prelude.Nothing,+      state = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID of the discoverer.+startDiscovererResponse_discovererId :: Lens.Lens' StartDiscovererResponse (Prelude.Maybe Prelude.Text)+startDiscovererResponse_discovererId = Lens.lens (\StartDiscovererResponse' {discovererId} -> discovererId) (\s@StartDiscovererResponse' {} a -> s {discovererId = a} :: StartDiscovererResponse)++-- | The state of the discoverer.+startDiscovererResponse_state :: Lens.Lens' StartDiscovererResponse (Prelude.Maybe DiscovererState)+startDiscovererResponse_state = Lens.lens (\StartDiscovererResponse' {state} -> state) (\s@StartDiscovererResponse' {} a -> s {state = a} :: StartDiscovererResponse)++-- | The response's http status code.+startDiscovererResponse_httpStatus :: Lens.Lens' StartDiscovererResponse Prelude.Int+startDiscovererResponse_httpStatus = Lens.lens (\StartDiscovererResponse' {httpStatus} -> httpStatus) (\s@StartDiscovererResponse' {} a -> s {httpStatus = a} :: StartDiscovererResponse)++instance Prelude.NFData StartDiscovererResponse where+  rnf StartDiscovererResponse' {..} =+    Prelude.rnf discovererId+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/StopDiscoverer.hs view
@@ -0,0 +1,177 @@+{-# 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.Schemas.StopDiscoverer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops the discoverer+module Amazonka.Schemas.StopDiscoverer+  ( -- * Creating a Request+    StopDiscoverer (..),+    newStopDiscoverer,++    -- * Request Lenses+    stopDiscoverer_discovererId,++    -- * Destructuring the Response+    StopDiscovererResponse (..),+    newStopDiscovererResponse,++    -- * Response Lenses+    stopDiscovererResponse_discovererId,+    stopDiscovererResponse_state,+    stopDiscovererResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newStopDiscoverer' smart constructor.+data StopDiscoverer = StopDiscoverer'+  { -- | The ID of the discoverer.+    discovererId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopDiscoverer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererId', 'stopDiscoverer_discovererId' - The ID of the discoverer.+newStopDiscoverer ::+  -- | 'discovererId'+  Prelude.Text ->+  StopDiscoverer+newStopDiscoverer pDiscovererId_ =+  StopDiscoverer' {discovererId = pDiscovererId_}++-- | The ID of the discoverer.+stopDiscoverer_discovererId :: Lens.Lens' StopDiscoverer Prelude.Text+stopDiscoverer_discovererId = Lens.lens (\StopDiscoverer' {discovererId} -> discovererId) (\s@StopDiscoverer' {} a -> s {discovererId = a} :: StopDiscoverer)++instance Core.AWSRequest StopDiscoverer where+  type+    AWSResponse StopDiscoverer =+      StopDiscovererResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StopDiscovererResponse'+            Prelude.<$> (x Data..?> "DiscovererId")+            Prelude.<*> (x Data..?> "State")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopDiscoverer where+  hashWithSalt _salt StopDiscoverer' {..} =+    _salt `Prelude.hashWithSalt` discovererId++instance Prelude.NFData StopDiscoverer where+  rnf StopDiscoverer' {..} = Prelude.rnf discovererId++instance Data.ToHeaders StopDiscoverer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopDiscoverer where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath StopDiscoverer where+  toPath StopDiscoverer' {..} =+    Prelude.mconcat+      [ "/v1/discoverers/id/",+        Data.toBS discovererId,+        "/stop"+      ]++instance Data.ToQuery StopDiscoverer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopDiscovererResponse' smart constructor.+data StopDiscovererResponse = StopDiscovererResponse'+  { -- | The ID of the discoverer.+    discovererId :: Prelude.Maybe Prelude.Text,+    -- | The state of the discoverer.+    state :: Prelude.Maybe DiscovererState,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopDiscovererResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'discovererId', 'stopDiscovererResponse_discovererId' - The ID of the discoverer.+--+-- 'state', 'stopDiscovererResponse_state' - The state of the discoverer.+--+-- 'httpStatus', 'stopDiscovererResponse_httpStatus' - The response's http status code.+newStopDiscovererResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopDiscovererResponse+newStopDiscovererResponse pHttpStatus_ =+  StopDiscovererResponse'+    { discovererId =+        Prelude.Nothing,+      state = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ID of the discoverer.+stopDiscovererResponse_discovererId :: Lens.Lens' StopDiscovererResponse (Prelude.Maybe Prelude.Text)+stopDiscovererResponse_discovererId = Lens.lens (\StopDiscovererResponse' {discovererId} -> discovererId) (\s@StopDiscovererResponse' {} a -> s {discovererId = a} :: StopDiscovererResponse)++-- | The state of the discoverer.+stopDiscovererResponse_state :: Lens.Lens' StopDiscovererResponse (Prelude.Maybe DiscovererState)+stopDiscovererResponse_state = Lens.lens (\StopDiscovererResponse' {state} -> state) (\s@StopDiscovererResponse' {} a -> s {state = a} :: StopDiscovererResponse)++-- | The response's http status code.+stopDiscovererResponse_httpStatus :: Lens.Lens' StopDiscovererResponse Prelude.Int+stopDiscovererResponse_httpStatus = Lens.lens (\StopDiscovererResponse' {httpStatus} -> httpStatus) (\s@StopDiscovererResponse' {} a -> s {httpStatus = a} :: StopDiscovererResponse)++instance Prelude.NFData StopDiscovererResponse where+  rnf StopDiscovererResponse' {..} =+    Prelude.rnf discovererId+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/TagResource.hs view
@@ -0,0 +1,144 @@+{-# 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.Schemas.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)+--+-- Add tags to a resource.+module Amazonka.Schemas.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceArn,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- |+--+-- /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The ARN of the resource.+    resourceArn :: Prelude.Text,+    -- | Tags associated with the resource.+    tags :: Prelude.HashMap Prelude.Text Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'tagResource_resourceArn' - The ARN of the resource.+--+-- 'tags', 'tagResource_tags' - Tags associated with the resource.+newTagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  TagResource+newTagResource pResourceArn_ =+  TagResource'+    { resourceArn = pResourceArn_,+      tags = Prelude.mempty+    }++-- | The ARN of the resource.+tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource)++-- | Tags associated with the resource.+tagResource_tags :: Lens.Lens' TagResource (Prelude.HashMap Prelude.Text Prelude.Text)+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.receiveNull TagResourceResponse'++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+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("tags" Data..= tags)]+      )++instance Data.ToPath TagResource where+  toPath TagResource' {..} =+    Prelude.mconcat ["/tags/", Data.toBS resourceArn]++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newTagResourceResponse ::+  TagResourceResponse+newTagResourceResponse = TagResourceResponse'++instance Prelude.NFData TagResourceResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/Types.hs view
@@ -0,0 +1,254 @@+{-# 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.Schemas.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.Schemas.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _BadRequestException,+    _ConflictException,+    _ForbiddenException,+    _GoneException,+    _InternalServerErrorException,+    _NotFoundException,+    _PreconditionFailedException,+    _ServiceUnavailableException,+    _TooManyRequestsException,+    _UnauthorizedException,++    -- * CodeGenerationStatus+    CodeGenerationStatus (..),++    -- * DiscovererState+    DiscovererState (..),++    -- * Type+    Type (..),++    -- * DiscovererSummary+    DiscovererSummary (..),+    newDiscovererSummary,+    discovererSummary_crossAccount,+    discovererSummary_discovererArn,+    discovererSummary_discovererId,+    discovererSummary_sourceArn,+    discovererSummary_state,+    discovererSummary_tags,++    -- * RegistrySummary+    RegistrySummary (..),+    newRegistrySummary,+    registrySummary_registryArn,+    registrySummary_registryName,+    registrySummary_tags,++    -- * SchemaSummary+    SchemaSummary (..),+    newSchemaSummary,+    schemaSummary_lastModified,+    schemaSummary_schemaArn,+    schemaSummary_schemaName,+    schemaSummary_tags,+    schemaSummary_versionCount,++    -- * SchemaVersionSummary+    SchemaVersionSummary (..),+    newSchemaVersionSummary,+    schemaVersionSummary_schemaArn,+    schemaVersionSummary_schemaName,+    schemaVersionSummary_schemaVersion,+    schemaVersionSummary_type,++    -- * SearchSchemaSummary+    SearchSchemaSummary (..),+    newSearchSchemaSummary,+    searchSchemaSummary_registryName,+    searchSchemaSummary_schemaArn,+    searchSchemaSummary_schemaName,+    searchSchemaSummary_schemaVersions,++    -- * SearchSchemaVersionSummary+    SearchSchemaVersionSummary (..),+    newSearchSchemaVersionSummary,+    searchSchemaVersionSummary_createdDate,+    searchSchemaVersionSummary_schemaVersion,+    searchSchemaVersionSummary_type,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import Amazonka.Schemas.Types.CodeGenerationStatus+import Amazonka.Schemas.Types.DiscovererState+import Amazonka.Schemas.Types.DiscovererSummary+import Amazonka.Schemas.Types.RegistrySummary+import Amazonka.Schemas.Types.SchemaSummary+import Amazonka.Schemas.Types.SchemaVersionSummary+import Amazonka.Schemas.Types.SearchSchemaSummary+import Amazonka.Schemas.Types.SearchSchemaVersionSummary+import Amazonka.Schemas.Types.Type+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2019-12-02@ of the Amazon Schemas SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "Schemas",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "schemas",+      Core.signingName = "schemas",+      Core.version = "2019-12-02",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "Schemas",+      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++-- | Prism for BadRequestException' errors.+_BadRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_BadRequestException =+  Core._MatchServiceError+    defaultService+    "BadRequestException"+    Prelude.. Core.hasStatus 400++-- | Prism for ConflictException' errors.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"+    Prelude.. Core.hasStatus 409++-- | Prism for ForbiddenException' errors.+_ForbiddenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ForbiddenException =+  Core._MatchServiceError+    defaultService+    "ForbiddenException"+    Prelude.. Core.hasStatus 403++-- | Prism for GoneException' errors.+_GoneException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_GoneException =+  Core._MatchServiceError+    defaultService+    "GoneException"+    Prelude.. Core.hasStatus 410++-- | Prism for InternalServerErrorException' errors.+_InternalServerErrorException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerErrorException =+  Core._MatchServiceError+    defaultService+    "InternalServerErrorException"+    Prelude.. Core.hasStatus 500++-- | Prism for NotFoundException' errors.+_NotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NotFoundException =+  Core._MatchServiceError+    defaultService+    "NotFoundException"+    Prelude.. Core.hasStatus 404++-- | Prism for PreconditionFailedException' errors.+_PreconditionFailedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_PreconditionFailedException =+  Core._MatchServiceError+    defaultService+    "PreconditionFailedException"+    Prelude.. Core.hasStatus 412++-- | Prism for ServiceUnavailableException' errors.+_ServiceUnavailableException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceUnavailableException =+  Core._MatchServiceError+    defaultService+    "ServiceUnavailableException"+    Prelude.. Core.hasStatus 503++-- | Prism for TooManyRequestsException' errors.+_TooManyRequestsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TooManyRequestsException =+  Core._MatchServiceError+    defaultService+    "TooManyRequestsException"+    Prelude.. Core.hasStatus 429++-- | Prism for UnauthorizedException' errors.+_UnauthorizedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnauthorizedException =+  Core._MatchServiceError+    defaultService+    "UnauthorizedException"+    Prelude.. Core.hasStatus 401
+ gen/Amazonka/Schemas/Types/CodeGenerationStatus.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.Types.CodeGenerationStatus+-- 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.Schemas.Types.CodeGenerationStatus+  ( CodeGenerationStatus+      ( ..,+        CodeGenerationStatus_CREATE_COMPLETE,+        CodeGenerationStatus_CREATE_FAILED,+        CodeGenerationStatus_CREATE_IN_PROGRESS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype CodeGenerationStatus = CodeGenerationStatus'+  { fromCodeGenerationStatus ::+      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 CodeGenerationStatus_CREATE_COMPLETE :: CodeGenerationStatus+pattern CodeGenerationStatus_CREATE_COMPLETE = CodeGenerationStatus' "CREATE_COMPLETE"++pattern CodeGenerationStatus_CREATE_FAILED :: CodeGenerationStatus+pattern CodeGenerationStatus_CREATE_FAILED = CodeGenerationStatus' "CREATE_FAILED"++pattern CodeGenerationStatus_CREATE_IN_PROGRESS :: CodeGenerationStatus+pattern CodeGenerationStatus_CREATE_IN_PROGRESS = CodeGenerationStatus' "CREATE_IN_PROGRESS"++{-# COMPLETE+  CodeGenerationStatus_CREATE_COMPLETE,+  CodeGenerationStatus_CREATE_FAILED,+  CodeGenerationStatus_CREATE_IN_PROGRESS,+  CodeGenerationStatus'+  #-}
+ gen/Amazonka/Schemas/Types/DiscovererState.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.Types.DiscovererState+-- 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.Schemas.Types.DiscovererState+  ( DiscovererState+      ( ..,+        DiscovererState_STARTED,+        DiscovererState_STOPPED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DiscovererState = DiscovererState'+  { fromDiscovererState ::+      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 DiscovererState_STARTED :: DiscovererState+pattern DiscovererState_STARTED = DiscovererState' "STARTED"++pattern DiscovererState_STOPPED :: DiscovererState+pattern DiscovererState_STOPPED = DiscovererState' "STOPPED"++{-# COMPLETE+  DiscovererState_STARTED,+  DiscovererState_STOPPED,+  DiscovererState'+  #-}
+ gen/Amazonka/Schemas/Types/DiscovererSummary.hs view
@@ -0,0 +1,134 @@+{-# 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.Schemas.Types.DiscovererSummary+-- 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.Schemas.Types.DiscovererSummary 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.Schemas.Types.DiscovererState++-- | /See:/ 'newDiscovererSummary' smart constructor.+data DiscovererSummary = DiscovererSummary'+  { -- | The Status if the discoverer will discover schemas from events sent from+    -- another account.+    crossAccount :: Prelude.Maybe Prelude.Bool,+    -- | The ARN of the discoverer.+    discovererArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the discoverer.+    discovererId :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the event bus.+    sourceArn :: Prelude.Maybe Prelude.Text,+    -- | The state of the discoverer.+    state :: Prelude.Maybe DiscovererState,+    -- | Tags associated with the resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DiscovererSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'crossAccount', 'discovererSummary_crossAccount' - The Status if the discoverer will discover schemas from events sent from+-- another account.+--+-- 'discovererArn', 'discovererSummary_discovererArn' - The ARN of the discoverer.+--+-- 'discovererId', 'discovererSummary_discovererId' - The ID of the discoverer.+--+-- 'sourceArn', 'discovererSummary_sourceArn' - The ARN of the event bus.+--+-- 'state', 'discovererSummary_state' - The state of the discoverer.+--+-- 'tags', 'discovererSummary_tags' - Tags associated with the resource.+newDiscovererSummary ::+  DiscovererSummary+newDiscovererSummary =+  DiscovererSummary'+    { crossAccount = Prelude.Nothing,+      discovererArn = Prelude.Nothing,+      discovererId = Prelude.Nothing,+      sourceArn = Prelude.Nothing,+      state = Prelude.Nothing,+      tags = Prelude.Nothing+    }++-- | The Status if the discoverer will discover schemas from events sent from+-- another account.+discovererSummary_crossAccount :: Lens.Lens' DiscovererSummary (Prelude.Maybe Prelude.Bool)+discovererSummary_crossAccount = Lens.lens (\DiscovererSummary' {crossAccount} -> crossAccount) (\s@DiscovererSummary' {} a -> s {crossAccount = a} :: DiscovererSummary)++-- | The ARN of the discoverer.+discovererSummary_discovererArn :: Lens.Lens' DiscovererSummary (Prelude.Maybe Prelude.Text)+discovererSummary_discovererArn = Lens.lens (\DiscovererSummary' {discovererArn} -> discovererArn) (\s@DiscovererSummary' {} a -> s {discovererArn = a} :: DiscovererSummary)++-- | The ID of the discoverer.+discovererSummary_discovererId :: Lens.Lens' DiscovererSummary (Prelude.Maybe Prelude.Text)+discovererSummary_discovererId = Lens.lens (\DiscovererSummary' {discovererId} -> discovererId) (\s@DiscovererSummary' {} a -> s {discovererId = a} :: DiscovererSummary)++-- | The ARN of the event bus.+discovererSummary_sourceArn :: Lens.Lens' DiscovererSummary (Prelude.Maybe Prelude.Text)+discovererSummary_sourceArn = Lens.lens (\DiscovererSummary' {sourceArn} -> sourceArn) (\s@DiscovererSummary' {} a -> s {sourceArn = a} :: DiscovererSummary)++-- | The state of the discoverer.+discovererSummary_state :: Lens.Lens' DiscovererSummary (Prelude.Maybe DiscovererState)+discovererSummary_state = Lens.lens (\DiscovererSummary' {state} -> state) (\s@DiscovererSummary' {} a -> s {state = a} :: DiscovererSummary)++-- | Tags associated with the resource.+discovererSummary_tags :: Lens.Lens' DiscovererSummary (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+discovererSummary_tags = Lens.lens (\DiscovererSummary' {tags} -> tags) (\s@DiscovererSummary' {} a -> s {tags = a} :: DiscovererSummary) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON DiscovererSummary where+  parseJSON =+    Data.withObject+      "DiscovererSummary"+      ( \x ->+          DiscovererSummary'+            Prelude.<$> (x Data..:? "CrossAccount")+            Prelude.<*> (x Data..:? "DiscovererArn")+            Prelude.<*> (x Data..:? "DiscovererId")+            Prelude.<*> (x Data..:? "SourceArn")+            Prelude.<*> (x Data..:? "State")+            Prelude.<*> (x Data..:? "tags" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable DiscovererSummary where+  hashWithSalt _salt DiscovererSummary' {..} =+    _salt+      `Prelude.hashWithSalt` crossAccount+      `Prelude.hashWithSalt` discovererArn+      `Prelude.hashWithSalt` discovererId+      `Prelude.hashWithSalt` sourceArn+      `Prelude.hashWithSalt` state+      `Prelude.hashWithSalt` tags++instance Prelude.NFData DiscovererSummary where+  rnf DiscovererSummary' {..} =+    Prelude.rnf crossAccount+      `Prelude.seq` Prelude.rnf discovererArn+      `Prelude.seq` Prelude.rnf discovererId+      `Prelude.seq` Prelude.rnf sourceArn+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Schemas/Types/RegistrySummary.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.Types.RegistrySummary+-- 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.Schemas.Types.RegistrySummary 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++-- | /See:/ 'newRegistrySummary' smart constructor.+data RegistrySummary = RegistrySummary'+  { -- | The ARN of the registry.+    registryArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the registry.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegistrySummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryArn', 'registrySummary_registryArn' - The ARN of the registry.+--+-- 'registryName', 'registrySummary_registryName' - The name of the registry.+--+-- 'tags', 'registrySummary_tags' - Tags associated with the registry.+newRegistrySummary ::+  RegistrySummary+newRegistrySummary =+  RegistrySummary'+    { registryArn = Prelude.Nothing,+      registryName = Prelude.Nothing,+      tags = Prelude.Nothing+    }++-- | The ARN of the registry.+registrySummary_registryArn :: Lens.Lens' RegistrySummary (Prelude.Maybe Prelude.Text)+registrySummary_registryArn = Lens.lens (\RegistrySummary' {registryArn} -> registryArn) (\s@RegistrySummary' {} a -> s {registryArn = a} :: RegistrySummary)++-- | The name of the registry.+registrySummary_registryName :: Lens.Lens' RegistrySummary (Prelude.Maybe Prelude.Text)+registrySummary_registryName = Lens.lens (\RegistrySummary' {registryName} -> registryName) (\s@RegistrySummary' {} a -> s {registryName = a} :: RegistrySummary)++-- | Tags associated with the registry.+registrySummary_tags :: Lens.Lens' RegistrySummary (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+registrySummary_tags = Lens.lens (\RegistrySummary' {tags} -> tags) (\s@RegistrySummary' {} a -> s {tags = a} :: RegistrySummary) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON RegistrySummary where+  parseJSON =+    Data.withObject+      "RegistrySummary"+      ( \x ->+          RegistrySummary'+            Prelude.<$> (x Data..:? "RegistryArn")+            Prelude.<*> (x Data..:? "RegistryName")+            Prelude.<*> (x Data..:? "tags" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable RegistrySummary where+  hashWithSalt _salt RegistrySummary' {..} =+    _salt+      `Prelude.hashWithSalt` registryArn+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` tags++instance Prelude.NFData RegistrySummary where+  rnf RegistrySummary' {..} =+    Prelude.rnf registryArn+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf tags
+ gen/Amazonka/Schemas/Types/SchemaSummary.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.Types.SchemaSummary+-- 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.Schemas.Types.SchemaSummary 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 summary of schema details.+--+-- /See:/ 'newSchemaSummary' smart constructor.+data SchemaSummary = SchemaSummary'+  { -- | The date and time that schema was modified.+    lastModified :: Prelude.Maybe Data.ISO8601,+    -- | The ARN of the schema.+    schemaArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the schema.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The number of versions available for the schema.+    versionCount :: Prelude.Maybe Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SchemaSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'lastModified', 'schemaSummary_lastModified' - The date and time that schema was modified.+--+-- 'schemaArn', 'schemaSummary_schemaArn' - The ARN of the schema.+--+-- 'schemaName', 'schemaSummary_schemaName' - The name of the schema.+--+-- 'tags', 'schemaSummary_tags' - Tags associated with the schema.+--+-- 'versionCount', 'schemaSummary_versionCount' - The number of versions available for the schema.+newSchemaSummary ::+  SchemaSummary+newSchemaSummary =+  SchemaSummary'+    { lastModified = Prelude.Nothing,+      schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      tags = Prelude.Nothing,+      versionCount = Prelude.Nothing+    }++-- | The date and time that schema was modified.+schemaSummary_lastModified :: Lens.Lens' SchemaSummary (Prelude.Maybe Prelude.UTCTime)+schemaSummary_lastModified = Lens.lens (\SchemaSummary' {lastModified} -> lastModified) (\s@SchemaSummary' {} a -> s {lastModified = a} :: SchemaSummary) Prelude.. Lens.mapping Data._Time++-- | The ARN of the schema.+schemaSummary_schemaArn :: Lens.Lens' SchemaSummary (Prelude.Maybe Prelude.Text)+schemaSummary_schemaArn = Lens.lens (\SchemaSummary' {schemaArn} -> schemaArn) (\s@SchemaSummary' {} a -> s {schemaArn = a} :: SchemaSummary)++-- | The name of the schema.+schemaSummary_schemaName :: Lens.Lens' SchemaSummary (Prelude.Maybe Prelude.Text)+schemaSummary_schemaName = Lens.lens (\SchemaSummary' {schemaName} -> schemaName) (\s@SchemaSummary' {} a -> s {schemaName = a} :: SchemaSummary)++-- | Tags associated with the schema.+schemaSummary_tags :: Lens.Lens' SchemaSummary (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+schemaSummary_tags = Lens.lens (\SchemaSummary' {tags} -> tags) (\s@SchemaSummary' {} a -> s {tags = a} :: SchemaSummary) Prelude.. Lens.mapping Lens.coerced++-- | The number of versions available for the schema.+schemaSummary_versionCount :: Lens.Lens' SchemaSummary (Prelude.Maybe Prelude.Integer)+schemaSummary_versionCount = Lens.lens (\SchemaSummary' {versionCount} -> versionCount) (\s@SchemaSummary' {} a -> s {versionCount = a} :: SchemaSummary)++instance Data.FromJSON SchemaSummary where+  parseJSON =+    Data.withObject+      "SchemaSummary"+      ( \x ->+          SchemaSummary'+            Prelude.<$> (x Data..:? "LastModified")+            Prelude.<*> (x Data..:? "SchemaArn")+            Prelude.<*> (x Data..:? "SchemaName")+            Prelude.<*> (x Data..:? "tags" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "VersionCount")+      )++instance Prelude.Hashable SchemaSummary where+  hashWithSalt _salt SchemaSummary' {..} =+    _salt+      `Prelude.hashWithSalt` lastModified+      `Prelude.hashWithSalt` schemaArn+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` versionCount++instance Prelude.NFData SchemaSummary where+  rnf SchemaSummary' {..} =+    Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf versionCount
+ gen/Amazonka/Schemas/Types/SchemaVersionSummary.hs view
@@ -0,0 +1,107 @@+{-# 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.Schemas.Types.SchemaVersionSummary+-- 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.Schemas.Types.SchemaVersionSummary 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.Schemas.Types.Type++-- | /See:/ 'newSchemaVersionSummary' smart constructor.+data SchemaVersionSummary = SchemaVersionSummary'+  { -- | The ARN of the schema version.+    schemaArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Maybe Prelude.Text,+    -- | The version number of the schema.+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The type of schema.+    type' :: Prelude.Maybe Type+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SchemaVersionSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaArn', 'schemaVersionSummary_schemaArn' - The ARN of the schema version.+--+-- 'schemaName', 'schemaVersionSummary_schemaName' - The name of the schema.+--+-- 'schemaVersion', 'schemaVersionSummary_schemaVersion' - The version number of the schema.+--+-- 'type'', 'schemaVersionSummary_type' - The type of schema.+newSchemaVersionSummary ::+  SchemaVersionSummary+newSchemaVersionSummary =+  SchemaVersionSummary'+    { schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The ARN of the schema version.+schemaVersionSummary_schemaArn :: Lens.Lens' SchemaVersionSummary (Prelude.Maybe Prelude.Text)+schemaVersionSummary_schemaArn = Lens.lens (\SchemaVersionSummary' {schemaArn} -> schemaArn) (\s@SchemaVersionSummary' {} a -> s {schemaArn = a} :: SchemaVersionSummary)++-- | The name of the schema.+schemaVersionSummary_schemaName :: Lens.Lens' SchemaVersionSummary (Prelude.Maybe Prelude.Text)+schemaVersionSummary_schemaName = Lens.lens (\SchemaVersionSummary' {schemaName} -> schemaName) (\s@SchemaVersionSummary' {} a -> s {schemaName = a} :: SchemaVersionSummary)++-- | The version number of the schema.+schemaVersionSummary_schemaVersion :: Lens.Lens' SchemaVersionSummary (Prelude.Maybe Prelude.Text)+schemaVersionSummary_schemaVersion = Lens.lens (\SchemaVersionSummary' {schemaVersion} -> schemaVersion) (\s@SchemaVersionSummary' {} a -> s {schemaVersion = a} :: SchemaVersionSummary)++-- | The type of schema.+schemaVersionSummary_type :: Lens.Lens' SchemaVersionSummary (Prelude.Maybe Type)+schemaVersionSummary_type = Lens.lens (\SchemaVersionSummary' {type'} -> type') (\s@SchemaVersionSummary' {} a -> s {type' = a} :: SchemaVersionSummary)++instance Data.FromJSON SchemaVersionSummary where+  parseJSON =+    Data.withObject+      "SchemaVersionSummary"+      ( \x ->+          SchemaVersionSummary'+            Prelude.<$> (x Data..:? "SchemaArn")+            Prelude.<*> (x Data..:? "SchemaName")+            Prelude.<*> (x Data..:? "SchemaVersion")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable SchemaVersionSummary where+  hashWithSalt _salt SchemaVersionSummary' {..} =+    _salt+      `Prelude.hashWithSalt` schemaArn+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` type'++instance Prelude.NFData SchemaVersionSummary where+  rnf SchemaVersionSummary' {..} =+    Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/Schemas/Types/SearchSchemaSummary.hs view
@@ -0,0 +1,111 @@+{-# 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.Schemas.Types.SearchSchemaSummary+-- 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.Schemas.Types.SearchSchemaSummary 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.Schemas.Types.SearchSchemaVersionSummary++-- | /See:/ 'newSearchSchemaSummary' smart constructor.+data SearchSchemaSummary = SearchSchemaSummary'+  { -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the schema.+    schemaArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Maybe Prelude.Text,+    -- | An array of schema version summaries.+    schemaVersions :: Prelude.Maybe [SearchSchemaVersionSummary]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchSchemaSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'registryName', 'searchSchemaSummary_registryName' - The name of the registry.+--+-- 'schemaArn', 'searchSchemaSummary_schemaArn' - The ARN of the schema.+--+-- 'schemaName', 'searchSchemaSummary_schemaName' - The name of the schema.+--+-- 'schemaVersions', 'searchSchemaSummary_schemaVersions' - An array of schema version summaries.+newSearchSchemaSummary ::+  SearchSchemaSummary+newSearchSchemaSummary =+  SearchSchemaSummary'+    { registryName =+        Prelude.Nothing,+      schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      schemaVersions = Prelude.Nothing+    }++-- | The name of the registry.+searchSchemaSummary_registryName :: Lens.Lens' SearchSchemaSummary (Prelude.Maybe Prelude.Text)+searchSchemaSummary_registryName = Lens.lens (\SearchSchemaSummary' {registryName} -> registryName) (\s@SearchSchemaSummary' {} a -> s {registryName = a} :: SearchSchemaSummary)++-- | The ARN of the schema.+searchSchemaSummary_schemaArn :: Lens.Lens' SearchSchemaSummary (Prelude.Maybe Prelude.Text)+searchSchemaSummary_schemaArn = Lens.lens (\SearchSchemaSummary' {schemaArn} -> schemaArn) (\s@SearchSchemaSummary' {} a -> s {schemaArn = a} :: SearchSchemaSummary)++-- | The name of the schema.+searchSchemaSummary_schemaName :: Lens.Lens' SearchSchemaSummary (Prelude.Maybe Prelude.Text)+searchSchemaSummary_schemaName = Lens.lens (\SearchSchemaSummary' {schemaName} -> schemaName) (\s@SearchSchemaSummary' {} a -> s {schemaName = a} :: SearchSchemaSummary)++-- | An array of schema version summaries.+searchSchemaSummary_schemaVersions :: Lens.Lens' SearchSchemaSummary (Prelude.Maybe [SearchSchemaVersionSummary])+searchSchemaSummary_schemaVersions = Lens.lens (\SearchSchemaSummary' {schemaVersions} -> schemaVersions) (\s@SearchSchemaSummary' {} a -> s {schemaVersions = a} :: SearchSchemaSummary) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON SearchSchemaSummary where+  parseJSON =+    Data.withObject+      "SearchSchemaSummary"+      ( \x ->+          SearchSchemaSummary'+            Prelude.<$> (x Data..:? "RegistryName")+            Prelude.<*> (x Data..:? "SchemaArn")+            Prelude.<*> (x Data..:? "SchemaName")+            Prelude.<*> ( x+                            Data..:? "SchemaVersions"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable SearchSchemaSummary where+  hashWithSalt _salt SearchSchemaSummary' {..} =+    _salt+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaArn+      `Prelude.hashWithSalt` schemaName+      `Prelude.hashWithSalt` schemaVersions++instance Prelude.NFData SearchSchemaSummary where+  rnf SearchSchemaSummary' {..} =+    Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf schemaVersions
+ gen/Amazonka/Schemas/Types/SearchSchemaVersionSummary.hs view
@@ -0,0 +1,96 @@+{-# 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.Schemas.Types.SearchSchemaVersionSummary+-- 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.Schemas.Types.SearchSchemaVersionSummary 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.Schemas.Types.Type++-- | /See:/ 'newSearchSchemaVersionSummary' smart constructor.+data SearchSchemaVersionSummary = SearchSchemaVersionSummary'+  { -- | The date the schema version was created.+    createdDate :: Prelude.Maybe Data.ISO8601,+    -- | The version number of the schema+    schemaVersion :: Prelude.Maybe Prelude.Text,+    -- | The type of schema.+    type' :: Prelude.Maybe Type+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchSchemaVersionSummary' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdDate', 'searchSchemaVersionSummary_createdDate' - The date the schema version was created.+--+-- 'schemaVersion', 'searchSchemaVersionSummary_schemaVersion' - The version number of the schema+--+-- 'type'', 'searchSchemaVersionSummary_type' - The type of schema.+newSearchSchemaVersionSummary ::+  SearchSchemaVersionSummary+newSearchSchemaVersionSummary =+  SearchSchemaVersionSummary'+    { createdDate =+        Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The date the schema version was created.+searchSchemaVersionSummary_createdDate :: Lens.Lens' SearchSchemaVersionSummary (Prelude.Maybe Prelude.UTCTime)+searchSchemaVersionSummary_createdDate = Lens.lens (\SearchSchemaVersionSummary' {createdDate} -> createdDate) (\s@SearchSchemaVersionSummary' {} a -> s {createdDate = a} :: SearchSchemaVersionSummary) Prelude.. Lens.mapping Data._Time++-- | The version number of the schema+searchSchemaVersionSummary_schemaVersion :: Lens.Lens' SearchSchemaVersionSummary (Prelude.Maybe Prelude.Text)+searchSchemaVersionSummary_schemaVersion = Lens.lens (\SearchSchemaVersionSummary' {schemaVersion} -> schemaVersion) (\s@SearchSchemaVersionSummary' {} a -> s {schemaVersion = a} :: SearchSchemaVersionSummary)++-- | The type of schema.+searchSchemaVersionSummary_type :: Lens.Lens' SearchSchemaVersionSummary (Prelude.Maybe Type)+searchSchemaVersionSummary_type = Lens.lens (\SearchSchemaVersionSummary' {type'} -> type') (\s@SearchSchemaVersionSummary' {} a -> s {type' = a} :: SearchSchemaVersionSummary)++instance Data.FromJSON SearchSchemaVersionSummary where+  parseJSON =+    Data.withObject+      "SearchSchemaVersionSummary"+      ( \x ->+          SearchSchemaVersionSummary'+            Prelude.<$> (x Data..:? "CreatedDate")+            Prelude.<*> (x Data..:? "SchemaVersion")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable SearchSchemaVersionSummary where+  hashWithSalt _salt SearchSchemaVersionSummary' {..} =+    _salt+      `Prelude.hashWithSalt` createdDate+      `Prelude.hashWithSalt` schemaVersion+      `Prelude.hashWithSalt` type'++instance Prelude.NFData SearchSchemaVersionSummary where+  rnf SearchSchemaVersionSummary' {..} =+    Prelude.rnf createdDate+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/Schemas/Types/Type.hs view
@@ -0,0 +1,68 @@+{-# 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.Schemas.Types.Type+-- 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.Schemas.Types.Type+  ( Type+      ( ..,+        Type_JSONSchemaDraft4,+        Type_OpenApi3+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Type = Type' {fromType :: 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 Type_JSONSchemaDraft4 :: Type+pattern Type_JSONSchemaDraft4 = Type' "JSONSchemaDraft4"++pattern Type_OpenApi3 :: Type+pattern Type_OpenApi3 = Type' "OpenApi3"++{-# COMPLETE+  Type_JSONSchemaDraft4,+  Type_OpenApi3,+  Type'+  #-}
+ gen/Amazonka/Schemas/UntagResource.hs view
@@ -0,0 +1,140 @@+{-# 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.Schemas.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)+--+-- Removes tags from a resource.+module Amazonka.Schemas.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_tagKeys,+    untagResource_resourceArn,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,+  )+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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | Keys of key-value pairs.+    tagKeys :: [Prelude.Text],+    -- | The ARN of the resource.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tagKeys', 'untagResource_tagKeys' - Keys of key-value pairs.+--+-- 'resourceArn', 'untagResource_resourceArn' - The ARN of the resource.+newUntagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  UntagResource+newUntagResource pResourceArn_ =+  UntagResource'+    { tagKeys = Prelude.mempty,+      resourceArn = pResourceArn_+    }++-- | Keys of key-value pairs.+untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]+untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced++-- | The ARN of the resource.+untagResource_resourceArn :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceArn = Lens.lens (\UntagResource' {resourceArn} -> resourceArn) (\s@UntagResource' {} a -> s {resourceArn = a} :: UntagResource)++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveNull UntagResourceResponse'++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` tagKeys+      `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf tagKeys+      `Prelude.seq` Prelude.rnf resourceArn++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath UntagResource where+  toPath UntagResource' {..} =+    Prelude.mconcat ["/tags/", Data.toBS resourceArn]++instance Data.ToQuery UntagResource where+  toQuery UntagResource' {..} =+    Prelude.mconcat+      ["tagKeys" Data.=: Data.toQueryList "member" tagKeys]++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newUntagResourceResponse ::+  UntagResourceResponse+newUntagResourceResponse = UntagResourceResponse'++instance Prelude.NFData UntagResourceResponse where+  rnf _ = ()
+ gen/Amazonka/Schemas/UpdateDiscoverer.hs view
@@ -0,0 +1,274 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.UpdateDiscoverer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the discoverer+module Amazonka.Schemas.UpdateDiscoverer+  ( -- * Creating a Request+    UpdateDiscoverer (..),+    newUpdateDiscoverer,++    -- * Request Lenses+    updateDiscoverer_crossAccount,+    updateDiscoverer_description,+    updateDiscoverer_discovererId,++    -- * Destructuring the Response+    UpdateDiscovererResponse (..),+    newUpdateDiscovererResponse,++    -- * Response Lenses+    updateDiscovererResponse_crossAccount,+    updateDiscovererResponse_description,+    updateDiscovererResponse_discovererArn,+    updateDiscovererResponse_discovererId,+    updateDiscovererResponse_sourceArn,+    updateDiscovererResponse_state,+    updateDiscovererResponse_tags,+    updateDiscovererResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newUpdateDiscoverer' smart constructor.+data UpdateDiscoverer = UpdateDiscoverer'+  { -- | Support discovery of schemas in events sent to the bus from another+    -- account. (default: true)+    crossAccount :: Prelude.Maybe Prelude.Bool,+    -- | The description of the discoverer to update.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ID of the discoverer.+    discovererId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDiscoverer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'crossAccount', 'updateDiscoverer_crossAccount' - Support discovery of schemas in events sent to the bus from another+-- account. (default: true)+--+-- 'description', 'updateDiscoverer_description' - The description of the discoverer to update.+--+-- 'discovererId', 'updateDiscoverer_discovererId' - The ID of the discoverer.+newUpdateDiscoverer ::+  -- | 'discovererId'+  Prelude.Text ->+  UpdateDiscoverer+newUpdateDiscoverer pDiscovererId_ =+  UpdateDiscoverer'+    { crossAccount = Prelude.Nothing,+      description = Prelude.Nothing,+      discovererId = pDiscovererId_+    }++-- | Support discovery of schemas in events sent to the bus from another+-- account. (default: true)+updateDiscoverer_crossAccount :: Lens.Lens' UpdateDiscoverer (Prelude.Maybe Prelude.Bool)+updateDiscoverer_crossAccount = Lens.lens (\UpdateDiscoverer' {crossAccount} -> crossAccount) (\s@UpdateDiscoverer' {} a -> s {crossAccount = a} :: UpdateDiscoverer)++-- | The description of the discoverer to update.+updateDiscoverer_description :: Lens.Lens' UpdateDiscoverer (Prelude.Maybe Prelude.Text)+updateDiscoverer_description = Lens.lens (\UpdateDiscoverer' {description} -> description) (\s@UpdateDiscoverer' {} a -> s {description = a} :: UpdateDiscoverer)++-- | The ID of the discoverer.+updateDiscoverer_discovererId :: Lens.Lens' UpdateDiscoverer Prelude.Text+updateDiscoverer_discovererId = Lens.lens (\UpdateDiscoverer' {discovererId} -> discovererId) (\s@UpdateDiscoverer' {} a -> s {discovererId = a} :: UpdateDiscoverer)++instance Core.AWSRequest UpdateDiscoverer where+  type+    AWSResponse UpdateDiscoverer =+      UpdateDiscovererResponse+  request overrides =+    Request.putJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateDiscovererResponse'+            Prelude.<$> (x Data..?> "CrossAccount")+            Prelude.<*> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "DiscovererArn")+            Prelude.<*> (x Data..?> "DiscovererId")+            Prelude.<*> (x Data..?> "SourceArn")+            Prelude.<*> (x Data..?> "State")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateDiscoverer where+  hashWithSalt _salt UpdateDiscoverer' {..} =+    _salt+      `Prelude.hashWithSalt` crossAccount+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` discovererId++instance Prelude.NFData UpdateDiscoverer where+  rnf UpdateDiscoverer' {..} =+    Prelude.rnf crossAccount+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf discovererId++instance Data.ToHeaders UpdateDiscoverer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateDiscoverer where+  toJSON UpdateDiscoverer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CrossAccount" Data..=) Prelude.<$> crossAccount,+            ("Description" Data..=) Prelude.<$> description+          ]+      )++instance Data.ToPath UpdateDiscoverer where+  toPath UpdateDiscoverer' {..} =+    Prelude.mconcat+      ["/v1/discoverers/id/", Data.toBS discovererId]++instance Data.ToQuery UpdateDiscoverer where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateDiscovererResponse' smart constructor.+data UpdateDiscovererResponse = UpdateDiscovererResponse'+  { -- | The Status if the discoverer will discover schemas from events sent from+    -- another account.+    crossAccount :: Prelude.Maybe Prelude.Bool,+    -- | The description of the discoverer.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the discoverer.+    discovererArn :: Prelude.Maybe Prelude.Text,+    -- | The ID of the discoverer.+    discovererId :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the event bus.+    sourceArn :: Prelude.Maybe Prelude.Text,+    -- | The state of the discoverer.+    state :: Prelude.Maybe DiscovererState,+    -- | Tags associated with the resource.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDiscovererResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'crossAccount', 'updateDiscovererResponse_crossAccount' - The Status if the discoverer will discover schemas from events sent from+-- another account.+--+-- 'description', 'updateDiscovererResponse_description' - The description of the discoverer.+--+-- 'discovererArn', 'updateDiscovererResponse_discovererArn' - The ARN of the discoverer.+--+-- 'discovererId', 'updateDiscovererResponse_discovererId' - The ID of the discoverer.+--+-- 'sourceArn', 'updateDiscovererResponse_sourceArn' - The ARN of the event bus.+--+-- 'state', 'updateDiscovererResponse_state' - The state of the discoverer.+--+-- 'tags', 'updateDiscovererResponse_tags' - Tags associated with the resource.+--+-- 'httpStatus', 'updateDiscovererResponse_httpStatus' - The response's http status code.+newUpdateDiscovererResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateDiscovererResponse+newUpdateDiscovererResponse pHttpStatus_ =+  UpdateDiscovererResponse'+    { crossAccount =+        Prelude.Nothing,+      description = Prelude.Nothing,+      discovererArn = Prelude.Nothing,+      discovererId = Prelude.Nothing,+      sourceArn = Prelude.Nothing,+      state = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Status if the discoverer will discover schemas from events sent from+-- another account.+updateDiscovererResponse_crossAccount :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe Prelude.Bool)+updateDiscovererResponse_crossAccount = Lens.lens (\UpdateDiscovererResponse' {crossAccount} -> crossAccount) (\s@UpdateDiscovererResponse' {} a -> s {crossAccount = a} :: UpdateDiscovererResponse)++-- | The description of the discoverer.+updateDiscovererResponse_description :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe Prelude.Text)+updateDiscovererResponse_description = Lens.lens (\UpdateDiscovererResponse' {description} -> description) (\s@UpdateDiscovererResponse' {} a -> s {description = a} :: UpdateDiscovererResponse)++-- | The ARN of the discoverer.+updateDiscovererResponse_discovererArn :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe Prelude.Text)+updateDiscovererResponse_discovererArn = Lens.lens (\UpdateDiscovererResponse' {discovererArn} -> discovererArn) (\s@UpdateDiscovererResponse' {} a -> s {discovererArn = a} :: UpdateDiscovererResponse)++-- | The ID of the discoverer.+updateDiscovererResponse_discovererId :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe Prelude.Text)+updateDiscovererResponse_discovererId = Lens.lens (\UpdateDiscovererResponse' {discovererId} -> discovererId) (\s@UpdateDiscovererResponse' {} a -> s {discovererId = a} :: UpdateDiscovererResponse)++-- | The ARN of the event bus.+updateDiscovererResponse_sourceArn :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe Prelude.Text)+updateDiscovererResponse_sourceArn = Lens.lens (\UpdateDiscovererResponse' {sourceArn} -> sourceArn) (\s@UpdateDiscovererResponse' {} a -> s {sourceArn = a} :: UpdateDiscovererResponse)++-- | The state of the discoverer.+updateDiscovererResponse_state :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe DiscovererState)+updateDiscovererResponse_state = Lens.lens (\UpdateDiscovererResponse' {state} -> state) (\s@UpdateDiscovererResponse' {} a -> s {state = a} :: UpdateDiscovererResponse)++-- | Tags associated with the resource.+updateDiscovererResponse_tags :: Lens.Lens' UpdateDiscovererResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+updateDiscovererResponse_tags = Lens.lens (\UpdateDiscovererResponse' {tags} -> tags) (\s@UpdateDiscovererResponse' {} a -> s {tags = a} :: UpdateDiscovererResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+updateDiscovererResponse_httpStatus :: Lens.Lens' UpdateDiscovererResponse Prelude.Int+updateDiscovererResponse_httpStatus = Lens.lens (\UpdateDiscovererResponse' {httpStatus} -> httpStatus) (\s@UpdateDiscovererResponse' {} a -> s {httpStatus = a} :: UpdateDiscovererResponse)++instance Prelude.NFData UpdateDiscovererResponse where+  rnf UpdateDiscovererResponse' {..} =+    Prelude.rnf crossAccount+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf discovererArn+      `Prelude.seq` Prelude.rnf discovererId+      `Prelude.seq` Prelude.rnf sourceArn+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/UpdateRegistry.hs view
@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Schemas.UpdateRegistry+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a registry.+module Amazonka.Schemas.UpdateRegistry+  ( -- * Creating a Request+    UpdateRegistry (..),+    newUpdateRegistry,++    -- * Request Lenses+    updateRegistry_description,+    updateRegistry_registryName,++    -- * Destructuring the Response+    UpdateRegistryResponse (..),+    newUpdateRegistryResponse,++    -- * Response Lenses+    updateRegistryResponse_description,+    updateRegistryResponse_registryArn,+    updateRegistryResponse_registryName,+    updateRegistryResponse_tags,+    updateRegistryResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | Updates the registry.+--+-- /See:/ 'newUpdateRegistry' smart constructor.+data UpdateRegistry = UpdateRegistry'+  { -- | The description of the registry to update.+    description :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateRegistry' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateRegistry_description' - The description of the registry to update.+--+-- 'registryName', 'updateRegistry_registryName' - The name of the registry.+newUpdateRegistry ::+  -- | 'registryName'+  Prelude.Text ->+  UpdateRegistry+newUpdateRegistry pRegistryName_ =+  UpdateRegistry'+    { description = Prelude.Nothing,+      registryName = pRegistryName_+    }++-- | The description of the registry to update.+updateRegistry_description :: Lens.Lens' UpdateRegistry (Prelude.Maybe Prelude.Text)+updateRegistry_description = Lens.lens (\UpdateRegistry' {description} -> description) (\s@UpdateRegistry' {} a -> s {description = a} :: UpdateRegistry)++-- | The name of the registry.+updateRegistry_registryName :: Lens.Lens' UpdateRegistry Prelude.Text+updateRegistry_registryName = Lens.lens (\UpdateRegistry' {registryName} -> registryName) (\s@UpdateRegistry' {} a -> s {registryName = a} :: UpdateRegistry)++instance Core.AWSRequest UpdateRegistry where+  type+    AWSResponse UpdateRegistry =+      UpdateRegistryResponse+  request overrides =+    Request.putJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateRegistryResponse'+            Prelude.<$> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "RegistryArn")+            Prelude.<*> (x Data..?> "RegistryName")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateRegistry where+  hashWithSalt _salt UpdateRegistry' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` registryName++instance Prelude.NFData UpdateRegistry where+  rnf UpdateRegistry' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf registryName++instance Data.ToHeaders UpdateRegistry where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateRegistry where+  toJSON UpdateRegistry' {..} =+    Data.object+      ( Prelude.catMaybes+          [("Description" Data..=) Prelude.<$> description]+      )++instance Data.ToPath UpdateRegistry where+  toPath UpdateRegistry' {..} =+    Prelude.mconcat+      ["/v1/registries/name/", Data.toBS registryName]++instance Data.ToQuery UpdateRegistry where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateRegistryResponse' smart constructor.+data UpdateRegistryResponse = UpdateRegistryResponse'+  { -- | The description of the registry.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the registry.+    registryArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the registry.+    registryName :: Prelude.Maybe Prelude.Text,+    -- | Tags associated with the registry.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateRegistryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateRegistryResponse_description' - The description of the registry.+--+-- 'registryArn', 'updateRegistryResponse_registryArn' - The ARN of the registry.+--+-- 'registryName', 'updateRegistryResponse_registryName' - The name of the registry.+--+-- 'tags', 'updateRegistryResponse_tags' - Tags associated with the registry.+--+-- 'httpStatus', 'updateRegistryResponse_httpStatus' - The response's http status code.+newUpdateRegistryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateRegistryResponse+newUpdateRegistryResponse pHttpStatus_ =+  UpdateRegistryResponse'+    { description =+        Prelude.Nothing,+      registryArn = Prelude.Nothing,+      registryName = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the registry.+updateRegistryResponse_description :: Lens.Lens' UpdateRegistryResponse (Prelude.Maybe Prelude.Text)+updateRegistryResponse_description = Lens.lens (\UpdateRegistryResponse' {description} -> description) (\s@UpdateRegistryResponse' {} a -> s {description = a} :: UpdateRegistryResponse)++-- | The ARN of the registry.+updateRegistryResponse_registryArn :: Lens.Lens' UpdateRegistryResponse (Prelude.Maybe Prelude.Text)+updateRegistryResponse_registryArn = Lens.lens (\UpdateRegistryResponse' {registryArn} -> registryArn) (\s@UpdateRegistryResponse' {} a -> s {registryArn = a} :: UpdateRegistryResponse)++-- | The name of the registry.+updateRegistryResponse_registryName :: Lens.Lens' UpdateRegistryResponse (Prelude.Maybe Prelude.Text)+updateRegistryResponse_registryName = Lens.lens (\UpdateRegistryResponse' {registryName} -> registryName) (\s@UpdateRegistryResponse' {} a -> s {registryName = a} :: UpdateRegistryResponse)++-- | Tags associated with the registry.+updateRegistryResponse_tags :: Lens.Lens' UpdateRegistryResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+updateRegistryResponse_tags = Lens.lens (\UpdateRegistryResponse' {tags} -> tags) (\s@UpdateRegistryResponse' {} a -> s {tags = a} :: UpdateRegistryResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+updateRegistryResponse_httpStatus :: Lens.Lens' UpdateRegistryResponse Prelude.Int+updateRegistryResponse_httpStatus = Lens.lens (\UpdateRegistryResponse' {httpStatus} -> httpStatus) (\s@UpdateRegistryResponse' {} a -> s {httpStatus = a} :: UpdateRegistryResponse)++instance Prelude.NFData UpdateRegistryResponse where+  rnf UpdateRegistryResponse' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf registryArn+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/UpdateSchema.hs view
@@ -0,0 +1,323 @@+{-# 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.Schemas.UpdateSchema+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the schema definition+--+-- Inactive schemas will be deleted after two years.+module Amazonka.Schemas.UpdateSchema+  ( -- * Creating a Request+    UpdateSchema (..),+    newUpdateSchema,++    -- * Request Lenses+    updateSchema_clientTokenId,+    updateSchema_content,+    updateSchema_description,+    updateSchema_type,+    updateSchema_registryName,+    updateSchema_schemaName,++    -- * Destructuring the Response+    UpdateSchemaResponse (..),+    newUpdateSchemaResponse,++    -- * Response Lenses+    updateSchemaResponse_description,+    updateSchemaResponse_lastModified,+    updateSchemaResponse_schemaArn,+    updateSchemaResponse_schemaName,+    updateSchemaResponse_schemaVersion,+    updateSchemaResponse_tags,+    updateSchemaResponse_type,+    updateSchemaResponse_versionCreatedDate,+    updateSchemaResponse_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 qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Schemas.Types++-- | /See:/ 'newUpdateSchema' smart constructor.+data UpdateSchema = UpdateSchema'+  { -- | The ID of the client token.+    clientTokenId :: Prelude.Maybe Prelude.Text,+    -- | The source of the schema definition.+    content :: Prelude.Maybe Prelude.Text,+    -- | The description of the schema.+    description :: Prelude.Maybe Prelude.Text,+    -- | The schema type for the events schema.+    type' :: Prelude.Maybe Type,+    -- | The name of the registry.+    registryName :: Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateSchema' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientTokenId', 'updateSchema_clientTokenId' - The ID of the client token.+--+-- 'content', 'updateSchema_content' - The source of the schema definition.+--+-- 'description', 'updateSchema_description' - The description of the schema.+--+-- 'type'', 'updateSchema_type' - The schema type for the events schema.+--+-- 'registryName', 'updateSchema_registryName' - The name of the registry.+--+-- 'schemaName', 'updateSchema_schemaName' - The name of the schema.+newUpdateSchema ::+  -- | 'registryName'+  Prelude.Text ->+  -- | 'schemaName'+  Prelude.Text ->+  UpdateSchema+newUpdateSchema pRegistryName_ pSchemaName_ =+  UpdateSchema'+    { clientTokenId = Prelude.Nothing,+      content = Prelude.Nothing,+      description = Prelude.Nothing,+      type' = Prelude.Nothing,+      registryName = pRegistryName_,+      schemaName = pSchemaName_+    }++-- | The ID of the client token.+updateSchema_clientTokenId :: Lens.Lens' UpdateSchema (Prelude.Maybe Prelude.Text)+updateSchema_clientTokenId = Lens.lens (\UpdateSchema' {clientTokenId} -> clientTokenId) (\s@UpdateSchema' {} a -> s {clientTokenId = a} :: UpdateSchema)++-- | The source of the schema definition.+updateSchema_content :: Lens.Lens' UpdateSchema (Prelude.Maybe Prelude.Text)+updateSchema_content = Lens.lens (\UpdateSchema' {content} -> content) (\s@UpdateSchema' {} a -> s {content = a} :: UpdateSchema)++-- | The description of the schema.+updateSchema_description :: Lens.Lens' UpdateSchema (Prelude.Maybe Prelude.Text)+updateSchema_description = Lens.lens (\UpdateSchema' {description} -> description) (\s@UpdateSchema' {} a -> s {description = a} :: UpdateSchema)++-- | The schema type for the events schema.+updateSchema_type :: Lens.Lens' UpdateSchema (Prelude.Maybe Type)+updateSchema_type = Lens.lens (\UpdateSchema' {type'} -> type') (\s@UpdateSchema' {} a -> s {type' = a} :: UpdateSchema)++-- | The name of the registry.+updateSchema_registryName :: Lens.Lens' UpdateSchema Prelude.Text+updateSchema_registryName = Lens.lens (\UpdateSchema' {registryName} -> registryName) (\s@UpdateSchema' {} a -> s {registryName = a} :: UpdateSchema)++-- | The name of the schema.+updateSchema_schemaName :: Lens.Lens' UpdateSchema Prelude.Text+updateSchema_schemaName = Lens.lens (\UpdateSchema' {schemaName} -> schemaName) (\s@UpdateSchema' {} a -> s {schemaName = a} :: UpdateSchema)++instance Core.AWSRequest UpdateSchema where+  type AWSResponse UpdateSchema = UpdateSchemaResponse+  request overrides =+    Request.putJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateSchemaResponse'+            Prelude.<$> (x Data..?> "Description")+            Prelude.<*> (x Data..?> "LastModified")+            Prelude.<*> (x Data..?> "SchemaArn")+            Prelude.<*> (x Data..?> "SchemaName")+            Prelude.<*> (x Data..?> "SchemaVersion")+            Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "Type")+            Prelude.<*> (x Data..?> "VersionCreatedDate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateSchema where+  hashWithSalt _salt UpdateSchema' {..} =+    _salt+      `Prelude.hashWithSalt` clientTokenId+      `Prelude.hashWithSalt` content+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` registryName+      `Prelude.hashWithSalt` schemaName++instance Prelude.NFData UpdateSchema where+  rnf UpdateSchema' {..} =+    Prelude.rnf clientTokenId+      `Prelude.seq` Prelude.rnf content+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf registryName+      `Prelude.seq` Prelude.rnf schemaName++instance Data.ToHeaders UpdateSchema where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateSchema where+  toJSON UpdateSchema' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ClientTokenId" Data..=) Prelude.<$> clientTokenId,+            ("Content" Data..=) Prelude.<$> content,+            ("Description" Data..=) Prelude.<$> description,+            ("Type" Data..=) Prelude.<$> type'+          ]+      )++instance Data.ToPath UpdateSchema where+  toPath UpdateSchema' {..} =+    Prelude.mconcat+      [ "/v1/registries/name/",+        Data.toBS registryName,+        "/schemas/name/",+        Data.toBS schemaName+      ]++instance Data.ToQuery UpdateSchema where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateSchemaResponse' smart constructor.+data UpdateSchemaResponse = UpdateSchemaResponse'+  { -- | The description of the schema.+    description :: Prelude.Maybe Prelude.Text,+    -- | The date and time that schema was modified.+    lastModified :: Prelude.Maybe Data.ISO8601,+    -- | The ARN of the schema.+    schemaArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the schema.+    schemaName :: Prelude.Maybe Prelude.Text,+    -- | The version number of the schema+    schemaVersion :: Prelude.Maybe Prelude.Text,+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The type of the schema.+    type' :: Prelude.Maybe Prelude.Text,+    -- | The date the schema version was created.+    versionCreatedDate :: Prelude.Maybe Data.ISO8601,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateSchemaResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'updateSchemaResponse_description' - The description of the schema.+--+-- 'lastModified', 'updateSchemaResponse_lastModified' - The date and time that schema was modified.+--+-- 'schemaArn', 'updateSchemaResponse_schemaArn' - The ARN of the schema.+--+-- 'schemaName', 'updateSchemaResponse_schemaName' - The name of the schema.+--+-- 'schemaVersion', 'updateSchemaResponse_schemaVersion' - The version number of the schema+--+-- 'tags', 'updateSchemaResponse_tags' - Undocumented member.+--+-- 'type'', 'updateSchemaResponse_type' - The type of the schema.+--+-- 'versionCreatedDate', 'updateSchemaResponse_versionCreatedDate' - The date the schema version was created.+--+-- 'httpStatus', 'updateSchemaResponse_httpStatus' - The response's http status code.+newUpdateSchemaResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateSchemaResponse+newUpdateSchemaResponse pHttpStatus_ =+  UpdateSchemaResponse'+    { description =+        Prelude.Nothing,+      lastModified = Prelude.Nothing,+      schemaArn = Prelude.Nothing,+      schemaName = Prelude.Nothing,+      schemaVersion = Prelude.Nothing,+      tags = Prelude.Nothing,+      type' = Prelude.Nothing,+      versionCreatedDate = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the schema.+updateSchemaResponse_description :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.Text)+updateSchemaResponse_description = Lens.lens (\UpdateSchemaResponse' {description} -> description) (\s@UpdateSchemaResponse' {} a -> s {description = a} :: UpdateSchemaResponse)++-- | The date and time that schema was modified.+updateSchemaResponse_lastModified :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.UTCTime)+updateSchemaResponse_lastModified = Lens.lens (\UpdateSchemaResponse' {lastModified} -> lastModified) (\s@UpdateSchemaResponse' {} a -> s {lastModified = a} :: UpdateSchemaResponse) Prelude.. Lens.mapping Data._Time++-- | The ARN of the schema.+updateSchemaResponse_schemaArn :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.Text)+updateSchemaResponse_schemaArn = Lens.lens (\UpdateSchemaResponse' {schemaArn} -> schemaArn) (\s@UpdateSchemaResponse' {} a -> s {schemaArn = a} :: UpdateSchemaResponse)++-- | The name of the schema.+updateSchemaResponse_schemaName :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.Text)+updateSchemaResponse_schemaName = Lens.lens (\UpdateSchemaResponse' {schemaName} -> schemaName) (\s@UpdateSchemaResponse' {} a -> s {schemaName = a} :: UpdateSchemaResponse)++-- | The version number of the schema+updateSchemaResponse_schemaVersion :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.Text)+updateSchemaResponse_schemaVersion = Lens.lens (\UpdateSchemaResponse' {schemaVersion} -> schemaVersion) (\s@UpdateSchemaResponse' {} a -> s {schemaVersion = a} :: UpdateSchemaResponse)++-- | Undocumented member.+updateSchemaResponse_tags :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+updateSchemaResponse_tags = Lens.lens (\UpdateSchemaResponse' {tags} -> tags) (\s@UpdateSchemaResponse' {} a -> s {tags = a} :: UpdateSchemaResponse) Prelude.. Lens.mapping Lens.coerced++-- | The type of the schema.+updateSchemaResponse_type :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.Text)+updateSchemaResponse_type = Lens.lens (\UpdateSchemaResponse' {type'} -> type') (\s@UpdateSchemaResponse' {} a -> s {type' = a} :: UpdateSchemaResponse)++-- | The date the schema version was created.+updateSchemaResponse_versionCreatedDate :: Lens.Lens' UpdateSchemaResponse (Prelude.Maybe Prelude.UTCTime)+updateSchemaResponse_versionCreatedDate = Lens.lens (\UpdateSchemaResponse' {versionCreatedDate} -> versionCreatedDate) (\s@UpdateSchemaResponse' {} a -> s {versionCreatedDate = a} :: UpdateSchemaResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+updateSchemaResponse_httpStatus :: Lens.Lens' UpdateSchemaResponse Prelude.Int+updateSchemaResponse_httpStatus = Lens.lens (\UpdateSchemaResponse' {httpStatus} -> httpStatus) (\s@UpdateSchemaResponse' {} a -> s {httpStatus = a} :: UpdateSchemaResponse)++instance Prelude.NFData UpdateSchemaResponse where+  rnf UpdateSchemaResponse' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf schemaArn+      `Prelude.seq` Prelude.rnf schemaName+      `Prelude.seq` Prelude.rnf schemaVersion+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf versionCreatedDate+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/Schemas/Waiters.hs view
@@ -0,0 +1,60 @@+{-# 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.Schemas.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.Schemas.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.Schemas.DescribeCodeBinding+import Amazonka.Schemas.Lens+import Amazonka.Schemas.Types++-- | Polls 'Amazonka.Schemas.DescribeCodeBinding' every 2 seconds until a successful state is reached. An error is returned after 30 failed checks.+newCodeBindingExists :: Core.Wait DescribeCodeBinding+newCodeBindingExists =+  Core.Wait+    { Core.name = "CodeBindingExists",+      Core.attempts = 30,+      Core.delay = 2,+      Core.acceptors =+        [ Core.matchAll+            "CREATE_COMPLETE"+            Core.AcceptSuccess+            ( describeCodeBindingResponse_status+                Prelude.. Lens._Just+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "CREATE_IN_PROGRESS"+            Core.AcceptRetry+            ( describeCodeBindingResponse_status+                Prelude.. Lens._Just+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchAll+            "CREATE_FAILED"+            Core.AcceptFailure+            ( describeCodeBindingResponse_status+                Prelude.. Lens._Just+                Prelude.. Lens.to Data.toTextCI+            ),+          Core.matchError+            "NotFoundException"+            Core.AcceptFailure+        ]+    }
+ src/.gitkeep view
+ test/Main.hs view
@@ -0,0 +1,23 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Main+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Main (main) where++import Test.Amazonka.Schemas+import Test.Amazonka.Schemas.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "Schemas"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/Gen/Schemas.hs view
@@ -0,0 +1,658 @@+{-# 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.Schemas+-- 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.Schemas where++import Amazonka.Schemas+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Amazonka.Schemas.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"+--         [ requestCreateDiscoverer $+--             newCreateDiscoverer+--+--         , requestCreateRegistry $+--             newCreateRegistry+--+--         , requestCreateSchema $+--             newCreateSchema+--+--         , requestDeleteDiscoverer $+--             newDeleteDiscoverer+--+--         , requestDeleteRegistry $+--             newDeleteRegistry+--+--         , requestDeleteResourcePolicy $+--             newDeleteResourcePolicy+--+--         , requestDeleteSchema $+--             newDeleteSchema+--+--         , requestDeleteSchemaVersion $+--             newDeleteSchemaVersion+--+--         , requestDescribeCodeBinding $+--             newDescribeCodeBinding+--+--         , requestDescribeDiscoverer $+--             newDescribeDiscoverer+--+--         , requestDescribeRegistry $+--             newDescribeRegistry+--+--         , requestDescribeSchema $+--             newDescribeSchema+--+--         , requestExportSchema $+--             newExportSchema+--+--         , requestGetCodeBindingSource $+--             newGetCodeBindingSource+--+--         , requestGetDiscoveredSchema $+--             newGetDiscoveredSchema+--+--         , requestGetResourcePolicy $+--             newGetResourcePolicy+--+--         , requestListDiscoverers $+--             newListDiscoverers+--+--         , requestListRegistries $+--             newListRegistries+--+--         , requestListSchemaVersions $+--             newListSchemaVersions+--+--         , requestListSchemas $+--             newListSchemas+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestPutCodeBinding $+--             newPutCodeBinding+--+--         , requestPutResourcePolicy $+--             newPutResourcePolicy+--+--         , requestSearchSchemas $+--             newSearchSchemas+--+--         , requestStartDiscoverer $+--             newStartDiscoverer+--+--         , requestStopDiscoverer $+--             newStopDiscoverer+--+--         , requestTagResource $+--             newTagResource+--+--         , requestUntagResource $+--             newUntagResource+--+--         , requestUpdateDiscoverer $+--             newUpdateDiscoverer+--+--         , requestUpdateRegistry $+--             newUpdateRegistry+--+--         , requestUpdateSchema $+--             newUpdateSchema+--+--           ]++--     , testGroup "response"+--         [ responseCreateDiscoverer $+--             newCreateDiscovererResponse+--+--         , responseCreateRegistry $+--             newCreateRegistryResponse+--+--         , responseCreateSchema $+--             newCreateSchemaResponse+--+--         , responseDeleteDiscoverer $+--             newDeleteDiscovererResponse+--+--         , responseDeleteRegistry $+--             newDeleteRegistryResponse+--+--         , responseDeleteResourcePolicy $+--             newDeleteResourcePolicyResponse+--+--         , responseDeleteSchema $+--             newDeleteSchemaResponse+--+--         , responseDeleteSchemaVersion $+--             newDeleteSchemaVersionResponse+--+--         , responseDescribeCodeBinding $+--             newDescribeCodeBindingResponse+--+--         , responseDescribeDiscoverer $+--             newDescribeDiscovererResponse+--+--         , responseDescribeRegistry $+--             newDescribeRegistryResponse+--+--         , responseDescribeSchema $+--             newDescribeSchemaResponse+--+--         , responseExportSchema $+--             newExportSchemaResponse+--+--         , responseGetCodeBindingSource $+--             newGetCodeBindingSourceResponse+--+--         , responseGetDiscoveredSchema $+--             newGetDiscoveredSchemaResponse+--+--         , responseGetResourcePolicy $+--             newGetResourcePolicyResponse+--+--         , responseListDiscoverers $+--             newListDiscoverersResponse+--+--         , responseListRegistries $+--             newListRegistriesResponse+--+--         , responseListSchemaVersions $+--             newListSchemaVersionsResponse+--+--         , responseListSchemas $+--             newListSchemasResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responsePutCodeBinding $+--             newPutCodeBindingResponse+--+--         , responsePutResourcePolicy $+--             newPutResourcePolicyResponse+--+--         , responseSearchSchemas $+--             newSearchSchemasResponse+--+--         , responseStartDiscoverer $+--             newStartDiscovererResponse+--+--         , responseStopDiscoverer $+--             newStopDiscovererResponse+--+--         , responseTagResource $+--             newTagResourceResponse+--+--         , responseUntagResource $+--             newUntagResourceResponse+--+--         , responseUpdateDiscoverer $+--             newUpdateDiscovererResponse+--+--         , responseUpdateRegistry $+--             newUpdateRegistryResponse+--+--         , responseUpdateSchema $+--             newUpdateSchemaResponse+--+--           ]+--     ]++-- Requests++requestCreateDiscoverer :: CreateDiscoverer -> TestTree+requestCreateDiscoverer =+  req+    "CreateDiscoverer"+    "fixture/CreateDiscoverer.yaml"++requestCreateRegistry :: CreateRegistry -> TestTree+requestCreateRegistry =+  req+    "CreateRegistry"+    "fixture/CreateRegistry.yaml"++requestCreateSchema :: CreateSchema -> TestTree+requestCreateSchema =+  req+    "CreateSchema"+    "fixture/CreateSchema.yaml"++requestDeleteDiscoverer :: DeleteDiscoverer -> TestTree+requestDeleteDiscoverer =+  req+    "DeleteDiscoverer"+    "fixture/DeleteDiscoverer.yaml"++requestDeleteRegistry :: DeleteRegistry -> TestTree+requestDeleteRegistry =+  req+    "DeleteRegistry"+    "fixture/DeleteRegistry.yaml"++requestDeleteResourcePolicy :: DeleteResourcePolicy -> TestTree+requestDeleteResourcePolicy =+  req+    "DeleteResourcePolicy"+    "fixture/DeleteResourcePolicy.yaml"++requestDeleteSchema :: DeleteSchema -> TestTree+requestDeleteSchema =+  req+    "DeleteSchema"+    "fixture/DeleteSchema.yaml"++requestDeleteSchemaVersion :: DeleteSchemaVersion -> TestTree+requestDeleteSchemaVersion =+  req+    "DeleteSchemaVersion"+    "fixture/DeleteSchemaVersion.yaml"++requestDescribeCodeBinding :: DescribeCodeBinding -> TestTree+requestDescribeCodeBinding =+  req+    "DescribeCodeBinding"+    "fixture/DescribeCodeBinding.yaml"++requestDescribeDiscoverer :: DescribeDiscoverer -> TestTree+requestDescribeDiscoverer =+  req+    "DescribeDiscoverer"+    "fixture/DescribeDiscoverer.yaml"++requestDescribeRegistry :: DescribeRegistry -> TestTree+requestDescribeRegistry =+  req+    "DescribeRegistry"+    "fixture/DescribeRegistry.yaml"++requestDescribeSchema :: DescribeSchema -> TestTree+requestDescribeSchema =+  req+    "DescribeSchema"+    "fixture/DescribeSchema.yaml"++requestExportSchema :: ExportSchema -> TestTree+requestExportSchema =+  req+    "ExportSchema"+    "fixture/ExportSchema.yaml"++requestGetCodeBindingSource :: GetCodeBindingSource -> TestTree+requestGetCodeBindingSource =+  req+    "GetCodeBindingSource"+    "fixture/GetCodeBindingSource.yaml"++requestGetDiscoveredSchema :: GetDiscoveredSchema -> TestTree+requestGetDiscoveredSchema =+  req+    "GetDiscoveredSchema"+    "fixture/GetDiscoveredSchema.yaml"++requestGetResourcePolicy :: GetResourcePolicy -> TestTree+requestGetResourcePolicy =+  req+    "GetResourcePolicy"+    "fixture/GetResourcePolicy.yaml"++requestListDiscoverers :: ListDiscoverers -> TestTree+requestListDiscoverers =+  req+    "ListDiscoverers"+    "fixture/ListDiscoverers.yaml"++requestListRegistries :: ListRegistries -> TestTree+requestListRegistries =+  req+    "ListRegistries"+    "fixture/ListRegistries.yaml"++requestListSchemaVersions :: ListSchemaVersions -> TestTree+requestListSchemaVersions =+  req+    "ListSchemaVersions"+    "fixture/ListSchemaVersions.yaml"++requestListSchemas :: ListSchemas -> TestTree+requestListSchemas =+  req+    "ListSchemas"+    "fixture/ListSchemas.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestPutCodeBinding :: PutCodeBinding -> TestTree+requestPutCodeBinding =+  req+    "PutCodeBinding"+    "fixture/PutCodeBinding.yaml"++requestPutResourcePolicy :: PutResourcePolicy -> TestTree+requestPutResourcePolicy =+  req+    "PutResourcePolicy"+    "fixture/PutResourcePolicy.yaml"++requestSearchSchemas :: SearchSchemas -> TestTree+requestSearchSchemas =+  req+    "SearchSchemas"+    "fixture/SearchSchemas.yaml"++requestStartDiscoverer :: StartDiscoverer -> TestTree+requestStartDiscoverer =+  req+    "StartDiscoverer"+    "fixture/StartDiscoverer.yaml"++requestStopDiscoverer :: StopDiscoverer -> TestTree+requestStopDiscoverer =+  req+    "StopDiscoverer"+    "fixture/StopDiscoverer.yaml"++requestTagResource :: TagResource -> TestTree+requestTagResource =+  req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource =+  req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestUpdateDiscoverer :: UpdateDiscoverer -> TestTree+requestUpdateDiscoverer =+  req+    "UpdateDiscoverer"+    "fixture/UpdateDiscoverer.yaml"++requestUpdateRegistry :: UpdateRegistry -> TestTree+requestUpdateRegistry =+  req+    "UpdateRegistry"+    "fixture/UpdateRegistry.yaml"++requestUpdateSchema :: UpdateSchema -> TestTree+requestUpdateSchema =+  req+    "UpdateSchema"+    "fixture/UpdateSchema.yaml"++-- Responses++responseCreateDiscoverer :: CreateDiscovererResponse -> TestTree+responseCreateDiscoverer =+  res+    "CreateDiscovererResponse"+    "fixture/CreateDiscovererResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateDiscoverer)++responseCreateRegistry :: CreateRegistryResponse -> TestTree+responseCreateRegistry =+  res+    "CreateRegistryResponse"+    "fixture/CreateRegistryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateRegistry)++responseCreateSchema :: CreateSchemaResponse -> TestTree+responseCreateSchema =+  res+    "CreateSchemaResponse"+    "fixture/CreateSchemaResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateSchema)++responseDeleteDiscoverer :: DeleteDiscovererResponse -> TestTree+responseDeleteDiscoverer =+  res+    "DeleteDiscovererResponse"+    "fixture/DeleteDiscovererResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteDiscoverer)++responseDeleteRegistry :: DeleteRegistryResponse -> TestTree+responseDeleteRegistry =+  res+    "DeleteRegistryResponse"+    "fixture/DeleteRegistryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteRegistry)++responseDeleteResourcePolicy :: DeleteResourcePolicyResponse -> TestTree+responseDeleteResourcePolicy =+  res+    "DeleteResourcePolicyResponse"+    "fixture/DeleteResourcePolicyResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteResourcePolicy)++responseDeleteSchema :: DeleteSchemaResponse -> TestTree+responseDeleteSchema =+  res+    "DeleteSchemaResponse"+    "fixture/DeleteSchemaResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteSchema)++responseDeleteSchemaVersion :: DeleteSchemaVersionResponse -> TestTree+responseDeleteSchemaVersion =+  res+    "DeleteSchemaVersionResponse"+    "fixture/DeleteSchemaVersionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteSchemaVersion)++responseDescribeCodeBinding :: DescribeCodeBindingResponse -> TestTree+responseDescribeCodeBinding =+  res+    "DescribeCodeBindingResponse"+    "fixture/DescribeCodeBindingResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeCodeBinding)++responseDescribeDiscoverer :: DescribeDiscovererResponse -> TestTree+responseDescribeDiscoverer =+  res+    "DescribeDiscovererResponse"+    "fixture/DescribeDiscovererResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeDiscoverer)++responseDescribeRegistry :: DescribeRegistryResponse -> TestTree+responseDescribeRegistry =+  res+    "DescribeRegistryResponse"+    "fixture/DescribeRegistryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeRegistry)++responseDescribeSchema :: DescribeSchemaResponse -> TestTree+responseDescribeSchema =+  res+    "DescribeSchemaResponse"+    "fixture/DescribeSchemaResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeSchema)++responseExportSchema :: ExportSchemaResponse -> TestTree+responseExportSchema =+  res+    "ExportSchemaResponse"+    "fixture/ExportSchemaResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ExportSchema)++responseGetCodeBindingSource :: GetCodeBindingSourceResponse -> TestTree+responseGetCodeBindingSource =+  res+    "GetCodeBindingSourceResponse"+    "fixture/GetCodeBindingSourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetCodeBindingSource)++responseGetDiscoveredSchema :: GetDiscoveredSchemaResponse -> TestTree+responseGetDiscoveredSchema =+  res+    "GetDiscoveredSchemaResponse"+    "fixture/GetDiscoveredSchemaResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetDiscoveredSchema)++responseGetResourcePolicy :: GetResourcePolicyResponse -> TestTree+responseGetResourcePolicy =+  res+    "GetResourcePolicyResponse"+    "fixture/GetResourcePolicyResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetResourcePolicy)++responseListDiscoverers :: ListDiscoverersResponse -> TestTree+responseListDiscoverers =+  res+    "ListDiscoverersResponse"+    "fixture/ListDiscoverersResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListDiscoverers)++responseListRegistries :: ListRegistriesResponse -> TestTree+responseListRegistries =+  res+    "ListRegistriesResponse"+    "fixture/ListRegistriesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListRegistries)++responseListSchemaVersions :: ListSchemaVersionsResponse -> TestTree+responseListSchemaVersions =+  res+    "ListSchemaVersionsResponse"+    "fixture/ListSchemaVersionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSchemaVersions)++responseListSchemas :: ListSchemasResponse -> TestTree+responseListSchemas =+  res+    "ListSchemasResponse"+    "fixture/ListSchemasResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSchemas)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responsePutCodeBinding :: PutCodeBindingResponse -> TestTree+responsePutCodeBinding =+  res+    "PutCodeBindingResponse"+    "fixture/PutCodeBindingResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy PutCodeBinding)++responsePutResourcePolicy :: PutResourcePolicyResponse -> TestTree+responsePutResourcePolicy =+  res+    "PutResourcePolicyResponse"+    "fixture/PutResourcePolicyResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy PutResourcePolicy)++responseSearchSchemas :: SearchSchemasResponse -> TestTree+responseSearchSchemas =+  res+    "SearchSchemasResponse"+    "fixture/SearchSchemasResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy SearchSchemas)++responseStartDiscoverer :: StartDiscovererResponse -> TestTree+responseStartDiscoverer =+  res+    "StartDiscovererResponse"+    "fixture/StartDiscovererResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartDiscoverer)++responseStopDiscoverer :: StopDiscovererResponse -> TestTree+responseStopDiscoverer =+  res+    "StopDiscovererResponse"+    "fixture/StopDiscovererResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopDiscoverer)++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)++responseUpdateDiscoverer :: UpdateDiscovererResponse -> TestTree+responseUpdateDiscoverer =+  res+    "UpdateDiscovererResponse"+    "fixture/UpdateDiscovererResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateDiscoverer)++responseUpdateRegistry :: UpdateRegistryResponse -> TestTree+responseUpdateRegistry =+  res+    "UpdateRegistryResponse"+    "fixture/UpdateRegistryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateRegistry)++responseUpdateSchema :: UpdateSchemaResponse -> TestTree+responseUpdateSchema =+  res+    "UpdateSchemaResponse"+    "fixture/UpdateSchemaResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateSchema)
+ test/Test/Amazonka/Schemas.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.Schemas+-- 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.Schemas+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/Schemas/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.Schemas.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.Schemas.Internal where