diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,367 @@ +Mozilla Public License Version 2.0 +================================== + +1. Definitions +-------------- + +1.1. "Contributor" + means each individual or legal entity that creates, contributes to + the creation of, or owns Covered Software. + +1.2. "Contributor Version" + means the combination of the Contributions of others (if any) used + by a Contributor and that particular Contributor's Contribution. + +1.3. "Contribution" + means Covered Software of a particular Contributor. + +1.4. "Covered Software" + means Source Code Form to which the initial Contributor has attached + the notice in Exhibit A, the Executable Form of such Source Code + Form, and Modifications of such Source Code Form, in each case + including portions thereof. + +1.5. "Incompatible With Secondary Licenses" + means + + (a) that the initial Contributor has attached the notice described + in Exhibit B to the Covered Software; or + + (b) that the Covered Software was made available under the terms of + version 1.1 or earlier of the License, but not also under the + terms of a Secondary License. + +1.6. "Executable Form" + means any form of the work other than Source Code Form. + +1.7. "Larger Work" + means a work that combines Covered Software with other material, in + a separate file or files, that is not Covered Software. + +1.8. "License" + means this document. + +1.9. "Licensable" + means having the right to grant, to the maximum extent possible, + whether at the time of the initial grant or subsequently, any and + all of the rights conveyed by this License. + +1.10. "Modifications" + means any of the following: + + (a) any file in Source Code Form that results from an addition to, + deletion from, or modification of the contents of Covered + Software; or + + (b) any new file in Source Code Form that contains any Covered + Software. + +1.11. "Patent Claims" of a Contributor + means any patent claim(s), including without limitation, method, + process, and apparatus claims, in any patent Licensable by such + Contributor that would be infringed, but for the grant of the + License, by the making, using, selling, offering for sale, having + made, import, or transfer of either its Contributions or its + Contributor Version. + +1.12. "Secondary License" + means either the GNU General Public License, Version 2.0, the GNU + Lesser General Public License, Version 2.1, the GNU Affero General + Public License, Version 3.0, or any later versions of those + licenses. + +1.13. "Source Code Form" + means the form of the work preferred for making modifications. + +1.14. "You" (or "Your") + means an individual or a legal entity exercising rights under this + License. For legal entities, "You" includes any entity that + controls, is controlled by, or is under common control with You. For + purposes of this definition, "control" means (a) the power, direct + or indirect, to cause the direction or management of such entity, + whether by contract or otherwise, or (b) ownership of more than + fifty percent (50%) of the outstanding shares or beneficial + ownership of such entity. + +2. License Grants and Conditions +-------------------------------- + +2.1. Grants + +Each Contributor hereby grants You a world-wide, royalty-free, +non-exclusive license: + +(a) under intellectual property rights (other than patent or trademark) + Licensable by such Contributor to use, reproduce, make available, + modify, display, perform, distribute, and otherwise exploit its + Contributions, either on an unmodified basis, with Modifications, or + as part of a Larger Work; and + +(b) under Patent Claims of such Contributor to make, use, sell, offer + for sale, have made, import, and otherwise transfer either its + Contributions or its Contributor Version. + +2.2. Effective Date + +The licenses granted in Section 2.1 with respect to any Contribution +become effective for each Contribution on the date the Contributor first +distributes such Contribution. + +2.3. Limitations on Grant Scope + +The licenses granted in this Section 2 are the only rights granted under +this License. No additional rights or licenses will be implied from the +distribution or licensing of Covered Software under this License. +Notwithstanding Section 2.1(b) above, no patent license is granted by a +Contributor: + +(a) for any code that a Contributor has removed from Covered Software; + or + +(b) for infringements caused by: (i) Your and any other third party's + modifications of Covered Software, or (ii) the combination of its + Contributions with other software (except as part of its Contributor + Version); or + +(c) under Patent Claims infringed by Covered Software in the absence of + its Contributions. + +This License does not grant any rights in the trademarks, service marks, +or logos of any Contributor (except as may be necessary to comply with +the notice requirements in Section 3.4). + +2.4. Subsequent Licenses + +No Contributor makes additional grants as a result of Your choice to +distribute the Covered Software under a subsequent version of this +License (see Section 10.2) or under the terms of a Secondary License (if +permitted under the terms of Section 3.3). + +2.5. Representation + +Each Contributor represents that the Contributor believes its +Contributions are its original creation(s) or it has sufficient rights +to grant the rights to its Contributions conveyed by this License. + +2.6. Fair Use + +This License is not intended to limit any rights You have under +applicable copyright doctrines of fair use, fair dealing, or other +equivalents. + +2.7. Conditions + +Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted +in Section 2.1. + +3. Responsibilities +------------------- + +3.1. Distribution of Source Form + +All distribution of Covered Software in Source Code Form, including any +Modifications that You create or to which You contribute, must be under +the terms of this License. You must inform recipients that the Source +Code Form of the Covered Software is governed by the terms of this +License, and how they can obtain a copy of this License. You may not +attempt to alter or restrict the recipients' rights in the Source Code +Form. + +3.2. Distribution of Executable Form + +If You distribute Covered Software in Executable Form then: + +(a) such Covered Software must also be made available in Source Code + Form, as described in Section 3.1, and You must inform recipients of + the Executable Form how they can obtain a copy of such Source Code + Form by reasonable means in a timely manner, at a charge no more + than the cost of distribution to the recipient; and + +(b) You may distribute such Executable Form under the terms of this + License, or sublicense it under different terms, provided that the + license for the Executable Form does not attempt to limit or alter + the recipients' rights in the Source Code Form under this License. + +3.3. Distribution of a Larger Work + +You may create and distribute a Larger Work under terms of Your choice, +provided that You also comply with the requirements of this License for +the Covered Software. If the Larger Work is a combination of Covered +Software with a work governed by one or more Secondary Licenses, and the +Covered Software is not Incompatible With Secondary Licenses, this +License permits You to additionally distribute such Covered Software +under the terms of such Secondary License(s), so that the recipient of +the Larger Work may, at their option, further distribute the Covered +Software under the terms of either this License or such Secondary +License(s). + +3.4. Notices + +You may not remove or alter the substance of any license notices +(including copyright notices, patent notices, disclaimers of warranty, +or limitations of liability) contained within the Source Code Form of +the Covered Software, except that You may alter any license notices to +the extent required to remedy known factual inaccuracies. + +3.5. Application of Additional Terms + +You may choose to offer, and to charge a fee for, warranty, support, +indemnity or liability obligations to one or more recipients of Covered +Software. However, You may do so only on Your own behalf, and not on +behalf of any Contributor. You must make it absolutely clear that any +such warranty, support, indemnity, or liability obligation is offered by +You alone, and You hereby agree to indemnify every Contributor for any +liability incurred by such Contributor as a result of warranty, support, +indemnity or liability terms You offer. You may include additional +disclaimers of warranty and limitations of liability specific to any +jurisdiction. + +4. Inability to Comply Due to Statute or Regulation +--------------------------------------------------- + +If it is impossible for You to comply with any of the terms of this +License with respect to some or all of the Covered Software due to +statute, judicial order, or regulation then You must: (a) comply with +the terms of this License to the maximum extent possible; and (b) +describe the limitations and the code they affect. Such description must +be placed in a text file included with all distributions of the Covered +Software under this License. Except to the extent prohibited by statute +or regulation, such description must be sufficiently detailed for a +recipient of ordinary skill to be able to understand it. + +5. Termination +-------------- + +5.1. The rights granted under this License will terminate automatically +if You fail to comply with any of its terms. However, if You become +compliant, then the rights granted under this License from a particular +Contributor are reinstated (a) provisionally, unless and until such +Contributor explicitly and finally terminates Your grants, and (b) on an +ongoing basis, if such Contributor fails to notify You of the +non-compliance by some reasonable means prior to 60 days after You have +come back into compliance. Moreover, Your grants from a particular +Contributor are reinstated on an ongoing basis if such Contributor +notifies You of the non-compliance by some reasonable means, this is the +first time You have received notice of non-compliance with this License +from such Contributor, and You become compliant prior to 30 days after +Your receipt of the notice. + +5.2. If You initiate litigation against any entity by asserting a patent +infringement claim (excluding declaratory judgment actions, +counter-claims, and cross-claims) alleging that a Contributor Version +directly or indirectly infringes any patent, then the rights granted to +You by any and all Contributors for the Covered Software under Section +2.1 of this License shall terminate. + +5.3. In the event of termination under Sections 5.1 or 5.2 above, all +end user license agreements (excluding distributors and resellers) which +have been validly granted by You or Your distributors under this License +prior to termination shall survive termination. + +************************************************************************ +* * +* 6. Disclaimer of Warranty * +* ------------------------- * +* * +* Covered Software is provided under this License on an "as is" * +* basis, without warranty of any kind, either expressed, implied, or * +* statutory, including, without limitation, warranties that the * +* Covered Software is free of defects, merchantable, fit for a * +* particular purpose or non-infringing. The entire risk as to the * +* quality and performance of the Covered Software is with You. * +* Should any Covered Software prove defective in any respect, You * +* (not any Contributor) assume the cost of any necessary servicing, * +* repair, or correction. This disclaimer of warranty constitutes an * +* essential part of this License. No use of any Covered Software is * +* authorized under this License except under this disclaimer. * +* * +************************************************************************ + +************************************************************************ +* * +* 7. Limitation of Liability * +* -------------------------- * +* * +* Under no circumstances and under no legal theory, whether tort * +* (including negligence), contract, or otherwise, shall any * +* Contributor, or anyone who distributes Covered Software as * +* permitted above, be liable to You for any direct, indirect, * +* special, incidental, or consequential damages of any character * +* including, without limitation, damages for lost profits, loss of * +* goodwill, work stoppage, computer failure or malfunction, or any * +* and all other commercial damages or losses, even if such party * +* shall have been informed of the possibility of such damages. This * +* limitation of liability shall not apply to liability for death or * +* personal injury resulting from such party's negligence to the * +* extent applicable law prohibits such limitation. Some * +* jurisdictions do not allow the exclusion or limitation of * +* incidental or consequential damages, so this exclusion and * +* limitation may not apply to You. * +* * +************************************************************************ + +8. Litigation +------------- + +Any litigation relating to this License may be brought only in the +courts of a jurisdiction where the defendant maintains its principal +place of business and such litigation shall be governed by laws of that +jurisdiction, without reference to its conflict-of-law provisions. +Nothing in this Section shall prevent a party's ability to bring +cross-claims or counter-claims. + +9. Miscellaneous +---------------- + +This License represents the complete agreement concerning the subject +matter hereof. If any provision of this License is held to be +unenforceable, such provision shall be reformed only to the extent +necessary to make it enforceable. Any law or regulation which provides +that the language of a contract shall be construed against the drafter +shall not be used to construe this License against a Contributor. + +10. Versions of the License +--------------------------- + +10.1. New Versions + +Mozilla Foundation is the license steward. Except as provided in Section +10.3, no one other than the license steward has the right to modify or +publish new versions of this License. Each version will be given a +distinguishing version number. + +10.2. Effect of New Versions + +You may distribute the Covered Software under the terms of the version +of the License under which You originally received the Covered Software, +or under the terms of any subsequent version published by the license +steward. + +10.3. Modified Versions + +If you create software not governed by this License, and you want to +create a new license for such software, you may create and use a +modified version of this License if you rename the license and remove +any references to the name of the license steward (except to note that +such modified license differs from this License). + +10.4. Distributing Source Code Form that is Incompatible With Secondary +Licenses + +If You choose to distribute Source Code Form that is Incompatible With +Secondary Licenses under the terms of this version of the License, the +notice described in Exhibit B of this License must be attached. + +Exhibit A - Source Code Form License Notice +------------------------------------------- + + This Source Code Form is subject to the terms of the Mozilla Public + License, v. 2.0. If a copy of the MPL was not distributed with this + file, You can obtain one at http://mozilla.org/MPL/2.0/. + +If it is not possible or desirable to put the notice in a particular +file, then You may include the notice in a location (such as a LICENSE +file in a relevant directory) where a recipient would be likely to look +for such a notice. + +You may add additional accurate notices of copyright ownership. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,44 @@ +# Amazon 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. diff --git a/amazonka-connectparticipant.cabal b/amazonka-connectparticipant.cabal new file mode 100644 --- /dev/null +++ b/amazonka-connectparticipant.cabal @@ -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 , Jack Kelly + +copyright: Copyright (c) 2013-2023 Brendan Hay +category: AWS +build-type: Simple +extra-source-files: + fixture/*.proto + fixture/*.yaml + README.md + src/.gitkeep + +description: + Derived from API version @2018-09-07@ of the AWS service descriptions, licensed under Apache 2.0. + . + The types from this library are intended to be used with , + which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses. + . + It is recommended to use generic lenses or optics from packages such as or to modify optional fields and deconstruct responses. + . + Generated lenses can be found in "Amazonka.ConnectParticipant.Lens" and are + suitable for use with a lens package such as or . + . + See "Amazonka.ConnectParticipant" and the 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 diff --git a/fixture/CompleteAttachmentUpload.yaml b/fixture/CompleteAttachmentUpload.yaml new file mode 100644 --- /dev/null +++ b/fixture/CompleteAttachmentUpload.yaml @@ -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: + '' diff --git a/fixture/CompleteAttachmentUploadResponse.proto b/fixture/CompleteAttachmentUploadResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CompleteAttachmentUploadResponse.proto diff --git a/fixture/CreateParticipantConnection.yaml b/fixture/CreateParticipantConnection.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateParticipantConnection.yaml @@ -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: + '' diff --git a/fixture/CreateParticipantConnectionResponse.proto b/fixture/CreateParticipantConnectionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateParticipantConnectionResponse.proto diff --git a/fixture/DisconnectParticipant.yaml b/fixture/DisconnectParticipant.yaml new file mode 100644 --- /dev/null +++ b/fixture/DisconnectParticipant.yaml @@ -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: + '' diff --git a/fixture/DisconnectParticipantResponse.proto b/fixture/DisconnectParticipantResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DisconnectParticipantResponse.proto diff --git a/fixture/GetAttachment.yaml b/fixture/GetAttachment.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetAttachment.yaml @@ -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: + '' diff --git a/fixture/GetAttachmentResponse.proto b/fixture/GetAttachmentResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetAttachmentResponse.proto diff --git a/fixture/GetTranscript.yaml b/fixture/GetTranscript.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetTranscript.yaml @@ -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: + '' diff --git a/fixture/GetTranscriptResponse.proto b/fixture/GetTranscriptResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetTranscriptResponse.proto diff --git a/fixture/SendEvent.yaml b/fixture/SendEvent.yaml new file mode 100644 --- /dev/null +++ b/fixture/SendEvent.yaml @@ -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: + '' diff --git a/fixture/SendEventResponse.proto b/fixture/SendEventResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/SendEventResponse.proto diff --git a/fixture/SendMessage.yaml b/fixture/SendMessage.yaml new file mode 100644 --- /dev/null +++ b/fixture/SendMessage.yaml @@ -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: + '' diff --git a/fixture/SendMessageResponse.proto b/fixture/SendMessageResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/SendMessageResponse.proto diff --git a/fixture/StartAttachmentUpload.yaml b/fixture/StartAttachmentUpload.yaml new file mode 100644 --- /dev/null +++ b/fixture/StartAttachmentUpload.yaml @@ -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: + '' diff --git a/fixture/StartAttachmentUploadResponse.proto b/fixture/StartAttachmentUploadResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/StartAttachmentUploadResponse.proto diff --git a/gen/Amazonka/ConnectParticipant.hs b/gen/Amazonka/ConnectParticipant.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant.hs @@ -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 +-- . +-- 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. diff --git a/gen/Amazonka/ConnectParticipant/CompleteAttachmentUpload.hs b/gen/Amazonka/ConnectParticipant/CompleteAttachmentUpload.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/CompleteAttachmentUpload.hs @@ -0,0 +1,209 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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 +-- . +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 + -- . + 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 or 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 +-- . +-- +-- '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 +-- . +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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/CreateParticipantConnection.hs b/gen/Amazonka/ConnectParticipant/CreateParticipantConnection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/CreateParticipantConnection.hs @@ -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 +-- +-- API to create a participant connection for chat contacts that are not +-- using a websocket. For more information about 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 +-- +-- in the /Amazon Connect Administrator Guide/. +-- +-- The Amazon Connect Participant Service APIs do not use +-- . +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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/DisconnectParticipant.hs b/gen/Amazonka/ConnectParticipant/DisconnectParticipant.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/DisconnectParticipant.hs @@ -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 +-- . +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 + -- . + 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 or 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 +-- . +-- +-- '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 +-- . +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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/GetAttachment.hs b/gen/Amazonka/ConnectParticipant/GetAttachment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/GetAttachment.hs @@ -0,0 +1,209 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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 +-- . +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 or 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 + -- . + 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 or 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 +-- . +-- +-- '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 +-- . +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 diff --git a/gen/Amazonka/ConnectParticipant/GetTranscript.hs b/gen/Amazonka/ConnectParticipant/GetTranscript.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/GetTranscript.hs @@ -0,0 +1,289 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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 +-- . +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 or 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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/Lens.hs b/gen/Amazonka/ConnectParticipant/Lens.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Lens.hs @@ -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 diff --git a/gen/Amazonka/ConnectParticipant/SendEvent.hs b/gen/Amazonka/ConnectParticipant/SendEvent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/SendEvent.hs @@ -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 +-- . +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 + -- . + 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 or 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 +-- . +-- +-- '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 +-- . +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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/SendMessage.hs b/gen/Amazonka/ConnectParticipant/SendMessage.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/SendMessage.hs @@ -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 +-- . +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 + -- . + 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 or 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 +-- . +-- +-- '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 +-- . +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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/StartAttachmentUpload.hs b/gen/Amazonka/ConnectParticipant/StartAttachmentUpload.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/StartAttachmentUpload.hs @@ -0,0 +1,273 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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 +-- . +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 + -- + -- 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 + -- . + 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 or 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 +-- +-- 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 +-- . +-- +-- '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 +-- +-- 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 +-- . +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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/Types.hs b/gen/Amazonka/ConnectParticipant/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types.hs @@ -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 diff --git a/gen/Amazonka/ConnectParticipant/Types/ArtifactStatus.hs b/gen/Amazonka/ConnectParticipant/Types/ArtifactStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/ArtifactStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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' + #-} diff --git a/gen/Amazonka/ConnectParticipant/Types/AttachmentItem.hs b/gen/Amazonka/ConnectParticipant/Types/AttachmentItem.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/AttachmentItem.hs @@ -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 + -- + -- 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 or 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 +-- +-- 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 +-- +-- 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 diff --git a/gen/Amazonka/ConnectParticipant/Types/ChatItemType.hs b/gen/Amazonka/ConnectParticipant/Types/ChatItemType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/ChatItemType.hs @@ -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' + #-} diff --git a/gen/Amazonka/ConnectParticipant/Types/ConnectionCredentials.hs b/gen/Amazonka/ConnectParticipant/Types/ConnectionCredentials.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/ConnectionCredentials.hs @@ -0,0 +1,94 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/Types/ConnectionType.hs b/gen/Amazonka/ConnectParticipant/Types/ConnectionType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/ConnectionType.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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' + #-} diff --git a/gen/Amazonka/ConnectParticipant/Types/Item.hs b/gen/Amazonka/ConnectParticipant/Types/Item.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/Item.hs @@ -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 or 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' diff --git a/gen/Amazonka/ConnectParticipant/Types/MessageMetadata.hs b/gen/Amazonka/ConnectParticipant/Types/MessageMetadata.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/MessageMetadata.hs @@ -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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/Types/ParticipantRole.hs b/gen/Amazonka/ConnectParticipant/Types/ParticipantRole.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/ParticipantRole.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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' + #-} diff --git a/gen/Amazonka/ConnectParticipant/Types/Receipt.hs b/gen/Amazonka/ConnectParticipant/Types/Receipt.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/Receipt.hs @@ -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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/Types/ScanDirection.hs b/gen/Amazonka/ConnectParticipant/Types/ScanDirection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/ScanDirection.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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' + #-} diff --git a/gen/Amazonka/ConnectParticipant/Types/SortKey.hs b/gen/Amazonka/ConnectParticipant/Types/SortKey.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/SortKey.hs @@ -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' + #-} diff --git a/gen/Amazonka/ConnectParticipant/Types/StartPosition.hs b/gen/Amazonka/ConnectParticipant/Types/StartPosition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/StartPosition.hs @@ -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 or 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 + ] + ) diff --git a/gen/Amazonka/ConnectParticipant/Types/UploadMetadata.hs b/gen/Amazonka/ConnectParticipant/Types/UploadMetadata.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/UploadMetadata.hs @@ -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 + -- . + 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 or 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 +-- . +-- +-- '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 +-- . +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 diff --git a/gen/Amazonka/ConnectParticipant/Types/Websocket.hs b/gen/Amazonka/ConnectParticipant/Types/Websocket.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Types/Websocket.hs @@ -0,0 +1,93 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.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 or 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 diff --git a/gen/Amazonka/ConnectParticipant/Waiters.hs b/gen/Amazonka/ConnectParticipant/Waiters.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/ConnectParticipant/Waiters.hs @@ -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 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 --- /dev/null +++ b/test/Main.hs @@ -0,0 +1,23 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Main +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Main (main) where + +import Test.Amazonka.ConnectParticipant +import Test.Amazonka.ConnectParticipant.Internal +import Test.Tasty + +main :: IO () +main = + defaultMain $ + testGroup + "ConnectParticipant" + [ testGroup "tests" tests, + testGroup "fixtures" fixtures + ] diff --git a/test/Test/Amazonka/ConnectParticipant.hs b/test/Test/Amazonka/ConnectParticipant.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/ConnectParticipant.hs @@ -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 = [] diff --git a/test/Test/Amazonka/ConnectParticipant/Internal.hs b/test/Test/Amazonka/ConnectParticipant/Internal.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/ConnectParticipant/Internal.hs @@ -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 diff --git a/test/Test/Amazonka/Gen/ConnectParticipant.hs b/test/Test/Amazonka/Gen/ConnectParticipant.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Gen/ConnectParticipant.hs @@ -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)