packages feed

amazonka-connectparticipant (empty) → 2.0

raw patch · 50 files changed

+4804/−0 lines, 50 filesdep +amazonka-connectparticipantdep +amazonka-coredep +amazonka-test

Dependencies added: amazonka-connectparticipant, amazonka-core, 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 Connect Participant Service SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version+ +`2.0` - Derived from API version @2018-09-07@ of the AWS service descriptions, licensed under Apache 2.0.++## Description++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-connectparticipant)+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.ConnectParticipant](http://hackage.haskell.org/package/amazonka-connectparticipant/docs/Amazonka-ConnectParticipant.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-connectparticipant` 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-connectparticipant.cabal view
@@ -0,0 +1,105 @@+cabal-version:      2.2+name:               amazonka-connectparticipant+version:            2.0+synopsis:           Amazon Connect Participant Service 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 @2018-09-07@ 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.ConnectParticipant.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.ConnectParticipant" 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-connectparticipant++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.ConnectParticipant+    Amazonka.ConnectParticipant.CompleteAttachmentUpload+    Amazonka.ConnectParticipant.CreateParticipantConnection+    Amazonka.ConnectParticipant.DisconnectParticipant+    Amazonka.ConnectParticipant.GetAttachment+    Amazonka.ConnectParticipant.GetTranscript+    Amazonka.ConnectParticipant.Lens+    Amazonka.ConnectParticipant.SendEvent+    Amazonka.ConnectParticipant.SendMessage+    Amazonka.ConnectParticipant.StartAttachmentUpload+    Amazonka.ConnectParticipant.Types+    Amazonka.ConnectParticipant.Types.ArtifactStatus+    Amazonka.ConnectParticipant.Types.AttachmentItem+    Amazonka.ConnectParticipant.Types.ChatItemType+    Amazonka.ConnectParticipant.Types.ConnectionCredentials+    Amazonka.ConnectParticipant.Types.ConnectionType+    Amazonka.ConnectParticipant.Types.Item+    Amazonka.ConnectParticipant.Types.MessageMetadata+    Amazonka.ConnectParticipant.Types.ParticipantRole+    Amazonka.ConnectParticipant.Types.Receipt+    Amazonka.ConnectParticipant.Types.ScanDirection+    Amazonka.ConnectParticipant.Types.SortKey+    Amazonka.ConnectParticipant.Types.StartPosition+    Amazonka.ConnectParticipant.Types.UploadMetadata+    Amazonka.ConnectParticipant.Types.Websocket+    Amazonka.ConnectParticipant.Waiters++  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5++test-suite amazonka-connectparticipant-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.ConnectParticipant+    Test.Amazonka.ConnectParticipant.Internal+    Test.Amazonka.Gen.ConnectParticipant++  build-depends:+    , amazonka-connectparticipant+    , amazonka-core                >=2.0 && <2.1+    , amazonka-test                >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers
+ fixture/CompleteAttachmentUpload.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/CompleteAttachmentUploadResponse.proto view
+ fixture/CreateParticipantConnection.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/CreateParticipantConnectionResponse.proto view
+ fixture/DisconnectParticipant.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/DisconnectParticipantResponse.proto view
+ fixture/GetAttachment.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/GetAttachmentResponse.proto view
+ fixture/GetTranscript.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/GetTranscriptResponse.proto view
+ fixture/SendEvent.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/SendEventResponse.proto view
+ fixture/SendMessage.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/SendMessageResponse.proto view
+ fixture/StartAttachmentUpload.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/participant.connect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  participant.connect.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/StartAttachmentUploadResponse.proto view
+ gen/Amazonka/ConnectParticipant.hs view
@@ -0,0 +1,189 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.ConnectParticipant+-- 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 @2018-09-07@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Connect is a cloud-based contact center solution that makes it+-- easy to set up and manage a customer contact center. Amazon Connect+-- enables customer contacts through voice or chat. Use the Amazon Connect+-- Participant Service to manage chat participants, such as agents and+-- customers.+module Amazonka.ConnectParticipant+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** ConflictException+    _ConflictException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** ServiceQuotaExceededException+    _ServiceQuotaExceededException,++    -- ** ThrottlingException+    _ThrottlingException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CompleteAttachmentUpload+    CompleteAttachmentUpload (CompleteAttachmentUpload'),+    newCompleteAttachmentUpload,+    CompleteAttachmentUploadResponse (CompleteAttachmentUploadResponse'),+    newCompleteAttachmentUploadResponse,++    -- ** CreateParticipantConnection+    CreateParticipantConnection (CreateParticipantConnection'),+    newCreateParticipantConnection,+    CreateParticipantConnectionResponse (CreateParticipantConnectionResponse'),+    newCreateParticipantConnectionResponse,++    -- ** DisconnectParticipant+    DisconnectParticipant (DisconnectParticipant'),+    newDisconnectParticipant,+    DisconnectParticipantResponse (DisconnectParticipantResponse'),+    newDisconnectParticipantResponse,++    -- ** GetAttachment+    GetAttachment (GetAttachment'),+    newGetAttachment,+    GetAttachmentResponse (GetAttachmentResponse'),+    newGetAttachmentResponse,++    -- ** GetTranscript+    GetTranscript (GetTranscript'),+    newGetTranscript,+    GetTranscriptResponse (GetTranscriptResponse'),+    newGetTranscriptResponse,++    -- ** SendEvent+    SendEvent (SendEvent'),+    newSendEvent,+    SendEventResponse (SendEventResponse'),+    newSendEventResponse,++    -- ** SendMessage+    SendMessage (SendMessage'),+    newSendMessage,+    SendMessageResponse (SendMessageResponse'),+    newSendMessageResponse,++    -- ** StartAttachmentUpload+    StartAttachmentUpload (StartAttachmentUpload'),+    newStartAttachmentUpload,+    StartAttachmentUploadResponse (StartAttachmentUploadResponse'),+    newStartAttachmentUploadResponse,++    -- * Types++    -- ** ArtifactStatus+    ArtifactStatus (..),++    -- ** ChatItemType+    ChatItemType (..),++    -- ** ConnectionType+    ConnectionType (..),++    -- ** ParticipantRole+    ParticipantRole (..),++    -- ** ScanDirection+    ScanDirection (..),++    -- ** SortKey+    SortKey (..),++    -- ** AttachmentItem+    AttachmentItem (AttachmentItem'),+    newAttachmentItem,++    -- ** ConnectionCredentials+    ConnectionCredentials (ConnectionCredentials'),+    newConnectionCredentials,++    -- ** Item+    Item (Item'),+    newItem,++    -- ** MessageMetadata+    MessageMetadata (MessageMetadata'),+    newMessageMetadata,++    -- ** Receipt+    Receipt (Receipt'),+    newReceipt,++    -- ** StartPosition+    StartPosition (StartPosition'),+    newStartPosition,++    -- ** UploadMetadata+    UploadMetadata (UploadMetadata'),+    newUploadMetadata,++    -- ** Websocket+    Websocket (Websocket'),+    newWebsocket,+  )+where++import Amazonka.ConnectParticipant.CompleteAttachmentUpload+import Amazonka.ConnectParticipant.CreateParticipantConnection+import Amazonka.ConnectParticipant.DisconnectParticipant+import Amazonka.ConnectParticipant.GetAttachment+import Amazonka.ConnectParticipant.GetTranscript+import Amazonka.ConnectParticipant.Lens+import Amazonka.ConnectParticipant.SendEvent+import Amazonka.ConnectParticipant.SendMessage+import Amazonka.ConnectParticipant.StartAttachmentUpload+import Amazonka.ConnectParticipant.Types+import Amazonka.ConnectParticipant.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 'ConnectParticipant'.++-- $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/ConnectParticipant/CompleteAttachmentUpload.hs view
@@ -0,0 +1,209 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.CompleteAttachmentUpload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Allows you to confirm that the attachment has been uploaded using the+-- pre-signed URL provided in StartAttachmentUpload API.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.CompleteAttachmentUpload+  ( -- * Creating a Request+    CompleteAttachmentUpload (..),+    newCompleteAttachmentUpload,++    -- * Request Lenses+    completeAttachmentUpload_attachmentIds,+    completeAttachmentUpload_clientToken,+    completeAttachmentUpload_connectionToken,++    -- * Destructuring the Response+    CompleteAttachmentUploadResponse (..),+    newCompleteAttachmentUploadResponse,++    -- * Response Lenses+    completeAttachmentUploadResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newCompleteAttachmentUpload' smart constructor.+data CompleteAttachmentUpload = CompleteAttachmentUpload'+  { -- | A list of unique identifiers for the attachments.+    attachmentIds :: Prelude.NonEmpty Prelude.Text,+    -- | A unique, case-sensitive identifier that you provide to ensure the+    -- idempotency of the request. If not provided, the Amazon Web Services SDK+    -- populates this field. For more information about idempotency, see+    -- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+    clientToken :: Prelude.Text,+    -- | The authentication token associated with the participant\'s connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CompleteAttachmentUpload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentIds', 'completeAttachmentUpload_attachmentIds' - A list of unique identifiers for the attachments.+--+-- 'clientToken', 'completeAttachmentUpload_clientToken' - A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+--+-- 'connectionToken', 'completeAttachmentUpload_connectionToken' - The authentication token associated with the participant\'s connection.+newCompleteAttachmentUpload ::+  -- | 'attachmentIds'+  Prelude.NonEmpty Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  -- | 'connectionToken'+  Prelude.Text ->+  CompleteAttachmentUpload+newCompleteAttachmentUpload+  pAttachmentIds_+  pClientToken_+  pConnectionToken_ =+    CompleteAttachmentUpload'+      { attachmentIds =+          Lens.coerced Lens.# pAttachmentIds_,+        clientToken = pClientToken_,+        connectionToken = pConnectionToken_+      }++-- | A list of unique identifiers for the attachments.+completeAttachmentUpload_attachmentIds :: Lens.Lens' CompleteAttachmentUpload (Prelude.NonEmpty Prelude.Text)+completeAttachmentUpload_attachmentIds = Lens.lens (\CompleteAttachmentUpload' {attachmentIds} -> attachmentIds) (\s@CompleteAttachmentUpload' {} a -> s {attachmentIds = a} :: CompleteAttachmentUpload) Prelude.. Lens.coerced++-- | A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+completeAttachmentUpload_clientToken :: Lens.Lens' CompleteAttachmentUpload Prelude.Text+completeAttachmentUpload_clientToken = Lens.lens (\CompleteAttachmentUpload' {clientToken} -> clientToken) (\s@CompleteAttachmentUpload' {} a -> s {clientToken = a} :: CompleteAttachmentUpload)++-- | The authentication token associated with the participant\'s connection.+completeAttachmentUpload_connectionToken :: Lens.Lens' CompleteAttachmentUpload Prelude.Text+completeAttachmentUpload_connectionToken = Lens.lens (\CompleteAttachmentUpload' {connectionToken} -> connectionToken) (\s@CompleteAttachmentUpload' {} a -> s {connectionToken = a} :: CompleteAttachmentUpload)++instance Core.AWSRequest CompleteAttachmentUpload where+  type+    AWSResponse CompleteAttachmentUpload =+      CompleteAttachmentUploadResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CompleteAttachmentUploadResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CompleteAttachmentUpload where+  hashWithSalt _salt CompleteAttachmentUpload' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentIds+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData CompleteAttachmentUpload where+  rnf CompleteAttachmentUpload' {..} =+    Prelude.rnf attachmentIds+      `Prelude.seq` Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders CompleteAttachmentUpload where+  toHeaders CompleteAttachmentUpload' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON CompleteAttachmentUpload where+  toJSON CompleteAttachmentUpload' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("AttachmentIds" Data..= attachmentIds),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CompleteAttachmentUpload where+  toPath =+    Prelude.const+      "/participant/complete-attachment-upload"++instance Data.ToQuery CompleteAttachmentUpload where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCompleteAttachmentUploadResponse' smart constructor.+data CompleteAttachmentUploadResponse = CompleteAttachmentUploadResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CompleteAttachmentUploadResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.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', 'completeAttachmentUploadResponse_httpStatus' - The response's http status code.+newCompleteAttachmentUploadResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CompleteAttachmentUploadResponse+newCompleteAttachmentUploadResponse pHttpStatus_ =+  CompleteAttachmentUploadResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+completeAttachmentUploadResponse_httpStatus :: Lens.Lens' CompleteAttachmentUploadResponse Prelude.Int+completeAttachmentUploadResponse_httpStatus = Lens.lens (\CompleteAttachmentUploadResponse' {httpStatus} -> httpStatus) (\s@CompleteAttachmentUploadResponse' {} a -> s {httpStatus = a} :: CompleteAttachmentUploadResponse)++instance+  Prelude.NFData+    CompleteAttachmentUploadResponse+  where+  rnf CompleteAttachmentUploadResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/CreateParticipantConnection.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.ConnectParticipant.CreateParticipantConnection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates the participant\'s connection.+--+-- @ParticipantToken@ is used for invoking this API instead of+-- @ConnectionToken@.+--+-- The participant token is valid for the lifetime of the participant –+-- until they are part of a contact.+--+-- The response URL for @WEBSOCKET@ Type has a connect expiry timeout of+-- 100s. Clients must manually connect to the returned websocket URL and+-- subscribe to the desired topic.+--+-- For chat, you need to publish the following on the established websocket+-- connection:+--+-- @{\"topic\":\"aws\/subscribe\",\"content\":{\"topics\":[\"aws\/chat\"]}}@+--+-- Upon websocket URL expiry, as specified in the response ConnectionExpiry+-- parameter, clients need to call this API again to obtain a new websocket+-- URL and perform the same steps as before.+--+-- __Message streaming support__: This API can also be used together with+-- the+-- <https://docs.aws.amazon.com/connect/latest/APIReference/API_StartContactStreaming.html StartContactStreaming>+-- API to create a participant connection for chat contacts that are not+-- using a websocket. For more information about message streaming,+-- <https://docs.aws.amazon.com/connect/latest/adminguide/chat-message-streaming.html Enable real-time chat message streaming>+-- in the /Amazon Connect Administrator Guide/.+--+-- __Feature specifications__: For information about feature+-- specifications, such as the allowed number of open websocket connections+-- per participant, see+-- <https://docs.aws.amazon.com/connect/latest/adminguide/amazon-connect-service-limits.html#feature-limits Feature specifications>+-- in the /Amazon Connect Administrator Guide/.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.CreateParticipantConnection+  ( -- * Creating a Request+    CreateParticipantConnection (..),+    newCreateParticipantConnection,++    -- * Request Lenses+    createParticipantConnection_connectParticipant,+    createParticipantConnection_type,+    createParticipantConnection_participantToken,++    -- * Destructuring the Response+    CreateParticipantConnectionResponse (..),+    newCreateParticipantConnectionResponse,++    -- * Response Lenses+    createParticipantConnectionResponse_connectionCredentials,+    createParticipantConnectionResponse_websocket,+    createParticipantConnectionResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newCreateParticipantConnection' smart constructor.+data CreateParticipantConnection = CreateParticipantConnection'+  { -- | Amazon Connect Participant is used to mark the participant as connected+    -- for message streaming.+    connectParticipant :: Prelude.Maybe Prelude.Bool,+    -- | Type of connection information required. This can be omitted if+    -- @ConnectParticipant@ is @true@.+    type' :: Prelude.Maybe (Prelude.NonEmpty ConnectionType),+    -- | This is a header parameter.+    --+    -- The ParticipantToken as obtained from+    -- <https://docs.aws.amazon.com/connect/latest/APIReference/API_StartChatContact.html StartChatContact>+    -- API response.+    participantToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateParticipantConnection' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'connectParticipant', 'createParticipantConnection_connectParticipant' - Amazon Connect Participant is used to mark the participant as connected+-- for message streaming.+--+-- 'type'', 'createParticipantConnection_type' - Type of connection information required. This can be omitted if+-- @ConnectParticipant@ is @true@.+--+-- 'participantToken', 'createParticipantConnection_participantToken' - This is a header parameter.+--+-- The ParticipantToken as obtained from+-- <https://docs.aws.amazon.com/connect/latest/APIReference/API_StartChatContact.html StartChatContact>+-- API response.+newCreateParticipantConnection ::+  -- | 'participantToken'+  Prelude.Text ->+  CreateParticipantConnection+newCreateParticipantConnection pParticipantToken_ =+  CreateParticipantConnection'+    { connectParticipant =+        Prelude.Nothing,+      type' = Prelude.Nothing,+      participantToken = pParticipantToken_+    }++-- | Amazon Connect Participant is used to mark the participant as connected+-- for message streaming.+createParticipantConnection_connectParticipant :: Lens.Lens' CreateParticipantConnection (Prelude.Maybe Prelude.Bool)+createParticipantConnection_connectParticipant = Lens.lens (\CreateParticipantConnection' {connectParticipant} -> connectParticipant) (\s@CreateParticipantConnection' {} a -> s {connectParticipant = a} :: CreateParticipantConnection)++-- | Type of connection information required. This can be omitted if+-- @ConnectParticipant@ is @true@.+createParticipantConnection_type :: Lens.Lens' CreateParticipantConnection (Prelude.Maybe (Prelude.NonEmpty ConnectionType))+createParticipantConnection_type = Lens.lens (\CreateParticipantConnection' {type'} -> type') (\s@CreateParticipantConnection' {} a -> s {type' = a} :: CreateParticipantConnection) Prelude.. Lens.mapping Lens.coerced++-- | This is a header parameter.+--+-- The ParticipantToken as obtained from+-- <https://docs.aws.amazon.com/connect/latest/APIReference/API_StartChatContact.html StartChatContact>+-- API response.+createParticipantConnection_participantToken :: Lens.Lens' CreateParticipantConnection Prelude.Text+createParticipantConnection_participantToken = Lens.lens (\CreateParticipantConnection' {participantToken} -> participantToken) (\s@CreateParticipantConnection' {} a -> s {participantToken = a} :: CreateParticipantConnection)++instance Core.AWSRequest CreateParticipantConnection where+  type+    AWSResponse CreateParticipantConnection =+      CreateParticipantConnectionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateParticipantConnectionResponse'+            Prelude.<$> (x Data..?> "ConnectionCredentials")+            Prelude.<*> (x Data..?> "Websocket")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateParticipantConnection where+  hashWithSalt _salt CreateParticipantConnection' {..} =+    _salt+      `Prelude.hashWithSalt` connectParticipant+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` participantToken++instance Prelude.NFData CreateParticipantConnection where+  rnf CreateParticipantConnection' {..} =+    Prelude.rnf connectParticipant+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf participantToken++instance Data.ToHeaders CreateParticipantConnection where+  toHeaders CreateParticipantConnection' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# participantToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON CreateParticipantConnection where+  toJSON CreateParticipantConnection' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ConnectParticipant" Data..=)+              Prelude.<$> connectParticipant,+            ("Type" Data..=) Prelude.<$> type'+          ]+      )++instance Data.ToPath CreateParticipantConnection where+  toPath = Prelude.const "/participant/connection"++instance Data.ToQuery CreateParticipantConnection where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateParticipantConnectionResponse' smart constructor.+data CreateParticipantConnectionResponse = CreateParticipantConnectionResponse'+  { -- | Creates the participant\'s connection credentials. The authentication+    -- token associated with the participant\'s connection.+    connectionCredentials :: Prelude.Maybe ConnectionCredentials,+    -- | Creates the participant\'s websocket connection.+    websocket :: Prelude.Maybe Websocket,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateParticipantConnectionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'connectionCredentials', 'createParticipantConnectionResponse_connectionCredentials' - Creates the participant\'s connection credentials. The authentication+-- token associated with the participant\'s connection.+--+-- 'websocket', 'createParticipantConnectionResponse_websocket' - Creates the participant\'s websocket connection.+--+-- 'httpStatus', 'createParticipantConnectionResponse_httpStatus' - The response's http status code.+newCreateParticipantConnectionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateParticipantConnectionResponse+newCreateParticipantConnectionResponse pHttpStatus_ =+  CreateParticipantConnectionResponse'+    { connectionCredentials =+        Prelude.Nothing,+      websocket = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Creates the participant\'s connection credentials. The authentication+-- token associated with the participant\'s connection.+createParticipantConnectionResponse_connectionCredentials :: Lens.Lens' CreateParticipantConnectionResponse (Prelude.Maybe ConnectionCredentials)+createParticipantConnectionResponse_connectionCredentials = Lens.lens (\CreateParticipantConnectionResponse' {connectionCredentials} -> connectionCredentials) (\s@CreateParticipantConnectionResponse' {} a -> s {connectionCredentials = a} :: CreateParticipantConnectionResponse)++-- | Creates the participant\'s websocket connection.+createParticipantConnectionResponse_websocket :: Lens.Lens' CreateParticipantConnectionResponse (Prelude.Maybe Websocket)+createParticipantConnectionResponse_websocket = Lens.lens (\CreateParticipantConnectionResponse' {websocket} -> websocket) (\s@CreateParticipantConnectionResponse' {} a -> s {websocket = a} :: CreateParticipantConnectionResponse)++-- | The response's http status code.+createParticipantConnectionResponse_httpStatus :: Lens.Lens' CreateParticipantConnectionResponse Prelude.Int+createParticipantConnectionResponse_httpStatus = Lens.lens (\CreateParticipantConnectionResponse' {httpStatus} -> httpStatus) (\s@CreateParticipantConnectionResponse' {} a -> s {httpStatus = a} :: CreateParticipantConnectionResponse)++instance+  Prelude.NFData+    CreateParticipantConnectionResponse+  where+  rnf CreateParticipantConnectionResponse' {..} =+    Prelude.rnf connectionCredentials+      `Prelude.seq` Prelude.rnf websocket+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/DisconnectParticipant.hs view
@@ -0,0 +1,181 @@+{-# 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.ConnectParticipant.DisconnectParticipant+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disconnects a participant.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.DisconnectParticipant+  ( -- * Creating a Request+    DisconnectParticipant (..),+    newDisconnectParticipant,++    -- * Request Lenses+    disconnectParticipant_clientToken,+    disconnectParticipant_connectionToken,++    -- * Destructuring the Response+    DisconnectParticipantResponse (..),+    newDisconnectParticipantResponse,++    -- * Response Lenses+    disconnectParticipantResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newDisconnectParticipant' smart constructor.+data DisconnectParticipant = DisconnectParticipant'+  { -- | A unique, case-sensitive identifier that you provide to ensure the+    -- idempotency of the request. If not provided, the Amazon Web Services SDK+    -- populates this field. For more information about idempotency, see+    -- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | The authentication token associated with the participant\'s connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisconnectParticipant' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientToken', 'disconnectParticipant_clientToken' - A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+--+-- 'connectionToken', 'disconnectParticipant_connectionToken' - The authentication token associated with the participant\'s connection.+newDisconnectParticipant ::+  -- | 'connectionToken'+  Prelude.Text ->+  DisconnectParticipant+newDisconnectParticipant pConnectionToken_ =+  DisconnectParticipant'+    { clientToken =+        Prelude.Nothing,+      connectionToken = pConnectionToken_+    }++-- | A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+disconnectParticipant_clientToken :: Lens.Lens' DisconnectParticipant (Prelude.Maybe Prelude.Text)+disconnectParticipant_clientToken = Lens.lens (\DisconnectParticipant' {clientToken} -> clientToken) (\s@DisconnectParticipant' {} a -> s {clientToken = a} :: DisconnectParticipant)++-- | The authentication token associated with the participant\'s connection.+disconnectParticipant_connectionToken :: Lens.Lens' DisconnectParticipant Prelude.Text+disconnectParticipant_connectionToken = Lens.lens (\DisconnectParticipant' {connectionToken} -> connectionToken) (\s@DisconnectParticipant' {} a -> s {connectionToken = a} :: DisconnectParticipant)++instance Core.AWSRequest DisconnectParticipant where+  type+    AWSResponse DisconnectParticipant =+      DisconnectParticipantResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DisconnectParticipantResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DisconnectParticipant where+  hashWithSalt _salt DisconnectParticipant' {..} =+    _salt+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData DisconnectParticipant where+  rnf DisconnectParticipant' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders DisconnectParticipant where+  toHeaders DisconnectParticipant' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON DisconnectParticipant where+  toJSON DisconnectParticipant' {..} =+    Data.object+      ( Prelude.catMaybes+          [("ClientToken" Data..=) Prelude.<$> clientToken]+      )++instance Data.ToPath DisconnectParticipant where+  toPath = Prelude.const "/participant/disconnect"++instance Data.ToQuery DisconnectParticipant where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDisconnectParticipantResponse' smart constructor.+data DisconnectParticipantResponse = DisconnectParticipantResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisconnectParticipantResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.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', 'disconnectParticipantResponse_httpStatus' - The response's http status code.+newDisconnectParticipantResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DisconnectParticipantResponse+newDisconnectParticipantResponse pHttpStatus_ =+  DisconnectParticipantResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+disconnectParticipantResponse_httpStatus :: Lens.Lens' DisconnectParticipantResponse Prelude.Int+disconnectParticipantResponse_httpStatus = Lens.lens (\DisconnectParticipantResponse' {httpStatus} -> httpStatus) (\s@DisconnectParticipantResponse' {} a -> s {httpStatus = a} :: DisconnectParticipantResponse)++instance Prelude.NFData DisconnectParticipantResponse where+  rnf DisconnectParticipantResponse' {..} =+    Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/GetAttachment.hs view
@@ -0,0 +1,209 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.GetAttachment+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a pre-signed URL for download of a completed attachment. This+-- is an asynchronous API for use with active contacts.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.GetAttachment+  ( -- * Creating a Request+    GetAttachment (..),+    newGetAttachment,++    -- * Request Lenses+    getAttachment_attachmentId,+    getAttachment_connectionToken,++    -- * Destructuring the Response+    GetAttachmentResponse (..),+    newGetAttachmentResponse,++    -- * Response Lenses+    getAttachmentResponse_url,+    getAttachmentResponse_urlExpiry,+    getAttachmentResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newGetAttachment' smart constructor.+data GetAttachment = GetAttachment'+  { -- | A unique identifier for the attachment.+    attachmentId :: Prelude.Text,+    -- | The authentication token associated with the participant\'s connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetAttachment' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentId', 'getAttachment_attachmentId' - A unique identifier for the attachment.+--+-- 'connectionToken', 'getAttachment_connectionToken' - The authentication token associated with the participant\'s connection.+newGetAttachment ::+  -- | 'attachmentId'+  Prelude.Text ->+  -- | 'connectionToken'+  Prelude.Text ->+  GetAttachment+newGetAttachment pAttachmentId_ pConnectionToken_ =+  GetAttachment'+    { attachmentId = pAttachmentId_,+      connectionToken = pConnectionToken_+    }++-- | A unique identifier for the attachment.+getAttachment_attachmentId :: Lens.Lens' GetAttachment Prelude.Text+getAttachment_attachmentId = Lens.lens (\GetAttachment' {attachmentId} -> attachmentId) (\s@GetAttachment' {} a -> s {attachmentId = a} :: GetAttachment)++-- | The authentication token associated with the participant\'s connection.+getAttachment_connectionToken :: Lens.Lens' GetAttachment Prelude.Text+getAttachment_connectionToken = Lens.lens (\GetAttachment' {connectionToken} -> connectionToken) (\s@GetAttachment' {} a -> s {connectionToken = a} :: GetAttachment)++instance Core.AWSRequest GetAttachment where+  type+    AWSResponse GetAttachment =+      GetAttachmentResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetAttachmentResponse'+            Prelude.<$> (x Data..?> "Url")+            Prelude.<*> (x Data..?> "UrlExpiry")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetAttachment where+  hashWithSalt _salt GetAttachment' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentId+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData GetAttachment where+  rnf GetAttachment' {..} =+    Prelude.rnf attachmentId+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders GetAttachment where+  toHeaders GetAttachment' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON GetAttachment where+  toJSON GetAttachment' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("AttachmentId" Data..= attachmentId)]+      )++instance Data.ToPath GetAttachment where+  toPath = Prelude.const "/participant/attachment"++instance Data.ToQuery GetAttachment where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetAttachmentResponse' smart constructor.+data GetAttachmentResponse = GetAttachmentResponse'+  { -- | This is the pre-signed URL that can be used for uploading the file to+    -- Amazon S3 when used in response to+    -- <https://docs.aws.amazon.com/connect-participant/latest/APIReference/API_StartAttachmentUpload.html StartAttachmentUpload>.+    url :: Prelude.Maybe Prelude.Text,+    -- | The expiration time of the URL in ISO timestamp. It\'s specified in ISO+    -- 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For example,+    -- 2019-11-08T02:41:28.172Z.+    urlExpiry :: 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 'GetAttachmentResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'url', 'getAttachmentResponse_url' - This is the pre-signed URL that can be used for uploading the file to+-- Amazon S3 when used in response to+-- <https://docs.aws.amazon.com/connect-participant/latest/APIReference/API_StartAttachmentUpload.html StartAttachmentUpload>.+--+-- 'urlExpiry', 'getAttachmentResponse_urlExpiry' - The expiration time of the URL in ISO timestamp. It\'s specified in ISO+-- 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For example,+-- 2019-11-08T02:41:28.172Z.+--+-- 'httpStatus', 'getAttachmentResponse_httpStatus' - The response's http status code.+newGetAttachmentResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetAttachmentResponse+newGetAttachmentResponse pHttpStatus_ =+  GetAttachmentResponse'+    { url = Prelude.Nothing,+      urlExpiry = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | This is the pre-signed URL that can be used for uploading the file to+-- Amazon S3 when used in response to+-- <https://docs.aws.amazon.com/connect-participant/latest/APIReference/API_StartAttachmentUpload.html StartAttachmentUpload>.+getAttachmentResponse_url :: Lens.Lens' GetAttachmentResponse (Prelude.Maybe Prelude.Text)+getAttachmentResponse_url = Lens.lens (\GetAttachmentResponse' {url} -> url) (\s@GetAttachmentResponse' {} a -> s {url = a} :: GetAttachmentResponse)++-- | The expiration time of the URL in ISO timestamp. It\'s specified in ISO+-- 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For example,+-- 2019-11-08T02:41:28.172Z.+getAttachmentResponse_urlExpiry :: Lens.Lens' GetAttachmentResponse (Prelude.Maybe Prelude.Text)+getAttachmentResponse_urlExpiry = Lens.lens (\GetAttachmentResponse' {urlExpiry} -> urlExpiry) (\s@GetAttachmentResponse' {} a -> s {urlExpiry = a} :: GetAttachmentResponse)++-- | The response's http status code.+getAttachmentResponse_httpStatus :: Lens.Lens' GetAttachmentResponse Prelude.Int+getAttachmentResponse_httpStatus = Lens.lens (\GetAttachmentResponse' {httpStatus} -> httpStatus) (\s@GetAttachmentResponse' {} a -> s {httpStatus = a} :: GetAttachmentResponse)++instance Prelude.NFData GetAttachmentResponse where+  rnf GetAttachmentResponse' {..} =+    Prelude.rnf url+      `Prelude.seq` Prelude.rnf urlExpiry+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/GetTranscript.hs view
@@ -0,0 +1,289 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.GetTranscript+-- 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 a transcript of the session, including details about any+-- attachments.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.GetTranscript+  ( -- * Creating a Request+    GetTranscript (..),+    newGetTranscript,++    -- * Request Lenses+    getTranscript_contactId,+    getTranscript_maxResults,+    getTranscript_nextToken,+    getTranscript_scanDirection,+    getTranscript_sortOrder,+    getTranscript_startPosition,+    getTranscript_connectionToken,++    -- * Destructuring the Response+    GetTranscriptResponse (..),+    newGetTranscriptResponse,++    -- * Response Lenses+    getTranscriptResponse_initialContactId,+    getTranscriptResponse_nextToken,+    getTranscriptResponse_transcript,+    getTranscriptResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newGetTranscript' smart constructor.+data GetTranscript = GetTranscript'+  { -- | The contactId from the current contact chain for which transcript is+    -- needed.+    contactId :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of results to return in the page. Default: 10.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token. Use the value returned previously in the next+    -- subsequent request to retrieve the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The direction from StartPosition from which to retrieve message.+    -- Default: BACKWARD when no StartPosition is provided, FORWARD with+    -- StartPosition.+    scanDirection :: Prelude.Maybe ScanDirection,+    -- | The sort order for the records. Default: DESCENDING.+    sortOrder :: Prelude.Maybe SortKey,+    -- | A filtering option for where to start.+    startPosition :: Prelude.Maybe StartPosition,+    -- | The authentication token associated with the participant\'s connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTranscript' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.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', 'getTranscript_contactId' - The contactId from the current contact chain for which transcript is+-- needed.+--+-- 'maxResults', 'getTranscript_maxResults' - The maximum number of results to return in the page. Default: 10.+--+-- 'nextToken', 'getTranscript_nextToken' - The pagination token. Use the value returned previously in the next+-- subsequent request to retrieve the next set of results.+--+-- 'scanDirection', 'getTranscript_scanDirection' - The direction from StartPosition from which to retrieve message.+-- Default: BACKWARD when no StartPosition is provided, FORWARD with+-- StartPosition.+--+-- 'sortOrder', 'getTranscript_sortOrder' - The sort order for the records. Default: DESCENDING.+--+-- 'startPosition', 'getTranscript_startPosition' - A filtering option for where to start.+--+-- 'connectionToken', 'getTranscript_connectionToken' - The authentication token associated with the participant\'s connection.+newGetTranscript ::+  -- | 'connectionToken'+  Prelude.Text ->+  GetTranscript+newGetTranscript pConnectionToken_ =+  GetTranscript'+    { contactId = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      scanDirection = Prelude.Nothing,+      sortOrder = Prelude.Nothing,+      startPosition = Prelude.Nothing,+      connectionToken = pConnectionToken_+    }++-- | The contactId from the current contact chain for which transcript is+-- needed.+getTranscript_contactId :: Lens.Lens' GetTranscript (Prelude.Maybe Prelude.Text)+getTranscript_contactId = Lens.lens (\GetTranscript' {contactId} -> contactId) (\s@GetTranscript' {} a -> s {contactId = a} :: GetTranscript)++-- | The maximum number of results to return in the page. Default: 10.+getTranscript_maxResults :: Lens.Lens' GetTranscript (Prelude.Maybe Prelude.Natural)+getTranscript_maxResults = Lens.lens (\GetTranscript' {maxResults} -> maxResults) (\s@GetTranscript' {} a -> s {maxResults = a} :: GetTranscript)++-- | The pagination token. Use the value returned previously in the next+-- subsequent request to retrieve the next set of results.+getTranscript_nextToken :: Lens.Lens' GetTranscript (Prelude.Maybe Prelude.Text)+getTranscript_nextToken = Lens.lens (\GetTranscript' {nextToken} -> nextToken) (\s@GetTranscript' {} a -> s {nextToken = a} :: GetTranscript)++-- | The direction from StartPosition from which to retrieve message.+-- Default: BACKWARD when no StartPosition is provided, FORWARD with+-- StartPosition.+getTranscript_scanDirection :: Lens.Lens' GetTranscript (Prelude.Maybe ScanDirection)+getTranscript_scanDirection = Lens.lens (\GetTranscript' {scanDirection} -> scanDirection) (\s@GetTranscript' {} a -> s {scanDirection = a} :: GetTranscript)++-- | The sort order for the records. Default: DESCENDING.+getTranscript_sortOrder :: Lens.Lens' GetTranscript (Prelude.Maybe SortKey)+getTranscript_sortOrder = Lens.lens (\GetTranscript' {sortOrder} -> sortOrder) (\s@GetTranscript' {} a -> s {sortOrder = a} :: GetTranscript)++-- | A filtering option for where to start.+getTranscript_startPosition :: Lens.Lens' GetTranscript (Prelude.Maybe StartPosition)+getTranscript_startPosition = Lens.lens (\GetTranscript' {startPosition} -> startPosition) (\s@GetTranscript' {} a -> s {startPosition = a} :: GetTranscript)++-- | The authentication token associated with the participant\'s connection.+getTranscript_connectionToken :: Lens.Lens' GetTranscript Prelude.Text+getTranscript_connectionToken = Lens.lens (\GetTranscript' {connectionToken} -> connectionToken) (\s@GetTranscript' {} a -> s {connectionToken = a} :: GetTranscript)++instance Core.AWSRequest GetTranscript where+  type+    AWSResponse GetTranscript =+      GetTranscriptResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTranscriptResponse'+            Prelude.<$> (x Data..?> "InitialContactId")+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Transcript" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTranscript where+  hashWithSalt _salt GetTranscript' {..} =+    _salt+      `Prelude.hashWithSalt` contactId+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` scanDirection+      `Prelude.hashWithSalt` sortOrder+      `Prelude.hashWithSalt` startPosition+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData GetTranscript where+  rnf GetTranscript' {..} =+    Prelude.rnf contactId+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf scanDirection+      `Prelude.seq` Prelude.rnf sortOrder+      `Prelude.seq` Prelude.rnf startPosition+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders GetTranscript where+  toHeaders GetTranscript' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON GetTranscript where+  toJSON GetTranscript' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ContactId" Data..=) Prelude.<$> contactId,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("ScanDirection" Data..=) Prelude.<$> scanDirection,+            ("SortOrder" Data..=) Prelude.<$> sortOrder,+            ("StartPosition" Data..=) Prelude.<$> startPosition+          ]+      )++instance Data.ToPath GetTranscript where+  toPath = Prelude.const "/participant/transcript"++instance Data.ToQuery GetTranscript where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTranscriptResponse' smart constructor.+data GetTranscriptResponse = GetTranscriptResponse'+  { -- | The initial contact ID for the contact.+    initialContactId :: Prelude.Maybe Prelude.Text,+    -- | The pagination token. Use the value returned previously in the next+    -- subsequent request to retrieve the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of messages in the session.+    transcript :: Prelude.Maybe [Item],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTranscriptResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'initialContactId', 'getTranscriptResponse_initialContactId' - The initial contact ID for the contact.+--+-- 'nextToken', 'getTranscriptResponse_nextToken' - The pagination token. Use the value returned previously in the next+-- subsequent request to retrieve the next set of results.+--+-- 'transcript', 'getTranscriptResponse_transcript' - The list of messages in the session.+--+-- 'httpStatus', 'getTranscriptResponse_httpStatus' - The response's http status code.+newGetTranscriptResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTranscriptResponse+newGetTranscriptResponse pHttpStatus_ =+  GetTranscriptResponse'+    { initialContactId =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      transcript = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The initial contact ID for the contact.+getTranscriptResponse_initialContactId :: Lens.Lens' GetTranscriptResponse (Prelude.Maybe Prelude.Text)+getTranscriptResponse_initialContactId = Lens.lens (\GetTranscriptResponse' {initialContactId} -> initialContactId) (\s@GetTranscriptResponse' {} a -> s {initialContactId = a} :: GetTranscriptResponse)++-- | The pagination token. Use the value returned previously in the next+-- subsequent request to retrieve the next set of results.+getTranscriptResponse_nextToken :: Lens.Lens' GetTranscriptResponse (Prelude.Maybe Prelude.Text)+getTranscriptResponse_nextToken = Lens.lens (\GetTranscriptResponse' {nextToken} -> nextToken) (\s@GetTranscriptResponse' {} a -> s {nextToken = a} :: GetTranscriptResponse)++-- | The list of messages in the session.+getTranscriptResponse_transcript :: Lens.Lens' GetTranscriptResponse (Prelude.Maybe [Item])+getTranscriptResponse_transcript = Lens.lens (\GetTranscriptResponse' {transcript} -> transcript) (\s@GetTranscriptResponse' {} a -> s {transcript = a} :: GetTranscriptResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getTranscriptResponse_httpStatus :: Lens.Lens' GetTranscriptResponse Prelude.Int+getTranscriptResponse_httpStatus = Lens.lens (\GetTranscriptResponse' {httpStatus} -> httpStatus) (\s@GetTranscriptResponse' {} a -> s {httpStatus = a} :: GetTranscriptResponse)++instance Prelude.NFData GetTranscriptResponse where+  rnf GetTranscriptResponse' {..} =+    Prelude.rnf initialContactId+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf transcript+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/Lens.hs view
@@ -0,0 +1,148 @@+{-# 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.ConnectParticipant.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.ConnectParticipant.Lens+  ( -- * Operations++    -- ** CompleteAttachmentUpload+    completeAttachmentUpload_attachmentIds,+    completeAttachmentUpload_clientToken,+    completeAttachmentUpload_connectionToken,+    completeAttachmentUploadResponse_httpStatus,++    -- ** CreateParticipantConnection+    createParticipantConnection_connectParticipant,+    createParticipantConnection_type,+    createParticipantConnection_participantToken,+    createParticipantConnectionResponse_connectionCredentials,+    createParticipantConnectionResponse_websocket,+    createParticipantConnectionResponse_httpStatus,++    -- ** DisconnectParticipant+    disconnectParticipant_clientToken,+    disconnectParticipant_connectionToken,+    disconnectParticipantResponse_httpStatus,++    -- ** GetAttachment+    getAttachment_attachmentId,+    getAttachment_connectionToken,+    getAttachmentResponse_url,+    getAttachmentResponse_urlExpiry,+    getAttachmentResponse_httpStatus,++    -- ** GetTranscript+    getTranscript_contactId,+    getTranscript_maxResults,+    getTranscript_nextToken,+    getTranscript_scanDirection,+    getTranscript_sortOrder,+    getTranscript_startPosition,+    getTranscript_connectionToken,+    getTranscriptResponse_initialContactId,+    getTranscriptResponse_nextToken,+    getTranscriptResponse_transcript,+    getTranscriptResponse_httpStatus,++    -- ** SendEvent+    sendEvent_clientToken,+    sendEvent_content,+    sendEvent_contentType,+    sendEvent_connectionToken,+    sendEventResponse_absoluteTime,+    sendEventResponse_id,+    sendEventResponse_httpStatus,++    -- ** SendMessage+    sendMessage_clientToken,+    sendMessage_contentType,+    sendMessage_content,+    sendMessage_connectionToken,+    sendMessageResponse_absoluteTime,+    sendMessageResponse_id,+    sendMessageResponse_httpStatus,++    -- ** StartAttachmentUpload+    startAttachmentUpload_contentType,+    startAttachmentUpload_attachmentSizeInBytes,+    startAttachmentUpload_attachmentName,+    startAttachmentUpload_clientToken,+    startAttachmentUpload_connectionToken,+    startAttachmentUploadResponse_attachmentId,+    startAttachmentUploadResponse_uploadMetadata,+    startAttachmentUploadResponse_httpStatus,++    -- * Types++    -- ** AttachmentItem+    attachmentItem_attachmentId,+    attachmentItem_attachmentName,+    attachmentItem_contentType,+    attachmentItem_status,++    -- ** ConnectionCredentials+    connectionCredentials_connectionToken,+    connectionCredentials_expiry,++    -- ** Item+    item_absoluteTime,+    item_attachments,+    item_content,+    item_contentType,+    item_displayName,+    item_id,+    item_messageMetadata,+    item_participantId,+    item_participantRole,+    item_type,++    -- ** MessageMetadata+    messageMetadata_messageId,+    messageMetadata_receipts,++    -- ** Receipt+    receipt_deliveredTimestamp,+    receipt_readTimestamp,+    receipt_recipientParticipantId,++    -- ** StartPosition+    startPosition_absoluteTime,+    startPosition_id,+    startPosition_mostRecent,++    -- ** UploadMetadata+    uploadMetadata_headersToInclude,+    uploadMetadata_url,+    uploadMetadata_urlExpiry,++    -- ** Websocket+    websocket_connectionExpiry,+    websocket_url,+  )+where++import Amazonka.ConnectParticipant.CompleteAttachmentUpload+import Amazonka.ConnectParticipant.CreateParticipantConnection+import Amazonka.ConnectParticipant.DisconnectParticipant+import Amazonka.ConnectParticipant.GetAttachment+import Amazonka.ConnectParticipant.GetTranscript+import Amazonka.ConnectParticipant.SendEvent+import Amazonka.ConnectParticipant.SendMessage+import Amazonka.ConnectParticipant.StartAttachmentUpload+import Amazonka.ConnectParticipant.Types.AttachmentItem+import Amazonka.ConnectParticipant.Types.ConnectionCredentials+import Amazonka.ConnectParticipant.Types.Item+import Amazonka.ConnectParticipant.Types.MessageMetadata+import Amazonka.ConnectParticipant.Types.Receipt+import Amazonka.ConnectParticipant.Types.StartPosition+import Amazonka.ConnectParticipant.Types.UploadMetadata+import Amazonka.ConnectParticipant.Types.Websocket
+ gen/Amazonka/ConnectParticipant/SendEvent.hs view
@@ -0,0 +1,278 @@+{-# 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.ConnectParticipant.SendEvent+-- 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 event.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.SendEvent+  ( -- * Creating a Request+    SendEvent (..),+    newSendEvent,++    -- * Request Lenses+    sendEvent_clientToken,+    sendEvent_content,+    sendEvent_contentType,+    sendEvent_connectionToken,++    -- * Destructuring the Response+    SendEventResponse (..),+    newSendEventResponse,++    -- * Response Lenses+    sendEventResponse_absoluteTime,+    sendEventResponse_id,+    sendEventResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newSendEvent' smart constructor.+data SendEvent = SendEvent'+  { -- | A unique, case-sensitive identifier that you provide to ensure the+    -- idempotency of the request. If not provided, the Amazon Web Services SDK+    -- populates this field. For more information about idempotency, see+    -- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | The content of the event to be sent (for example, message text). For+    -- content related to message receipts, this is supported in the form of a+    -- JSON string.+    --+    -- Sample Content:+    -- \"{\\\"messageId\\\":\\\"11111111-aaaa-bbbb-cccc-EXAMPLE01234\\\"}\"+    content :: Prelude.Maybe Prelude.Text,+    -- | The content type of the request. Supported types are:+    --+    -- -   application\/vnd.amazonaws.connect.event.typing+    --+    -- -   application\/vnd.amazonaws.connect.event.connection.acknowledged+    --+    -- -   application\/vnd.amazonaws.connect.event.message.delivered+    --+    -- -   application\/vnd.amazonaws.connect.event.message.read+    contentType :: Prelude.Text,+    -- | The authentication token associated with the participant\'s connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SendEvent' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientToken', 'sendEvent_clientToken' - A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+--+-- 'content', 'sendEvent_content' - The content of the event to be sent (for example, message text). For+-- content related to message receipts, this is supported in the form of a+-- JSON string.+--+-- Sample Content:+-- \"{\\\"messageId\\\":\\\"11111111-aaaa-bbbb-cccc-EXAMPLE01234\\\"}\"+--+-- 'contentType', 'sendEvent_contentType' - The content type of the request. Supported types are:+--+-- -   application\/vnd.amazonaws.connect.event.typing+--+-- -   application\/vnd.amazonaws.connect.event.connection.acknowledged+--+-- -   application\/vnd.amazonaws.connect.event.message.delivered+--+-- -   application\/vnd.amazonaws.connect.event.message.read+--+-- 'connectionToken', 'sendEvent_connectionToken' - The authentication token associated with the participant\'s connection.+newSendEvent ::+  -- | 'contentType'+  Prelude.Text ->+  -- | 'connectionToken'+  Prelude.Text ->+  SendEvent+newSendEvent pContentType_ pConnectionToken_ =+  SendEvent'+    { clientToken = Prelude.Nothing,+      content = Prelude.Nothing,+      contentType = pContentType_,+      connectionToken = pConnectionToken_+    }++-- | A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+sendEvent_clientToken :: Lens.Lens' SendEvent (Prelude.Maybe Prelude.Text)+sendEvent_clientToken = Lens.lens (\SendEvent' {clientToken} -> clientToken) (\s@SendEvent' {} a -> s {clientToken = a} :: SendEvent)++-- | The content of the event to be sent (for example, message text). For+-- content related to message receipts, this is supported in the form of a+-- JSON string.+--+-- Sample Content:+-- \"{\\\"messageId\\\":\\\"11111111-aaaa-bbbb-cccc-EXAMPLE01234\\\"}\"+sendEvent_content :: Lens.Lens' SendEvent (Prelude.Maybe Prelude.Text)+sendEvent_content = Lens.lens (\SendEvent' {content} -> content) (\s@SendEvent' {} a -> s {content = a} :: SendEvent)++-- | The content type of the request. Supported types are:+--+-- -   application\/vnd.amazonaws.connect.event.typing+--+-- -   application\/vnd.amazonaws.connect.event.connection.acknowledged+--+-- -   application\/vnd.amazonaws.connect.event.message.delivered+--+-- -   application\/vnd.amazonaws.connect.event.message.read+sendEvent_contentType :: Lens.Lens' SendEvent Prelude.Text+sendEvent_contentType = Lens.lens (\SendEvent' {contentType} -> contentType) (\s@SendEvent' {} a -> s {contentType = a} :: SendEvent)++-- | The authentication token associated with the participant\'s connection.+sendEvent_connectionToken :: Lens.Lens' SendEvent Prelude.Text+sendEvent_connectionToken = Lens.lens (\SendEvent' {connectionToken} -> connectionToken) (\s@SendEvent' {} a -> s {connectionToken = a} :: SendEvent)++instance Core.AWSRequest SendEvent where+  type AWSResponse SendEvent = SendEventResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          SendEventResponse'+            Prelude.<$> (x Data..?> "AbsoluteTime")+            Prelude.<*> (x Data..?> "Id")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable SendEvent where+  hashWithSalt _salt SendEvent' {..} =+    _salt+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` content+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData SendEvent where+  rnf SendEvent' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf content+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders SendEvent where+  toHeaders SendEvent' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON SendEvent where+  toJSON SendEvent' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ClientToken" Data..=) Prelude.<$> clientToken,+            ("Content" Data..=) Prelude.<$> content,+            Prelude.Just ("ContentType" Data..= contentType)+          ]+      )++instance Data.ToPath SendEvent where+  toPath = Prelude.const "/participant/event"++instance Data.ToQuery SendEvent where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newSendEventResponse' smart constructor.+data SendEventResponse = SendEventResponse'+  { -- | The time when the event was sent.+    --+    -- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+    -- example, 2019-11-08T02:41:28.172Z.+    absoluteTime :: Prelude.Maybe Prelude.Text,+    -- | The ID of the response.+    id :: 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 'SendEventResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'absoluteTime', 'sendEventResponse_absoluteTime' - The time when the event was sent.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+--+-- 'id', 'sendEventResponse_id' - The ID of the response.+--+-- 'httpStatus', 'sendEventResponse_httpStatus' - The response's http status code.+newSendEventResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SendEventResponse+newSendEventResponse pHttpStatus_ =+  SendEventResponse'+    { absoluteTime = Prelude.Nothing,+      id = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time when the event was sent.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+sendEventResponse_absoluteTime :: Lens.Lens' SendEventResponse (Prelude.Maybe Prelude.Text)+sendEventResponse_absoluteTime = Lens.lens (\SendEventResponse' {absoluteTime} -> absoluteTime) (\s@SendEventResponse' {} a -> s {absoluteTime = a} :: SendEventResponse)++-- | The ID of the response.+sendEventResponse_id :: Lens.Lens' SendEventResponse (Prelude.Maybe Prelude.Text)+sendEventResponse_id = Lens.lens (\SendEventResponse' {id} -> id) (\s@SendEventResponse' {} a -> s {id = a} :: SendEventResponse)++-- | The response's http status code.+sendEventResponse_httpStatus :: Lens.Lens' SendEventResponse Prelude.Int+sendEventResponse_httpStatus = Lens.lens (\SendEventResponse' {httpStatus} -> httpStatus) (\s@SendEventResponse' {} a -> s {httpStatus = a} :: SendEventResponse)++instance Prelude.NFData SendEventResponse where+  rnf SendEventResponse' {..} =+    Prelude.rnf absoluteTime+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/SendMessage.hs view
@@ -0,0 +1,266 @@+{-# 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.ConnectParticipant.SendMessage+-- 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 a message.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.SendMessage+  ( -- * Creating a Request+    SendMessage (..),+    newSendMessage,++    -- * Request Lenses+    sendMessage_clientToken,+    sendMessage_contentType,+    sendMessage_content,+    sendMessage_connectionToken,++    -- * Destructuring the Response+    SendMessageResponse (..),+    newSendMessageResponse,++    -- * Response Lenses+    sendMessageResponse_absoluteTime,+    sendMessageResponse_id,+    sendMessageResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newSendMessage' smart constructor.+data SendMessage = SendMessage'+  { -- | A unique, case-sensitive identifier that you provide to ensure the+    -- idempotency of the request. If not provided, the Amazon Web Services SDK+    -- populates this field. For more information about idempotency, see+    -- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+    clientToken :: Prelude.Maybe Prelude.Text,+    -- | The type of the content. Supported types are @text\/plain@,+    -- @text\/markdown@, and @application\/json@.+    contentType :: Prelude.Text,+    -- | The content of the message.+    --+    -- -   For @text\/plain@ and @text\/markdown@, the Length Constraints are+    --     Minimum of 1, Maximum of 1024.+    --+    -- -   For @application\/json@, the Length Constraints are Minimum of 1,+    --     Maximum of 12000.+    content :: Prelude.Text,+    -- | The authentication token associated with the connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SendMessage' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientToken', 'sendMessage_clientToken' - A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+--+-- 'contentType', 'sendMessage_contentType' - The type of the content. Supported types are @text\/plain@,+-- @text\/markdown@, and @application\/json@.+--+-- 'content', 'sendMessage_content' - The content of the message.+--+-- -   For @text\/plain@ and @text\/markdown@, the Length Constraints are+--     Minimum of 1, Maximum of 1024.+--+-- -   For @application\/json@, the Length Constraints are Minimum of 1,+--     Maximum of 12000.+--+-- 'connectionToken', 'sendMessage_connectionToken' - The authentication token associated with the connection.+newSendMessage ::+  -- | 'contentType'+  Prelude.Text ->+  -- | 'content'+  Prelude.Text ->+  -- | 'connectionToken'+  Prelude.Text ->+  SendMessage+newSendMessage+  pContentType_+  pContent_+  pConnectionToken_ =+    SendMessage'+      { clientToken = Prelude.Nothing,+        contentType = pContentType_,+        content = pContent_,+        connectionToken = pConnectionToken_+      }++-- | A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+sendMessage_clientToken :: Lens.Lens' SendMessage (Prelude.Maybe Prelude.Text)+sendMessage_clientToken = Lens.lens (\SendMessage' {clientToken} -> clientToken) (\s@SendMessage' {} a -> s {clientToken = a} :: SendMessage)++-- | The type of the content. Supported types are @text\/plain@,+-- @text\/markdown@, and @application\/json@.+sendMessage_contentType :: Lens.Lens' SendMessage Prelude.Text+sendMessage_contentType = Lens.lens (\SendMessage' {contentType} -> contentType) (\s@SendMessage' {} a -> s {contentType = a} :: SendMessage)++-- | The content of the message.+--+-- -   For @text\/plain@ and @text\/markdown@, the Length Constraints are+--     Minimum of 1, Maximum of 1024.+--+-- -   For @application\/json@, the Length Constraints are Minimum of 1,+--     Maximum of 12000.+sendMessage_content :: Lens.Lens' SendMessage Prelude.Text+sendMessage_content = Lens.lens (\SendMessage' {content} -> content) (\s@SendMessage' {} a -> s {content = a} :: SendMessage)++-- | The authentication token associated with the connection.+sendMessage_connectionToken :: Lens.Lens' SendMessage Prelude.Text+sendMessage_connectionToken = Lens.lens (\SendMessage' {connectionToken} -> connectionToken) (\s@SendMessage' {} a -> s {connectionToken = a} :: SendMessage)++instance Core.AWSRequest SendMessage where+  type AWSResponse SendMessage = SendMessageResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          SendMessageResponse'+            Prelude.<$> (x Data..?> "AbsoluteTime")+            Prelude.<*> (x Data..?> "Id")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable SendMessage where+  hashWithSalt _salt SendMessage' {..} =+    _salt+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` content+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData SendMessage where+  rnf SendMessage' {..} =+    Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf content+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders SendMessage where+  toHeaders SendMessage' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON SendMessage where+  toJSON SendMessage' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ClientToken" Data..=) Prelude.<$> clientToken,+            Prelude.Just ("ContentType" Data..= contentType),+            Prelude.Just ("Content" Data..= content)+          ]+      )++instance Data.ToPath SendMessage where+  toPath = Prelude.const "/participant/message"++instance Data.ToQuery SendMessage where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newSendMessageResponse' smart constructor.+data SendMessageResponse = SendMessageResponse'+  { -- | The time when the message was sent.+    --+    -- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+    -- example, 2019-11-08T02:41:28.172Z.+    absoluteTime :: Prelude.Maybe Prelude.Text,+    -- | The ID of the message.+    id :: 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 'SendMessageResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'absoluteTime', 'sendMessageResponse_absoluteTime' - The time when the message was sent.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+--+-- 'id', 'sendMessageResponse_id' - The ID of the message.+--+-- 'httpStatus', 'sendMessageResponse_httpStatus' - The response's http status code.+newSendMessageResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SendMessageResponse+newSendMessageResponse pHttpStatus_ =+  SendMessageResponse'+    { absoluteTime =+        Prelude.Nothing,+      id = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The time when the message was sent.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+sendMessageResponse_absoluteTime :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)+sendMessageResponse_absoluteTime = Lens.lens (\SendMessageResponse' {absoluteTime} -> absoluteTime) (\s@SendMessageResponse' {} a -> s {absoluteTime = a} :: SendMessageResponse)++-- | The ID of the message.+sendMessageResponse_id :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)+sendMessageResponse_id = Lens.lens (\SendMessageResponse' {id} -> id) (\s@SendMessageResponse' {} a -> s {id = a} :: SendMessageResponse)++-- | The response's http status code.+sendMessageResponse_httpStatus :: Lens.Lens' SendMessageResponse Prelude.Int+sendMessageResponse_httpStatus = Lens.lens (\SendMessageResponse' {httpStatus} -> httpStatus) (\s@SendMessageResponse' {} a -> s {httpStatus = a} :: SendMessageResponse)++instance Prelude.NFData SendMessageResponse where+  rnf SendMessageResponse' {..} =+    Prelude.rnf absoluteTime+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/StartAttachmentUpload.hs view
@@ -0,0 +1,273 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.StartAttachmentUpload+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a pre-signed Amazon S3 URL in response for uploading the file+-- directly to S3.+--+-- @ConnectionToken@ is used for invoking this API instead of+-- @ParticipantToken@.+--+-- The Amazon Connect Participant Service APIs do not use+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 authentication>.+module Amazonka.ConnectParticipant.StartAttachmentUpload+  ( -- * Creating a Request+    StartAttachmentUpload (..),+    newStartAttachmentUpload,++    -- * Request Lenses+    startAttachmentUpload_contentType,+    startAttachmentUpload_attachmentSizeInBytes,+    startAttachmentUpload_attachmentName,+    startAttachmentUpload_clientToken,+    startAttachmentUpload_connectionToken,++    -- * Destructuring the Response+    StartAttachmentUploadResponse (..),+    newStartAttachmentUploadResponse,++    -- * Response Lenses+    startAttachmentUploadResponse_attachmentId,+    startAttachmentUploadResponse_uploadMetadata,+    startAttachmentUploadResponse_httpStatus,+  )+where++import Amazonka.ConnectParticipant.Types+import qualified Amazonka.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++-- | /See:/ 'newStartAttachmentUpload' smart constructor.+data StartAttachmentUpload = StartAttachmentUpload'+  { -- | Describes the MIME file type of the attachment. For a list of supported+    -- file types, see+    -- <https://docs.aws.amazon.com/connect/latest/adminguide/feature-limits.html Feature specifications>+    -- in the /Amazon Connect Administrator Guide/.+    contentType :: Prelude.Text,+    -- | The size of the attachment in bytes.+    attachmentSizeInBytes :: Prelude.Natural,+    -- | A case-sensitive name of the attachment being uploaded.+    attachmentName :: Prelude.Text,+    -- | A unique, case-sensitive identifier that you provide to ensure the+    -- idempotency of the request. If not provided, the Amazon Web Services SDK+    -- populates this field. For more information about idempotency, see+    -- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+    clientToken :: Prelude.Text,+    -- | The authentication token associated with the participant\'s connection.+    connectionToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartAttachmentUpload' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'contentType', 'startAttachmentUpload_contentType' - Describes the MIME file type of the attachment. For a list of supported+-- file types, see+-- <https://docs.aws.amazon.com/connect/latest/adminguide/feature-limits.html Feature specifications>+-- in the /Amazon Connect Administrator Guide/.+--+-- 'attachmentSizeInBytes', 'startAttachmentUpload_attachmentSizeInBytes' - The size of the attachment in bytes.+--+-- 'attachmentName', 'startAttachmentUpload_attachmentName' - A case-sensitive name of the attachment being uploaded.+--+-- 'clientToken', 'startAttachmentUpload_clientToken' - A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+--+-- 'connectionToken', 'startAttachmentUpload_connectionToken' - The authentication token associated with the participant\'s connection.+newStartAttachmentUpload ::+  -- | 'contentType'+  Prelude.Text ->+  -- | 'attachmentSizeInBytes'+  Prelude.Natural ->+  -- | 'attachmentName'+  Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  -- | 'connectionToken'+  Prelude.Text ->+  StartAttachmentUpload+newStartAttachmentUpload+  pContentType_+  pAttachmentSizeInBytes_+  pAttachmentName_+  pClientToken_+  pConnectionToken_ =+    StartAttachmentUpload'+      { contentType = pContentType_,+        attachmentSizeInBytes = pAttachmentSizeInBytes_,+        attachmentName = pAttachmentName_,+        clientToken = pClientToken_,+        connectionToken = pConnectionToken_+      }++-- | Describes the MIME file type of the attachment. For a list of supported+-- file types, see+-- <https://docs.aws.amazon.com/connect/latest/adminguide/feature-limits.html Feature specifications>+-- in the /Amazon Connect Administrator Guide/.+startAttachmentUpload_contentType :: Lens.Lens' StartAttachmentUpload Prelude.Text+startAttachmentUpload_contentType = Lens.lens (\StartAttachmentUpload' {contentType} -> contentType) (\s@StartAttachmentUpload' {} a -> s {contentType = a} :: StartAttachmentUpload)++-- | The size of the attachment in bytes.+startAttachmentUpload_attachmentSizeInBytes :: Lens.Lens' StartAttachmentUpload Prelude.Natural+startAttachmentUpload_attachmentSizeInBytes = Lens.lens (\StartAttachmentUpload' {attachmentSizeInBytes} -> attachmentSizeInBytes) (\s@StartAttachmentUpload' {} a -> s {attachmentSizeInBytes = a} :: StartAttachmentUpload)++-- | A case-sensitive name of the attachment being uploaded.+startAttachmentUpload_attachmentName :: Lens.Lens' StartAttachmentUpload Prelude.Text+startAttachmentUpload_attachmentName = Lens.lens (\StartAttachmentUpload' {attachmentName} -> attachmentName) (\s@StartAttachmentUpload' {} a -> s {attachmentName = a} :: StartAttachmentUpload)++-- | A unique, case-sensitive identifier that you provide to ensure the+-- idempotency of the request. If not provided, the Amazon Web Services SDK+-- populates this field. For more information about idempotency, see+-- <https://aws.amazon.com/builders-library/making-retries-safe-with-idempotent-APIs/ Making retries safe with idempotent APIs>.+startAttachmentUpload_clientToken :: Lens.Lens' StartAttachmentUpload Prelude.Text+startAttachmentUpload_clientToken = Lens.lens (\StartAttachmentUpload' {clientToken} -> clientToken) (\s@StartAttachmentUpload' {} a -> s {clientToken = a} :: StartAttachmentUpload)++-- | The authentication token associated with the participant\'s connection.+startAttachmentUpload_connectionToken :: Lens.Lens' StartAttachmentUpload Prelude.Text+startAttachmentUpload_connectionToken = Lens.lens (\StartAttachmentUpload' {connectionToken} -> connectionToken) (\s@StartAttachmentUpload' {} a -> s {connectionToken = a} :: StartAttachmentUpload)++instance Core.AWSRequest StartAttachmentUpload where+  type+    AWSResponse StartAttachmentUpload =+      StartAttachmentUploadResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartAttachmentUploadResponse'+            Prelude.<$> (x Data..?> "AttachmentId")+            Prelude.<*> (x Data..?> "UploadMetadata")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartAttachmentUpload where+  hashWithSalt _salt StartAttachmentUpload' {..} =+    _salt+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` attachmentSizeInBytes+      `Prelude.hashWithSalt` attachmentName+      `Prelude.hashWithSalt` clientToken+      `Prelude.hashWithSalt` connectionToken++instance Prelude.NFData StartAttachmentUpload where+  rnf StartAttachmentUpload' {..} =+    Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf attachmentSizeInBytes+      `Prelude.seq` Prelude.rnf attachmentName+      `Prelude.seq` Prelude.rnf clientToken+      `Prelude.seq` Prelude.rnf connectionToken++instance Data.ToHeaders StartAttachmentUpload where+  toHeaders StartAttachmentUpload' {..} =+    Prelude.mconcat+      [ "X-Amz-Bearer" Data.=# connectionToken,+        "Content-Type"+          Data.=# ("application/x-amz-json-1.1" :: Prelude.ByteString)+      ]++instance Data.ToJSON StartAttachmentUpload where+  toJSON StartAttachmentUpload' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ContentType" Data..= contentType),+            Prelude.Just+              ( "AttachmentSizeInBytes"+                  Data..= attachmentSizeInBytes+              ),+            Prelude.Just+              ("AttachmentName" Data..= attachmentName),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath StartAttachmentUpload where+  toPath =+    Prelude.const+      "/participant/start-attachment-upload"++instance Data.ToQuery StartAttachmentUpload where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartAttachmentUploadResponse' smart constructor.+data StartAttachmentUploadResponse = StartAttachmentUploadResponse'+  { -- | A unique identifier for the attachment.+    attachmentId :: Prelude.Maybe Prelude.Text,+    -- | Fields to be used while uploading the attachment.+    uploadMetadata :: Prelude.Maybe UploadMetadata,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartAttachmentUploadResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentId', 'startAttachmentUploadResponse_attachmentId' - A unique identifier for the attachment.+--+-- 'uploadMetadata', 'startAttachmentUploadResponse_uploadMetadata' - Fields to be used while uploading the attachment.+--+-- 'httpStatus', 'startAttachmentUploadResponse_httpStatus' - The response's http status code.+newStartAttachmentUploadResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartAttachmentUploadResponse+newStartAttachmentUploadResponse pHttpStatus_ =+  StartAttachmentUploadResponse'+    { attachmentId =+        Prelude.Nothing,+      uploadMetadata = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A unique identifier for the attachment.+startAttachmentUploadResponse_attachmentId :: Lens.Lens' StartAttachmentUploadResponse (Prelude.Maybe Prelude.Text)+startAttachmentUploadResponse_attachmentId = Lens.lens (\StartAttachmentUploadResponse' {attachmentId} -> attachmentId) (\s@StartAttachmentUploadResponse' {} a -> s {attachmentId = a} :: StartAttachmentUploadResponse)++-- | Fields to be used while uploading the attachment.+startAttachmentUploadResponse_uploadMetadata :: Lens.Lens' StartAttachmentUploadResponse (Prelude.Maybe UploadMetadata)+startAttachmentUploadResponse_uploadMetadata = Lens.lens (\StartAttachmentUploadResponse' {uploadMetadata} -> uploadMetadata) (\s@StartAttachmentUploadResponse' {} a -> s {uploadMetadata = a} :: StartAttachmentUploadResponse)++-- | The response's http status code.+startAttachmentUploadResponse_httpStatus :: Lens.Lens' StartAttachmentUploadResponse Prelude.Int+startAttachmentUploadResponse_httpStatus = Lens.lens (\StartAttachmentUploadResponse' {httpStatus} -> httpStatus) (\s@StartAttachmentUploadResponse' {} a -> s {httpStatus = a} :: StartAttachmentUploadResponse)++instance Prelude.NFData StartAttachmentUploadResponse where+  rnf StartAttachmentUploadResponse' {..} =+    Prelude.rnf attachmentId+      `Prelude.seq` Prelude.rnf uploadMetadata+      `Prelude.seq` Prelude.rnf httpStatus
+ gen/Amazonka/ConnectParticipant/Types.hs view
@@ -0,0 +1,246 @@+{-# 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.ConnectParticipant.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.ConnectParticipant.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AccessDeniedException,+    _ConflictException,+    _InternalServerException,+    _ServiceQuotaExceededException,+    _ThrottlingException,+    _ValidationException,++    -- * ArtifactStatus+    ArtifactStatus (..),++    -- * ChatItemType+    ChatItemType (..),++    -- * ConnectionType+    ConnectionType (..),++    -- * ParticipantRole+    ParticipantRole (..),++    -- * ScanDirection+    ScanDirection (..),++    -- * SortKey+    SortKey (..),++    -- * AttachmentItem+    AttachmentItem (..),+    newAttachmentItem,+    attachmentItem_attachmentId,+    attachmentItem_attachmentName,+    attachmentItem_contentType,+    attachmentItem_status,++    -- * ConnectionCredentials+    ConnectionCredentials (..),+    newConnectionCredentials,+    connectionCredentials_connectionToken,+    connectionCredentials_expiry,++    -- * Item+    Item (..),+    newItem,+    item_absoluteTime,+    item_attachments,+    item_content,+    item_contentType,+    item_displayName,+    item_id,+    item_messageMetadata,+    item_participantId,+    item_participantRole,+    item_type,++    -- * MessageMetadata+    MessageMetadata (..),+    newMessageMetadata,+    messageMetadata_messageId,+    messageMetadata_receipts,++    -- * Receipt+    Receipt (..),+    newReceipt,+    receipt_deliveredTimestamp,+    receipt_readTimestamp,+    receipt_recipientParticipantId,++    -- * StartPosition+    StartPosition (..),+    newStartPosition,+    startPosition_absoluteTime,+    startPosition_id,+    startPosition_mostRecent,++    -- * UploadMetadata+    UploadMetadata (..),+    newUploadMetadata,+    uploadMetadata_headersToInclude,+    uploadMetadata_url,+    uploadMetadata_urlExpiry,++    -- * Websocket+    Websocket (..),+    newWebsocket,+    websocket_connectionExpiry,+    websocket_url,+  )+where++import Amazonka.ConnectParticipant.Types.ArtifactStatus+import Amazonka.ConnectParticipant.Types.AttachmentItem+import Amazonka.ConnectParticipant.Types.ChatItemType+import Amazonka.ConnectParticipant.Types.ConnectionCredentials+import Amazonka.ConnectParticipant.Types.ConnectionType+import Amazonka.ConnectParticipant.Types.Item+import Amazonka.ConnectParticipant.Types.MessageMetadata+import Amazonka.ConnectParticipant.Types.ParticipantRole+import Amazonka.ConnectParticipant.Types.Receipt+import Amazonka.ConnectParticipant.Types.ScanDirection+import Amazonka.ConnectParticipant.Types.SortKey+import Amazonka.ConnectParticipant.Types.StartPosition+import Amazonka.ConnectParticipant.Types.UploadMetadata+import Amazonka.ConnectParticipant.Types.Websocket+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2018-09-07@ of the Amazon Connect Participant Service SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "ConnectParticipant",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "participant.connect",+      Core.signingName = "execute-api",+      Core.version = "2018-09-07",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error =+        Core.parseJSONError "ConnectParticipant",+      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 do not have sufficient access to perform this action.+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessDeniedException =+  Core._MatchServiceError+    defaultService+    "AccessDeniedException"+    Prelude.. Core.hasStatus 403++-- | An attachment with that identifier is already being uploaded.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"+    Prelude.. Core.hasStatus 409++-- | This exception occurs when there is an internal failure in the Amazon+-- Connect service.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"+    Prelude.. Core.hasStatus 500++-- | The number of attachments per contact exceeds the quota.+_ServiceQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceQuotaExceededException =+  Core._MatchServiceError+    defaultService+    "ServiceQuotaExceededException"+    Prelude.. Core.hasStatus 402++-- | The request was denied due to request throttling.+_ThrottlingException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ThrottlingException =+  Core._MatchServiceError+    defaultService+    "ThrottlingException"+    Prelude.. Core.hasStatus 429++-- | The input fails to satisfy the constraints specified by Amazon Connect.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"+    Prelude.. Core.hasStatus 400
+ gen/Amazonka/ConnectParticipant/Types/ArtifactStatus.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.ConnectParticipant.Types.ArtifactStatus+-- 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.ConnectParticipant.Types.ArtifactStatus+  ( ArtifactStatus+      ( ..,+        ArtifactStatus_APPROVED,+        ArtifactStatus_IN_PROGRESS,+        ArtifactStatus_REJECTED+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ArtifactStatus = ArtifactStatus'+  { fromArtifactStatus ::+      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 ArtifactStatus_APPROVED :: ArtifactStatus+pattern ArtifactStatus_APPROVED = ArtifactStatus' "APPROVED"++pattern ArtifactStatus_IN_PROGRESS :: ArtifactStatus+pattern ArtifactStatus_IN_PROGRESS = ArtifactStatus' "IN_PROGRESS"++pattern ArtifactStatus_REJECTED :: ArtifactStatus+pattern ArtifactStatus_REJECTED = ArtifactStatus' "REJECTED"++{-# COMPLETE+  ArtifactStatus_APPROVED,+  ArtifactStatus_IN_PROGRESS,+  ArtifactStatus_REJECTED,+  ArtifactStatus'+  #-}
+ gen/Amazonka/ConnectParticipant/Types/AttachmentItem.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.ConnectParticipant.Types.AttachmentItem+-- 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.ConnectParticipant.Types.AttachmentItem where++import Amazonka.ConnectParticipant.Types.ArtifactStatus+import qualified 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 case-insensitive input to indicate standard MIME type that describes+-- the format of the file that will be uploaded.+--+-- /See:/ 'newAttachmentItem' smart constructor.+data AttachmentItem = AttachmentItem'+  { -- | A unique identifier for the attachment.+    attachmentId :: Prelude.Maybe Prelude.Text,+    -- | A case-sensitive name of the attachment being uploaded.+    attachmentName :: Prelude.Maybe Prelude.Text,+    -- | Describes the MIME file type of the attachment. For a list of supported+    -- file types, see+    -- <https://docs.aws.amazon.com/connect/latest/adminguide/feature-limits.html Feature specifications>+    -- in the /Amazon Connect Administrator Guide/.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | Status of the attachment.+    status :: Prelude.Maybe ArtifactStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AttachmentItem' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attachmentId', 'attachmentItem_attachmentId' - A unique identifier for the attachment.+--+-- 'attachmentName', 'attachmentItem_attachmentName' - A case-sensitive name of the attachment being uploaded.+--+-- 'contentType', 'attachmentItem_contentType' - Describes the MIME file type of the attachment. For a list of supported+-- file types, see+-- <https://docs.aws.amazon.com/connect/latest/adminguide/feature-limits.html Feature specifications>+-- in the /Amazon Connect Administrator Guide/.+--+-- 'status', 'attachmentItem_status' - Status of the attachment.+newAttachmentItem ::+  AttachmentItem+newAttachmentItem =+  AttachmentItem'+    { attachmentId = Prelude.Nothing,+      attachmentName = Prelude.Nothing,+      contentType = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | A unique identifier for the attachment.+attachmentItem_attachmentId :: Lens.Lens' AttachmentItem (Prelude.Maybe Prelude.Text)+attachmentItem_attachmentId = Lens.lens (\AttachmentItem' {attachmentId} -> attachmentId) (\s@AttachmentItem' {} a -> s {attachmentId = a} :: AttachmentItem)++-- | A case-sensitive name of the attachment being uploaded.+attachmentItem_attachmentName :: Lens.Lens' AttachmentItem (Prelude.Maybe Prelude.Text)+attachmentItem_attachmentName = Lens.lens (\AttachmentItem' {attachmentName} -> attachmentName) (\s@AttachmentItem' {} a -> s {attachmentName = a} :: AttachmentItem)++-- | Describes the MIME file type of the attachment. For a list of supported+-- file types, see+-- <https://docs.aws.amazon.com/connect/latest/adminguide/feature-limits.html Feature specifications>+-- in the /Amazon Connect Administrator Guide/.+attachmentItem_contentType :: Lens.Lens' AttachmentItem (Prelude.Maybe Prelude.Text)+attachmentItem_contentType = Lens.lens (\AttachmentItem' {contentType} -> contentType) (\s@AttachmentItem' {} a -> s {contentType = a} :: AttachmentItem)++-- | Status of the attachment.+attachmentItem_status :: Lens.Lens' AttachmentItem (Prelude.Maybe ArtifactStatus)+attachmentItem_status = Lens.lens (\AttachmentItem' {status} -> status) (\s@AttachmentItem' {} a -> s {status = a} :: AttachmentItem)++instance Data.FromJSON AttachmentItem where+  parseJSON =+    Data.withObject+      "AttachmentItem"+      ( \x ->+          AttachmentItem'+            Prelude.<$> (x Data..:? "AttachmentId")+            Prelude.<*> (x Data..:? "AttachmentName")+            Prelude.<*> (x Data..:? "ContentType")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable AttachmentItem where+  hashWithSalt _salt AttachmentItem' {..} =+    _salt+      `Prelude.hashWithSalt` attachmentId+      `Prelude.hashWithSalt` attachmentName+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` status++instance Prelude.NFData AttachmentItem where+  rnf AttachmentItem' {..} =+    Prelude.rnf attachmentId+      `Prelude.seq` Prelude.rnf attachmentName+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf status
+ gen/Amazonka/ConnectParticipant/Types/ChatItemType.hs view
@@ -0,0 +1,121 @@+{-# 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.ConnectParticipant.Types.ChatItemType+-- 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.ConnectParticipant.Types.ChatItemType+  ( ChatItemType+      ( ..,+        ChatItemType_ATTACHMENT,+        ChatItemType_CHAT_ENDED,+        ChatItemType_CONNECTION_ACK,+        ChatItemType_EVENT,+        ChatItemType_MESSAGE,+        ChatItemType_MESSAGE_DELIVERED,+        ChatItemType_MESSAGE_READ,+        ChatItemType_PARTICIPANT_JOINED,+        ChatItemType_PARTICIPANT_LEFT,+        ChatItemType_TRANSFER_FAILED,+        ChatItemType_TRANSFER_SUCCEEDED,+        ChatItemType_TYPING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ChatItemType = ChatItemType'+  { fromChatItemType ::+      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 ChatItemType_ATTACHMENT :: ChatItemType+pattern ChatItemType_ATTACHMENT = ChatItemType' "ATTACHMENT"++pattern ChatItemType_CHAT_ENDED :: ChatItemType+pattern ChatItemType_CHAT_ENDED = ChatItemType' "CHAT_ENDED"++pattern ChatItemType_CONNECTION_ACK :: ChatItemType+pattern ChatItemType_CONNECTION_ACK = ChatItemType' "CONNECTION_ACK"++pattern ChatItemType_EVENT :: ChatItemType+pattern ChatItemType_EVENT = ChatItemType' "EVENT"++pattern ChatItemType_MESSAGE :: ChatItemType+pattern ChatItemType_MESSAGE = ChatItemType' "MESSAGE"++pattern ChatItemType_MESSAGE_DELIVERED :: ChatItemType+pattern ChatItemType_MESSAGE_DELIVERED = ChatItemType' "MESSAGE_DELIVERED"++pattern ChatItemType_MESSAGE_READ :: ChatItemType+pattern ChatItemType_MESSAGE_READ = ChatItemType' "MESSAGE_READ"++pattern ChatItemType_PARTICIPANT_JOINED :: ChatItemType+pattern ChatItemType_PARTICIPANT_JOINED = ChatItemType' "PARTICIPANT_JOINED"++pattern ChatItemType_PARTICIPANT_LEFT :: ChatItemType+pattern ChatItemType_PARTICIPANT_LEFT = ChatItemType' "PARTICIPANT_LEFT"++pattern ChatItemType_TRANSFER_FAILED :: ChatItemType+pattern ChatItemType_TRANSFER_FAILED = ChatItemType' "TRANSFER_FAILED"++pattern ChatItemType_TRANSFER_SUCCEEDED :: ChatItemType+pattern ChatItemType_TRANSFER_SUCCEEDED = ChatItemType' "TRANSFER_SUCCEEDED"++pattern ChatItemType_TYPING :: ChatItemType+pattern ChatItemType_TYPING = ChatItemType' "TYPING"++{-# COMPLETE+  ChatItemType_ATTACHMENT,+  ChatItemType_CHAT_ENDED,+  ChatItemType_CONNECTION_ACK,+  ChatItemType_EVENT,+  ChatItemType_MESSAGE,+  ChatItemType_MESSAGE_DELIVERED,+  ChatItemType_MESSAGE_READ,+  ChatItemType_PARTICIPANT_JOINED,+  ChatItemType_PARTICIPANT_LEFT,+  ChatItemType_TRANSFER_FAILED,+  ChatItemType_TRANSFER_SUCCEEDED,+  ChatItemType_TYPING,+  ChatItemType'+  #-}
+ gen/Amazonka/ConnectParticipant/Types/ConnectionCredentials.hs view
@@ -0,0 +1,94 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.Types.ConnectionCredentials+-- 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.ConnectParticipant.Types.ConnectionCredentials where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Connection credentials.+--+-- /See:/ 'newConnectionCredentials' smart constructor.+data ConnectionCredentials = ConnectionCredentials'+  { -- | The connection token.+    connectionToken :: Prelude.Maybe Prelude.Text,+    -- | The expiration of the token.+    --+    -- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+    -- example, 2019-11-08T02:41:28.172Z.+    expiry :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConnectionCredentials' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'connectionToken', 'connectionCredentials_connectionToken' - The connection token.+--+-- 'expiry', 'connectionCredentials_expiry' - The expiration of the token.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+newConnectionCredentials ::+  ConnectionCredentials+newConnectionCredentials =+  ConnectionCredentials'+    { connectionToken =+        Prelude.Nothing,+      expiry = Prelude.Nothing+    }++-- | The connection token.+connectionCredentials_connectionToken :: Lens.Lens' ConnectionCredentials (Prelude.Maybe Prelude.Text)+connectionCredentials_connectionToken = Lens.lens (\ConnectionCredentials' {connectionToken} -> connectionToken) (\s@ConnectionCredentials' {} a -> s {connectionToken = a} :: ConnectionCredentials)++-- | The expiration of the token.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+connectionCredentials_expiry :: Lens.Lens' ConnectionCredentials (Prelude.Maybe Prelude.Text)+connectionCredentials_expiry = Lens.lens (\ConnectionCredentials' {expiry} -> expiry) (\s@ConnectionCredentials' {} a -> s {expiry = a} :: ConnectionCredentials)++instance Data.FromJSON ConnectionCredentials where+  parseJSON =+    Data.withObject+      "ConnectionCredentials"+      ( \x ->+          ConnectionCredentials'+            Prelude.<$> (x Data..:? "ConnectionToken")+            Prelude.<*> (x Data..:? "Expiry")+      )++instance Prelude.Hashable ConnectionCredentials where+  hashWithSalt _salt ConnectionCredentials' {..} =+    _salt+      `Prelude.hashWithSalt` connectionToken+      `Prelude.hashWithSalt` expiry++instance Prelude.NFData ConnectionCredentials where+  rnf ConnectionCredentials' {..} =+    Prelude.rnf connectionToken+      `Prelude.seq` Prelude.rnf expiry
+ gen/Amazonka/ConnectParticipant/Types/ConnectionType.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.ConnectParticipant.Types.ConnectionType+-- 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.ConnectParticipant.Types.ConnectionType+  ( ConnectionType+      ( ..,+        ConnectionType_CONNECTION_CREDENTIALS,+        ConnectionType_WEBSOCKET+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ConnectionType = ConnectionType'+  { fromConnectionType ::+      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 ConnectionType_CONNECTION_CREDENTIALS :: ConnectionType+pattern ConnectionType_CONNECTION_CREDENTIALS = ConnectionType' "CONNECTION_CREDENTIALS"++pattern ConnectionType_WEBSOCKET :: ConnectionType+pattern ConnectionType_WEBSOCKET = ConnectionType' "WEBSOCKET"++{-# COMPLETE+  ConnectionType_CONNECTION_CREDENTIALS,+  ConnectionType_WEBSOCKET,+  ConnectionType'+  #-}
+ gen/Amazonka/ConnectParticipant/Types/Item.hs view
@@ -0,0 +1,196 @@+{-# 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.ConnectParticipant.Types.Item+-- 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.ConnectParticipant.Types.Item where++import Amazonka.ConnectParticipant.Types.AttachmentItem+import Amazonka.ConnectParticipant.Types.ChatItemType+import Amazonka.ConnectParticipant.Types.MessageMetadata+import Amazonka.ConnectParticipant.Types.ParticipantRole+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | An item - message or event - that has been sent.+--+-- /See:/ 'newItem' smart constructor.+data Item = Item'+  { -- | The time when the message or event was sent.+    --+    -- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+    -- example, 2019-11-08T02:41:28.172Z.+    absoluteTime :: Prelude.Maybe Prelude.Text,+    -- | Provides information about the attachments.+    attachments :: Prelude.Maybe [AttachmentItem],+    -- | The content of the message or event.+    content :: Prelude.Maybe Prelude.Text,+    -- | The type of content of the item.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | The chat display name of the sender.+    displayName :: Prelude.Maybe Prelude.Text,+    -- | The ID of the item.+    id :: Prelude.Maybe Prelude.Text,+    -- | The metadata related to the message. Currently this supports only+    -- information related to message receipts.+    messageMetadata :: Prelude.Maybe MessageMetadata,+    -- | The ID of the sender in the session.+    participantId :: Prelude.Maybe Prelude.Text,+    -- | The role of the sender. For example, is it a customer, agent, or system.+    participantRole :: Prelude.Maybe ParticipantRole,+    -- | Type of the item: message or event.+    type' :: Prelude.Maybe ChatItemType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Item' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'absoluteTime', 'item_absoluteTime' - The time when the message or event was sent.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+--+-- 'attachments', 'item_attachments' - Provides information about the attachments.+--+-- 'content', 'item_content' - The content of the message or event.+--+-- 'contentType', 'item_contentType' - The type of content of the item.+--+-- 'displayName', 'item_displayName' - The chat display name of the sender.+--+-- 'id', 'item_id' - The ID of the item.+--+-- 'messageMetadata', 'item_messageMetadata' - The metadata related to the message. Currently this supports only+-- information related to message receipts.+--+-- 'participantId', 'item_participantId' - The ID of the sender in the session.+--+-- 'participantRole', 'item_participantRole' - The role of the sender. For example, is it a customer, agent, or system.+--+-- 'type'', 'item_type' - Type of the item: message or event.+newItem ::+  Item+newItem =+  Item'+    { absoluteTime = Prelude.Nothing,+      attachments = Prelude.Nothing,+      content = Prelude.Nothing,+      contentType = Prelude.Nothing,+      displayName = Prelude.Nothing,+      id = Prelude.Nothing,+      messageMetadata = Prelude.Nothing,+      participantId = Prelude.Nothing,+      participantRole = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The time when the message or event was sent.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+item_absoluteTime :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_absoluteTime = Lens.lens (\Item' {absoluteTime} -> absoluteTime) (\s@Item' {} a -> s {absoluteTime = a} :: Item)++-- | Provides information about the attachments.+item_attachments :: Lens.Lens' Item (Prelude.Maybe [AttachmentItem])+item_attachments = Lens.lens (\Item' {attachments} -> attachments) (\s@Item' {} a -> s {attachments = a} :: Item) Prelude.. Lens.mapping Lens.coerced++-- | The content of the message or event.+item_content :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_content = Lens.lens (\Item' {content} -> content) (\s@Item' {} a -> s {content = a} :: Item)++-- | The type of content of the item.+item_contentType :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_contentType = Lens.lens (\Item' {contentType} -> contentType) (\s@Item' {} a -> s {contentType = a} :: Item)++-- | The chat display name of the sender.+item_displayName :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_displayName = Lens.lens (\Item' {displayName} -> displayName) (\s@Item' {} a -> s {displayName = a} :: Item)++-- | The ID of the item.+item_id :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_id = Lens.lens (\Item' {id} -> id) (\s@Item' {} a -> s {id = a} :: Item)++-- | The metadata related to the message. Currently this supports only+-- information related to message receipts.+item_messageMetadata :: Lens.Lens' Item (Prelude.Maybe MessageMetadata)+item_messageMetadata = Lens.lens (\Item' {messageMetadata} -> messageMetadata) (\s@Item' {} a -> s {messageMetadata = a} :: Item)++-- | The ID of the sender in the session.+item_participantId :: Lens.Lens' Item (Prelude.Maybe Prelude.Text)+item_participantId = Lens.lens (\Item' {participantId} -> participantId) (\s@Item' {} a -> s {participantId = a} :: Item)++-- | The role of the sender. For example, is it a customer, agent, or system.+item_participantRole :: Lens.Lens' Item (Prelude.Maybe ParticipantRole)+item_participantRole = Lens.lens (\Item' {participantRole} -> participantRole) (\s@Item' {} a -> s {participantRole = a} :: Item)++-- | Type of the item: message or event.+item_type :: Lens.Lens' Item (Prelude.Maybe ChatItemType)+item_type = Lens.lens (\Item' {type'} -> type') (\s@Item' {} a -> s {type' = a} :: Item)++instance Data.FromJSON Item where+  parseJSON =+    Data.withObject+      "Item"+      ( \x ->+          Item'+            Prelude.<$> (x Data..:? "AbsoluteTime")+            Prelude.<*> (x Data..:? "Attachments" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "Content")+            Prelude.<*> (x Data..:? "ContentType")+            Prelude.<*> (x Data..:? "DisplayName")+            Prelude.<*> (x Data..:? "Id")+            Prelude.<*> (x Data..:? "MessageMetadata")+            Prelude.<*> (x Data..:? "ParticipantId")+            Prelude.<*> (x Data..:? "ParticipantRole")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable Item where+  hashWithSalt _salt Item' {..} =+    _salt+      `Prelude.hashWithSalt` absoluteTime+      `Prelude.hashWithSalt` attachments+      `Prelude.hashWithSalt` content+      `Prelude.hashWithSalt` contentType+      `Prelude.hashWithSalt` displayName+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` messageMetadata+      `Prelude.hashWithSalt` participantId+      `Prelude.hashWithSalt` participantRole+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Item where+  rnf Item' {..} =+    Prelude.rnf absoluteTime+      `Prelude.seq` Prelude.rnf attachments+      `Prelude.seq` Prelude.rnf content+      `Prelude.seq` Prelude.rnf contentType+      `Prelude.seq` Prelude.rnf displayName+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf messageMetadata+      `Prelude.seq` Prelude.rnf participantId+      `Prelude.seq` Prelude.rnf participantRole+      `Prelude.seq` Prelude.rnf type'
+ gen/Amazonka/ConnectParticipant/Types/MessageMetadata.hs view
@@ -0,0 +1,85 @@+{-# 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.ConnectParticipant.Types.MessageMetadata+-- 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.ConnectParticipant.Types.MessageMetadata where++import Amazonka.ConnectParticipant.Types.Receipt+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains metadata related to a message.+--+-- /See:/ 'newMessageMetadata' smart constructor.+data MessageMetadata = MessageMetadata'+  { -- | The identifier of the message that contains the metadata information.+    messageId :: Prelude.Maybe Prelude.Text,+    -- | The list of receipt information for a message for different recipients.+    receipts :: Prelude.Maybe [Receipt]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MessageMetadata' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'messageId', 'messageMetadata_messageId' - The identifier of the message that contains the metadata information.+--+-- 'receipts', 'messageMetadata_receipts' - The list of receipt information for a message for different recipients.+newMessageMetadata ::+  MessageMetadata+newMessageMetadata =+  MessageMetadata'+    { messageId = Prelude.Nothing,+      receipts = Prelude.Nothing+    }++-- | The identifier of the message that contains the metadata information.+messageMetadata_messageId :: Lens.Lens' MessageMetadata (Prelude.Maybe Prelude.Text)+messageMetadata_messageId = Lens.lens (\MessageMetadata' {messageId} -> messageId) (\s@MessageMetadata' {} a -> s {messageId = a} :: MessageMetadata)++-- | The list of receipt information for a message for different recipients.+messageMetadata_receipts :: Lens.Lens' MessageMetadata (Prelude.Maybe [Receipt])+messageMetadata_receipts = Lens.lens (\MessageMetadata' {receipts} -> receipts) (\s@MessageMetadata' {} a -> s {receipts = a} :: MessageMetadata) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON MessageMetadata where+  parseJSON =+    Data.withObject+      "MessageMetadata"+      ( \x ->+          MessageMetadata'+            Prelude.<$> (x Data..:? "MessageId")+            Prelude.<*> (x Data..:? "Receipts" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable MessageMetadata where+  hashWithSalt _salt MessageMetadata' {..} =+    _salt+      `Prelude.hashWithSalt` messageId+      `Prelude.hashWithSalt` receipts++instance Prelude.NFData MessageMetadata where+  rnf MessageMetadata' {..} =+    Prelude.rnf messageId+      `Prelude.seq` Prelude.rnf receipts
+ gen/Amazonka/ConnectParticipant/Types/ParticipantRole.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.ConnectParticipant.Types.ParticipantRole+-- 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.ConnectParticipant.Types.ParticipantRole+  ( ParticipantRole+      ( ..,+        ParticipantRole_AGENT,+        ParticipantRole_CUSTOMER,+        ParticipantRole_SYSTEM+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ParticipantRole = ParticipantRole'+  { fromParticipantRole ::+      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 ParticipantRole_AGENT :: ParticipantRole+pattern ParticipantRole_AGENT = ParticipantRole' "AGENT"++pattern ParticipantRole_CUSTOMER :: ParticipantRole+pattern ParticipantRole_CUSTOMER = ParticipantRole' "CUSTOMER"++pattern ParticipantRole_SYSTEM :: ParticipantRole+pattern ParticipantRole_SYSTEM = ParticipantRole' "SYSTEM"++{-# COMPLETE+  ParticipantRole_AGENT,+  ParticipantRole_CUSTOMER,+  ParticipantRole_SYSTEM,+  ParticipantRole'+  #-}
+ gen/Amazonka/ConnectParticipant/Types/Receipt.hs view
@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.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.ConnectParticipant.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++-- | The receipt for the message delivered to the recipient.+--+-- /See:/ 'newReceipt' smart constructor.+data Receipt = Receipt'+  { -- | The time when the message was delivered to the recipient.+    deliveredTimestamp :: Prelude.Maybe Prelude.Text,+    -- | The time when the message was read by the recipient.+    readTimestamp :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the recipient of the message.+    recipientParticipantId :: Prelude.Maybe Prelude.Text+  }+  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:+--+-- 'deliveredTimestamp', 'receipt_deliveredTimestamp' - The time when the message was delivered to the recipient.+--+-- 'readTimestamp', 'receipt_readTimestamp' - The time when the message was read by the recipient.+--+-- 'recipientParticipantId', 'receipt_recipientParticipantId' - The identifier of the recipient of the message.+newReceipt ::+  Receipt+newReceipt =+  Receipt'+    { deliveredTimestamp = Prelude.Nothing,+      readTimestamp = Prelude.Nothing,+      recipientParticipantId = Prelude.Nothing+    }++-- | The time when the message was delivered to the recipient.+receipt_deliveredTimestamp :: Lens.Lens' Receipt (Prelude.Maybe Prelude.Text)+receipt_deliveredTimestamp = Lens.lens (\Receipt' {deliveredTimestamp} -> deliveredTimestamp) (\s@Receipt' {} a -> s {deliveredTimestamp = a} :: Receipt)++-- | The time when the message was read by the recipient.+receipt_readTimestamp :: Lens.Lens' Receipt (Prelude.Maybe Prelude.Text)+receipt_readTimestamp = Lens.lens (\Receipt' {readTimestamp} -> readTimestamp) (\s@Receipt' {} a -> s {readTimestamp = a} :: Receipt)++-- | The identifier of the recipient of the message.+receipt_recipientParticipantId :: Lens.Lens' Receipt (Prelude.Maybe Prelude.Text)+receipt_recipientParticipantId = Lens.lens (\Receipt' {recipientParticipantId} -> recipientParticipantId) (\s@Receipt' {} a -> s {recipientParticipantId = a} :: Receipt)++instance Data.FromJSON Receipt where+  parseJSON =+    Data.withObject+      "Receipt"+      ( \x ->+          Receipt'+            Prelude.<$> (x Data..:? "DeliveredTimestamp")+            Prelude.<*> (x Data..:? "ReadTimestamp")+            Prelude.<*> (x Data..:? "RecipientParticipantId")+      )++instance Prelude.Hashable Receipt where+  hashWithSalt _salt Receipt' {..} =+    _salt+      `Prelude.hashWithSalt` deliveredTimestamp+      `Prelude.hashWithSalt` readTimestamp+      `Prelude.hashWithSalt` recipientParticipantId++instance Prelude.NFData Receipt where+  rnf Receipt' {..} =+    Prelude.rnf deliveredTimestamp+      `Prelude.seq` Prelude.rnf readTimestamp+      `Prelude.seq` Prelude.rnf recipientParticipantId
+ gen/Amazonka/ConnectParticipant/Types/ScanDirection.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.ConnectParticipant.Types.ScanDirection+-- 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.ConnectParticipant.Types.ScanDirection+  ( ScanDirection+      ( ..,+        ScanDirection_BACKWARD,+        ScanDirection_FORWARD+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ScanDirection = ScanDirection'+  { fromScanDirection ::+      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 ScanDirection_BACKWARD :: ScanDirection+pattern ScanDirection_BACKWARD = ScanDirection' "BACKWARD"++pattern ScanDirection_FORWARD :: ScanDirection+pattern ScanDirection_FORWARD = ScanDirection' "FORWARD"++{-# COMPLETE+  ScanDirection_BACKWARD,+  ScanDirection_FORWARD,+  ScanDirection'+  #-}
+ gen/Amazonka/ConnectParticipant/Types/SortKey.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.Types.SortKey+-- 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.ConnectParticipant.Types.SortKey+  ( SortKey+      ( ..,+        SortKey_ASCENDING,+        SortKey_DESCENDING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SortKey = SortKey' {fromSortKey :: 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 SortKey_ASCENDING :: SortKey+pattern SortKey_ASCENDING = SortKey' "ASCENDING"++pattern SortKey_DESCENDING :: SortKey+pattern SortKey_DESCENDING = SortKey' "DESCENDING"++{-# COMPLETE+  SortKey_ASCENDING,+  SortKey_DESCENDING,+  SortKey'+  #-}
+ gen/Amazonka/ConnectParticipant/Types/StartPosition.hs view
@@ -0,0 +1,105 @@+{-# 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.ConnectParticipant.Types.StartPosition+-- 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.ConnectParticipant.Types.StartPosition where++import qualified 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 filtering option for where to start. For example, if you sent 100+-- messages, start with message 50.+--+-- /See:/ 'newStartPosition' smart constructor.+data StartPosition = StartPosition'+  { -- | The time in ISO format where to start.+    --+    -- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+    -- example, 2019-11-08T02:41:28.172Z.+    absoluteTime :: Prelude.Maybe Prelude.Text,+    -- | The ID of the message or event where to start.+    id :: Prelude.Maybe Prelude.Text,+    -- | The start position of the most recent message where you want to start.+    mostRecent :: Prelude.Maybe Prelude.Natural+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartPosition' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'absoluteTime', 'startPosition_absoluteTime' - The time in ISO format where to start.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+--+-- 'id', 'startPosition_id' - The ID of the message or event where to start.+--+-- 'mostRecent', 'startPosition_mostRecent' - The start position of the most recent message where you want to start.+newStartPosition ::+  StartPosition+newStartPosition =+  StartPosition'+    { absoluteTime = Prelude.Nothing,+      id = Prelude.Nothing,+      mostRecent = Prelude.Nothing+    }++-- | The time in ISO format where to start.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+startPosition_absoluteTime :: Lens.Lens' StartPosition (Prelude.Maybe Prelude.Text)+startPosition_absoluteTime = Lens.lens (\StartPosition' {absoluteTime} -> absoluteTime) (\s@StartPosition' {} a -> s {absoluteTime = a} :: StartPosition)++-- | The ID of the message or event where to start.+startPosition_id :: Lens.Lens' StartPosition (Prelude.Maybe Prelude.Text)+startPosition_id = Lens.lens (\StartPosition' {id} -> id) (\s@StartPosition' {} a -> s {id = a} :: StartPosition)++-- | The start position of the most recent message where you want to start.+startPosition_mostRecent :: Lens.Lens' StartPosition (Prelude.Maybe Prelude.Natural)+startPosition_mostRecent = Lens.lens (\StartPosition' {mostRecent} -> mostRecent) (\s@StartPosition' {} a -> s {mostRecent = a} :: StartPosition)++instance Prelude.Hashable StartPosition where+  hashWithSalt _salt StartPosition' {..} =+    _salt+      `Prelude.hashWithSalt` absoluteTime+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` mostRecent++instance Prelude.NFData StartPosition where+  rnf StartPosition' {..} =+    Prelude.rnf absoluteTime+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf mostRecent++instance Data.ToJSON StartPosition where+  toJSON StartPosition' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AbsoluteTime" Data..=) Prelude.<$> absoluteTime,+            ("Id" Data..=) Prelude.<$> id,+            ("MostRecent" Data..=) Prelude.<$> mostRecent+          ]+      )
+ gen/Amazonka/ConnectParticipant/Types/UploadMetadata.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.Types.UploadMetadata+-- 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.ConnectParticipant.Types.UploadMetadata where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Fields to be used while uploading the attachment.+--+-- /See:/ 'newUploadMetadata' smart constructor.+data UploadMetadata = UploadMetadata'+  { -- | The headers to be provided while uploading the file to the URL.+    headersToInclude :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | This is the pre-signed URL that can be used for uploading the file to+    -- Amazon S3 when used in response to+    -- <https://docs.aws.amazon.com/connect-participant/latest/APIReference/API_StartAttachmentUpload.html StartAttachmentUpload>.+    url :: Prelude.Maybe Prelude.Text,+    -- | The expiration time of the URL in ISO timestamp. It\'s specified in ISO+    -- 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For example,+    -- 2019-11-08T02:41:28.172Z.+    urlExpiry :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UploadMetadata' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'headersToInclude', 'uploadMetadata_headersToInclude' - The headers to be provided while uploading the file to the URL.+--+-- 'url', 'uploadMetadata_url' - This is the pre-signed URL that can be used for uploading the file to+-- Amazon S3 when used in response to+-- <https://docs.aws.amazon.com/connect-participant/latest/APIReference/API_StartAttachmentUpload.html StartAttachmentUpload>.+--+-- 'urlExpiry', 'uploadMetadata_urlExpiry' - The expiration time of the URL in ISO timestamp. It\'s specified in ISO+-- 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For example,+-- 2019-11-08T02:41:28.172Z.+newUploadMetadata ::+  UploadMetadata+newUploadMetadata =+  UploadMetadata'+    { headersToInclude = Prelude.Nothing,+      url = Prelude.Nothing,+      urlExpiry = Prelude.Nothing+    }++-- | The headers to be provided while uploading the file to the URL.+uploadMetadata_headersToInclude :: Lens.Lens' UploadMetadata (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+uploadMetadata_headersToInclude = Lens.lens (\UploadMetadata' {headersToInclude} -> headersToInclude) (\s@UploadMetadata' {} a -> s {headersToInclude = a} :: UploadMetadata) Prelude.. Lens.mapping Lens.coerced++-- | This is the pre-signed URL that can be used for uploading the file to+-- Amazon S3 when used in response to+-- <https://docs.aws.amazon.com/connect-participant/latest/APIReference/API_StartAttachmentUpload.html StartAttachmentUpload>.+uploadMetadata_url :: Lens.Lens' UploadMetadata (Prelude.Maybe Prelude.Text)+uploadMetadata_url = Lens.lens (\UploadMetadata' {url} -> url) (\s@UploadMetadata' {} a -> s {url = a} :: UploadMetadata)++-- | The expiration time of the URL in ISO timestamp. It\'s specified in ISO+-- 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For example,+-- 2019-11-08T02:41:28.172Z.+uploadMetadata_urlExpiry :: Lens.Lens' UploadMetadata (Prelude.Maybe Prelude.Text)+uploadMetadata_urlExpiry = Lens.lens (\UploadMetadata' {urlExpiry} -> urlExpiry) (\s@UploadMetadata' {} a -> s {urlExpiry = a} :: UploadMetadata)++instance Data.FromJSON UploadMetadata where+  parseJSON =+    Data.withObject+      "UploadMetadata"+      ( \x ->+          UploadMetadata'+            Prelude.<$> ( x+                            Data..:? "HeadersToInclude"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "Url")+            Prelude.<*> (x Data..:? "UrlExpiry")+      )++instance Prelude.Hashable UploadMetadata where+  hashWithSalt _salt UploadMetadata' {..} =+    _salt+      `Prelude.hashWithSalt` headersToInclude+      `Prelude.hashWithSalt` url+      `Prelude.hashWithSalt` urlExpiry++instance Prelude.NFData UploadMetadata where+  rnf UploadMetadata' {..} =+    Prelude.rnf headersToInclude+      `Prelude.seq` Prelude.rnf url+      `Prelude.seq` Prelude.rnf urlExpiry
+ gen/Amazonka/ConnectParticipant/Types/Websocket.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ConnectParticipant.Types.Websocket+-- 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.ConnectParticipant.Types.Websocket where++import qualified 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 websocket for the participant\'s connection.+--+-- /See:/ 'newWebsocket' smart constructor.+data Websocket = Websocket'+  { -- | The URL expiration timestamp in ISO date format.+    --+    -- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+    -- example, 2019-11-08T02:41:28.172Z.+    connectionExpiry :: Prelude.Maybe Prelude.Text,+    -- | The URL of the websocket.+    url :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Websocket' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'connectionExpiry', 'websocket_connectionExpiry' - The URL expiration timestamp in ISO date format.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+--+-- 'url', 'websocket_url' - The URL of the websocket.+newWebsocket ::+  Websocket+newWebsocket =+  Websocket'+    { connectionExpiry = Prelude.Nothing,+      url = Prelude.Nothing+    }++-- | The URL expiration timestamp in ISO date format.+--+-- It\'s specified in ISO 8601 format: yyyy-MM-ddThh:mm:ss.SSSZ. For+-- example, 2019-11-08T02:41:28.172Z.+websocket_connectionExpiry :: Lens.Lens' Websocket (Prelude.Maybe Prelude.Text)+websocket_connectionExpiry = Lens.lens (\Websocket' {connectionExpiry} -> connectionExpiry) (\s@Websocket' {} a -> s {connectionExpiry = a} :: Websocket)++-- | The URL of the websocket.+websocket_url :: Lens.Lens' Websocket (Prelude.Maybe Prelude.Text)+websocket_url = Lens.lens (\Websocket' {url} -> url) (\s@Websocket' {} a -> s {url = a} :: Websocket)++instance Data.FromJSON Websocket where+  parseJSON =+    Data.withObject+      "Websocket"+      ( \x ->+          Websocket'+            Prelude.<$> (x Data..:? "ConnectionExpiry")+            Prelude.<*> (x Data..:? "Url")+      )++instance Prelude.Hashable Websocket where+  hashWithSalt _salt Websocket' {..} =+    _salt+      `Prelude.hashWithSalt` connectionExpiry+      `Prelude.hashWithSalt` url++instance Prelude.NFData Websocket where+  rnf Websocket' {..} =+    Prelude.rnf connectionExpiry+      `Prelude.seq` Prelude.rnf url
+ gen/Amazonka/ConnectParticipant/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.ConnectParticipant.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.ConnectParticipant.Waiters where++import Amazonka.ConnectParticipant.Lens+import Amazonka.ConnectParticipant.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude
+ 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.ConnectParticipant+import Test.Amazonka.ConnectParticipant.Internal+import Test.Tasty++main :: IO ()+main =+  defaultMain $+    testGroup+      "ConnectParticipant"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]
+ test/Test/Amazonka/ConnectParticipant.hs view
@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.ConnectParticipant+-- 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.ConnectParticipant+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/Amazonka/ConnectParticipant/Internal.hs view
@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.ConnectParticipant.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.ConnectParticipant.Internal where
+ test/Test/Amazonka/Gen/ConnectParticipant.hs view
@@ -0,0 +1,198 @@+{-# 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.ConnectParticipant+-- 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.ConnectParticipant where++import Amazonka.ConnectParticipant+import qualified Data.Proxy as Proxy+import Test.Amazonka.ConnectParticipant.Internal+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+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"+--         [ requestCompleteAttachmentUpload $+--             newCompleteAttachmentUpload+--+--         , requestCreateParticipantConnection $+--             newCreateParticipantConnection+--+--         , requestDisconnectParticipant $+--             newDisconnectParticipant+--+--         , requestGetAttachment $+--             newGetAttachment+--+--         , requestGetTranscript $+--             newGetTranscript+--+--         , requestSendEvent $+--             newSendEvent+--+--         , requestSendMessage $+--             newSendMessage+--+--         , requestStartAttachmentUpload $+--             newStartAttachmentUpload+--+--           ]++--     , testGroup "response"+--         [ responseCompleteAttachmentUpload $+--             newCompleteAttachmentUploadResponse+--+--         , responseCreateParticipantConnection $+--             newCreateParticipantConnectionResponse+--+--         , responseDisconnectParticipant $+--             newDisconnectParticipantResponse+--+--         , responseGetAttachment $+--             newGetAttachmentResponse+--+--         , responseGetTranscript $+--             newGetTranscriptResponse+--+--         , responseSendEvent $+--             newSendEventResponse+--+--         , responseSendMessage $+--             newSendMessageResponse+--+--         , responseStartAttachmentUpload $+--             newStartAttachmentUploadResponse+--+--           ]+--     ]++-- Requests++requestCompleteAttachmentUpload :: CompleteAttachmentUpload -> TestTree+requestCompleteAttachmentUpload =+  req+    "CompleteAttachmentUpload"+    "fixture/CompleteAttachmentUpload.yaml"++requestCreateParticipantConnection :: CreateParticipantConnection -> TestTree+requestCreateParticipantConnection =+  req+    "CreateParticipantConnection"+    "fixture/CreateParticipantConnection.yaml"++requestDisconnectParticipant :: DisconnectParticipant -> TestTree+requestDisconnectParticipant =+  req+    "DisconnectParticipant"+    "fixture/DisconnectParticipant.yaml"++requestGetAttachment :: GetAttachment -> TestTree+requestGetAttachment =+  req+    "GetAttachment"+    "fixture/GetAttachment.yaml"++requestGetTranscript :: GetTranscript -> TestTree+requestGetTranscript =+  req+    "GetTranscript"+    "fixture/GetTranscript.yaml"++requestSendEvent :: SendEvent -> TestTree+requestSendEvent =+  req+    "SendEvent"+    "fixture/SendEvent.yaml"++requestSendMessage :: SendMessage -> TestTree+requestSendMessage =+  req+    "SendMessage"+    "fixture/SendMessage.yaml"++requestStartAttachmentUpload :: StartAttachmentUpload -> TestTree+requestStartAttachmentUpload =+  req+    "StartAttachmentUpload"+    "fixture/StartAttachmentUpload.yaml"++-- Responses++responseCompleteAttachmentUpload :: CompleteAttachmentUploadResponse -> TestTree+responseCompleteAttachmentUpload =+  res+    "CompleteAttachmentUploadResponse"+    "fixture/CompleteAttachmentUploadResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CompleteAttachmentUpload)++responseCreateParticipantConnection :: CreateParticipantConnectionResponse -> TestTree+responseCreateParticipantConnection =+  res+    "CreateParticipantConnectionResponse"+    "fixture/CreateParticipantConnectionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateParticipantConnection)++responseDisconnectParticipant :: DisconnectParticipantResponse -> TestTree+responseDisconnectParticipant =+  res+    "DisconnectParticipantResponse"+    "fixture/DisconnectParticipantResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DisconnectParticipant)++responseGetAttachment :: GetAttachmentResponse -> TestTree+responseGetAttachment =+  res+    "GetAttachmentResponse"+    "fixture/GetAttachmentResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetAttachment)++responseGetTranscript :: GetTranscriptResponse -> TestTree+responseGetTranscript =+  res+    "GetTranscriptResponse"+    "fixture/GetTranscriptResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetTranscript)++responseSendEvent :: SendEventResponse -> TestTree+responseSendEvent =+  res+    "SendEventResponse"+    "fixture/SendEventResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy SendEvent)++responseSendMessage :: SendMessageResponse -> TestTree+responseSendMessage =+  res+    "SendMessageResponse"+    "fixture/SendMessageResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy SendMessage)++responseStartAttachmentUpload :: StartAttachmentUploadResponse -> TestTree+responseStartAttachmentUpload =+  res+    "StartAttachmentUploadResponse"+    "fixture/StartAttachmentUploadResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartAttachmentUpload)