amazonka-polly 1.6.1 → 2.0

raw patch · 53 files changed

+5399/−2268 lines, 53 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-polly.cabal +94/−80
• fixture/GetSpeechSynthesisTask.yaml +10/−0
• fixture/GetSpeechSynthesisTaskResponse.proto +0/−0
• fixture/ListSpeechSynthesisTasks.yaml +10/−0
• fixture/ListSpeechSynthesisTasksResponse.proto +0/−0
• fixture/StartSpeechSynthesisTask.yaml +10/−0
• fixture/StartSpeechSynthesisTaskResponse.proto +0/−0
• gen/Amazonka/Polly.hs +237/−0
• gen/Amazonka/Polly/DeleteLexicon.hs +144/−0
• gen/Amazonka/Polly/DescribeVoices.hs +279/−0
• gen/Amazonka/Polly/GetLexicon.hs +166/−0
• gen/Amazonka/Polly/GetSpeechSynthesisTask.hs +160/−0
• gen/Amazonka/Polly/Lens.hs +150/−0
• gen/Amazonka/Polly/ListLexicons.hs +189/−0
• gen/Amazonka/Polly/ListSpeechSynthesisTasks.hs +234/−0
• gen/Amazonka/Polly/PutLexicon.hs +169/−0
• gen/Amazonka/Polly/StartSpeechSynthesisTask.hs +406/−0
• gen/Amazonka/Polly/SynthesizeSpeech.hs +497/−0
• gen/Amazonka/Polly/Types.hs +400/−0
• gen/Amazonka/Polly/Types/Engine.hs +68/−0
• gen/Amazonka/Polly/Types/Gender.hs +68/−0
• gen/Amazonka/Polly/Types/LanguageCode.hs +241/−0
• gen/Amazonka/Polly/Types/Lexicon.hs +88/−0
• gen/Amazonka/Polly/Types/LexiconAttributes.hs +144/−0
• gen/Amazonka/Polly/Types/LexiconDescription.hs +85/−0
• gen/Amazonka/Polly/Types/OutputFormat.hs +81/−0
• gen/Amazonka/Polly/Types/SpeechMarkType.hs +81/−0
• gen/Amazonka/Polly/Types/SynthesisTask.hs +326/−0
• gen/Amazonka/Polly/Types/TaskStatus.hs +81/−0
• gen/Amazonka/Polly/Types/TextType.hs +71/−0
• gen/Amazonka/Polly/Types/Voice.hs +181/−0
• gen/Amazonka/Polly/Types/VoiceId.hs +453/−0
• gen/Amazonka/Polly/Waiters.hs +24/−0
• gen/Network/AWS/Polly.hs +0/−182
• gen/Network/AWS/Polly/DeleteLexicon.hs +0/−113
• gen/Network/AWS/Polly/DescribeVoices.hs +0/−161
• gen/Network/AWS/Polly/GetLexicon.hs +0/−133
• gen/Network/AWS/Polly/ListLexicons.hs +0/−132
• gen/Network/AWS/Polly/PutLexicon.hs +0/−127
• gen/Network/AWS/Polly/SynthesizeSpeech.hs +0/−213
• gen/Network/AWS/Polly/Types.hs +0/−242
• gen/Network/AWS/Polly/Types/Product.hs +0/−261
• gen/Network/AWS/Polly/Types/Sum.hs +0/−419
• gen/Network/AWS/Polly/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/Polly.hs +0/−140
• test/Test/AWS/Polly.hs +0/−20
• test/Test/AWS/Polly/Internal.hs +0/−9
• test/Test/Amazonka/Gen/Polly.hs +210/−0
• test/Test/Amazonka/Polly.hs +20/−0
• test/Test/Amazonka/Polly/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2016-06-10@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ 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 [Network.AWS.Polly](http://hackage.haskell.org/package/amazonka-polly/docs/Network-AWS-Polly.html)+See [Amazonka.Polly](http://hackage.haskell.org/package/amazonka-polly/docs/Amazonka-Polly.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,91 +1,105 @@-name:                  amazonka-polly-version:               1.6.1-synopsis:              Amazon Polly SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-polly+version:            2.0+synopsis:           Amazon Polly SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    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-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.Polly" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2016-06-10@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.Polly.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.Polly" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-polly+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-polly  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:-          Network.AWS.Polly-        , Network.AWS.Polly.DeleteLexicon-        , Network.AWS.Polly.DescribeVoices-        , Network.AWS.Polly.GetLexicon-        , Network.AWS.Polly.ListLexicons-        , Network.AWS.Polly.PutLexicon-        , Network.AWS.Polly.SynthesizeSpeech-        , Network.AWS.Polly.Types-        , Network.AWS.Polly.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.Polly.Types.Product-        , Network.AWS.Polly.Types.Sum+  exposed-modules:+    Amazonka.Polly+    Amazonka.Polly.DeleteLexicon+    Amazonka.Polly.DescribeVoices+    Amazonka.Polly.GetLexicon+    Amazonka.Polly.GetSpeechSynthesisTask+    Amazonka.Polly.Lens+    Amazonka.Polly.ListLexicons+    Amazonka.Polly.ListSpeechSynthesisTasks+    Amazonka.Polly.PutLexicon+    Amazonka.Polly.StartSpeechSynthesisTask+    Amazonka.Polly.SynthesizeSpeech+    Amazonka.Polly.Types+    Amazonka.Polly.Types.Engine+    Amazonka.Polly.Types.Gender+    Amazonka.Polly.Types.LanguageCode+    Amazonka.Polly.Types.Lexicon+    Amazonka.Polly.Types.LexiconAttributes+    Amazonka.Polly.Types.LexiconDescription+    Amazonka.Polly.Types.OutputFormat+    Amazonka.Polly.Types.SpeechMarkType+    Amazonka.Polly.Types.SynthesisTask+    Amazonka.Polly.Types.TaskStatus+    Amazonka.Polly.Types.TextType+    Amazonka.Polly.Types.Voice+    Amazonka.Polly.Types.VoiceId+    Amazonka.Polly.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-polly-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  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.AWS.Polly-        , Test.AWS.Gen.Polly-        , Test.AWS.Polly.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.Polly+    Test.Amazonka.Polly+    Test.Amazonka.Polly.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-polly-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-polly+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/polly/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  polly.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:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/polly/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  polly.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/polly/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  polly.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:+  ''

@@ -0,0 +1,237 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Polly+-- 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 @2016-06-10@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Polly is a web service that makes it easy to synthesize speech+-- from text.+--+-- The Amazon Polly service provides API operations for synthesizing+-- high-quality speech from plain text and Speech Synthesis Markup Language+-- (SSML), along with managing pronunciations lexicons that enable you to+-- get the best results for your application domain.+module Amazonka.Polly+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** EngineNotSupportedException+    _EngineNotSupportedException,++    -- ** InvalidLexiconException+    _InvalidLexiconException,++    -- ** InvalidNextTokenException+    _InvalidNextTokenException,++    -- ** InvalidS3BucketException+    _InvalidS3BucketException,++    -- ** InvalidS3KeyException+    _InvalidS3KeyException,++    -- ** InvalidSampleRateException+    _InvalidSampleRateException,++    -- ** InvalidSnsTopicArnException+    _InvalidSnsTopicArnException,++    -- ** InvalidSsmlException+    _InvalidSsmlException,++    -- ** InvalidTaskIdException+    _InvalidTaskIdException,++    -- ** LanguageNotSupportedException+    _LanguageNotSupportedException,++    -- ** LexiconNotFoundException+    _LexiconNotFoundException,++    -- ** LexiconSizeExceededException+    _LexiconSizeExceededException,++    -- ** MarksNotSupportedForFormatException+    _MarksNotSupportedForFormatException,++    -- ** MaxLexemeLengthExceededException+    _MaxLexemeLengthExceededException,++    -- ** MaxLexiconsNumberExceededException+    _MaxLexiconsNumberExceededException,++    -- ** ServiceFailureException+    _ServiceFailureException,++    -- ** SsmlMarksNotSupportedForTextTypeException+    _SsmlMarksNotSupportedForTextTypeException,++    -- ** SynthesisTaskNotFoundException+    _SynthesisTaskNotFoundException,++    -- ** TextLengthExceededException+    _TextLengthExceededException,++    -- ** UnsupportedPlsAlphabetException+    _UnsupportedPlsAlphabetException,++    -- ** UnsupportedPlsLanguageException+    _UnsupportedPlsLanguageException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DeleteLexicon+    DeleteLexicon (DeleteLexicon'),+    newDeleteLexicon,+    DeleteLexiconResponse (DeleteLexiconResponse'),+    newDeleteLexiconResponse,++    -- ** DescribeVoices (Paginated)+    DescribeVoices (DescribeVoices'),+    newDescribeVoices,+    DescribeVoicesResponse (DescribeVoicesResponse'),+    newDescribeVoicesResponse,++    -- ** GetLexicon+    GetLexicon (GetLexicon'),+    newGetLexicon,+    GetLexiconResponse (GetLexiconResponse'),+    newGetLexiconResponse,++    -- ** GetSpeechSynthesisTask+    GetSpeechSynthesisTask (GetSpeechSynthesisTask'),+    newGetSpeechSynthesisTask,+    GetSpeechSynthesisTaskResponse (GetSpeechSynthesisTaskResponse'),+    newGetSpeechSynthesisTaskResponse,++    -- ** ListLexicons (Paginated)+    ListLexicons (ListLexicons'),+    newListLexicons,+    ListLexiconsResponse (ListLexiconsResponse'),+    newListLexiconsResponse,++    -- ** ListSpeechSynthesisTasks (Paginated)+    ListSpeechSynthesisTasks (ListSpeechSynthesisTasks'),+    newListSpeechSynthesisTasks,+    ListSpeechSynthesisTasksResponse (ListSpeechSynthesisTasksResponse'),+    newListSpeechSynthesisTasksResponse,++    -- ** PutLexicon+    PutLexicon (PutLexicon'),+    newPutLexicon,+    PutLexiconResponse (PutLexiconResponse'),+    newPutLexiconResponse,++    -- ** StartSpeechSynthesisTask+    StartSpeechSynthesisTask (StartSpeechSynthesisTask'),+    newStartSpeechSynthesisTask,+    StartSpeechSynthesisTaskResponse (StartSpeechSynthesisTaskResponse'),+    newStartSpeechSynthesisTaskResponse,++    -- ** SynthesizeSpeech+    SynthesizeSpeech (SynthesizeSpeech'),+    newSynthesizeSpeech,+    SynthesizeSpeechResponse (SynthesizeSpeechResponse'),+    newSynthesizeSpeechResponse,++    -- * Types++    -- ** Engine+    Engine (..),++    -- ** Gender+    Gender (..),++    -- ** LanguageCode+    LanguageCode (..),++    -- ** OutputFormat+    OutputFormat (..),++    -- ** SpeechMarkType+    SpeechMarkType (..),++    -- ** TaskStatus+    TaskStatus (..),++    -- ** TextType+    TextType (..),++    -- ** VoiceId+    VoiceId (..),++    -- ** Lexicon+    Lexicon (Lexicon'),+    newLexicon,++    -- ** LexiconAttributes+    LexiconAttributes (LexiconAttributes'),+    newLexiconAttributes,++    -- ** LexiconDescription+    LexiconDescription (LexiconDescription'),+    newLexiconDescription,++    -- ** SynthesisTask+    SynthesisTask (SynthesisTask'),+    newSynthesisTask,++    -- ** Voice+    Voice (Voice'),+    newVoice,+  )+where++import Amazonka.Polly.DeleteLexicon+import Amazonka.Polly.DescribeVoices+import Amazonka.Polly.GetLexicon+import Amazonka.Polly.GetSpeechSynthesisTask+import Amazonka.Polly.Lens+import Amazonka.Polly.ListLexicons+import Amazonka.Polly.ListSpeechSynthesisTasks+import Amazonka.Polly.PutLexicon+import Amazonka.Polly.StartSpeechSynthesisTask+import Amazonka.Polly.SynthesizeSpeech+import Amazonka.Polly.Types+import Amazonka.Polly.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'Polly'.++-- $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.

@@ -0,0 +1,144 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.DeleteLexicon+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified pronunciation lexicon stored in an Amazon Web+-- Services Region. A lexicon which has been deleted is not available for+-- speech synthesis, nor is it possible to retrieve it using either the+-- @GetLexicon@ or @ListLexicon@ APIs.+--+-- For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons>.+module Amazonka.Polly.DeleteLexicon+  ( -- * Creating a Request+    DeleteLexicon (..),+    newDeleteLexicon,++    -- * Request Lenses+    deleteLexicon_name,++    -- * Destructuring the Response+    DeleteLexiconResponse (..),+    newDeleteLexiconResponse,++    -- * Response Lenses+    deleteLexiconResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteLexicon' smart constructor.+data DeleteLexicon = DeleteLexicon'+  { -- | The name of the lexicon to delete. Must be an existing lexicon in the+    -- region.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLexicon' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteLexicon_name' - The name of the lexicon to delete. Must be an existing lexicon in the+-- region.+newDeleteLexicon ::+  -- | 'name'+  Prelude.Text ->+  DeleteLexicon+newDeleteLexicon pName_ =+  DeleteLexicon' {name = pName_}++-- | The name of the lexicon to delete. Must be an existing lexicon in the+-- region.+deleteLexicon_name :: Lens.Lens' DeleteLexicon Prelude.Text+deleteLexicon_name = Lens.lens (\DeleteLexicon' {name} -> name) (\s@DeleteLexicon' {} a -> s {name = a} :: DeleteLexicon)++instance Core.AWSRequest DeleteLexicon where+  type+    AWSResponse DeleteLexicon =+      DeleteLexiconResponse+  request overrides =+    Request.delete (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteLexiconResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteLexicon where+  hashWithSalt _salt DeleteLexicon' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteLexicon where+  rnf DeleteLexicon' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteLexicon where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteLexicon where+  toPath DeleteLexicon' {..} =+    Prelude.mconcat ["/v1/lexicons/", Data.toBS name]++instance Data.ToQuery DeleteLexicon where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteLexiconResponse' smart constructor.+data DeleteLexiconResponse = DeleteLexiconResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLexiconResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteLexiconResponse_httpStatus' - The response's http status code.+newDeleteLexiconResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteLexiconResponse+newDeleteLexiconResponse pHttpStatus_ =+  DeleteLexiconResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteLexiconResponse_httpStatus :: Lens.Lens' DeleteLexiconResponse Prelude.Int+deleteLexiconResponse_httpStatus = Lens.lens (\DeleteLexiconResponse' {httpStatus} -> httpStatus) (\s@DeleteLexiconResponse' {} a -> s {httpStatus = a} :: DeleteLexiconResponse)++instance Prelude.NFData DeleteLexiconResponse where+  rnf DeleteLexiconResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,279 @@+{-# 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.Polly.DescribeVoices+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the list of voices that are available for use when requesting+-- speech synthesis. Each voice speaks a specified language, is either male+-- or female, and is identified by an ID, which is the ASCII version of the+-- voice name.+--+-- When synthesizing speech ( @SynthesizeSpeech@ ), you provide the voice+-- ID for the voice you want from the list of voices returned by+-- @DescribeVoices@.+--+-- For example, you want your news reader application to read news in a+-- specific language, but giving a user the option to choose the voice.+-- Using the @DescribeVoices@ operation you can provide the user with a+-- list of available voices to select from.+--+-- You can optionally specify a language code to filter the available+-- voices. For example, if you specify @en-US@, the operation returns a+-- list of all available US English voices.+--+-- This operation requires permissions to perform the+-- @polly:DescribeVoices@ action.+--+-- This operation returns paginated results.+module Amazonka.Polly.DescribeVoices+  ( -- * Creating a Request+    DescribeVoices (..),+    newDescribeVoices,++    -- * Request Lenses+    describeVoices_engine,+    describeVoices_includeAdditionalLanguageCodes,+    describeVoices_languageCode,+    describeVoices_nextToken,++    -- * Destructuring the Response+    DescribeVoicesResponse (..),+    newDescribeVoicesResponse,++    -- * Response Lenses+    describeVoicesResponse_nextToken,+    describeVoicesResponse_voices,+    describeVoicesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeVoices' smart constructor.+data DescribeVoices = DescribeVoices'+  { -- | Specifies the engine (@standard@ or @neural@) used by Amazon Polly when+    -- processing input text for speech synthesis.+    engine :: Prelude.Maybe Engine,+    -- | Boolean value indicating whether to return any bilingual voices that use+    -- the specified language as an additional language. For instance, if you+    -- request all languages that use US English (es-US), and there is an+    -- Italian voice that speaks both Italian (it-IT) and US English, that+    -- voice will be included if you specify @yes@ but not if you specify @no@.+    includeAdditionalLanguageCodes :: Prelude.Maybe Prelude.Bool,+    -- | The language identification tag (ISO 639 code for the language name-ISO+    -- 3166 country code) for filtering the list of voices returned. If you+    -- don\'t specify this optional parameter, all available voices are+    -- returned.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | An opaque pagination token returned from the previous @DescribeVoices@+    -- operation. If present, this indicates where to continue the listing.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeVoices' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'engine', 'describeVoices_engine' - Specifies the engine (@standard@ or @neural@) used by Amazon Polly when+-- processing input text for speech synthesis.+--+-- 'includeAdditionalLanguageCodes', 'describeVoices_includeAdditionalLanguageCodes' - Boolean value indicating whether to return any bilingual voices that use+-- the specified language as an additional language. For instance, if you+-- request all languages that use US English (es-US), and there is an+-- Italian voice that speaks both Italian (it-IT) and US English, that+-- voice will be included if you specify @yes@ but not if you specify @no@.+--+-- 'languageCode', 'describeVoices_languageCode' - The language identification tag (ISO 639 code for the language name-ISO+-- 3166 country code) for filtering the list of voices returned. If you+-- don\'t specify this optional parameter, all available voices are+-- returned.+--+-- 'nextToken', 'describeVoices_nextToken' - An opaque pagination token returned from the previous @DescribeVoices@+-- operation. If present, this indicates where to continue the listing.+newDescribeVoices ::+  DescribeVoices+newDescribeVoices =+  DescribeVoices'+    { engine = Prelude.Nothing,+      includeAdditionalLanguageCodes = Prelude.Nothing,+      languageCode = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Specifies the engine (@standard@ or @neural@) used by Amazon Polly when+-- processing input text for speech synthesis.+describeVoices_engine :: Lens.Lens' DescribeVoices (Prelude.Maybe Engine)+describeVoices_engine = Lens.lens (\DescribeVoices' {engine} -> engine) (\s@DescribeVoices' {} a -> s {engine = a} :: DescribeVoices)++-- | Boolean value indicating whether to return any bilingual voices that use+-- the specified language as an additional language. For instance, if you+-- request all languages that use US English (es-US), and there is an+-- Italian voice that speaks both Italian (it-IT) and US English, that+-- voice will be included if you specify @yes@ but not if you specify @no@.+describeVoices_includeAdditionalLanguageCodes :: Lens.Lens' DescribeVoices (Prelude.Maybe Prelude.Bool)+describeVoices_includeAdditionalLanguageCodes = Lens.lens (\DescribeVoices' {includeAdditionalLanguageCodes} -> includeAdditionalLanguageCodes) (\s@DescribeVoices' {} a -> s {includeAdditionalLanguageCodes = a} :: DescribeVoices)++-- | The language identification tag (ISO 639 code for the language name-ISO+-- 3166 country code) for filtering the list of voices returned. If you+-- don\'t specify this optional parameter, all available voices are+-- returned.+describeVoices_languageCode :: Lens.Lens' DescribeVoices (Prelude.Maybe LanguageCode)+describeVoices_languageCode = Lens.lens (\DescribeVoices' {languageCode} -> languageCode) (\s@DescribeVoices' {} a -> s {languageCode = a} :: DescribeVoices)++-- | An opaque pagination token returned from the previous @DescribeVoices@+-- operation. If present, this indicates where to continue the listing.+describeVoices_nextToken :: Lens.Lens' DescribeVoices (Prelude.Maybe Prelude.Text)+describeVoices_nextToken = Lens.lens (\DescribeVoices' {nextToken} -> nextToken) (\s@DescribeVoices' {} a -> s {nextToken = a} :: DescribeVoices)++instance Core.AWSPager DescribeVoices where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeVoicesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeVoicesResponse_voices+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeVoices_nextToken+          Lens..~ rs+          Lens.^? describeVoicesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeVoices where+  type+    AWSResponse DescribeVoices =+      DescribeVoicesResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeVoicesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Voices" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeVoices where+  hashWithSalt _salt DescribeVoices' {..} =+    _salt+      `Prelude.hashWithSalt` engine+      `Prelude.hashWithSalt` includeAdditionalLanguageCodes+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeVoices where+  rnf DescribeVoices' {..} =+    Prelude.rnf engine+      `Prelude.seq` Prelude.rnf includeAdditionalLanguageCodes+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeVoices where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeVoices where+  toPath = Prelude.const "/v1/voices"++instance Data.ToQuery DescribeVoices where+  toQuery DescribeVoices' {..} =+    Prelude.mconcat+      [ "Engine" Data.=: engine,+        "IncludeAdditionalLanguageCodes"+          Data.=: includeAdditionalLanguageCodes,+        "LanguageCode" Data.=: languageCode,+        "NextToken" Data.=: nextToken+      ]++-- | /See:/ 'newDescribeVoicesResponse' smart constructor.+data DescribeVoicesResponse = DescribeVoicesResponse'+  { -- | The pagination token to use in the next request to continue the listing+    -- of voices. @NextToken@ is returned only if the response is truncated.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of voices with their properties.+    voices :: Prelude.Maybe [Voice],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeVoicesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeVoicesResponse_nextToken' - The pagination token to use in the next request to continue the listing+-- of voices. @NextToken@ is returned only if the response is truncated.+--+-- 'voices', 'describeVoicesResponse_voices' - A list of voices with their properties.+--+-- 'httpStatus', 'describeVoicesResponse_httpStatus' - The response's http status code.+newDescribeVoicesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeVoicesResponse+newDescribeVoicesResponse pHttpStatus_ =+  DescribeVoicesResponse'+    { nextToken =+        Prelude.Nothing,+      voices = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The pagination token to use in the next request to continue the listing+-- of voices. @NextToken@ is returned only if the response is truncated.+describeVoicesResponse_nextToken :: Lens.Lens' DescribeVoicesResponse (Prelude.Maybe Prelude.Text)+describeVoicesResponse_nextToken = Lens.lens (\DescribeVoicesResponse' {nextToken} -> nextToken) (\s@DescribeVoicesResponse' {} a -> s {nextToken = a} :: DescribeVoicesResponse)++-- | A list of voices with their properties.+describeVoicesResponse_voices :: Lens.Lens' DescribeVoicesResponse (Prelude.Maybe [Voice])+describeVoicesResponse_voices = Lens.lens (\DescribeVoicesResponse' {voices} -> voices) (\s@DescribeVoicesResponse' {} a -> s {voices = a} :: DescribeVoicesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeVoicesResponse_httpStatus :: Lens.Lens' DescribeVoicesResponse Prelude.Int+describeVoicesResponse_httpStatus = Lens.lens (\DescribeVoicesResponse' {httpStatus} -> httpStatus) (\s@DescribeVoicesResponse' {} a -> s {httpStatus = a} :: DescribeVoicesResponse)++instance Prelude.NFData DescribeVoicesResponse where+  rnf DescribeVoicesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf voices+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.GetLexicon+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the content of the specified pronunciation lexicon stored in an+-- Amazon Web Services Region. For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons>.+module Amazonka.Polly.GetLexicon+  ( -- * Creating a Request+    GetLexicon (..),+    newGetLexicon,++    -- * Request Lenses+    getLexicon_name,++    -- * Destructuring the Response+    GetLexiconResponse (..),+    newGetLexiconResponse,++    -- * Response Lenses+    getLexiconResponse_lexicon,+    getLexiconResponse_lexiconAttributes,+    getLexiconResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetLexicon' smart constructor.+data GetLexicon = GetLexicon'+  { -- | Name of the lexicon.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetLexicon' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'getLexicon_name' - Name of the lexicon.+newGetLexicon ::+  -- | 'name'+  Prelude.Text ->+  GetLexicon+newGetLexicon pName_ = GetLexicon' {name = pName_}++-- | Name of the lexicon.+getLexicon_name :: Lens.Lens' GetLexicon Prelude.Text+getLexicon_name = Lens.lens (\GetLexicon' {name} -> name) (\s@GetLexicon' {} a -> s {name = a} :: GetLexicon)++instance Core.AWSRequest GetLexicon where+  type AWSResponse GetLexicon = GetLexiconResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetLexiconResponse'+            Prelude.<$> (x Data..?> "Lexicon")+            Prelude.<*> (x Data..?> "LexiconAttributes")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetLexicon where+  hashWithSalt _salt GetLexicon' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetLexicon where+  rnf GetLexicon' {..} = Prelude.rnf name++instance Data.ToHeaders GetLexicon where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetLexicon where+  toPath GetLexicon' {..} =+    Prelude.mconcat ["/v1/lexicons/", Data.toBS name]++instance Data.ToQuery GetLexicon where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetLexiconResponse' smart constructor.+data GetLexiconResponse = GetLexiconResponse'+  { -- | Lexicon object that provides name and the string content of the lexicon.+    lexicon :: Prelude.Maybe Lexicon,+    -- | Metadata of the lexicon, including phonetic alphabetic used, language+    -- code, lexicon ARN, number of lexemes defined in the lexicon, and size of+    -- lexicon in bytes.+    lexiconAttributes :: Prelude.Maybe LexiconAttributes,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetLexiconResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'lexicon', 'getLexiconResponse_lexicon' - Lexicon object that provides name and the string content of the lexicon.+--+-- 'lexiconAttributes', 'getLexiconResponse_lexiconAttributes' - Metadata of the lexicon, including phonetic alphabetic used, language+-- code, lexicon ARN, number of lexemes defined in the lexicon, and size of+-- lexicon in bytes.+--+-- 'httpStatus', 'getLexiconResponse_httpStatus' - The response's http status code.+newGetLexiconResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetLexiconResponse+newGetLexiconResponse pHttpStatus_ =+  GetLexiconResponse'+    { lexicon = Prelude.Nothing,+      lexiconAttributes = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Lexicon object that provides name and the string content of the lexicon.+getLexiconResponse_lexicon :: Lens.Lens' GetLexiconResponse (Prelude.Maybe Lexicon)+getLexiconResponse_lexicon = Lens.lens (\GetLexiconResponse' {lexicon} -> lexicon) (\s@GetLexiconResponse' {} a -> s {lexicon = a} :: GetLexiconResponse)++-- | Metadata of the lexicon, including phonetic alphabetic used, language+-- code, lexicon ARN, number of lexemes defined in the lexicon, and size of+-- lexicon in bytes.+getLexiconResponse_lexiconAttributes :: Lens.Lens' GetLexiconResponse (Prelude.Maybe LexiconAttributes)+getLexiconResponse_lexiconAttributes = Lens.lens (\GetLexiconResponse' {lexiconAttributes} -> lexiconAttributes) (\s@GetLexiconResponse' {} a -> s {lexiconAttributes = a} :: GetLexiconResponse)++-- | The response's http status code.+getLexiconResponse_httpStatus :: Lens.Lens' GetLexiconResponse Prelude.Int+getLexiconResponse_httpStatus = Lens.lens (\GetLexiconResponse' {httpStatus} -> httpStatus) (\s@GetLexiconResponse' {} a -> s {httpStatus = a} :: GetLexiconResponse)++instance Prelude.NFData GetLexiconResponse where+  rnf GetLexiconResponse' {..} =+    Prelude.rnf lexicon+      `Prelude.seq` Prelude.rnf lexiconAttributes+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,160 @@+{-# 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.Polly.GetSpeechSynthesisTask+-- 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 specific SpeechSynthesisTask object based on its TaskID.+-- This object contains information about the given speech synthesis task,+-- including the status of the task, and a link to the S3 bucket containing+-- the output of the task.+module Amazonka.Polly.GetSpeechSynthesisTask+  ( -- * Creating a Request+    GetSpeechSynthesisTask (..),+    newGetSpeechSynthesisTask,++    -- * Request Lenses+    getSpeechSynthesisTask_taskId,++    -- * Destructuring the Response+    GetSpeechSynthesisTaskResponse (..),+    newGetSpeechSynthesisTaskResponse,++    -- * Response Lenses+    getSpeechSynthesisTaskResponse_synthesisTask,+    getSpeechSynthesisTaskResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetSpeechSynthesisTask' smart constructor.+data GetSpeechSynthesisTask = GetSpeechSynthesisTask'+  { -- | The Amazon Polly generated identifier for a speech synthesis task.+    taskId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSpeechSynthesisTask' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'taskId', 'getSpeechSynthesisTask_taskId' - The Amazon Polly generated identifier for a speech synthesis task.+newGetSpeechSynthesisTask ::+  -- | 'taskId'+  Prelude.Text ->+  GetSpeechSynthesisTask+newGetSpeechSynthesisTask pTaskId_ =+  GetSpeechSynthesisTask' {taskId = pTaskId_}++-- | The Amazon Polly generated identifier for a speech synthesis task.+getSpeechSynthesisTask_taskId :: Lens.Lens' GetSpeechSynthesisTask Prelude.Text+getSpeechSynthesisTask_taskId = Lens.lens (\GetSpeechSynthesisTask' {taskId} -> taskId) (\s@GetSpeechSynthesisTask' {} a -> s {taskId = a} :: GetSpeechSynthesisTask)++instance Core.AWSRequest GetSpeechSynthesisTask where+  type+    AWSResponse GetSpeechSynthesisTask =+      GetSpeechSynthesisTaskResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSpeechSynthesisTaskResponse'+            Prelude.<$> (x Data..?> "SynthesisTask")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSpeechSynthesisTask where+  hashWithSalt _salt GetSpeechSynthesisTask' {..} =+    _salt `Prelude.hashWithSalt` taskId++instance Prelude.NFData GetSpeechSynthesisTask where+  rnf GetSpeechSynthesisTask' {..} = Prelude.rnf taskId++instance Data.ToHeaders GetSpeechSynthesisTask where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetSpeechSynthesisTask where+  toPath GetSpeechSynthesisTask' {..} =+    Prelude.mconcat+      ["/v1/synthesisTasks/", Data.toBS taskId]++instance Data.ToQuery GetSpeechSynthesisTask where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetSpeechSynthesisTaskResponse' smart constructor.+data GetSpeechSynthesisTaskResponse = GetSpeechSynthesisTaskResponse'+  { -- | SynthesisTask object that provides information from the requested task,+    -- including output format, creation time, task status, and so on.+    synthesisTask :: Prelude.Maybe SynthesisTask,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSpeechSynthesisTaskResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'synthesisTask', 'getSpeechSynthesisTaskResponse_synthesisTask' - SynthesisTask object that provides information from the requested task,+-- including output format, creation time, task status, and so on.+--+-- 'httpStatus', 'getSpeechSynthesisTaskResponse_httpStatus' - The response's http status code.+newGetSpeechSynthesisTaskResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSpeechSynthesisTaskResponse+newGetSpeechSynthesisTaskResponse pHttpStatus_ =+  GetSpeechSynthesisTaskResponse'+    { synthesisTask =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | SynthesisTask object that provides information from the requested task,+-- including output format, creation time, task status, and so on.+getSpeechSynthesisTaskResponse_synthesisTask :: Lens.Lens' GetSpeechSynthesisTaskResponse (Prelude.Maybe SynthesisTask)+getSpeechSynthesisTaskResponse_synthesisTask = Lens.lens (\GetSpeechSynthesisTaskResponse' {synthesisTask} -> synthesisTask) (\s@GetSpeechSynthesisTaskResponse' {} a -> s {synthesisTask = a} :: GetSpeechSynthesisTaskResponse)++-- | The response's http status code.+getSpeechSynthesisTaskResponse_httpStatus :: Lens.Lens' GetSpeechSynthesisTaskResponse Prelude.Int+getSpeechSynthesisTaskResponse_httpStatus = Lens.lens (\GetSpeechSynthesisTaskResponse' {httpStatus} -> httpStatus) (\s@GetSpeechSynthesisTaskResponse' {} a -> s {httpStatus = a} :: GetSpeechSynthesisTaskResponse)++instance+  Prelude.NFData+    GetSpeechSynthesisTaskResponse+  where+  rnf GetSpeechSynthesisTaskResponse' {..} =+    Prelude.rnf synthesisTask+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,150 @@+{-# 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.Polly.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.Polly.Lens+  ( -- * Operations++    -- ** DeleteLexicon+    deleteLexicon_name,+    deleteLexiconResponse_httpStatus,++    -- ** DescribeVoices+    describeVoices_engine,+    describeVoices_includeAdditionalLanguageCodes,+    describeVoices_languageCode,+    describeVoices_nextToken,+    describeVoicesResponse_nextToken,+    describeVoicesResponse_voices,+    describeVoicesResponse_httpStatus,++    -- ** GetLexicon+    getLexicon_name,+    getLexiconResponse_lexicon,+    getLexiconResponse_lexiconAttributes,+    getLexiconResponse_httpStatus,++    -- ** GetSpeechSynthesisTask+    getSpeechSynthesisTask_taskId,+    getSpeechSynthesisTaskResponse_synthesisTask,+    getSpeechSynthesisTaskResponse_httpStatus,++    -- ** ListLexicons+    listLexicons_nextToken,+    listLexiconsResponse_lexicons,+    listLexiconsResponse_nextToken,+    listLexiconsResponse_httpStatus,++    -- ** ListSpeechSynthesisTasks+    listSpeechSynthesisTasks_maxResults,+    listSpeechSynthesisTasks_nextToken,+    listSpeechSynthesisTasks_status,+    listSpeechSynthesisTasksResponse_nextToken,+    listSpeechSynthesisTasksResponse_synthesisTasks,+    listSpeechSynthesisTasksResponse_httpStatus,++    -- ** PutLexicon+    putLexicon_name,+    putLexicon_content,+    putLexiconResponse_httpStatus,++    -- ** StartSpeechSynthesisTask+    startSpeechSynthesisTask_engine,+    startSpeechSynthesisTask_languageCode,+    startSpeechSynthesisTask_lexiconNames,+    startSpeechSynthesisTask_outputS3KeyPrefix,+    startSpeechSynthesisTask_sampleRate,+    startSpeechSynthesisTask_snsTopicArn,+    startSpeechSynthesisTask_speechMarkTypes,+    startSpeechSynthesisTask_textType,+    startSpeechSynthesisTask_outputFormat,+    startSpeechSynthesisTask_outputS3BucketName,+    startSpeechSynthesisTask_text,+    startSpeechSynthesisTask_voiceId,+    startSpeechSynthesisTaskResponse_synthesisTask,+    startSpeechSynthesisTaskResponse_httpStatus,++    -- ** SynthesizeSpeech+    synthesizeSpeech_engine,+    synthesizeSpeech_languageCode,+    synthesizeSpeech_lexiconNames,+    synthesizeSpeech_sampleRate,+    synthesizeSpeech_speechMarkTypes,+    synthesizeSpeech_textType,+    synthesizeSpeech_outputFormat,+    synthesizeSpeech_text,+    synthesizeSpeech_voiceId,+    synthesizeSpeechResponse_contentType,+    synthesizeSpeechResponse_requestCharacters,+    synthesizeSpeechResponse_httpStatus,+    synthesizeSpeechResponse_audioStream,++    -- * Types++    -- ** Lexicon+    lexicon_content,+    lexicon_name,++    -- ** LexiconAttributes+    lexiconAttributes_alphabet,+    lexiconAttributes_languageCode,+    lexiconAttributes_lastModified,+    lexiconAttributes_lexemesCount,+    lexiconAttributes_lexiconArn,+    lexiconAttributes_size,++    -- ** LexiconDescription+    lexiconDescription_attributes,+    lexiconDescription_name,++    -- ** SynthesisTask+    synthesisTask_creationTime,+    synthesisTask_engine,+    synthesisTask_languageCode,+    synthesisTask_lexiconNames,+    synthesisTask_outputFormat,+    synthesisTask_outputUri,+    synthesisTask_requestCharacters,+    synthesisTask_sampleRate,+    synthesisTask_snsTopicArn,+    synthesisTask_speechMarkTypes,+    synthesisTask_taskId,+    synthesisTask_taskStatus,+    synthesisTask_taskStatusReason,+    synthesisTask_textType,+    synthesisTask_voiceId,++    -- ** Voice+    voice_additionalLanguageCodes,+    voice_gender,+    voice_id,+    voice_languageCode,+    voice_languageName,+    voice_name,+    voice_supportedEngines,+  )+where++import Amazonka.Polly.DeleteLexicon+import Amazonka.Polly.DescribeVoices+import Amazonka.Polly.GetLexicon+import Amazonka.Polly.GetSpeechSynthesisTask+import Amazonka.Polly.ListLexicons+import Amazonka.Polly.ListSpeechSynthesisTasks+import Amazonka.Polly.PutLexicon+import Amazonka.Polly.StartSpeechSynthesisTask+import Amazonka.Polly.SynthesizeSpeech+import Amazonka.Polly.Types.Lexicon+import Amazonka.Polly.Types.LexiconAttributes+import Amazonka.Polly.Types.LexiconDescription+import Amazonka.Polly.Types.SynthesisTask+import Amazonka.Polly.Types.Voice

@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.ListLexicons+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of pronunciation lexicons stored in an Amazon Web+-- Services Region. For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons>.+--+-- This operation returns paginated results.+module Amazonka.Polly.ListLexicons+  ( -- * Creating a Request+    ListLexicons (..),+    newListLexicons,++    -- * Request Lenses+    listLexicons_nextToken,++    -- * Destructuring the Response+    ListLexiconsResponse (..),+    newListLexiconsResponse,++    -- * Response Lenses+    listLexiconsResponse_lexicons,+    listLexiconsResponse_nextToken,+    listLexiconsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListLexicons' smart constructor.+data ListLexicons = ListLexicons'+  { -- | An opaque pagination token returned from previous @ListLexicons@+    -- operation. If present, indicates where to continue the list of lexicons.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLexicons' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listLexicons_nextToken' - An opaque pagination token returned from previous @ListLexicons@+-- operation. If present, indicates where to continue the list of lexicons.+newListLexicons ::+  ListLexicons+newListLexicons =+  ListLexicons' {nextToken = Prelude.Nothing}++-- | An opaque pagination token returned from previous @ListLexicons@+-- operation. If present, indicates where to continue the list of lexicons.+listLexicons_nextToken :: Lens.Lens' ListLexicons (Prelude.Maybe Prelude.Text)+listLexicons_nextToken = Lens.lens (\ListLexicons' {nextToken} -> nextToken) (\s@ListLexicons' {} a -> s {nextToken = a} :: ListLexicons)++instance Core.AWSPager ListLexicons where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listLexiconsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listLexiconsResponse_lexicons+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listLexicons_nextToken+          Lens..~ rs+          Lens.^? listLexiconsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListLexicons where+  type AWSResponse ListLexicons = ListLexiconsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListLexiconsResponse'+            Prelude.<$> (x Data..?> "Lexicons" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListLexicons where+  hashWithSalt _salt ListLexicons' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListLexicons where+  rnf ListLexicons' {..} = Prelude.rnf nextToken++instance Data.ToHeaders ListLexicons where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListLexicons where+  toPath = Prelude.const "/v1/lexicons"++instance Data.ToQuery ListLexicons where+  toQuery ListLexicons' {..} =+    Prelude.mconcat ["NextToken" Data.=: nextToken]++-- | /See:/ 'newListLexiconsResponse' smart constructor.+data ListLexiconsResponse = ListLexiconsResponse'+  { -- | A list of lexicon names and attributes.+    lexicons :: Prelude.Maybe [LexiconDescription],+    -- | The pagination token to use in the next request to continue the listing+    -- of lexicons. @NextToken@ is returned only if the response is truncated.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLexiconsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'lexicons', 'listLexiconsResponse_lexicons' - A list of lexicon names and attributes.+--+-- 'nextToken', 'listLexiconsResponse_nextToken' - The pagination token to use in the next request to continue the listing+-- of lexicons. @NextToken@ is returned only if the response is truncated.+--+-- 'httpStatus', 'listLexiconsResponse_httpStatus' - The response's http status code.+newListLexiconsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListLexiconsResponse+newListLexiconsResponse pHttpStatus_ =+  ListLexiconsResponse'+    { lexicons = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of lexicon names and attributes.+listLexiconsResponse_lexicons :: Lens.Lens' ListLexiconsResponse (Prelude.Maybe [LexiconDescription])+listLexiconsResponse_lexicons = Lens.lens (\ListLexiconsResponse' {lexicons} -> lexicons) (\s@ListLexiconsResponse' {} a -> s {lexicons = a} :: ListLexiconsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The pagination token to use in the next request to continue the listing+-- of lexicons. @NextToken@ is returned only if the response is truncated.+listLexiconsResponse_nextToken :: Lens.Lens' ListLexiconsResponse (Prelude.Maybe Prelude.Text)+listLexiconsResponse_nextToken = Lens.lens (\ListLexiconsResponse' {nextToken} -> nextToken) (\s@ListLexiconsResponse' {} a -> s {nextToken = a} :: ListLexiconsResponse)++-- | The response's http status code.+listLexiconsResponse_httpStatus :: Lens.Lens' ListLexiconsResponse Prelude.Int+listLexiconsResponse_httpStatus = Lens.lens (\ListLexiconsResponse' {httpStatus} -> httpStatus) (\s@ListLexiconsResponse' {} a -> s {httpStatus = a} :: ListLexiconsResponse)++instance Prelude.NFData ListLexiconsResponse where+  rnf ListLexiconsResponse' {..} =+    Prelude.rnf lexicons+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,234 @@+{-# 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.Polly.ListSpeechSynthesisTasks+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of SpeechSynthesisTask objects ordered by their creation+-- date. This operation can filter the tasks by their status, for example,+-- allowing users to list only tasks that are completed.+--+-- This operation returns paginated results.+module Amazonka.Polly.ListSpeechSynthesisTasks+  ( -- * Creating a Request+    ListSpeechSynthesisTasks (..),+    newListSpeechSynthesisTasks,++    -- * Request Lenses+    listSpeechSynthesisTasks_maxResults,+    listSpeechSynthesisTasks_nextToken,+    listSpeechSynthesisTasks_status,++    -- * Destructuring the Response+    ListSpeechSynthesisTasksResponse (..),+    newListSpeechSynthesisTasksResponse,++    -- * Response Lenses+    listSpeechSynthesisTasksResponse_nextToken,+    listSpeechSynthesisTasksResponse_synthesisTasks,+    listSpeechSynthesisTasksResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListSpeechSynthesisTasks' smart constructor.+data ListSpeechSynthesisTasks = ListSpeechSynthesisTasks'+  { -- | Maximum number of speech synthesis tasks returned in a List operation.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token to use in the next request to continue the listing+    -- of speech synthesis tasks.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Status of the speech synthesis tasks returned in a List operation+    status :: Prelude.Maybe TaskStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSpeechSynthesisTasks' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'listSpeechSynthesisTasks_maxResults' - Maximum number of speech synthesis tasks returned in a List operation.+--+-- 'nextToken', 'listSpeechSynthesisTasks_nextToken' - The pagination token to use in the next request to continue the listing+-- of speech synthesis tasks.+--+-- 'status', 'listSpeechSynthesisTasks_status' - Status of the speech synthesis tasks returned in a List operation+newListSpeechSynthesisTasks ::+  ListSpeechSynthesisTasks+newListSpeechSynthesisTasks =+  ListSpeechSynthesisTasks'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | Maximum number of speech synthesis tasks returned in a List operation.+listSpeechSynthesisTasks_maxResults :: Lens.Lens' ListSpeechSynthesisTasks (Prelude.Maybe Prelude.Natural)+listSpeechSynthesisTasks_maxResults = Lens.lens (\ListSpeechSynthesisTasks' {maxResults} -> maxResults) (\s@ListSpeechSynthesisTasks' {} a -> s {maxResults = a} :: ListSpeechSynthesisTasks)++-- | The pagination token to use in the next request to continue the listing+-- of speech synthesis tasks.+listSpeechSynthesisTasks_nextToken :: Lens.Lens' ListSpeechSynthesisTasks (Prelude.Maybe Prelude.Text)+listSpeechSynthesisTasks_nextToken = Lens.lens (\ListSpeechSynthesisTasks' {nextToken} -> nextToken) (\s@ListSpeechSynthesisTasks' {} a -> s {nextToken = a} :: ListSpeechSynthesisTasks)++-- | Status of the speech synthesis tasks returned in a List operation+listSpeechSynthesisTasks_status :: Lens.Lens' ListSpeechSynthesisTasks (Prelude.Maybe TaskStatus)+listSpeechSynthesisTasks_status = Lens.lens (\ListSpeechSynthesisTasks' {status} -> status) (\s@ListSpeechSynthesisTasks' {} a -> s {status = a} :: ListSpeechSynthesisTasks)++instance Core.AWSPager ListSpeechSynthesisTasks where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSpeechSynthesisTasksResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSpeechSynthesisTasksResponse_synthesisTasks+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSpeechSynthesisTasks_nextToken+          Lens..~ rs+          Lens.^? listSpeechSynthesisTasksResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSpeechSynthesisTasks where+  type+    AWSResponse ListSpeechSynthesisTasks =+      ListSpeechSynthesisTasksResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSpeechSynthesisTasksResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "SynthesisTasks" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSpeechSynthesisTasks where+  hashWithSalt _salt ListSpeechSynthesisTasks' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status++instance Prelude.NFData ListSpeechSynthesisTasks where+  rnf ListSpeechSynthesisTasks' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status++instance Data.ToHeaders ListSpeechSynthesisTasks where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ListSpeechSynthesisTasks where+  toPath = Prelude.const "/v1/synthesisTasks"++instance Data.ToQuery ListSpeechSynthesisTasks where+  toQuery ListSpeechSynthesisTasks' {..} =+    Prelude.mconcat+      [ "MaxResults" Data.=: maxResults,+        "NextToken" Data.=: nextToken,+        "Status" Data.=: status+      ]++-- | /See:/ 'newListSpeechSynthesisTasksResponse' smart constructor.+data ListSpeechSynthesisTasksResponse = ListSpeechSynthesisTasksResponse'+  { -- | An opaque pagination token returned from the previous List operation in+    -- this request. If present, this indicates where to continue the listing.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | List of SynthesisTask objects that provides information from the+    -- specified task in the list request, including output format, creation+    -- time, task status, and so on.+    synthesisTasks :: Prelude.Maybe [SynthesisTask],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSpeechSynthesisTasksResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSpeechSynthesisTasksResponse_nextToken' - An opaque pagination token returned from the previous List operation in+-- this request. If present, this indicates where to continue the listing.+--+-- 'synthesisTasks', 'listSpeechSynthesisTasksResponse_synthesisTasks' - List of SynthesisTask objects that provides information from the+-- specified task in the list request, including output format, creation+-- time, task status, and so on.+--+-- 'httpStatus', 'listSpeechSynthesisTasksResponse_httpStatus' - The response's http status code.+newListSpeechSynthesisTasksResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSpeechSynthesisTasksResponse+newListSpeechSynthesisTasksResponse pHttpStatus_ =+  ListSpeechSynthesisTasksResponse'+    { nextToken =+        Prelude.Nothing,+      synthesisTasks = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An opaque pagination token returned from the previous List operation in+-- this request. If present, this indicates where to continue the listing.+listSpeechSynthesisTasksResponse_nextToken :: Lens.Lens' ListSpeechSynthesisTasksResponse (Prelude.Maybe Prelude.Text)+listSpeechSynthesisTasksResponse_nextToken = Lens.lens (\ListSpeechSynthesisTasksResponse' {nextToken} -> nextToken) (\s@ListSpeechSynthesisTasksResponse' {} a -> s {nextToken = a} :: ListSpeechSynthesisTasksResponse)++-- | List of SynthesisTask objects that provides information from the+-- specified task in the list request, including output format, creation+-- time, task status, and so on.+listSpeechSynthesisTasksResponse_synthesisTasks :: Lens.Lens' ListSpeechSynthesisTasksResponse (Prelude.Maybe [SynthesisTask])+listSpeechSynthesisTasksResponse_synthesisTasks = Lens.lens (\ListSpeechSynthesisTasksResponse' {synthesisTasks} -> synthesisTasks) (\s@ListSpeechSynthesisTasksResponse' {} a -> s {synthesisTasks = a} :: ListSpeechSynthesisTasksResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSpeechSynthesisTasksResponse_httpStatus :: Lens.Lens' ListSpeechSynthesisTasksResponse Prelude.Int+listSpeechSynthesisTasksResponse_httpStatus = Lens.lens (\ListSpeechSynthesisTasksResponse' {httpStatus} -> httpStatus) (\s@ListSpeechSynthesisTasksResponse' {} a -> s {httpStatus = a} :: ListSpeechSynthesisTasksResponse)++instance+  Prelude.NFData+    ListSpeechSynthesisTasksResponse+  where+  rnf ListSpeechSynthesisTasksResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf synthesisTasks+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.PutLexicon+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stores a pronunciation lexicon in an Amazon Web Services Region. If a+-- lexicon with the same name already exists in the region, it is+-- overwritten by the new lexicon. Lexicon operations have eventual+-- consistency, therefore, it might take some time before the lexicon is+-- available to the SynthesizeSpeech operation.+--+-- For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons>.+module Amazonka.Polly.PutLexicon+  ( -- * Creating a Request+    PutLexicon (..),+    newPutLexicon,++    -- * Request Lenses+    putLexicon_name,+    putLexicon_content,++    -- * Destructuring the Response+    PutLexiconResponse (..),+    newPutLexiconResponse,++    -- * Response Lenses+    putLexiconResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutLexicon' smart constructor.+data PutLexicon = PutLexicon'+  { -- | Name of the lexicon. The name must follow the regular express format+    -- [0-9A-Za-z]{1,20}. That is, the name is a case-sensitive alphanumeric+    -- string up to 20 characters long.+    name :: Prelude.Text,+    -- | Content of the PLS lexicon as string data.+    content :: Data.Sensitive Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutLexicon' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'putLexicon_name' - Name of the lexicon. The name must follow the regular express format+-- [0-9A-Za-z]{1,20}. That is, the name is a case-sensitive alphanumeric+-- string up to 20 characters long.+--+-- 'content', 'putLexicon_content' - Content of the PLS lexicon as string data.+newPutLexicon ::+  -- | 'name'+  Prelude.Text ->+  -- | 'content'+  Prelude.Text ->+  PutLexicon+newPutLexicon pName_ pContent_ =+  PutLexicon'+    { name = pName_,+      content = Data._Sensitive Lens.# pContent_+    }++-- | Name of the lexicon. The name must follow the regular express format+-- [0-9A-Za-z]{1,20}. That is, the name is a case-sensitive alphanumeric+-- string up to 20 characters long.+putLexicon_name :: Lens.Lens' PutLexicon Prelude.Text+putLexicon_name = Lens.lens (\PutLexicon' {name} -> name) (\s@PutLexicon' {} a -> s {name = a} :: PutLexicon)++-- | Content of the PLS lexicon as string data.+putLexicon_content :: Lens.Lens' PutLexicon Prelude.Text+putLexicon_content = Lens.lens (\PutLexicon' {content} -> content) (\s@PutLexicon' {} a -> s {content = a} :: PutLexicon) Prelude.. Data._Sensitive++instance Core.AWSRequest PutLexicon where+  type AWSResponse PutLexicon = PutLexiconResponse+  request overrides =+    Request.putJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutLexiconResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutLexicon where+  hashWithSalt _salt PutLexicon' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` content++instance Prelude.NFData PutLexicon where+  rnf PutLexicon' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf content++instance Data.ToHeaders PutLexicon where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON PutLexicon where+  toJSON PutLexicon' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Content" Data..= content)]+      )++instance Data.ToPath PutLexicon where+  toPath PutLexicon' {..} =+    Prelude.mconcat ["/v1/lexicons/", Data.toBS name]++instance Data.ToQuery PutLexicon where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutLexiconResponse' smart constructor.+data PutLexiconResponse = PutLexiconResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutLexiconResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'putLexiconResponse_httpStatus' - The response's http status code.+newPutLexiconResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutLexiconResponse+newPutLexiconResponse pHttpStatus_ =+  PutLexiconResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+putLexiconResponse_httpStatus :: Lens.Lens' PutLexiconResponse Prelude.Int+putLexiconResponse_httpStatus = Lens.lens (\PutLexiconResponse' {httpStatus} -> httpStatus) (\s@PutLexiconResponse' {} a -> s {httpStatus = a} :: PutLexiconResponse)++instance Prelude.NFData PutLexiconResponse where+  rnf PutLexiconResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,406 @@+{-# 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.Polly.StartSpeechSynthesisTask+-- 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 the creation of an asynchronous synthesis task, by starting a new+-- @SpeechSynthesisTask@. This operation requires all the standard+-- information needed for speech synthesis, plus the name of an Amazon S3+-- bucket for the service to store the output of the synthesis task and two+-- optional parameters (@OutputS3KeyPrefix@ and @SnsTopicArn@). Once the+-- synthesis task is created, this operation will return a+-- @SpeechSynthesisTask@ object, which will include an identifier of this+-- task as well as the current status. The @SpeechSynthesisTask@ object is+-- available for 72 hours after starting the asynchronous synthesis task.+module Amazonka.Polly.StartSpeechSynthesisTask+  ( -- * Creating a Request+    StartSpeechSynthesisTask (..),+    newStartSpeechSynthesisTask,++    -- * Request Lenses+    startSpeechSynthesisTask_engine,+    startSpeechSynthesisTask_languageCode,+    startSpeechSynthesisTask_lexiconNames,+    startSpeechSynthesisTask_outputS3KeyPrefix,+    startSpeechSynthesisTask_sampleRate,+    startSpeechSynthesisTask_snsTopicArn,+    startSpeechSynthesisTask_speechMarkTypes,+    startSpeechSynthesisTask_textType,+    startSpeechSynthesisTask_outputFormat,+    startSpeechSynthesisTask_outputS3BucketName,+    startSpeechSynthesisTask_text,+    startSpeechSynthesisTask_voiceId,++    -- * Destructuring the Response+    StartSpeechSynthesisTaskResponse (..),+    newStartSpeechSynthesisTaskResponse,++    -- * Response Lenses+    startSpeechSynthesisTaskResponse_synthesisTask,+    startSpeechSynthesisTaskResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartSpeechSynthesisTask' smart constructor.+data StartSpeechSynthesisTask = StartSpeechSynthesisTask'+  { -- | Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+    -- when processing input text for speech synthesis. Using a voice that is+    -- not supported for the engine selected will result in an error.+    engine :: Prelude.Maybe Engine,+    -- | Optional language code for the Speech Synthesis request. This is only+    -- necessary if using a bilingual voice, such as Aditi, which can be used+    -- for either Indian English (en-IN) or Hindi (hi-IN).+    --+    -- If a bilingual voice is used and no language code is specified, Amazon+    -- Polly uses the default language of the bilingual voice. The default+    -- language for any voice is the one returned by the+    -- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+    -- operation for the @LanguageCode@ parameter. For example, if no language+    -- code is specified, Aditi will use Indian English rather than Hindi.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | List of one or more pronunciation lexicon names you want the service to+    -- apply during synthesis. Lexicons are applied only if the language of the+    -- lexicon is the same as the language of the voice.+    lexiconNames :: Prelude.Maybe [Prelude.Text],+    -- | The Amazon S3 key prefix for the output speech file.+    outputS3KeyPrefix :: Prelude.Maybe Prelude.Text,+    -- | The audio frequency specified in Hz.+    --+    -- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+    -- \"22050\", and \"24000\". The default value for standard voices is+    -- \"22050\". The default value for neural voices is \"24000\".+    --+    -- Valid values for pcm are \"8000\" and \"16000\" The default value is+    -- \"16000\".+    sampleRate :: Prelude.Maybe Prelude.Text,+    -- | ARN for the SNS topic optionally used for providing status notification+    -- for a speech synthesis task.+    snsTopicArn :: Prelude.Maybe Prelude.Text,+    -- | The type of speech marks returned for the input text.+    speechMarkTypes :: Prelude.Maybe [SpeechMarkType],+    -- | Specifies whether the input text is plain text or SSML. The default+    -- value is plain text.+    textType :: Prelude.Maybe TextType,+    -- | The format in which the returned output will be encoded. For audio+    -- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+    -- will be json.+    outputFormat :: OutputFormat,+    -- | Amazon S3 bucket name to which the output file will be saved.+    outputS3BucketName :: Prelude.Text,+    -- | The input text to synthesize. If you specify ssml as the TextType,+    -- follow the SSML format for the input text.+    text :: Prelude.Text,+    -- | Voice ID to use for the synthesis.+    voiceId :: VoiceId+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSpeechSynthesisTask' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'engine', 'startSpeechSynthesisTask_engine' - Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+-- when processing input text for speech synthesis. Using a voice that is+-- not supported for the engine selected will result in an error.+--+-- 'languageCode', 'startSpeechSynthesisTask_languageCode' - Optional language code for the Speech Synthesis request. This is only+-- necessary if using a bilingual voice, such as Aditi, which can be used+-- for either Indian English (en-IN) or Hindi (hi-IN).+--+-- If a bilingual voice is used and no language code is specified, Amazon+-- Polly uses the default language of the bilingual voice. The default+-- language for any voice is the one returned by the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation for the @LanguageCode@ parameter. For example, if no language+-- code is specified, Aditi will use Indian English rather than Hindi.+--+-- 'lexiconNames', 'startSpeechSynthesisTask_lexiconNames' - List of one or more pronunciation lexicon names you want the service to+-- apply during synthesis. Lexicons are applied only if the language of the+-- lexicon is the same as the language of the voice.+--+-- 'outputS3KeyPrefix', 'startSpeechSynthesisTask_outputS3KeyPrefix' - The Amazon S3 key prefix for the output speech file.+--+-- 'sampleRate', 'startSpeechSynthesisTask_sampleRate' - The audio frequency specified in Hz.+--+-- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+-- \"22050\", and \"24000\". The default value for standard voices is+-- \"22050\". The default value for neural voices is \"24000\".+--+-- Valid values for pcm are \"8000\" and \"16000\" The default value is+-- \"16000\".+--+-- 'snsTopicArn', 'startSpeechSynthesisTask_snsTopicArn' - ARN for the SNS topic optionally used for providing status notification+-- for a speech synthesis task.+--+-- 'speechMarkTypes', 'startSpeechSynthesisTask_speechMarkTypes' - The type of speech marks returned for the input text.+--+-- 'textType', 'startSpeechSynthesisTask_textType' - Specifies whether the input text is plain text or SSML. The default+-- value is plain text.+--+-- 'outputFormat', 'startSpeechSynthesisTask_outputFormat' - The format in which the returned output will be encoded. For audio+-- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+-- will be json.+--+-- 'outputS3BucketName', 'startSpeechSynthesisTask_outputS3BucketName' - Amazon S3 bucket name to which the output file will be saved.+--+-- 'text', 'startSpeechSynthesisTask_text' - The input text to synthesize. If you specify ssml as the TextType,+-- follow the SSML format for the input text.+--+-- 'voiceId', 'startSpeechSynthesisTask_voiceId' - Voice ID to use for the synthesis.+newStartSpeechSynthesisTask ::+  -- | 'outputFormat'+  OutputFormat ->+  -- | 'outputS3BucketName'+  Prelude.Text ->+  -- | 'text'+  Prelude.Text ->+  -- | 'voiceId'+  VoiceId ->+  StartSpeechSynthesisTask+newStartSpeechSynthesisTask+  pOutputFormat_+  pOutputS3BucketName_+  pText_+  pVoiceId_ =+    StartSpeechSynthesisTask'+      { engine = Prelude.Nothing,+        languageCode = Prelude.Nothing,+        lexiconNames = Prelude.Nothing,+        outputS3KeyPrefix = Prelude.Nothing,+        sampleRate = Prelude.Nothing,+        snsTopicArn = Prelude.Nothing,+        speechMarkTypes = Prelude.Nothing,+        textType = Prelude.Nothing,+        outputFormat = pOutputFormat_,+        outputS3BucketName = pOutputS3BucketName_,+        text = pText_,+        voiceId = pVoiceId_+      }++-- | Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+-- when processing input text for speech synthesis. Using a voice that is+-- not supported for the engine selected will result in an error.+startSpeechSynthesisTask_engine :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe Engine)+startSpeechSynthesisTask_engine = Lens.lens (\StartSpeechSynthesisTask' {engine} -> engine) (\s@StartSpeechSynthesisTask' {} a -> s {engine = a} :: StartSpeechSynthesisTask)++-- | Optional language code for the Speech Synthesis request. This is only+-- necessary if using a bilingual voice, such as Aditi, which can be used+-- for either Indian English (en-IN) or Hindi (hi-IN).+--+-- If a bilingual voice is used and no language code is specified, Amazon+-- Polly uses the default language of the bilingual voice. The default+-- language for any voice is the one returned by the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation for the @LanguageCode@ parameter. For example, if no language+-- code is specified, Aditi will use Indian English rather than Hindi.+startSpeechSynthesisTask_languageCode :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe LanguageCode)+startSpeechSynthesisTask_languageCode = Lens.lens (\StartSpeechSynthesisTask' {languageCode} -> languageCode) (\s@StartSpeechSynthesisTask' {} a -> s {languageCode = a} :: StartSpeechSynthesisTask)++-- | List of one or more pronunciation lexicon names you want the service to+-- apply during synthesis. Lexicons are applied only if the language of the+-- lexicon is the same as the language of the voice.+startSpeechSynthesisTask_lexiconNames :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe [Prelude.Text])+startSpeechSynthesisTask_lexiconNames = Lens.lens (\StartSpeechSynthesisTask' {lexiconNames} -> lexiconNames) (\s@StartSpeechSynthesisTask' {} a -> s {lexiconNames = a} :: StartSpeechSynthesisTask) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon S3 key prefix for the output speech file.+startSpeechSynthesisTask_outputS3KeyPrefix :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe Prelude.Text)+startSpeechSynthesisTask_outputS3KeyPrefix = Lens.lens (\StartSpeechSynthesisTask' {outputS3KeyPrefix} -> outputS3KeyPrefix) (\s@StartSpeechSynthesisTask' {} a -> s {outputS3KeyPrefix = a} :: StartSpeechSynthesisTask)++-- | The audio frequency specified in Hz.+--+-- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+-- \"22050\", and \"24000\". The default value for standard voices is+-- \"22050\". The default value for neural voices is \"24000\".+--+-- Valid values for pcm are \"8000\" and \"16000\" The default value is+-- \"16000\".+startSpeechSynthesisTask_sampleRate :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe Prelude.Text)+startSpeechSynthesisTask_sampleRate = Lens.lens (\StartSpeechSynthesisTask' {sampleRate} -> sampleRate) (\s@StartSpeechSynthesisTask' {} a -> s {sampleRate = a} :: StartSpeechSynthesisTask)++-- | ARN for the SNS topic optionally used for providing status notification+-- for a speech synthesis task.+startSpeechSynthesisTask_snsTopicArn :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe Prelude.Text)+startSpeechSynthesisTask_snsTopicArn = Lens.lens (\StartSpeechSynthesisTask' {snsTopicArn} -> snsTopicArn) (\s@StartSpeechSynthesisTask' {} a -> s {snsTopicArn = a} :: StartSpeechSynthesisTask)++-- | The type of speech marks returned for the input text.+startSpeechSynthesisTask_speechMarkTypes :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe [SpeechMarkType])+startSpeechSynthesisTask_speechMarkTypes = Lens.lens (\StartSpeechSynthesisTask' {speechMarkTypes} -> speechMarkTypes) (\s@StartSpeechSynthesisTask' {} a -> s {speechMarkTypes = a} :: StartSpeechSynthesisTask) Prelude.. Lens.mapping Lens.coerced++-- | Specifies whether the input text is plain text or SSML. The default+-- value is plain text.+startSpeechSynthesisTask_textType :: Lens.Lens' StartSpeechSynthesisTask (Prelude.Maybe TextType)+startSpeechSynthesisTask_textType = Lens.lens (\StartSpeechSynthesisTask' {textType} -> textType) (\s@StartSpeechSynthesisTask' {} a -> s {textType = a} :: StartSpeechSynthesisTask)++-- | The format in which the returned output will be encoded. For audio+-- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+-- will be json.+startSpeechSynthesisTask_outputFormat :: Lens.Lens' StartSpeechSynthesisTask OutputFormat+startSpeechSynthesisTask_outputFormat = Lens.lens (\StartSpeechSynthesisTask' {outputFormat} -> outputFormat) (\s@StartSpeechSynthesisTask' {} a -> s {outputFormat = a} :: StartSpeechSynthesisTask)++-- | Amazon S3 bucket name to which the output file will be saved.+startSpeechSynthesisTask_outputS3BucketName :: Lens.Lens' StartSpeechSynthesisTask Prelude.Text+startSpeechSynthesisTask_outputS3BucketName = Lens.lens (\StartSpeechSynthesisTask' {outputS3BucketName} -> outputS3BucketName) (\s@StartSpeechSynthesisTask' {} a -> s {outputS3BucketName = a} :: StartSpeechSynthesisTask)++-- | The input text to synthesize. If you specify ssml as the TextType,+-- follow the SSML format for the input text.+startSpeechSynthesisTask_text :: Lens.Lens' StartSpeechSynthesisTask Prelude.Text+startSpeechSynthesisTask_text = Lens.lens (\StartSpeechSynthesisTask' {text} -> text) (\s@StartSpeechSynthesisTask' {} a -> s {text = a} :: StartSpeechSynthesisTask)++-- | Voice ID to use for the synthesis.+startSpeechSynthesisTask_voiceId :: Lens.Lens' StartSpeechSynthesisTask VoiceId+startSpeechSynthesisTask_voiceId = Lens.lens (\StartSpeechSynthesisTask' {voiceId} -> voiceId) (\s@StartSpeechSynthesisTask' {} a -> s {voiceId = a} :: StartSpeechSynthesisTask)++instance Core.AWSRequest StartSpeechSynthesisTask where+  type+    AWSResponse StartSpeechSynthesisTask =+      StartSpeechSynthesisTaskResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartSpeechSynthesisTaskResponse'+            Prelude.<$> (x Data..?> "SynthesisTask")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartSpeechSynthesisTask where+  hashWithSalt _salt StartSpeechSynthesisTask' {..} =+    _salt+      `Prelude.hashWithSalt` engine+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` lexiconNames+      `Prelude.hashWithSalt` outputS3KeyPrefix+      `Prelude.hashWithSalt` sampleRate+      `Prelude.hashWithSalt` snsTopicArn+      `Prelude.hashWithSalt` speechMarkTypes+      `Prelude.hashWithSalt` textType+      `Prelude.hashWithSalt` outputFormat+      `Prelude.hashWithSalt` outputS3BucketName+      `Prelude.hashWithSalt` text+      `Prelude.hashWithSalt` voiceId++instance Prelude.NFData StartSpeechSynthesisTask where+  rnf StartSpeechSynthesisTask' {..} =+    Prelude.rnf engine+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf lexiconNames+      `Prelude.seq` Prelude.rnf outputS3KeyPrefix+      `Prelude.seq` Prelude.rnf sampleRate+      `Prelude.seq` Prelude.rnf snsTopicArn+      `Prelude.seq` Prelude.rnf speechMarkTypes+      `Prelude.seq` Prelude.rnf textType+      `Prelude.seq` Prelude.rnf outputFormat+      `Prelude.seq` Prelude.rnf outputS3BucketName+      `Prelude.seq` Prelude.rnf text+      `Prelude.seq` Prelude.rnf voiceId++instance Data.ToHeaders StartSpeechSynthesisTask where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON StartSpeechSynthesisTask where+  toJSON StartSpeechSynthesisTask' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Engine" Data..=) Prelude.<$> engine,+            ("LanguageCode" Data..=) Prelude.<$> languageCode,+            ("LexiconNames" Data..=) Prelude.<$> lexiconNames,+            ("OutputS3KeyPrefix" Data..=)+              Prelude.<$> outputS3KeyPrefix,+            ("SampleRate" Data..=) Prelude.<$> sampleRate,+            ("SnsTopicArn" Data..=) Prelude.<$> snsTopicArn,+            ("SpeechMarkTypes" Data..=)+              Prelude.<$> speechMarkTypes,+            ("TextType" Data..=) Prelude.<$> textType,+            Prelude.Just ("OutputFormat" Data..= outputFormat),+            Prelude.Just+              ("OutputS3BucketName" Data..= outputS3BucketName),+            Prelude.Just ("Text" Data..= text),+            Prelude.Just ("VoiceId" Data..= voiceId)+          ]+      )++instance Data.ToPath StartSpeechSynthesisTask where+  toPath = Prelude.const "/v1/synthesisTasks"++instance Data.ToQuery StartSpeechSynthesisTask where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartSpeechSynthesisTaskResponse' smart constructor.+data StartSpeechSynthesisTaskResponse = StartSpeechSynthesisTaskResponse'+  { -- | SynthesisTask object that provides information and attributes about a+    -- newly submitted speech synthesis task.+    synthesisTask :: Prelude.Maybe SynthesisTask,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSpeechSynthesisTaskResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'synthesisTask', 'startSpeechSynthesisTaskResponse_synthesisTask' - SynthesisTask object that provides information and attributes about a+-- newly submitted speech synthesis task.+--+-- 'httpStatus', 'startSpeechSynthesisTaskResponse_httpStatus' - The response's http status code.+newStartSpeechSynthesisTaskResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartSpeechSynthesisTaskResponse+newStartSpeechSynthesisTaskResponse pHttpStatus_ =+  StartSpeechSynthesisTaskResponse'+    { synthesisTask =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | SynthesisTask object that provides information and attributes about a+-- newly submitted speech synthesis task.+startSpeechSynthesisTaskResponse_synthesisTask :: Lens.Lens' StartSpeechSynthesisTaskResponse (Prelude.Maybe SynthesisTask)+startSpeechSynthesisTaskResponse_synthesisTask = Lens.lens (\StartSpeechSynthesisTaskResponse' {synthesisTask} -> synthesisTask) (\s@StartSpeechSynthesisTaskResponse' {} a -> s {synthesisTask = a} :: StartSpeechSynthesisTaskResponse)++-- | The response's http status code.+startSpeechSynthesisTaskResponse_httpStatus :: Lens.Lens' StartSpeechSynthesisTaskResponse Prelude.Int+startSpeechSynthesisTaskResponse_httpStatus = Lens.lens (\StartSpeechSynthesisTaskResponse' {httpStatus} -> httpStatus) (\s@StartSpeechSynthesisTaskResponse' {} a -> s {httpStatus = a} :: StartSpeechSynthesisTaskResponse)++instance+  Prelude.NFData+    StartSpeechSynthesisTaskResponse+  where+  rnf StartSpeechSynthesisTaskResponse' {..} =+    Prelude.rnf synthesisTask+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,497 @@+{-# 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.Polly.SynthesizeSpeech+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Synthesizes UTF-8 input, plain text or SSML, to a stream of bytes. SSML+-- input must be valid, well-formed SSML. Some alphabets might not be+-- available with all the voices (for example, Cyrillic might not be read+-- at all by English voices) unless phoneme mapping is used. For more+-- information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/how-text-to-speech-works.html How it Works>.+module Amazonka.Polly.SynthesizeSpeech+  ( -- * Creating a Request+    SynthesizeSpeech (..),+    newSynthesizeSpeech,++    -- * Request Lenses+    synthesizeSpeech_engine,+    synthesizeSpeech_languageCode,+    synthesizeSpeech_lexiconNames,+    synthesizeSpeech_sampleRate,+    synthesizeSpeech_speechMarkTypes,+    synthesizeSpeech_textType,+    synthesizeSpeech_outputFormat,+    synthesizeSpeech_text,+    synthesizeSpeech_voiceId,++    -- * Destructuring the Response+    SynthesizeSpeechResponse (..),+    newSynthesizeSpeechResponse,++    -- * Response Lenses+    synthesizeSpeechResponse_contentType,+    synthesizeSpeechResponse_requestCharacters,+    synthesizeSpeechResponse_httpStatus,+    synthesizeSpeechResponse_audioStream,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newSynthesizeSpeech' smart constructor.+data SynthesizeSpeech = SynthesizeSpeech'+  { -- | Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+    -- when processing input text for speech synthesis. For information on+    -- Amazon Polly voices and which voices are available in standard-only,+    -- NTTS-only, and both standard and NTTS formats, see+    -- <https://docs.aws.amazon.com/polly/latest/dg/voicelist.html Available Voices>.+    --+    -- __NTTS-only voices__+    --+    -- When using NTTS-only voices such as Kevin (en-US), this parameter is+    -- required and must be set to @neural@. If the engine is not specified, or+    -- is set to @standard@, this will result in an error.+    --+    -- Type: String+    --+    -- Valid Values: @standard@ | @neural@+    --+    -- Required: Yes+    --+    -- __Standard voices__+    --+    -- For standard voices, this is not required; the engine parameter defaults+    -- to @standard@. If the engine is not specified, or is set to @standard@+    -- and an NTTS-only voice is selected, this will result in an error.+    engine :: Prelude.Maybe Engine,+    -- | Optional language code for the Synthesize Speech request. This is only+    -- necessary if using a bilingual voice, such as Aditi, which can be used+    -- for either Indian English (en-IN) or Hindi (hi-IN).+    --+    -- If a bilingual voice is used and no language code is specified, Amazon+    -- Polly uses the default language of the bilingual voice. The default+    -- language for any voice is the one returned by the+    -- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+    -- operation for the @LanguageCode@ parameter. For example, if no language+    -- code is specified, Aditi will use Indian English rather than Hindi.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | List of one or more pronunciation lexicon names you want the service to+    -- apply during synthesis. Lexicons are applied only if the language of the+    -- lexicon is the same as the language of the voice. For information about+    -- storing lexicons, see+    -- <https://docs.aws.amazon.com/polly/latest/dg/API_PutLexicon.html PutLexicon>.+    lexiconNames :: Prelude.Maybe [Prelude.Text],+    -- | The audio frequency specified in Hz.+    --+    -- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+    -- \"22050\", and \"24000\". The default value for standard voices is+    -- \"22050\". The default value for neural voices is \"24000\".+    --+    -- Valid values for pcm are \"8000\" and \"16000\" The default value is+    -- \"16000\".+    sampleRate :: Prelude.Maybe Prelude.Text,+    -- | The type of speech marks returned for the input text.+    speechMarkTypes :: Prelude.Maybe [SpeechMarkType],+    -- | Specifies whether the input text is plain text or SSML. The default+    -- value is plain text. For more information, see+    -- <https://docs.aws.amazon.com/polly/latest/dg/ssml.html Using SSML>.+    textType :: Prelude.Maybe TextType,+    -- | The format in which the returned output will be encoded. For audio+    -- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+    -- will be json.+    --+    -- When pcm is used, the content returned is audio\/pcm in a signed 16-bit,+    -- 1 channel (mono), little-endian format.+    outputFormat :: OutputFormat,+    -- | Input text to synthesize. If you specify @ssml@ as the @TextType@,+    -- follow the SSML format for the input text.+    text :: Prelude.Text,+    -- | Voice ID to use for the synthesis. You can get a list of available voice+    -- IDs by calling the+    -- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+    -- operation.+    voiceId :: VoiceId+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SynthesizeSpeech' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'engine', 'synthesizeSpeech_engine' - Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+-- when processing input text for speech synthesis. For information on+-- Amazon Polly voices and which voices are available in standard-only,+-- NTTS-only, and both standard and NTTS formats, see+-- <https://docs.aws.amazon.com/polly/latest/dg/voicelist.html Available Voices>.+--+-- __NTTS-only voices__+--+-- When using NTTS-only voices such as Kevin (en-US), this parameter is+-- required and must be set to @neural@. If the engine is not specified, or+-- is set to @standard@, this will result in an error.+--+-- Type: String+--+-- Valid Values: @standard@ | @neural@+--+-- Required: Yes+--+-- __Standard voices__+--+-- For standard voices, this is not required; the engine parameter defaults+-- to @standard@. If the engine is not specified, or is set to @standard@+-- and an NTTS-only voice is selected, this will result in an error.+--+-- 'languageCode', 'synthesizeSpeech_languageCode' - Optional language code for the Synthesize Speech request. This is only+-- necessary if using a bilingual voice, such as Aditi, which can be used+-- for either Indian English (en-IN) or Hindi (hi-IN).+--+-- If a bilingual voice is used and no language code is specified, Amazon+-- Polly uses the default language of the bilingual voice. The default+-- language for any voice is the one returned by the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation for the @LanguageCode@ parameter. For example, if no language+-- code is specified, Aditi will use Indian English rather than Hindi.+--+-- 'lexiconNames', 'synthesizeSpeech_lexiconNames' - List of one or more pronunciation lexicon names you want the service to+-- apply during synthesis. Lexicons are applied only if the language of the+-- lexicon is the same as the language of the voice. For information about+-- storing lexicons, see+-- <https://docs.aws.amazon.com/polly/latest/dg/API_PutLexicon.html PutLexicon>.+--+-- 'sampleRate', 'synthesizeSpeech_sampleRate' - The audio frequency specified in Hz.+--+-- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+-- \"22050\", and \"24000\". The default value for standard voices is+-- \"22050\". The default value for neural voices is \"24000\".+--+-- Valid values for pcm are \"8000\" and \"16000\" The default value is+-- \"16000\".+--+-- 'speechMarkTypes', 'synthesizeSpeech_speechMarkTypes' - The type of speech marks returned for the input text.+--+-- 'textType', 'synthesizeSpeech_textType' - Specifies whether the input text is plain text or SSML. The default+-- value is plain text. For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/ssml.html Using SSML>.+--+-- 'outputFormat', 'synthesizeSpeech_outputFormat' - The format in which the returned output will be encoded. For audio+-- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+-- will be json.+--+-- When pcm is used, the content returned is audio\/pcm in a signed 16-bit,+-- 1 channel (mono), little-endian format.+--+-- 'text', 'synthesizeSpeech_text' - Input text to synthesize. If you specify @ssml@ as the @TextType@,+-- follow the SSML format for the input text.+--+-- 'voiceId', 'synthesizeSpeech_voiceId' - Voice ID to use for the synthesis. You can get a list of available voice+-- IDs by calling the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation.+newSynthesizeSpeech ::+  -- | 'outputFormat'+  OutputFormat ->+  -- | 'text'+  Prelude.Text ->+  -- | 'voiceId'+  VoiceId ->+  SynthesizeSpeech+newSynthesizeSpeech pOutputFormat_ pText_ pVoiceId_ =+  SynthesizeSpeech'+    { engine = Prelude.Nothing,+      languageCode = Prelude.Nothing,+      lexiconNames = Prelude.Nothing,+      sampleRate = Prelude.Nothing,+      speechMarkTypes = Prelude.Nothing,+      textType = Prelude.Nothing,+      outputFormat = pOutputFormat_,+      text = pText_,+      voiceId = pVoiceId_+    }++-- | Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+-- when processing input text for speech synthesis. For information on+-- Amazon Polly voices and which voices are available in standard-only,+-- NTTS-only, and both standard and NTTS formats, see+-- <https://docs.aws.amazon.com/polly/latest/dg/voicelist.html Available Voices>.+--+-- __NTTS-only voices__+--+-- When using NTTS-only voices such as Kevin (en-US), this parameter is+-- required and must be set to @neural@. If the engine is not specified, or+-- is set to @standard@, this will result in an error.+--+-- Type: String+--+-- Valid Values: @standard@ | @neural@+--+-- Required: Yes+--+-- __Standard voices__+--+-- For standard voices, this is not required; the engine parameter defaults+-- to @standard@. If the engine is not specified, or is set to @standard@+-- and an NTTS-only voice is selected, this will result in an error.+synthesizeSpeech_engine :: Lens.Lens' SynthesizeSpeech (Prelude.Maybe Engine)+synthesizeSpeech_engine = Lens.lens (\SynthesizeSpeech' {engine} -> engine) (\s@SynthesizeSpeech' {} a -> s {engine = a} :: SynthesizeSpeech)++-- | Optional language code for the Synthesize Speech request. This is only+-- necessary if using a bilingual voice, such as Aditi, which can be used+-- for either Indian English (en-IN) or Hindi (hi-IN).+--+-- If a bilingual voice is used and no language code is specified, Amazon+-- Polly uses the default language of the bilingual voice. The default+-- language for any voice is the one returned by the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation for the @LanguageCode@ parameter. For example, if no language+-- code is specified, Aditi will use Indian English rather than Hindi.+synthesizeSpeech_languageCode :: Lens.Lens' SynthesizeSpeech (Prelude.Maybe LanguageCode)+synthesizeSpeech_languageCode = Lens.lens (\SynthesizeSpeech' {languageCode} -> languageCode) (\s@SynthesizeSpeech' {} a -> s {languageCode = a} :: SynthesizeSpeech)++-- | List of one or more pronunciation lexicon names you want the service to+-- apply during synthesis. Lexicons are applied only if the language of the+-- lexicon is the same as the language of the voice. For information about+-- storing lexicons, see+-- <https://docs.aws.amazon.com/polly/latest/dg/API_PutLexicon.html PutLexicon>.+synthesizeSpeech_lexiconNames :: Lens.Lens' SynthesizeSpeech (Prelude.Maybe [Prelude.Text])+synthesizeSpeech_lexiconNames = Lens.lens (\SynthesizeSpeech' {lexiconNames} -> lexiconNames) (\s@SynthesizeSpeech' {} a -> s {lexiconNames = a} :: SynthesizeSpeech) Prelude.. Lens.mapping Lens.coerced++-- | The audio frequency specified in Hz.+--+-- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+-- \"22050\", and \"24000\". The default value for standard voices is+-- \"22050\". The default value for neural voices is \"24000\".+--+-- Valid values for pcm are \"8000\" and \"16000\" The default value is+-- \"16000\".+synthesizeSpeech_sampleRate :: Lens.Lens' SynthesizeSpeech (Prelude.Maybe Prelude.Text)+synthesizeSpeech_sampleRate = Lens.lens (\SynthesizeSpeech' {sampleRate} -> sampleRate) (\s@SynthesizeSpeech' {} a -> s {sampleRate = a} :: SynthesizeSpeech)++-- | The type of speech marks returned for the input text.+synthesizeSpeech_speechMarkTypes :: Lens.Lens' SynthesizeSpeech (Prelude.Maybe [SpeechMarkType])+synthesizeSpeech_speechMarkTypes = Lens.lens (\SynthesizeSpeech' {speechMarkTypes} -> speechMarkTypes) (\s@SynthesizeSpeech' {} a -> s {speechMarkTypes = a} :: SynthesizeSpeech) Prelude.. Lens.mapping Lens.coerced++-- | Specifies whether the input text is plain text or SSML. The default+-- value is plain text. For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/ssml.html Using SSML>.+synthesizeSpeech_textType :: Lens.Lens' SynthesizeSpeech (Prelude.Maybe TextType)+synthesizeSpeech_textType = Lens.lens (\SynthesizeSpeech' {textType} -> textType) (\s@SynthesizeSpeech' {} a -> s {textType = a} :: SynthesizeSpeech)++-- | The format in which the returned output will be encoded. For audio+-- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+-- will be json.+--+-- When pcm is used, the content returned is audio\/pcm in a signed 16-bit,+-- 1 channel (mono), little-endian format.+synthesizeSpeech_outputFormat :: Lens.Lens' SynthesizeSpeech OutputFormat+synthesizeSpeech_outputFormat = Lens.lens (\SynthesizeSpeech' {outputFormat} -> outputFormat) (\s@SynthesizeSpeech' {} a -> s {outputFormat = a} :: SynthesizeSpeech)++-- | Input text to synthesize. If you specify @ssml@ as the @TextType@,+-- follow the SSML format for the input text.+synthesizeSpeech_text :: Lens.Lens' SynthesizeSpeech Prelude.Text+synthesizeSpeech_text = Lens.lens (\SynthesizeSpeech' {text} -> text) (\s@SynthesizeSpeech' {} a -> s {text = a} :: SynthesizeSpeech)++-- | Voice ID to use for the synthesis. You can get a list of available voice+-- IDs by calling the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation.+synthesizeSpeech_voiceId :: Lens.Lens' SynthesizeSpeech VoiceId+synthesizeSpeech_voiceId = Lens.lens (\SynthesizeSpeech' {voiceId} -> voiceId) (\s@SynthesizeSpeech' {} a -> s {voiceId = a} :: SynthesizeSpeech)++instance Core.AWSRequest SynthesizeSpeech where+  type+    AWSResponse SynthesizeSpeech =+      SynthesizeSpeechResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveBody+      ( \s h x ->+          SynthesizeSpeechResponse'+            Prelude.<$> (h Data..#? "Content-Type")+            Prelude.<*> (h Data..#? "x-amzn-RequestCharacters")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (Prelude.pure x)+      )++instance Prelude.Hashable SynthesizeSpeech where+  hashWithSalt _salt SynthesizeSpeech' {..} =+    _salt+      `Prelude.hashWithSalt` engine+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` lexiconNames+      `Prelude.hashWithSalt` sampleRate+      `Prelude.hashWithSalt` speechMarkTypes+      `Prelude.hashWithSalt` textType+      `Prelude.hashWithSalt` outputFormat+      `Prelude.hashWithSalt` text+      `Prelude.hashWithSalt` voiceId++instance Prelude.NFData SynthesizeSpeech where+  rnf SynthesizeSpeech' {..} =+    Prelude.rnf engine+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf lexiconNames+      `Prelude.seq` Prelude.rnf sampleRate+      `Prelude.seq` Prelude.rnf speechMarkTypes+      `Prelude.seq` Prelude.rnf textType+      `Prelude.seq` Prelude.rnf outputFormat+      `Prelude.seq` Prelude.rnf text+      `Prelude.seq` Prelude.rnf voiceId++instance Data.ToHeaders SynthesizeSpeech where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON SynthesizeSpeech where+  toJSON SynthesizeSpeech' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Engine" Data..=) Prelude.<$> engine,+            ("LanguageCode" Data..=) Prelude.<$> languageCode,+            ("LexiconNames" Data..=) Prelude.<$> lexiconNames,+            ("SampleRate" Data..=) Prelude.<$> sampleRate,+            ("SpeechMarkTypes" Data..=)+              Prelude.<$> speechMarkTypes,+            ("TextType" Data..=) Prelude.<$> textType,+            Prelude.Just ("OutputFormat" Data..= outputFormat),+            Prelude.Just ("Text" Data..= text),+            Prelude.Just ("VoiceId" Data..= voiceId)+          ]+      )++instance Data.ToPath SynthesizeSpeech where+  toPath = Prelude.const "/v1/speech"++instance Data.ToQuery SynthesizeSpeech where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newSynthesizeSpeechResponse' smart constructor.+data SynthesizeSpeechResponse = SynthesizeSpeechResponse'+  { -- | Specifies the type audio stream. This should reflect the @OutputFormat@+    -- parameter in your request.+    --+    -- -   If you request @mp3@ as the @OutputFormat@, the @ContentType@+    --     returned is audio\/mpeg.+    --+    -- -   If you request @ogg_vorbis@ as the @OutputFormat@, the @ContentType@+    --     returned is audio\/ogg.+    --+    -- -   If you request @pcm@ as the @OutputFormat@, the @ContentType@+    --     returned is audio\/pcm in a signed 16-bit, 1 channel (mono),+    --     little-endian format.+    --+    -- -   If you request @json@ as the @OutputFormat@, the @ContentType@+    --     returned is application\/x-json-stream.+    contentType :: Prelude.Maybe Prelude.Text,+    -- | Number of characters synthesized.+    requestCharacters :: Prelude.Maybe Prelude.Int,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | Stream containing the synthesized speech.+    audioStream :: Data.ResponseBody+  }+  deriving (Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SynthesizeSpeechResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'contentType', 'synthesizeSpeechResponse_contentType' - Specifies the type audio stream. This should reflect the @OutputFormat@+-- parameter in your request.+--+-- -   If you request @mp3@ as the @OutputFormat@, the @ContentType@+--     returned is audio\/mpeg.+--+-- -   If you request @ogg_vorbis@ as the @OutputFormat@, the @ContentType@+--     returned is audio\/ogg.+--+-- -   If you request @pcm@ as the @OutputFormat@, the @ContentType@+--     returned is audio\/pcm in a signed 16-bit, 1 channel (mono),+--     little-endian format.+--+-- -   If you request @json@ as the @OutputFormat@, the @ContentType@+--     returned is application\/x-json-stream.+--+-- 'requestCharacters', 'synthesizeSpeechResponse_requestCharacters' - Number of characters synthesized.+--+-- 'httpStatus', 'synthesizeSpeechResponse_httpStatus' - The response's http status code.+--+-- 'audioStream', 'synthesizeSpeechResponse_audioStream' - Stream containing the synthesized speech.+newSynthesizeSpeechResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'audioStream'+  Data.ResponseBody ->+  SynthesizeSpeechResponse+newSynthesizeSpeechResponse+  pHttpStatus_+  pAudioStream_ =+    SynthesizeSpeechResponse'+      { contentType =+          Prelude.Nothing,+        requestCharacters = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        audioStream = pAudioStream_+      }++-- | Specifies the type audio stream. This should reflect the @OutputFormat@+-- parameter in your request.+--+-- -   If you request @mp3@ as the @OutputFormat@, the @ContentType@+--     returned is audio\/mpeg.+--+-- -   If you request @ogg_vorbis@ as the @OutputFormat@, the @ContentType@+--     returned is audio\/ogg.+--+-- -   If you request @pcm@ as the @OutputFormat@, the @ContentType@+--     returned is audio\/pcm in a signed 16-bit, 1 channel (mono),+--     little-endian format.+--+-- -   If you request @json@ as the @OutputFormat@, the @ContentType@+--     returned is application\/x-json-stream.+synthesizeSpeechResponse_contentType :: Lens.Lens' SynthesizeSpeechResponse (Prelude.Maybe Prelude.Text)+synthesizeSpeechResponse_contentType = Lens.lens (\SynthesizeSpeechResponse' {contentType} -> contentType) (\s@SynthesizeSpeechResponse' {} a -> s {contentType = a} :: SynthesizeSpeechResponse)++-- | Number of characters synthesized.+synthesizeSpeechResponse_requestCharacters :: Lens.Lens' SynthesizeSpeechResponse (Prelude.Maybe Prelude.Int)+synthesizeSpeechResponse_requestCharacters = Lens.lens (\SynthesizeSpeechResponse' {requestCharacters} -> requestCharacters) (\s@SynthesizeSpeechResponse' {} a -> s {requestCharacters = a} :: SynthesizeSpeechResponse)++-- | The response's http status code.+synthesizeSpeechResponse_httpStatus :: Lens.Lens' SynthesizeSpeechResponse Prelude.Int+synthesizeSpeechResponse_httpStatus = Lens.lens (\SynthesizeSpeechResponse' {httpStatus} -> httpStatus) (\s@SynthesizeSpeechResponse' {} a -> s {httpStatus = a} :: SynthesizeSpeechResponse)++-- | Stream containing the synthesized speech.+synthesizeSpeechResponse_audioStream :: Lens.Lens' SynthesizeSpeechResponse Data.ResponseBody+synthesizeSpeechResponse_audioStream = Lens.lens (\SynthesizeSpeechResponse' {audioStream} -> audioStream) (\s@SynthesizeSpeechResponse' {} a -> s {audioStream = a} :: SynthesizeSpeechResponse)

@@ -0,0 +1,400 @@+{-# 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.Polly.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.Polly.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _EngineNotSupportedException,+    _InvalidLexiconException,+    _InvalidNextTokenException,+    _InvalidS3BucketException,+    _InvalidS3KeyException,+    _InvalidSampleRateException,+    _InvalidSnsTopicArnException,+    _InvalidSsmlException,+    _InvalidTaskIdException,+    _LanguageNotSupportedException,+    _LexiconNotFoundException,+    _LexiconSizeExceededException,+    _MarksNotSupportedForFormatException,+    _MaxLexemeLengthExceededException,+    _MaxLexiconsNumberExceededException,+    _ServiceFailureException,+    _SsmlMarksNotSupportedForTextTypeException,+    _SynthesisTaskNotFoundException,+    _TextLengthExceededException,+    _UnsupportedPlsAlphabetException,+    _UnsupportedPlsLanguageException,++    -- * Engine+    Engine (..),++    -- * Gender+    Gender (..),++    -- * LanguageCode+    LanguageCode (..),++    -- * OutputFormat+    OutputFormat (..),++    -- * SpeechMarkType+    SpeechMarkType (..),++    -- * TaskStatus+    TaskStatus (..),++    -- * TextType+    TextType (..),++    -- * VoiceId+    VoiceId (..),++    -- * Lexicon+    Lexicon (..),+    newLexicon,+    lexicon_content,+    lexicon_name,++    -- * LexiconAttributes+    LexiconAttributes (..),+    newLexiconAttributes,+    lexiconAttributes_alphabet,+    lexiconAttributes_languageCode,+    lexiconAttributes_lastModified,+    lexiconAttributes_lexemesCount,+    lexiconAttributes_lexiconArn,+    lexiconAttributes_size,++    -- * LexiconDescription+    LexiconDescription (..),+    newLexiconDescription,+    lexiconDescription_attributes,+    lexiconDescription_name,++    -- * SynthesisTask+    SynthesisTask (..),+    newSynthesisTask,+    synthesisTask_creationTime,+    synthesisTask_engine,+    synthesisTask_languageCode,+    synthesisTask_lexiconNames,+    synthesisTask_outputFormat,+    synthesisTask_outputUri,+    synthesisTask_requestCharacters,+    synthesisTask_sampleRate,+    synthesisTask_snsTopicArn,+    synthesisTask_speechMarkTypes,+    synthesisTask_taskId,+    synthesisTask_taskStatus,+    synthesisTask_taskStatusReason,+    synthesisTask_textType,+    synthesisTask_voiceId,++    -- * Voice+    Voice (..),+    newVoice,+    voice_additionalLanguageCodes,+    voice_gender,+    voice_id,+    voice_languageCode,+    voice_languageName,+    voice_name,+    voice_supportedEngines,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.Polly.Types.Engine+import Amazonka.Polly.Types.Gender+import Amazonka.Polly.Types.LanguageCode+import Amazonka.Polly.Types.Lexicon+import Amazonka.Polly.Types.LexiconAttributes+import Amazonka.Polly.Types.LexiconDescription+import Amazonka.Polly.Types.OutputFormat+import Amazonka.Polly.Types.SpeechMarkType+import Amazonka.Polly.Types.SynthesisTask+import Amazonka.Polly.Types.TaskStatus+import Amazonka.Polly.Types.TextType+import Amazonka.Polly.Types.Voice+import Amazonka.Polly.Types.VoiceId+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2016-06-10@ of the Amazon Polly SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "Polly",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "polly",+      Core.signingName = "polly",+      Core.version = "2016-06-10",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "Polly",+      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++-- | This engine is not compatible with the voice that you have designated.+-- Choose a new voice that is compatible with the engine or change the+-- engine and restart the operation.+_EngineNotSupportedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EngineNotSupportedException =+  Core._MatchServiceError+    defaultService+    "EngineNotSupportedException"+    Prelude.. Core.hasStatus 400++-- | Amazon Polly can\'t find the specified lexicon. Verify that the+-- lexicon\'s name is spelled correctly, and then try again.+_InvalidLexiconException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidLexiconException =+  Core._MatchServiceError+    defaultService+    "InvalidLexiconException"+    Prelude.. Core.hasStatus 400++-- | The NextToken is invalid. Verify that it\'s spelled correctly, and then+-- try again.+_InvalidNextTokenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidNextTokenException =+  Core._MatchServiceError+    defaultService+    "InvalidNextTokenException"+    Prelude.. Core.hasStatus 400++-- | The provided Amazon S3 bucket name is invalid. Please check your input+-- with S3 bucket naming requirements and try again.+_InvalidS3BucketException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidS3BucketException =+  Core._MatchServiceError+    defaultService+    "InvalidS3BucketException"+    Prelude.. Core.hasStatus 400++-- | The provided Amazon S3 key prefix is invalid. Please provide a valid S3+-- object key name.+_InvalidS3KeyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidS3KeyException =+  Core._MatchServiceError+    defaultService+    "InvalidS3KeyException"+    Prelude.. Core.hasStatus 400++-- | The specified sample rate is not valid.+_InvalidSampleRateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidSampleRateException =+  Core._MatchServiceError+    defaultService+    "InvalidSampleRateException"+    Prelude.. Core.hasStatus 400++-- | The provided SNS topic ARN is invalid. Please provide a valid SNS topic+-- ARN and try again.+_InvalidSnsTopicArnException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidSnsTopicArnException =+  Core._MatchServiceError+    defaultService+    "InvalidSnsTopicArnException"+    Prelude.. Core.hasStatus 400++-- | The SSML you provided is invalid. Verify the SSML syntax, spelling of+-- tags and values, and then try again.+_InvalidSsmlException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidSsmlException =+  Core._MatchServiceError+    defaultService+    "InvalidSsmlException"+    Prelude.. Core.hasStatus 400++-- | The provided Task ID is not valid. Please provide a valid Task ID and+-- try again.+_InvalidTaskIdException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidTaskIdException =+  Core._MatchServiceError+    defaultService+    "InvalidTaskIdException"+    Prelude.. Core.hasStatus 400++-- | The language specified is not currently supported by Amazon Polly in+-- this capacity.+_LanguageNotSupportedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LanguageNotSupportedException =+  Core._MatchServiceError+    defaultService+    "LanguageNotSupportedException"+    Prelude.. Core.hasStatus 400++-- | Amazon Polly can\'t find the specified lexicon. This could be caused by+-- a lexicon that is missing, its name is misspelled or specifying a+-- lexicon that is in a different region.+--+-- Verify that the lexicon exists, is in the region (see ListLexicons) and+-- that you spelled its name is spelled correctly. Then try again.+_LexiconNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LexiconNotFoundException =+  Core._MatchServiceError+    defaultService+    "LexiconNotFoundException"+    Prelude.. Core.hasStatus 404++-- | The maximum size of the specified lexicon would be exceeded by this+-- operation.+_LexiconSizeExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LexiconSizeExceededException =+  Core._MatchServiceError+    defaultService+    "LexiconSizeExceededException"+    Prelude.. Core.hasStatus 400++-- | Speech marks are not supported for the @OutputFormat@ selected. Speech+-- marks are only available for content in @json@ format.+_MarksNotSupportedForFormatException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MarksNotSupportedForFormatException =+  Core._MatchServiceError+    defaultService+    "MarksNotSupportedForFormatException"+    Prelude.. Core.hasStatus 400++-- | The maximum size of the lexeme would be exceeded by this operation.+_MaxLexemeLengthExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MaxLexemeLengthExceededException =+  Core._MatchServiceError+    defaultService+    "MaxLexemeLengthExceededException"+    Prelude.. Core.hasStatus 400++-- | The maximum number of lexicons would be exceeded by this operation.+_MaxLexiconsNumberExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MaxLexiconsNumberExceededException =+  Core._MatchServiceError+    defaultService+    "MaxLexiconsNumberExceededException"+    Prelude.. Core.hasStatus 400++-- | An unknown condition has caused a service failure.+_ServiceFailureException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceFailureException =+  Core._MatchServiceError+    defaultService+    "ServiceFailureException"+    Prelude.. Core.hasStatus 500++-- | SSML speech marks are not supported for plain text-type input.+_SsmlMarksNotSupportedForTextTypeException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SsmlMarksNotSupportedForTextTypeException =+  Core._MatchServiceError+    defaultService+    "SsmlMarksNotSupportedForTextTypeException"+    Prelude.. Core.hasStatus 400++-- | The Speech Synthesis task with requested Task ID cannot be found.+_SynthesisTaskNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SynthesisTaskNotFoundException =+  Core._MatchServiceError+    defaultService+    "SynthesisTaskNotFoundException"+    Prelude.. Core.hasStatus 400++-- | The value of the \"Text\" parameter is longer than the accepted limits.+-- For the @SynthesizeSpeech@ API, the limit for input text is a maximum of+-- 6000 characters total, of which no more than 3000 can be billed+-- characters. For the @StartSpeechSynthesisTask@ API, the maximum is+-- 200,000 characters, of which no more than 100,000 can be billed+-- characters. SSML tags are not counted as billed characters.+_TextLengthExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TextLengthExceededException =+  Core._MatchServiceError+    defaultService+    "TextLengthExceededException"+    Prelude.. Core.hasStatus 400++-- | The alphabet specified by the lexicon is not a supported alphabet. Valid+-- values are @x-sampa@ and @ipa@.+_UnsupportedPlsAlphabetException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedPlsAlphabetException =+  Core._MatchServiceError+    defaultService+    "UnsupportedPlsAlphabetException"+    Prelude.. Core.hasStatus 400++-- | The language specified in the lexicon is unsupported. For a list of+-- supported languages, see+-- <https://docs.aws.amazon.com/polly/latest/dg/API_LexiconAttributes.html Lexicon Attributes>.+_UnsupportedPlsLanguageException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedPlsLanguageException =+  Core._MatchServiceError+    defaultService+    "UnsupportedPlsLanguageException"+    Prelude.. Core.hasStatus 400

@@ -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.Polly.Types.Engine+-- 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.Polly.Types.Engine+  ( Engine+      ( ..,+        Engine_Neural,+        Engine_Standard+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Engine = Engine' {fromEngine :: 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 Engine_Neural :: Engine+pattern Engine_Neural = Engine' "neural"++pattern Engine_Standard :: Engine+pattern Engine_Standard = Engine' "standard"++{-# COMPLETE+  Engine_Neural,+  Engine_Standard,+  Engine'+  #-}

@@ -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.Polly.Types.Gender+-- 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.Polly.Types.Gender+  ( Gender+      ( ..,+        Gender_Female,+        Gender_Male+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype Gender = Gender' {fromGender :: 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 Gender_Female :: Gender+pattern Gender_Female = Gender' "Female"++pattern Gender_Male :: Gender+pattern Gender_Male = Gender' "Male"++{-# COMPLETE+  Gender_Female,+  Gender_Male,+  Gender'+  #-}

@@ -0,0 +1,241 @@+{-# 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.Polly.Types.LanguageCode+-- 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.Polly.Types.LanguageCode+  ( LanguageCode+      ( ..,+        LanguageCode_Ar_AE,+        LanguageCode_Arb,+        LanguageCode_Ca_ES,+        LanguageCode_Cmn_CN,+        LanguageCode_Cy_GB,+        LanguageCode_Da_DK,+        LanguageCode_De_AT,+        LanguageCode_De_DE,+        LanguageCode_En_AU,+        LanguageCode_En_GB,+        LanguageCode_En_GB_WLS,+        LanguageCode_En_IN,+        LanguageCode_En_NZ,+        LanguageCode_En_US,+        LanguageCode_En_ZA,+        LanguageCode_Es_ES,+        LanguageCode_Es_MX,+        LanguageCode_Es_US,+        LanguageCode_Fi_FI,+        LanguageCode_Fr_CA,+        LanguageCode_Fr_FR,+        LanguageCode_Hi_IN,+        LanguageCode_Is_IS,+        LanguageCode_It_IT,+        LanguageCode_Ja_JP,+        LanguageCode_Ko_KR,+        LanguageCode_Nb_NO,+        LanguageCode_Nl_NL,+        LanguageCode_Pl_PL,+        LanguageCode_Pt_BR,+        LanguageCode_Pt_PT,+        LanguageCode_Ro_RO,+        LanguageCode_Ru_RU,+        LanguageCode_Sv_SE,+        LanguageCode_Tr_TR,+        LanguageCode_Yue_CN+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype LanguageCode = LanguageCode'+  { fromLanguageCode ::+      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 LanguageCode_Ar_AE :: LanguageCode+pattern LanguageCode_Ar_AE = LanguageCode' "ar-AE"++pattern LanguageCode_Arb :: LanguageCode+pattern LanguageCode_Arb = LanguageCode' "arb"++pattern LanguageCode_Ca_ES :: LanguageCode+pattern LanguageCode_Ca_ES = LanguageCode' "ca-ES"++pattern LanguageCode_Cmn_CN :: LanguageCode+pattern LanguageCode_Cmn_CN = LanguageCode' "cmn-CN"++pattern LanguageCode_Cy_GB :: LanguageCode+pattern LanguageCode_Cy_GB = LanguageCode' "cy-GB"++pattern LanguageCode_Da_DK :: LanguageCode+pattern LanguageCode_Da_DK = LanguageCode' "da-DK"++pattern LanguageCode_De_AT :: LanguageCode+pattern LanguageCode_De_AT = LanguageCode' "de-AT"++pattern LanguageCode_De_DE :: LanguageCode+pattern LanguageCode_De_DE = LanguageCode' "de-DE"++pattern LanguageCode_En_AU :: LanguageCode+pattern LanguageCode_En_AU = LanguageCode' "en-AU"++pattern LanguageCode_En_GB :: LanguageCode+pattern LanguageCode_En_GB = LanguageCode' "en-GB"++pattern LanguageCode_En_GB_WLS :: LanguageCode+pattern LanguageCode_En_GB_WLS = LanguageCode' "en-GB-WLS"++pattern LanguageCode_En_IN :: LanguageCode+pattern LanguageCode_En_IN = LanguageCode' "en-IN"++pattern LanguageCode_En_NZ :: LanguageCode+pattern LanguageCode_En_NZ = LanguageCode' "en-NZ"++pattern LanguageCode_En_US :: LanguageCode+pattern LanguageCode_En_US = LanguageCode' "en-US"++pattern LanguageCode_En_ZA :: LanguageCode+pattern LanguageCode_En_ZA = LanguageCode' "en-ZA"++pattern LanguageCode_Es_ES :: LanguageCode+pattern LanguageCode_Es_ES = LanguageCode' "es-ES"++pattern LanguageCode_Es_MX :: LanguageCode+pattern LanguageCode_Es_MX = LanguageCode' "es-MX"++pattern LanguageCode_Es_US :: LanguageCode+pattern LanguageCode_Es_US = LanguageCode' "es-US"++pattern LanguageCode_Fi_FI :: LanguageCode+pattern LanguageCode_Fi_FI = LanguageCode' "fi-FI"++pattern LanguageCode_Fr_CA :: LanguageCode+pattern LanguageCode_Fr_CA = LanguageCode' "fr-CA"++pattern LanguageCode_Fr_FR :: LanguageCode+pattern LanguageCode_Fr_FR = LanguageCode' "fr-FR"++pattern LanguageCode_Hi_IN :: LanguageCode+pattern LanguageCode_Hi_IN = LanguageCode' "hi-IN"++pattern LanguageCode_Is_IS :: LanguageCode+pattern LanguageCode_Is_IS = LanguageCode' "is-IS"++pattern LanguageCode_It_IT :: LanguageCode+pattern LanguageCode_It_IT = LanguageCode' "it-IT"++pattern LanguageCode_Ja_JP :: LanguageCode+pattern LanguageCode_Ja_JP = LanguageCode' "ja-JP"++pattern LanguageCode_Ko_KR :: LanguageCode+pattern LanguageCode_Ko_KR = LanguageCode' "ko-KR"++pattern LanguageCode_Nb_NO :: LanguageCode+pattern LanguageCode_Nb_NO = LanguageCode' "nb-NO"++pattern LanguageCode_Nl_NL :: LanguageCode+pattern LanguageCode_Nl_NL = LanguageCode' "nl-NL"++pattern LanguageCode_Pl_PL :: LanguageCode+pattern LanguageCode_Pl_PL = LanguageCode' "pl-PL"++pattern LanguageCode_Pt_BR :: LanguageCode+pattern LanguageCode_Pt_BR = LanguageCode' "pt-BR"++pattern LanguageCode_Pt_PT :: LanguageCode+pattern LanguageCode_Pt_PT = LanguageCode' "pt-PT"++pattern LanguageCode_Ro_RO :: LanguageCode+pattern LanguageCode_Ro_RO = LanguageCode' "ro-RO"++pattern LanguageCode_Ru_RU :: LanguageCode+pattern LanguageCode_Ru_RU = LanguageCode' "ru-RU"++pattern LanguageCode_Sv_SE :: LanguageCode+pattern LanguageCode_Sv_SE = LanguageCode' "sv-SE"++pattern LanguageCode_Tr_TR :: LanguageCode+pattern LanguageCode_Tr_TR = LanguageCode' "tr-TR"++pattern LanguageCode_Yue_CN :: LanguageCode+pattern LanguageCode_Yue_CN = LanguageCode' "yue-CN"++{-# COMPLETE+  LanguageCode_Ar_AE,+  LanguageCode_Arb,+  LanguageCode_Ca_ES,+  LanguageCode_Cmn_CN,+  LanguageCode_Cy_GB,+  LanguageCode_Da_DK,+  LanguageCode_De_AT,+  LanguageCode_De_DE,+  LanguageCode_En_AU,+  LanguageCode_En_GB,+  LanguageCode_En_GB_WLS,+  LanguageCode_En_IN,+  LanguageCode_En_NZ,+  LanguageCode_En_US,+  LanguageCode_En_ZA,+  LanguageCode_Es_ES,+  LanguageCode_Es_MX,+  LanguageCode_Es_US,+  LanguageCode_Fi_FI,+  LanguageCode_Fr_CA,+  LanguageCode_Fr_FR,+  LanguageCode_Hi_IN,+  LanguageCode_Is_IS,+  LanguageCode_It_IT,+  LanguageCode_Ja_JP,+  LanguageCode_Ko_KR,+  LanguageCode_Nb_NO,+  LanguageCode_Nl_NL,+  LanguageCode_Pl_PL,+  LanguageCode_Pt_BR,+  LanguageCode_Pt_PT,+  LanguageCode_Ro_RO,+  LanguageCode_Ru_RU,+  LanguageCode_Sv_SE,+  LanguageCode_Tr_TR,+  LanguageCode_Yue_CN,+  LanguageCode'+  #-}

@@ -0,0 +1,88 @@+{-# 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.Polly.Types.Lexicon+-- 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.Polly.Types.Lexicon 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++-- | Provides lexicon name and lexicon content in string format. For more+-- information, see+-- <https://www.w3.org/TR/pronunciation-lexicon/ Pronunciation Lexicon Specification (PLS) Version 1.0>.+--+-- /See:/ 'newLexicon' smart constructor.+data Lexicon = Lexicon'+  { -- | Lexicon content in string format. The content of a lexicon must be in+    -- PLS format.+    content :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Name of the lexicon.+    name :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Lexicon' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'content', 'lexicon_content' - Lexicon content in string format. The content of a lexicon must be in+-- PLS format.+--+-- 'name', 'lexicon_name' - Name of the lexicon.+newLexicon ::+  Lexicon+newLexicon =+  Lexicon'+    { content = Prelude.Nothing,+      name = Prelude.Nothing+    }++-- | Lexicon content in string format. The content of a lexicon must be in+-- PLS format.+lexicon_content :: Lens.Lens' Lexicon (Prelude.Maybe Prelude.Text)+lexicon_content = Lens.lens (\Lexicon' {content} -> content) (\s@Lexicon' {} a -> s {content = a} :: Lexicon) Prelude.. Lens.mapping Data._Sensitive++-- | Name of the lexicon.+lexicon_name :: Lens.Lens' Lexicon (Prelude.Maybe Prelude.Text)+lexicon_name = Lens.lens (\Lexicon' {name} -> name) (\s@Lexicon' {} a -> s {name = a} :: Lexicon)++instance Data.FromJSON Lexicon where+  parseJSON =+    Data.withObject+      "Lexicon"+      ( \x ->+          Lexicon'+            Prelude.<$> (x Data..:? "Content")+            Prelude.<*> (x Data..:? "Name")+      )++instance Prelude.Hashable Lexicon where+  hashWithSalt _salt Lexicon' {..} =+    _salt+      `Prelude.hashWithSalt` content+      `Prelude.hashWithSalt` name++instance Prelude.NFData Lexicon where+  rnf Lexicon' {..} =+    Prelude.rnf content `Prelude.seq` Prelude.rnf name

@@ -0,0 +1,144 @@+{-# 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.Polly.Types.LexiconAttributes+-- 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.Polly.Types.LexiconAttributes where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types.LanguageCode+import qualified Amazonka.Prelude as Prelude++-- | Contains metadata describing the lexicon such as the number of lexemes,+-- language code, and so on. For more information, see+-- <https://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons>.+--+-- /See:/ 'newLexiconAttributes' smart constructor.+data LexiconAttributes = LexiconAttributes'+  { -- | Phonetic alphabet used in the lexicon. Valid values are @ipa@ and+    -- @x-sampa@.+    alphabet :: Prelude.Maybe Prelude.Text,+    -- | Language code that the lexicon applies to. A lexicon with a language+    -- code such as \"en\" would be applied to all English languages (en-GB,+    -- en-US, en-AUS, en-WLS, and so on.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | Date lexicon was last modified (a timestamp value).+    lastModified :: Prelude.Maybe Data.POSIX,+    -- | Number of lexemes in the lexicon.+    lexemesCount :: Prelude.Maybe Prelude.Int,+    -- | Amazon Resource Name (ARN) of the lexicon.+    lexiconArn :: Prelude.Maybe Prelude.Text,+    -- | Total size of the lexicon, in characters.+    size :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LexiconAttributes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'alphabet', 'lexiconAttributes_alphabet' - Phonetic alphabet used in the lexicon. Valid values are @ipa@ and+-- @x-sampa@.+--+-- 'languageCode', 'lexiconAttributes_languageCode' - Language code that the lexicon applies to. A lexicon with a language+-- code such as \"en\" would be applied to all English languages (en-GB,+-- en-US, en-AUS, en-WLS, and so on.+--+-- 'lastModified', 'lexiconAttributes_lastModified' - Date lexicon was last modified (a timestamp value).+--+-- 'lexemesCount', 'lexiconAttributes_lexemesCount' - Number of lexemes in the lexicon.+--+-- 'lexiconArn', 'lexiconAttributes_lexiconArn' - Amazon Resource Name (ARN) of the lexicon.+--+-- 'size', 'lexiconAttributes_size' - Total size of the lexicon, in characters.+newLexiconAttributes ::+  LexiconAttributes+newLexiconAttributes =+  LexiconAttributes'+    { alphabet = Prelude.Nothing,+      languageCode = Prelude.Nothing,+      lastModified = Prelude.Nothing,+      lexemesCount = Prelude.Nothing,+      lexiconArn = Prelude.Nothing,+      size = Prelude.Nothing+    }++-- | Phonetic alphabet used in the lexicon. Valid values are @ipa@ and+-- @x-sampa@.+lexiconAttributes_alphabet :: Lens.Lens' LexiconAttributes (Prelude.Maybe Prelude.Text)+lexiconAttributes_alphabet = Lens.lens (\LexiconAttributes' {alphabet} -> alphabet) (\s@LexiconAttributes' {} a -> s {alphabet = a} :: LexiconAttributes)++-- | Language code that the lexicon applies to. A lexicon with a language+-- code such as \"en\" would be applied to all English languages (en-GB,+-- en-US, en-AUS, en-WLS, and so on.+lexiconAttributes_languageCode :: Lens.Lens' LexiconAttributes (Prelude.Maybe LanguageCode)+lexiconAttributes_languageCode = Lens.lens (\LexiconAttributes' {languageCode} -> languageCode) (\s@LexiconAttributes' {} a -> s {languageCode = a} :: LexiconAttributes)++-- | Date lexicon was last modified (a timestamp value).+lexiconAttributes_lastModified :: Lens.Lens' LexiconAttributes (Prelude.Maybe Prelude.UTCTime)+lexiconAttributes_lastModified = Lens.lens (\LexiconAttributes' {lastModified} -> lastModified) (\s@LexiconAttributes' {} a -> s {lastModified = a} :: LexiconAttributes) Prelude.. Lens.mapping Data._Time++-- | Number of lexemes in the lexicon.+lexiconAttributes_lexemesCount :: Lens.Lens' LexiconAttributes (Prelude.Maybe Prelude.Int)+lexiconAttributes_lexemesCount = Lens.lens (\LexiconAttributes' {lexemesCount} -> lexemesCount) (\s@LexiconAttributes' {} a -> s {lexemesCount = a} :: LexiconAttributes)++-- | Amazon Resource Name (ARN) of the lexicon.+lexiconAttributes_lexiconArn :: Lens.Lens' LexiconAttributes (Prelude.Maybe Prelude.Text)+lexiconAttributes_lexiconArn = Lens.lens (\LexiconAttributes' {lexiconArn} -> lexiconArn) (\s@LexiconAttributes' {} a -> s {lexiconArn = a} :: LexiconAttributes)++-- | Total size of the lexicon, in characters.+lexiconAttributes_size :: Lens.Lens' LexiconAttributes (Prelude.Maybe Prelude.Int)+lexiconAttributes_size = Lens.lens (\LexiconAttributes' {size} -> size) (\s@LexiconAttributes' {} a -> s {size = a} :: LexiconAttributes)++instance Data.FromJSON LexiconAttributes where+  parseJSON =+    Data.withObject+      "LexiconAttributes"+      ( \x ->+          LexiconAttributes'+            Prelude.<$> (x Data..:? "Alphabet")+            Prelude.<*> (x Data..:? "LanguageCode")+            Prelude.<*> (x Data..:? "LastModified")+            Prelude.<*> (x Data..:? "LexemesCount")+            Prelude.<*> (x Data..:? "LexiconArn")+            Prelude.<*> (x Data..:? "Size")+      )++instance Prelude.Hashable LexiconAttributes where+  hashWithSalt _salt LexiconAttributes' {..} =+    _salt+      `Prelude.hashWithSalt` alphabet+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` lastModified+      `Prelude.hashWithSalt` lexemesCount+      `Prelude.hashWithSalt` lexiconArn+      `Prelude.hashWithSalt` size++instance Prelude.NFData LexiconAttributes where+  rnf LexiconAttributes' {..} =+    Prelude.rnf alphabet+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf lastModified+      `Prelude.seq` Prelude.rnf lexemesCount+      `Prelude.seq` Prelude.rnf lexiconArn+      `Prelude.seq` Prelude.rnf size

@@ -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.Polly.Types.LexiconDescription+-- 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.Polly.Types.LexiconDescription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types.LexiconAttributes+import qualified Amazonka.Prelude as Prelude++-- | Describes the content of the lexicon.+--+-- /See:/ 'newLexiconDescription' smart constructor.+data LexiconDescription = LexiconDescription'+  { -- | Provides lexicon metadata.+    attributes :: Prelude.Maybe LexiconAttributes,+    -- | Name of the lexicon.+    name :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LexiconDescription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'attributes', 'lexiconDescription_attributes' - Provides lexicon metadata.+--+-- 'name', 'lexiconDescription_name' - Name of the lexicon.+newLexiconDescription ::+  LexiconDescription+newLexiconDescription =+  LexiconDescription'+    { attributes = Prelude.Nothing,+      name = Prelude.Nothing+    }++-- | Provides lexicon metadata.+lexiconDescription_attributes :: Lens.Lens' LexiconDescription (Prelude.Maybe LexiconAttributes)+lexiconDescription_attributes = Lens.lens (\LexiconDescription' {attributes} -> attributes) (\s@LexiconDescription' {} a -> s {attributes = a} :: LexiconDescription)++-- | Name of the lexicon.+lexiconDescription_name :: Lens.Lens' LexiconDescription (Prelude.Maybe Prelude.Text)+lexiconDescription_name = Lens.lens (\LexiconDescription' {name} -> name) (\s@LexiconDescription' {} a -> s {name = a} :: LexiconDescription)++instance Data.FromJSON LexiconDescription where+  parseJSON =+    Data.withObject+      "LexiconDescription"+      ( \x ->+          LexiconDescription'+            Prelude.<$> (x Data..:? "Attributes")+            Prelude.<*> (x Data..:? "Name")+      )++instance Prelude.Hashable LexiconDescription where+  hashWithSalt _salt LexiconDescription' {..} =+    _salt+      `Prelude.hashWithSalt` attributes+      `Prelude.hashWithSalt` name++instance Prelude.NFData LexiconDescription where+  rnf LexiconDescription' {..} =+    Prelude.rnf attributes+      `Prelude.seq` Prelude.rnf name

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.Types.OutputFormat+-- 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.Polly.Types.OutputFormat+  ( OutputFormat+      ( ..,+        OutputFormat_Json,+        OutputFormat_Mp3,+        OutputFormat_Ogg_vorbis,+        OutputFormat_Pcm+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype OutputFormat = OutputFormat'+  { fromOutputFormat ::+      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 OutputFormat_Json :: OutputFormat+pattern OutputFormat_Json = OutputFormat' "json"++pattern OutputFormat_Mp3 :: OutputFormat+pattern OutputFormat_Mp3 = OutputFormat' "mp3"++pattern OutputFormat_Ogg_vorbis :: OutputFormat+pattern OutputFormat_Ogg_vorbis = OutputFormat' "ogg_vorbis"++pattern OutputFormat_Pcm :: OutputFormat+pattern OutputFormat_Pcm = OutputFormat' "pcm"++{-# COMPLETE+  OutputFormat_Json,+  OutputFormat_Mp3,+  OutputFormat_Ogg_vorbis,+  OutputFormat_Pcm,+  OutputFormat'+  #-}

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.Types.SpeechMarkType+-- 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.Polly.Types.SpeechMarkType+  ( SpeechMarkType+      ( ..,+        SpeechMarkType_Sentence,+        SpeechMarkType_Ssml,+        SpeechMarkType_Viseme,+        SpeechMarkType_Word+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SpeechMarkType = SpeechMarkType'+  { fromSpeechMarkType ::+      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 SpeechMarkType_Sentence :: SpeechMarkType+pattern SpeechMarkType_Sentence = SpeechMarkType' "sentence"++pattern SpeechMarkType_Ssml :: SpeechMarkType+pattern SpeechMarkType_Ssml = SpeechMarkType' "ssml"++pattern SpeechMarkType_Viseme :: SpeechMarkType+pattern SpeechMarkType_Viseme = SpeechMarkType' "viseme"++pattern SpeechMarkType_Word :: SpeechMarkType+pattern SpeechMarkType_Word = SpeechMarkType' "word"++{-# COMPLETE+  SpeechMarkType_Sentence,+  SpeechMarkType_Ssml,+  SpeechMarkType_Viseme,+  SpeechMarkType_Word,+  SpeechMarkType'+  #-}

@@ -0,0 +1,326 @@+{-# 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.Polly.Types.SynthesisTask+-- 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.Polly.Types.SynthesisTask where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types.Engine+import Amazonka.Polly.Types.LanguageCode+import Amazonka.Polly.Types.OutputFormat+import Amazonka.Polly.Types.SpeechMarkType+import Amazonka.Polly.Types.TaskStatus+import Amazonka.Polly.Types.TextType+import Amazonka.Polly.Types.VoiceId+import qualified Amazonka.Prelude as Prelude++-- | SynthesisTask object that provides information about a speech synthesis+-- task.+--+-- /See:/ 'newSynthesisTask' smart constructor.+data SynthesisTask = SynthesisTask'+  { -- | Timestamp for the time the synthesis task was started.+    creationTime :: Prelude.Maybe Data.POSIX,+    -- | Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+    -- when processing input text for speech synthesis. Using a voice that is+    -- not supported for the engine selected will result in an error.+    engine :: Prelude.Maybe Engine,+    -- | Optional language code for a synthesis task. This is only necessary if+    -- using a bilingual voice, such as Aditi, which can be used for either+    -- Indian English (en-IN) or Hindi (hi-IN).+    --+    -- If a bilingual voice is used and no language code is specified, Amazon+    -- Polly uses the default language of the bilingual voice. The default+    -- language for any voice is the one returned by the+    -- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+    -- operation for the @LanguageCode@ parameter. For example, if no language+    -- code is specified, Aditi will use Indian English rather than Hindi.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | List of one or more pronunciation lexicon names you want the service to+    -- apply during synthesis. Lexicons are applied only if the language of the+    -- lexicon is the same as the language of the voice.+    lexiconNames :: Prelude.Maybe [Prelude.Text],+    -- | The format in which the returned output will be encoded. For audio+    -- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+    -- will be json.+    outputFormat :: Prelude.Maybe OutputFormat,+    -- | Pathway for the output speech file.+    outputUri :: Prelude.Maybe Prelude.Text,+    -- | Number of billable characters synthesized.+    requestCharacters :: Prelude.Maybe Prelude.Int,+    -- | The audio frequency specified in Hz.+    --+    -- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+    -- \"22050\", and \"24000\". The default value for standard voices is+    -- \"22050\". The default value for neural voices is \"24000\".+    --+    -- Valid values for pcm are \"8000\" and \"16000\" The default value is+    -- \"16000\".+    sampleRate :: Prelude.Maybe Prelude.Text,+    -- | ARN for the SNS topic optionally used for providing status notification+    -- for a speech synthesis task.+    snsTopicArn :: Prelude.Maybe Prelude.Text,+    -- | The type of speech marks returned for the input text.+    speechMarkTypes :: Prelude.Maybe [SpeechMarkType],+    -- | The Amazon Polly generated identifier for a speech synthesis task.+    taskId :: Prelude.Maybe Prelude.Text,+    -- | Current status of the individual speech synthesis task.+    taskStatus :: Prelude.Maybe TaskStatus,+    -- | Reason for the current status of a specific speech synthesis task,+    -- including errors if the task has failed.+    taskStatusReason :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether the input text is plain text or SSML. The default+    -- value is plain text.+    textType :: Prelude.Maybe TextType,+    -- | Voice ID to use for the synthesis.+    voiceId :: Prelude.Maybe VoiceId+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SynthesisTask' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'creationTime', 'synthesisTask_creationTime' - Timestamp for the time the synthesis task was started.+--+-- 'engine', 'synthesisTask_engine' - Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+-- when processing input text for speech synthesis. Using a voice that is+-- not supported for the engine selected will result in an error.+--+-- 'languageCode', 'synthesisTask_languageCode' - Optional language code for a synthesis task. This is only necessary if+-- using a bilingual voice, such as Aditi, which can be used for either+-- Indian English (en-IN) or Hindi (hi-IN).+--+-- If a bilingual voice is used and no language code is specified, Amazon+-- Polly uses the default language of the bilingual voice. The default+-- language for any voice is the one returned by the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation for the @LanguageCode@ parameter. For example, if no language+-- code is specified, Aditi will use Indian English rather than Hindi.+--+-- 'lexiconNames', 'synthesisTask_lexiconNames' - List of one or more pronunciation lexicon names you want the service to+-- apply during synthesis. Lexicons are applied only if the language of the+-- lexicon is the same as the language of the voice.+--+-- 'outputFormat', 'synthesisTask_outputFormat' - The format in which the returned output will be encoded. For audio+-- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+-- will be json.+--+-- 'outputUri', 'synthesisTask_outputUri' - Pathway for the output speech file.+--+-- 'requestCharacters', 'synthesisTask_requestCharacters' - Number of billable characters synthesized.+--+-- 'sampleRate', 'synthesisTask_sampleRate' - The audio frequency specified in Hz.+--+-- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+-- \"22050\", and \"24000\". The default value for standard voices is+-- \"22050\". The default value for neural voices is \"24000\".+--+-- Valid values for pcm are \"8000\" and \"16000\" The default value is+-- \"16000\".+--+-- 'snsTopicArn', 'synthesisTask_snsTopicArn' - ARN for the SNS topic optionally used for providing status notification+-- for a speech synthesis task.+--+-- 'speechMarkTypes', 'synthesisTask_speechMarkTypes' - The type of speech marks returned for the input text.+--+-- 'taskId', 'synthesisTask_taskId' - The Amazon Polly generated identifier for a speech synthesis task.+--+-- 'taskStatus', 'synthesisTask_taskStatus' - Current status of the individual speech synthesis task.+--+-- 'taskStatusReason', 'synthesisTask_taskStatusReason' - Reason for the current status of a specific speech synthesis task,+-- including errors if the task has failed.+--+-- 'textType', 'synthesisTask_textType' - Specifies whether the input text is plain text or SSML. The default+-- value is plain text.+--+-- 'voiceId', 'synthesisTask_voiceId' - Voice ID to use for the synthesis.+newSynthesisTask ::+  SynthesisTask+newSynthesisTask =+  SynthesisTask'+    { creationTime = Prelude.Nothing,+      engine = Prelude.Nothing,+      languageCode = Prelude.Nothing,+      lexiconNames = Prelude.Nothing,+      outputFormat = Prelude.Nothing,+      outputUri = Prelude.Nothing,+      requestCharacters = Prelude.Nothing,+      sampleRate = Prelude.Nothing,+      snsTopicArn = Prelude.Nothing,+      speechMarkTypes = Prelude.Nothing,+      taskId = Prelude.Nothing,+      taskStatus = Prelude.Nothing,+      taskStatusReason = Prelude.Nothing,+      textType = Prelude.Nothing,+      voiceId = Prelude.Nothing+    }++-- | Timestamp for the time the synthesis task was started.+synthesisTask_creationTime :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.UTCTime)+synthesisTask_creationTime = Lens.lens (\SynthesisTask' {creationTime} -> creationTime) (\s@SynthesisTask' {} a -> s {creationTime = a} :: SynthesisTask) Prelude.. Lens.mapping Data._Time++-- | Specifies the engine (@standard@ or @neural@) for Amazon Polly to use+-- when processing input text for speech synthesis. Using a voice that is+-- not supported for the engine selected will result in an error.+synthesisTask_engine :: Lens.Lens' SynthesisTask (Prelude.Maybe Engine)+synthesisTask_engine = Lens.lens (\SynthesisTask' {engine} -> engine) (\s@SynthesisTask' {} a -> s {engine = a} :: SynthesisTask)++-- | Optional language code for a synthesis task. This is only necessary if+-- using a bilingual voice, such as Aditi, which can be used for either+-- Indian English (en-IN) or Hindi (hi-IN).+--+-- If a bilingual voice is used and no language code is specified, Amazon+-- Polly uses the default language of the bilingual voice. The default+-- language for any voice is the one returned by the+-- <https://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices>+-- operation for the @LanguageCode@ parameter. For example, if no language+-- code is specified, Aditi will use Indian English rather than Hindi.+synthesisTask_languageCode :: Lens.Lens' SynthesisTask (Prelude.Maybe LanguageCode)+synthesisTask_languageCode = Lens.lens (\SynthesisTask' {languageCode} -> languageCode) (\s@SynthesisTask' {} a -> s {languageCode = a} :: SynthesisTask)++-- | List of one or more pronunciation lexicon names you want the service to+-- apply during synthesis. Lexicons are applied only if the language of the+-- lexicon is the same as the language of the voice.+synthesisTask_lexiconNames :: Lens.Lens' SynthesisTask (Prelude.Maybe [Prelude.Text])+synthesisTask_lexiconNames = Lens.lens (\SynthesisTask' {lexiconNames} -> lexiconNames) (\s@SynthesisTask' {} a -> s {lexiconNames = a} :: SynthesisTask) Prelude.. Lens.mapping Lens.coerced++-- | The format in which the returned output will be encoded. For audio+-- stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this+-- will be json.+synthesisTask_outputFormat :: Lens.Lens' SynthesisTask (Prelude.Maybe OutputFormat)+synthesisTask_outputFormat = Lens.lens (\SynthesisTask' {outputFormat} -> outputFormat) (\s@SynthesisTask' {} a -> s {outputFormat = a} :: SynthesisTask)++-- | Pathway for the output speech file.+synthesisTask_outputUri :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.Text)+synthesisTask_outputUri = Lens.lens (\SynthesisTask' {outputUri} -> outputUri) (\s@SynthesisTask' {} a -> s {outputUri = a} :: SynthesisTask)++-- | Number of billable characters synthesized.+synthesisTask_requestCharacters :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.Int)+synthesisTask_requestCharacters = Lens.lens (\SynthesisTask' {requestCharacters} -> requestCharacters) (\s@SynthesisTask' {} a -> s {requestCharacters = a} :: SynthesisTask)++-- | The audio frequency specified in Hz.+--+-- The valid values for mp3 and ogg_vorbis are \"8000\", \"16000\",+-- \"22050\", and \"24000\". The default value for standard voices is+-- \"22050\". The default value for neural voices is \"24000\".+--+-- Valid values for pcm are \"8000\" and \"16000\" The default value is+-- \"16000\".+synthesisTask_sampleRate :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.Text)+synthesisTask_sampleRate = Lens.lens (\SynthesisTask' {sampleRate} -> sampleRate) (\s@SynthesisTask' {} a -> s {sampleRate = a} :: SynthesisTask)++-- | ARN for the SNS topic optionally used for providing status notification+-- for a speech synthesis task.+synthesisTask_snsTopicArn :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.Text)+synthesisTask_snsTopicArn = Lens.lens (\SynthesisTask' {snsTopicArn} -> snsTopicArn) (\s@SynthesisTask' {} a -> s {snsTopicArn = a} :: SynthesisTask)++-- | The type of speech marks returned for the input text.+synthesisTask_speechMarkTypes :: Lens.Lens' SynthesisTask (Prelude.Maybe [SpeechMarkType])+synthesisTask_speechMarkTypes = Lens.lens (\SynthesisTask' {speechMarkTypes} -> speechMarkTypes) (\s@SynthesisTask' {} a -> s {speechMarkTypes = a} :: SynthesisTask) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon Polly generated identifier for a speech synthesis task.+synthesisTask_taskId :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.Text)+synthesisTask_taskId = Lens.lens (\SynthesisTask' {taskId} -> taskId) (\s@SynthesisTask' {} a -> s {taskId = a} :: SynthesisTask)++-- | Current status of the individual speech synthesis task.+synthesisTask_taskStatus :: Lens.Lens' SynthesisTask (Prelude.Maybe TaskStatus)+synthesisTask_taskStatus = Lens.lens (\SynthesisTask' {taskStatus} -> taskStatus) (\s@SynthesisTask' {} a -> s {taskStatus = a} :: SynthesisTask)++-- | Reason for the current status of a specific speech synthesis task,+-- including errors if the task has failed.+synthesisTask_taskStatusReason :: Lens.Lens' SynthesisTask (Prelude.Maybe Prelude.Text)+synthesisTask_taskStatusReason = Lens.lens (\SynthesisTask' {taskStatusReason} -> taskStatusReason) (\s@SynthesisTask' {} a -> s {taskStatusReason = a} :: SynthesisTask)++-- | Specifies whether the input text is plain text or SSML. The default+-- value is plain text.+synthesisTask_textType :: Lens.Lens' SynthesisTask (Prelude.Maybe TextType)+synthesisTask_textType = Lens.lens (\SynthesisTask' {textType} -> textType) (\s@SynthesisTask' {} a -> s {textType = a} :: SynthesisTask)++-- | Voice ID to use for the synthesis.+synthesisTask_voiceId :: Lens.Lens' SynthesisTask (Prelude.Maybe VoiceId)+synthesisTask_voiceId = Lens.lens (\SynthesisTask' {voiceId} -> voiceId) (\s@SynthesisTask' {} a -> s {voiceId = a} :: SynthesisTask)++instance Data.FromJSON SynthesisTask where+  parseJSON =+    Data.withObject+      "SynthesisTask"+      ( \x ->+          SynthesisTask'+            Prelude.<$> (x Data..:? "CreationTime")+            Prelude.<*> (x Data..:? "Engine")+            Prelude.<*> (x Data..:? "LanguageCode")+            Prelude.<*> (x Data..:? "LexiconNames" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "OutputFormat")+            Prelude.<*> (x Data..:? "OutputUri")+            Prelude.<*> (x Data..:? "RequestCharacters")+            Prelude.<*> (x Data..:? "SampleRate")+            Prelude.<*> (x Data..:? "SnsTopicArn")+            Prelude.<*> ( x+                            Data..:? "SpeechMarkTypes"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "TaskId")+            Prelude.<*> (x Data..:? "TaskStatus")+            Prelude.<*> (x Data..:? "TaskStatusReason")+            Prelude.<*> (x Data..:? "TextType")+            Prelude.<*> (x Data..:? "VoiceId")+      )++instance Prelude.Hashable SynthesisTask where+  hashWithSalt _salt SynthesisTask' {..} =+    _salt+      `Prelude.hashWithSalt` creationTime+      `Prelude.hashWithSalt` engine+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` lexiconNames+      `Prelude.hashWithSalt` outputFormat+      `Prelude.hashWithSalt` outputUri+      `Prelude.hashWithSalt` requestCharacters+      `Prelude.hashWithSalt` sampleRate+      `Prelude.hashWithSalt` snsTopicArn+      `Prelude.hashWithSalt` speechMarkTypes+      `Prelude.hashWithSalt` taskId+      `Prelude.hashWithSalt` taskStatus+      `Prelude.hashWithSalt` taskStatusReason+      `Prelude.hashWithSalt` textType+      `Prelude.hashWithSalt` voiceId++instance Prelude.NFData SynthesisTask where+  rnf SynthesisTask' {..} =+    Prelude.rnf creationTime+      `Prelude.seq` Prelude.rnf engine+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf lexiconNames+      `Prelude.seq` Prelude.rnf outputFormat+      `Prelude.seq` Prelude.rnf outputUri+      `Prelude.seq` Prelude.rnf requestCharacters+      `Prelude.seq` Prelude.rnf sampleRate+      `Prelude.seq` Prelude.rnf snsTopicArn+      `Prelude.seq` Prelude.rnf speechMarkTypes+      `Prelude.seq` Prelude.rnf taskId+      `Prelude.seq` Prelude.rnf taskStatus+      `Prelude.seq` Prelude.rnf taskStatusReason+      `Prelude.seq` Prelude.rnf textType+      `Prelude.seq` Prelude.rnf voiceId

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Polly.Types.TaskStatus+-- 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.Polly.Types.TaskStatus+  ( TaskStatus+      ( ..,+        TaskStatus_Completed,+        TaskStatus_Failed,+        TaskStatus_InProgress,+        TaskStatus_Scheduled+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TaskStatus = TaskStatus'+  { fromTaskStatus ::+      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 TaskStatus_Completed :: TaskStatus+pattern TaskStatus_Completed = TaskStatus' "completed"++pattern TaskStatus_Failed :: TaskStatus+pattern TaskStatus_Failed = TaskStatus' "failed"++pattern TaskStatus_InProgress :: TaskStatus+pattern TaskStatus_InProgress = TaskStatus' "inProgress"++pattern TaskStatus_Scheduled :: TaskStatus+pattern TaskStatus_Scheduled = TaskStatus' "scheduled"++{-# COMPLETE+  TaskStatus_Completed,+  TaskStatus_Failed,+  TaskStatus_InProgress,+  TaskStatus_Scheduled,+  TaskStatus'+  #-}

@@ -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.Polly.Types.TextType+-- 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.Polly.Types.TextType+  ( TextType+      ( ..,+        TextType_Ssml,+        TextType_Text+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TextType = TextType'+  { fromTextType ::+      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 TextType_Ssml :: TextType+pattern TextType_Ssml = TextType' "ssml"++pattern TextType_Text :: TextType+pattern TextType_Text = TextType' "text"++{-# COMPLETE+  TextType_Ssml,+  TextType_Text,+  TextType'+  #-}

@@ -0,0 +1,181 @@+{-# 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.Polly.Types.Voice+-- 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.Polly.Types.Voice where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Types.Engine+import Amazonka.Polly.Types.Gender+import Amazonka.Polly.Types.LanguageCode+import Amazonka.Polly.Types.VoiceId+import qualified Amazonka.Prelude as Prelude++-- | Description of the voice.+--+-- /See:/ 'newVoice' smart constructor.+data Voice = Voice'+  { -- | Additional codes for languages available for the specified voice in+    -- addition to its default language.+    --+    -- For example, the default language for Aditi is Indian English (en-IN)+    -- because it was first used for that language. Since Aditi is bilingual+    -- and fluent in both Indian English and Hindi, this parameter would show+    -- the code @hi-IN@.+    additionalLanguageCodes :: Prelude.Maybe [LanguageCode],+    -- | Gender of the voice.+    gender :: Prelude.Maybe Gender,+    -- | Amazon Polly assigned voice ID. This is the ID that you specify when+    -- calling the @SynthesizeSpeech@ operation.+    id :: Prelude.Maybe VoiceId,+    -- | Language code of the voice.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | Human readable name of the language in English.+    languageName :: Prelude.Maybe Prelude.Text,+    -- | Name of the voice (for example, Salli, Kendra, etc.). This provides a+    -- human readable voice name that you might display in your application.+    name :: Prelude.Maybe Prelude.Text,+    -- | Specifies which engines (@standard@ or @neural@) that are supported by a+    -- given voice.+    supportedEngines :: Prelude.Maybe [Engine]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Voice' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'additionalLanguageCodes', 'voice_additionalLanguageCodes' - Additional codes for languages available for the specified voice in+-- addition to its default language.+--+-- For example, the default language for Aditi is Indian English (en-IN)+-- because it was first used for that language. Since Aditi is bilingual+-- and fluent in both Indian English and Hindi, this parameter would show+-- the code @hi-IN@.+--+-- 'gender', 'voice_gender' - Gender of the voice.+--+-- 'id', 'voice_id' - Amazon Polly assigned voice ID. This is the ID that you specify when+-- calling the @SynthesizeSpeech@ operation.+--+-- 'languageCode', 'voice_languageCode' - Language code of the voice.+--+-- 'languageName', 'voice_languageName' - Human readable name of the language in English.+--+-- 'name', 'voice_name' - Name of the voice (for example, Salli, Kendra, etc.). This provides a+-- human readable voice name that you might display in your application.+--+-- 'supportedEngines', 'voice_supportedEngines' - Specifies which engines (@standard@ or @neural@) that are supported by a+-- given voice.+newVoice ::+  Voice+newVoice =+  Voice'+    { additionalLanguageCodes = Prelude.Nothing,+      gender = Prelude.Nothing,+      id = Prelude.Nothing,+      languageCode = Prelude.Nothing,+      languageName = Prelude.Nothing,+      name = Prelude.Nothing,+      supportedEngines = Prelude.Nothing+    }++-- | Additional codes for languages available for the specified voice in+-- addition to its default language.+--+-- For example, the default language for Aditi is Indian English (en-IN)+-- because it was first used for that language. Since Aditi is bilingual+-- and fluent in both Indian English and Hindi, this parameter would show+-- the code @hi-IN@.+voice_additionalLanguageCodes :: Lens.Lens' Voice (Prelude.Maybe [LanguageCode])+voice_additionalLanguageCodes = Lens.lens (\Voice' {additionalLanguageCodes} -> additionalLanguageCodes) (\s@Voice' {} a -> s {additionalLanguageCodes = a} :: Voice) Prelude.. Lens.mapping Lens.coerced++-- | Gender of the voice.+voice_gender :: Lens.Lens' Voice (Prelude.Maybe Gender)+voice_gender = Lens.lens (\Voice' {gender} -> gender) (\s@Voice' {} a -> s {gender = a} :: Voice)++-- | Amazon Polly assigned voice ID. This is the ID that you specify when+-- calling the @SynthesizeSpeech@ operation.+voice_id :: Lens.Lens' Voice (Prelude.Maybe VoiceId)+voice_id = Lens.lens (\Voice' {id} -> id) (\s@Voice' {} a -> s {id = a} :: Voice)++-- | Language code of the voice.+voice_languageCode :: Lens.Lens' Voice (Prelude.Maybe LanguageCode)+voice_languageCode = Lens.lens (\Voice' {languageCode} -> languageCode) (\s@Voice' {} a -> s {languageCode = a} :: Voice)++-- | Human readable name of the language in English.+voice_languageName :: Lens.Lens' Voice (Prelude.Maybe Prelude.Text)+voice_languageName = Lens.lens (\Voice' {languageName} -> languageName) (\s@Voice' {} a -> s {languageName = a} :: Voice)++-- | Name of the voice (for example, Salli, Kendra, etc.). This provides a+-- human readable voice name that you might display in your application.+voice_name :: Lens.Lens' Voice (Prelude.Maybe Prelude.Text)+voice_name = Lens.lens (\Voice' {name} -> name) (\s@Voice' {} a -> s {name = a} :: Voice)++-- | Specifies which engines (@standard@ or @neural@) that are supported by a+-- given voice.+voice_supportedEngines :: Lens.Lens' Voice (Prelude.Maybe [Engine])+voice_supportedEngines = Lens.lens (\Voice' {supportedEngines} -> supportedEngines) (\s@Voice' {} a -> s {supportedEngines = a} :: Voice) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON Voice where+  parseJSON =+    Data.withObject+      "Voice"+      ( \x ->+          Voice'+            Prelude.<$> ( x+                            Data..:? "AdditionalLanguageCodes"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "Gender")+            Prelude.<*> (x Data..:? "Id")+            Prelude.<*> (x Data..:? "LanguageCode")+            Prelude.<*> (x Data..:? "LanguageName")+            Prelude.<*> (x Data..:? "Name")+            Prelude.<*> ( x+                            Data..:? "SupportedEngines"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable Voice where+  hashWithSalt _salt Voice' {..} =+    _salt+      `Prelude.hashWithSalt` additionalLanguageCodes+      `Prelude.hashWithSalt` gender+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` languageName+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` supportedEngines++instance Prelude.NFData Voice where+  rnf Voice' {..} =+    Prelude.rnf additionalLanguageCodes+      `Prelude.seq` Prelude.rnf gender+      `Prelude.seq` Prelude.rnf id+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf languageName+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf supportedEngines

@@ -0,0 +1,453 @@+{-# 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.Polly.Types.VoiceId+-- 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.Polly.Types.VoiceId+  ( VoiceId+      ( ..,+        VoiceId_Aditi,+        VoiceId_Amy,+        VoiceId_Aria,+        VoiceId_Arlet,+        VoiceId_Arthur,+        VoiceId_Astrid,+        VoiceId_Ayanda,+        VoiceId_Bianca,+        VoiceId_Brian,+        VoiceId_Camila,+        VoiceId_Carla,+        VoiceId_Carmen,+        VoiceId_Celine,+        VoiceId_Chantal,+        VoiceId_Conchita,+        VoiceId_Cristiano,+        VoiceId_Daniel,+        VoiceId_Dora,+        VoiceId_Elin,+        VoiceId_Emma,+        VoiceId_Enrique,+        VoiceId_Ewa,+        VoiceId_Filiz,+        VoiceId_Gabrielle,+        VoiceId_Geraint,+        VoiceId_Giorgio,+        VoiceId_Gwyneth,+        VoiceId_Hala,+        VoiceId_Hannah,+        VoiceId_Hans,+        VoiceId_Hiujin,+        VoiceId_Ida,+        VoiceId_Ines,+        VoiceId_Ivy,+        VoiceId_Jacek,+        VoiceId_Jan,+        VoiceId_Joanna,+        VoiceId_Joey,+        VoiceId_Justin,+        VoiceId_Kajal,+        VoiceId_Karl,+        VoiceId_Kendra,+        VoiceId_Kevin,+        VoiceId_Kimberly,+        VoiceId_Laura,+        VoiceId_Lea,+        VoiceId_Liam,+        VoiceId_Liv,+        VoiceId_Lotte,+        VoiceId_Lucia,+        VoiceId_Lupe,+        VoiceId_Mads,+        VoiceId_Maja,+        VoiceId_Marlene,+        VoiceId_Mathieu,+        VoiceId_Matthew,+        VoiceId_Maxim,+        VoiceId_Mia,+        VoiceId_Miguel,+        VoiceId_Mizuki,+        VoiceId_Naja,+        VoiceId_Nicole,+        VoiceId_Ola,+        VoiceId_Olivia,+        VoiceId_Pedro,+        VoiceId_Penelope,+        VoiceId_Raveena,+        VoiceId_Ricardo,+        VoiceId_Ruben,+        VoiceId_Russell,+        VoiceId_Salli,+        VoiceId_Seoyeon,+        VoiceId_Suvi,+        VoiceId_Takumi,+        VoiceId_Tatyana,+        VoiceId_Vicki,+        VoiceId_Vitoria,+        VoiceId_Zeina,+        VoiceId_Zhiyu+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype VoiceId = VoiceId' {fromVoiceId :: 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 VoiceId_Aditi :: VoiceId+pattern VoiceId_Aditi = VoiceId' "Aditi"++pattern VoiceId_Amy :: VoiceId+pattern VoiceId_Amy = VoiceId' "Amy"++pattern VoiceId_Aria :: VoiceId+pattern VoiceId_Aria = VoiceId' "Aria"++pattern VoiceId_Arlet :: VoiceId+pattern VoiceId_Arlet = VoiceId' "Arlet"++pattern VoiceId_Arthur :: VoiceId+pattern VoiceId_Arthur = VoiceId' "Arthur"++pattern VoiceId_Astrid :: VoiceId+pattern VoiceId_Astrid = VoiceId' "Astrid"++pattern VoiceId_Ayanda :: VoiceId+pattern VoiceId_Ayanda = VoiceId' "Ayanda"++pattern VoiceId_Bianca :: VoiceId+pattern VoiceId_Bianca = VoiceId' "Bianca"++pattern VoiceId_Brian :: VoiceId+pattern VoiceId_Brian = VoiceId' "Brian"++pattern VoiceId_Camila :: VoiceId+pattern VoiceId_Camila = VoiceId' "Camila"++pattern VoiceId_Carla :: VoiceId+pattern VoiceId_Carla = VoiceId' "Carla"++pattern VoiceId_Carmen :: VoiceId+pattern VoiceId_Carmen = VoiceId' "Carmen"++pattern VoiceId_Celine :: VoiceId+pattern VoiceId_Celine = VoiceId' "Celine"++pattern VoiceId_Chantal :: VoiceId+pattern VoiceId_Chantal = VoiceId' "Chantal"++pattern VoiceId_Conchita :: VoiceId+pattern VoiceId_Conchita = VoiceId' "Conchita"++pattern VoiceId_Cristiano :: VoiceId+pattern VoiceId_Cristiano = VoiceId' "Cristiano"++pattern VoiceId_Daniel :: VoiceId+pattern VoiceId_Daniel = VoiceId' "Daniel"++pattern VoiceId_Dora :: VoiceId+pattern VoiceId_Dora = VoiceId' "Dora"++pattern VoiceId_Elin :: VoiceId+pattern VoiceId_Elin = VoiceId' "Elin"++pattern VoiceId_Emma :: VoiceId+pattern VoiceId_Emma = VoiceId' "Emma"++pattern VoiceId_Enrique :: VoiceId+pattern VoiceId_Enrique = VoiceId' "Enrique"++pattern VoiceId_Ewa :: VoiceId+pattern VoiceId_Ewa = VoiceId' "Ewa"++pattern VoiceId_Filiz :: VoiceId+pattern VoiceId_Filiz = VoiceId' "Filiz"++pattern VoiceId_Gabrielle :: VoiceId+pattern VoiceId_Gabrielle = VoiceId' "Gabrielle"++pattern VoiceId_Geraint :: VoiceId+pattern VoiceId_Geraint = VoiceId' "Geraint"++pattern VoiceId_Giorgio :: VoiceId+pattern VoiceId_Giorgio = VoiceId' "Giorgio"++pattern VoiceId_Gwyneth :: VoiceId+pattern VoiceId_Gwyneth = VoiceId' "Gwyneth"++pattern VoiceId_Hala :: VoiceId+pattern VoiceId_Hala = VoiceId' "Hala"++pattern VoiceId_Hannah :: VoiceId+pattern VoiceId_Hannah = VoiceId' "Hannah"++pattern VoiceId_Hans :: VoiceId+pattern VoiceId_Hans = VoiceId' "Hans"++pattern VoiceId_Hiujin :: VoiceId+pattern VoiceId_Hiujin = VoiceId' "Hiujin"++pattern VoiceId_Ida :: VoiceId+pattern VoiceId_Ida = VoiceId' "Ida"++pattern VoiceId_Ines :: VoiceId+pattern VoiceId_Ines = VoiceId' "Ines"++pattern VoiceId_Ivy :: VoiceId+pattern VoiceId_Ivy = VoiceId' "Ivy"++pattern VoiceId_Jacek :: VoiceId+pattern VoiceId_Jacek = VoiceId' "Jacek"++pattern VoiceId_Jan :: VoiceId+pattern VoiceId_Jan = VoiceId' "Jan"++pattern VoiceId_Joanna :: VoiceId+pattern VoiceId_Joanna = VoiceId' "Joanna"++pattern VoiceId_Joey :: VoiceId+pattern VoiceId_Joey = VoiceId' "Joey"++pattern VoiceId_Justin :: VoiceId+pattern VoiceId_Justin = VoiceId' "Justin"++pattern VoiceId_Kajal :: VoiceId+pattern VoiceId_Kajal = VoiceId' "Kajal"++pattern VoiceId_Karl :: VoiceId+pattern VoiceId_Karl = VoiceId' "Karl"++pattern VoiceId_Kendra :: VoiceId+pattern VoiceId_Kendra = VoiceId' "Kendra"++pattern VoiceId_Kevin :: VoiceId+pattern VoiceId_Kevin = VoiceId' "Kevin"++pattern VoiceId_Kimberly :: VoiceId+pattern VoiceId_Kimberly = VoiceId' "Kimberly"++pattern VoiceId_Laura :: VoiceId+pattern VoiceId_Laura = VoiceId' "Laura"++pattern VoiceId_Lea :: VoiceId+pattern VoiceId_Lea = VoiceId' "Lea"++pattern VoiceId_Liam :: VoiceId+pattern VoiceId_Liam = VoiceId' "Liam"++pattern VoiceId_Liv :: VoiceId+pattern VoiceId_Liv = VoiceId' "Liv"++pattern VoiceId_Lotte :: VoiceId+pattern VoiceId_Lotte = VoiceId' "Lotte"++pattern VoiceId_Lucia :: VoiceId+pattern VoiceId_Lucia = VoiceId' "Lucia"++pattern VoiceId_Lupe :: VoiceId+pattern VoiceId_Lupe = VoiceId' "Lupe"++pattern VoiceId_Mads :: VoiceId+pattern VoiceId_Mads = VoiceId' "Mads"++pattern VoiceId_Maja :: VoiceId+pattern VoiceId_Maja = VoiceId' "Maja"++pattern VoiceId_Marlene :: VoiceId+pattern VoiceId_Marlene = VoiceId' "Marlene"++pattern VoiceId_Mathieu :: VoiceId+pattern VoiceId_Mathieu = VoiceId' "Mathieu"++pattern VoiceId_Matthew :: VoiceId+pattern VoiceId_Matthew = VoiceId' "Matthew"++pattern VoiceId_Maxim :: VoiceId+pattern VoiceId_Maxim = VoiceId' "Maxim"++pattern VoiceId_Mia :: VoiceId+pattern VoiceId_Mia = VoiceId' "Mia"++pattern VoiceId_Miguel :: VoiceId+pattern VoiceId_Miguel = VoiceId' "Miguel"++pattern VoiceId_Mizuki :: VoiceId+pattern VoiceId_Mizuki = VoiceId' "Mizuki"++pattern VoiceId_Naja :: VoiceId+pattern VoiceId_Naja = VoiceId' "Naja"++pattern VoiceId_Nicole :: VoiceId+pattern VoiceId_Nicole = VoiceId' "Nicole"++pattern VoiceId_Ola :: VoiceId+pattern VoiceId_Ola = VoiceId' "Ola"++pattern VoiceId_Olivia :: VoiceId+pattern VoiceId_Olivia = VoiceId' "Olivia"++pattern VoiceId_Pedro :: VoiceId+pattern VoiceId_Pedro = VoiceId' "Pedro"++pattern VoiceId_Penelope :: VoiceId+pattern VoiceId_Penelope = VoiceId' "Penelope"++pattern VoiceId_Raveena :: VoiceId+pattern VoiceId_Raveena = VoiceId' "Raveena"++pattern VoiceId_Ricardo :: VoiceId+pattern VoiceId_Ricardo = VoiceId' "Ricardo"++pattern VoiceId_Ruben :: VoiceId+pattern VoiceId_Ruben = VoiceId' "Ruben"++pattern VoiceId_Russell :: VoiceId+pattern VoiceId_Russell = VoiceId' "Russell"++pattern VoiceId_Salli :: VoiceId+pattern VoiceId_Salli = VoiceId' "Salli"++pattern VoiceId_Seoyeon :: VoiceId+pattern VoiceId_Seoyeon = VoiceId' "Seoyeon"++pattern VoiceId_Suvi :: VoiceId+pattern VoiceId_Suvi = VoiceId' "Suvi"++pattern VoiceId_Takumi :: VoiceId+pattern VoiceId_Takumi = VoiceId' "Takumi"++pattern VoiceId_Tatyana :: VoiceId+pattern VoiceId_Tatyana = VoiceId' "Tatyana"++pattern VoiceId_Vicki :: VoiceId+pattern VoiceId_Vicki = VoiceId' "Vicki"++pattern VoiceId_Vitoria :: VoiceId+pattern VoiceId_Vitoria = VoiceId' "Vitoria"++pattern VoiceId_Zeina :: VoiceId+pattern VoiceId_Zeina = VoiceId' "Zeina"++pattern VoiceId_Zhiyu :: VoiceId+pattern VoiceId_Zhiyu = VoiceId' "Zhiyu"++{-# COMPLETE+  VoiceId_Aditi,+  VoiceId_Amy,+  VoiceId_Aria,+  VoiceId_Arlet,+  VoiceId_Arthur,+  VoiceId_Astrid,+  VoiceId_Ayanda,+  VoiceId_Bianca,+  VoiceId_Brian,+  VoiceId_Camila,+  VoiceId_Carla,+  VoiceId_Carmen,+  VoiceId_Celine,+  VoiceId_Chantal,+  VoiceId_Conchita,+  VoiceId_Cristiano,+  VoiceId_Daniel,+  VoiceId_Dora,+  VoiceId_Elin,+  VoiceId_Emma,+  VoiceId_Enrique,+  VoiceId_Ewa,+  VoiceId_Filiz,+  VoiceId_Gabrielle,+  VoiceId_Geraint,+  VoiceId_Giorgio,+  VoiceId_Gwyneth,+  VoiceId_Hala,+  VoiceId_Hannah,+  VoiceId_Hans,+  VoiceId_Hiujin,+  VoiceId_Ida,+  VoiceId_Ines,+  VoiceId_Ivy,+  VoiceId_Jacek,+  VoiceId_Jan,+  VoiceId_Joanna,+  VoiceId_Joey,+  VoiceId_Justin,+  VoiceId_Kajal,+  VoiceId_Karl,+  VoiceId_Kendra,+  VoiceId_Kevin,+  VoiceId_Kimberly,+  VoiceId_Laura,+  VoiceId_Lea,+  VoiceId_Liam,+  VoiceId_Liv,+  VoiceId_Lotte,+  VoiceId_Lucia,+  VoiceId_Lupe,+  VoiceId_Mads,+  VoiceId_Maja,+  VoiceId_Marlene,+  VoiceId_Mathieu,+  VoiceId_Matthew,+  VoiceId_Maxim,+  VoiceId_Mia,+  VoiceId_Miguel,+  VoiceId_Mizuki,+  VoiceId_Naja,+  VoiceId_Nicole,+  VoiceId_Ola,+  VoiceId_Olivia,+  VoiceId_Pedro,+  VoiceId_Penelope,+  VoiceId_Raveena,+  VoiceId_Ricardo,+  VoiceId_Ruben,+  VoiceId_Russell,+  VoiceId_Salli,+  VoiceId_Seoyeon,+  VoiceId_Suvi,+  VoiceId_Takumi,+  VoiceId_Tatyana,+  VoiceId_Vicki,+  VoiceId_Vitoria,+  VoiceId_Zeina,+  VoiceId_Zhiyu,+  VoiceId'+  #-}

@@ -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.Polly.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.Polly.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.Polly.Lens+import Amazonka.Polly.Types+import qualified Amazonka.Prelude as Prelude

@@ -1,182 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.Polly--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Amazon Polly is a web service that makes it easy to synthesize speech from text.--------- The Amazon Polly service provides API operations for synthesizing high-quality speech from plain text and Speech Synthesis Markup Language (SSML), along with managing pronunciations lexicons that enable you to get the best results for your application domain.----module Network.AWS.Polly-    (-    -- * Service Configuration-      polly--    -- * Errors-    -- $errors--    -- ** UnsupportedPlsLanguageException-    , _UnsupportedPlsLanguageException--    -- ** InvalidSsmlException-    , _InvalidSsmlException--    -- ** InvalidSampleRateException-    , _InvalidSampleRateException--    -- ** MaxLexiconsNumberExceededException-    , _MaxLexiconsNumberExceededException--    -- ** TextLengthExceededException-    , _TextLengthExceededException--    -- ** MaxLexemeLengthExceededException-    , _MaxLexemeLengthExceededException--    -- ** InvalidLexiconException-    , _InvalidLexiconException--    -- ** ServiceFailureException-    , _ServiceFailureException--    -- ** UnsupportedPlsAlphabetException-    , _UnsupportedPlsAlphabetException--    -- ** InvalidNextTokenException-    , _InvalidNextTokenException--    -- ** MarksNotSupportedForFormatException-    , _MarksNotSupportedForFormatException--    -- ** SsmlMarksNotSupportedForTextTypeException-    , _SsmlMarksNotSupportedForTextTypeException--    -- ** LexiconSizeExceededException-    , _LexiconSizeExceededException--    -- ** LexiconNotFoundException-    , _LexiconNotFoundException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** GetLexicon-    , module Network.AWS.Polly.GetLexicon--    -- ** DescribeVoices (Paginated)-    , module Network.AWS.Polly.DescribeVoices--    -- ** ListLexicons-    , module Network.AWS.Polly.ListLexicons--    -- ** SynthesizeSpeech-    , module Network.AWS.Polly.SynthesizeSpeech--    -- ** PutLexicon-    , module Network.AWS.Polly.PutLexicon--    -- ** DeleteLexicon-    , module Network.AWS.Polly.DeleteLexicon--    -- * Types--    -- ** Gender-    , Gender (..)--    -- ** LanguageCode-    , LanguageCode (..)--    -- ** OutputFormat-    , OutputFormat (..)--    -- ** SpeechMarkType-    , SpeechMarkType (..)--    -- ** TextType-    , TextType (..)--    -- ** VoiceId-    , VoiceId (..)--    -- ** Lexicon-    , Lexicon-    , lexicon-    , lContent-    , lName--    -- ** LexiconAttributes-    , LexiconAttributes-    , lexiconAttributes-    , laLanguageCode-    , laSize-    , laLexemesCount-    , laLexiconARN-    , laAlphabet-    , laLastModified--    -- ** LexiconDescription-    , LexiconDescription-    , lexiconDescription-    , ldAttributes-    , ldName--    -- ** Voice-    , Voice-    , voice-    , vLanguageCode-    , vLanguageName-    , vGender-    , vName-    , vId-    ) where--import Network.AWS.Polly.DeleteLexicon-import Network.AWS.Polly.DescribeVoices-import Network.AWS.Polly.GetLexicon-import Network.AWS.Polly.ListLexicons-import Network.AWS.Polly.PutLexicon-import Network.AWS.Polly.SynthesizeSpeech-import Network.AWS.Polly.Types-import Network.AWS.Polly.Waiters--{- $errors-Error matchers are designed for use with the functions provided by-<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.-This allows catching (and rethrowing) service specific errors returned-by 'Polly'.--}--{- $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.--}

@@ -1,113 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.Polly.DeleteLexicon--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes the specified pronunciation lexicon stored in an AWS Region. A lexicon which has been deleted is not available for speech synthesis, nor is it possible to retrieve it using either the @GetLexicon@ or @ListLexicon@ APIs.--------- For more information, see <http://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons> .----module Network.AWS.Polly.DeleteLexicon-    (-    -- * Creating a Request-      deleteLexicon-    , DeleteLexicon-    -- * Request Lenses-    , dlName--    -- * Destructuring the Response-    , deleteLexiconResponse-    , DeleteLexiconResponse-    -- * Response Lenses-    , dlrsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.Polly.Types-import Network.AWS.Polly.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'deleteLexicon' smart constructor.-newtype DeleteLexicon = DeleteLexicon'-  { _dlName :: Sensitive Text-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteLexicon' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlName' - The name of the lexicon to delete. Must be an existing lexicon in the region.-deleteLexicon-    :: Text -- ^ 'dlName'-    -> DeleteLexicon-deleteLexicon pName_ = DeleteLexicon' {_dlName = _Sensitive # pName_}----- | The name of the lexicon to delete. Must be an existing lexicon in the region.-dlName :: Lens' DeleteLexicon Text-dlName = lens _dlName (\ s a -> s{_dlName = a}) . _Sensitive--instance AWSRequest DeleteLexicon where-        type Rs DeleteLexicon = DeleteLexiconResponse-        request = delete polly-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteLexiconResponse' <$> (pure (fromEnum s)))--instance Hashable DeleteLexicon where--instance NFData DeleteLexicon where--instance ToHeaders DeleteLexicon where-        toHeaders = const mempty--instance ToPath DeleteLexicon where-        toPath DeleteLexicon'{..}-          = mconcat ["/v1/lexicons/", toBS _dlName]--instance ToQuery DeleteLexicon where-        toQuery = const mempty---- | /See:/ 'deleteLexiconResponse' smart constructor.-newtype DeleteLexiconResponse = DeleteLexiconResponse'-  { _dlrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteLexiconResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlrsResponseStatus' - -- | The response status code.-deleteLexiconResponse-    :: Int -- ^ 'dlrsResponseStatus'-    -> DeleteLexiconResponse-deleteLexiconResponse pResponseStatus_ =-  DeleteLexiconResponse' {_dlrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-dlrsResponseStatus :: Lens' DeleteLexiconResponse Int-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a})--instance NFData DeleteLexiconResponse where

@@ -1,161 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.Polly.DescribeVoices--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Returns the list of voices that are available for use when requesting speech synthesis. Each voice speaks a specified language, is either male or female, and is identified by an ID, which is the ASCII version of the voice name.--------- When synthesizing speech ( @SynthesizeSpeech@ ), you provide the voice ID for the voice you want from the list of voices returned by @DescribeVoices@ .------ For example, you want your news reader application to read news in a specific language, but giving a user the option to choose the voice. Using the @DescribeVoices@ operation you can provide the user with a list of available voices to select from.------ You can optionally specify a language code to filter the available voices. For example, if you specify @en-US@ , the operation returns a list of all available US English voices.------ This operation requires permissions to perform the @polly:DescribeVoices@ action.--------- This operation returns paginated results.-module Network.AWS.Polly.DescribeVoices-    (-    -- * Creating a Request-      describeVoices-    , DescribeVoices-    -- * Request Lenses-    , dvLanguageCode-    , dvNextToken--    -- * Destructuring the Response-    , describeVoicesResponse-    , DescribeVoicesResponse-    -- * Response Lenses-    , dvrsNextToken-    , dvrsVoices-    , dvrsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Polly.Types-import Network.AWS.Polly.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'describeVoices' smart constructor.-data DescribeVoices = DescribeVoices'-  { _dvLanguageCode :: !(Maybe LanguageCode)-  , _dvNextToken    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeVoices' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dvLanguageCode' - The language identification tag (ISO 639 code for the language name-ISO 3166 country code) for filtering the list of voices returned. If you don't specify this optional parameter, all available voices are returned.------ * 'dvNextToken' - An opaque pagination token returned from the previous @DescribeVoices@ operation. If present, this indicates where to continue the listing.-describeVoices-    :: DescribeVoices-describeVoices =-  DescribeVoices' {_dvLanguageCode = Nothing, _dvNextToken = Nothing}----- | The language identification tag (ISO 639 code for the language name-ISO 3166 country code) for filtering the list of voices returned. If you don't specify this optional parameter, all available voices are returned.-dvLanguageCode :: Lens' DescribeVoices (Maybe LanguageCode)-dvLanguageCode = lens _dvLanguageCode (\ s a -> s{_dvLanguageCode = a})---- | An opaque pagination token returned from the previous @DescribeVoices@ operation. If present, this indicates where to continue the listing.-dvNextToken :: Lens' DescribeVoices (Maybe Text)-dvNextToken = lens _dvNextToken (\ s a -> s{_dvNextToken = a})--instance AWSPager DescribeVoices where-        page rq rs-          | stop (rs ^. dvrsNextToken) = Nothing-          | stop (rs ^. dvrsVoices) = Nothing-          | otherwise =-            Just $ rq & dvNextToken .~ rs ^. dvrsNextToken--instance AWSRequest DescribeVoices where-        type Rs DescribeVoices = DescribeVoicesResponse-        request = get polly-        response-          = receiveJSON-              (\ s h x ->-                 DescribeVoicesResponse' <$>-                   (x .?> "NextToken") <*> (x .?> "Voices" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable DescribeVoices where--instance NFData DescribeVoices where--instance ToHeaders DescribeVoices where-        toHeaders = const mempty--instance ToPath DescribeVoices where-        toPath = const "/v1/voices"--instance ToQuery DescribeVoices where-        toQuery DescribeVoices'{..}-          = mconcat-              ["LanguageCode" =: _dvLanguageCode,-               "NextToken" =: _dvNextToken]---- | /See:/ 'describeVoicesResponse' smart constructor.-data DescribeVoicesResponse = DescribeVoicesResponse'-  { _dvrsNextToken      :: !(Maybe Text)-  , _dvrsVoices         :: !(Maybe [Voice])-  , _dvrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeVoicesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dvrsNextToken' - The pagination token to use in the next request to continue the listing of voices. @NextToken@ is returned only if the response is truncated.------ * 'dvrsVoices' - A list of voices with their properties.------ * 'dvrsResponseStatus' - -- | The response status code.-describeVoicesResponse-    :: Int -- ^ 'dvrsResponseStatus'-    -> DescribeVoicesResponse-describeVoicesResponse pResponseStatus_ =-  DescribeVoicesResponse'-    { _dvrsNextToken = Nothing-    , _dvrsVoices = Nothing-    , _dvrsResponseStatus = pResponseStatus_-    }----- | The pagination token to use in the next request to continue the listing of voices. @NextToken@ is returned only if the response is truncated.-dvrsNextToken :: Lens' DescribeVoicesResponse (Maybe Text)-dvrsNextToken = lens _dvrsNextToken (\ s a -> s{_dvrsNextToken = a})---- | A list of voices with their properties.-dvrsVoices :: Lens' DescribeVoicesResponse [Voice]-dvrsVoices = lens _dvrsVoices (\ s a -> s{_dvrsVoices = a}) . _Default . _Coerce---- | -- | The response status code.-dvrsResponseStatus :: Lens' DescribeVoicesResponse Int-dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a})--instance NFData DescribeVoicesResponse where

@@ -1,133 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.Polly.GetLexicon--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Returns the content of the specified pronunciation lexicon stored in an AWS Region. For more information, see <http://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons> .-------module Network.AWS.Polly.GetLexicon-    (-    -- * Creating a Request-      getLexicon-    , GetLexicon-    -- * Request Lenses-    , glName--    -- * Destructuring the Response-    , getLexiconResponse-    , GetLexiconResponse-    -- * Response Lenses-    , glrsLexiconAttributes-    , glrsLexicon-    , glrsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.Polly.Types-import Network.AWS.Polly.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'getLexicon' smart constructor.-newtype GetLexicon = GetLexicon'-  { _glName :: Sensitive Text-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GetLexicon' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'glName' - Name of the lexicon.-getLexicon-    :: Text -- ^ 'glName'-    -> GetLexicon-getLexicon pName_ = GetLexicon' {_glName = _Sensitive # pName_}----- | Name of the lexicon.-glName :: Lens' GetLexicon Text-glName = lens _glName (\ s a -> s{_glName = a}) . _Sensitive--instance AWSRequest GetLexicon where-        type Rs GetLexicon = GetLexiconResponse-        request = get polly-        response-          = receiveJSON-              (\ s h x ->-                 GetLexiconResponse' <$>-                   (x .?> "LexiconAttributes") <*> (x .?> "Lexicon") <*>-                     (pure (fromEnum s)))--instance Hashable GetLexicon where--instance NFData GetLexicon where--instance ToHeaders GetLexicon where-        toHeaders = const mempty--instance ToPath GetLexicon where-        toPath GetLexicon'{..}-          = mconcat ["/v1/lexicons/", toBS _glName]--instance ToQuery GetLexicon where-        toQuery = const mempty---- | /See:/ 'getLexiconResponse' smart constructor.-data GetLexiconResponse = GetLexiconResponse'-  { _glrsLexiconAttributes :: !(Maybe LexiconAttributes)-  , _glrsLexicon           :: !(Maybe Lexicon)-  , _glrsResponseStatus    :: !Int-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GetLexiconResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'glrsLexiconAttributes' - Metadata of the lexicon, including phonetic alphabetic used, language code, lexicon ARN, number of lexemes defined in the lexicon, and size of lexicon in bytes.------ * 'glrsLexicon' - Lexicon object that provides name and the string content of the lexicon.------ * 'glrsResponseStatus' - -- | The response status code.-getLexiconResponse-    :: Int -- ^ 'glrsResponseStatus'-    -> GetLexiconResponse-getLexiconResponse pResponseStatus_ =-  GetLexiconResponse'-    { _glrsLexiconAttributes = Nothing-    , _glrsLexicon = Nothing-    , _glrsResponseStatus = pResponseStatus_-    }----- | Metadata of the lexicon, including phonetic alphabetic used, language code, lexicon ARN, number of lexemes defined in the lexicon, and size of lexicon in bytes.-glrsLexiconAttributes :: Lens' GetLexiconResponse (Maybe LexiconAttributes)-glrsLexiconAttributes = lens _glrsLexiconAttributes (\ s a -> s{_glrsLexiconAttributes = a})---- | Lexicon object that provides name and the string content of the lexicon.-glrsLexicon :: Lens' GetLexiconResponse (Maybe Lexicon)-glrsLexicon = lens _glrsLexicon (\ s a -> s{_glrsLexicon = a})---- | -- | The response status code.-glrsResponseStatus :: Lens' GetLexiconResponse Int-glrsResponseStatus = lens _glrsResponseStatus (\ s a -> s{_glrsResponseStatus = a})--instance NFData GetLexiconResponse where

@@ -1,132 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.Polly.ListLexicons--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Returns a list of pronunciation lexicons stored in an AWS Region. For more information, see <http://docs.aws.amazon.com/polly/latest/dg/managing-lexicons.html Managing Lexicons> .-------module Network.AWS.Polly.ListLexicons-    (-    -- * Creating a Request-      listLexicons-    , ListLexicons-    -- * Request Lenses-    , llNextToken--    -- * Destructuring the Response-    , listLexiconsResponse-    , ListLexiconsResponse-    -- * Response Lenses-    , llrsLexicons-    , llrsNextToken-    , llrsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.Polly.Types-import Network.AWS.Polly.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'listLexicons' smart constructor.-newtype ListLexicons = ListLexicons'-  { _llNextToken :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListLexicons' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llNextToken' - An opaque pagination token returned from previous @ListLexicons@ operation. If present, indicates where to continue the list of lexicons.-listLexicons-    :: ListLexicons-listLexicons = ListLexicons' {_llNextToken = Nothing}----- | An opaque pagination token returned from previous @ListLexicons@ operation. If present, indicates where to continue the list of lexicons.-llNextToken :: Lens' ListLexicons (Maybe Text)-llNextToken = lens _llNextToken (\ s a -> s{_llNextToken = a})--instance AWSRequest ListLexicons where-        type Rs ListLexicons = ListLexiconsResponse-        request = get polly-        response-          = receiveJSON-              (\ s h x ->-                 ListLexiconsResponse' <$>-                   (x .?> "Lexicons" .!@ mempty) <*> (x .?> "NextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListLexicons where--instance NFData ListLexicons where--instance ToHeaders ListLexicons where-        toHeaders = const mempty--instance ToPath ListLexicons where-        toPath = const "/v1/lexicons"--instance ToQuery ListLexicons where-        toQuery ListLexicons'{..}-          = mconcat ["NextToken" =: _llNextToken]---- | /See:/ 'listLexiconsResponse' smart constructor.-data ListLexiconsResponse = ListLexiconsResponse'-  { _llrsLexicons       :: !(Maybe [LexiconDescription])-  , _llrsNextToken      :: !(Maybe Text)-  , _llrsResponseStatus :: !Int-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListLexiconsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llrsLexicons' - A list of lexicon names and attributes.------ * 'llrsNextToken' - The pagination token to use in the next request to continue the listing of lexicons. @NextToken@ is returned only if the response is truncated.------ * 'llrsResponseStatus' - -- | The response status code.-listLexiconsResponse-    :: Int -- ^ 'llrsResponseStatus'-    -> ListLexiconsResponse-listLexiconsResponse pResponseStatus_ =-  ListLexiconsResponse'-    { _llrsLexicons = Nothing-    , _llrsNextToken = Nothing-    , _llrsResponseStatus = pResponseStatus_-    }----- | A list of lexicon names and attributes.-llrsLexicons :: Lens' ListLexiconsResponse [LexiconDescription]-llrsLexicons = lens _llrsLexicons (\ s a -> s{_llrsLexicons = a}) . _Default . _Coerce---- | The pagination token to use in the next request to continue the listing of lexicons. @NextToken@ is returned only if the response is truncated.-llrsNextToken :: Lens' ListLexiconsResponse (Maybe Text)-llrsNextToken = lens _llrsNextToken (\ s a -> s{_llrsNextToken = a})---- | -- | The response status code.-llrsResponseStatus :: Lens' ListLexiconsResponse Int-llrsResponseStatus = lens _llrsResponseStatus (\ s a -> s{_llrsResponseStatus = a})--instance NFData ListLexiconsResponse where