packages feed

amazonka-ssm-contacts (empty) → 2.0

raw patch · 112 files changed

+10337/−0 lines, 112 filesdep +amazonka-coredep +amazonka-ssm-contactsdep +amazonka-test

Dependencies added: amazonka-core, amazonka-ssm-contacts, 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 Systems Manager Incident Manager Contacts SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2021-05-03@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ssm-contacts)+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.SSMContacts](http://hackage.haskell.org/package/amazonka-ssm-contacts/docs/Amazonka-SSMContacts.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-ssm-contacts` 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-ssm-contacts.cabal view
@@ -0,0 +1,129 @@+cabal-version:      2.2+name:               amazonka-ssm-contacts+version:            2.0+synopsis:           Amazon Systems Manager Incident Manager Contacts 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 @2021-05-03@ 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.SSMContacts.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.SSMContacts" 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-ssm-contacts++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.SSMContacts+    Amazonka.SSMContacts.AcceptPage+    Amazonka.SSMContacts.ActivateContactChannel+    Amazonka.SSMContacts.CreateContact+    Amazonka.SSMContacts.CreateContactChannel+    Amazonka.SSMContacts.DeactivateContactChannel+    Amazonka.SSMContacts.DeleteContact+    Amazonka.SSMContacts.DeleteContactChannel+    Amazonka.SSMContacts.DescribeEngagement+    Amazonka.SSMContacts.DescribePage+    Amazonka.SSMContacts.GetContact+    Amazonka.SSMContacts.GetContactChannel+    Amazonka.SSMContacts.GetContactPolicy+    Amazonka.SSMContacts.Lens+    Amazonka.SSMContacts.ListContactChannels+    Amazonka.SSMContacts.ListContacts+    Amazonka.SSMContacts.ListEngagements+    Amazonka.SSMContacts.ListPageReceipts+    Amazonka.SSMContacts.ListPagesByContact+    Amazonka.SSMContacts.ListPagesByEngagement+    Amazonka.SSMContacts.ListTagsForResource+    Amazonka.SSMContacts.PutContactPolicy+    Amazonka.SSMContacts.SendActivationCode+    Amazonka.SSMContacts.StartEngagement+    Amazonka.SSMContacts.StopEngagement+    Amazonka.SSMContacts.TagResource+    Amazonka.SSMContacts.Types+    Amazonka.SSMContacts.Types.AcceptCodeValidation+    Amazonka.SSMContacts.Types.AcceptType+    Amazonka.SSMContacts.Types.ActivationStatus+    Amazonka.SSMContacts.Types.ChannelTargetInfo+    Amazonka.SSMContacts.Types.ChannelType+    Amazonka.SSMContacts.Types.Contact+    Amazonka.SSMContacts.Types.ContactChannel+    Amazonka.SSMContacts.Types.ContactChannelAddress+    Amazonka.SSMContacts.Types.ContactTargetInfo+    Amazonka.SSMContacts.Types.ContactType+    Amazonka.SSMContacts.Types.Engagement+    Amazonka.SSMContacts.Types.Page+    Amazonka.SSMContacts.Types.Plan+    Amazonka.SSMContacts.Types.Receipt+    Amazonka.SSMContacts.Types.ReceiptType+    Amazonka.SSMContacts.Types.Stage+    Amazonka.SSMContacts.Types.Tag+    Amazonka.SSMContacts.Types.Target+    Amazonka.SSMContacts.Types.TimeRange+    Amazonka.SSMContacts.UntagResource+    Amazonka.SSMContacts.UpdateContact+    Amazonka.SSMContacts.UpdateContactChannel+    Amazonka.SSMContacts.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-ssm-contacts-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.SSMContacts+    Test.Amazonka.SSMContacts+    Test.Amazonka.SSMContacts.Internal++  build-depends:+    , amazonka-core          >=2.0 && <2.1+    , amazonka-ssm-contacts+    , amazonka-test          >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/AcceptPage.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/AcceptPageResponse.proto view
+ fixture/ActivateContactChannel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ActivateContactChannelResponse.proto view
+ fixture/CreateContact.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/CreateContactChannel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/CreateContactChannelResponse.proto view
+ fixture/CreateContactResponse.proto view
+ fixture/DeactivateContactChannel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/DeactivateContactChannelResponse.proto view
+ fixture/DeleteContact.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/DeleteContactChannel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/DeleteContactChannelResponse.proto view
+ fixture/DeleteContactResponse.proto view
+ fixture/DescribeEngagement.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/DescribeEngagementResponse.proto view
+ fixture/DescribePage.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/DescribePageResponse.proto view
+ fixture/GetContact.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/GetContactChannel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/GetContactChannelResponse.proto view
+ fixture/GetContactPolicy.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/GetContactPolicyResponse.proto view
+ fixture/GetContactResponse.proto view
+ fixture/ListContactChannels.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ListContactChannelsResponse.proto view
+ fixture/ListContacts.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ListContactsResponse.proto view
+ fixture/ListEngagements.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ListEngagementsResponse.proto view
+ fixture/ListPageReceipts.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ListPageReceiptsResponse.proto view
+ fixture/ListPagesByContact.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ListPagesByContactResponse.proto view
+ fixture/ListPagesByEngagement.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/ListPagesByEngagementResponse.proto view
+ fixture/ListTagsForResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/PutContactPolicy.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/PutContactPolicyResponse.proto view
+ fixture/SendActivationCode.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/SendActivationCodeResponse.proto view
+ fixture/StartEngagement.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/StartEngagementResponse.proto view
+ fixture/StopEngagement.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/StopEngagementResponse.proto view
+ fixture/TagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/TagResourceResponse.proto view
+ fixture/UntagResource.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/UpdateContact.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/UpdateContactChannel.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm-contacts/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm-contacts.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/UpdateContactChannelResponse.proto view
+ fixture/UpdateContactResponse.proto view
+ gen/Amazonka/SSMContacts.hs view
@@ -0,0 +1,354 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.SSMContacts+-- 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 @2021-05-03@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Systems Manager Incident Manager is an incident management console+-- designed to help users mitigate and recover from incidents affecting+-- their Amazon Web Services-hosted applications. An incident is any+-- unplanned interruption or reduction in quality of services.+--+-- Incident Manager increases incident resolution by notifying responders+-- of impact, highlighting relevant troubleshooting data, and providing+-- collaboration tools to get services back up and running. To achieve the+-- primary goal of reducing the time-to-resolution of critical incidents,+-- Incident Manager automates response plans and enables responder team+-- escalation.+module Amazonka.SSMContacts+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** ConflictException+    _ConflictException,++    -- ** DataEncryptionException+    _DataEncryptionException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ServiceQuotaExceededException+    _ServiceQuotaExceededException,++    -- ** ThrottlingException+    _ThrottlingException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AcceptPage+    AcceptPage (AcceptPage'),+    newAcceptPage,+    AcceptPageResponse (AcceptPageResponse'),+    newAcceptPageResponse,++    -- ** ActivateContactChannel+    ActivateContactChannel (ActivateContactChannel'),+    newActivateContactChannel,+    ActivateContactChannelResponse (ActivateContactChannelResponse'),+    newActivateContactChannelResponse,++    -- ** CreateContact+    CreateContact (CreateContact'),+    newCreateContact,+    CreateContactResponse (CreateContactResponse'),+    newCreateContactResponse,++    -- ** CreateContactChannel+    CreateContactChannel (CreateContactChannel'),+    newCreateContactChannel,+    CreateContactChannelResponse (CreateContactChannelResponse'),+    newCreateContactChannelResponse,++    -- ** DeactivateContactChannel+    DeactivateContactChannel (DeactivateContactChannel'),+    newDeactivateContactChannel,+    DeactivateContactChannelResponse (DeactivateContactChannelResponse'),+    newDeactivateContactChannelResponse,++    -- ** DeleteContact+    DeleteContact (DeleteContact'),+    newDeleteContact,+    DeleteContactResponse (DeleteContactResponse'),+    newDeleteContactResponse,++    -- ** DeleteContactChannel+    DeleteContactChannel (DeleteContactChannel'),+    newDeleteContactChannel,+    DeleteContactChannelResponse (DeleteContactChannelResponse'),+    newDeleteContactChannelResponse,++    -- ** DescribeEngagement+    DescribeEngagement (DescribeEngagement'),+    newDescribeEngagement,+    DescribeEngagementResponse (DescribeEngagementResponse'),+    newDescribeEngagementResponse,++    -- ** DescribePage+    DescribePage (DescribePage'),+    newDescribePage,+    DescribePageResponse (DescribePageResponse'),+    newDescribePageResponse,++    -- ** GetContact+    GetContact (GetContact'),+    newGetContact,+    GetContactResponse (GetContactResponse'),+    newGetContactResponse,++    -- ** GetContactChannel+    GetContactChannel (GetContactChannel'),+    newGetContactChannel,+    GetContactChannelResponse (GetContactChannelResponse'),+    newGetContactChannelResponse,++    -- ** GetContactPolicy+    GetContactPolicy (GetContactPolicy'),+    newGetContactPolicy,+    GetContactPolicyResponse (GetContactPolicyResponse'),+    newGetContactPolicyResponse,++    -- ** ListContactChannels (Paginated)+    ListContactChannels (ListContactChannels'),+    newListContactChannels,+    ListContactChannelsResponse (ListContactChannelsResponse'),+    newListContactChannelsResponse,++    -- ** ListContacts (Paginated)+    ListContacts (ListContacts'),+    newListContacts,+    ListContactsResponse (ListContactsResponse'),+    newListContactsResponse,++    -- ** ListEngagements (Paginated)+    ListEngagements (ListEngagements'),+    newListEngagements,+    ListEngagementsResponse (ListEngagementsResponse'),+    newListEngagementsResponse,++    -- ** ListPageReceipts (Paginated)+    ListPageReceipts (ListPageReceipts'),+    newListPageReceipts,+    ListPageReceiptsResponse (ListPageReceiptsResponse'),+    newListPageReceiptsResponse,++    -- ** ListPagesByContact (Paginated)+    ListPagesByContact (ListPagesByContact'),+    newListPagesByContact,+    ListPagesByContactResponse (ListPagesByContactResponse'),+    newListPagesByContactResponse,++    -- ** ListPagesByEngagement (Paginated)+    ListPagesByEngagement (ListPagesByEngagement'),+    newListPagesByEngagement,+    ListPagesByEngagementResponse (ListPagesByEngagementResponse'),+    newListPagesByEngagementResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** PutContactPolicy+    PutContactPolicy (PutContactPolicy'),+    newPutContactPolicy,+    PutContactPolicyResponse (PutContactPolicyResponse'),+    newPutContactPolicyResponse,++    -- ** SendActivationCode+    SendActivationCode (SendActivationCode'),+    newSendActivationCode,+    SendActivationCodeResponse (SendActivationCodeResponse'),+    newSendActivationCodeResponse,++    -- ** StartEngagement+    StartEngagement (StartEngagement'),+    newStartEngagement,+    StartEngagementResponse (StartEngagementResponse'),+    newStartEngagementResponse,++    -- ** StopEngagement+    StopEngagement (StopEngagement'),+    newStopEngagement,+    StopEngagementResponse (StopEngagementResponse'),+    newStopEngagementResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateContact+    UpdateContact (UpdateContact'),+    newUpdateContact,+    UpdateContactResponse (UpdateContactResponse'),+    newUpdateContactResponse,++    -- ** UpdateContactChannel+    UpdateContactChannel (UpdateContactChannel'),+    newUpdateContactChannel,+    UpdateContactChannelResponse (UpdateContactChannelResponse'),+    newUpdateContactChannelResponse,++    -- * Types++    -- ** AcceptCodeValidation+    AcceptCodeValidation (..),++    -- ** AcceptType+    AcceptType (..),++    -- ** ActivationStatus+    ActivationStatus (..),++    -- ** ChannelType+    ChannelType (..),++    -- ** ContactType+    ContactType (..),++    -- ** ReceiptType+    ReceiptType (..),++    -- ** ChannelTargetInfo+    ChannelTargetInfo (ChannelTargetInfo'),+    newChannelTargetInfo,++    -- ** Contact+    Contact (Contact'),+    newContact,++    -- ** ContactChannel+    ContactChannel (ContactChannel'),+    newContactChannel,++    -- ** ContactChannelAddress+    ContactChannelAddress (ContactChannelAddress'),+    newContactChannelAddress,++    -- ** ContactTargetInfo+    ContactTargetInfo (ContactTargetInfo'),+    newContactTargetInfo,++    -- ** Engagement+    Engagement (Engagement'),+    newEngagement,++    -- ** Page+    Page (Page'),+    newPage,++    -- ** Plan+    Plan (Plan'),+    newPlan,++    -- ** Receipt+    Receipt (Receipt'),+    newReceipt,++    -- ** Stage+    Stage (Stage'),+    newStage,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** Target+    Target (Target'),+    newTarget,++    -- ** TimeRange+    TimeRange (TimeRange'),+    newTimeRange,+  )+where++import Amazonka.SSMContacts.AcceptPage+import Amazonka.SSMContacts.ActivateContactChannel+import Amazonka.SSMContacts.CreateContact+import Amazonka.SSMContacts.CreateContactChannel+import Amazonka.SSMContacts.DeactivateContactChannel+import Amazonka.SSMContacts.DeleteContact+import Amazonka.SSMContacts.DeleteContactChannel+import Amazonka.SSMContacts.DescribeEngagement+import Amazonka.SSMContacts.DescribePage+import Amazonka.SSMContacts.GetContact+import Amazonka.SSMContacts.GetContactChannel+import Amazonka.SSMContacts.GetContactPolicy+import Amazonka.SSMContacts.Lens+import Amazonka.SSMContacts.ListContactChannels+import Amazonka.SSMContacts.ListContacts+import Amazonka.SSMContacts.ListEngagements+import Amazonka.SSMContacts.ListPageReceipts+import Amazonka.SSMContacts.ListPagesByContact+import Amazonka.SSMContacts.ListPagesByEngagement+import Amazonka.SSMContacts.ListTagsForResource+import Amazonka.SSMContacts.PutContactPolicy+import Amazonka.SSMContacts.SendActivationCode+import Amazonka.SSMContacts.StartEngagement+import Amazonka.SSMContacts.StopEngagement+import Amazonka.SSMContacts.TagResource+import Amazonka.SSMContacts.Types+import Amazonka.SSMContacts.UntagResource+import Amazonka.SSMContacts.UpdateContact+import Amazonka.SSMContacts.UpdateContactChannel+import Amazonka.SSMContacts.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 'SSMContacts'.++-- $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/SSMContacts/AcceptPage.hs view
@@ -0,0 +1,252 @@+{-# 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.SSMContacts.AcceptPage+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Used to acknowledge an engagement to a contact channel during an+-- incident.+module Amazonka.SSMContacts.AcceptPage+  ( -- * Creating a Request+    AcceptPage (..),+    newAcceptPage,++    -- * Request Lenses+    acceptPage_acceptCodeValidation,+    acceptPage_contactChannelId,+    acceptPage_note,+    acceptPage_pageId,+    acceptPage_acceptType,+    acceptPage_acceptCode,++    -- * Destructuring the Response+    AcceptPageResponse (..),+    newAcceptPageResponse,++    -- * Response Lenses+    acceptPageResponse_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.SSMContacts.Types++-- | /See:/ 'newAcceptPage' smart constructor.+data AcceptPage = AcceptPage'+  { -- | An optional field that Incident Manager uses to @ENFORCE@ @AcceptCode@+    -- validation when acknowledging an page. Acknowledgement can occur by+    -- replying to a page, or when entering the AcceptCode in the console.+    -- Enforcing AcceptCode validation causes Incident Manager to verify that+    -- the code entered by the user matches the code sent by Incident Manager+    -- with the page.+    --+    -- Incident Manager can also @IGNORE@ @AcceptCode@ validation. Ignoring+    -- @AcceptCode@ validation causes Incident Manager to accept any value+    -- entered for the @AcceptCode@.+    acceptCodeValidation :: Prelude.Maybe AcceptCodeValidation,+    -- | The ARN of the contact channel.+    contactChannelId :: Prelude.Maybe Prelude.Text,+    -- | Information provided by the user when the user acknowledges the page.+    note :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the engagement to a contact channel.+    pageId :: Prelude.Text,+    -- | The type indicates if the page was @DELIVERED@ or @READ@.+    acceptType :: AcceptType,+    -- | The accept code is a 6-digit code used to acknowledge the page.+    acceptCode :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptPage' with all optional fields 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:+--+-- 'acceptCodeValidation', 'acceptPage_acceptCodeValidation' - An optional field that Incident Manager uses to @ENFORCE@ @AcceptCode@+-- validation when acknowledging an page. Acknowledgement can occur by+-- replying to a page, or when entering the AcceptCode in the console.+-- Enforcing AcceptCode validation causes Incident Manager to verify that+-- the code entered by the user matches the code sent by Incident Manager+-- with the page.+--+-- Incident Manager can also @IGNORE@ @AcceptCode@ validation. Ignoring+-- @AcceptCode@ validation causes Incident Manager to accept any value+-- entered for the @AcceptCode@.+--+-- 'contactChannelId', 'acceptPage_contactChannelId' - The ARN of the contact channel.+--+-- 'note', 'acceptPage_note' - Information provided by the user when the user acknowledges the page.+--+-- 'pageId', 'acceptPage_pageId' - The Amazon Resource Name (ARN) of the engagement to a contact channel.+--+-- 'acceptType', 'acceptPage_acceptType' - The type indicates if the page was @DELIVERED@ or @READ@.+--+-- 'acceptCode', 'acceptPage_acceptCode' - The accept code is a 6-digit code used to acknowledge the page.+newAcceptPage ::+  -- | 'pageId'+  Prelude.Text ->+  -- | 'acceptType'+  AcceptType ->+  -- | 'acceptCode'+  Prelude.Text ->+  AcceptPage+newAcceptPage pPageId_ pAcceptType_ pAcceptCode_ =+  AcceptPage'+    { acceptCodeValidation = Prelude.Nothing,+      contactChannelId = Prelude.Nothing,+      note = Prelude.Nothing,+      pageId = pPageId_,+      acceptType = pAcceptType_,+      acceptCode = pAcceptCode_+    }++-- | An optional field that Incident Manager uses to @ENFORCE@ @AcceptCode@+-- validation when acknowledging an page. Acknowledgement can occur by+-- replying to a page, or when entering the AcceptCode in the console.+-- Enforcing AcceptCode validation causes Incident Manager to verify that+-- the code entered by the user matches the code sent by Incident Manager+-- with the page.+--+-- Incident Manager can also @IGNORE@ @AcceptCode@ validation. Ignoring+-- @AcceptCode@ validation causes Incident Manager to accept any value+-- entered for the @AcceptCode@.+acceptPage_acceptCodeValidation :: Lens.Lens' AcceptPage (Prelude.Maybe AcceptCodeValidation)+acceptPage_acceptCodeValidation = Lens.lens (\AcceptPage' {acceptCodeValidation} -> acceptCodeValidation) (\s@AcceptPage' {} a -> s {acceptCodeValidation = a} :: AcceptPage)++-- | The ARN of the contact channel.+acceptPage_contactChannelId :: Lens.Lens' AcceptPage (Prelude.Maybe Prelude.Text)+acceptPage_contactChannelId = Lens.lens (\AcceptPage' {contactChannelId} -> contactChannelId) (\s@AcceptPage' {} a -> s {contactChannelId = a} :: AcceptPage)++-- | Information provided by the user when the user acknowledges the page.+acceptPage_note :: Lens.Lens' AcceptPage (Prelude.Maybe Prelude.Text)+acceptPage_note = Lens.lens (\AcceptPage' {note} -> note) (\s@AcceptPage' {} a -> s {note = a} :: AcceptPage)++-- | The Amazon Resource Name (ARN) of the engagement to a contact channel.+acceptPage_pageId :: Lens.Lens' AcceptPage Prelude.Text+acceptPage_pageId = Lens.lens (\AcceptPage' {pageId} -> pageId) (\s@AcceptPage' {} a -> s {pageId = a} :: AcceptPage)++-- | The type indicates if the page was @DELIVERED@ or @READ@.+acceptPage_acceptType :: Lens.Lens' AcceptPage AcceptType+acceptPage_acceptType = Lens.lens (\AcceptPage' {acceptType} -> acceptType) (\s@AcceptPage' {} a -> s {acceptType = a} :: AcceptPage)++-- | The accept code is a 6-digit code used to acknowledge the page.+acceptPage_acceptCode :: Lens.Lens' AcceptPage Prelude.Text+acceptPage_acceptCode = Lens.lens (\AcceptPage' {acceptCode} -> acceptCode) (\s@AcceptPage' {} a -> s {acceptCode = a} :: AcceptPage)++instance Core.AWSRequest AcceptPage where+  type AWSResponse AcceptPage = AcceptPageResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AcceptPageResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AcceptPage where+  hashWithSalt _salt AcceptPage' {..} =+    _salt+      `Prelude.hashWithSalt` acceptCodeValidation+      `Prelude.hashWithSalt` contactChannelId+      `Prelude.hashWithSalt` note+      `Prelude.hashWithSalt` pageId+      `Prelude.hashWithSalt` acceptType+      `Prelude.hashWithSalt` acceptCode++instance Prelude.NFData AcceptPage where+  rnf AcceptPage' {..} =+    Prelude.rnf acceptCodeValidation+      `Prelude.seq` Prelude.rnf contactChannelId+      `Prelude.seq` Prelude.rnf note+      `Prelude.seq` Prelude.rnf pageId+      `Prelude.seq` Prelude.rnf acceptType+      `Prelude.seq` Prelude.rnf acceptCode++instance Data.ToHeaders AcceptPage where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.AcceptPage" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AcceptPage where+  toJSON AcceptPage' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AcceptCodeValidation" Data..=)+              Prelude.<$> acceptCodeValidation,+            ("ContactChannelId" Data..=)+              Prelude.<$> contactChannelId,+            ("Note" Data..=) Prelude.<$> note,+            Prelude.Just ("PageId" Data..= pageId),+            Prelude.Just ("AcceptType" Data..= acceptType),+            Prelude.Just ("AcceptCode" Data..= acceptCode)+          ]+      )++instance Data.ToPath AcceptPage where+  toPath = Prelude.const "/"++instance Data.ToQuery AcceptPage where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAcceptPageResponse' smart constructor.+data AcceptPageResponse = AcceptPageResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptPageResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'acceptPageResponse_httpStatus' - The response's http status code.+newAcceptPageResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AcceptPageResponse+newAcceptPageResponse pHttpStatus_ =+  AcceptPageResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+acceptPageResponse_httpStatus :: Lens.Lens' AcceptPageResponse Prelude.Int+acceptPageResponse_httpStatus = Lens.lens (\AcceptPageResponse' {httpStatus} -> httpStatus) (\s@AcceptPageResponse' {} a -> s {httpStatus = a} :: AcceptPageResponse)++instance Prelude.NFData AcceptPageResponse where+  rnf AcceptPageResponse' {..} = Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/ActivateContactChannel.hs view
@@ -0,0 +1,185 @@+{-# 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.SSMContacts.ActivateContactChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Activates a contact\'s contact channel. Incident Manager can\'t engage a+-- contact until the contact channel has been activated.+module Amazonka.SSMContacts.ActivateContactChannel+  ( -- * Creating a Request+    ActivateContactChannel (..),+    newActivateContactChannel,++    -- * Request Lenses+    activateContactChannel_contactChannelId,+    activateContactChannel_activationCode,++    -- * Destructuring the Response+    ActivateContactChannelResponse (..),+    newActivateContactChannelResponse,++    -- * Response Lenses+    activateContactChannelResponse_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.SSMContacts.Types++-- | /See:/ 'newActivateContactChannel' smart constructor.+data ActivateContactChannel = ActivateContactChannel'+  { -- | The Amazon Resource Name (ARN) of the contact channel.+    contactChannelId :: Prelude.Text,+    -- | The code sent to the contact channel when it was created in the contact.+    activationCode :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ActivateContactChannel' with all optional fields 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:+--+-- 'contactChannelId', 'activateContactChannel_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel.+--+-- 'activationCode', 'activateContactChannel_activationCode' - The code sent to the contact channel when it was created in the contact.+newActivateContactChannel ::+  -- | 'contactChannelId'+  Prelude.Text ->+  -- | 'activationCode'+  Prelude.Text ->+  ActivateContactChannel+newActivateContactChannel+  pContactChannelId_+  pActivationCode_ =+    ActivateContactChannel'+      { contactChannelId =+          pContactChannelId_,+        activationCode = pActivationCode_+      }++-- | The Amazon Resource Name (ARN) of the contact channel.+activateContactChannel_contactChannelId :: Lens.Lens' ActivateContactChannel Prelude.Text+activateContactChannel_contactChannelId = Lens.lens (\ActivateContactChannel' {contactChannelId} -> contactChannelId) (\s@ActivateContactChannel' {} a -> s {contactChannelId = a} :: ActivateContactChannel)++-- | The code sent to the contact channel when it was created in the contact.+activateContactChannel_activationCode :: Lens.Lens' ActivateContactChannel Prelude.Text+activateContactChannel_activationCode = Lens.lens (\ActivateContactChannel' {activationCode} -> activationCode) (\s@ActivateContactChannel' {} a -> s {activationCode = a} :: ActivateContactChannel)++instance Core.AWSRequest ActivateContactChannel where+  type+    AWSResponse ActivateContactChannel =+      ActivateContactChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          ActivateContactChannelResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ActivateContactChannel where+  hashWithSalt _salt ActivateContactChannel' {..} =+    _salt+      `Prelude.hashWithSalt` contactChannelId+      `Prelude.hashWithSalt` activationCode++instance Prelude.NFData ActivateContactChannel where+  rnf ActivateContactChannel' {..} =+    Prelude.rnf contactChannelId+      `Prelude.seq` Prelude.rnf activationCode++instance Data.ToHeaders ActivateContactChannel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ActivateContactChannel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ActivateContactChannel where+  toJSON ActivateContactChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContactChannelId" Data..= contactChannelId),+            Prelude.Just+              ("ActivationCode" Data..= activationCode)+          ]+      )++instance Data.ToPath ActivateContactChannel where+  toPath = Prelude.const "/"++instance Data.ToQuery ActivateContactChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newActivateContactChannelResponse' smart constructor.+data ActivateContactChannelResponse = ActivateContactChannelResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ActivateContactChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'activateContactChannelResponse_httpStatus' - The response's http status code.+newActivateContactChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ActivateContactChannelResponse+newActivateContactChannelResponse pHttpStatus_ =+  ActivateContactChannelResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+activateContactChannelResponse_httpStatus :: Lens.Lens' ActivateContactChannelResponse Prelude.Int+activateContactChannelResponse_httpStatus = Lens.lens (\ActivateContactChannelResponse' {httpStatus} -> httpStatus) (\s@ActivateContactChannelResponse' {} a -> s {httpStatus = a} :: ActivateContactChannelResponse)++instance+  Prelude.NFData+    ActivateContactChannelResponse+  where+  rnf ActivateContactChannelResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/CreateContact.hs view
@@ -0,0 +1,265 @@+{-# 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.SSMContacts.CreateContact+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Contacts are either the contacts that Incident Manager engages during an+-- incident or the escalation plans that Incident Manager uses to engage+-- contacts in phases during an incident.+module Amazonka.SSMContacts.CreateContact+  ( -- * Creating a Request+    CreateContact (..),+    newCreateContact,++    -- * Request Lenses+    createContact_displayName,+    createContact_idempotencyToken,+    createContact_tags,+    createContact_alias,+    createContact_type,+    createContact_plan,++    -- * Destructuring the Response+    CreateContactResponse (..),+    newCreateContactResponse,++    -- * Response Lenses+    createContactResponse_httpStatus,+    createContactResponse_contactArn,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newCreateContact' smart constructor.+data CreateContact = CreateContact'+  { -- | The full name of the contact or escalation plan.+    displayName :: Prelude.Maybe Prelude.Text,+    -- | A token ensuring that the operation is called only once with the+    -- specified details.+    idempotencyToken :: Prelude.Maybe Prelude.Text,+    -- | Adds a tag to the target. You can only tag resources created in the+    -- first Region of your replication set.+    tags :: Prelude.Maybe [Tag],+    -- | The short name to quickly identify a contact or escalation plan. The+    -- contact alias must be unique and identifiable.+    alias :: Prelude.Text,+    -- | To create an escalation plan use @ESCALATION@. To create a contact use+    -- @PERSONAL@.+    type' :: ContactType,+    -- | A list of stages. A contact has an engagement plan with stages that+    -- contact specified contact channels. An escalation plan uses stages that+    -- contact specified contacts.+    plan :: Plan+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateContact' with all optional fields 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:+--+-- 'displayName', 'createContact_displayName' - The full name of the contact or escalation plan.+--+-- 'idempotencyToken', 'createContact_idempotencyToken' - A token ensuring that the operation is called only once with the+-- specified details.+--+-- 'tags', 'createContact_tags' - Adds a tag to the target. You can only tag resources created in the+-- first Region of your replication set.+--+-- 'alias', 'createContact_alias' - The short name to quickly identify a contact or escalation plan. The+-- contact alias must be unique and identifiable.+--+-- 'type'', 'createContact_type' - To create an escalation plan use @ESCALATION@. To create a contact use+-- @PERSONAL@.+--+-- 'plan', 'createContact_plan' - A list of stages. A contact has an engagement plan with stages that+-- contact specified contact channels. An escalation plan uses stages that+-- contact specified contacts.+newCreateContact ::+  -- | 'alias'+  Prelude.Text ->+  -- | 'type''+  ContactType ->+  -- | 'plan'+  Plan ->+  CreateContact+newCreateContact pAlias_ pType_ pPlan_ =+  CreateContact'+    { displayName = Prelude.Nothing,+      idempotencyToken = Prelude.Nothing,+      tags = Prelude.Nothing,+      alias = pAlias_,+      type' = pType_,+      plan = pPlan_+    }++-- | The full name of the contact or escalation plan.+createContact_displayName :: Lens.Lens' CreateContact (Prelude.Maybe Prelude.Text)+createContact_displayName = Lens.lens (\CreateContact' {displayName} -> displayName) (\s@CreateContact' {} a -> s {displayName = a} :: CreateContact)++-- | A token ensuring that the operation is called only once with the+-- specified details.+createContact_idempotencyToken :: Lens.Lens' CreateContact (Prelude.Maybe Prelude.Text)+createContact_idempotencyToken = Lens.lens (\CreateContact' {idempotencyToken} -> idempotencyToken) (\s@CreateContact' {} a -> s {idempotencyToken = a} :: CreateContact)++-- | Adds a tag to the target. You can only tag resources created in the+-- first Region of your replication set.+createContact_tags :: Lens.Lens' CreateContact (Prelude.Maybe [Tag])+createContact_tags = Lens.lens (\CreateContact' {tags} -> tags) (\s@CreateContact' {} a -> s {tags = a} :: CreateContact) Prelude.. Lens.mapping Lens.coerced++-- | The short name to quickly identify a contact or escalation plan. The+-- contact alias must be unique and identifiable.+createContact_alias :: Lens.Lens' CreateContact Prelude.Text+createContact_alias = Lens.lens (\CreateContact' {alias} -> alias) (\s@CreateContact' {} a -> s {alias = a} :: CreateContact)++-- | To create an escalation plan use @ESCALATION@. To create a contact use+-- @PERSONAL@.+createContact_type :: Lens.Lens' CreateContact ContactType+createContact_type = Lens.lens (\CreateContact' {type'} -> type') (\s@CreateContact' {} a -> s {type' = a} :: CreateContact)++-- | A list of stages. A contact has an engagement plan with stages that+-- contact specified contact channels. An escalation plan uses stages that+-- contact specified contacts.+createContact_plan :: Lens.Lens' CreateContact Plan+createContact_plan = Lens.lens (\CreateContact' {plan} -> plan) (\s@CreateContact' {} a -> s {plan = a} :: CreateContact)++instance Core.AWSRequest CreateContact where+  type+    AWSResponse CreateContact =+      CreateContactResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateContactResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "ContactArn")+      )++instance Prelude.Hashable CreateContact where+  hashWithSalt _salt CreateContact' {..} =+    _salt+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` idempotencyToken+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` alias+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` plan++instance Prelude.NFData CreateContact where+  rnf CreateContact' {..} =+    Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf idempotencyToken+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf alias+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf plan++instance Data.ToHeaders CreateContact where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.CreateContact" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateContact where+  toJSON CreateContact' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DisplayName" Data..=) Prelude.<$> displayName,+            ("IdempotencyToken" Data..=)+              Prelude.<$> idempotencyToken,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Alias" Data..= alias),+            Prelude.Just ("Type" Data..= type'),+            Prelude.Just ("Plan" Data..= plan)+          ]+      )++instance Data.ToPath CreateContact where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateContact where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateContactResponse' smart constructor.+data CreateContactResponse = CreateContactResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) of the created contact or escalation+    -- plan.+    contactArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateContactResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createContactResponse_httpStatus' - The response's http status code.+--+-- 'contactArn', 'createContactResponse_contactArn' - The Amazon Resource Name (ARN) of the created contact or escalation+-- plan.+newCreateContactResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'contactArn'+  Prelude.Text ->+  CreateContactResponse+newCreateContactResponse pHttpStatus_ pContactArn_ =+  CreateContactResponse'+    { httpStatus = pHttpStatus_,+      contactArn = pContactArn_+    }++-- | The response's http status code.+createContactResponse_httpStatus :: Lens.Lens' CreateContactResponse Prelude.Int+createContactResponse_httpStatus = Lens.lens (\CreateContactResponse' {httpStatus} -> httpStatus) (\s@CreateContactResponse' {} a -> s {httpStatus = a} :: CreateContactResponse)++-- | The Amazon Resource Name (ARN) of the created contact or escalation+-- plan.+createContactResponse_contactArn :: Lens.Lens' CreateContactResponse Prelude.Text+createContactResponse_contactArn = Lens.lens (\CreateContactResponse' {contactArn} -> contactArn) (\s@CreateContactResponse' {} a -> s {contactArn = a} :: CreateContactResponse)++instance Prelude.NFData CreateContactResponse where+  rnf CreateContactResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf contactArn
+ gen/Amazonka/SSMContacts/CreateContactChannel.hs view
@@ -0,0 +1,311 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.CreateContactChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- A contact channel is the method that Incident Manager uses to engage+-- your contact.+module Amazonka.SSMContacts.CreateContactChannel+  ( -- * Creating a Request+    CreateContactChannel (..),+    newCreateContactChannel,++    -- * Request Lenses+    createContactChannel_deferActivation,+    createContactChannel_idempotencyToken,+    createContactChannel_contactId,+    createContactChannel_name,+    createContactChannel_type,+    createContactChannel_deliveryAddress,++    -- * Destructuring the Response+    CreateContactChannelResponse (..),+    newCreateContactChannelResponse,++    -- * Response Lenses+    createContactChannelResponse_httpStatus,+    createContactChannelResponse_contactChannelArn,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newCreateContactChannel' smart constructor.+data CreateContactChannel = CreateContactChannel'+  { -- | If you want to activate the channel at a later time, you can choose to+    -- defer activation. Incident Manager can\'t engage your contact channel+    -- until it has been activated.+    deferActivation :: Prelude.Maybe Prelude.Bool,+    -- | A token ensuring that the operation is called only once with the+    -- specified details.+    idempotencyToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the contact you are adding the contact+    -- channel to.+    contactId :: Prelude.Text,+    -- | The name of the contact channel.+    name :: Prelude.Text,+    -- | Incident Manager supports three types of contact channels:+    --+    -- -   @SMS@+    --+    -- -   @VOICE@+    --+    -- -   @EMAIL@+    type' :: ChannelType,+    -- | The details that Incident Manager uses when trying to engage the contact+    -- channel. The format is dependent on the type of the contact channel. The+    -- following are the expected formats:+    --+    -- -   SMS - \'+\' followed by the country code and phone number+    --+    -- -   VOICE - \'+\' followed by the country code and phone number+    --+    -- -   EMAIL - any standard email format+    deliveryAddress :: ContactChannelAddress+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateContactChannel' with all optional fields 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:+--+-- 'deferActivation', 'createContactChannel_deferActivation' - If you want to activate the channel at a later time, you can choose to+-- defer activation. Incident Manager can\'t engage your contact channel+-- until it has been activated.+--+-- 'idempotencyToken', 'createContactChannel_idempotencyToken' - A token ensuring that the operation is called only once with the+-- specified details.+--+-- 'contactId', 'createContactChannel_contactId' - The Amazon Resource Name (ARN) of the contact you are adding the contact+-- channel to.+--+-- 'name', 'createContactChannel_name' - The name of the contact channel.+--+-- 'type'', 'createContactChannel_type' - Incident Manager supports three types of contact channels:+--+-- -   @SMS@+--+-- -   @VOICE@+--+-- -   @EMAIL@+--+-- 'deliveryAddress', 'createContactChannel_deliveryAddress' - The details that Incident Manager uses when trying to engage the contact+-- channel. The format is dependent on the type of the contact channel. The+-- following are the expected formats:+--+-- -   SMS - \'+\' followed by the country code and phone number+--+-- -   VOICE - \'+\' followed by the country code and phone number+--+-- -   EMAIL - any standard email format+newCreateContactChannel ::+  -- | 'contactId'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'type''+  ChannelType ->+  -- | 'deliveryAddress'+  ContactChannelAddress ->+  CreateContactChannel+newCreateContactChannel+  pContactId_+  pName_+  pType_+  pDeliveryAddress_ =+    CreateContactChannel'+      { deferActivation =+          Prelude.Nothing,+        idempotencyToken = Prelude.Nothing,+        contactId = pContactId_,+        name = pName_,+        type' = pType_,+        deliveryAddress = pDeliveryAddress_+      }++-- | If you want to activate the channel at a later time, you can choose to+-- defer activation. Incident Manager can\'t engage your contact channel+-- until it has been activated.+createContactChannel_deferActivation :: Lens.Lens' CreateContactChannel (Prelude.Maybe Prelude.Bool)+createContactChannel_deferActivation = Lens.lens (\CreateContactChannel' {deferActivation} -> deferActivation) (\s@CreateContactChannel' {} a -> s {deferActivation = a} :: CreateContactChannel)++-- | A token ensuring that the operation is called only once with the+-- specified details.+createContactChannel_idempotencyToken :: Lens.Lens' CreateContactChannel (Prelude.Maybe Prelude.Text)+createContactChannel_idempotencyToken = Lens.lens (\CreateContactChannel' {idempotencyToken} -> idempotencyToken) (\s@CreateContactChannel' {} a -> s {idempotencyToken = a} :: CreateContactChannel)++-- | The Amazon Resource Name (ARN) of the contact you are adding the contact+-- channel to.+createContactChannel_contactId :: Lens.Lens' CreateContactChannel Prelude.Text+createContactChannel_contactId = Lens.lens (\CreateContactChannel' {contactId} -> contactId) (\s@CreateContactChannel' {} a -> s {contactId = a} :: CreateContactChannel)++-- | The name of the contact channel.+createContactChannel_name :: Lens.Lens' CreateContactChannel Prelude.Text+createContactChannel_name = Lens.lens (\CreateContactChannel' {name} -> name) (\s@CreateContactChannel' {} a -> s {name = a} :: CreateContactChannel)++-- | Incident Manager supports three types of contact channels:+--+-- -   @SMS@+--+-- -   @VOICE@+--+-- -   @EMAIL@+createContactChannel_type :: Lens.Lens' CreateContactChannel ChannelType+createContactChannel_type = Lens.lens (\CreateContactChannel' {type'} -> type') (\s@CreateContactChannel' {} a -> s {type' = a} :: CreateContactChannel)++-- | The details that Incident Manager uses when trying to engage the contact+-- channel. The format is dependent on the type of the contact channel. The+-- following are the expected formats:+--+-- -   SMS - \'+\' followed by the country code and phone number+--+-- -   VOICE - \'+\' followed by the country code and phone number+--+-- -   EMAIL - any standard email format+createContactChannel_deliveryAddress :: Lens.Lens' CreateContactChannel ContactChannelAddress+createContactChannel_deliveryAddress = Lens.lens (\CreateContactChannel' {deliveryAddress} -> deliveryAddress) (\s@CreateContactChannel' {} a -> s {deliveryAddress = a} :: CreateContactChannel)++instance Core.AWSRequest CreateContactChannel where+  type+    AWSResponse CreateContactChannel =+      CreateContactChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateContactChannelResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "ContactChannelArn")+      )++instance Prelude.Hashable CreateContactChannel where+  hashWithSalt _salt CreateContactChannel' {..} =+    _salt+      `Prelude.hashWithSalt` deferActivation+      `Prelude.hashWithSalt` idempotencyToken+      `Prelude.hashWithSalt` contactId+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` deliveryAddress++instance Prelude.NFData CreateContactChannel where+  rnf CreateContactChannel' {..} =+    Prelude.rnf deferActivation+      `Prelude.seq` Prelude.rnf idempotencyToken+      `Prelude.seq` Prelude.rnf contactId+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf deliveryAddress++instance Data.ToHeaders CreateContactChannel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.CreateContactChannel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateContactChannel where+  toJSON CreateContactChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DeferActivation" Data..=)+              Prelude.<$> deferActivation,+            ("IdempotencyToken" Data..=)+              Prelude.<$> idempotencyToken,+            Prelude.Just ("ContactId" Data..= contactId),+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Type" Data..= type'),+            Prelude.Just+              ("DeliveryAddress" Data..= deliveryAddress)+          ]+      )++instance Data.ToPath CreateContactChannel where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateContactChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateContactChannelResponse' smart constructor.+data CreateContactChannelResponse = CreateContactChannelResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) of the contact channel.+    contactChannelArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateContactChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createContactChannelResponse_httpStatus' - The response's http status code.+--+-- 'contactChannelArn', 'createContactChannelResponse_contactChannelArn' - The Amazon Resource Name (ARN) of the contact channel.+newCreateContactChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'contactChannelArn'+  Prelude.Text ->+  CreateContactChannelResponse+newCreateContactChannelResponse+  pHttpStatus_+  pContactChannelArn_ =+    CreateContactChannelResponse'+      { httpStatus =+          pHttpStatus_,+        contactChannelArn = pContactChannelArn_+      }++-- | The response's http status code.+createContactChannelResponse_httpStatus :: Lens.Lens' CreateContactChannelResponse Prelude.Int+createContactChannelResponse_httpStatus = Lens.lens (\CreateContactChannelResponse' {httpStatus} -> httpStatus) (\s@CreateContactChannelResponse' {} a -> s {httpStatus = a} :: CreateContactChannelResponse)++-- | The Amazon Resource Name (ARN) of the contact channel.+createContactChannelResponse_contactChannelArn :: Lens.Lens' CreateContactChannelResponse Prelude.Text+createContactChannelResponse_contactChannelArn = Lens.lens (\CreateContactChannelResponse' {contactChannelArn} -> contactChannelArn) (\s@CreateContactChannelResponse' {} a -> s {contactChannelArn = a} :: CreateContactChannelResponse)++instance Prelude.NFData CreateContactChannelResponse where+  rnf CreateContactChannelResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf contactChannelArn
+ gen/Amazonka/SSMContacts/DeactivateContactChannel.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.SSMContacts.DeactivateContactChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- To no longer receive Incident Manager engagements to a contact channel,+-- you can deactivate the channel.+module Amazonka.SSMContacts.DeactivateContactChannel+  ( -- * Creating a Request+    DeactivateContactChannel (..),+    newDeactivateContactChannel,++    -- * Request Lenses+    deactivateContactChannel_contactChannelId,++    -- * Destructuring the Response+    DeactivateContactChannelResponse (..),+    newDeactivateContactChannelResponse,++    -- * Response Lenses+    deactivateContactChannelResponse_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.SSMContacts.Types++-- | /See:/ 'newDeactivateContactChannel' smart constructor.+data DeactivateContactChannel = DeactivateContactChannel'+  { -- | The Amazon Resource Name (ARN) of the contact channel you\'re+    -- deactivating.+    contactChannelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeactivateContactChannel' with all optional fields 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:+--+-- 'contactChannelId', 'deactivateContactChannel_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel you\'re+-- deactivating.+newDeactivateContactChannel ::+  -- | 'contactChannelId'+  Prelude.Text ->+  DeactivateContactChannel+newDeactivateContactChannel pContactChannelId_ =+  DeactivateContactChannel'+    { contactChannelId =+        pContactChannelId_+    }++-- | The Amazon Resource Name (ARN) of the contact channel you\'re+-- deactivating.+deactivateContactChannel_contactChannelId :: Lens.Lens' DeactivateContactChannel Prelude.Text+deactivateContactChannel_contactChannelId = Lens.lens (\DeactivateContactChannel' {contactChannelId} -> contactChannelId) (\s@DeactivateContactChannel' {} a -> s {contactChannelId = a} :: DeactivateContactChannel)++instance Core.AWSRequest DeactivateContactChannel where+  type+    AWSResponse DeactivateContactChannel =+      DeactivateContactChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeactivateContactChannelResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeactivateContactChannel where+  hashWithSalt _salt DeactivateContactChannel' {..} =+    _salt `Prelude.hashWithSalt` contactChannelId++instance Prelude.NFData DeactivateContactChannel where+  rnf DeactivateContactChannel' {..} =+    Prelude.rnf contactChannelId++instance Data.ToHeaders DeactivateContactChannel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.DeactivateContactChannel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeactivateContactChannel where+  toJSON DeactivateContactChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContactChannelId" Data..= contactChannelId)+          ]+      )++instance Data.ToPath DeactivateContactChannel where+  toPath = Prelude.const "/"++instance Data.ToQuery DeactivateContactChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeactivateContactChannelResponse' smart constructor.+data DeactivateContactChannelResponse = DeactivateContactChannelResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeactivateContactChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deactivateContactChannelResponse_httpStatus' - The response's http status code.+newDeactivateContactChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeactivateContactChannelResponse+newDeactivateContactChannelResponse pHttpStatus_ =+  DeactivateContactChannelResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deactivateContactChannelResponse_httpStatus :: Lens.Lens' DeactivateContactChannelResponse Prelude.Int+deactivateContactChannelResponse_httpStatus = Lens.lens (\DeactivateContactChannelResponse' {httpStatus} -> httpStatus) (\s@DeactivateContactChannelResponse' {} a -> s {httpStatus = a} :: DeactivateContactChannelResponse)++instance+  Prelude.NFData+    DeactivateContactChannelResponse+  where+  rnf DeactivateContactChannelResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/DeleteContact.hs view
@@ -0,0 +1,155 @@+{-# 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.SSMContacts.DeleteContact+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- To remove a contact from Incident Manager, you can delete the contact.+-- Deleting a contact removes them from all escalation plans and related+-- response plans. Deleting an escalation plan removes it from all related+-- response plans. You will have to recreate the contact and its contact+-- channels before you can use it again.+module Amazonka.SSMContacts.DeleteContact+  ( -- * Creating a Request+    DeleteContact (..),+    newDeleteContact,++    -- * Request Lenses+    deleteContact_contactId,++    -- * Destructuring the Response+    DeleteContactResponse (..),+    newDeleteContactResponse,++    -- * Response Lenses+    deleteContactResponse_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.SSMContacts.Types++-- | /See:/ 'newDeleteContact' smart constructor.+data DeleteContact = DeleteContact'+  { -- | The Amazon Resource Name (ARN) of the contact that you\'re deleting.+    contactId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContact' with all optional fields 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:+--+-- 'contactId', 'deleteContact_contactId' - The Amazon Resource Name (ARN) of the contact that you\'re deleting.+newDeleteContact ::+  -- | 'contactId'+  Prelude.Text ->+  DeleteContact+newDeleteContact pContactId_ =+  DeleteContact' {contactId = pContactId_}++-- | The Amazon Resource Name (ARN) of the contact that you\'re deleting.+deleteContact_contactId :: Lens.Lens' DeleteContact Prelude.Text+deleteContact_contactId = Lens.lens (\DeleteContact' {contactId} -> contactId) (\s@DeleteContact' {} a -> s {contactId = a} :: DeleteContact)++instance Core.AWSRequest DeleteContact where+  type+    AWSResponse DeleteContact =+      DeleteContactResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteContactResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteContact where+  hashWithSalt _salt DeleteContact' {..} =+    _salt `Prelude.hashWithSalt` contactId++instance Prelude.NFData DeleteContact where+  rnf DeleteContact' {..} = Prelude.rnf contactId++instance Data.ToHeaders DeleteContact where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.DeleteContact" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteContact where+  toJSON DeleteContact' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ContactId" Data..= contactId)]+      )++instance Data.ToPath DeleteContact where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteContact where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteContactResponse' smart constructor.+data DeleteContactResponse = DeleteContactResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContactResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteContactResponse_httpStatus' - The response's http status code.+newDeleteContactResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteContactResponse+newDeleteContactResponse pHttpStatus_ =+  DeleteContactResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteContactResponse_httpStatus :: Lens.Lens' DeleteContactResponse Prelude.Int+deleteContactResponse_httpStatus = Lens.lens (\DeleteContactResponse' {httpStatus} -> httpStatus) (\s@DeleteContactResponse' {} a -> s {httpStatus = a} :: DeleteContactResponse)++instance Prelude.NFData DeleteContactResponse where+  rnf DeleteContactResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/DeleteContactChannel.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.SSMContacts.DeleteContactChannel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- To no longer receive engagements on a contact channel, you can delete+-- the channel from a contact. Deleting the contact channel removes it from+-- the contact\'s engagement plan. If you delete the only contact channel+-- for a contact, you won\'t be able to engage that contact during an+-- incident.+module Amazonka.SSMContacts.DeleteContactChannel+  ( -- * Creating a Request+    DeleteContactChannel (..),+    newDeleteContactChannel,++    -- * Request Lenses+    deleteContactChannel_contactChannelId,++    -- * Destructuring the Response+    DeleteContactChannelResponse (..),+    newDeleteContactChannelResponse,++    -- * Response Lenses+    deleteContactChannelResponse_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.SSMContacts.Types++-- | /See:/ 'newDeleteContactChannel' smart constructor.+data DeleteContactChannel = DeleteContactChannel'+  { -- | The Amazon Resource Name (ARN) of the contact channel.+    contactChannelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContactChannel' with all optional fields 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:+--+-- 'contactChannelId', 'deleteContactChannel_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel.+newDeleteContactChannel ::+  -- | 'contactChannelId'+  Prelude.Text ->+  DeleteContactChannel+newDeleteContactChannel pContactChannelId_ =+  DeleteContactChannel'+    { contactChannelId =+        pContactChannelId_+    }++-- | The Amazon Resource Name (ARN) of the contact channel.+deleteContactChannel_contactChannelId :: Lens.Lens' DeleteContactChannel Prelude.Text+deleteContactChannel_contactChannelId = Lens.lens (\DeleteContactChannel' {contactChannelId} -> contactChannelId) (\s@DeleteContactChannel' {} a -> s {contactChannelId = a} :: DeleteContactChannel)++instance Core.AWSRequest DeleteContactChannel where+  type+    AWSResponse DeleteContactChannel =+      DeleteContactChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteContactChannelResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteContactChannel where+  hashWithSalt _salt DeleteContactChannel' {..} =+    _salt `Prelude.hashWithSalt` contactChannelId++instance Prelude.NFData DeleteContactChannel where+  rnf DeleteContactChannel' {..} =+    Prelude.rnf contactChannelId++instance Data.ToHeaders DeleteContactChannel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.DeleteContactChannel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteContactChannel where+  toJSON DeleteContactChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContactChannelId" Data..= contactChannelId)+          ]+      )++instance Data.ToPath DeleteContactChannel where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteContactChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteContactChannelResponse' smart constructor.+data DeleteContactChannelResponse = DeleteContactChannelResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteContactChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteContactChannelResponse_httpStatus' - The response's http status code.+newDeleteContactChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteContactChannelResponse+newDeleteContactChannelResponse pHttpStatus_ =+  DeleteContactChannelResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteContactChannelResponse_httpStatus :: Lens.Lens' DeleteContactChannelResponse Prelude.Int+deleteContactChannelResponse_httpStatus = Lens.lens (\DeleteContactChannelResponse' {httpStatus} -> httpStatus) (\s@DeleteContactChannelResponse' {} a -> s {httpStatus = a} :: DeleteContactChannelResponse)++instance Prelude.NFData DeleteContactChannelResponse where+  rnf DeleteContactChannelResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/DescribeEngagement.hs view
@@ -0,0 +1,310 @@+{-# 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.SSMContacts.DescribeEngagement+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Incident Manager uses engagements to engage contacts and escalation+-- plans during an incident. Use this command to describe the engagement+-- that occurred during an incident.+module Amazonka.SSMContacts.DescribeEngagement+  ( -- * Creating a Request+    DescribeEngagement (..),+    newDescribeEngagement,++    -- * Request Lenses+    describeEngagement_engagementId,++    -- * Destructuring the Response+    DescribeEngagementResponse (..),+    newDescribeEngagementResponse,++    -- * Response Lenses+    describeEngagementResponse_incidentId,+    describeEngagementResponse_publicContent,+    describeEngagementResponse_publicSubject,+    describeEngagementResponse_startTime,+    describeEngagementResponse_stopTime,+    describeEngagementResponse_httpStatus,+    describeEngagementResponse_contactArn,+    describeEngagementResponse_engagementArn,+    describeEngagementResponse_sender,+    describeEngagementResponse_subject,+    describeEngagementResponse_content,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newDescribeEngagement' smart constructor.+data DescribeEngagement = DescribeEngagement'+  { -- | The Amazon Resource Name (ARN) of the engagement you want the details+    -- of.+    engagementId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEngagement' with all optional fields 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:+--+-- 'engagementId', 'describeEngagement_engagementId' - The Amazon Resource Name (ARN) of the engagement you want the details+-- of.+newDescribeEngagement ::+  -- | 'engagementId'+  Prelude.Text ->+  DescribeEngagement+newDescribeEngagement pEngagementId_ =+  DescribeEngagement' {engagementId = pEngagementId_}++-- | The Amazon Resource Name (ARN) of the engagement you want the details+-- of.+describeEngagement_engagementId :: Lens.Lens' DescribeEngagement Prelude.Text+describeEngagement_engagementId = Lens.lens (\DescribeEngagement' {engagementId} -> engagementId) (\s@DescribeEngagement' {} a -> s {engagementId = a} :: DescribeEngagement)++instance Core.AWSRequest DescribeEngagement where+  type+    AWSResponse DescribeEngagement =+      DescribeEngagementResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEngagementResponse'+            Prelude.<$> (x Data..?> "IncidentId")+            Prelude.<*> (x Data..?> "PublicContent")+            Prelude.<*> (x Data..?> "PublicSubject")+            Prelude.<*> (x Data..?> "StartTime")+            Prelude.<*> (x Data..?> "StopTime")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "ContactArn")+            Prelude.<*> (x Data..:> "EngagementArn")+            Prelude.<*> (x Data..:> "Sender")+            Prelude.<*> (x Data..:> "Subject")+            Prelude.<*> (x Data..:> "Content")+      )++instance Prelude.Hashable DescribeEngagement where+  hashWithSalt _salt DescribeEngagement' {..} =+    _salt `Prelude.hashWithSalt` engagementId++instance Prelude.NFData DescribeEngagement where+  rnf DescribeEngagement' {..} =+    Prelude.rnf engagementId++instance Data.ToHeaders DescribeEngagement where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.DescribeEngagement" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEngagement where+  toJSON DescribeEngagement' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("EngagementId" Data..= engagementId)]+      )++instance Data.ToPath DescribeEngagement where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEngagement where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEngagementResponse' smart constructor.+data DescribeEngagementResponse = DescribeEngagementResponse'+  { -- | The ARN of the incident in which the engagement occurred.+    incidentId :: Prelude.Maybe Prelude.Text,+    -- | The insecure content of the message that was sent to the contact. Use+    -- this field for engagements to @SMS@.+    publicContent :: Prelude.Maybe Prelude.Text,+    -- | The insecure subject of the message that was sent to the contact. Use+    -- this field for engagements to @SMS@.+    publicSubject :: Prelude.Maybe Prelude.Text,+    -- | The time that the engagement started.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The time that the engagement ended.+    stopTime :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The ARN of the escalation plan or contacts involved in the engagement.+    contactArn :: Prelude.Text,+    -- | The ARN of the engagement.+    engagementArn :: Prelude.Text,+    -- | The user that started the engagement.+    sender :: Prelude.Text,+    -- | The secure subject of the message that was sent to the contact. Use this+    -- field for engagements to @VOICE@ and @EMAIL@.+    subject :: Prelude.Text,+    -- | The secure content of the message that was sent to the contact. Use this+    -- field for engagements to @VOICE@ and @EMAIL@.+    content :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEngagementResponse' with all optional fields 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:+--+-- 'incidentId', 'describeEngagementResponse_incidentId' - The ARN of the incident in which the engagement occurred.+--+-- 'publicContent', 'describeEngagementResponse_publicContent' - The insecure content of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+--+-- 'publicSubject', 'describeEngagementResponse_publicSubject' - The insecure subject of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+--+-- 'startTime', 'describeEngagementResponse_startTime' - The time that the engagement started.+--+-- 'stopTime', 'describeEngagementResponse_stopTime' - The time that the engagement ended.+--+-- 'httpStatus', 'describeEngagementResponse_httpStatus' - The response's http status code.+--+-- 'contactArn', 'describeEngagementResponse_contactArn' - The ARN of the escalation plan or contacts involved in the engagement.+--+-- 'engagementArn', 'describeEngagementResponse_engagementArn' - The ARN of the engagement.+--+-- 'sender', 'describeEngagementResponse_sender' - The user that started the engagement.+--+-- 'subject', 'describeEngagementResponse_subject' - The secure subject of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+--+-- 'content', 'describeEngagementResponse_content' - The secure content of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+newDescribeEngagementResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'engagementArn'+  Prelude.Text ->+  -- | 'sender'+  Prelude.Text ->+  -- | 'subject'+  Prelude.Text ->+  -- | 'content'+  Prelude.Text ->+  DescribeEngagementResponse+newDescribeEngagementResponse+  pHttpStatus_+  pContactArn_+  pEngagementArn_+  pSender_+  pSubject_+  pContent_ =+    DescribeEngagementResponse'+      { incidentId =+          Prelude.Nothing,+        publicContent = Prelude.Nothing,+        publicSubject = Prelude.Nothing,+        startTime = Prelude.Nothing,+        stopTime = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        contactArn = pContactArn_,+        engagementArn = pEngagementArn_,+        sender = pSender_,+        subject = pSubject_,+        content = pContent_+      }++-- | The ARN of the incident in which the engagement occurred.+describeEngagementResponse_incidentId :: Lens.Lens' DescribeEngagementResponse (Prelude.Maybe Prelude.Text)+describeEngagementResponse_incidentId = Lens.lens (\DescribeEngagementResponse' {incidentId} -> incidentId) (\s@DescribeEngagementResponse' {} a -> s {incidentId = a} :: DescribeEngagementResponse)++-- | The insecure content of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+describeEngagementResponse_publicContent :: Lens.Lens' DescribeEngagementResponse (Prelude.Maybe Prelude.Text)+describeEngagementResponse_publicContent = Lens.lens (\DescribeEngagementResponse' {publicContent} -> publicContent) (\s@DescribeEngagementResponse' {} a -> s {publicContent = a} :: DescribeEngagementResponse)++-- | The insecure subject of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+describeEngagementResponse_publicSubject :: Lens.Lens' DescribeEngagementResponse (Prelude.Maybe Prelude.Text)+describeEngagementResponse_publicSubject = Lens.lens (\DescribeEngagementResponse' {publicSubject} -> publicSubject) (\s@DescribeEngagementResponse' {} a -> s {publicSubject = a} :: DescribeEngagementResponse)++-- | The time that the engagement started.+describeEngagementResponse_startTime :: Lens.Lens' DescribeEngagementResponse (Prelude.Maybe Prelude.UTCTime)+describeEngagementResponse_startTime = Lens.lens (\DescribeEngagementResponse' {startTime} -> startTime) (\s@DescribeEngagementResponse' {} a -> s {startTime = a} :: DescribeEngagementResponse) Prelude.. Lens.mapping Data._Time++-- | The time that the engagement ended.+describeEngagementResponse_stopTime :: Lens.Lens' DescribeEngagementResponse (Prelude.Maybe Prelude.UTCTime)+describeEngagementResponse_stopTime = Lens.lens (\DescribeEngagementResponse' {stopTime} -> stopTime) (\s@DescribeEngagementResponse' {} a -> s {stopTime = a} :: DescribeEngagementResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeEngagementResponse_httpStatus :: Lens.Lens' DescribeEngagementResponse Prelude.Int+describeEngagementResponse_httpStatus = Lens.lens (\DescribeEngagementResponse' {httpStatus} -> httpStatus) (\s@DescribeEngagementResponse' {} a -> s {httpStatus = a} :: DescribeEngagementResponse)++-- | The ARN of the escalation plan or contacts involved in the engagement.+describeEngagementResponse_contactArn :: Lens.Lens' DescribeEngagementResponse Prelude.Text+describeEngagementResponse_contactArn = Lens.lens (\DescribeEngagementResponse' {contactArn} -> contactArn) (\s@DescribeEngagementResponse' {} a -> s {contactArn = a} :: DescribeEngagementResponse)++-- | The ARN of the engagement.+describeEngagementResponse_engagementArn :: Lens.Lens' DescribeEngagementResponse Prelude.Text+describeEngagementResponse_engagementArn = Lens.lens (\DescribeEngagementResponse' {engagementArn} -> engagementArn) (\s@DescribeEngagementResponse' {} a -> s {engagementArn = a} :: DescribeEngagementResponse)++-- | The user that started the engagement.+describeEngagementResponse_sender :: Lens.Lens' DescribeEngagementResponse Prelude.Text+describeEngagementResponse_sender = Lens.lens (\DescribeEngagementResponse' {sender} -> sender) (\s@DescribeEngagementResponse' {} a -> s {sender = a} :: DescribeEngagementResponse)++-- | The secure subject of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+describeEngagementResponse_subject :: Lens.Lens' DescribeEngagementResponse Prelude.Text+describeEngagementResponse_subject = Lens.lens (\DescribeEngagementResponse' {subject} -> subject) (\s@DescribeEngagementResponse' {} a -> s {subject = a} :: DescribeEngagementResponse)++-- | The secure content of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+describeEngagementResponse_content :: Lens.Lens' DescribeEngagementResponse Prelude.Text+describeEngagementResponse_content = Lens.lens (\DescribeEngagementResponse' {content} -> content) (\s@DescribeEngagementResponse' {} a -> s {content = a} :: DescribeEngagementResponse)++instance Prelude.NFData DescribeEngagementResponse where+  rnf DescribeEngagementResponse' {..} =+    Prelude.rnf incidentId+      `Prelude.seq` Prelude.rnf publicContent+      `Prelude.seq` Prelude.rnf publicSubject+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf stopTime+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf engagementArn+      `Prelude.seq` Prelude.rnf sender+      `Prelude.seq` Prelude.rnf subject+      `Prelude.seq` Prelude.rnf content
+ gen/Amazonka/SSMContacts/DescribePage.hs view
@@ -0,0 +1,327 @@+{-# 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.SSMContacts.DescribePage+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists details of the engagement to a contact channel.+module Amazonka.SSMContacts.DescribePage+  ( -- * Creating a Request+    DescribePage (..),+    newDescribePage,++    -- * Request Lenses+    describePage_pageId,++    -- * Destructuring the Response+    DescribePageResponse (..),+    newDescribePageResponse,++    -- * Response Lenses+    describePageResponse_deliveryTime,+    describePageResponse_incidentId,+    describePageResponse_publicContent,+    describePageResponse_publicSubject,+    describePageResponse_readTime,+    describePageResponse_sentTime,+    describePageResponse_httpStatus,+    describePageResponse_pageArn,+    describePageResponse_engagementArn,+    describePageResponse_contactArn,+    describePageResponse_sender,+    describePageResponse_subject,+    describePageResponse_content,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newDescribePage' smart constructor.+data DescribePage = DescribePage'+  { -- | The ID of the engagement to a contact channel.+    pageId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribePage' with all optional fields 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:+--+-- 'pageId', 'describePage_pageId' - The ID of the engagement to a contact channel.+newDescribePage ::+  -- | 'pageId'+  Prelude.Text ->+  DescribePage+newDescribePage pPageId_ =+  DescribePage' {pageId = pPageId_}++-- | The ID of the engagement to a contact channel.+describePage_pageId :: Lens.Lens' DescribePage Prelude.Text+describePage_pageId = Lens.lens (\DescribePage' {pageId} -> pageId) (\s@DescribePage' {} a -> s {pageId = a} :: DescribePage)++instance Core.AWSRequest DescribePage where+  type AWSResponse DescribePage = DescribePageResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribePageResponse'+            Prelude.<$> (x Data..?> "DeliveryTime")+            Prelude.<*> (x Data..?> "IncidentId")+            Prelude.<*> (x Data..?> "PublicContent")+            Prelude.<*> (x Data..?> "PublicSubject")+            Prelude.<*> (x Data..?> "ReadTime")+            Prelude.<*> (x Data..?> "SentTime")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "PageArn")+            Prelude.<*> (x Data..:> "EngagementArn")+            Prelude.<*> (x Data..:> "ContactArn")+            Prelude.<*> (x Data..:> "Sender")+            Prelude.<*> (x Data..:> "Subject")+            Prelude.<*> (x Data..:> "Content")+      )++instance Prelude.Hashable DescribePage where+  hashWithSalt _salt DescribePage' {..} =+    _salt `Prelude.hashWithSalt` pageId++instance Prelude.NFData DescribePage where+  rnf DescribePage' {..} = Prelude.rnf pageId++instance Data.ToHeaders DescribePage where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.DescribePage" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribePage where+  toJSON DescribePage' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("PageId" Data..= pageId)]+      )++instance Data.ToPath DescribePage where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribePage where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribePageResponse' smart constructor.+data DescribePageResponse = DescribePageResponse'+  { -- | The time that the contact channel received the engagement.+    deliveryTime :: Prelude.Maybe Data.POSIX,+    -- | The ARN of the incident that engaged the contact channel.+    incidentId :: Prelude.Maybe Prelude.Text,+    -- | The insecure content of the message that was sent to the contact. Use+    -- this field for engagements to @SMS@.+    publicContent :: Prelude.Maybe Prelude.Text,+    -- | The insecure subject of the message that was sent to the contact. Use+    -- this field for engagements to @SMS@.+    publicSubject :: Prelude.Maybe Prelude.Text,+    -- | The time that the contact channel acknowledged the engagement.+    readTime :: Prelude.Maybe Data.POSIX,+    -- | The time the engagement was sent to the contact channel.+    sentTime :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) of the engagement to a contact channel.+    pageArn :: Prelude.Text,+    -- | The ARN of the engagement that engaged the contact channel.+    engagementArn :: Prelude.Text,+    -- | The ARN of the contact that was engaged.+    contactArn :: Prelude.Text,+    -- | The user that started the engagement.+    sender :: Prelude.Text,+    -- | The secure subject of the message that was sent to the contact. Use this+    -- field for engagements to @VOICE@ and @EMAIL@.+    subject :: Prelude.Text,+    -- | The secure content of the message that was sent to the contact. Use this+    -- field for engagements to @VOICE@ and @EMAIL@.+    content :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribePageResponse' with all optional fields 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:+--+-- 'deliveryTime', 'describePageResponse_deliveryTime' - The time that the contact channel received the engagement.+--+-- 'incidentId', 'describePageResponse_incidentId' - The ARN of the incident that engaged the contact channel.+--+-- 'publicContent', 'describePageResponse_publicContent' - The insecure content of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+--+-- 'publicSubject', 'describePageResponse_publicSubject' - The insecure subject of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+--+-- 'readTime', 'describePageResponse_readTime' - The time that the contact channel acknowledged the engagement.+--+-- 'sentTime', 'describePageResponse_sentTime' - The time the engagement was sent to the contact channel.+--+-- 'httpStatus', 'describePageResponse_httpStatus' - The response's http status code.+--+-- 'pageArn', 'describePageResponse_pageArn' - The Amazon Resource Name (ARN) of the engagement to a contact channel.+--+-- 'engagementArn', 'describePageResponse_engagementArn' - The ARN of the engagement that engaged the contact channel.+--+-- 'contactArn', 'describePageResponse_contactArn' - The ARN of the contact that was engaged.+--+-- 'sender', 'describePageResponse_sender' - The user that started the engagement.+--+-- 'subject', 'describePageResponse_subject' - The secure subject of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+--+-- 'content', 'describePageResponse_content' - The secure content of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+newDescribePageResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'pageArn'+  Prelude.Text ->+  -- | 'engagementArn'+  Prelude.Text ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'sender'+  Prelude.Text ->+  -- | 'subject'+  Prelude.Text ->+  -- | 'content'+  Prelude.Text ->+  DescribePageResponse+newDescribePageResponse+  pHttpStatus_+  pPageArn_+  pEngagementArn_+  pContactArn_+  pSender_+  pSubject_+  pContent_ =+    DescribePageResponse'+      { deliveryTime =+          Prelude.Nothing,+        incidentId = Prelude.Nothing,+        publicContent = Prelude.Nothing,+        publicSubject = Prelude.Nothing,+        readTime = Prelude.Nothing,+        sentTime = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        pageArn = pPageArn_,+        engagementArn = pEngagementArn_,+        contactArn = pContactArn_,+        sender = pSender_,+        subject = pSubject_,+        content = pContent_+      }++-- | The time that the contact channel received the engagement.+describePageResponse_deliveryTime :: Lens.Lens' DescribePageResponse (Prelude.Maybe Prelude.UTCTime)+describePageResponse_deliveryTime = Lens.lens (\DescribePageResponse' {deliveryTime} -> deliveryTime) (\s@DescribePageResponse' {} a -> s {deliveryTime = a} :: DescribePageResponse) Prelude.. Lens.mapping Data._Time++-- | The ARN of the incident that engaged the contact channel.+describePageResponse_incidentId :: Lens.Lens' DescribePageResponse (Prelude.Maybe Prelude.Text)+describePageResponse_incidentId = Lens.lens (\DescribePageResponse' {incidentId} -> incidentId) (\s@DescribePageResponse' {} a -> s {incidentId = a} :: DescribePageResponse)++-- | The insecure content of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+describePageResponse_publicContent :: Lens.Lens' DescribePageResponse (Prelude.Maybe Prelude.Text)+describePageResponse_publicContent = Lens.lens (\DescribePageResponse' {publicContent} -> publicContent) (\s@DescribePageResponse' {} a -> s {publicContent = a} :: DescribePageResponse)++-- | The insecure subject of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+describePageResponse_publicSubject :: Lens.Lens' DescribePageResponse (Prelude.Maybe Prelude.Text)+describePageResponse_publicSubject = Lens.lens (\DescribePageResponse' {publicSubject} -> publicSubject) (\s@DescribePageResponse' {} a -> s {publicSubject = a} :: DescribePageResponse)++-- | The time that the contact channel acknowledged the engagement.+describePageResponse_readTime :: Lens.Lens' DescribePageResponse (Prelude.Maybe Prelude.UTCTime)+describePageResponse_readTime = Lens.lens (\DescribePageResponse' {readTime} -> readTime) (\s@DescribePageResponse' {} a -> s {readTime = a} :: DescribePageResponse) Prelude.. Lens.mapping Data._Time++-- | The time the engagement was sent to the contact channel.+describePageResponse_sentTime :: Lens.Lens' DescribePageResponse (Prelude.Maybe Prelude.UTCTime)+describePageResponse_sentTime = Lens.lens (\DescribePageResponse' {sentTime} -> sentTime) (\s@DescribePageResponse' {} a -> s {sentTime = a} :: DescribePageResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describePageResponse_httpStatus :: Lens.Lens' DescribePageResponse Prelude.Int+describePageResponse_httpStatus = Lens.lens (\DescribePageResponse' {httpStatus} -> httpStatus) (\s@DescribePageResponse' {} a -> s {httpStatus = a} :: DescribePageResponse)++-- | The Amazon Resource Name (ARN) of the engagement to a contact channel.+describePageResponse_pageArn :: Lens.Lens' DescribePageResponse Prelude.Text+describePageResponse_pageArn = Lens.lens (\DescribePageResponse' {pageArn} -> pageArn) (\s@DescribePageResponse' {} a -> s {pageArn = a} :: DescribePageResponse)++-- | The ARN of the engagement that engaged the contact channel.+describePageResponse_engagementArn :: Lens.Lens' DescribePageResponse Prelude.Text+describePageResponse_engagementArn = Lens.lens (\DescribePageResponse' {engagementArn} -> engagementArn) (\s@DescribePageResponse' {} a -> s {engagementArn = a} :: DescribePageResponse)++-- | The ARN of the contact that was engaged.+describePageResponse_contactArn :: Lens.Lens' DescribePageResponse Prelude.Text+describePageResponse_contactArn = Lens.lens (\DescribePageResponse' {contactArn} -> contactArn) (\s@DescribePageResponse' {} a -> s {contactArn = a} :: DescribePageResponse)++-- | The user that started the engagement.+describePageResponse_sender :: Lens.Lens' DescribePageResponse Prelude.Text+describePageResponse_sender = Lens.lens (\DescribePageResponse' {sender} -> sender) (\s@DescribePageResponse' {} a -> s {sender = a} :: DescribePageResponse)++-- | The secure subject of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+describePageResponse_subject :: Lens.Lens' DescribePageResponse Prelude.Text+describePageResponse_subject = Lens.lens (\DescribePageResponse' {subject} -> subject) (\s@DescribePageResponse' {} a -> s {subject = a} :: DescribePageResponse)++-- | The secure content of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ and @EMAIL@.+describePageResponse_content :: Lens.Lens' DescribePageResponse Prelude.Text+describePageResponse_content = Lens.lens (\DescribePageResponse' {content} -> content) (\s@DescribePageResponse' {} a -> s {content = a} :: DescribePageResponse)++instance Prelude.NFData DescribePageResponse where+  rnf DescribePageResponse' {..} =+    Prelude.rnf deliveryTime+      `Prelude.seq` Prelude.rnf incidentId+      `Prelude.seq` Prelude.rnf publicContent+      `Prelude.seq` Prelude.rnf publicSubject+      `Prelude.seq` Prelude.rnf readTime+      `Prelude.seq` Prelude.rnf sentTime+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf pageArn+      `Prelude.seq` Prelude.rnf engagementArn+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf sender+      `Prelude.seq` Prelude.rnf subject+      `Prelude.seq` Prelude.rnf content
+ gen/Amazonka/SSMContacts/GetContact.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.GetContact+-- 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 information about the specified contact or escalation plan.+module Amazonka.SSMContacts.GetContact+  ( -- * Creating a Request+    GetContact (..),+    newGetContact,++    -- * Request Lenses+    getContact_contactId,++    -- * Destructuring the Response+    GetContactResponse (..),+    newGetContactResponse,++    -- * Response Lenses+    getContactResponse_displayName,+    getContactResponse_httpStatus,+    getContactResponse_contactArn,+    getContactResponse_alias,+    getContactResponse_type,+    getContactResponse_plan,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newGetContact' smart constructor.+data GetContact = GetContact'+  { -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    contactId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContact' with all optional fields 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:+--+-- 'contactId', 'getContact_contactId' - The Amazon Resource Name (ARN) of the contact or escalation plan.+newGetContact ::+  -- | 'contactId'+  Prelude.Text ->+  GetContact+newGetContact pContactId_ =+  GetContact' {contactId = pContactId_}++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+getContact_contactId :: Lens.Lens' GetContact Prelude.Text+getContact_contactId = Lens.lens (\GetContact' {contactId} -> contactId) (\s@GetContact' {} a -> s {contactId = a} :: GetContact)++instance Core.AWSRequest GetContact where+  type AWSResponse GetContact = GetContactResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetContactResponse'+            Prelude.<$> (x Data..?> "DisplayName")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "ContactArn")+            Prelude.<*> (x Data..:> "Alias")+            Prelude.<*> (x Data..:> "Type")+            Prelude.<*> (x Data..:> "Plan")+      )++instance Prelude.Hashable GetContact where+  hashWithSalt _salt GetContact' {..} =+    _salt `Prelude.hashWithSalt` contactId++instance Prelude.NFData GetContact where+  rnf GetContact' {..} = Prelude.rnf contactId++instance Data.ToHeaders GetContact where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.GetContact" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetContact where+  toJSON GetContact' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ContactId" Data..= contactId)]+      )++instance Data.ToPath GetContact where+  toPath = Prelude.const "/"++instance Data.ToQuery GetContact where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetContactResponse' smart constructor.+data GetContactResponse = GetContactResponse'+  { -- | The full name of the contact or escalation plan.+    displayName :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The ARN of the contact or escalation plan.+    contactArn :: Prelude.Text,+    -- | The alias of the contact or escalation plan. The alias is unique and+    -- identifiable.+    alias :: Prelude.Text,+    -- | The type of contact, either @PERSONAL@ or @ESCALATION@.+    type' :: ContactType,+    -- | Details about the specific timing or stages and targets of the+    -- escalation plan or engagement plan.+    plan :: Plan+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContactResponse' with all optional fields 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:+--+-- 'displayName', 'getContactResponse_displayName' - The full name of the contact or escalation plan.+--+-- 'httpStatus', 'getContactResponse_httpStatus' - The response's http status code.+--+-- 'contactArn', 'getContactResponse_contactArn' - The ARN of the contact or escalation plan.+--+-- 'alias', 'getContactResponse_alias' - The alias of the contact or escalation plan. The alias is unique and+-- identifiable.+--+-- 'type'', 'getContactResponse_type' - The type of contact, either @PERSONAL@ or @ESCALATION@.+--+-- 'plan', 'getContactResponse_plan' - Details about the specific timing or stages and targets of the+-- escalation plan or engagement plan.+newGetContactResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'alias'+  Prelude.Text ->+  -- | 'type''+  ContactType ->+  -- | 'plan'+  Plan ->+  GetContactResponse+newGetContactResponse+  pHttpStatus_+  pContactArn_+  pAlias_+  pType_+  pPlan_ =+    GetContactResponse'+      { displayName = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        contactArn = pContactArn_,+        alias = pAlias_,+        type' = pType_,+        plan = pPlan_+      }++-- | The full name of the contact or escalation plan.+getContactResponse_displayName :: Lens.Lens' GetContactResponse (Prelude.Maybe Prelude.Text)+getContactResponse_displayName = Lens.lens (\GetContactResponse' {displayName} -> displayName) (\s@GetContactResponse' {} a -> s {displayName = a} :: GetContactResponse)++-- | The response's http status code.+getContactResponse_httpStatus :: Lens.Lens' GetContactResponse Prelude.Int+getContactResponse_httpStatus = Lens.lens (\GetContactResponse' {httpStatus} -> httpStatus) (\s@GetContactResponse' {} a -> s {httpStatus = a} :: GetContactResponse)++-- | The ARN of the contact or escalation plan.+getContactResponse_contactArn :: Lens.Lens' GetContactResponse Prelude.Text+getContactResponse_contactArn = Lens.lens (\GetContactResponse' {contactArn} -> contactArn) (\s@GetContactResponse' {} a -> s {contactArn = a} :: GetContactResponse)++-- | The alias of the contact or escalation plan. The alias is unique and+-- identifiable.+getContactResponse_alias :: Lens.Lens' GetContactResponse Prelude.Text+getContactResponse_alias = Lens.lens (\GetContactResponse' {alias} -> alias) (\s@GetContactResponse' {} a -> s {alias = a} :: GetContactResponse)++-- | The type of contact, either @PERSONAL@ or @ESCALATION@.+getContactResponse_type :: Lens.Lens' GetContactResponse ContactType+getContactResponse_type = Lens.lens (\GetContactResponse' {type'} -> type') (\s@GetContactResponse' {} a -> s {type' = a} :: GetContactResponse)++-- | Details about the specific timing or stages and targets of the+-- escalation plan or engagement plan.+getContactResponse_plan :: Lens.Lens' GetContactResponse Plan+getContactResponse_plan = Lens.lens (\GetContactResponse' {plan} -> plan) (\s@GetContactResponse' {} a -> s {plan = a} :: GetContactResponse)++instance Prelude.NFData GetContactResponse where+  rnf GetContactResponse' {..} =+    Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf alias+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf plan
+ gen/Amazonka/SSMContacts/GetContactChannel.hs view
@@ -0,0 +1,259 @@+{-# 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.SSMContacts.GetContactChannel+-- 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 details about a specific contact channel.+module Amazonka.SSMContacts.GetContactChannel+  ( -- * Creating a Request+    GetContactChannel (..),+    newGetContactChannel,++    -- * Request Lenses+    getContactChannel_contactChannelId,++    -- * Destructuring the Response+    GetContactChannelResponse (..),+    newGetContactChannelResponse,++    -- * Response Lenses+    getContactChannelResponse_activationStatus,+    getContactChannelResponse_httpStatus,+    getContactChannelResponse_contactArn,+    getContactChannelResponse_contactChannelArn,+    getContactChannelResponse_name,+    getContactChannelResponse_type,+    getContactChannelResponse_deliveryAddress,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newGetContactChannel' smart constructor.+data GetContactChannel = GetContactChannel'+  { -- | The Amazon Resource Name (ARN) of the contact channel you want+    -- information about.+    contactChannelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContactChannel' with all optional fields 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:+--+-- 'contactChannelId', 'getContactChannel_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel you want+-- information about.+newGetContactChannel ::+  -- | 'contactChannelId'+  Prelude.Text ->+  GetContactChannel+newGetContactChannel pContactChannelId_ =+  GetContactChannel'+    { contactChannelId =+        pContactChannelId_+    }++-- | The Amazon Resource Name (ARN) of the contact channel you want+-- information about.+getContactChannel_contactChannelId :: Lens.Lens' GetContactChannel Prelude.Text+getContactChannel_contactChannelId = Lens.lens (\GetContactChannel' {contactChannelId} -> contactChannelId) (\s@GetContactChannel' {} a -> s {contactChannelId = a} :: GetContactChannel)++instance Core.AWSRequest GetContactChannel where+  type+    AWSResponse GetContactChannel =+      GetContactChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetContactChannelResponse'+            Prelude.<$> (x Data..?> "ActivationStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "ContactArn")+            Prelude.<*> (x Data..:> "ContactChannelArn")+            Prelude.<*> (x Data..:> "Name")+            Prelude.<*> (x Data..:> "Type")+            Prelude.<*> (x Data..:> "DeliveryAddress")+      )++instance Prelude.Hashable GetContactChannel where+  hashWithSalt _salt GetContactChannel' {..} =+    _salt `Prelude.hashWithSalt` contactChannelId++instance Prelude.NFData GetContactChannel where+  rnf GetContactChannel' {..} =+    Prelude.rnf contactChannelId++instance Data.ToHeaders GetContactChannel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.GetContactChannel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetContactChannel where+  toJSON GetContactChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContactChannelId" Data..= contactChannelId)+          ]+      )++instance Data.ToPath GetContactChannel where+  toPath = Prelude.const "/"++instance Data.ToQuery GetContactChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetContactChannelResponse' smart constructor.+data GetContactChannelResponse = GetContactChannelResponse'+  { -- | A Boolean value indicating if the contact channel has been activated or+    -- not.+    activationStatus :: Prelude.Maybe ActivationStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The ARN of the contact that the channel belongs to.+    contactArn :: Prelude.Text,+    -- | The ARN of the contact channel.+    contactChannelArn :: Prelude.Text,+    -- | The name of the contact channel+    name :: Prelude.Text,+    -- | The type of contact channel. The type is @SMS@, @VOICE@, or @EMAIL@.+    type' :: ChannelType,+    -- | The details that Incident Manager uses when trying to engage the contact+    -- channel.+    deliveryAddress :: ContactChannelAddress+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContactChannelResponse' with all optional fields 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:+--+-- 'activationStatus', 'getContactChannelResponse_activationStatus' - A Boolean value indicating if the contact channel has been activated or+-- not.+--+-- 'httpStatus', 'getContactChannelResponse_httpStatus' - The response's http status code.+--+-- 'contactArn', 'getContactChannelResponse_contactArn' - The ARN of the contact that the channel belongs to.+--+-- 'contactChannelArn', 'getContactChannelResponse_contactChannelArn' - The ARN of the contact channel.+--+-- 'name', 'getContactChannelResponse_name' - The name of the contact channel+--+-- 'type'', 'getContactChannelResponse_type' - The type of contact channel. The type is @SMS@, @VOICE@, or @EMAIL@.+--+-- 'deliveryAddress', 'getContactChannelResponse_deliveryAddress' - The details that Incident Manager uses when trying to engage the contact+-- channel.+newGetContactChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'contactChannelArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'type''+  ChannelType ->+  -- | 'deliveryAddress'+  ContactChannelAddress ->+  GetContactChannelResponse+newGetContactChannelResponse+  pHttpStatus_+  pContactArn_+  pContactChannelArn_+  pName_+  pType_+  pDeliveryAddress_ =+    GetContactChannelResponse'+      { activationStatus =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        contactArn = pContactArn_,+        contactChannelArn = pContactChannelArn_,+        name = pName_,+        type' = pType_,+        deliveryAddress = pDeliveryAddress_+      }++-- | A Boolean value indicating if the contact channel has been activated or+-- not.+getContactChannelResponse_activationStatus :: Lens.Lens' GetContactChannelResponse (Prelude.Maybe ActivationStatus)+getContactChannelResponse_activationStatus = Lens.lens (\GetContactChannelResponse' {activationStatus} -> activationStatus) (\s@GetContactChannelResponse' {} a -> s {activationStatus = a} :: GetContactChannelResponse)++-- | The response's http status code.+getContactChannelResponse_httpStatus :: Lens.Lens' GetContactChannelResponse Prelude.Int+getContactChannelResponse_httpStatus = Lens.lens (\GetContactChannelResponse' {httpStatus} -> httpStatus) (\s@GetContactChannelResponse' {} a -> s {httpStatus = a} :: GetContactChannelResponse)++-- | The ARN of the contact that the channel belongs to.+getContactChannelResponse_contactArn :: Lens.Lens' GetContactChannelResponse Prelude.Text+getContactChannelResponse_contactArn = Lens.lens (\GetContactChannelResponse' {contactArn} -> contactArn) (\s@GetContactChannelResponse' {} a -> s {contactArn = a} :: GetContactChannelResponse)++-- | The ARN of the contact channel.+getContactChannelResponse_contactChannelArn :: Lens.Lens' GetContactChannelResponse Prelude.Text+getContactChannelResponse_contactChannelArn = Lens.lens (\GetContactChannelResponse' {contactChannelArn} -> contactChannelArn) (\s@GetContactChannelResponse' {} a -> s {contactChannelArn = a} :: GetContactChannelResponse)++-- | The name of the contact channel+getContactChannelResponse_name :: Lens.Lens' GetContactChannelResponse Prelude.Text+getContactChannelResponse_name = Lens.lens (\GetContactChannelResponse' {name} -> name) (\s@GetContactChannelResponse' {} a -> s {name = a} :: GetContactChannelResponse)++-- | The type of contact channel. The type is @SMS@, @VOICE@, or @EMAIL@.+getContactChannelResponse_type :: Lens.Lens' GetContactChannelResponse ChannelType+getContactChannelResponse_type = Lens.lens (\GetContactChannelResponse' {type'} -> type') (\s@GetContactChannelResponse' {} a -> s {type' = a} :: GetContactChannelResponse)++-- | The details that Incident Manager uses when trying to engage the contact+-- channel.+getContactChannelResponse_deliveryAddress :: Lens.Lens' GetContactChannelResponse ContactChannelAddress+getContactChannelResponse_deliveryAddress = Lens.lens (\GetContactChannelResponse' {deliveryAddress} -> deliveryAddress) (\s@GetContactChannelResponse' {} a -> s {deliveryAddress = a} :: GetContactChannelResponse)++instance Prelude.NFData GetContactChannelResponse where+  rnf GetContactChannelResponse' {..} =+    Prelude.rnf activationStatus+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf contactChannelArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf deliveryAddress
+ gen/Amazonka/SSMContacts/GetContactPolicy.hs view
@@ -0,0 +1,184 @@+{-# 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.SSMContacts.GetContactPolicy+-- 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 policies attached to the specified contact or+-- escalation plan.+module Amazonka.SSMContacts.GetContactPolicy+  ( -- * Creating a Request+    GetContactPolicy (..),+    newGetContactPolicy,++    -- * Request Lenses+    getContactPolicy_contactArn,++    -- * Destructuring the Response+    GetContactPolicyResponse (..),+    newGetContactPolicyResponse,++    -- * Response Lenses+    getContactPolicyResponse_contactArn,+    getContactPolicyResponse_policy,+    getContactPolicyResponse_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.SSMContacts.Types++-- | /See:/ 'newGetContactPolicy' smart constructor.+data GetContactPolicy = GetContactPolicy'+  { -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    contactArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetContactPolicy' with all optional fields 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:+--+-- 'contactArn', 'getContactPolicy_contactArn' - The Amazon Resource Name (ARN) of the contact or escalation plan.+newGetContactPolicy ::+  -- | 'contactArn'+  Prelude.Text ->+  GetContactPolicy+newGetContactPolicy pContactArn_ =+  GetContactPolicy' {contactArn = pContactArn_}++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+getContactPolicy_contactArn :: Lens.Lens' GetContactPolicy Prelude.Text+getContactPolicy_contactArn = Lens.lens (\GetContactPolicy' {contactArn} -> contactArn) (\s@GetContactPolicy' {} a -> s {contactArn = a} :: GetContactPolicy)++instance Core.AWSRequest GetContactPolicy where+  type+    AWSResponse GetContactPolicy =+      GetContactPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetContactPolicyResponse'+            Prelude.<$> (x Data..?> "ContactArn")+            Prelude.<*> (x Data..?> "Policy")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetContactPolicy where+  hashWithSalt _salt GetContactPolicy' {..} =+    _salt `Prelude.hashWithSalt` contactArn++instance Prelude.NFData GetContactPolicy where+  rnf GetContactPolicy' {..} = Prelude.rnf contactArn++instance Data.ToHeaders GetContactPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.GetContactPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetContactPolicy where+  toJSON GetContactPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ContactArn" Data..= contactArn)]+      )++instance Data.ToPath GetContactPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery GetContactPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetContactPolicyResponse' smart constructor.+data GetContactPolicyResponse = GetContactPolicyResponse'+  { -- | The ARN of the contact or escalation plan.+    contactArn :: Prelude.Maybe Prelude.Text,+    -- | Details about the resource policy attached to the contact or escalation+    -- plan.+    policy :: 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 'GetContactPolicyResponse' with all optional fields 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:+--+-- 'contactArn', 'getContactPolicyResponse_contactArn' - The ARN of the contact or escalation plan.+--+-- 'policy', 'getContactPolicyResponse_policy' - Details about the resource policy attached to the contact or escalation+-- plan.+--+-- 'httpStatus', 'getContactPolicyResponse_httpStatus' - The response's http status code.+newGetContactPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetContactPolicyResponse+newGetContactPolicyResponse pHttpStatus_ =+  GetContactPolicyResponse'+    { contactArn =+        Prelude.Nothing,+      policy = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the contact or escalation plan.+getContactPolicyResponse_contactArn :: Lens.Lens' GetContactPolicyResponse (Prelude.Maybe Prelude.Text)+getContactPolicyResponse_contactArn = Lens.lens (\GetContactPolicyResponse' {contactArn} -> contactArn) (\s@GetContactPolicyResponse' {} a -> s {contactArn = a} :: GetContactPolicyResponse)++-- | Details about the resource policy attached to the contact or escalation+-- plan.+getContactPolicyResponse_policy :: Lens.Lens' GetContactPolicyResponse (Prelude.Maybe Prelude.Text)+getContactPolicyResponse_policy = Lens.lens (\GetContactPolicyResponse' {policy} -> policy) (\s@GetContactPolicyResponse' {} a -> s {policy = a} :: GetContactPolicyResponse)++-- | The response's http status code.+getContactPolicyResponse_httpStatus :: Lens.Lens' GetContactPolicyResponse Prelude.Int+getContactPolicyResponse_httpStatus = Lens.lens (\GetContactPolicyResponse' {httpStatus} -> httpStatus) (\s@GetContactPolicyResponse' {} a -> s {httpStatus = a} :: GetContactPolicyResponse)++instance Prelude.NFData GetContactPolicyResponse where+  rnf GetContactPolicyResponse' {..} =+    Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf policy+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/Lens.hs view
@@ -0,0 +1,332 @@+{-# 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.SSMContacts.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.SSMContacts.Lens+  ( -- * Operations++    -- ** AcceptPage+    acceptPage_acceptCodeValidation,+    acceptPage_contactChannelId,+    acceptPage_note,+    acceptPage_pageId,+    acceptPage_acceptType,+    acceptPage_acceptCode,+    acceptPageResponse_httpStatus,++    -- ** ActivateContactChannel+    activateContactChannel_contactChannelId,+    activateContactChannel_activationCode,+    activateContactChannelResponse_httpStatus,++    -- ** CreateContact+    createContact_displayName,+    createContact_idempotencyToken,+    createContact_tags,+    createContact_alias,+    createContact_type,+    createContact_plan,+    createContactResponse_httpStatus,+    createContactResponse_contactArn,++    -- ** CreateContactChannel+    createContactChannel_deferActivation,+    createContactChannel_idempotencyToken,+    createContactChannel_contactId,+    createContactChannel_name,+    createContactChannel_type,+    createContactChannel_deliveryAddress,+    createContactChannelResponse_httpStatus,+    createContactChannelResponse_contactChannelArn,++    -- ** DeactivateContactChannel+    deactivateContactChannel_contactChannelId,+    deactivateContactChannelResponse_httpStatus,++    -- ** DeleteContact+    deleteContact_contactId,+    deleteContactResponse_httpStatus,++    -- ** DeleteContactChannel+    deleteContactChannel_contactChannelId,+    deleteContactChannelResponse_httpStatus,++    -- ** DescribeEngagement+    describeEngagement_engagementId,+    describeEngagementResponse_incidentId,+    describeEngagementResponse_publicContent,+    describeEngagementResponse_publicSubject,+    describeEngagementResponse_startTime,+    describeEngagementResponse_stopTime,+    describeEngagementResponse_httpStatus,+    describeEngagementResponse_contactArn,+    describeEngagementResponse_engagementArn,+    describeEngagementResponse_sender,+    describeEngagementResponse_subject,+    describeEngagementResponse_content,++    -- ** DescribePage+    describePage_pageId,+    describePageResponse_deliveryTime,+    describePageResponse_incidentId,+    describePageResponse_publicContent,+    describePageResponse_publicSubject,+    describePageResponse_readTime,+    describePageResponse_sentTime,+    describePageResponse_httpStatus,+    describePageResponse_pageArn,+    describePageResponse_engagementArn,+    describePageResponse_contactArn,+    describePageResponse_sender,+    describePageResponse_subject,+    describePageResponse_content,++    -- ** GetContact+    getContact_contactId,+    getContactResponse_displayName,+    getContactResponse_httpStatus,+    getContactResponse_contactArn,+    getContactResponse_alias,+    getContactResponse_type,+    getContactResponse_plan,++    -- ** GetContactChannel+    getContactChannel_contactChannelId,+    getContactChannelResponse_activationStatus,+    getContactChannelResponse_httpStatus,+    getContactChannelResponse_contactArn,+    getContactChannelResponse_contactChannelArn,+    getContactChannelResponse_name,+    getContactChannelResponse_type,+    getContactChannelResponse_deliveryAddress,++    -- ** GetContactPolicy+    getContactPolicy_contactArn,+    getContactPolicyResponse_contactArn,+    getContactPolicyResponse_policy,+    getContactPolicyResponse_httpStatus,++    -- ** ListContactChannels+    listContactChannels_maxResults,+    listContactChannels_nextToken,+    listContactChannels_contactId,+    listContactChannelsResponse_nextToken,+    listContactChannelsResponse_httpStatus,+    listContactChannelsResponse_contactChannels,++    -- ** ListContacts+    listContacts_aliasPrefix,+    listContacts_maxResults,+    listContacts_nextToken,+    listContacts_type,+    listContactsResponse_contacts,+    listContactsResponse_nextToken,+    listContactsResponse_httpStatus,++    -- ** ListEngagements+    listEngagements_incidentId,+    listEngagements_maxResults,+    listEngagements_nextToken,+    listEngagements_timeRangeValue,+    listEngagementsResponse_nextToken,+    listEngagementsResponse_httpStatus,+    listEngagementsResponse_engagements,++    -- ** ListPageReceipts+    listPageReceipts_maxResults,+    listPageReceipts_nextToken,+    listPageReceipts_pageId,+    listPageReceiptsResponse_nextToken,+    listPageReceiptsResponse_receipts,+    listPageReceiptsResponse_httpStatus,++    -- ** ListPagesByContact+    listPagesByContact_maxResults,+    listPagesByContact_nextToken,+    listPagesByContact_contactId,+    listPagesByContactResponse_nextToken,+    listPagesByContactResponse_httpStatus,+    listPagesByContactResponse_pages,++    -- ** ListPagesByEngagement+    listPagesByEngagement_maxResults,+    listPagesByEngagement_nextToken,+    listPagesByEngagement_engagementId,+    listPagesByEngagementResponse_nextToken,+    listPagesByEngagementResponse_httpStatus,+    listPagesByEngagementResponse_pages,++    -- ** ListTagsForResource+    listTagsForResource_resourceARN,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** PutContactPolicy+    putContactPolicy_contactArn,+    putContactPolicy_policy,+    putContactPolicyResponse_httpStatus,++    -- ** SendActivationCode+    sendActivationCode_contactChannelId,+    sendActivationCodeResponse_httpStatus,++    -- ** StartEngagement+    startEngagement_idempotencyToken,+    startEngagement_incidentId,+    startEngagement_publicContent,+    startEngagement_publicSubject,+    startEngagement_contactId,+    startEngagement_sender,+    startEngagement_subject,+    startEngagement_content,+    startEngagementResponse_httpStatus,+    startEngagementResponse_engagementArn,++    -- ** StopEngagement+    stopEngagement_reason,+    stopEngagement_engagementId,+    stopEngagementResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceARN,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** UntagResource+    untagResource_resourceARN,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateContact+    updateContact_displayName,+    updateContact_plan,+    updateContact_contactId,+    updateContactResponse_httpStatus,++    -- ** UpdateContactChannel+    updateContactChannel_deliveryAddress,+    updateContactChannel_name,+    updateContactChannel_contactChannelId,+    updateContactChannelResponse_httpStatus,++    -- * Types++    -- ** ChannelTargetInfo+    channelTargetInfo_retryIntervalInMinutes,+    channelTargetInfo_contactChannelId,++    -- ** Contact+    contact_displayName,+    contact_contactArn,+    contact_alias,+    contact_type,++    -- ** ContactChannel+    contactChannel_type,+    contactChannel_contactChannelArn,+    contactChannel_contactArn,+    contactChannel_name,+    contactChannel_deliveryAddress,+    contactChannel_activationStatus,++    -- ** ContactChannelAddress+    contactChannelAddress_simpleAddress,++    -- ** ContactTargetInfo+    contactTargetInfo_contactId,+    contactTargetInfo_isEssential,++    -- ** Engagement+    engagement_incidentId,+    engagement_startTime,+    engagement_stopTime,+    engagement_engagementArn,+    engagement_contactArn,+    engagement_sender,++    -- ** Page+    page_deliveryTime,+    page_incidentId,+    page_readTime,+    page_sentTime,+    page_pageArn,+    page_engagementArn,+    page_contactArn,+    page_sender,++    -- ** Plan+    plan_stages,++    -- ** Receipt+    receipt_contactChannelArn,+    receipt_receiptInfo,+    receipt_receiptType,+    receipt_receiptTime,++    -- ** Stage+    stage_durationInMinutes,+    stage_targets,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** Target+    target_channelTargetInfo,+    target_contactTargetInfo,++    -- ** TimeRange+    timeRange_endTime,+    timeRange_startTime,+  )+where++import Amazonka.SSMContacts.AcceptPage+import Amazonka.SSMContacts.ActivateContactChannel+import Amazonka.SSMContacts.CreateContact+import Amazonka.SSMContacts.CreateContactChannel+import Amazonka.SSMContacts.DeactivateContactChannel+import Amazonka.SSMContacts.DeleteContact+import Amazonka.SSMContacts.DeleteContactChannel+import Amazonka.SSMContacts.DescribeEngagement+import Amazonka.SSMContacts.DescribePage+import Amazonka.SSMContacts.GetContact+import Amazonka.SSMContacts.GetContactChannel+import Amazonka.SSMContacts.GetContactPolicy+import Amazonka.SSMContacts.ListContactChannels+import Amazonka.SSMContacts.ListContacts+import Amazonka.SSMContacts.ListEngagements+import Amazonka.SSMContacts.ListPageReceipts+import Amazonka.SSMContacts.ListPagesByContact+import Amazonka.SSMContacts.ListPagesByEngagement+import Amazonka.SSMContacts.ListTagsForResource+import Amazonka.SSMContacts.PutContactPolicy+import Amazonka.SSMContacts.SendActivationCode+import Amazonka.SSMContacts.StartEngagement+import Amazonka.SSMContacts.StopEngagement+import Amazonka.SSMContacts.TagResource+import Amazonka.SSMContacts.Types.ChannelTargetInfo+import Amazonka.SSMContacts.Types.Contact+import Amazonka.SSMContacts.Types.ContactChannel+import Amazonka.SSMContacts.Types.ContactChannelAddress+import Amazonka.SSMContacts.Types.ContactTargetInfo+import Amazonka.SSMContacts.Types.Engagement+import Amazonka.SSMContacts.Types.Page+import Amazonka.SSMContacts.Types.Plan+import Amazonka.SSMContacts.Types.Receipt+import Amazonka.SSMContacts.Types.Stage+import Amazonka.SSMContacts.Types.Tag+import Amazonka.SSMContacts.Types.Target+import Amazonka.SSMContacts.Types.TimeRange+import Amazonka.SSMContacts.UntagResource+import Amazonka.SSMContacts.UpdateContact+import Amazonka.SSMContacts.UpdateContactChannel
+ gen/Amazonka/SSMContacts/ListContactChannels.hs view
@@ -0,0 +1,237 @@+{-# 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.SSMContacts.ListContactChannels+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all contact channels for the specified contact.+--+-- This operation returns paginated results.+module Amazonka.SSMContacts.ListContactChannels+  ( -- * Creating a Request+    ListContactChannels (..),+    newListContactChannels,++    -- * Request Lenses+    listContactChannels_maxResults,+    listContactChannels_nextToken,+    listContactChannels_contactId,++    -- * Destructuring the Response+    ListContactChannelsResponse (..),+    newListContactChannelsResponse,++    -- * Response Lenses+    listContactChannelsResponse_nextToken,+    listContactChannelsResponse_httpStatus,+    listContactChannelsResponse_contactChannels,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newListContactChannels' smart constructor.+data ListContactChannels = ListContactChannels'+  { -- | The maximum number of contact channels per page.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the contact.+    contactId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListContactChannels' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listContactChannels_maxResults' - The maximum number of contact channels per page.+--+-- 'nextToken', 'listContactChannels_nextToken' - The pagination token to continue to the next page of results.+--+-- 'contactId', 'listContactChannels_contactId' - The Amazon Resource Name (ARN) of the contact.+newListContactChannels ::+  -- | 'contactId'+  Prelude.Text ->+  ListContactChannels+newListContactChannels pContactId_ =+  ListContactChannels'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      contactId = pContactId_+    }++-- | The maximum number of contact channels per page.+listContactChannels_maxResults :: Lens.Lens' ListContactChannels (Prelude.Maybe Prelude.Natural)+listContactChannels_maxResults = Lens.lens (\ListContactChannels' {maxResults} -> maxResults) (\s@ListContactChannels' {} a -> s {maxResults = a} :: ListContactChannels)++-- | The pagination token to continue to the next page of results.+listContactChannels_nextToken :: Lens.Lens' ListContactChannels (Prelude.Maybe Prelude.Text)+listContactChannels_nextToken = Lens.lens (\ListContactChannels' {nextToken} -> nextToken) (\s@ListContactChannels' {} a -> s {nextToken = a} :: ListContactChannels)++-- | The Amazon Resource Name (ARN) of the contact.+listContactChannels_contactId :: Lens.Lens' ListContactChannels Prelude.Text+listContactChannels_contactId = Lens.lens (\ListContactChannels' {contactId} -> contactId) (\s@ListContactChannels' {} a -> s {contactId = a} :: ListContactChannels)++instance Core.AWSPager ListContactChannels where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listContactChannelsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. listContactChannelsResponse_contactChannels+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listContactChannels_nextToken+          Lens..~ rs+          Lens.^? listContactChannelsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListContactChannels where+  type+    AWSResponse ListContactChannels =+      ListContactChannelsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListContactChannelsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "ContactChannels"+                            Core..!@ Prelude.mempty+                        )+      )++instance Prelude.Hashable ListContactChannels where+  hashWithSalt _salt ListContactChannels' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` contactId++instance Prelude.NFData ListContactChannels where+  rnf ListContactChannels' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf contactId++instance Data.ToHeaders ListContactChannels where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ListContactChannels" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListContactChannels where+  toJSON ListContactChannels' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ContactId" Data..= contactId)+          ]+      )++instance Data.ToPath ListContactChannels where+  toPath = Prelude.const "/"++instance Data.ToQuery ListContactChannels where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListContactChannelsResponse' smart constructor.+data ListContactChannelsResponse = ListContactChannelsResponse'+  { -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of contact channels related to the specified contact.+    contactChannels :: [ContactChannel]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListContactChannelsResponse' with all optional fields 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', 'listContactChannelsResponse_nextToken' - The pagination token to continue to the next page of results.+--+-- 'httpStatus', 'listContactChannelsResponse_httpStatus' - The response's http status code.+--+-- 'contactChannels', 'listContactChannelsResponse_contactChannels' - A list of contact channels related to the specified contact.+newListContactChannelsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListContactChannelsResponse+newListContactChannelsResponse pHttpStatus_ =+  ListContactChannelsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      contactChannels = Prelude.mempty+    }++-- | The pagination token to continue to the next page of results.+listContactChannelsResponse_nextToken :: Lens.Lens' ListContactChannelsResponse (Prelude.Maybe Prelude.Text)+listContactChannelsResponse_nextToken = Lens.lens (\ListContactChannelsResponse' {nextToken} -> nextToken) (\s@ListContactChannelsResponse' {} a -> s {nextToken = a} :: ListContactChannelsResponse)++-- | The response's http status code.+listContactChannelsResponse_httpStatus :: Lens.Lens' ListContactChannelsResponse Prelude.Int+listContactChannelsResponse_httpStatus = Lens.lens (\ListContactChannelsResponse' {httpStatus} -> httpStatus) (\s@ListContactChannelsResponse' {} a -> s {httpStatus = a} :: ListContactChannelsResponse)++-- | A list of contact channels related to the specified contact.+listContactChannelsResponse_contactChannels :: Lens.Lens' ListContactChannelsResponse [ContactChannel]+listContactChannelsResponse_contactChannels = Lens.lens (\ListContactChannelsResponse' {contactChannels} -> contactChannels) (\s@ListContactChannelsResponse' {} a -> s {contactChannels = a} :: ListContactChannelsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListContactChannelsResponse where+  rnf ListContactChannelsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf contactChannels
+ gen/Amazonka/SSMContacts/ListContacts.hs view
@@ -0,0 +1,250 @@+{-# 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.SSMContacts.ListContacts+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all contacts and escalation plans in Incident Manager.+--+-- This operation returns paginated results.+module Amazonka.SSMContacts.ListContacts+  ( -- * Creating a Request+    ListContacts (..),+    newListContacts,++    -- * Request Lenses+    listContacts_aliasPrefix,+    listContacts_maxResults,+    listContacts_nextToken,+    listContacts_type,++    -- * Destructuring the Response+    ListContactsResponse (..),+    newListContactsResponse,++    -- * Response Lenses+    listContactsResponse_contacts,+    listContactsResponse_nextToken,+    listContactsResponse_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.SSMContacts.Types++-- | /See:/ 'newListContacts' smart constructor.+data ListContacts = ListContacts'+  { -- | Used to list only contacts who\'s aliases start with the specified+    -- prefix.+    aliasPrefix :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of contacts and escalation plans per page of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The type of contact. A contact is type @PERSONAL@ and an escalation plan+    -- is type @ESCALATION@.+    type' :: Prelude.Maybe ContactType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListContacts' with all optional fields 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:+--+-- 'aliasPrefix', 'listContacts_aliasPrefix' - Used to list only contacts who\'s aliases start with the specified+-- prefix.+--+-- 'maxResults', 'listContacts_maxResults' - The maximum number of contacts and escalation plans per page of results.+--+-- 'nextToken', 'listContacts_nextToken' - The pagination token to continue to the next page of results.+--+-- 'type'', 'listContacts_type' - The type of contact. A contact is type @PERSONAL@ and an escalation plan+-- is type @ESCALATION@.+newListContacts ::+  ListContacts+newListContacts =+  ListContacts'+    { aliasPrefix = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | Used to list only contacts who\'s aliases start with the specified+-- prefix.+listContacts_aliasPrefix :: Lens.Lens' ListContacts (Prelude.Maybe Prelude.Text)+listContacts_aliasPrefix = Lens.lens (\ListContacts' {aliasPrefix} -> aliasPrefix) (\s@ListContacts' {} a -> s {aliasPrefix = a} :: ListContacts)++-- | The maximum number of contacts and escalation plans per page of results.+listContacts_maxResults :: Lens.Lens' ListContacts (Prelude.Maybe Prelude.Natural)+listContacts_maxResults = Lens.lens (\ListContacts' {maxResults} -> maxResults) (\s@ListContacts' {} a -> s {maxResults = a} :: ListContacts)++-- | The pagination token to continue to the next page of results.+listContacts_nextToken :: Lens.Lens' ListContacts (Prelude.Maybe Prelude.Text)+listContacts_nextToken = Lens.lens (\ListContacts' {nextToken} -> nextToken) (\s@ListContacts' {} a -> s {nextToken = a} :: ListContacts)++-- | The type of contact. A contact is type @PERSONAL@ and an escalation plan+-- is type @ESCALATION@.+listContacts_type :: Lens.Lens' ListContacts (Prelude.Maybe ContactType)+listContacts_type = Lens.lens (\ListContacts' {type'} -> type') (\s@ListContacts' {} a -> s {type' = a} :: ListContacts)++instance Core.AWSPager ListContacts where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listContactsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listContactsResponse_contacts+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listContacts_nextToken+          Lens..~ rs+          Lens.^? listContactsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListContacts where+  type AWSResponse ListContacts = ListContactsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListContactsResponse'+            Prelude.<$> (x Data..?> "Contacts" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListContacts where+  hashWithSalt _salt ListContacts' {..} =+    _salt+      `Prelude.hashWithSalt` aliasPrefix+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` type'++instance Prelude.NFData ListContacts where+  rnf ListContacts' {..} =+    Prelude.rnf aliasPrefix+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders ListContacts where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.ListContacts" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListContacts where+  toJSON ListContacts' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AliasPrefix" Data..=) Prelude.<$> aliasPrefix,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Type" Data..=) Prelude.<$> type'+          ]+      )++instance Data.ToPath ListContacts where+  toPath = Prelude.const "/"++instance Data.ToQuery ListContacts where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListContactsResponse' smart constructor.+data ListContactsResponse = ListContactsResponse'+  { -- | A list of the contacts and escalation plans in your Incident Manager+    -- account.+    contacts :: Prelude.Maybe [Contact],+    -- | The pagination token to continue to the next page of results.+    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 'ListContactsResponse' with all optional fields 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:+--+-- 'contacts', 'listContactsResponse_contacts' - A list of the contacts and escalation plans in your Incident Manager+-- account.+--+-- 'nextToken', 'listContactsResponse_nextToken' - The pagination token to continue to the next page of results.+--+-- 'httpStatus', 'listContactsResponse_httpStatus' - The response's http status code.+newListContactsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListContactsResponse+newListContactsResponse pHttpStatus_ =+  ListContactsResponse'+    { contacts = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of the contacts and escalation plans in your Incident Manager+-- account.+listContactsResponse_contacts :: Lens.Lens' ListContactsResponse (Prelude.Maybe [Contact])+listContactsResponse_contacts = Lens.lens (\ListContactsResponse' {contacts} -> contacts) (\s@ListContactsResponse' {} a -> s {contacts = a} :: ListContactsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The pagination token to continue to the next page of results.+listContactsResponse_nextToken :: Lens.Lens' ListContactsResponse (Prelude.Maybe Prelude.Text)+listContactsResponse_nextToken = Lens.lens (\ListContactsResponse' {nextToken} -> nextToken) (\s@ListContactsResponse' {} a -> s {nextToken = a} :: ListContactsResponse)++-- | The response's http status code.+listContactsResponse_httpStatus :: Lens.Lens' ListContactsResponse Prelude.Int+listContactsResponse_httpStatus = Lens.lens (\ListContactsResponse' {httpStatus} -> httpStatus) (\s@ListContactsResponse' {} a -> s {httpStatus = a} :: ListContactsResponse)++instance Prelude.NFData ListContactsResponse where+  rnf ListContactsResponse' {..} =+    Prelude.rnf contacts+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/ListEngagements.hs view
@@ -0,0 +1,250 @@+{-# 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.SSMContacts.ListEngagements+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all engagements that have happened in an incident.+--+-- This operation returns paginated results.+module Amazonka.SSMContacts.ListEngagements+  ( -- * Creating a Request+    ListEngagements (..),+    newListEngagements,++    -- * Request Lenses+    listEngagements_incidentId,+    listEngagements_maxResults,+    listEngagements_nextToken,+    listEngagements_timeRangeValue,++    -- * Destructuring the Response+    ListEngagementsResponse (..),+    newListEngagementsResponse,++    -- * Response Lenses+    listEngagementsResponse_nextToken,+    listEngagementsResponse_httpStatus,+    listEngagementsResponse_engagements,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newListEngagements' smart constructor.+data ListEngagements = ListEngagements'+  { -- | The Amazon Resource Name (ARN) of the incident you\'re listing+    -- engagements for.+    incidentId :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of engagements per page of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The time range to lists engagements for an incident.+    timeRangeValue :: Prelude.Maybe TimeRange+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEngagements' with all optional fields 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:+--+-- 'incidentId', 'listEngagements_incidentId' - The Amazon Resource Name (ARN) of the incident you\'re listing+-- engagements for.+--+-- 'maxResults', 'listEngagements_maxResults' - The maximum number of engagements per page of results.+--+-- 'nextToken', 'listEngagements_nextToken' - The pagination token to continue to the next page of results.+--+-- 'timeRangeValue', 'listEngagements_timeRangeValue' - The time range to lists engagements for an incident.+newListEngagements ::+  ListEngagements+newListEngagements =+  ListEngagements'+    { incidentId = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      timeRangeValue = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of the incident you\'re listing+-- engagements for.+listEngagements_incidentId :: Lens.Lens' ListEngagements (Prelude.Maybe Prelude.Text)+listEngagements_incidentId = Lens.lens (\ListEngagements' {incidentId} -> incidentId) (\s@ListEngagements' {} a -> s {incidentId = a} :: ListEngagements)++-- | The maximum number of engagements per page of results.+listEngagements_maxResults :: Lens.Lens' ListEngagements (Prelude.Maybe Prelude.Natural)+listEngagements_maxResults = Lens.lens (\ListEngagements' {maxResults} -> maxResults) (\s@ListEngagements' {} a -> s {maxResults = a} :: ListEngagements)++-- | The pagination token to continue to the next page of results.+listEngagements_nextToken :: Lens.Lens' ListEngagements (Prelude.Maybe Prelude.Text)+listEngagements_nextToken = Lens.lens (\ListEngagements' {nextToken} -> nextToken) (\s@ListEngagements' {} a -> s {nextToken = a} :: ListEngagements)++-- | The time range to lists engagements for an incident.+listEngagements_timeRangeValue :: Lens.Lens' ListEngagements (Prelude.Maybe TimeRange)+listEngagements_timeRangeValue = Lens.lens (\ListEngagements' {timeRangeValue} -> timeRangeValue) (\s@ListEngagements' {} a -> s {timeRangeValue = a} :: ListEngagements)++instance Core.AWSPager ListEngagements where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listEngagementsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listEngagementsResponse_engagements) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listEngagements_nextToken+          Lens..~ rs+          Lens.^? listEngagementsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListEngagements where+  type+    AWSResponse ListEngagements =+      ListEngagementsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListEngagementsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Engagements" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListEngagements where+  hashWithSalt _salt ListEngagements' {..} =+    _salt+      `Prelude.hashWithSalt` incidentId+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` timeRangeValue++instance Prelude.NFData ListEngagements where+  rnf ListEngagements' {..} =+    Prelude.rnf incidentId+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf timeRangeValue++instance Data.ToHeaders ListEngagements where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ListEngagements" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListEngagements where+  toJSON ListEngagements' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("IncidentId" Data..=) Prelude.<$> incidentId,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("TimeRangeValue" Data..=)+              Prelude.<$> timeRangeValue+          ]+      )++instance Data.ToPath ListEngagements where+  toPath = Prelude.const "/"++instance Data.ToQuery ListEngagements where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListEngagementsResponse' smart constructor.+data ListEngagementsResponse = ListEngagementsResponse'+  { -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of each engagement that occurred during the specified time range+    -- of an incident.+    engagements :: [Engagement]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListEngagementsResponse' with all optional fields 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', 'listEngagementsResponse_nextToken' - The pagination token to continue to the next page of results.+--+-- 'httpStatus', 'listEngagementsResponse_httpStatus' - The response's http status code.+--+-- 'engagements', 'listEngagementsResponse_engagements' - A list of each engagement that occurred during the specified time range+-- of an incident.+newListEngagementsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListEngagementsResponse+newListEngagementsResponse pHttpStatus_ =+  ListEngagementsResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      engagements = Prelude.mempty+    }++-- | The pagination token to continue to the next page of results.+listEngagementsResponse_nextToken :: Lens.Lens' ListEngagementsResponse (Prelude.Maybe Prelude.Text)+listEngagementsResponse_nextToken = Lens.lens (\ListEngagementsResponse' {nextToken} -> nextToken) (\s@ListEngagementsResponse' {} a -> s {nextToken = a} :: ListEngagementsResponse)++-- | The response's http status code.+listEngagementsResponse_httpStatus :: Lens.Lens' ListEngagementsResponse Prelude.Int+listEngagementsResponse_httpStatus = Lens.lens (\ListEngagementsResponse' {httpStatus} -> httpStatus) (\s@ListEngagementsResponse' {} a -> s {httpStatus = a} :: ListEngagementsResponse)++-- | A list of each engagement that occurred during the specified time range+-- of an incident.+listEngagementsResponse_engagements :: Lens.Lens' ListEngagementsResponse [Engagement]+listEngagementsResponse_engagements = Lens.lens (\ListEngagementsResponse' {engagements} -> engagements) (\s@ListEngagementsResponse' {} a -> s {engagements = a} :: ListEngagementsResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListEngagementsResponse where+  rnf ListEngagementsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf engagements
+ gen/Amazonka/SSMContacts/ListPageReceipts.hs view
@@ -0,0 +1,239 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.ListPageReceipts+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all of the engagements to contact channels that have been+-- acknowledged.+--+-- This operation returns paginated results.+module Amazonka.SSMContacts.ListPageReceipts+  ( -- * Creating a Request+    ListPageReceipts (..),+    newListPageReceipts,++    -- * Request Lenses+    listPageReceipts_maxResults,+    listPageReceipts_nextToken,+    listPageReceipts_pageId,++    -- * Destructuring the Response+    ListPageReceiptsResponse (..),+    newListPageReceiptsResponse,++    -- * Response Lenses+    listPageReceiptsResponse_nextToken,+    listPageReceiptsResponse_receipts,+    listPageReceiptsResponse_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.SSMContacts.Types++-- | /See:/ 'newListPageReceipts' smart constructor.+data ListPageReceipts = ListPageReceipts'+  { -- | The maximum number of acknowledgements per page of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the engagement to a specific contact+    -- channel.+    pageId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPageReceipts' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listPageReceipts_maxResults' - The maximum number of acknowledgements per page of results.+--+-- 'nextToken', 'listPageReceipts_nextToken' - The pagination token to continue to the next page of results.+--+-- 'pageId', 'listPageReceipts_pageId' - The Amazon Resource Name (ARN) of the engagement to a specific contact+-- channel.+newListPageReceipts ::+  -- | 'pageId'+  Prelude.Text ->+  ListPageReceipts+newListPageReceipts pPageId_ =+  ListPageReceipts'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      pageId = pPageId_+    }++-- | The maximum number of acknowledgements per page of results.+listPageReceipts_maxResults :: Lens.Lens' ListPageReceipts (Prelude.Maybe Prelude.Natural)+listPageReceipts_maxResults = Lens.lens (\ListPageReceipts' {maxResults} -> maxResults) (\s@ListPageReceipts' {} a -> s {maxResults = a} :: ListPageReceipts)++-- | The pagination token to continue to the next page of results.+listPageReceipts_nextToken :: Lens.Lens' ListPageReceipts (Prelude.Maybe Prelude.Text)+listPageReceipts_nextToken = Lens.lens (\ListPageReceipts' {nextToken} -> nextToken) (\s@ListPageReceipts' {} a -> s {nextToken = a} :: ListPageReceipts)++-- | The Amazon Resource Name (ARN) of the engagement to a specific contact+-- channel.+listPageReceipts_pageId :: Lens.Lens' ListPageReceipts Prelude.Text+listPageReceipts_pageId = Lens.lens (\ListPageReceipts' {pageId} -> pageId) (\s@ListPageReceipts' {} a -> s {pageId = a} :: ListPageReceipts)++instance Core.AWSPager ListPageReceipts where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listPageReceiptsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listPageReceiptsResponse_receipts+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listPageReceipts_nextToken+          Lens..~ rs+          Lens.^? listPageReceiptsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListPageReceipts where+  type+    AWSResponse ListPageReceipts =+      ListPageReceiptsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListPageReceiptsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Receipts" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListPageReceipts where+  hashWithSalt _salt ListPageReceipts' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` pageId++instance Prelude.NFData ListPageReceipts where+  rnf ListPageReceipts' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf pageId++instance Data.ToHeaders ListPageReceipts where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ListPageReceipts" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListPageReceipts where+  toJSON ListPageReceipts' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("PageId" Data..= pageId)+          ]+      )++instance Data.ToPath ListPageReceipts where+  toPath = Prelude.const "/"++instance Data.ToQuery ListPageReceipts where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListPageReceiptsResponse' smart constructor.+data ListPageReceiptsResponse = ListPageReceiptsResponse'+  { -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of each acknowledgement.+    receipts :: Prelude.Maybe [Receipt],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPageReceiptsResponse' with all optional fields 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', 'listPageReceiptsResponse_nextToken' - The pagination token to continue to the next page of results.+--+-- 'receipts', 'listPageReceiptsResponse_receipts' - A list of each acknowledgement.+--+-- 'httpStatus', 'listPageReceiptsResponse_httpStatus' - The response's http status code.+newListPageReceiptsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListPageReceiptsResponse+newListPageReceiptsResponse pHttpStatus_ =+  ListPageReceiptsResponse'+    { nextToken =+        Prelude.Nothing,+      receipts = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The pagination token to continue to the next page of results.+listPageReceiptsResponse_nextToken :: Lens.Lens' ListPageReceiptsResponse (Prelude.Maybe Prelude.Text)+listPageReceiptsResponse_nextToken = Lens.lens (\ListPageReceiptsResponse' {nextToken} -> nextToken) (\s@ListPageReceiptsResponse' {} a -> s {nextToken = a} :: ListPageReceiptsResponse)++-- | A list of each acknowledgement.+listPageReceiptsResponse_receipts :: Lens.Lens' ListPageReceiptsResponse (Prelude.Maybe [Receipt])+listPageReceiptsResponse_receipts = Lens.lens (\ListPageReceiptsResponse' {receipts} -> receipts) (\s@ListPageReceiptsResponse' {} a -> s {receipts = a} :: ListPageReceiptsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listPageReceiptsResponse_httpStatus :: Lens.Lens' ListPageReceiptsResponse Prelude.Int+listPageReceiptsResponse_httpStatus = Lens.lens (\ListPageReceiptsResponse' {httpStatus} -> httpStatus) (\s@ListPageReceiptsResponse' {} a -> s {httpStatus = a} :: ListPageReceiptsResponse)++instance Prelude.NFData ListPageReceiptsResponse where+  rnf ListPageReceiptsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf receipts+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/ListPagesByContact.hs view
@@ -0,0 +1,238 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.ListPagesByContact+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the engagements to a contact\'s contact channels.+--+-- This operation returns paginated results.+module Amazonka.SSMContacts.ListPagesByContact+  ( -- * Creating a Request+    ListPagesByContact (..),+    newListPagesByContact,++    -- * Request Lenses+    listPagesByContact_maxResults,+    listPagesByContact_nextToken,+    listPagesByContact_contactId,++    -- * Destructuring the Response+    ListPagesByContactResponse (..),+    newListPagesByContactResponse,++    -- * Response Lenses+    listPagesByContactResponse_nextToken,+    listPagesByContactResponse_httpStatus,+    listPagesByContactResponse_pages,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newListPagesByContact' smart constructor.+data ListPagesByContact = ListPagesByContact'+  { -- | The maximum number of engagements to contact channels to list per page+    -- of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the contact you are retrieving+    -- engagements for.+    contactId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPagesByContact' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listPagesByContact_maxResults' - The maximum number of engagements to contact channels to list per page+-- of results.+--+-- 'nextToken', 'listPagesByContact_nextToken' - The pagination token to continue to the next page of results.+--+-- 'contactId', 'listPagesByContact_contactId' - The Amazon Resource Name (ARN) of the contact you are retrieving+-- engagements for.+newListPagesByContact ::+  -- | 'contactId'+  Prelude.Text ->+  ListPagesByContact+newListPagesByContact pContactId_ =+  ListPagesByContact'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      contactId = pContactId_+    }++-- | The maximum number of engagements to contact channels to list per page+-- of results.+listPagesByContact_maxResults :: Lens.Lens' ListPagesByContact (Prelude.Maybe Prelude.Natural)+listPagesByContact_maxResults = Lens.lens (\ListPagesByContact' {maxResults} -> maxResults) (\s@ListPagesByContact' {} a -> s {maxResults = a} :: ListPagesByContact)++-- | The pagination token to continue to the next page of results.+listPagesByContact_nextToken :: Lens.Lens' ListPagesByContact (Prelude.Maybe Prelude.Text)+listPagesByContact_nextToken = Lens.lens (\ListPagesByContact' {nextToken} -> nextToken) (\s@ListPagesByContact' {} a -> s {nextToken = a} :: ListPagesByContact)++-- | The Amazon Resource Name (ARN) of the contact you are retrieving+-- engagements for.+listPagesByContact_contactId :: Lens.Lens' ListPagesByContact Prelude.Text+listPagesByContact_contactId = Lens.lens (\ListPagesByContact' {contactId} -> contactId) (\s@ListPagesByContact' {} a -> s {contactId = a} :: ListPagesByContact)++instance Core.AWSPager ListPagesByContact where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listPagesByContactResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listPagesByContactResponse_pages) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listPagesByContact_nextToken+          Lens..~ rs+          Lens.^? listPagesByContactResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListPagesByContact where+  type+    AWSResponse ListPagesByContact =+      ListPagesByContactResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListPagesByContactResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Pages" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListPagesByContact where+  hashWithSalt _salt ListPagesByContact' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` contactId++instance Prelude.NFData ListPagesByContact where+  rnf ListPagesByContact' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf contactId++instance Data.ToHeaders ListPagesByContact where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ListPagesByContact" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListPagesByContact where+  toJSON ListPagesByContact' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ContactId" Data..= contactId)+          ]+      )++instance Data.ToPath ListPagesByContact where+  toPath = Prelude.const "/"++instance Data.ToQuery ListPagesByContact where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListPagesByContactResponse' smart constructor.+data ListPagesByContactResponse = ListPagesByContactResponse'+  { -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The list of engagements to a contact\'s contact channel.+    pages :: [Page]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPagesByContactResponse' with all optional fields 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', 'listPagesByContactResponse_nextToken' - The pagination token to continue to the next page of results.+--+-- 'httpStatus', 'listPagesByContactResponse_httpStatus' - The response's http status code.+--+-- 'pages', 'listPagesByContactResponse_pages' - The list of engagements to a contact\'s contact channel.+newListPagesByContactResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListPagesByContactResponse+newListPagesByContactResponse pHttpStatus_ =+  ListPagesByContactResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      pages = Prelude.mempty+    }++-- | The pagination token to continue to the next page of results.+listPagesByContactResponse_nextToken :: Lens.Lens' ListPagesByContactResponse (Prelude.Maybe Prelude.Text)+listPagesByContactResponse_nextToken = Lens.lens (\ListPagesByContactResponse' {nextToken} -> nextToken) (\s@ListPagesByContactResponse' {} a -> s {nextToken = a} :: ListPagesByContactResponse)++-- | The response's http status code.+listPagesByContactResponse_httpStatus :: Lens.Lens' ListPagesByContactResponse Prelude.Int+listPagesByContactResponse_httpStatus = Lens.lens (\ListPagesByContactResponse' {httpStatus} -> httpStatus) (\s@ListPagesByContactResponse' {} a -> s {httpStatus = a} :: ListPagesByContactResponse)++-- | The list of engagements to a contact\'s contact channel.+listPagesByContactResponse_pages :: Lens.Lens' ListPagesByContactResponse [Page]+listPagesByContactResponse_pages = Lens.lens (\ListPagesByContactResponse' {pages} -> pages) (\s@ListPagesByContactResponse' {} a -> s {pages = a} :: ListPagesByContactResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListPagesByContactResponse where+  rnf ListPagesByContactResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf pages
+ gen/Amazonka/SSMContacts/ListPagesByEngagement.hs view
@@ -0,0 +1,237 @@+{-# 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.SSMContacts.ListPagesByEngagement+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the engagements to contact channels that occurred by engaging a+-- contact.+--+-- This operation returns paginated results.+module Amazonka.SSMContacts.ListPagesByEngagement+  ( -- * Creating a Request+    ListPagesByEngagement (..),+    newListPagesByEngagement,++    -- * Request Lenses+    listPagesByEngagement_maxResults,+    listPagesByEngagement_nextToken,+    listPagesByEngagement_engagementId,++    -- * Destructuring the Response+    ListPagesByEngagementResponse (..),+    newListPagesByEngagementResponse,++    -- * Response Lenses+    listPagesByEngagementResponse_nextToken,+    listPagesByEngagementResponse_httpStatus,+    listPagesByEngagementResponse_pages,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newListPagesByEngagement' smart constructor.+data ListPagesByEngagement = ListPagesByEngagement'+  { -- | The maximum number of engagements to contact channels to list per page+    -- of results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the engagement.+    engagementId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPagesByEngagement' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listPagesByEngagement_maxResults' - The maximum number of engagements to contact channels to list per page+-- of results.+--+-- 'nextToken', 'listPagesByEngagement_nextToken' - The pagination token to continue to the next page of results.+--+-- 'engagementId', 'listPagesByEngagement_engagementId' - The Amazon Resource Name (ARN) of the engagement.+newListPagesByEngagement ::+  -- | 'engagementId'+  Prelude.Text ->+  ListPagesByEngagement+newListPagesByEngagement pEngagementId_ =+  ListPagesByEngagement'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      engagementId = pEngagementId_+    }++-- | The maximum number of engagements to contact channels to list per page+-- of results.+listPagesByEngagement_maxResults :: Lens.Lens' ListPagesByEngagement (Prelude.Maybe Prelude.Natural)+listPagesByEngagement_maxResults = Lens.lens (\ListPagesByEngagement' {maxResults} -> maxResults) (\s@ListPagesByEngagement' {} a -> s {maxResults = a} :: ListPagesByEngagement)++-- | The pagination token to continue to the next page of results.+listPagesByEngagement_nextToken :: Lens.Lens' ListPagesByEngagement (Prelude.Maybe Prelude.Text)+listPagesByEngagement_nextToken = Lens.lens (\ListPagesByEngagement' {nextToken} -> nextToken) (\s@ListPagesByEngagement' {} a -> s {nextToken = a} :: ListPagesByEngagement)++-- | The Amazon Resource Name (ARN) of the engagement.+listPagesByEngagement_engagementId :: Lens.Lens' ListPagesByEngagement Prelude.Text+listPagesByEngagement_engagementId = Lens.lens (\ListPagesByEngagement' {engagementId} -> engagementId) (\s@ListPagesByEngagement' {} a -> s {engagementId = a} :: ListPagesByEngagement)++instance Core.AWSPager ListPagesByEngagement where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listPagesByEngagementResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        (rs Lens.^. listPagesByEngagementResponse_pages) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listPagesByEngagement_nextToken+          Lens..~ rs+          Lens.^? listPagesByEngagementResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListPagesByEngagement where+  type+    AWSResponse ListPagesByEngagement =+      ListPagesByEngagementResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListPagesByEngagementResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Pages" Core..!@ Prelude.mempty)+      )++instance Prelude.Hashable ListPagesByEngagement where+  hashWithSalt _salt ListPagesByEngagement' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` engagementId++instance Prelude.NFData ListPagesByEngagement where+  rnf ListPagesByEngagement' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf engagementId++instance Data.ToHeaders ListPagesByEngagement where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ListPagesByEngagement" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListPagesByEngagement where+  toJSON ListPagesByEngagement' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("EngagementId" Data..= engagementId)+          ]+      )++instance Data.ToPath ListPagesByEngagement where+  toPath = Prelude.const "/"++instance Data.ToQuery ListPagesByEngagement where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListPagesByEngagementResponse' smart constructor.+data ListPagesByEngagementResponse = ListPagesByEngagementResponse'+  { -- | The pagination token to continue to the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The list of engagements to contact channels.+    pages :: [Page]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListPagesByEngagementResponse' with all optional fields 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', 'listPagesByEngagementResponse_nextToken' - The pagination token to continue to the next page of results.+--+-- 'httpStatus', 'listPagesByEngagementResponse_httpStatus' - The response's http status code.+--+-- 'pages', 'listPagesByEngagementResponse_pages' - The list of engagements to contact channels.+newListPagesByEngagementResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListPagesByEngagementResponse+newListPagesByEngagementResponse pHttpStatus_ =+  ListPagesByEngagementResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      pages = Prelude.mempty+    }++-- | The pagination token to continue to the next page of results.+listPagesByEngagementResponse_nextToken :: Lens.Lens' ListPagesByEngagementResponse (Prelude.Maybe Prelude.Text)+listPagesByEngagementResponse_nextToken = Lens.lens (\ListPagesByEngagementResponse' {nextToken} -> nextToken) (\s@ListPagesByEngagementResponse' {} a -> s {nextToken = a} :: ListPagesByEngagementResponse)++-- | The response's http status code.+listPagesByEngagementResponse_httpStatus :: Lens.Lens' ListPagesByEngagementResponse Prelude.Int+listPagesByEngagementResponse_httpStatus = Lens.lens (\ListPagesByEngagementResponse' {httpStatus} -> httpStatus) (\s@ListPagesByEngagementResponse' {} a -> s {httpStatus = a} :: ListPagesByEngagementResponse)++-- | The list of engagements to contact channels.+listPagesByEngagementResponse_pages :: Lens.Lens' ListPagesByEngagementResponse [Page]+listPagesByEngagementResponse_pages = Lens.lens (\ListPagesByEngagementResponse' {pages} -> pages) (\s@ListPagesByEngagementResponse' {} a -> s {pages = a} :: ListPagesByEngagementResponse) Prelude.. Lens.coerced++instance Prelude.NFData ListPagesByEngagementResponse where+  rnf ListPagesByEngagementResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf pages
+ gen/Amazonka/SSMContacts/ListTagsForResource.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.SSMContacts.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)+--+-- Lists the tags of an escalation plan or contact.+module Amazonka.SSMContacts.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.SSMContacts.Types++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    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 Amazon Resource Name (ARN) of the contact or escalation plan.+newListTagsForResource ::+  -- | 'resourceARN'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceARN_ =+  ListTagsForResource' {resourceARN = pResourceARN_}++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+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.postJSON (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+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ResourceARN" Data..= resourceARN)]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | The tags related to the contact or escalation plan.+    tags :: Prelude.Maybe [Tag],+    -- | 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' - The tags related to the contact or escalation plan.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The tags related to the contact or escalation plan.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [Tag])+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/SSMContacts/PutContactPolicy.hs view
@@ -0,0 +1,180 @@+{-# 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.SSMContacts.PutContactPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds a resource policy to the specified contact or escalation plan. The+-- resource policy is used to share the contact or escalation plan using+-- Resource Access Manager (RAM). For more information about cross-account+-- sharing, see+-- <https://docs.aws.amazon.com/incident-manager/latest/userguide/xa.html Setting up cross-account functionality>.+module Amazonka.SSMContacts.PutContactPolicy+  ( -- * Creating a Request+    PutContactPolicy (..),+    newPutContactPolicy,++    -- * Request Lenses+    putContactPolicy_contactArn,+    putContactPolicy_policy,++    -- * Destructuring the Response+    PutContactPolicyResponse (..),+    newPutContactPolicyResponse,++    -- * Response Lenses+    putContactPolicyResponse_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.SSMContacts.Types++-- | /See:/ 'newPutContactPolicy' smart constructor.+data PutContactPolicy = PutContactPolicy'+  { -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    contactArn :: Prelude.Text,+    -- | Details of the resource policy.+    policy :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutContactPolicy' with all optional fields 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:+--+-- 'contactArn', 'putContactPolicy_contactArn' - The Amazon Resource Name (ARN) of the contact or escalation plan.+--+-- 'policy', 'putContactPolicy_policy' - Details of the resource policy.+newPutContactPolicy ::+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'policy'+  Prelude.Text ->+  PutContactPolicy+newPutContactPolicy pContactArn_ pPolicy_ =+  PutContactPolicy'+    { contactArn = pContactArn_,+      policy = pPolicy_+    }++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+putContactPolicy_contactArn :: Lens.Lens' PutContactPolicy Prelude.Text+putContactPolicy_contactArn = Lens.lens (\PutContactPolicy' {contactArn} -> contactArn) (\s@PutContactPolicy' {} a -> s {contactArn = a} :: PutContactPolicy)++-- | Details of the resource policy.+putContactPolicy_policy :: Lens.Lens' PutContactPolicy Prelude.Text+putContactPolicy_policy = Lens.lens (\PutContactPolicy' {policy} -> policy) (\s@PutContactPolicy' {} a -> s {policy = a} :: PutContactPolicy)++instance Core.AWSRequest PutContactPolicy where+  type+    AWSResponse PutContactPolicy =+      PutContactPolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutContactPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutContactPolicy where+  hashWithSalt _salt PutContactPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` contactArn+      `Prelude.hashWithSalt` policy++instance Prelude.NFData PutContactPolicy where+  rnf PutContactPolicy' {..} =+    Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf policy++instance Data.ToHeaders PutContactPolicy where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.PutContactPolicy" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON PutContactPolicy where+  toJSON PutContactPolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ContactArn" Data..= contactArn),+            Prelude.Just ("Policy" Data..= policy)+          ]+      )++instance Data.ToPath PutContactPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery PutContactPolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutContactPolicyResponse' smart constructor.+data PutContactPolicyResponse = PutContactPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutContactPolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'putContactPolicyResponse_httpStatus' - The response's http status code.+newPutContactPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutContactPolicyResponse+newPutContactPolicyResponse pHttpStatus_ =+  PutContactPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+putContactPolicyResponse_httpStatus :: Lens.Lens' PutContactPolicyResponse Prelude.Int+putContactPolicyResponse_httpStatus = Lens.lens (\PutContactPolicyResponse' {httpStatus} -> httpStatus) (\s@PutContactPolicyResponse' {} a -> s {httpStatus = a} :: PutContactPolicyResponse)++instance Prelude.NFData PutContactPolicyResponse where+  rnf PutContactPolicyResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/SendActivationCode.hs view
@@ -0,0 +1,165 @@+{-# 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.SSMContacts.SendActivationCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sends an activation code to a contact channel. The contact can use this+-- code to activate the contact channel in the console or with the+-- @ActivateChannel@ operation. Incident Manager can\'t engage a contact+-- channel until it has been activated.+module Amazonka.SSMContacts.SendActivationCode+  ( -- * Creating a Request+    SendActivationCode (..),+    newSendActivationCode,++    -- * Request Lenses+    sendActivationCode_contactChannelId,++    -- * Destructuring the Response+    SendActivationCodeResponse (..),+    newSendActivationCodeResponse,++    -- * Response Lenses+    sendActivationCodeResponse_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.SSMContacts.Types++-- | /See:/ 'newSendActivationCode' smart constructor.+data SendActivationCode = SendActivationCode'+  { -- | The Amazon Resource Name (ARN) of the contact channel.+    contactChannelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SendActivationCode' with all optional fields 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:+--+-- 'contactChannelId', 'sendActivationCode_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel.+newSendActivationCode ::+  -- | 'contactChannelId'+  Prelude.Text ->+  SendActivationCode+newSendActivationCode pContactChannelId_ =+  SendActivationCode'+    { contactChannelId =+        pContactChannelId_+    }++-- | The Amazon Resource Name (ARN) of the contact channel.+sendActivationCode_contactChannelId :: Lens.Lens' SendActivationCode Prelude.Text+sendActivationCode_contactChannelId = Lens.lens (\SendActivationCode' {contactChannelId} -> contactChannelId) (\s@SendActivationCode' {} a -> s {contactChannelId = a} :: SendActivationCode)++instance Core.AWSRequest SendActivationCode where+  type+    AWSResponse SendActivationCode =+      SendActivationCodeResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          SendActivationCodeResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable SendActivationCode where+  hashWithSalt _salt SendActivationCode' {..} =+    _salt `Prelude.hashWithSalt` contactChannelId++instance Prelude.NFData SendActivationCode where+  rnf SendActivationCode' {..} =+    Prelude.rnf contactChannelId++instance Data.ToHeaders SendActivationCode where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.SendActivationCode" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON SendActivationCode where+  toJSON SendActivationCode' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ContactChannelId" Data..= contactChannelId)+          ]+      )++instance Data.ToPath SendActivationCode where+  toPath = Prelude.const "/"++instance Data.ToQuery SendActivationCode where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newSendActivationCodeResponse' smart constructor.+data SendActivationCodeResponse = SendActivationCodeResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SendActivationCodeResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'sendActivationCodeResponse_httpStatus' - The response's http status code.+newSendActivationCodeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SendActivationCodeResponse+newSendActivationCodeResponse pHttpStatus_ =+  SendActivationCodeResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+sendActivationCodeResponse_httpStatus :: Lens.Lens' SendActivationCodeResponse Prelude.Int+sendActivationCodeResponse_httpStatus = Lens.lens (\SendActivationCodeResponse' {httpStatus} -> httpStatus) (\s@SendActivationCodeResponse' {} a -> s {httpStatus = a} :: SendActivationCodeResponse)++instance Prelude.NFData SendActivationCodeResponse where+  rnf SendActivationCodeResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/StartEngagement.hs view
@@ -0,0 +1,295 @@+{-# 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.SSMContacts.StartEngagement+-- 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 an engagement to a contact or escalation plan. The engagement+-- engages each contact specified in the incident.+module Amazonka.SSMContacts.StartEngagement+  ( -- * Creating a Request+    StartEngagement (..),+    newStartEngagement,++    -- * Request Lenses+    startEngagement_idempotencyToken,+    startEngagement_incidentId,+    startEngagement_publicContent,+    startEngagement_publicSubject,+    startEngagement_contactId,+    startEngagement_sender,+    startEngagement_subject,+    startEngagement_content,++    -- * Destructuring the Response+    StartEngagementResponse (..),+    newStartEngagementResponse,++    -- * Response Lenses+    startEngagementResponse_httpStatus,+    startEngagementResponse_engagementArn,+  )+where++import qualified 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.SSMContacts.Types++-- | /See:/ 'newStartEngagement' smart constructor.+data StartEngagement = StartEngagement'+  { -- | A token ensuring that the operation is called only once with the+    -- specified details.+    idempotencyToken :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the incident that the engagement is part of.+    incidentId :: Prelude.Maybe Prelude.Text,+    -- | The insecure content of the message that was sent to the contact. Use+    -- this field for engagements to @SMS@.+    publicContent :: Prelude.Maybe Prelude.Text,+    -- | The insecure subject of the message that was sent to the contact. Use+    -- this field for engagements to @SMS@.+    publicSubject :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the contact being engaged.+    contactId :: Prelude.Text,+    -- | The user that started the engagement.+    sender :: Prelude.Text,+    -- | The secure subject of the message that was sent to the contact. Use this+    -- field for engagements to @VOICE@ or @EMAIL@.+    subject :: Prelude.Text,+    -- | The secure content of the message that was sent to the contact. Use this+    -- field for engagements to @VOICE@ or @EMAIL@.+    content :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartEngagement' with all optional fields 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:+--+-- 'idempotencyToken', 'startEngagement_idempotencyToken' - A token ensuring that the operation is called only once with the+-- specified details.+--+-- 'incidentId', 'startEngagement_incidentId' - The ARN of the incident that the engagement is part of.+--+-- 'publicContent', 'startEngagement_publicContent' - The insecure content of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+--+-- 'publicSubject', 'startEngagement_publicSubject' - The insecure subject of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+--+-- 'contactId', 'startEngagement_contactId' - The Amazon Resource Name (ARN) of the contact being engaged.+--+-- 'sender', 'startEngagement_sender' - The user that started the engagement.+--+-- 'subject', 'startEngagement_subject' - The secure subject of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ or @EMAIL@.+--+-- 'content', 'startEngagement_content' - The secure content of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ or @EMAIL@.+newStartEngagement ::+  -- | 'contactId'+  Prelude.Text ->+  -- | 'sender'+  Prelude.Text ->+  -- | 'subject'+  Prelude.Text ->+  -- | 'content'+  Prelude.Text ->+  StartEngagement+newStartEngagement+  pContactId_+  pSender_+  pSubject_+  pContent_ =+    StartEngagement'+      { idempotencyToken =+          Prelude.Nothing,+        incidentId = Prelude.Nothing,+        publicContent = Prelude.Nothing,+        publicSubject = Prelude.Nothing,+        contactId = pContactId_,+        sender = pSender_,+        subject = pSubject_,+        content = pContent_+      }++-- | A token ensuring that the operation is called only once with the+-- specified details.+startEngagement_idempotencyToken :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)+startEngagement_idempotencyToken = Lens.lens (\StartEngagement' {idempotencyToken} -> idempotencyToken) (\s@StartEngagement' {} a -> s {idempotencyToken = a} :: StartEngagement)++-- | The ARN of the incident that the engagement is part of.+startEngagement_incidentId :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)+startEngagement_incidentId = Lens.lens (\StartEngagement' {incidentId} -> incidentId) (\s@StartEngagement' {} a -> s {incidentId = a} :: StartEngagement)++-- | The insecure content of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+startEngagement_publicContent :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)+startEngagement_publicContent = Lens.lens (\StartEngagement' {publicContent} -> publicContent) (\s@StartEngagement' {} a -> s {publicContent = a} :: StartEngagement)++-- | The insecure subject of the message that was sent to the contact. Use+-- this field for engagements to @SMS@.+startEngagement_publicSubject :: Lens.Lens' StartEngagement (Prelude.Maybe Prelude.Text)+startEngagement_publicSubject = Lens.lens (\StartEngagement' {publicSubject} -> publicSubject) (\s@StartEngagement' {} a -> s {publicSubject = a} :: StartEngagement)++-- | The Amazon Resource Name (ARN) of the contact being engaged.+startEngagement_contactId :: Lens.Lens' StartEngagement Prelude.Text+startEngagement_contactId = Lens.lens (\StartEngagement' {contactId} -> contactId) (\s@StartEngagement' {} a -> s {contactId = a} :: StartEngagement)++-- | The user that started the engagement.+startEngagement_sender :: Lens.Lens' StartEngagement Prelude.Text+startEngagement_sender = Lens.lens (\StartEngagement' {sender} -> sender) (\s@StartEngagement' {} a -> s {sender = a} :: StartEngagement)++-- | The secure subject of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ or @EMAIL@.+startEngagement_subject :: Lens.Lens' StartEngagement Prelude.Text+startEngagement_subject = Lens.lens (\StartEngagement' {subject} -> subject) (\s@StartEngagement' {} a -> s {subject = a} :: StartEngagement)++-- | The secure content of the message that was sent to the contact. Use this+-- field for engagements to @VOICE@ or @EMAIL@.+startEngagement_content :: Lens.Lens' StartEngagement Prelude.Text+startEngagement_content = Lens.lens (\StartEngagement' {content} -> content) (\s@StartEngagement' {} a -> s {content = a} :: StartEngagement)++instance Core.AWSRequest StartEngagement where+  type+    AWSResponse StartEngagement =+      StartEngagementResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartEngagementResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "EngagementArn")+      )++instance Prelude.Hashable StartEngagement where+  hashWithSalt _salt StartEngagement' {..} =+    _salt+      `Prelude.hashWithSalt` idempotencyToken+      `Prelude.hashWithSalt` incidentId+      `Prelude.hashWithSalt` publicContent+      `Prelude.hashWithSalt` publicSubject+      `Prelude.hashWithSalt` contactId+      `Prelude.hashWithSalt` sender+      `Prelude.hashWithSalt` subject+      `Prelude.hashWithSalt` content++instance Prelude.NFData StartEngagement where+  rnf StartEngagement' {..} =+    Prelude.rnf idempotencyToken+      `Prelude.seq` Prelude.rnf incidentId+      `Prelude.seq` Prelude.rnf publicContent+      `Prelude.seq` Prelude.rnf publicSubject+      `Prelude.seq` Prelude.rnf contactId+      `Prelude.seq` Prelude.rnf sender+      `Prelude.seq` Prelude.rnf subject+      `Prelude.seq` Prelude.rnf content++instance Data.ToHeaders StartEngagement where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.StartEngagement" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartEngagement where+  toJSON StartEngagement' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("IdempotencyToken" Data..=)+              Prelude.<$> idempotencyToken,+            ("IncidentId" Data..=) Prelude.<$> incidentId,+            ("PublicContent" Data..=) Prelude.<$> publicContent,+            ("PublicSubject" Data..=) Prelude.<$> publicSubject,+            Prelude.Just ("ContactId" Data..= contactId),+            Prelude.Just ("Sender" Data..= sender),+            Prelude.Just ("Subject" Data..= subject),+            Prelude.Just ("Content" Data..= content)+          ]+      )++instance Data.ToPath StartEngagement where+  toPath = Prelude.const "/"++instance Data.ToQuery StartEngagement where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartEngagementResponse' smart constructor.+data StartEngagementResponse = StartEngagementResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The ARN of the engagement.+    engagementArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartEngagementResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'startEngagementResponse_httpStatus' - The response's http status code.+--+-- 'engagementArn', 'startEngagementResponse_engagementArn' - The ARN of the engagement.+newStartEngagementResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'engagementArn'+  Prelude.Text ->+  StartEngagementResponse+newStartEngagementResponse+  pHttpStatus_+  pEngagementArn_ =+    StartEngagementResponse'+      { httpStatus = pHttpStatus_,+        engagementArn = pEngagementArn_+      }++-- | The response's http status code.+startEngagementResponse_httpStatus :: Lens.Lens' StartEngagementResponse Prelude.Int+startEngagementResponse_httpStatus = Lens.lens (\StartEngagementResponse' {httpStatus} -> httpStatus) (\s@StartEngagementResponse' {} a -> s {httpStatus = a} :: StartEngagementResponse)++-- | The ARN of the engagement.+startEngagementResponse_engagementArn :: Lens.Lens' StartEngagementResponse Prelude.Text+startEngagementResponse_engagementArn = Lens.lens (\StartEngagementResponse' {engagementArn} -> engagementArn) (\s@StartEngagementResponse' {} a -> s {engagementArn = a} :: StartEngagementResponse)++instance Prelude.NFData StartEngagementResponse where+  rnf StartEngagementResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf engagementArn
+ gen/Amazonka/SSMContacts/StopEngagement.hs view
@@ -0,0 +1,170 @@+{-# 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.SSMContacts.StopEngagement+-- 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 an engagement before it finishes the final stage of the escalation+-- plan or engagement plan. Further contacts aren\'t engaged.+module Amazonka.SSMContacts.StopEngagement+  ( -- * Creating a Request+    StopEngagement (..),+    newStopEngagement,++    -- * Request Lenses+    stopEngagement_reason,+    stopEngagement_engagementId,++    -- * Destructuring the Response+    StopEngagementResponse (..),+    newStopEngagementResponse,++    -- * Response Lenses+    stopEngagementResponse_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.SSMContacts.Types++-- | /See:/ 'newStopEngagement' smart constructor.+data StopEngagement = StopEngagement'+  { -- | The reason that you\'re stopping the engagement.+    reason :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the engagement.+    engagementId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopEngagement' with all optional fields 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:+--+-- 'reason', 'stopEngagement_reason' - The reason that you\'re stopping the engagement.+--+-- 'engagementId', 'stopEngagement_engagementId' - The Amazon Resource Name (ARN) of the engagement.+newStopEngagement ::+  -- | 'engagementId'+  Prelude.Text ->+  StopEngagement+newStopEngagement pEngagementId_ =+  StopEngagement'+    { reason = Prelude.Nothing,+      engagementId = pEngagementId_+    }++-- | The reason that you\'re stopping the engagement.+stopEngagement_reason :: Lens.Lens' StopEngagement (Prelude.Maybe Prelude.Text)+stopEngagement_reason = Lens.lens (\StopEngagement' {reason} -> reason) (\s@StopEngagement' {} a -> s {reason = a} :: StopEngagement)++-- | The Amazon Resource Name (ARN) of the engagement.+stopEngagement_engagementId :: Lens.Lens' StopEngagement Prelude.Text+stopEngagement_engagementId = Lens.lens (\StopEngagement' {engagementId} -> engagementId) (\s@StopEngagement' {} a -> s {engagementId = a} :: StopEngagement)++instance Core.AWSRequest StopEngagement where+  type+    AWSResponse StopEngagement =+      StopEngagementResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          StopEngagementResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopEngagement where+  hashWithSalt _salt StopEngagement' {..} =+    _salt+      `Prelude.hashWithSalt` reason+      `Prelude.hashWithSalt` engagementId++instance Prelude.NFData StopEngagement where+  rnf StopEngagement' {..} =+    Prelude.rnf reason+      `Prelude.seq` Prelude.rnf engagementId++instance Data.ToHeaders StopEngagement where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.StopEngagement" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopEngagement where+  toJSON StopEngagement' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Reason" Data..=) Prelude.<$> reason,+            Prelude.Just ("EngagementId" Data..= engagementId)+          ]+      )++instance Data.ToPath StopEngagement where+  toPath = Prelude.const "/"++instance Data.ToQuery StopEngagement where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopEngagementResponse' smart constructor.+data StopEngagementResponse = StopEngagementResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopEngagementResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'stopEngagementResponse_httpStatus' - The response's http status code.+newStopEngagementResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopEngagementResponse+newStopEngagementResponse pHttpStatus_ =+  StopEngagementResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+stopEngagementResponse_httpStatus :: Lens.Lens' StopEngagementResponse Prelude.Int+stopEngagementResponse_httpStatus = Lens.lens (\StopEngagementResponse' {httpStatus} -> httpStatus) (\s@StopEngagementResponse' {} a -> s {httpStatus = a} :: StopEngagementResponse)++instance Prelude.NFData StopEngagementResponse where+  rnf StopEngagementResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/TagResource.hs view
@@ -0,0 +1,167 @@+{-# 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.SSMContacts.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)+--+-- Tags a contact or escalation plan. You can tag only contacts and+-- escalation plans in the first region of your replication set.+module Amazonka.SSMContacts.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceARN,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SSMContacts.Types++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    resourceARN :: Prelude.Text,+    -- | A list of tags that you are adding to the contact or escalation plan.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceARN', 'tagResource_resourceARN' - The Amazon Resource Name (ARN) of the contact or escalation plan.+--+-- 'tags', 'tagResource_tags' - A list of tags that you are adding to the contact or escalation plan.+newTagResource ::+  -- | 'resourceARN'+  Prelude.Text ->+  TagResource+newTagResource pResourceARN_ =+  TagResource'+    { resourceARN = pResourceARN_,+      tags = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+tagResource_resourceARN :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceARN = Lens.lens (\TagResource' {resourceARN} -> resourceARN) (\s@TagResource' {} a -> s {resourceARN = a} :: TagResource)++-- | A list of tags that you are adding to the contact or escalation plan.+tagResource_tags :: Lens.Lens' TagResource [Tag]+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceARN+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceARN+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.TagResource" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceARN" Data..= resourceARN),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/Types.hs view
@@ -0,0 +1,293 @@+{-# 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.SSMContacts.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.SSMContacts.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AccessDeniedException,+    _ConflictException,+    _DataEncryptionException,+    _InternalServerException,+    _ResourceNotFoundException,+    _ServiceQuotaExceededException,+    _ThrottlingException,+    _ValidationException,++    -- * AcceptCodeValidation+    AcceptCodeValidation (..),++    -- * AcceptType+    AcceptType (..),++    -- * ActivationStatus+    ActivationStatus (..),++    -- * ChannelType+    ChannelType (..),++    -- * ContactType+    ContactType (..),++    -- * ReceiptType+    ReceiptType (..),++    -- * ChannelTargetInfo+    ChannelTargetInfo (..),+    newChannelTargetInfo,+    channelTargetInfo_retryIntervalInMinutes,+    channelTargetInfo_contactChannelId,++    -- * Contact+    Contact (..),+    newContact,+    contact_displayName,+    contact_contactArn,+    contact_alias,+    contact_type,++    -- * ContactChannel+    ContactChannel (..),+    newContactChannel,+    contactChannel_type,+    contactChannel_contactChannelArn,+    contactChannel_contactArn,+    contactChannel_name,+    contactChannel_deliveryAddress,+    contactChannel_activationStatus,++    -- * ContactChannelAddress+    ContactChannelAddress (..),+    newContactChannelAddress,+    contactChannelAddress_simpleAddress,++    -- * ContactTargetInfo+    ContactTargetInfo (..),+    newContactTargetInfo,+    contactTargetInfo_contactId,+    contactTargetInfo_isEssential,++    -- * Engagement+    Engagement (..),+    newEngagement,+    engagement_incidentId,+    engagement_startTime,+    engagement_stopTime,+    engagement_engagementArn,+    engagement_contactArn,+    engagement_sender,++    -- * Page+    Page (..),+    newPage,+    page_deliveryTime,+    page_incidentId,+    page_readTime,+    page_sentTime,+    page_pageArn,+    page_engagementArn,+    page_contactArn,+    page_sender,++    -- * Plan+    Plan (..),+    newPlan,+    plan_stages,++    -- * Receipt+    Receipt (..),+    newReceipt,+    receipt_contactChannelArn,+    receipt_receiptInfo,+    receipt_receiptType,+    receipt_receiptTime,++    -- * Stage+    Stage (..),+    newStage,+    stage_durationInMinutes,+    stage_targets,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,++    -- * Target+    Target (..),+    newTarget,+    target_channelTargetInfo,+    target_contactTargetInfo,++    -- * TimeRange+    TimeRange (..),+    newTimeRange,+    timeRange_endTime,+    timeRange_startTime,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import Amazonka.SSMContacts.Types.AcceptCodeValidation+import Amazonka.SSMContacts.Types.AcceptType+import Amazonka.SSMContacts.Types.ActivationStatus+import Amazonka.SSMContacts.Types.ChannelTargetInfo+import Amazonka.SSMContacts.Types.ChannelType+import Amazonka.SSMContacts.Types.Contact+import Amazonka.SSMContacts.Types.ContactChannel+import Amazonka.SSMContacts.Types.ContactChannelAddress+import Amazonka.SSMContacts.Types.ContactTargetInfo+import Amazonka.SSMContacts.Types.ContactType+import Amazonka.SSMContacts.Types.Engagement+import Amazonka.SSMContacts.Types.Page+import Amazonka.SSMContacts.Types.Plan+import Amazonka.SSMContacts.Types.Receipt+import Amazonka.SSMContacts.Types.ReceiptType+import Amazonka.SSMContacts.Types.Stage+import Amazonka.SSMContacts.Types.Tag+import Amazonka.SSMContacts.Types.Target+import Amazonka.SSMContacts.Types.TimeRange+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2021-05-03@ of the Amazon Systems Manager Incident Manager Contacts SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "SSMContacts",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "ssm-contacts",+      Core.signingName = "ssm-contacts",+      Core.version = "2021-05-03",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "SSMContacts",+      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++-- | You don\'t have sufficient access to perform this operation.+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessDeniedException =+  Core._MatchServiceError+    defaultService+    "AccessDeniedException"++-- | Updating or deleting a resource causes an inconsistent state.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"++-- | The operation failed to due an encryption key error.+_DataEncryptionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DataEncryptionException =+  Core._MatchServiceError+    defaultService+    "DataEncryptionException"++-- | Unexpected error occurred while processing the request.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"++-- | Request references a resource that doesn\'t exist.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"++-- | Request would cause a service quota to be exceeded.+_ServiceQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceQuotaExceededException =+  Core._MatchServiceError+    defaultService+    "ServiceQuotaExceededException"++-- | The request was denied due to request throttling.+_ThrottlingException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ThrottlingException =+  Core._MatchServiceError+    defaultService+    "ThrottlingException"++-- | The input fails to satisfy the constraints specified by an Amazon Web+-- Services service.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"
+ gen/Amazonka/SSMContacts/Types/AcceptCodeValidation.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.SSMContacts.Types.AcceptCodeValidation+-- 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.SSMContacts.Types.AcceptCodeValidation+  ( AcceptCodeValidation+      ( ..,+        AcceptCodeValidation_ENFORCE,+        AcceptCodeValidation_IGNORE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AcceptCodeValidation = AcceptCodeValidation'+  { fromAcceptCodeValidation ::+      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 AcceptCodeValidation_ENFORCE :: AcceptCodeValidation+pattern AcceptCodeValidation_ENFORCE = AcceptCodeValidation' "ENFORCE"++pattern AcceptCodeValidation_IGNORE :: AcceptCodeValidation+pattern AcceptCodeValidation_IGNORE = AcceptCodeValidation' "IGNORE"++{-# COMPLETE+  AcceptCodeValidation_ENFORCE,+  AcceptCodeValidation_IGNORE,+  AcceptCodeValidation'+  #-}
+ gen/Amazonka/SSMContacts/Types/AcceptType.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.SSMContacts.Types.AcceptType+-- 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.SSMContacts.Types.AcceptType+  ( AcceptType+      ( ..,+        AcceptType_DELIVERED,+        AcceptType_READ+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype AcceptType = AcceptType'+  { fromAcceptType ::+      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 AcceptType_DELIVERED :: AcceptType+pattern AcceptType_DELIVERED = AcceptType' "DELIVERED"++pattern AcceptType_READ :: AcceptType+pattern AcceptType_READ = AcceptType' "READ"++{-# COMPLETE+  AcceptType_DELIVERED,+  AcceptType_READ,+  AcceptType'+  #-}
+ gen/Amazonka/SSMContacts/Types/ActivationStatus.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.SSMContacts.Types.ActivationStatus+-- 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.SSMContacts.Types.ActivationStatus+  ( ActivationStatus+      ( ..,+        ActivationStatus_ACTIVATED,+        ActivationStatus_NOT_ACTIVATED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ActivationStatus = ActivationStatus'+  { fromActivationStatus ::+      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 ActivationStatus_ACTIVATED :: ActivationStatus+pattern ActivationStatus_ACTIVATED = ActivationStatus' "ACTIVATED"++pattern ActivationStatus_NOT_ACTIVATED :: ActivationStatus+pattern ActivationStatus_NOT_ACTIVATED = ActivationStatus' "NOT_ACTIVATED"++{-# COMPLETE+  ActivationStatus_ACTIVATED,+  ActivationStatus_NOT_ACTIVATED,+  ActivationStatus'+  #-}
+ gen/Amazonka/SSMContacts/Types/ChannelTargetInfo.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.Types.ChannelTargetInfo+-- 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.SSMContacts.Types.ChannelTargetInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Information about the contact channel that Incident Manager uses to+-- engage the contact.+--+-- /See:/ 'newChannelTargetInfo' smart constructor.+data ChannelTargetInfo = ChannelTargetInfo'+  { -- | The number of minutes to wait to retry sending engagement in the case+    -- the engagement initially fails.+    retryIntervalInMinutes :: Prelude.Maybe Prelude.Natural,+    -- | The Amazon Resource Name (ARN) of the contact channel.+    contactChannelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ChannelTargetInfo' with all optional fields 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:+--+-- 'retryIntervalInMinutes', 'channelTargetInfo_retryIntervalInMinutes' - The number of minutes to wait to retry sending engagement in the case+-- the engagement initially fails.+--+-- 'contactChannelId', 'channelTargetInfo_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel.+newChannelTargetInfo ::+  -- | 'contactChannelId'+  Prelude.Text ->+  ChannelTargetInfo+newChannelTargetInfo pContactChannelId_ =+  ChannelTargetInfo'+    { retryIntervalInMinutes =+        Prelude.Nothing,+      contactChannelId = pContactChannelId_+    }++-- | The number of minutes to wait to retry sending engagement in the case+-- the engagement initially fails.+channelTargetInfo_retryIntervalInMinutes :: Lens.Lens' ChannelTargetInfo (Prelude.Maybe Prelude.Natural)+channelTargetInfo_retryIntervalInMinutes = Lens.lens (\ChannelTargetInfo' {retryIntervalInMinutes} -> retryIntervalInMinutes) (\s@ChannelTargetInfo' {} a -> s {retryIntervalInMinutes = a} :: ChannelTargetInfo)++-- | The Amazon Resource Name (ARN) of the contact channel.+channelTargetInfo_contactChannelId :: Lens.Lens' ChannelTargetInfo Prelude.Text+channelTargetInfo_contactChannelId = Lens.lens (\ChannelTargetInfo' {contactChannelId} -> contactChannelId) (\s@ChannelTargetInfo' {} a -> s {contactChannelId = a} :: ChannelTargetInfo)++instance Data.FromJSON ChannelTargetInfo where+  parseJSON =+    Data.withObject+      "ChannelTargetInfo"+      ( \x ->+          ChannelTargetInfo'+            Prelude.<$> (x Data..:? "RetryIntervalInMinutes")+            Prelude.<*> (x Data..: "ContactChannelId")+      )++instance Prelude.Hashable ChannelTargetInfo where+  hashWithSalt _salt ChannelTargetInfo' {..} =+    _salt+      `Prelude.hashWithSalt` retryIntervalInMinutes+      `Prelude.hashWithSalt` contactChannelId++instance Prelude.NFData ChannelTargetInfo where+  rnf ChannelTargetInfo' {..} =+    Prelude.rnf retryIntervalInMinutes+      `Prelude.seq` Prelude.rnf contactChannelId++instance Data.ToJSON ChannelTargetInfo where+  toJSON ChannelTargetInfo' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("RetryIntervalInMinutes" Data..=)+              Prelude.<$> retryIntervalInMinutes,+            Prelude.Just+              ("ContactChannelId" Data..= contactChannelId)+          ]+      )
+ gen/Amazonka/SSMContacts/Types/ChannelType.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.SSMContacts.Types.ChannelType+-- 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.SSMContacts.Types.ChannelType+  ( ChannelType+      ( ..,+        ChannelType_EMAIL,+        ChannelType_SMS,+        ChannelType_VOICE+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ChannelType = ChannelType'+  { fromChannelType ::+      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 ChannelType_EMAIL :: ChannelType+pattern ChannelType_EMAIL = ChannelType' "EMAIL"++pattern ChannelType_SMS :: ChannelType+pattern ChannelType_SMS = ChannelType' "SMS"++pattern ChannelType_VOICE :: ChannelType+pattern ChannelType_VOICE = ChannelType' "VOICE"++{-# COMPLETE+  ChannelType_EMAIL,+  ChannelType_SMS,+  ChannelType_VOICE,+  ChannelType'+  #-}
+ gen/Amazonka/SSMContacts/Types/Contact.hs view
@@ -0,0 +1,119 @@+{-# 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.SSMContacts.Types.Contact+-- 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.SSMContacts.Types.Contact where++import qualified 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.SSMContacts.Types.ContactType++-- | A personal contact or escalation plan that Incident Manager engages+-- during an incident.+--+-- /See:/ 'newContact' smart constructor.+data Contact = Contact'+  { -- | The full name of the contact or escalation plan.+    displayName :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    contactArn :: Prelude.Text,+    -- | The unique and identifiable alias of the contact or escalation plan.+    alias :: Prelude.Text,+    -- | Refers to the type of contact. A single contact is type @PERSONAL@ and+    -- an escalation plan is type @ESCALATION@.+    type' :: ContactType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Contact' with all optional fields 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:+--+-- 'displayName', 'contact_displayName' - The full name of the contact or escalation plan.+--+-- 'contactArn', 'contact_contactArn' - The Amazon Resource Name (ARN) of the contact or escalation plan.+--+-- 'alias', 'contact_alias' - The unique and identifiable alias of the contact or escalation plan.+--+-- 'type'', 'contact_type' - Refers to the type of contact. A single contact is type @PERSONAL@ and+-- an escalation plan is type @ESCALATION@.+newContact ::+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'alias'+  Prelude.Text ->+  -- | 'type''+  ContactType ->+  Contact+newContact pContactArn_ pAlias_ pType_ =+  Contact'+    { displayName = Prelude.Nothing,+      contactArn = pContactArn_,+      alias = pAlias_,+      type' = pType_+    }++-- | The full name of the contact or escalation plan.+contact_displayName :: Lens.Lens' Contact (Prelude.Maybe Prelude.Text)+contact_displayName = Lens.lens (\Contact' {displayName} -> displayName) (\s@Contact' {} a -> s {displayName = a} :: Contact)++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+contact_contactArn :: Lens.Lens' Contact Prelude.Text+contact_contactArn = Lens.lens (\Contact' {contactArn} -> contactArn) (\s@Contact' {} a -> s {contactArn = a} :: Contact)++-- | The unique and identifiable alias of the contact or escalation plan.+contact_alias :: Lens.Lens' Contact Prelude.Text+contact_alias = Lens.lens (\Contact' {alias} -> alias) (\s@Contact' {} a -> s {alias = a} :: Contact)++-- | Refers to the type of contact. A single contact is type @PERSONAL@ and+-- an escalation plan is type @ESCALATION@.+contact_type :: Lens.Lens' Contact ContactType+contact_type = Lens.lens (\Contact' {type'} -> type') (\s@Contact' {} a -> s {type' = a} :: Contact)++instance Data.FromJSON Contact where+  parseJSON =+    Data.withObject+      "Contact"+      ( \x ->+          Contact'+            Prelude.<$> (x Data..:? "DisplayName")+            Prelude.<*> (x Data..: "ContactArn")+            Prelude.<*> (x Data..: "Alias")+            Prelude.<*> (x Data..: "Type")+      )++instance Prelude.Hashable Contact where+  hashWithSalt _salt Contact' {..} =+    _salt+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` contactArn+      `Prelude.hashWithSalt` alias+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Contact where+  rnf Contact' {..} =+    Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf alias+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/SSMContacts/Types/ContactChannel.hs view
@@ -0,0 +1,180 @@+{-# 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.SSMContacts.Types.ContactChannel+-- 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.SSMContacts.Types.ContactChannel where++import qualified 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.SSMContacts.Types.ActivationStatus+import Amazonka.SSMContacts.Types.ChannelType+import Amazonka.SSMContacts.Types.ContactChannelAddress++-- | The method that Incident Manager uses to engage a contact.+--+-- /See:/ 'newContactChannel' smart constructor.+data ContactChannel = ContactChannel'+  { -- | The type of the contact channel. Incident Manager supports three contact+    -- methods:+    --+    -- -   SMS+    --+    -- -   VOICE+    --+    -- -   EMAIL+    type' :: Prelude.Maybe ChannelType,+    -- | The Amazon Resource Name (ARN) of the contact channel.+    contactChannelArn :: Prelude.Text,+    -- | The ARN of the contact that contains the contact channel.+    contactArn :: Prelude.Text,+    -- | The name of the contact channel.+    name :: Prelude.Text,+    -- | The details that Incident Manager uses when trying to engage the contact+    -- channel.+    deliveryAddress :: ContactChannelAddress,+    -- | A Boolean value describing if the contact channel has been activated or+    -- not. If the contact channel isn\'t activated, Incident Manager can\'t+    -- engage the contact through it.+    activationStatus :: ActivationStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ContactChannel' with all optional fields 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'', 'contactChannel_type' - The type of the contact channel. Incident Manager supports three contact+-- methods:+--+-- -   SMS+--+-- -   VOICE+--+-- -   EMAIL+--+-- 'contactChannelArn', 'contactChannel_contactChannelArn' - The Amazon Resource Name (ARN) of the contact channel.+--+-- 'contactArn', 'contactChannel_contactArn' - The ARN of the contact that contains the contact channel.+--+-- 'name', 'contactChannel_name' - The name of the contact channel.+--+-- 'deliveryAddress', 'contactChannel_deliveryAddress' - The details that Incident Manager uses when trying to engage the contact+-- channel.+--+-- 'activationStatus', 'contactChannel_activationStatus' - A Boolean value describing if the contact channel has been activated or+-- not. If the contact channel isn\'t activated, Incident Manager can\'t+-- engage the contact through it.+newContactChannel ::+  -- | 'contactChannelArn'+  Prelude.Text ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'deliveryAddress'+  ContactChannelAddress ->+  -- | 'activationStatus'+  ActivationStatus ->+  ContactChannel+newContactChannel+  pContactChannelArn_+  pContactArn_+  pName_+  pDeliveryAddress_+  pActivationStatus_ =+    ContactChannel'+      { type' = Prelude.Nothing,+        contactChannelArn = pContactChannelArn_,+        contactArn = pContactArn_,+        name = pName_,+        deliveryAddress = pDeliveryAddress_,+        activationStatus = pActivationStatus_+      }++-- | The type of the contact channel. Incident Manager supports three contact+-- methods:+--+-- -   SMS+--+-- -   VOICE+--+-- -   EMAIL+contactChannel_type :: Lens.Lens' ContactChannel (Prelude.Maybe ChannelType)+contactChannel_type = Lens.lens (\ContactChannel' {type'} -> type') (\s@ContactChannel' {} a -> s {type' = a} :: ContactChannel)++-- | The Amazon Resource Name (ARN) of the contact channel.+contactChannel_contactChannelArn :: Lens.Lens' ContactChannel Prelude.Text+contactChannel_contactChannelArn = Lens.lens (\ContactChannel' {contactChannelArn} -> contactChannelArn) (\s@ContactChannel' {} a -> s {contactChannelArn = a} :: ContactChannel)++-- | The ARN of the contact that contains the contact channel.+contactChannel_contactArn :: Lens.Lens' ContactChannel Prelude.Text+contactChannel_contactArn = Lens.lens (\ContactChannel' {contactArn} -> contactArn) (\s@ContactChannel' {} a -> s {contactArn = a} :: ContactChannel)++-- | The name of the contact channel.+contactChannel_name :: Lens.Lens' ContactChannel Prelude.Text+contactChannel_name = Lens.lens (\ContactChannel' {name} -> name) (\s@ContactChannel' {} a -> s {name = a} :: ContactChannel)++-- | The details that Incident Manager uses when trying to engage the contact+-- channel.+contactChannel_deliveryAddress :: Lens.Lens' ContactChannel ContactChannelAddress+contactChannel_deliveryAddress = Lens.lens (\ContactChannel' {deliveryAddress} -> deliveryAddress) (\s@ContactChannel' {} a -> s {deliveryAddress = a} :: ContactChannel)++-- | A Boolean value describing if the contact channel has been activated or+-- not. If the contact channel isn\'t activated, Incident Manager can\'t+-- engage the contact through it.+contactChannel_activationStatus :: Lens.Lens' ContactChannel ActivationStatus+contactChannel_activationStatus = Lens.lens (\ContactChannel' {activationStatus} -> activationStatus) (\s@ContactChannel' {} a -> s {activationStatus = a} :: ContactChannel)++instance Data.FromJSON ContactChannel where+  parseJSON =+    Data.withObject+      "ContactChannel"+      ( \x ->+          ContactChannel'+            Prelude.<$> (x Data..:? "Type")+            Prelude.<*> (x Data..: "ContactChannelArn")+            Prelude.<*> (x Data..: "ContactArn")+            Prelude.<*> (x Data..: "Name")+            Prelude.<*> (x Data..: "DeliveryAddress")+            Prelude.<*> (x Data..: "ActivationStatus")+      )++instance Prelude.Hashable ContactChannel where+  hashWithSalt _salt ContactChannel' {..} =+    _salt+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` contactChannelArn+      `Prelude.hashWithSalt` contactArn+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` deliveryAddress+      `Prelude.hashWithSalt` activationStatus++instance Prelude.NFData ContactChannel where+  rnf ContactChannel' {..} =+    Prelude.rnf type'+      `Prelude.seq` Prelude.rnf contactChannelArn+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf deliveryAddress+      `Prelude.seq` Prelude.rnf activationStatus
+ gen/Amazonka/SSMContacts/Types/ContactChannelAddress.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.Types.ContactChannelAddress+-- 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.SSMContacts.Types.ContactChannelAddress where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The details that Incident Manager uses when trying to engage the contact+-- channel.+--+-- /See:/ 'newContactChannelAddress' smart constructor.+data ContactChannelAddress = ContactChannelAddress'+  { -- | The format is dependent on the type of the contact channel. The+    -- following are the expected formats:+    --+    -- -   SMS - \'+\' followed by the country code and phone number+    --+    -- -   VOICE - \'+\' followed by the country code and phone number+    --+    -- -   EMAIL - any standard email format+    simpleAddress :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ContactChannelAddress' with all optional fields 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:+--+-- 'simpleAddress', 'contactChannelAddress_simpleAddress' - The format is dependent on the type of the contact channel. The+-- following are the expected formats:+--+-- -   SMS - \'+\' followed by the country code and phone number+--+-- -   VOICE - \'+\' followed by the country code and phone number+--+-- -   EMAIL - any standard email format+newContactChannelAddress ::+  ContactChannelAddress+newContactChannelAddress =+  ContactChannelAddress'+    { simpleAddress =+        Prelude.Nothing+    }++-- | The format is dependent on the type of the contact channel. The+-- following are the expected formats:+--+-- -   SMS - \'+\' followed by the country code and phone number+--+-- -   VOICE - \'+\' followed by the country code and phone number+--+-- -   EMAIL - any standard email format+contactChannelAddress_simpleAddress :: Lens.Lens' ContactChannelAddress (Prelude.Maybe Prelude.Text)+contactChannelAddress_simpleAddress = Lens.lens (\ContactChannelAddress' {simpleAddress} -> simpleAddress) (\s@ContactChannelAddress' {} a -> s {simpleAddress = a} :: ContactChannelAddress)++instance Data.FromJSON ContactChannelAddress where+  parseJSON =+    Data.withObject+      "ContactChannelAddress"+      ( \x ->+          ContactChannelAddress'+            Prelude.<$> (x Data..:? "SimpleAddress")+      )++instance Prelude.Hashable ContactChannelAddress where+  hashWithSalt _salt ContactChannelAddress' {..} =+    _salt `Prelude.hashWithSalt` simpleAddress++instance Prelude.NFData ContactChannelAddress where+  rnf ContactChannelAddress' {..} =+    Prelude.rnf simpleAddress++instance Data.ToJSON ContactChannelAddress where+  toJSON ContactChannelAddress' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("SimpleAddress" Data..=)+              Prelude.<$> simpleAddress+          ]+      )
+ gen/Amazonka/SSMContacts/Types/ContactTargetInfo.hs view
@@ -0,0 +1,98 @@+{-# 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.SSMContacts.Types.ContactTargetInfo+-- 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.SSMContacts.Types.ContactTargetInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The contact that Incident Manager is engaging during an incident.+--+-- /See:/ 'newContactTargetInfo' smart constructor.+data ContactTargetInfo = ContactTargetInfo'+  { -- | The Amazon Resource Name (ARN) of the contact.+    contactId :: Prelude.Maybe Prelude.Text,+    -- | A Boolean value determining if the contact\'s acknowledgement stops the+    -- progress of stages in the plan.+    isEssential :: Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ContactTargetInfo' with all optional fields 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:+--+-- 'contactId', 'contactTargetInfo_contactId' - The Amazon Resource Name (ARN) of the contact.+--+-- 'isEssential', 'contactTargetInfo_isEssential' - A Boolean value determining if the contact\'s acknowledgement stops the+-- progress of stages in the plan.+newContactTargetInfo ::+  -- | 'isEssential'+  Prelude.Bool ->+  ContactTargetInfo+newContactTargetInfo pIsEssential_ =+  ContactTargetInfo'+    { contactId = Prelude.Nothing,+      isEssential = pIsEssential_+    }++-- | The Amazon Resource Name (ARN) of the contact.+contactTargetInfo_contactId :: Lens.Lens' ContactTargetInfo (Prelude.Maybe Prelude.Text)+contactTargetInfo_contactId = Lens.lens (\ContactTargetInfo' {contactId} -> contactId) (\s@ContactTargetInfo' {} a -> s {contactId = a} :: ContactTargetInfo)++-- | A Boolean value determining if the contact\'s acknowledgement stops the+-- progress of stages in the plan.+contactTargetInfo_isEssential :: Lens.Lens' ContactTargetInfo Prelude.Bool+contactTargetInfo_isEssential = Lens.lens (\ContactTargetInfo' {isEssential} -> isEssential) (\s@ContactTargetInfo' {} a -> s {isEssential = a} :: ContactTargetInfo)++instance Data.FromJSON ContactTargetInfo where+  parseJSON =+    Data.withObject+      "ContactTargetInfo"+      ( \x ->+          ContactTargetInfo'+            Prelude.<$> (x Data..:? "ContactId")+            Prelude.<*> (x Data..: "IsEssential")+      )++instance Prelude.Hashable ContactTargetInfo where+  hashWithSalt _salt ContactTargetInfo' {..} =+    _salt+      `Prelude.hashWithSalt` contactId+      `Prelude.hashWithSalt` isEssential++instance Prelude.NFData ContactTargetInfo where+  rnf ContactTargetInfo' {..} =+    Prelude.rnf contactId+      `Prelude.seq` Prelude.rnf isEssential++instance Data.ToJSON ContactTargetInfo where+  toJSON ContactTargetInfo' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ContactId" Data..=) Prelude.<$> contactId,+            Prelude.Just ("IsEssential" Data..= isEssential)+          ]+      )
+ gen/Amazonka/SSMContacts/Types/ContactType.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.SSMContacts.Types.ContactType+-- 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.SSMContacts.Types.ContactType+  ( ContactType+      ( ..,+        ContactType_ESCALATION,+        ContactType_PERSONAL+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ContactType = ContactType'+  { fromContactType ::+      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 ContactType_ESCALATION :: ContactType+pattern ContactType_ESCALATION = ContactType' "ESCALATION"++pattern ContactType_PERSONAL :: ContactType+pattern ContactType_PERSONAL = ContactType' "PERSONAL"++{-# COMPLETE+  ContactType_ESCALATION,+  ContactType_PERSONAL,+  ContactType'+  #-}
+ gen/Amazonka/SSMContacts/Types/Engagement.hs view
@@ -0,0 +1,142 @@+{-# 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.SSMContacts.Types.Engagement+-- 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.SSMContacts.Types.Engagement where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Incident Manager reaching out to a contact or escalation plan to engage+-- contact during an incident.+--+-- /See:/ 'newEngagement' smart constructor.+data Engagement = Engagement'+  { -- | The ARN of the incident that\'s engaging the contact.+    incidentId :: Prelude.Maybe Prelude.Text,+    -- | The time that the engagement began.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The time that the engagement ended.+    stopTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the engagement.+    engagementArn :: Prelude.Text,+    -- | The ARN of the escalation plan or contact that Incident Manager is+    -- engaging.+    contactArn :: Prelude.Text,+    -- | The user that started the engagement.+    sender :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Engagement' with all optional fields 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:+--+-- 'incidentId', 'engagement_incidentId' - The ARN of the incident that\'s engaging the contact.+--+-- 'startTime', 'engagement_startTime' - The time that the engagement began.+--+-- 'stopTime', 'engagement_stopTime' - The time that the engagement ended.+--+-- 'engagementArn', 'engagement_engagementArn' - The Amazon Resource Name (ARN) of the engagement.+--+-- 'contactArn', 'engagement_contactArn' - The ARN of the escalation plan or contact that Incident Manager is+-- engaging.+--+-- 'sender', 'engagement_sender' - The user that started the engagement.+newEngagement ::+  -- | 'engagementArn'+  Prelude.Text ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'sender'+  Prelude.Text ->+  Engagement+newEngagement pEngagementArn_ pContactArn_ pSender_ =+  Engagement'+    { incidentId = Prelude.Nothing,+      startTime = Prelude.Nothing,+      stopTime = Prelude.Nothing,+      engagementArn = pEngagementArn_,+      contactArn = pContactArn_,+      sender = pSender_+    }++-- | The ARN of the incident that\'s engaging the contact.+engagement_incidentId :: Lens.Lens' Engagement (Prelude.Maybe Prelude.Text)+engagement_incidentId = Lens.lens (\Engagement' {incidentId} -> incidentId) (\s@Engagement' {} a -> s {incidentId = a} :: Engagement)++-- | The time that the engagement began.+engagement_startTime :: Lens.Lens' Engagement (Prelude.Maybe Prelude.UTCTime)+engagement_startTime = Lens.lens (\Engagement' {startTime} -> startTime) (\s@Engagement' {} a -> s {startTime = a} :: Engagement) Prelude.. Lens.mapping Data._Time++-- | The time that the engagement ended.+engagement_stopTime :: Lens.Lens' Engagement (Prelude.Maybe Prelude.UTCTime)+engagement_stopTime = Lens.lens (\Engagement' {stopTime} -> stopTime) (\s@Engagement' {} a -> s {stopTime = a} :: Engagement) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the engagement.+engagement_engagementArn :: Lens.Lens' Engagement Prelude.Text+engagement_engagementArn = Lens.lens (\Engagement' {engagementArn} -> engagementArn) (\s@Engagement' {} a -> s {engagementArn = a} :: Engagement)++-- | The ARN of the escalation plan or contact that Incident Manager is+-- engaging.+engagement_contactArn :: Lens.Lens' Engagement Prelude.Text+engagement_contactArn = Lens.lens (\Engagement' {contactArn} -> contactArn) (\s@Engagement' {} a -> s {contactArn = a} :: Engagement)++-- | The user that started the engagement.+engagement_sender :: Lens.Lens' Engagement Prelude.Text+engagement_sender = Lens.lens (\Engagement' {sender} -> sender) (\s@Engagement' {} a -> s {sender = a} :: Engagement)++instance Data.FromJSON Engagement where+  parseJSON =+    Data.withObject+      "Engagement"+      ( \x ->+          Engagement'+            Prelude.<$> (x Data..:? "IncidentId")+            Prelude.<*> (x Data..:? "StartTime")+            Prelude.<*> (x Data..:? "StopTime")+            Prelude.<*> (x Data..: "EngagementArn")+            Prelude.<*> (x Data..: "ContactArn")+            Prelude.<*> (x Data..: "Sender")+      )++instance Prelude.Hashable Engagement where+  hashWithSalt _salt Engagement' {..} =+    _salt+      `Prelude.hashWithSalt` incidentId+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` stopTime+      `Prelude.hashWithSalt` engagementArn+      `Prelude.hashWithSalt` contactArn+      `Prelude.hashWithSalt` sender++instance Prelude.NFData Engagement where+  rnf Engagement' {..} =+    Prelude.rnf incidentId+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf stopTime+      `Prelude.seq` Prelude.rnf engagementArn+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf sender
+ gen/Amazonka/SSMContacts/Types/Page.hs view
@@ -0,0 +1,168 @@+{-# 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.SSMContacts.Types.Page+-- 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.SSMContacts.Types.Page where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Incident Manager engaging a contact\'s contact channel.+--+-- /See:/ 'newPage' smart constructor.+data Page = Page'+  { -- | The time the message was delivered to the contact channel.+    deliveryTime :: Prelude.Maybe Data.POSIX,+    -- | The ARN of the incident that\'s engaging the contact channel.+    incidentId :: Prelude.Maybe Prelude.Text,+    -- | The time that the contact channel acknowledged engagement.+    readTime :: Prelude.Maybe Data.POSIX,+    -- | The time that Incident Manager engaged the contact channel.+    sentTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the page to the contact channel.+    pageArn :: Prelude.Text,+    -- | The ARN of the engagement that this page is part of.+    engagementArn :: Prelude.Text,+    -- | The ARN of the contact that Incident Manager is engaging.+    contactArn :: Prelude.Text,+    -- | The user that started the engagement.+    sender :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Page' with all optional fields 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:+--+-- 'deliveryTime', 'page_deliveryTime' - The time the message was delivered to the contact channel.+--+-- 'incidentId', 'page_incidentId' - The ARN of the incident that\'s engaging the contact channel.+--+-- 'readTime', 'page_readTime' - The time that the contact channel acknowledged engagement.+--+-- 'sentTime', 'page_sentTime' - The time that Incident Manager engaged the contact channel.+--+-- 'pageArn', 'page_pageArn' - The Amazon Resource Name (ARN) of the page to the contact channel.+--+-- 'engagementArn', 'page_engagementArn' - The ARN of the engagement that this page is part of.+--+-- 'contactArn', 'page_contactArn' - The ARN of the contact that Incident Manager is engaging.+--+-- 'sender', 'page_sender' - The user that started the engagement.+newPage ::+  -- | 'pageArn'+  Prelude.Text ->+  -- | 'engagementArn'+  Prelude.Text ->+  -- | 'contactArn'+  Prelude.Text ->+  -- | 'sender'+  Prelude.Text ->+  Page+newPage+  pPageArn_+  pEngagementArn_+  pContactArn_+  pSender_ =+    Page'+      { deliveryTime = Prelude.Nothing,+        incidentId = Prelude.Nothing,+        readTime = Prelude.Nothing,+        sentTime = Prelude.Nothing,+        pageArn = pPageArn_,+        engagementArn = pEngagementArn_,+        contactArn = pContactArn_,+        sender = pSender_+      }++-- | The time the message was delivered to the contact channel.+page_deliveryTime :: Lens.Lens' Page (Prelude.Maybe Prelude.UTCTime)+page_deliveryTime = Lens.lens (\Page' {deliveryTime} -> deliveryTime) (\s@Page' {} a -> s {deliveryTime = a} :: Page) Prelude.. Lens.mapping Data._Time++-- | The ARN of the incident that\'s engaging the contact channel.+page_incidentId :: Lens.Lens' Page (Prelude.Maybe Prelude.Text)+page_incidentId = Lens.lens (\Page' {incidentId} -> incidentId) (\s@Page' {} a -> s {incidentId = a} :: Page)++-- | The time that the contact channel acknowledged engagement.+page_readTime :: Lens.Lens' Page (Prelude.Maybe Prelude.UTCTime)+page_readTime = Lens.lens (\Page' {readTime} -> readTime) (\s@Page' {} a -> s {readTime = a} :: Page) Prelude.. Lens.mapping Data._Time++-- | The time that Incident Manager engaged the contact channel.+page_sentTime :: Lens.Lens' Page (Prelude.Maybe Prelude.UTCTime)+page_sentTime = Lens.lens (\Page' {sentTime} -> sentTime) (\s@Page' {} a -> s {sentTime = a} :: Page) Prelude.. Lens.mapping Data._Time++-- | The Amazon Resource Name (ARN) of the page to the contact channel.+page_pageArn :: Lens.Lens' Page Prelude.Text+page_pageArn = Lens.lens (\Page' {pageArn} -> pageArn) (\s@Page' {} a -> s {pageArn = a} :: Page)++-- | The ARN of the engagement that this page is part of.+page_engagementArn :: Lens.Lens' Page Prelude.Text+page_engagementArn = Lens.lens (\Page' {engagementArn} -> engagementArn) (\s@Page' {} a -> s {engagementArn = a} :: Page)++-- | The ARN of the contact that Incident Manager is engaging.+page_contactArn :: Lens.Lens' Page Prelude.Text+page_contactArn = Lens.lens (\Page' {contactArn} -> contactArn) (\s@Page' {} a -> s {contactArn = a} :: Page)++-- | The user that started the engagement.+page_sender :: Lens.Lens' Page Prelude.Text+page_sender = Lens.lens (\Page' {sender} -> sender) (\s@Page' {} a -> s {sender = a} :: Page)++instance Data.FromJSON Page where+  parseJSON =+    Data.withObject+      "Page"+      ( \x ->+          Page'+            Prelude.<$> (x Data..:? "DeliveryTime")+            Prelude.<*> (x Data..:? "IncidentId")+            Prelude.<*> (x Data..:? "ReadTime")+            Prelude.<*> (x Data..:? "SentTime")+            Prelude.<*> (x Data..: "PageArn")+            Prelude.<*> (x Data..: "EngagementArn")+            Prelude.<*> (x Data..: "ContactArn")+            Prelude.<*> (x Data..: "Sender")+      )++instance Prelude.Hashable Page where+  hashWithSalt _salt Page' {..} =+    _salt+      `Prelude.hashWithSalt` deliveryTime+      `Prelude.hashWithSalt` incidentId+      `Prelude.hashWithSalt` readTime+      `Prelude.hashWithSalt` sentTime+      `Prelude.hashWithSalt` pageArn+      `Prelude.hashWithSalt` engagementArn+      `Prelude.hashWithSalt` contactArn+      `Prelude.hashWithSalt` sender++instance Prelude.NFData Page where+  rnf Page' {..} =+    Prelude.rnf deliveryTime+      `Prelude.seq` Prelude.rnf incidentId+      `Prelude.seq` Prelude.rnf readTime+      `Prelude.seq` Prelude.rnf sentTime+      `Prelude.seq` Prelude.rnf pageArn+      `Prelude.seq` Prelude.rnf engagementArn+      `Prelude.seq` Prelude.rnf contactArn+      `Prelude.seq` Prelude.rnf sender
+ gen/Amazonka/SSMContacts/Types/Plan.hs view
@@ -0,0 +1,79 @@+{-# 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.SSMContacts.Types.Plan+-- 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.SSMContacts.Types.Plan where++import qualified 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.SSMContacts.Types.Stage++-- | The stages that an escalation plan or engagement plan engages contacts+-- and contact methods in.+--+-- /See:/ 'newPlan' smart constructor.+data Plan = Plan'+  { -- | A list of stages that the escalation plan or engagement plan uses to+    -- engage contacts and contact methods.+    stages :: [Stage]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Plan' with all optional fields 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:+--+-- 'stages', 'plan_stages' - A list of stages that the escalation plan or engagement plan uses to+-- engage contacts and contact methods.+newPlan ::+  Plan+newPlan = Plan' {stages = Prelude.mempty}++-- | A list of stages that the escalation plan or engagement plan uses to+-- engage contacts and contact methods.+plan_stages :: Lens.Lens' Plan [Stage]+plan_stages = Lens.lens (\Plan' {stages} -> stages) (\s@Plan' {} a -> s {stages = a} :: Plan) Prelude.. Lens.coerced++instance Data.FromJSON Plan where+  parseJSON =+    Data.withObject+      "Plan"+      ( \x ->+          Plan'+            Prelude.<$> (x Data..:? "Stages" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable Plan where+  hashWithSalt _salt Plan' {..} =+    _salt `Prelude.hashWithSalt` stages++instance Prelude.NFData Plan where+  rnf Plan' {..} = Prelude.rnf stages++instance Data.ToJSON Plan where+  toJSON Plan' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Stages" Data..= stages)]+      )
+ gen/Amazonka/SSMContacts/Types/Receipt.hs view
@@ -0,0 +1,116 @@+{-# 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.SSMContacts.Types.Receipt+-- 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.SSMContacts.Types.Receipt where++import qualified 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.SSMContacts.Types.ReceiptType++-- | Records events during an engagement.+--+-- /See:/ 'newReceipt' smart constructor.+data Receipt = Receipt'+  { -- | The Amazon Resource Name (ARN) of the contact channel Incident Manager+    -- engaged.+    contactChannelArn :: Prelude.Maybe Prelude.Text,+    -- | Information provided during the page acknowledgement.+    receiptInfo :: Prelude.Maybe Prelude.Text,+    -- | The type follows the engagement cycle, @SENT@, @DELIVERED@, and @READ@.+    receiptType :: ReceiptType,+    -- | The time receipt was @SENT@, @DELIVERED@, or @READ@.+    receiptTime :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Receipt' with all optional fields 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:+--+-- 'contactChannelArn', 'receipt_contactChannelArn' - The Amazon Resource Name (ARN) of the contact channel Incident Manager+-- engaged.+--+-- 'receiptInfo', 'receipt_receiptInfo' - Information provided during the page acknowledgement.+--+-- 'receiptType', 'receipt_receiptType' - The type follows the engagement cycle, @SENT@, @DELIVERED@, and @READ@.+--+-- 'receiptTime', 'receipt_receiptTime' - The time receipt was @SENT@, @DELIVERED@, or @READ@.+newReceipt ::+  -- | 'receiptType'+  ReceiptType ->+  -- | 'receiptTime'+  Prelude.UTCTime ->+  Receipt+newReceipt pReceiptType_ pReceiptTime_ =+  Receipt'+    { contactChannelArn = Prelude.Nothing,+      receiptInfo = Prelude.Nothing,+      receiptType = pReceiptType_,+      receiptTime = Data._Time Lens.# pReceiptTime_+    }++-- | The Amazon Resource Name (ARN) of the contact channel Incident Manager+-- engaged.+receipt_contactChannelArn :: Lens.Lens' Receipt (Prelude.Maybe Prelude.Text)+receipt_contactChannelArn = Lens.lens (\Receipt' {contactChannelArn} -> contactChannelArn) (\s@Receipt' {} a -> s {contactChannelArn = a} :: Receipt)++-- | Information provided during the page acknowledgement.+receipt_receiptInfo :: Lens.Lens' Receipt (Prelude.Maybe Prelude.Text)+receipt_receiptInfo = Lens.lens (\Receipt' {receiptInfo} -> receiptInfo) (\s@Receipt' {} a -> s {receiptInfo = a} :: Receipt)++-- | The type follows the engagement cycle, @SENT@, @DELIVERED@, and @READ@.+receipt_receiptType :: Lens.Lens' Receipt ReceiptType+receipt_receiptType = Lens.lens (\Receipt' {receiptType} -> receiptType) (\s@Receipt' {} a -> s {receiptType = a} :: Receipt)++-- | The time receipt was @SENT@, @DELIVERED@, or @READ@.+receipt_receiptTime :: Lens.Lens' Receipt Prelude.UTCTime+receipt_receiptTime = Lens.lens (\Receipt' {receiptTime} -> receiptTime) (\s@Receipt' {} a -> s {receiptTime = a} :: Receipt) Prelude.. Data._Time++instance Data.FromJSON Receipt where+  parseJSON =+    Data.withObject+      "Receipt"+      ( \x ->+          Receipt'+            Prelude.<$> (x Data..:? "ContactChannelArn")+            Prelude.<*> (x Data..:? "ReceiptInfo")+            Prelude.<*> (x Data..: "ReceiptType")+            Prelude.<*> (x Data..: "ReceiptTime")+      )++instance Prelude.Hashable Receipt where+  hashWithSalt _salt Receipt' {..} =+    _salt+      `Prelude.hashWithSalt` contactChannelArn+      `Prelude.hashWithSalt` receiptInfo+      `Prelude.hashWithSalt` receiptType+      `Prelude.hashWithSalt` receiptTime++instance Prelude.NFData Receipt where+  rnf Receipt' {..} =+    Prelude.rnf contactChannelArn+      `Prelude.seq` Prelude.rnf receiptInfo+      `Prelude.seq` Prelude.rnf receiptType+      `Prelude.seq` Prelude.rnf receiptTime
+ gen/Amazonka/SSMContacts/Types/ReceiptType.hs view
@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.Types.ReceiptType+-- 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.SSMContacts.Types.ReceiptType+  ( ReceiptType+      ( ..,+        ReceiptType_DELIVERED,+        ReceiptType_ERROR,+        ReceiptType_READ,+        ReceiptType_SENT,+        ReceiptType_STOP+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ReceiptType = ReceiptType'+  { fromReceiptType ::+      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 ReceiptType_DELIVERED :: ReceiptType+pattern ReceiptType_DELIVERED = ReceiptType' "DELIVERED"++pattern ReceiptType_ERROR :: ReceiptType+pattern ReceiptType_ERROR = ReceiptType' "ERROR"++pattern ReceiptType_READ :: ReceiptType+pattern ReceiptType_READ = ReceiptType' "READ"++pattern ReceiptType_SENT :: ReceiptType+pattern ReceiptType_SENT = ReceiptType' "SENT"++pattern ReceiptType_STOP :: ReceiptType+pattern ReceiptType_STOP = ReceiptType' "STOP"++{-# COMPLETE+  ReceiptType_DELIVERED,+  ReceiptType_ERROR,+  ReceiptType_READ,+  ReceiptType_SENT,+  ReceiptType_STOP,+  ReceiptType'+  #-}
+ gen/Amazonka/SSMContacts/Types/Stage.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.Types.Stage+-- 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.SSMContacts.Types.Stage where++import qualified 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.SSMContacts.Types.Target++-- | A set amount of time that an escalation plan or engagement plan engages+-- the specified contacts or contact methods.+--+-- /See:/ 'newStage' smart constructor.+data Stage = Stage'+  { -- | The time to wait until beginning the next stage. The duration can only+    -- be set to 0 if a target is specified.+    durationInMinutes :: Prelude.Natural,+    -- | The contacts or contact methods that the escalation plan or engagement+    -- plan is engaging.+    targets :: [Target]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Stage' with all optional fields 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:+--+-- 'durationInMinutes', 'stage_durationInMinutes' - The time to wait until beginning the next stage. The duration can only+-- be set to 0 if a target is specified.+--+-- 'targets', 'stage_targets' - The contacts or contact methods that the escalation plan or engagement+-- plan is engaging.+newStage ::+  -- | 'durationInMinutes'+  Prelude.Natural ->+  Stage+newStage pDurationInMinutes_ =+  Stage'+    { durationInMinutes = pDurationInMinutes_,+      targets = Prelude.mempty+    }++-- | The time to wait until beginning the next stage. The duration can only+-- be set to 0 if a target is specified.+stage_durationInMinutes :: Lens.Lens' Stage Prelude.Natural+stage_durationInMinutes = Lens.lens (\Stage' {durationInMinutes} -> durationInMinutes) (\s@Stage' {} a -> s {durationInMinutes = a} :: Stage)++-- | The contacts or contact methods that the escalation plan or engagement+-- plan is engaging.+stage_targets :: Lens.Lens' Stage [Target]+stage_targets = Lens.lens (\Stage' {targets} -> targets) (\s@Stage' {} a -> s {targets = a} :: Stage) Prelude.. Lens.coerced++instance Data.FromJSON Stage where+  parseJSON =+    Data.withObject+      "Stage"+      ( \x ->+          Stage'+            Prelude.<$> (x Data..: "DurationInMinutes")+            Prelude.<*> (x Data..:? "Targets" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable Stage where+  hashWithSalt _salt Stage' {..} =+    _salt+      `Prelude.hashWithSalt` durationInMinutes+      `Prelude.hashWithSalt` targets++instance Prelude.NFData Stage where+  rnf Stage' {..} =+    Prelude.rnf durationInMinutes+      `Prelude.seq` Prelude.rnf targets++instance Data.ToJSON Stage where+  toJSON Stage' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("DurationInMinutes" Data..= durationInMinutes),+            Prelude.Just ("Targets" Data..= targets)+          ]+      )
+ gen/Amazonka/SSMContacts/Types/Tag.hs view
@@ -0,0 +1,92 @@+{-# 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.SSMContacts.Types.Tag+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.SSMContacts.Types.Tag where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A container of a key-value name pair.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | Name of the object key.+    key :: Prelude.Maybe Prelude.Text,+    -- | Value of the tag.+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'tag_key' - Name of the object key.+--+-- 'value', 'tag_value' - Value of the tag.+newTag ::+  Tag+newTag =+  Tag'+    { key = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | Name of the object key.+tag_key :: Lens.Lens' Tag (Prelude.Maybe Prelude.Text)+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | Value of the tag.+tag_value :: Lens.Lens' Tag (Prelude.Maybe Prelude.Text)+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..:? "Key")+            Prelude.<*> (x Data..:? "Value")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Key" Data..=) Prelude.<$> key,+            ("Value" Data..=) Prelude.<$> value+          ]+      )
+ gen/Amazonka/SSMContacts/Types/Target.hs view
@@ -0,0 +1,97 @@+{-# 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.SSMContacts.Types.Target+-- 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.SSMContacts.Types.Target where++import qualified 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.SSMContacts.Types.ChannelTargetInfo+import Amazonka.SSMContacts.Types.ContactTargetInfo++-- | The contact or contact channel that\'s being engaged.+--+-- /See:/ 'newTarget' smart constructor.+data Target = Target'+  { -- | Information about the contact channel Incident Manager is engaging.+    channelTargetInfo :: Prelude.Maybe ChannelTargetInfo,+    -- | Information about the contact that Incident Manager is engaging.+    contactTargetInfo :: Prelude.Maybe ContactTargetInfo+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Target' with all optional fields 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:+--+-- 'channelTargetInfo', 'target_channelTargetInfo' - Information about the contact channel Incident Manager is engaging.+--+-- 'contactTargetInfo', 'target_contactTargetInfo' - Information about the contact that Incident Manager is engaging.+newTarget ::+  Target+newTarget =+  Target'+    { channelTargetInfo = Prelude.Nothing,+      contactTargetInfo = Prelude.Nothing+    }++-- | Information about the contact channel Incident Manager is engaging.+target_channelTargetInfo :: Lens.Lens' Target (Prelude.Maybe ChannelTargetInfo)+target_channelTargetInfo = Lens.lens (\Target' {channelTargetInfo} -> channelTargetInfo) (\s@Target' {} a -> s {channelTargetInfo = a} :: Target)++-- | Information about the contact that Incident Manager is engaging.+target_contactTargetInfo :: Lens.Lens' Target (Prelude.Maybe ContactTargetInfo)+target_contactTargetInfo = Lens.lens (\Target' {contactTargetInfo} -> contactTargetInfo) (\s@Target' {} a -> s {contactTargetInfo = a} :: Target)++instance Data.FromJSON Target where+  parseJSON =+    Data.withObject+      "Target"+      ( \x ->+          Target'+            Prelude.<$> (x Data..:? "ChannelTargetInfo")+            Prelude.<*> (x Data..:? "ContactTargetInfo")+      )++instance Prelude.Hashable Target where+  hashWithSalt _salt Target' {..} =+    _salt+      `Prelude.hashWithSalt` channelTargetInfo+      `Prelude.hashWithSalt` contactTargetInfo++instance Prelude.NFData Target where+  rnf Target' {..} =+    Prelude.rnf channelTargetInfo+      `Prelude.seq` Prelude.rnf contactTargetInfo++instance Data.ToJSON Target where+  toJSON Target' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ChannelTargetInfo" Data..=)+              Prelude.<$> channelTargetInfo,+            ("ContactTargetInfo" Data..=)+              Prelude.<$> contactTargetInfo+          ]+      )
+ gen/Amazonka/SSMContacts/Types/TimeRange.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.Types.TimeRange+-- 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.SSMContacts.Types.TimeRange where++import qualified 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 range of between two set times+--+-- /See:/ 'newTimeRange' smart constructor.+data TimeRange = TimeRange'+  { -- | The end of the time range.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | The start of the time range.+    startTime :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TimeRange' with all optional fields 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:+--+-- 'endTime', 'timeRange_endTime' - The end of the time range.+--+-- 'startTime', 'timeRange_startTime' - The start of the time range.+newTimeRange ::+  TimeRange+newTimeRange =+  TimeRange'+    { endTime = Prelude.Nothing,+      startTime = Prelude.Nothing+    }++-- | The end of the time range.+timeRange_endTime :: Lens.Lens' TimeRange (Prelude.Maybe Prelude.UTCTime)+timeRange_endTime = Lens.lens (\TimeRange' {endTime} -> endTime) (\s@TimeRange' {} a -> s {endTime = a} :: TimeRange) Prelude.. Lens.mapping Data._Time++-- | The start of the time range.+timeRange_startTime :: Lens.Lens' TimeRange (Prelude.Maybe Prelude.UTCTime)+timeRange_startTime = Lens.lens (\TimeRange' {startTime} -> startTime) (\s@TimeRange' {} a -> s {startTime = a} :: TimeRange) Prelude.. Lens.mapping Data._Time++instance Prelude.Hashable TimeRange where+  hashWithSalt _salt TimeRange' {..} =+    _salt+      `Prelude.hashWithSalt` endTime+      `Prelude.hashWithSalt` startTime++instance Prelude.NFData TimeRange where+  rnf TimeRange' {..} =+    Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf startTime++instance Data.ToJSON TimeRange where+  toJSON TimeRange' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("EndTime" Data..=) Prelude.<$> endTime,+            ("StartTime" Data..=) Prelude.<$> startTime+          ]+      )
+ gen/Amazonka/SSMContacts/UntagResource.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.SSMContacts.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 the specified resource.+module Amazonka.SSMContacts.UntagResource+  ( -- * Creating a Request+    UntagResource (..),+    newUntagResource,++    -- * Request Lenses+    untagResource_resourceARN,+    untagResource_tagKeys,++    -- * Destructuring the Response+    UntagResourceResponse (..),+    newUntagResourceResponse,++    -- * Response Lenses+    untagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.SSMContacts.Types++-- | /See:/ 'newUntagResource' smart constructor.+data UntagResource = UntagResource'+  { -- | The Amazon Resource Name (ARN) of the contact or escalation plan.+    resourceARN :: Prelude.Text,+    -- | The key of the tag that you want to remove.+    tagKeys :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceARN', 'untagResource_resourceARN' - The Amazon Resource Name (ARN) of the contact or escalation plan.+--+-- 'tagKeys', 'untagResource_tagKeys' - The key of the tag that you want to remove.+newUntagResource ::+  -- | 'resourceARN'+  Prelude.Text ->+  UntagResource+newUntagResource pResourceARN_ =+  UntagResource'+    { resourceARN = pResourceARN_,+      tagKeys = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the contact or escalation plan.+untagResource_resourceARN :: Lens.Lens' UntagResource Prelude.Text+untagResource_resourceARN = Lens.lens (\UntagResource' {resourceARN} -> resourceARN) (\s@UntagResource' {} a -> s {resourceARN = a} :: UntagResource)++-- | The key of the tag that you want to remove.+untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]+untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced++instance Core.AWSRequest UntagResource where+  type+    AWSResponse UntagResource =+      UntagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UntagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UntagResource where+  hashWithSalt _salt UntagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceARN+      `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData UntagResource where+  rnf UntagResource' {..} =+    Prelude.rnf resourceARN+      `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders UntagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.UntagResource" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UntagResource where+  toJSON UntagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceARN" Data..= resourceARN),+            Prelude.Just ("TagKeys" Data..= tagKeys)+          ]+      )++instance Data.ToPath UntagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery UntagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUntagResourceResponse' smart constructor.+data UntagResourceResponse = UntagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UntagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'untagResourceResponse_httpStatus' - The response's http status code.+newUntagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UntagResourceResponse+newUntagResourceResponse pHttpStatus_ =+  UntagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int+untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)++instance Prelude.NFData UntagResourceResponse where+  rnf UntagResourceResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/UpdateContact.hs view
@@ -0,0 +1,191 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.UpdateContact+-- 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 contact or escalation plan specified.+module Amazonka.SSMContacts.UpdateContact+  ( -- * Creating a Request+    UpdateContact (..),+    newUpdateContact,++    -- * Request Lenses+    updateContact_displayName,+    updateContact_plan,+    updateContact_contactId,++    -- * Destructuring the Response+    UpdateContactResponse (..),+    newUpdateContactResponse,++    -- * Response Lenses+    updateContactResponse_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.SSMContacts.Types++-- | /See:/ 'newUpdateContact' smart constructor.+data UpdateContact = UpdateContact'+  { -- | The full name of the contact or escalation plan.+    displayName :: Prelude.Maybe Prelude.Text,+    -- | A list of stages. A contact has an engagement plan with stages for+    -- specified contact channels. An escalation plan uses these stages to+    -- contact specified contacts.+    plan :: Prelude.Maybe Plan,+    -- | The Amazon Resource Name (ARN) of the contact or escalation plan you\'re+    -- updating.+    contactId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateContact' with all optional fields 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:+--+-- 'displayName', 'updateContact_displayName' - The full name of the contact or escalation plan.+--+-- 'plan', 'updateContact_plan' - A list of stages. A contact has an engagement plan with stages for+-- specified contact channels. An escalation plan uses these stages to+-- contact specified contacts.+--+-- 'contactId', 'updateContact_contactId' - The Amazon Resource Name (ARN) of the contact or escalation plan you\'re+-- updating.+newUpdateContact ::+  -- | 'contactId'+  Prelude.Text ->+  UpdateContact+newUpdateContact pContactId_ =+  UpdateContact'+    { displayName = Prelude.Nothing,+      plan = Prelude.Nothing,+      contactId = pContactId_+    }++-- | The full name of the contact or escalation plan.+updateContact_displayName :: Lens.Lens' UpdateContact (Prelude.Maybe Prelude.Text)+updateContact_displayName = Lens.lens (\UpdateContact' {displayName} -> displayName) (\s@UpdateContact' {} a -> s {displayName = a} :: UpdateContact)++-- | A list of stages. A contact has an engagement plan with stages for+-- specified contact channels. An escalation plan uses these stages to+-- contact specified contacts.+updateContact_plan :: Lens.Lens' UpdateContact (Prelude.Maybe Plan)+updateContact_plan = Lens.lens (\UpdateContact' {plan} -> plan) (\s@UpdateContact' {} a -> s {plan = a} :: UpdateContact)++-- | The Amazon Resource Name (ARN) of the contact or escalation plan you\'re+-- updating.+updateContact_contactId :: Lens.Lens' UpdateContact Prelude.Text+updateContact_contactId = Lens.lens (\UpdateContact' {contactId} -> contactId) (\s@UpdateContact' {} a -> s {contactId = a} :: UpdateContact)++instance Core.AWSRequest UpdateContact where+  type+    AWSResponse UpdateContact =+      UpdateContactResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateContactResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateContact where+  hashWithSalt _salt UpdateContact' {..} =+    _salt+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` plan+      `Prelude.hashWithSalt` contactId++instance Prelude.NFData UpdateContact where+  rnf UpdateContact' {..} =+    Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf plan+      `Prelude.seq` Prelude.rnf contactId++instance Data.ToHeaders UpdateContact where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ("SSMContacts.UpdateContact" :: Prelude.ByteString),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateContact where+  toJSON UpdateContact' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DisplayName" Data..=) Prelude.<$> displayName,+            ("Plan" Data..=) Prelude.<$> plan,+            Prelude.Just ("ContactId" Data..= contactId)+          ]+      )++instance Data.ToPath UpdateContact where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateContact where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateContactResponse' smart constructor.+data UpdateContactResponse = UpdateContactResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateContactResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateContactResponse_httpStatus' - The response's http status code.+newUpdateContactResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateContactResponse+newUpdateContactResponse pHttpStatus_ =+  UpdateContactResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+updateContactResponse_httpStatus :: Lens.Lens' UpdateContactResponse Prelude.Int+updateContactResponse_httpStatus = Lens.lens (\UpdateContactResponse' {httpStatus} -> httpStatus) (\s@UpdateContactResponse' {} a -> s {httpStatus = a} :: UpdateContactResponse)++instance Prelude.NFData UpdateContactResponse where+  rnf UpdateContactResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/UpdateContactChannel.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.SSMContacts.UpdateContactChannel+-- 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 contact\'s contact channel.+module Amazonka.SSMContacts.UpdateContactChannel+  ( -- * Creating a Request+    UpdateContactChannel (..),+    newUpdateContactChannel,++    -- * Request Lenses+    updateContactChannel_deliveryAddress,+    updateContactChannel_name,+    updateContactChannel_contactChannelId,++    -- * Destructuring the Response+    UpdateContactChannelResponse (..),+    newUpdateContactChannelResponse,++    -- * Response Lenses+    updateContactChannelResponse_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.SSMContacts.Types++-- | /See:/ 'newUpdateContactChannel' smart constructor.+data UpdateContactChannel = UpdateContactChannel'+  { -- | The details that Incident Manager uses when trying to engage the contact+    -- channel.+    deliveryAddress :: Prelude.Maybe ContactChannelAddress,+    -- | The name of the contact channel.+    name :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the contact channel you want to+    -- update.+    contactChannelId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateContactChannel' with all optional fields 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:+--+-- 'deliveryAddress', 'updateContactChannel_deliveryAddress' - The details that Incident Manager uses when trying to engage the contact+-- channel.+--+-- 'name', 'updateContactChannel_name' - The name of the contact channel.+--+-- 'contactChannelId', 'updateContactChannel_contactChannelId' - The Amazon Resource Name (ARN) of the contact channel you want to+-- update.+newUpdateContactChannel ::+  -- | 'contactChannelId'+  Prelude.Text ->+  UpdateContactChannel+newUpdateContactChannel pContactChannelId_ =+  UpdateContactChannel'+    { deliveryAddress =+        Prelude.Nothing,+      name = Prelude.Nothing,+      contactChannelId = pContactChannelId_+    }++-- | The details that Incident Manager uses when trying to engage the contact+-- channel.+updateContactChannel_deliveryAddress :: Lens.Lens' UpdateContactChannel (Prelude.Maybe ContactChannelAddress)+updateContactChannel_deliveryAddress = Lens.lens (\UpdateContactChannel' {deliveryAddress} -> deliveryAddress) (\s@UpdateContactChannel' {} a -> s {deliveryAddress = a} :: UpdateContactChannel)++-- | The name of the contact channel.+updateContactChannel_name :: Lens.Lens' UpdateContactChannel (Prelude.Maybe Prelude.Text)+updateContactChannel_name = Lens.lens (\UpdateContactChannel' {name} -> name) (\s@UpdateContactChannel' {} a -> s {name = a} :: UpdateContactChannel)++-- | The Amazon Resource Name (ARN) of the contact channel you want to+-- update.+updateContactChannel_contactChannelId :: Lens.Lens' UpdateContactChannel Prelude.Text+updateContactChannel_contactChannelId = Lens.lens (\UpdateContactChannel' {contactChannelId} -> contactChannelId) (\s@UpdateContactChannel' {} a -> s {contactChannelId = a} :: UpdateContactChannel)++instance Core.AWSRequest UpdateContactChannel where+  type+    AWSResponse UpdateContactChannel =+      UpdateContactChannelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateContactChannelResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateContactChannel where+  hashWithSalt _salt UpdateContactChannel' {..} =+    _salt+      `Prelude.hashWithSalt` deliveryAddress+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` contactChannelId++instance Prelude.NFData UpdateContactChannel where+  rnf UpdateContactChannel' {..} =+    Prelude.rnf deliveryAddress+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf contactChannelId++instance Data.ToHeaders UpdateContactChannel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "SSMContacts.UpdateContactChannel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateContactChannel where+  toJSON UpdateContactChannel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DeliveryAddress" Data..=)+              Prelude.<$> deliveryAddress,+            ("Name" Data..=) Prelude.<$> name,+            Prelude.Just+              ("ContactChannelId" Data..= contactChannelId)+          ]+      )++instance Data.ToPath UpdateContactChannel where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateContactChannel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateContactChannelResponse' smart constructor.+data UpdateContactChannelResponse = UpdateContactChannelResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateContactChannelResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateContactChannelResponse_httpStatus' - The response's http status code.+newUpdateContactChannelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateContactChannelResponse+newUpdateContactChannelResponse pHttpStatus_ =+  UpdateContactChannelResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+updateContactChannelResponse_httpStatus :: Lens.Lens' UpdateContactChannelResponse Prelude.Int+updateContactChannelResponse_httpStatus = Lens.lens (\UpdateContactChannelResponse' {httpStatus} -> httpStatus) (\s@UpdateContactChannelResponse' {} a -> s {httpStatus = a} :: UpdateContactChannelResponse)++instance Prelude.NFData UpdateContactChannelResponse where+  rnf UpdateContactChannelResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/SSMContacts/Waiters.hs view
@@ -0,0 +1,24 @@+{-# 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.SSMContacts.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.SSMContacts.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.SSMContacts.Lens+import Amazonka.SSMContacts.Types
+ 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.SSMContacts+import Test.Amazonka.SSMContacts.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "SSMContacts"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/Gen/SSMContacts.hs view
@@ -0,0 +1,578 @@+{-# 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.SSMContacts+-- 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.SSMContacts where++import Amazonka.SSMContacts+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Amazonka.SSMContacts.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"+--         [ requestAcceptPage $+--             newAcceptPage+--+--         , requestActivateContactChannel $+--             newActivateContactChannel+--+--         , requestCreateContact $+--             newCreateContact+--+--         , requestCreateContactChannel $+--             newCreateContactChannel+--+--         , requestDeactivateContactChannel $+--             newDeactivateContactChannel+--+--         , requestDeleteContact $+--             newDeleteContact+--+--         , requestDeleteContactChannel $+--             newDeleteContactChannel+--+--         , requestDescribeEngagement $+--             newDescribeEngagement+--+--         , requestDescribePage $+--             newDescribePage+--+--         , requestGetContact $+--             newGetContact+--+--         , requestGetContactChannel $+--             newGetContactChannel+--+--         , requestGetContactPolicy $+--             newGetContactPolicy+--+--         , requestListContactChannels $+--             newListContactChannels+--+--         , requestListContacts $+--             newListContacts+--+--         , requestListEngagements $+--             newListEngagements+--+--         , requestListPageReceipts $+--             newListPageReceipts+--+--         , requestListPagesByContact $+--             newListPagesByContact+--+--         , requestListPagesByEngagement $+--             newListPagesByEngagement+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestPutContactPolicy $+--             newPutContactPolicy+--+--         , requestSendActivationCode $+--             newSendActivationCode+--+--         , requestStartEngagement $+--             newStartEngagement+--+--         , requestStopEngagement $+--             newStopEngagement+--+--         , requestTagResource $+--             newTagResource+--+--         , requestUntagResource $+--             newUntagResource+--+--         , requestUpdateContact $+--             newUpdateContact+--+--         , requestUpdateContactChannel $+--             newUpdateContactChannel+--+--           ]++--     , testGroup "response"+--         [ responseAcceptPage $+--             newAcceptPageResponse+--+--         , responseActivateContactChannel $+--             newActivateContactChannelResponse+--+--         , responseCreateContact $+--             newCreateContactResponse+--+--         , responseCreateContactChannel $+--             newCreateContactChannelResponse+--+--         , responseDeactivateContactChannel $+--             newDeactivateContactChannelResponse+--+--         , responseDeleteContact $+--             newDeleteContactResponse+--+--         , responseDeleteContactChannel $+--             newDeleteContactChannelResponse+--+--         , responseDescribeEngagement $+--             newDescribeEngagementResponse+--+--         , responseDescribePage $+--             newDescribePageResponse+--+--         , responseGetContact $+--             newGetContactResponse+--+--         , responseGetContactChannel $+--             newGetContactChannelResponse+--+--         , responseGetContactPolicy $+--             newGetContactPolicyResponse+--+--         , responseListContactChannels $+--             newListContactChannelsResponse+--+--         , responseListContacts $+--             newListContactsResponse+--+--         , responseListEngagements $+--             newListEngagementsResponse+--+--         , responseListPageReceipts $+--             newListPageReceiptsResponse+--+--         , responseListPagesByContact $+--             newListPagesByContactResponse+--+--         , responseListPagesByEngagement $+--             newListPagesByEngagementResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responsePutContactPolicy $+--             newPutContactPolicyResponse+--+--         , responseSendActivationCode $+--             newSendActivationCodeResponse+--+--         , responseStartEngagement $+--             newStartEngagementResponse+--+--         , responseStopEngagement $+--             newStopEngagementResponse+--+--         , responseTagResource $+--             newTagResourceResponse+--+--         , responseUntagResource $+--             newUntagResourceResponse+--+--         , responseUpdateContact $+--             newUpdateContactResponse+--+--         , responseUpdateContactChannel $+--             newUpdateContactChannelResponse+--+--           ]+--     ]++-- Requests++requestAcceptPage :: AcceptPage -> TestTree+requestAcceptPage =+  req+    "AcceptPage"+    "fixture/AcceptPage.yaml"++requestActivateContactChannel :: ActivateContactChannel -> TestTree+requestActivateContactChannel =+  req+    "ActivateContactChannel"+    "fixture/ActivateContactChannel.yaml"++requestCreateContact :: CreateContact -> TestTree+requestCreateContact =+  req+    "CreateContact"+    "fixture/CreateContact.yaml"++requestCreateContactChannel :: CreateContactChannel -> TestTree+requestCreateContactChannel =+  req+    "CreateContactChannel"+    "fixture/CreateContactChannel.yaml"++requestDeactivateContactChannel :: DeactivateContactChannel -> TestTree+requestDeactivateContactChannel =+  req+    "DeactivateContactChannel"+    "fixture/DeactivateContactChannel.yaml"++requestDeleteContact :: DeleteContact -> TestTree+requestDeleteContact =+  req+    "DeleteContact"+    "fixture/DeleteContact.yaml"++requestDeleteContactChannel :: DeleteContactChannel -> TestTree+requestDeleteContactChannel =+  req+    "DeleteContactChannel"+    "fixture/DeleteContactChannel.yaml"++requestDescribeEngagement :: DescribeEngagement -> TestTree+requestDescribeEngagement =+  req+    "DescribeEngagement"+    "fixture/DescribeEngagement.yaml"++requestDescribePage :: DescribePage -> TestTree+requestDescribePage =+  req+    "DescribePage"+    "fixture/DescribePage.yaml"++requestGetContact :: GetContact -> TestTree+requestGetContact =+  req+    "GetContact"+    "fixture/GetContact.yaml"++requestGetContactChannel :: GetContactChannel -> TestTree+requestGetContactChannel =+  req+    "GetContactChannel"+    "fixture/GetContactChannel.yaml"++requestGetContactPolicy :: GetContactPolicy -> TestTree+requestGetContactPolicy =+  req+    "GetContactPolicy"+    "fixture/GetContactPolicy.yaml"++requestListContactChannels :: ListContactChannels -> TestTree+requestListContactChannels =+  req+    "ListContactChannels"+    "fixture/ListContactChannels.yaml"++requestListContacts :: ListContacts -> TestTree+requestListContacts =+  req+    "ListContacts"+    "fixture/ListContacts.yaml"++requestListEngagements :: ListEngagements -> TestTree+requestListEngagements =+  req+    "ListEngagements"+    "fixture/ListEngagements.yaml"++requestListPageReceipts :: ListPageReceipts -> TestTree+requestListPageReceipts =+  req+    "ListPageReceipts"+    "fixture/ListPageReceipts.yaml"++requestListPagesByContact :: ListPagesByContact -> TestTree+requestListPagesByContact =+  req+    "ListPagesByContact"+    "fixture/ListPagesByContact.yaml"++requestListPagesByEngagement :: ListPagesByEngagement -> TestTree+requestListPagesByEngagement =+  req+    "ListPagesByEngagement"+    "fixture/ListPagesByEngagement.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestPutContactPolicy :: PutContactPolicy -> TestTree+requestPutContactPolicy =+  req+    "PutContactPolicy"+    "fixture/PutContactPolicy.yaml"++requestSendActivationCode :: SendActivationCode -> TestTree+requestSendActivationCode =+  req+    "SendActivationCode"+    "fixture/SendActivationCode.yaml"++requestStartEngagement :: StartEngagement -> TestTree+requestStartEngagement =+  req+    "StartEngagement"+    "fixture/StartEngagement.yaml"++requestStopEngagement :: StopEngagement -> TestTree+requestStopEngagement =+  req+    "StopEngagement"+    "fixture/StopEngagement.yaml"++requestTagResource :: TagResource -> TestTree+requestTagResource =+  req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource =+  req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestUpdateContact :: UpdateContact -> TestTree+requestUpdateContact =+  req+    "UpdateContact"+    "fixture/UpdateContact.yaml"++requestUpdateContactChannel :: UpdateContactChannel -> TestTree+requestUpdateContactChannel =+  req+    "UpdateContactChannel"+    "fixture/UpdateContactChannel.yaml"++-- Responses++responseAcceptPage :: AcceptPageResponse -> TestTree+responseAcceptPage =+  res+    "AcceptPageResponse"+    "fixture/AcceptPageResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy AcceptPage)++responseActivateContactChannel :: ActivateContactChannelResponse -> TestTree+responseActivateContactChannel =+  res+    "ActivateContactChannelResponse"+    "fixture/ActivateContactChannelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ActivateContactChannel)++responseCreateContact :: CreateContactResponse -> TestTree+responseCreateContact =+  res+    "CreateContactResponse"+    "fixture/CreateContactResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateContact)++responseCreateContactChannel :: CreateContactChannelResponse -> TestTree+responseCreateContactChannel =+  res+    "CreateContactChannelResponse"+    "fixture/CreateContactChannelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateContactChannel)++responseDeactivateContactChannel :: DeactivateContactChannelResponse -> TestTree+responseDeactivateContactChannel =+  res+    "DeactivateContactChannelResponse"+    "fixture/DeactivateContactChannelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeactivateContactChannel)++responseDeleteContact :: DeleteContactResponse -> TestTree+responseDeleteContact =+  res+    "DeleteContactResponse"+    "fixture/DeleteContactResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteContact)++responseDeleteContactChannel :: DeleteContactChannelResponse -> TestTree+responseDeleteContactChannel =+  res+    "DeleteContactChannelResponse"+    "fixture/DeleteContactChannelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteContactChannel)++responseDescribeEngagement :: DescribeEngagementResponse -> TestTree+responseDescribeEngagement =+  res+    "DescribeEngagementResponse"+    "fixture/DescribeEngagementResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeEngagement)++responseDescribePage :: DescribePageResponse -> TestTree+responseDescribePage =+  res+    "DescribePageResponse"+    "fixture/DescribePageResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribePage)++responseGetContact :: GetContactResponse -> TestTree+responseGetContact =+  res+    "GetContactResponse"+    "fixture/GetContactResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetContact)++responseGetContactChannel :: GetContactChannelResponse -> TestTree+responseGetContactChannel =+  res+    "GetContactChannelResponse"+    "fixture/GetContactChannelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetContactChannel)++responseGetContactPolicy :: GetContactPolicyResponse -> TestTree+responseGetContactPolicy =+  res+    "GetContactPolicyResponse"+    "fixture/GetContactPolicyResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetContactPolicy)++responseListContactChannels :: ListContactChannelsResponse -> TestTree+responseListContactChannels =+  res+    "ListContactChannelsResponse"+    "fixture/ListContactChannelsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListContactChannels)++responseListContacts :: ListContactsResponse -> TestTree+responseListContacts =+  res+    "ListContactsResponse"+    "fixture/ListContactsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListContacts)++responseListEngagements :: ListEngagementsResponse -> TestTree+responseListEngagements =+  res+    "ListEngagementsResponse"+    "fixture/ListEngagementsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListEngagements)++responseListPageReceipts :: ListPageReceiptsResponse -> TestTree+responseListPageReceipts =+  res+    "ListPageReceiptsResponse"+    "fixture/ListPageReceiptsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListPageReceipts)++responseListPagesByContact :: ListPagesByContactResponse -> TestTree+responseListPagesByContact =+  res+    "ListPagesByContactResponse"+    "fixture/ListPagesByContactResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListPagesByContact)++responseListPagesByEngagement :: ListPagesByEngagementResponse -> TestTree+responseListPagesByEngagement =+  res+    "ListPagesByEngagementResponse"+    "fixture/ListPagesByEngagementResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListPagesByEngagement)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responsePutContactPolicy :: PutContactPolicyResponse -> TestTree+responsePutContactPolicy =+  res+    "PutContactPolicyResponse"+    "fixture/PutContactPolicyResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy PutContactPolicy)++responseSendActivationCode :: SendActivationCodeResponse -> TestTree+responseSendActivationCode =+  res+    "SendActivationCodeResponse"+    "fixture/SendActivationCodeResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy SendActivationCode)++responseStartEngagement :: StartEngagementResponse -> TestTree+responseStartEngagement =+  res+    "StartEngagementResponse"+    "fixture/StartEngagementResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartEngagement)++responseStopEngagement :: StopEngagementResponse -> TestTree+responseStopEngagement =+  res+    "StopEngagementResponse"+    "fixture/StopEngagementResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StopEngagement)++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)++responseUpdateContact :: UpdateContactResponse -> TestTree+responseUpdateContact =+  res+    "UpdateContactResponse"+    "fixture/UpdateContactResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateContact)++responseUpdateContactChannel :: UpdateContactChannelResponse -> TestTree+responseUpdateContactChannel =+  res+    "UpdateContactChannelResponse"+    "fixture/UpdateContactChannelResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateContactChannel)
+ test/Test/Amazonka/SSMContacts.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.SSMContacts+-- 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.SSMContacts+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/SSMContacts/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.SSMContacts.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.SSMContacts.Internal where