amazonka-translate 1.6.1 → 2.0

raw patch · 99 files changed

+9662/−656 lines, 99 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-translate.cabal +117/−75
• fixture/CreateParallelData.yaml +10/−0
• fixture/CreateParallelDataResponse.proto +0/−0
• fixture/DeleteParallelData.yaml +10/−0
• fixture/DeleteParallelDataResponse.proto +0/−0
• fixture/DeleteTerminology.yaml +10/−0
• fixture/DeleteTerminologyResponse.proto +0/−0
• fixture/DescribeTextTranslationJob.yaml +10/−0
• fixture/DescribeTextTranslationJobResponse.proto +0/−0
• fixture/GetParallelData.yaml +10/−0
• fixture/GetParallelDataResponse.proto +0/−0
• fixture/GetTerminology.yaml +10/−0
• fixture/GetTerminologyResponse.proto +0/−0
• fixture/ImportTerminology.yaml +10/−0
• fixture/ImportTerminologyResponse.proto +0/−0
• fixture/ListLanguages.yaml +10/−0
• fixture/ListLanguagesResponse.proto +0/−0
• fixture/ListParallelData.yaml +10/−0
• fixture/ListParallelDataResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/ListTerminologies.yaml +10/−0
• fixture/ListTerminologiesResponse.proto +0/−0
• fixture/ListTextTranslationJobs.yaml +10/−0
• fixture/ListTextTranslationJobsResponse.proto +0/−0
• fixture/StartTextTranslationJob.yaml +10/−0
• fixture/StartTextTranslationJobResponse.proto +0/−0
• fixture/StopTextTranslationJob.yaml +10/−0
• fixture/StopTextTranslationJobResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• fixture/UpdateParallelData.yaml +10/−0
• fixture/UpdateParallelDataResponse.proto +0/−0
• gen/Amazonka/Translate.hs +331/−0
• gen/Amazonka/Translate/CreateParallelData.hs +278/−0
• gen/Amazonka/Translate/DeleteParallelData.hs +179/−0
• gen/Amazonka/Translate/DeleteTerminology.hs +133/−0
• gen/Amazonka/Translate/DescribeTextTranslationJob.hs +183/−0
• gen/Amazonka/Translate/GetParallelData.hs +267/−0
• gen/Amazonka/Translate/GetTerminology.hs +290/−0
• gen/Amazonka/Translate/ImportTerminology.hs +294/−0
• gen/Amazonka/Translate/Lens.hs +310/−0
• gen/Amazonka/Translate/ListLanguages.hs +236/−0
• gen/Amazonka/Translate/ListParallelData.hs +208/−0
• gen/Amazonka/Translate/ListTagsForResource.hs +183/−0
• gen/Amazonka/Translate/ListTerminologies.hs +232/−0
• gen/Amazonka/Translate/ListTextTranslationJobs.hs +228/−0
• gen/Amazonka/Translate/StartTextTranslationJob.hs +556/−0
• gen/Amazonka/Translate/StopTextTranslationJob.hs +196/−0
• gen/Amazonka/Translate/TagResource.hs +179/−0
• gen/Amazonka/Translate/TranslateText.hs +361/−0
• gen/Amazonka/Translate/Types.hs +438/−0
• gen/Amazonka/Translate/Types/AppliedTerminology.hs +100/−0
• gen/Amazonka/Translate/Types/Directionality.hs +71/−0
• gen/Amazonka/Translate/Types/DisplayLanguageCode.hs +111/−0
• gen/Amazonka/Translate/Types/EncryptionKey.hs +100/−0
• gen/Amazonka/Translate/Types/EncryptionKeyType.hs +66/−0
• gen/Amazonka/Translate/Types/Formality.hs +71/−0
• gen/Amazonka/Translate/Types/InputDataConfig.hs +197/−0
• gen/Amazonka/Translate/Types/JobDetails.hs +101/−0
• gen/Amazonka/Translate/Types/JobStatus.hs +96/−0
• gen/Amazonka/Translate/Types/Language.hs +88/−0
• gen/Amazonka/Translate/Types/MergeStrategy.hs +66/−0
• gen/Amazonka/Translate/Types/OutputDataConfig.hs +101/−0
• gen/Amazonka/Translate/Types/ParallelDataConfig.hs +103/−0
• gen/Amazonka/Translate/Types/ParallelDataDataLocation.hs +131/−0
• gen/Amazonka/Translate/Types/ParallelDataFormat.hs +76/−0
• gen/Amazonka/Translate/Types/ParallelDataProperties.hs +305/−0
• gen/Amazonka/Translate/Types/ParallelDataStatus.hs +86/−0
• gen/Amazonka/Translate/Types/Profanity.hs +66/−0
• gen/Amazonka/Translate/Types/Tag.hs +100/−0
• gen/Amazonka/Translate/Types/Term.hs +84/−0
• gen/Amazonka/Translate/Types/TerminologyData.hs +176/−0
• gen/Amazonka/Translate/Types/TerminologyDataFormat.hs +76/−0
• gen/Amazonka/Translate/Types/TerminologyDataLocation.hs +133/−0
• gen/Amazonka/Translate/Types/TerminologyProperties.hs +279/−0
• gen/Amazonka/Translate/Types/TextTranslationJobFilter.hs +124/−0
• gen/Amazonka/Translate/Types/TextTranslationJobProperties.hs +288/−0
• gen/Amazonka/Translate/Types/TranslationSettings.hs +183/−0
• gen/Amazonka/Translate/UntagResource.hs +182/−0
• gen/Amazonka/Translate/UpdateParallelData.hs +269/−0
• gen/Amazonka/Translate/Waiters.hs +24/−0
• gen/Network/AWS/Translate.hs +0/−90
• gen/Network/AWS/Translate/TranslateText.hs +0/−200
• gen/Network/AWS/Translate/Types.hs +0/−127
• gen/Network/AWS/Translate/Types/Product.hs +0/−22
• gen/Network/AWS/Translate/Types/Sum.hs +0/−20
• gen/Network/AWS/Translate/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/Translate.hs +0/−57
• test/Test/AWS/Translate.hs +0/−20
• test/Test/AWS/Translate/Internal.hs +0/−9
• test/Test/Amazonka/Gen/Translate.hs +398/−0
• test/Test/Amazonka/Translate.hs +20/−0
• test/Test/Amazonka/Translate/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-07-01@ 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.Translate](http://hackage.haskell.org/package/amazonka-translate/docs/Network-AWS-Translate.html)+See [Amazonka.Translate](http://hackage.haskell.org/package/amazonka-translate/docs/Amazonka-Translate.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,86 +1,128 @@-name:                  amazonka-translate-version:               1.6.1-synopsis:              Amazon Translate 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-translate+version:            2.0+synopsis:           Amazon Translate 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.Translate" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-07-01@ 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.Translate.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.Translate" 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-translate+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-translate  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.Translate-        , Network.AWS.Translate.TranslateText-        , Network.AWS.Translate.Types-        , Network.AWS.Translate.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.Translate.Types.Product-        , Network.AWS.Translate.Types.Sum+  exposed-modules:+    Amazonka.Translate+    Amazonka.Translate.CreateParallelData+    Amazonka.Translate.DeleteParallelData+    Amazonka.Translate.DeleteTerminology+    Amazonka.Translate.DescribeTextTranslationJob+    Amazonka.Translate.GetParallelData+    Amazonka.Translate.GetTerminology+    Amazonka.Translate.ImportTerminology+    Amazonka.Translate.Lens+    Amazonka.Translate.ListLanguages+    Amazonka.Translate.ListParallelData+    Amazonka.Translate.ListTagsForResource+    Amazonka.Translate.ListTerminologies+    Amazonka.Translate.ListTextTranslationJobs+    Amazonka.Translate.StartTextTranslationJob+    Amazonka.Translate.StopTextTranslationJob+    Amazonka.Translate.TagResource+    Amazonka.Translate.TranslateText+    Amazonka.Translate.Types+    Amazonka.Translate.Types.AppliedTerminology+    Amazonka.Translate.Types.Directionality+    Amazonka.Translate.Types.DisplayLanguageCode+    Amazonka.Translate.Types.EncryptionKey+    Amazonka.Translate.Types.EncryptionKeyType+    Amazonka.Translate.Types.Formality+    Amazonka.Translate.Types.InputDataConfig+    Amazonka.Translate.Types.JobDetails+    Amazonka.Translate.Types.JobStatus+    Amazonka.Translate.Types.Language+    Amazonka.Translate.Types.MergeStrategy+    Amazonka.Translate.Types.OutputDataConfig+    Amazonka.Translate.Types.ParallelDataConfig+    Amazonka.Translate.Types.ParallelDataDataLocation+    Amazonka.Translate.Types.ParallelDataFormat+    Amazonka.Translate.Types.ParallelDataProperties+    Amazonka.Translate.Types.ParallelDataStatus+    Amazonka.Translate.Types.Profanity+    Amazonka.Translate.Types.Tag+    Amazonka.Translate.Types.Term+    Amazonka.Translate.Types.TerminologyData+    Amazonka.Translate.Types.TerminologyDataFormat+    Amazonka.Translate.Types.TerminologyDataLocation+    Amazonka.Translate.Types.TerminologyProperties+    Amazonka.Translate.Types.TextTranslationJobFilter+    Amazonka.Translate.Types.TextTranslationJobProperties+    Amazonka.Translate.Types.TranslationSettings+    Amazonka.Translate.UntagResource+    Amazonka.Translate.UpdateParallelData+    Amazonka.Translate.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-translate-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.Translate-        , Test.AWS.Gen.Translate-        , Test.AWS.Translate.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.Translate+    Test.Amazonka.Translate+    Test.Amazonka.Translate.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-translate-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , amazonka-translate+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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/translate/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  translate.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,331 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Translate+-- 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 @2017-07-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Provides translation of the input content from the source language to+-- the target language.+module Amazonka.Translate+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ConcurrentModificationException+    _ConcurrentModificationException,++    -- ** ConflictException+    _ConflictException,++    -- ** DetectedLanguageLowConfidenceException+    _DetectedLanguageLowConfidenceException,++    -- ** InternalServerException+    _InternalServerException,++    -- ** InvalidFilterException+    _InvalidFilterException,++    -- ** InvalidParameterValueException+    _InvalidParameterValueException,++    -- ** InvalidRequestException+    _InvalidRequestException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ServiceUnavailableException+    _ServiceUnavailableException,++    -- ** TextSizeLimitExceededException+    _TextSizeLimitExceededException,++    -- ** TooManyRequestsException+    _TooManyRequestsException,++    -- ** TooManyTagsException+    _TooManyTagsException,++    -- ** UnsupportedDisplayLanguageCodeException+    _UnsupportedDisplayLanguageCodeException,++    -- ** UnsupportedLanguagePairException+    _UnsupportedLanguagePairException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateParallelData+    CreateParallelData (CreateParallelData'),+    newCreateParallelData,+    CreateParallelDataResponse (CreateParallelDataResponse'),+    newCreateParallelDataResponse,++    -- ** DeleteParallelData+    DeleteParallelData (DeleteParallelData'),+    newDeleteParallelData,+    DeleteParallelDataResponse (DeleteParallelDataResponse'),+    newDeleteParallelDataResponse,++    -- ** DeleteTerminology+    DeleteTerminology (DeleteTerminology'),+    newDeleteTerminology,+    DeleteTerminologyResponse (DeleteTerminologyResponse'),+    newDeleteTerminologyResponse,++    -- ** DescribeTextTranslationJob+    DescribeTextTranslationJob (DescribeTextTranslationJob'),+    newDescribeTextTranslationJob,+    DescribeTextTranslationJobResponse (DescribeTextTranslationJobResponse'),+    newDescribeTextTranslationJobResponse,++    -- ** GetParallelData+    GetParallelData (GetParallelData'),+    newGetParallelData,+    GetParallelDataResponse (GetParallelDataResponse'),+    newGetParallelDataResponse,++    -- ** GetTerminology+    GetTerminology (GetTerminology'),+    newGetTerminology,+    GetTerminologyResponse (GetTerminologyResponse'),+    newGetTerminologyResponse,++    -- ** ImportTerminology+    ImportTerminology (ImportTerminology'),+    newImportTerminology,+    ImportTerminologyResponse (ImportTerminologyResponse'),+    newImportTerminologyResponse,++    -- ** ListLanguages+    ListLanguages (ListLanguages'),+    newListLanguages,+    ListLanguagesResponse (ListLanguagesResponse'),+    newListLanguagesResponse,++    -- ** ListParallelData+    ListParallelData (ListParallelData'),+    newListParallelData,+    ListParallelDataResponse (ListParallelDataResponse'),+    newListParallelDataResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** ListTerminologies (Paginated)+    ListTerminologies (ListTerminologies'),+    newListTerminologies,+    ListTerminologiesResponse (ListTerminologiesResponse'),+    newListTerminologiesResponse,++    -- ** ListTextTranslationJobs+    ListTextTranslationJobs (ListTextTranslationJobs'),+    newListTextTranslationJobs,+    ListTextTranslationJobsResponse (ListTextTranslationJobsResponse'),+    newListTextTranslationJobsResponse,++    -- ** StartTextTranslationJob+    StartTextTranslationJob (StartTextTranslationJob'),+    newStartTextTranslationJob,+    StartTextTranslationJobResponse (StartTextTranslationJobResponse'),+    newStartTextTranslationJobResponse,++    -- ** StopTextTranslationJob+    StopTextTranslationJob (StopTextTranslationJob'),+    newStopTextTranslationJob,+    StopTextTranslationJobResponse (StopTextTranslationJobResponse'),+    newStopTextTranslationJobResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** TranslateText+    TranslateText (TranslateText'),+    newTranslateText,+    TranslateTextResponse (TranslateTextResponse'),+    newTranslateTextResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateParallelData+    UpdateParallelData (UpdateParallelData'),+    newUpdateParallelData,+    UpdateParallelDataResponse (UpdateParallelDataResponse'),+    newUpdateParallelDataResponse,++    -- * Types++    -- ** Directionality+    Directionality (..),++    -- ** DisplayLanguageCode+    DisplayLanguageCode (..),++    -- ** EncryptionKeyType+    EncryptionKeyType (..),++    -- ** Formality+    Formality (..),++    -- ** JobStatus+    JobStatus (..),++    -- ** MergeStrategy+    MergeStrategy (..),++    -- ** ParallelDataFormat+    ParallelDataFormat (..),++    -- ** ParallelDataStatus+    ParallelDataStatus (..),++    -- ** Profanity+    Profanity (..),++    -- ** TerminologyDataFormat+    TerminologyDataFormat (..),++    -- ** AppliedTerminology+    AppliedTerminology (AppliedTerminology'),+    newAppliedTerminology,++    -- ** EncryptionKey+    EncryptionKey (EncryptionKey'),+    newEncryptionKey,++    -- ** InputDataConfig+    InputDataConfig (InputDataConfig'),+    newInputDataConfig,++    -- ** JobDetails+    JobDetails (JobDetails'),+    newJobDetails,++    -- ** Language+    Language (Language'),+    newLanguage,++    -- ** OutputDataConfig+    OutputDataConfig (OutputDataConfig'),+    newOutputDataConfig,++    -- ** ParallelDataConfig+    ParallelDataConfig (ParallelDataConfig'),+    newParallelDataConfig,++    -- ** ParallelDataDataLocation+    ParallelDataDataLocation (ParallelDataDataLocation'),+    newParallelDataDataLocation,++    -- ** ParallelDataProperties+    ParallelDataProperties (ParallelDataProperties'),+    newParallelDataProperties,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** Term+    Term (Term'),+    newTerm,++    -- ** TerminologyData+    TerminologyData (TerminologyData'),+    newTerminologyData,++    -- ** TerminologyDataLocation+    TerminologyDataLocation (TerminologyDataLocation'),+    newTerminologyDataLocation,++    -- ** TerminologyProperties+    TerminologyProperties (TerminologyProperties'),+    newTerminologyProperties,++    -- ** TextTranslationJobFilter+    TextTranslationJobFilter (TextTranslationJobFilter'),+    newTextTranslationJobFilter,++    -- ** TextTranslationJobProperties+    TextTranslationJobProperties (TextTranslationJobProperties'),+    newTextTranslationJobProperties,++    -- ** TranslationSettings+    TranslationSettings (TranslationSettings'),+    newTranslationSettings,+  )+where++import Amazonka.Translate.CreateParallelData+import Amazonka.Translate.DeleteParallelData+import Amazonka.Translate.DeleteTerminology+import Amazonka.Translate.DescribeTextTranslationJob+import Amazonka.Translate.GetParallelData+import Amazonka.Translate.GetTerminology+import Amazonka.Translate.ImportTerminology+import Amazonka.Translate.Lens+import Amazonka.Translate.ListLanguages+import Amazonka.Translate.ListParallelData+import Amazonka.Translate.ListTagsForResource+import Amazonka.Translate.ListTerminologies+import Amazonka.Translate.ListTextTranslationJobs+import Amazonka.Translate.StartTextTranslationJob+import Amazonka.Translate.StopTextTranslationJob+import Amazonka.Translate.TagResource+import Amazonka.Translate.TranslateText+import Amazonka.Translate.Types+import Amazonka.Translate.UntagResource+import Amazonka.Translate.UpdateParallelData+import Amazonka.Translate.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 'Translate'.++-- $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,278 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Translate.CreateParallelData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a parallel data resource in Amazon Translate by importing an+-- input file from Amazon S3. Parallel data files contain examples that+-- show how you want segments of text to be translated. By adding parallel+-- data, you can influence the style, tone, and word choice in your+-- translation output.+module Amazonka.Translate.CreateParallelData+  ( -- * Creating a Request+    CreateParallelData (..),+    newCreateParallelData,++    -- * Request Lenses+    createParallelData_description,+    createParallelData_encryptionKey,+    createParallelData_tags,+    createParallelData_name,+    createParallelData_parallelDataConfig,+    createParallelData_clientToken,++    -- * Destructuring the Response+    CreateParallelDataResponse (..),+    newCreateParallelDataResponse,++    -- * Response Lenses+    createParallelDataResponse_name,+    createParallelDataResponse_status,+    createParallelDataResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newCreateParallelData' smart constructor.+data CreateParallelData = CreateParallelData'+  { -- | A custom description for the parallel data resource in Amazon Translate.+    description :: Prelude.Maybe Prelude.Text,+    encryptionKey :: Prelude.Maybe EncryptionKey,+    -- | Tags to be associated with this resource. A tag is a key-value pair that+    -- adds metadata to a resource. Each tag key for the resource must be+    -- unique. For more information, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+    tags :: Prelude.Maybe [Tag],+    -- | A custom name for the parallel data resource in Amazon Translate. You+    -- must assign a name that is unique in the account and region.+    name :: Prelude.Text,+    -- | Specifies the format and S3 location of the parallel data input file.+    parallelDataConfig :: ParallelDataConfig,+    -- | A unique identifier for the request. This token is automatically+    -- generated when you use Amazon Translate through an AWS SDK.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateParallelData' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createParallelData_description' - A custom description for the parallel data resource in Amazon Translate.+--+-- 'encryptionKey', 'createParallelData_encryptionKey' - Undocumented member.+--+-- 'tags', 'createParallelData_tags' - Tags to be associated with this resource. A tag is a key-value pair that+-- adds metadata to a resource. Each tag key for the resource must be+-- unique. For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+--+-- 'name', 'createParallelData_name' - A custom name for the parallel data resource in Amazon Translate. You+-- must assign a name that is unique in the account and region.+--+-- 'parallelDataConfig', 'createParallelData_parallelDataConfig' - Specifies the format and S3 location of the parallel data input file.+--+-- 'clientToken', 'createParallelData_clientToken' - A unique identifier for the request. This token is automatically+-- generated when you use Amazon Translate through an AWS SDK.+newCreateParallelData ::+  -- | 'name'+  Prelude.Text ->+  -- | 'parallelDataConfig'+  ParallelDataConfig ->+  -- | 'clientToken'+  Prelude.Text ->+  CreateParallelData+newCreateParallelData+  pName_+  pParallelDataConfig_+  pClientToken_ =+    CreateParallelData'+      { description = Prelude.Nothing,+        encryptionKey = Prelude.Nothing,+        tags = Prelude.Nothing,+        name = pName_,+        parallelDataConfig = pParallelDataConfig_,+        clientToken = pClientToken_+      }++-- | A custom description for the parallel data resource in Amazon Translate.+createParallelData_description :: Lens.Lens' CreateParallelData (Prelude.Maybe Prelude.Text)+createParallelData_description = Lens.lens (\CreateParallelData' {description} -> description) (\s@CreateParallelData' {} a -> s {description = a} :: CreateParallelData)++-- | Undocumented member.+createParallelData_encryptionKey :: Lens.Lens' CreateParallelData (Prelude.Maybe EncryptionKey)+createParallelData_encryptionKey = Lens.lens (\CreateParallelData' {encryptionKey} -> encryptionKey) (\s@CreateParallelData' {} a -> s {encryptionKey = a} :: CreateParallelData)++-- | Tags to be associated with this resource. A tag is a key-value pair that+-- adds metadata to a resource. Each tag key for the resource must be+-- unique. For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+createParallelData_tags :: Lens.Lens' CreateParallelData (Prelude.Maybe [Tag])+createParallelData_tags = Lens.lens (\CreateParallelData' {tags} -> tags) (\s@CreateParallelData' {} a -> s {tags = a} :: CreateParallelData) Prelude.. Lens.mapping Lens.coerced++-- | A custom name for the parallel data resource in Amazon Translate. You+-- must assign a name that is unique in the account and region.+createParallelData_name :: Lens.Lens' CreateParallelData Prelude.Text+createParallelData_name = Lens.lens (\CreateParallelData' {name} -> name) (\s@CreateParallelData' {} a -> s {name = a} :: CreateParallelData)++-- | Specifies the format and S3 location of the parallel data input file.+createParallelData_parallelDataConfig :: Lens.Lens' CreateParallelData ParallelDataConfig+createParallelData_parallelDataConfig = Lens.lens (\CreateParallelData' {parallelDataConfig} -> parallelDataConfig) (\s@CreateParallelData' {} a -> s {parallelDataConfig = a} :: CreateParallelData)++-- | A unique identifier for the request. This token is automatically+-- generated when you use Amazon Translate through an AWS SDK.+createParallelData_clientToken :: Lens.Lens' CreateParallelData Prelude.Text+createParallelData_clientToken = Lens.lens (\CreateParallelData' {clientToken} -> clientToken) (\s@CreateParallelData' {} a -> s {clientToken = a} :: CreateParallelData)++instance Core.AWSRequest CreateParallelData where+  type+    AWSResponse CreateParallelData =+      CreateParallelDataResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateParallelDataResponse'+            Prelude.<$> (x Data..?> "Name")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateParallelData where+  hashWithSalt _salt CreateParallelData' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` parallelDataConfig+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData CreateParallelData where+  rnf CreateParallelData' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf parallelDataConfig+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders CreateParallelData where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.CreateParallelData" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateParallelData where+  toJSON CreateParallelData' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("EncryptionKey" Data..=) Prelude.<$> encryptionKey,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just+              ("ParallelDataConfig" Data..= parallelDataConfig),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath CreateParallelData where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateParallelData where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateParallelDataResponse' smart constructor.+data CreateParallelDataResponse = CreateParallelDataResponse'+  { -- | The custom name that you assigned to the parallel data resource.+    name :: Prelude.Maybe Prelude.Text,+    -- | The status of the parallel data resource. When the resource is ready for+    -- you to use, the status is @ACTIVE@.+    status :: Prelude.Maybe ParallelDataStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateParallelDataResponse' 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', 'createParallelDataResponse_name' - The custom name that you assigned to the parallel data resource.+--+-- 'status', 'createParallelDataResponse_status' - The status of the parallel data resource. When the resource is ready for+-- you to use, the status is @ACTIVE@.+--+-- 'httpStatus', 'createParallelDataResponse_httpStatus' - The response's http status code.+newCreateParallelDataResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateParallelDataResponse+newCreateParallelDataResponse pHttpStatus_ =+  CreateParallelDataResponse'+    { name = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The custom name that you assigned to the parallel data resource.+createParallelDataResponse_name :: Lens.Lens' CreateParallelDataResponse (Prelude.Maybe Prelude.Text)+createParallelDataResponse_name = Lens.lens (\CreateParallelDataResponse' {name} -> name) (\s@CreateParallelDataResponse' {} a -> s {name = a} :: CreateParallelDataResponse)++-- | The status of the parallel data resource. When the resource is ready for+-- you to use, the status is @ACTIVE@.+createParallelDataResponse_status :: Lens.Lens' CreateParallelDataResponse (Prelude.Maybe ParallelDataStatus)+createParallelDataResponse_status = Lens.lens (\CreateParallelDataResponse' {status} -> status) (\s@CreateParallelDataResponse' {} a -> s {status = a} :: CreateParallelDataResponse)++-- | The response's http status code.+createParallelDataResponse_httpStatus :: Lens.Lens' CreateParallelDataResponse Prelude.Int+createParallelDataResponse_httpStatus = Lens.lens (\CreateParallelDataResponse' {httpStatus} -> httpStatus) (\s@CreateParallelDataResponse' {} a -> s {httpStatus = a} :: CreateParallelDataResponse)++instance Prelude.NFData CreateParallelDataResponse where+  rnf CreateParallelDataResponse' {..} =+    Prelude.rnf name+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,179 @@+{-# 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.Translate.DeleteParallelData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a parallel data resource in Amazon Translate.+module Amazonka.Translate.DeleteParallelData+  ( -- * Creating a Request+    DeleteParallelData (..),+    newDeleteParallelData,++    -- * Request Lenses+    deleteParallelData_name,++    -- * Destructuring the Response+    DeleteParallelDataResponse (..),+    newDeleteParallelDataResponse,++    -- * Response Lenses+    deleteParallelDataResponse_name,+    deleteParallelDataResponse_status,+    deleteParallelDataResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newDeleteParallelData' smart constructor.+data DeleteParallelData = DeleteParallelData'+  { -- | The name of the parallel data resource that is being deleted.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteParallelData' 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', 'deleteParallelData_name' - The name of the parallel data resource that is being deleted.+newDeleteParallelData ::+  -- | 'name'+  Prelude.Text ->+  DeleteParallelData+newDeleteParallelData pName_ =+  DeleteParallelData' {name = pName_}++-- | The name of the parallel data resource that is being deleted.+deleteParallelData_name :: Lens.Lens' DeleteParallelData Prelude.Text+deleteParallelData_name = Lens.lens (\DeleteParallelData' {name} -> name) (\s@DeleteParallelData' {} a -> s {name = a} :: DeleteParallelData)++instance Core.AWSRequest DeleteParallelData where+  type+    AWSResponse DeleteParallelData =+      DeleteParallelDataResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteParallelDataResponse'+            Prelude.<$> (x Data..?> "Name")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteParallelData where+  hashWithSalt _salt DeleteParallelData' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteParallelData where+  rnf DeleteParallelData' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteParallelData where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.DeleteParallelData" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteParallelData where+  toJSON DeleteParallelData' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Name" Data..= name)]+      )++instance Data.ToPath DeleteParallelData where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteParallelData where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteParallelDataResponse' smart constructor.+data DeleteParallelDataResponse = DeleteParallelDataResponse'+  { -- | The name of the parallel data resource that is being deleted.+    name :: Prelude.Maybe Prelude.Text,+    -- | The status of the parallel data deletion.+    status :: Prelude.Maybe ParallelDataStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteParallelDataResponse' 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', 'deleteParallelDataResponse_name' - The name of the parallel data resource that is being deleted.+--+-- 'status', 'deleteParallelDataResponse_status' - The status of the parallel data deletion.+--+-- 'httpStatus', 'deleteParallelDataResponse_httpStatus' - The response's http status code.+newDeleteParallelDataResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteParallelDataResponse+newDeleteParallelDataResponse pHttpStatus_ =+  DeleteParallelDataResponse'+    { name = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The name of the parallel data resource that is being deleted.+deleteParallelDataResponse_name :: Lens.Lens' DeleteParallelDataResponse (Prelude.Maybe Prelude.Text)+deleteParallelDataResponse_name = Lens.lens (\DeleteParallelDataResponse' {name} -> name) (\s@DeleteParallelDataResponse' {} a -> s {name = a} :: DeleteParallelDataResponse)++-- | The status of the parallel data deletion.+deleteParallelDataResponse_status :: Lens.Lens' DeleteParallelDataResponse (Prelude.Maybe ParallelDataStatus)+deleteParallelDataResponse_status = Lens.lens (\DeleteParallelDataResponse' {status} -> status) (\s@DeleteParallelDataResponse' {} a -> s {status = a} :: DeleteParallelDataResponse)++-- | The response's http status code.+deleteParallelDataResponse_httpStatus :: Lens.Lens' DeleteParallelDataResponse Prelude.Int+deleteParallelDataResponse_httpStatus = Lens.lens (\DeleteParallelDataResponse' {httpStatus} -> httpStatus) (\s@DeleteParallelDataResponse' {} a -> s {httpStatus = a} :: DeleteParallelDataResponse)++instance Prelude.NFData DeleteParallelDataResponse where+  rnf DeleteParallelDataResponse' {..} =+    Prelude.rnf name+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,133 @@+{-# 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.Translate.DeleteTerminology+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- A synchronous action that deletes a custom terminology.+module Amazonka.Translate.DeleteTerminology+  ( -- * Creating a Request+    DeleteTerminology (..),+    newDeleteTerminology,++    -- * Request Lenses+    deleteTerminology_name,++    -- * Destructuring the Response+    DeleteTerminologyResponse (..),+    newDeleteTerminologyResponse,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newDeleteTerminology' smart constructor.+data DeleteTerminology = DeleteTerminology'+  { -- | The name of the custom terminology being deleted.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTerminology' 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', 'deleteTerminology_name' - The name of the custom terminology being deleted.+newDeleteTerminology ::+  -- | 'name'+  Prelude.Text ->+  DeleteTerminology+newDeleteTerminology pName_ =+  DeleteTerminology' {name = pName_}++-- | The name of the custom terminology being deleted.+deleteTerminology_name :: Lens.Lens' DeleteTerminology Prelude.Text+deleteTerminology_name = Lens.lens (\DeleteTerminology' {name} -> name) (\s@DeleteTerminology' {} a -> s {name = a} :: DeleteTerminology)++instance Core.AWSRequest DeleteTerminology where+  type+    AWSResponse DeleteTerminology =+      DeleteTerminologyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull DeleteTerminologyResponse'++instance Prelude.Hashable DeleteTerminology where+  hashWithSalt _salt DeleteTerminology' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteTerminology where+  rnf DeleteTerminology' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteTerminology where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.DeleteTerminology" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteTerminology where+  toJSON DeleteTerminology' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Name" Data..= name)]+      )++instance Data.ToPath DeleteTerminology where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteTerminology where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteTerminologyResponse' smart constructor.+data DeleteTerminologyResponse = DeleteTerminologyResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTerminologyResponse' 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.+newDeleteTerminologyResponse ::+  DeleteTerminologyResponse+newDeleteTerminologyResponse =+  DeleteTerminologyResponse'++instance Prelude.NFData DeleteTerminologyResponse where+  rnf _ = ()

@@ -0,0 +1,183 @@+{-# 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.Translate.DescribeTextTranslationJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the properties associated with an asynchronous batch translation+-- job including name, ID, status, source and target languages,+-- input\/output S3 buckets, and so on.+module Amazonka.Translate.DescribeTextTranslationJob+  ( -- * Creating a Request+    DescribeTextTranslationJob (..),+    newDescribeTextTranslationJob,++    -- * Request Lenses+    describeTextTranslationJob_jobId,++    -- * Destructuring the Response+    DescribeTextTranslationJobResponse (..),+    newDescribeTextTranslationJobResponse,++    -- * Response Lenses+    describeTextTranslationJobResponse_textTranslationJobProperties,+    describeTextTranslationJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newDescribeTextTranslationJob' smart constructor.+data DescribeTextTranslationJob = DescribeTextTranslationJob'+  { -- | The identifier that Amazon Translate generated for the job. The+    -- StartTextTranslationJob operation returns this identifier in its+    -- response.+    jobId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTextTranslationJob' 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:+--+-- 'jobId', 'describeTextTranslationJob_jobId' - The identifier that Amazon Translate generated for the job. The+-- StartTextTranslationJob operation returns this identifier in its+-- response.+newDescribeTextTranslationJob ::+  -- | 'jobId'+  Prelude.Text ->+  DescribeTextTranslationJob+newDescribeTextTranslationJob pJobId_ =+  DescribeTextTranslationJob' {jobId = pJobId_}++-- | The identifier that Amazon Translate generated for the job. The+-- StartTextTranslationJob operation returns this identifier in its+-- response.+describeTextTranslationJob_jobId :: Lens.Lens' DescribeTextTranslationJob Prelude.Text+describeTextTranslationJob_jobId = Lens.lens (\DescribeTextTranslationJob' {jobId} -> jobId) (\s@DescribeTextTranslationJob' {} a -> s {jobId = a} :: DescribeTextTranslationJob)++instance Core.AWSRequest DescribeTextTranslationJob where+  type+    AWSResponse DescribeTextTranslationJob =+      DescribeTextTranslationJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeTextTranslationJobResponse'+            Prelude.<$> (x Data..?> "TextTranslationJobProperties")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeTextTranslationJob where+  hashWithSalt _salt DescribeTextTranslationJob' {..} =+    _salt `Prelude.hashWithSalt` jobId++instance Prelude.NFData DescribeTextTranslationJob where+  rnf DescribeTextTranslationJob' {..} =+    Prelude.rnf jobId++instance Data.ToHeaders DescribeTextTranslationJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.DescribeTextTranslationJob" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeTextTranslationJob where+  toJSON DescribeTextTranslationJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("JobId" Data..= jobId)]+      )++instance Data.ToPath DescribeTextTranslationJob where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeTextTranslationJob where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeTextTranslationJobResponse' smart constructor.+data DescribeTextTranslationJobResponse = DescribeTextTranslationJobResponse'+  { -- | An object that contains the properties associated with an asynchronous+    -- batch translation job.+    textTranslationJobProperties :: Prelude.Maybe TextTranslationJobProperties,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTextTranslationJobResponse' 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:+--+-- 'textTranslationJobProperties', 'describeTextTranslationJobResponse_textTranslationJobProperties' - An object that contains the properties associated with an asynchronous+-- batch translation job.+--+-- 'httpStatus', 'describeTextTranslationJobResponse_httpStatus' - The response's http status code.+newDescribeTextTranslationJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeTextTranslationJobResponse+newDescribeTextTranslationJobResponse pHttpStatus_ =+  DescribeTextTranslationJobResponse'+    { textTranslationJobProperties =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An object that contains the properties associated with an asynchronous+-- batch translation job.+describeTextTranslationJobResponse_textTranslationJobProperties :: Lens.Lens' DescribeTextTranslationJobResponse (Prelude.Maybe TextTranslationJobProperties)+describeTextTranslationJobResponse_textTranslationJobProperties = Lens.lens (\DescribeTextTranslationJobResponse' {textTranslationJobProperties} -> textTranslationJobProperties) (\s@DescribeTextTranslationJobResponse' {} a -> s {textTranslationJobProperties = a} :: DescribeTextTranslationJobResponse)++-- | The response's http status code.+describeTextTranslationJobResponse_httpStatus :: Lens.Lens' DescribeTextTranslationJobResponse Prelude.Int+describeTextTranslationJobResponse_httpStatus = Lens.lens (\DescribeTextTranslationJobResponse' {httpStatus} -> httpStatus) (\s@DescribeTextTranslationJobResponse' {} a -> s {httpStatus = a} :: DescribeTextTranslationJobResponse)++instance+  Prelude.NFData+    DescribeTextTranslationJobResponse+  where+  rnf DescribeTextTranslationJobResponse' {..} =+    Prelude.rnf textTranslationJobProperties+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,267 @@+{-# 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.Translate.GetParallelData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information about a parallel data resource.+module Amazonka.Translate.GetParallelData+  ( -- * Creating a Request+    GetParallelData (..),+    newGetParallelData,++    -- * Request Lenses+    getParallelData_name,++    -- * Destructuring the Response+    GetParallelDataResponse (..),+    newGetParallelDataResponse,++    -- * Response Lenses+    getParallelDataResponse_auxiliaryDataLocation,+    getParallelDataResponse_dataLocation,+    getParallelDataResponse_latestUpdateAttemptAuxiliaryDataLocation,+    getParallelDataResponse_parallelDataProperties,+    getParallelDataResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newGetParallelData' smart constructor.+data GetParallelData = GetParallelData'+  { -- | The name of the parallel data resource that is being retrieved.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetParallelData' 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', 'getParallelData_name' - The name of the parallel data resource that is being retrieved.+newGetParallelData ::+  -- | 'name'+  Prelude.Text ->+  GetParallelData+newGetParallelData pName_ =+  GetParallelData' {name = pName_}++-- | The name of the parallel data resource that is being retrieved.+getParallelData_name :: Lens.Lens' GetParallelData Prelude.Text+getParallelData_name = Lens.lens (\GetParallelData' {name} -> name) (\s@GetParallelData' {} a -> s {name = a} :: GetParallelData)++instance Core.AWSRequest GetParallelData where+  type+    AWSResponse GetParallelData =+      GetParallelDataResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetParallelDataResponse'+            Prelude.<$> (x Data..?> "AuxiliaryDataLocation")+            Prelude.<*> (x Data..?> "DataLocation")+            Prelude.<*> ( x+                            Data..?> "LatestUpdateAttemptAuxiliaryDataLocation"+                        )+            Prelude.<*> (x Data..?> "ParallelDataProperties")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetParallelData where+  hashWithSalt _salt GetParallelData' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData GetParallelData where+  rnf GetParallelData' {..} = Prelude.rnf name++instance Data.ToHeaders GetParallelData where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.GetParallelData" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetParallelData where+  toJSON GetParallelData' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Name" Data..= name)]+      )++instance Data.ToPath GetParallelData where+  toPath = Prelude.const "/"++instance Data.ToQuery GetParallelData where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetParallelDataResponse' smart constructor.+data GetParallelDataResponse = GetParallelDataResponse'+  { -- | The Amazon S3 location of a file that provides any errors or warnings+    -- that were produced by your input file. This file was created when Amazon+    -- Translate attempted to create a parallel data resource. The location is+    -- returned as a presigned URL to that has a 30-minute expiration.+    auxiliaryDataLocation :: Prelude.Maybe ParallelDataDataLocation,+    -- | The Amazon S3 location of the most recent parallel data input file that+    -- was successfully imported into Amazon Translate. The location is+    -- returned as a presigned URL that has a 30-minute expiration.+    --+    -- Amazon Translate doesn\'t scan all input files for the risk of CSV+    -- injection attacks.+    --+    -- CSV injection occurs when a .csv or .tsv file is altered so that a+    -- record contains malicious code. The record begins with a special+    -- character, such as =, +, -, or \@. When the file is opened in a+    -- spreadsheet program, the program might interpret the record as a formula+    -- and run the code within it.+    --+    -- Before you download an input file from Amazon S3, ensure that you+    -- recognize the file and trust its creator.+    dataLocation :: Prelude.Maybe ParallelDataDataLocation,+    -- | The Amazon S3 location of a file that provides any errors or warnings+    -- that were produced by your input file. This file was created when Amazon+    -- Translate attempted to update a parallel data resource. The location is+    -- returned as a presigned URL to that has a 30-minute expiration.+    latestUpdateAttemptAuxiliaryDataLocation :: Prelude.Maybe ParallelDataDataLocation,+    -- | The properties of the parallel data resource that is being retrieved.+    parallelDataProperties :: Prelude.Maybe ParallelDataProperties,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetParallelDataResponse' 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:+--+-- 'auxiliaryDataLocation', 'getParallelDataResponse_auxiliaryDataLocation' - The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to create a parallel data resource. The location is+-- returned as a presigned URL to that has a 30-minute expiration.+--+-- 'dataLocation', 'getParallelDataResponse_dataLocation' - The Amazon S3 location of the most recent parallel data input file that+-- was successfully imported into Amazon Translate. The location is+-- returned as a presigned URL that has a 30-minute expiration.+--+-- Amazon Translate doesn\'t scan all input files for the risk of CSV+-- injection attacks.+--+-- CSV injection occurs when a .csv or .tsv file is altered so that a+-- record contains malicious code. The record begins with a special+-- character, such as =, +, -, or \@. When the file is opened in a+-- spreadsheet program, the program might interpret the record as a formula+-- and run the code within it.+--+-- Before you download an input file from Amazon S3, ensure that you+-- recognize the file and trust its creator.+--+-- 'latestUpdateAttemptAuxiliaryDataLocation', 'getParallelDataResponse_latestUpdateAttemptAuxiliaryDataLocation' - The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to update a parallel data resource. The location is+-- returned as a presigned URL to that has a 30-minute expiration.+--+-- 'parallelDataProperties', 'getParallelDataResponse_parallelDataProperties' - The properties of the parallel data resource that is being retrieved.+--+-- 'httpStatus', 'getParallelDataResponse_httpStatus' - The response's http status code.+newGetParallelDataResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetParallelDataResponse+newGetParallelDataResponse pHttpStatus_ =+  GetParallelDataResponse'+    { auxiliaryDataLocation =+        Prelude.Nothing,+      dataLocation = Prelude.Nothing,+      latestUpdateAttemptAuxiliaryDataLocation =+        Prelude.Nothing,+      parallelDataProperties = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to create a parallel data resource. The location is+-- returned as a presigned URL to that has a 30-minute expiration.+getParallelDataResponse_auxiliaryDataLocation :: Lens.Lens' GetParallelDataResponse (Prelude.Maybe ParallelDataDataLocation)+getParallelDataResponse_auxiliaryDataLocation = Lens.lens (\GetParallelDataResponse' {auxiliaryDataLocation} -> auxiliaryDataLocation) (\s@GetParallelDataResponse' {} a -> s {auxiliaryDataLocation = a} :: GetParallelDataResponse)++-- | The Amazon S3 location of the most recent parallel data input file that+-- was successfully imported into Amazon Translate. The location is+-- returned as a presigned URL that has a 30-minute expiration.+--+-- Amazon Translate doesn\'t scan all input files for the risk of CSV+-- injection attacks.+--+-- CSV injection occurs when a .csv or .tsv file is altered so that a+-- record contains malicious code. The record begins with a special+-- character, such as =, +, -, or \@. When the file is opened in a+-- spreadsheet program, the program might interpret the record as a formula+-- and run the code within it.+--+-- Before you download an input file from Amazon S3, ensure that you+-- recognize the file and trust its creator.+getParallelDataResponse_dataLocation :: Lens.Lens' GetParallelDataResponse (Prelude.Maybe ParallelDataDataLocation)+getParallelDataResponse_dataLocation = Lens.lens (\GetParallelDataResponse' {dataLocation} -> dataLocation) (\s@GetParallelDataResponse' {} a -> s {dataLocation = a} :: GetParallelDataResponse)++-- | The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to update a parallel data resource. The location is+-- returned as a presigned URL to that has a 30-minute expiration.+getParallelDataResponse_latestUpdateAttemptAuxiliaryDataLocation :: Lens.Lens' GetParallelDataResponse (Prelude.Maybe ParallelDataDataLocation)+getParallelDataResponse_latestUpdateAttemptAuxiliaryDataLocation = Lens.lens (\GetParallelDataResponse' {latestUpdateAttemptAuxiliaryDataLocation} -> latestUpdateAttemptAuxiliaryDataLocation) (\s@GetParallelDataResponse' {} a -> s {latestUpdateAttemptAuxiliaryDataLocation = a} :: GetParallelDataResponse)++-- | The properties of the parallel data resource that is being retrieved.+getParallelDataResponse_parallelDataProperties :: Lens.Lens' GetParallelDataResponse (Prelude.Maybe ParallelDataProperties)+getParallelDataResponse_parallelDataProperties = Lens.lens (\GetParallelDataResponse' {parallelDataProperties} -> parallelDataProperties) (\s@GetParallelDataResponse' {} a -> s {parallelDataProperties = a} :: GetParallelDataResponse)++-- | The response's http status code.+getParallelDataResponse_httpStatus :: Lens.Lens' GetParallelDataResponse Prelude.Int+getParallelDataResponse_httpStatus = Lens.lens (\GetParallelDataResponse' {httpStatus} -> httpStatus) (\s@GetParallelDataResponse' {} a -> s {httpStatus = a} :: GetParallelDataResponse)++instance Prelude.NFData GetParallelDataResponse where+  rnf GetParallelDataResponse' {..} =+    Prelude.rnf auxiliaryDataLocation+      `Prelude.seq` Prelude.rnf dataLocation+      `Prelude.seq` Prelude.rnf latestUpdateAttemptAuxiliaryDataLocation+      `Prelude.seq` Prelude.rnf parallelDataProperties+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,290 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Translate.GetTerminology+-- 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 custom terminology.+module Amazonka.Translate.GetTerminology+  ( -- * Creating a Request+    GetTerminology (..),+    newGetTerminology,++    -- * Request Lenses+    getTerminology_terminologyDataFormat,+    getTerminology_name,++    -- * Destructuring the Response+    GetTerminologyResponse (..),+    newGetTerminologyResponse,++    -- * Response Lenses+    getTerminologyResponse_auxiliaryDataLocation,+    getTerminologyResponse_terminologyDataLocation,+    getTerminologyResponse_terminologyProperties,+    getTerminologyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newGetTerminology' smart constructor.+data GetTerminology = GetTerminology'+  { -- | The data format of the custom terminology being retrieved.+    --+    -- If you don\'t specify this parameter, Amazon Translate returns a file+    -- with the same format as the file that was imported to create the+    -- terminology.+    --+    -- If you specify this parameter when you retrieve a multi-directional+    -- terminology resource, you must specify the same format as the input file+    -- that was imported to create it. Otherwise, Amazon Translate throws an+    -- error.+    terminologyDataFormat :: Prelude.Maybe TerminologyDataFormat,+    -- | The name of the custom terminology being retrieved.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTerminology' 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:+--+-- 'terminologyDataFormat', 'getTerminology_terminologyDataFormat' - The data format of the custom terminology being retrieved.+--+-- If you don\'t specify this parameter, Amazon Translate returns a file+-- with the same format as the file that was imported to create the+-- terminology.+--+-- If you specify this parameter when you retrieve a multi-directional+-- terminology resource, you must specify the same format as the input file+-- that was imported to create it. Otherwise, Amazon Translate throws an+-- error.+--+-- 'name', 'getTerminology_name' - The name of the custom terminology being retrieved.+newGetTerminology ::+  -- | 'name'+  Prelude.Text ->+  GetTerminology+newGetTerminology pName_ =+  GetTerminology'+    { terminologyDataFormat =+        Prelude.Nothing,+      name = pName_+    }++-- | The data format of the custom terminology being retrieved.+--+-- If you don\'t specify this parameter, Amazon Translate returns a file+-- with the same format as the file that was imported to create the+-- terminology.+--+-- If you specify this parameter when you retrieve a multi-directional+-- terminology resource, you must specify the same format as the input file+-- that was imported to create it. Otherwise, Amazon Translate throws an+-- error.+getTerminology_terminologyDataFormat :: Lens.Lens' GetTerminology (Prelude.Maybe TerminologyDataFormat)+getTerminology_terminologyDataFormat = Lens.lens (\GetTerminology' {terminologyDataFormat} -> terminologyDataFormat) (\s@GetTerminology' {} a -> s {terminologyDataFormat = a} :: GetTerminology)++-- | The name of the custom terminology being retrieved.+getTerminology_name :: Lens.Lens' GetTerminology Prelude.Text+getTerminology_name = Lens.lens (\GetTerminology' {name} -> name) (\s@GetTerminology' {} a -> s {name = a} :: GetTerminology)++instance Core.AWSRequest GetTerminology where+  type+    AWSResponse GetTerminology =+      GetTerminologyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTerminologyResponse'+            Prelude.<$> (x Data..?> "AuxiliaryDataLocation")+            Prelude.<*> (x Data..?> "TerminologyDataLocation")+            Prelude.<*> (x Data..?> "TerminologyProperties")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTerminology where+  hashWithSalt _salt GetTerminology' {..} =+    _salt+      `Prelude.hashWithSalt` terminologyDataFormat+      `Prelude.hashWithSalt` name++instance Prelude.NFData GetTerminology where+  rnf GetTerminology' {..} =+    Prelude.rnf terminologyDataFormat+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders GetTerminology where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.GetTerminology" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetTerminology where+  toJSON GetTerminology' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("TerminologyDataFormat" Data..=)+              Prelude.<$> terminologyDataFormat,+            Prelude.Just ("Name" Data..= name)+          ]+      )++instance Data.ToPath GetTerminology where+  toPath = Prelude.const "/"++instance Data.ToQuery GetTerminology where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTerminologyResponse' smart constructor.+data GetTerminologyResponse = GetTerminologyResponse'+  { -- | The Amazon S3 location of a file that provides any errors or warnings+    -- that were produced by your input file. This file was created when Amazon+    -- Translate attempted to create a terminology resource. The location is+    -- returned as a presigned URL to that has a 30-minute expiration.+    auxiliaryDataLocation :: Prelude.Maybe TerminologyDataLocation,+    -- | The Amazon S3 location of the most recent custom terminology input file+    -- that was successfully imported into Amazon Translate. The location is+    -- returned as a presigned URL that has a 30-minute expiration.+    --+    -- Amazon Translate doesn\'t scan all input files for the risk of CSV+    -- injection attacks.+    --+    -- CSV injection occurs when a .csv or .tsv file is altered so that a+    -- record contains malicious code. The record begins with a special+    -- character, such as =, +, -, or \@. When the file is opened in a+    -- spreadsheet program, the program might interpret the record as a formula+    -- and run the code within it.+    --+    -- Before you download an input file from Amazon S3, ensure that you+    -- recognize the file and trust its creator.+    terminologyDataLocation :: Prelude.Maybe TerminologyDataLocation,+    -- | The properties of the custom terminology being retrieved.+    terminologyProperties :: Prelude.Maybe TerminologyProperties,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTerminologyResponse' 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:+--+-- 'auxiliaryDataLocation', 'getTerminologyResponse_auxiliaryDataLocation' - The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to create a terminology resource. The location is+-- returned as a presigned URL to that has a 30-minute expiration.+--+-- 'terminologyDataLocation', 'getTerminologyResponse_terminologyDataLocation' - The Amazon S3 location of the most recent custom terminology input file+-- that was successfully imported into Amazon Translate. The location is+-- returned as a presigned URL that has a 30-minute expiration.+--+-- Amazon Translate doesn\'t scan all input files for the risk of CSV+-- injection attacks.+--+-- CSV injection occurs when a .csv or .tsv file is altered so that a+-- record contains malicious code. The record begins with a special+-- character, such as =, +, -, or \@. When the file is opened in a+-- spreadsheet program, the program might interpret the record as a formula+-- and run the code within it.+--+-- Before you download an input file from Amazon S3, ensure that you+-- recognize the file and trust its creator.+--+-- 'terminologyProperties', 'getTerminologyResponse_terminologyProperties' - The properties of the custom terminology being retrieved.+--+-- 'httpStatus', 'getTerminologyResponse_httpStatus' - The response's http status code.+newGetTerminologyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTerminologyResponse+newGetTerminologyResponse pHttpStatus_ =+  GetTerminologyResponse'+    { auxiliaryDataLocation =+        Prelude.Nothing,+      terminologyDataLocation = Prelude.Nothing,+      terminologyProperties = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to create a terminology resource. The location is+-- returned as a presigned URL to that has a 30-minute expiration.+getTerminologyResponse_auxiliaryDataLocation :: Lens.Lens' GetTerminologyResponse (Prelude.Maybe TerminologyDataLocation)+getTerminologyResponse_auxiliaryDataLocation = Lens.lens (\GetTerminologyResponse' {auxiliaryDataLocation} -> auxiliaryDataLocation) (\s@GetTerminologyResponse' {} a -> s {auxiliaryDataLocation = a} :: GetTerminologyResponse)++-- | The Amazon S3 location of the most recent custom terminology input file+-- that was successfully imported into Amazon Translate. The location is+-- returned as a presigned URL that has a 30-minute expiration.+--+-- Amazon Translate doesn\'t scan all input files for the risk of CSV+-- injection attacks.+--+-- CSV injection occurs when a .csv or .tsv file is altered so that a+-- record contains malicious code. The record begins with a special+-- character, such as =, +, -, or \@. When the file is opened in a+-- spreadsheet program, the program might interpret the record as a formula+-- and run the code within it.+--+-- Before you download an input file from Amazon S3, ensure that you+-- recognize the file and trust its creator.+getTerminologyResponse_terminologyDataLocation :: Lens.Lens' GetTerminologyResponse (Prelude.Maybe TerminologyDataLocation)+getTerminologyResponse_terminologyDataLocation = Lens.lens (\GetTerminologyResponse' {terminologyDataLocation} -> terminologyDataLocation) (\s@GetTerminologyResponse' {} a -> s {terminologyDataLocation = a} :: GetTerminologyResponse)++-- | The properties of the custom terminology being retrieved.+getTerminologyResponse_terminologyProperties :: Lens.Lens' GetTerminologyResponse (Prelude.Maybe TerminologyProperties)+getTerminologyResponse_terminologyProperties = Lens.lens (\GetTerminologyResponse' {terminologyProperties} -> terminologyProperties) (\s@GetTerminologyResponse' {} a -> s {terminologyProperties = a} :: GetTerminologyResponse)++-- | The response's http status code.+getTerminologyResponse_httpStatus :: Lens.Lens' GetTerminologyResponse Prelude.Int+getTerminologyResponse_httpStatus = Lens.lens (\GetTerminologyResponse' {httpStatus} -> httpStatus) (\s@GetTerminologyResponse' {} a -> s {httpStatus = a} :: GetTerminologyResponse)++instance Prelude.NFData GetTerminologyResponse where+  rnf GetTerminologyResponse' {..} =+    Prelude.rnf auxiliaryDataLocation+      `Prelude.seq` Prelude.rnf terminologyDataLocation+      `Prelude.seq` Prelude.rnf terminologyProperties+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,294 @@+{-# 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.Translate.ImportTerminology+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates or updates a custom terminology, depending on whether one+-- already exists for the given terminology name. Importing a terminology+-- with the same name as an existing one will merge the terminologies based+-- on the chosen merge strategy. The only supported merge strategy is+-- OVERWRITE, where the imported terminology overwrites the existing+-- terminology of the same name.+--+-- If you import a terminology that overwrites an existing one, the new+-- terminology takes up to 10 minutes to fully propagate. After that,+-- translations have access to the new terminology.+module Amazonka.Translate.ImportTerminology+  ( -- * Creating a Request+    ImportTerminology (..),+    newImportTerminology,++    -- * Request Lenses+    importTerminology_description,+    importTerminology_encryptionKey,+    importTerminology_tags,+    importTerminology_name,+    importTerminology_mergeStrategy,+    importTerminology_terminologyData,++    -- * Destructuring the Response+    ImportTerminologyResponse (..),+    newImportTerminologyResponse,++    -- * Response Lenses+    importTerminologyResponse_auxiliaryDataLocation,+    importTerminologyResponse_terminologyProperties,+    importTerminologyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newImportTerminology' smart constructor.+data ImportTerminology = ImportTerminology'+  { -- | The description of the custom terminology being imported.+    description :: Prelude.Maybe Prelude.Text,+    -- | The encryption key for the custom terminology being imported.+    encryptionKey :: Prelude.Maybe EncryptionKey,+    -- | Tags to be associated with this resource. A tag is a key-value pair that+    -- adds metadata to a resource. Each tag key for the resource must be+    -- unique. For more information, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the custom terminology being imported.+    name :: Prelude.Text,+    -- | The merge strategy of the custom terminology being imported. Currently,+    -- only the OVERWRITE merge strategy is supported. In this case, the+    -- imported terminology will overwrite an existing terminology of the same+    -- name.+    mergeStrategy :: MergeStrategy,+    -- | The terminology data for the custom terminology being imported.+    terminologyData :: TerminologyData+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ImportTerminology' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'importTerminology_description' - The description of the custom terminology being imported.+--+-- 'encryptionKey', 'importTerminology_encryptionKey' - The encryption key for the custom terminology being imported.+--+-- 'tags', 'importTerminology_tags' - Tags to be associated with this resource. A tag is a key-value pair that+-- adds metadata to a resource. Each tag key for the resource must be+-- unique. For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+--+-- 'name', 'importTerminology_name' - The name of the custom terminology being imported.+--+-- 'mergeStrategy', 'importTerminology_mergeStrategy' - The merge strategy of the custom terminology being imported. Currently,+-- only the OVERWRITE merge strategy is supported. In this case, the+-- imported terminology will overwrite an existing terminology of the same+-- name.+--+-- 'terminologyData', 'importTerminology_terminologyData' - The terminology data for the custom terminology being imported.+newImportTerminology ::+  -- | 'name'+  Prelude.Text ->+  -- | 'mergeStrategy'+  MergeStrategy ->+  -- | 'terminologyData'+  TerminologyData ->+  ImportTerminology+newImportTerminology+  pName_+  pMergeStrategy_+  pTerminologyData_ =+    ImportTerminology'+      { description = Prelude.Nothing,+        encryptionKey = Prelude.Nothing,+        tags = Prelude.Nothing,+        name = pName_,+        mergeStrategy = pMergeStrategy_,+        terminologyData = pTerminologyData_+      }++-- | The description of the custom terminology being imported.+importTerminology_description :: Lens.Lens' ImportTerminology (Prelude.Maybe Prelude.Text)+importTerminology_description = Lens.lens (\ImportTerminology' {description} -> description) (\s@ImportTerminology' {} a -> s {description = a} :: ImportTerminology)++-- | The encryption key for the custom terminology being imported.+importTerminology_encryptionKey :: Lens.Lens' ImportTerminology (Prelude.Maybe EncryptionKey)+importTerminology_encryptionKey = Lens.lens (\ImportTerminology' {encryptionKey} -> encryptionKey) (\s@ImportTerminology' {} a -> s {encryptionKey = a} :: ImportTerminology)++-- | Tags to be associated with this resource. A tag is a key-value pair that+-- adds metadata to a resource. Each tag key for the resource must be+-- unique. For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+importTerminology_tags :: Lens.Lens' ImportTerminology (Prelude.Maybe [Tag])+importTerminology_tags = Lens.lens (\ImportTerminology' {tags} -> tags) (\s@ImportTerminology' {} a -> s {tags = a} :: ImportTerminology) Prelude.. Lens.mapping Lens.coerced++-- | The name of the custom terminology being imported.+importTerminology_name :: Lens.Lens' ImportTerminology Prelude.Text+importTerminology_name = Lens.lens (\ImportTerminology' {name} -> name) (\s@ImportTerminology' {} a -> s {name = a} :: ImportTerminology)++-- | The merge strategy of the custom terminology being imported. Currently,+-- only the OVERWRITE merge strategy is supported. In this case, the+-- imported terminology will overwrite an existing terminology of the same+-- name.+importTerminology_mergeStrategy :: Lens.Lens' ImportTerminology MergeStrategy+importTerminology_mergeStrategy = Lens.lens (\ImportTerminology' {mergeStrategy} -> mergeStrategy) (\s@ImportTerminology' {} a -> s {mergeStrategy = a} :: ImportTerminology)++-- | The terminology data for the custom terminology being imported.+importTerminology_terminologyData :: Lens.Lens' ImportTerminology TerminologyData+importTerminology_terminologyData = Lens.lens (\ImportTerminology' {terminologyData} -> terminologyData) (\s@ImportTerminology' {} a -> s {terminologyData = a} :: ImportTerminology)++instance Core.AWSRequest ImportTerminology where+  type+    AWSResponse ImportTerminology =+      ImportTerminologyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ImportTerminologyResponse'+            Prelude.<$> (x Data..?> "AuxiliaryDataLocation")+            Prelude.<*> (x Data..?> "TerminologyProperties")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ImportTerminology where+  hashWithSalt _salt ImportTerminology' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` encryptionKey+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` mergeStrategy+      `Prelude.hashWithSalt` terminologyData++instance Prelude.NFData ImportTerminology where+  rnf ImportTerminology' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf encryptionKey+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf mergeStrategy+      `Prelude.seq` Prelude.rnf terminologyData++instance Data.ToHeaders ImportTerminology where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.ImportTerminology" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ImportTerminology where+  toJSON ImportTerminology' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("EncryptionKey" Data..=) Prelude.<$> encryptionKey,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("MergeStrategy" Data..= mergeStrategy),+            Prelude.Just+              ("TerminologyData" Data..= terminologyData)+          ]+      )++instance Data.ToPath ImportTerminology where+  toPath = Prelude.const "/"++instance Data.ToQuery ImportTerminology where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newImportTerminologyResponse' smart constructor.+data ImportTerminologyResponse = ImportTerminologyResponse'+  { -- | The Amazon S3 location of a file that provides any errors or warnings+    -- that were produced by your input file. This file was created when Amazon+    -- Translate attempted to create a terminology resource. The location is+    -- returned as a presigned URL to that has a 30 minute expiration.+    auxiliaryDataLocation :: Prelude.Maybe TerminologyDataLocation,+    -- | The properties of the custom terminology being imported.+    terminologyProperties :: Prelude.Maybe TerminologyProperties,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ImportTerminologyResponse' 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:+--+-- 'auxiliaryDataLocation', 'importTerminologyResponse_auxiliaryDataLocation' - The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to create a terminology resource. The location is+-- returned as a presigned URL to that has a 30 minute expiration.+--+-- 'terminologyProperties', 'importTerminologyResponse_terminologyProperties' - The properties of the custom terminology being imported.+--+-- 'httpStatus', 'importTerminologyResponse_httpStatus' - The response's http status code.+newImportTerminologyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ImportTerminologyResponse+newImportTerminologyResponse pHttpStatus_ =+  ImportTerminologyResponse'+    { auxiliaryDataLocation =+        Prelude.Nothing,+      terminologyProperties = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon S3 location of a file that provides any errors or warnings+-- that were produced by your input file. This file was created when Amazon+-- Translate attempted to create a terminology resource. The location is+-- returned as a presigned URL to that has a 30 minute expiration.+importTerminologyResponse_auxiliaryDataLocation :: Lens.Lens' ImportTerminologyResponse (Prelude.Maybe TerminologyDataLocation)+importTerminologyResponse_auxiliaryDataLocation = Lens.lens (\ImportTerminologyResponse' {auxiliaryDataLocation} -> auxiliaryDataLocation) (\s@ImportTerminologyResponse' {} a -> s {auxiliaryDataLocation = a} :: ImportTerminologyResponse)++-- | The properties of the custom terminology being imported.+importTerminologyResponse_terminologyProperties :: Lens.Lens' ImportTerminologyResponse (Prelude.Maybe TerminologyProperties)+importTerminologyResponse_terminologyProperties = Lens.lens (\ImportTerminologyResponse' {terminologyProperties} -> terminologyProperties) (\s@ImportTerminologyResponse' {} a -> s {terminologyProperties = a} :: ImportTerminologyResponse)++-- | The response's http status code.+importTerminologyResponse_httpStatus :: Lens.Lens' ImportTerminologyResponse Prelude.Int+importTerminologyResponse_httpStatus = Lens.lens (\ImportTerminologyResponse' {httpStatus} -> httpStatus) (\s@ImportTerminologyResponse' {} a -> s {httpStatus = a} :: ImportTerminologyResponse)++instance Prelude.NFData ImportTerminologyResponse where+  rnf ImportTerminologyResponse' {..} =+    Prelude.rnf auxiliaryDataLocation+      `Prelude.seq` Prelude.rnf terminologyProperties+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,310 @@+{-# 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.Translate.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.Translate.Lens+  ( -- * Operations++    -- ** CreateParallelData+    createParallelData_description,+    createParallelData_encryptionKey,+    createParallelData_tags,+    createParallelData_name,+    createParallelData_parallelDataConfig,+    createParallelData_clientToken,+    createParallelDataResponse_name,+    createParallelDataResponse_status,+    createParallelDataResponse_httpStatus,++    -- ** DeleteParallelData+    deleteParallelData_name,+    deleteParallelDataResponse_name,+    deleteParallelDataResponse_status,+    deleteParallelDataResponse_httpStatus,++    -- ** DeleteTerminology+    deleteTerminology_name,++    -- ** DescribeTextTranslationJob+    describeTextTranslationJob_jobId,+    describeTextTranslationJobResponse_textTranslationJobProperties,+    describeTextTranslationJobResponse_httpStatus,++    -- ** GetParallelData+    getParallelData_name,+    getParallelDataResponse_auxiliaryDataLocation,+    getParallelDataResponse_dataLocation,+    getParallelDataResponse_latestUpdateAttemptAuxiliaryDataLocation,+    getParallelDataResponse_parallelDataProperties,+    getParallelDataResponse_httpStatus,++    -- ** GetTerminology+    getTerminology_terminologyDataFormat,+    getTerminology_name,+    getTerminologyResponse_auxiliaryDataLocation,+    getTerminologyResponse_terminologyDataLocation,+    getTerminologyResponse_terminologyProperties,+    getTerminologyResponse_httpStatus,++    -- ** ImportTerminology+    importTerminology_description,+    importTerminology_encryptionKey,+    importTerminology_tags,+    importTerminology_name,+    importTerminology_mergeStrategy,+    importTerminology_terminologyData,+    importTerminologyResponse_auxiliaryDataLocation,+    importTerminologyResponse_terminologyProperties,+    importTerminologyResponse_httpStatus,++    -- ** ListLanguages+    listLanguages_displayLanguageCode,+    listLanguages_maxResults,+    listLanguages_nextToken,+    listLanguagesResponse_displayLanguageCode,+    listLanguagesResponse_languages,+    listLanguagesResponse_nextToken,+    listLanguagesResponse_httpStatus,++    -- ** ListParallelData+    listParallelData_maxResults,+    listParallelData_nextToken,+    listParallelDataResponse_nextToken,+    listParallelDataResponse_parallelDataPropertiesList,+    listParallelDataResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_resourceArn,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** ListTerminologies+    listTerminologies_maxResults,+    listTerminologies_nextToken,+    listTerminologiesResponse_nextToken,+    listTerminologiesResponse_terminologyPropertiesList,+    listTerminologiesResponse_httpStatus,++    -- ** ListTextTranslationJobs+    listTextTranslationJobs_filter,+    listTextTranslationJobs_maxResults,+    listTextTranslationJobs_nextToken,+    listTextTranslationJobsResponse_nextToken,+    listTextTranslationJobsResponse_textTranslationJobPropertiesList,+    listTextTranslationJobsResponse_httpStatus,++    -- ** StartTextTranslationJob+    startTextTranslationJob_jobName,+    startTextTranslationJob_parallelDataNames,+    startTextTranslationJob_settings,+    startTextTranslationJob_terminologyNames,+    startTextTranslationJob_inputDataConfig,+    startTextTranslationJob_outputDataConfig,+    startTextTranslationJob_dataAccessRoleArn,+    startTextTranslationJob_sourceLanguageCode,+    startTextTranslationJob_targetLanguageCodes,+    startTextTranslationJob_clientToken,+    startTextTranslationJobResponse_jobId,+    startTextTranslationJobResponse_jobStatus,+    startTextTranslationJobResponse_httpStatus,++    -- ** StopTextTranslationJob+    stopTextTranslationJob_jobId,+    stopTextTranslationJobResponse_jobId,+    stopTextTranslationJobResponse_jobStatus,+    stopTextTranslationJobResponse_httpStatus,++    -- ** TagResource+    tagResource_resourceArn,+    tagResource_tags,+    tagResourceResponse_httpStatus,++    -- ** TranslateText+    translateText_settings,+    translateText_terminologyNames,+    translateText_text,+    translateText_sourceLanguageCode,+    translateText_targetLanguageCode,+    translateTextResponse_appliedSettings,+    translateTextResponse_appliedTerminologies,+    translateTextResponse_httpStatus,+    translateTextResponse_translatedText,+    translateTextResponse_sourceLanguageCode,+    translateTextResponse_targetLanguageCode,++    -- ** UntagResource+    untagResource_resourceArn,+    untagResource_tagKeys,+    untagResourceResponse_httpStatus,++    -- ** UpdateParallelData+    updateParallelData_description,+    updateParallelData_name,+    updateParallelData_parallelDataConfig,+    updateParallelData_clientToken,+    updateParallelDataResponse_latestUpdateAttemptAt,+    updateParallelDataResponse_latestUpdateAttemptStatus,+    updateParallelDataResponse_name,+    updateParallelDataResponse_status,+    updateParallelDataResponse_httpStatus,++    -- * Types++    -- ** AppliedTerminology+    appliedTerminology_name,+    appliedTerminology_terms,++    -- ** EncryptionKey+    encryptionKey_type,+    encryptionKey_id,++    -- ** InputDataConfig+    inputDataConfig_s3Uri,+    inputDataConfig_contentType,++    -- ** JobDetails+    jobDetails_documentsWithErrorsCount,+    jobDetails_inputDocumentsCount,+    jobDetails_translatedDocumentsCount,++    -- ** Language+    language_languageName,+    language_languageCode,++    -- ** OutputDataConfig+    outputDataConfig_encryptionKey,+    outputDataConfig_s3Uri,++    -- ** ParallelDataConfig+    parallelDataConfig_s3Uri,+    parallelDataConfig_format,++    -- ** ParallelDataDataLocation+    parallelDataDataLocation_repositoryType,+    parallelDataDataLocation_location,++    -- ** ParallelDataProperties+    parallelDataProperties_arn,+    parallelDataProperties_createdAt,+    parallelDataProperties_description,+    parallelDataProperties_encryptionKey,+    parallelDataProperties_failedRecordCount,+    parallelDataProperties_importedDataSize,+    parallelDataProperties_importedRecordCount,+    parallelDataProperties_lastUpdatedAt,+    parallelDataProperties_latestUpdateAttemptAt,+    parallelDataProperties_latestUpdateAttemptStatus,+    parallelDataProperties_message,+    parallelDataProperties_name,+    parallelDataProperties_parallelDataConfig,+    parallelDataProperties_skippedRecordCount,+    parallelDataProperties_sourceLanguageCode,+    parallelDataProperties_status,+    parallelDataProperties_targetLanguageCodes,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** Term+    term_sourceText,+    term_targetText,++    -- ** TerminologyData+    terminologyData_directionality,+    terminologyData_file,+    terminologyData_format,++    -- ** TerminologyDataLocation+    terminologyDataLocation_repositoryType,+    terminologyDataLocation_location,++    -- ** TerminologyProperties+    terminologyProperties_arn,+    terminologyProperties_createdAt,+    terminologyProperties_description,+    terminologyProperties_directionality,+    terminologyProperties_encryptionKey,+    terminologyProperties_format,+    terminologyProperties_lastUpdatedAt,+    terminologyProperties_message,+    terminologyProperties_name,+    terminologyProperties_sizeBytes,+    terminologyProperties_skippedTermCount,+    terminologyProperties_sourceLanguageCode,+    terminologyProperties_targetLanguageCodes,+    terminologyProperties_termCount,++    -- ** TextTranslationJobFilter+    textTranslationJobFilter_jobName,+    textTranslationJobFilter_jobStatus,+    textTranslationJobFilter_submittedAfterTime,+    textTranslationJobFilter_submittedBeforeTime,++    -- ** TextTranslationJobProperties+    textTranslationJobProperties_dataAccessRoleArn,+    textTranslationJobProperties_endTime,+    textTranslationJobProperties_inputDataConfig,+    textTranslationJobProperties_jobDetails,+    textTranslationJobProperties_jobId,+    textTranslationJobProperties_jobName,+    textTranslationJobProperties_jobStatus,+    textTranslationJobProperties_message,+    textTranslationJobProperties_outputDataConfig,+    textTranslationJobProperties_parallelDataNames,+    textTranslationJobProperties_settings,+    textTranslationJobProperties_sourceLanguageCode,+    textTranslationJobProperties_submittedTime,+    textTranslationJobProperties_targetLanguageCodes,+    textTranslationJobProperties_terminologyNames,++    -- ** TranslationSettings+    translationSettings_formality,+    translationSettings_profanity,+  )+where++import Amazonka.Translate.CreateParallelData+import Amazonka.Translate.DeleteParallelData+import Amazonka.Translate.DeleteTerminology+import Amazonka.Translate.DescribeTextTranslationJob+import Amazonka.Translate.GetParallelData+import Amazonka.Translate.GetTerminology+import Amazonka.Translate.ImportTerminology+import Amazonka.Translate.ListLanguages+import Amazonka.Translate.ListParallelData+import Amazonka.Translate.ListTagsForResource+import Amazonka.Translate.ListTerminologies+import Amazonka.Translate.ListTextTranslationJobs+import Amazonka.Translate.StartTextTranslationJob+import Amazonka.Translate.StopTextTranslationJob+import Amazonka.Translate.TagResource+import Amazonka.Translate.TranslateText+import Amazonka.Translate.Types.AppliedTerminology+import Amazonka.Translate.Types.EncryptionKey+import Amazonka.Translate.Types.InputDataConfig+import Amazonka.Translate.Types.JobDetails+import Amazonka.Translate.Types.Language+import Amazonka.Translate.Types.OutputDataConfig+import Amazonka.Translate.Types.ParallelDataConfig+import Amazonka.Translate.Types.ParallelDataDataLocation+import Amazonka.Translate.Types.ParallelDataProperties+import Amazonka.Translate.Types.Tag+import Amazonka.Translate.Types.Term+import Amazonka.Translate.Types.TerminologyData+import Amazonka.Translate.Types.TerminologyDataLocation+import Amazonka.Translate.Types.TerminologyProperties+import Amazonka.Translate.Types.TextTranslationJobFilter+import Amazonka.Translate.Types.TextTranslationJobProperties+import Amazonka.Translate.Types.TranslationSettings+import Amazonka.Translate.UntagResource+import Amazonka.Translate.UpdateParallelData

@@ -0,0 +1,236 @@+{-# 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.Translate.ListLanguages+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of languages (RFC-5646 codes and names) that Amazon+-- Translate supports.+module Amazonka.Translate.ListLanguages+  ( -- * Creating a Request+    ListLanguages (..),+    newListLanguages,++    -- * Request Lenses+    listLanguages_displayLanguageCode,+    listLanguages_maxResults,+    listLanguages_nextToken,++    -- * Destructuring the Response+    ListLanguagesResponse (..),+    newListLanguagesResponse,++    -- * Response Lenses+    listLanguagesResponse_displayLanguageCode,+    listLanguagesResponse_languages,+    listLanguagesResponse_nextToken,+    listLanguagesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newListLanguages' smart constructor.+data ListLanguages = ListLanguages'+  { -- | The language code for the language to use to display the language names+    -- in the response. The language code is @en@ by default.+    displayLanguageCode :: Prelude.Maybe DisplayLanguageCode,+    -- | The maximum number of results to return in each response.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | Include the NextToken value to fetch the next group of supported+    -- languages.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLanguages' 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:+--+-- 'displayLanguageCode', 'listLanguages_displayLanguageCode' - The language code for the language to use to display the language names+-- in the response. The language code is @en@ by default.+--+-- 'maxResults', 'listLanguages_maxResults' - The maximum number of results to return in each response.+--+-- 'nextToken', 'listLanguages_nextToken' - Include the NextToken value to fetch the next group of supported+-- languages.+newListLanguages ::+  ListLanguages+newListLanguages =+  ListLanguages'+    { displayLanguageCode =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The language code for the language to use to display the language names+-- in the response. The language code is @en@ by default.+listLanguages_displayLanguageCode :: Lens.Lens' ListLanguages (Prelude.Maybe DisplayLanguageCode)+listLanguages_displayLanguageCode = Lens.lens (\ListLanguages' {displayLanguageCode} -> displayLanguageCode) (\s@ListLanguages' {} a -> s {displayLanguageCode = a} :: ListLanguages)++-- | The maximum number of results to return in each response.+listLanguages_maxResults :: Lens.Lens' ListLanguages (Prelude.Maybe Prelude.Natural)+listLanguages_maxResults = Lens.lens (\ListLanguages' {maxResults} -> maxResults) (\s@ListLanguages' {} a -> s {maxResults = a} :: ListLanguages)++-- | Include the NextToken value to fetch the next group of supported+-- languages.+listLanguages_nextToken :: Lens.Lens' ListLanguages (Prelude.Maybe Prelude.Text)+listLanguages_nextToken = Lens.lens (\ListLanguages' {nextToken} -> nextToken) (\s@ListLanguages' {} a -> s {nextToken = a} :: ListLanguages)++instance Core.AWSRequest ListLanguages where+  type+    AWSResponse ListLanguages =+      ListLanguagesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListLanguagesResponse'+            Prelude.<$> (x Data..?> "DisplayLanguageCode")+            Prelude.<*> (x Data..?> "Languages" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListLanguages where+  hashWithSalt _salt ListLanguages' {..} =+    _salt+      `Prelude.hashWithSalt` displayLanguageCode+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListLanguages where+  rnf ListLanguages' {..} =+    Prelude.rnf displayLanguageCode+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListLanguages where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.ListLanguages" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListLanguages where+  toJSON ListLanguages' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DisplayLanguageCode" Data..=)+              Prelude.<$> displayLanguageCode,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListLanguages where+  toPath = Prelude.const "/"++instance Data.ToQuery ListLanguages where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListLanguagesResponse' smart constructor.+data ListLanguagesResponse = ListLanguagesResponse'+  { -- | The language code passed in with the request.+    displayLanguageCode :: Prelude.Maybe DisplayLanguageCode,+    -- | The list of supported languages.+    languages :: Prelude.Maybe [Language],+    -- | If the response does not include all remaining results, use the+    -- NextToken in the next request to fetch the next group of supported+    -- languages.+    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 'ListLanguagesResponse' 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:+--+-- 'displayLanguageCode', 'listLanguagesResponse_displayLanguageCode' - The language code passed in with the request.+--+-- 'languages', 'listLanguagesResponse_languages' - The list of supported languages.+--+-- 'nextToken', 'listLanguagesResponse_nextToken' - If the response does not include all remaining results, use the+-- NextToken in the next request to fetch the next group of supported+-- languages.+--+-- 'httpStatus', 'listLanguagesResponse_httpStatus' - The response's http status code.+newListLanguagesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListLanguagesResponse+newListLanguagesResponse pHttpStatus_ =+  ListLanguagesResponse'+    { displayLanguageCode =+        Prelude.Nothing,+      languages = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The language code passed in with the request.+listLanguagesResponse_displayLanguageCode :: Lens.Lens' ListLanguagesResponse (Prelude.Maybe DisplayLanguageCode)+listLanguagesResponse_displayLanguageCode = Lens.lens (\ListLanguagesResponse' {displayLanguageCode} -> displayLanguageCode) (\s@ListLanguagesResponse' {} a -> s {displayLanguageCode = a} :: ListLanguagesResponse)++-- | The list of supported languages.+listLanguagesResponse_languages :: Lens.Lens' ListLanguagesResponse (Prelude.Maybe [Language])+listLanguagesResponse_languages = Lens.lens (\ListLanguagesResponse' {languages} -> languages) (\s@ListLanguagesResponse' {} a -> s {languages = a} :: ListLanguagesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the response does not include all remaining results, use the+-- NextToken in the next request to fetch the next group of supported+-- languages.+listLanguagesResponse_nextToken :: Lens.Lens' ListLanguagesResponse (Prelude.Maybe Prelude.Text)+listLanguagesResponse_nextToken = Lens.lens (\ListLanguagesResponse' {nextToken} -> nextToken) (\s@ListLanguagesResponse' {} a -> s {nextToken = a} :: ListLanguagesResponse)++-- | The response's http status code.+listLanguagesResponse_httpStatus :: Lens.Lens' ListLanguagesResponse Prelude.Int+listLanguagesResponse_httpStatus = Lens.lens (\ListLanguagesResponse' {httpStatus} -> httpStatus) (\s@ListLanguagesResponse' {} a -> s {httpStatus = a} :: ListLanguagesResponse)++instance Prelude.NFData ListLanguagesResponse where+  rnf ListLanguagesResponse' {..} =+    Prelude.rnf displayLanguageCode+      `Prelude.seq` Prelude.rnf languages+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,208 @@+{-# 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.Translate.ListParallelData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of your parallel data resources in Amazon Translate.+module Amazonka.Translate.ListParallelData+  ( -- * Creating a Request+    ListParallelData (..),+    newListParallelData,++    -- * Request Lenses+    listParallelData_maxResults,+    listParallelData_nextToken,++    -- * Destructuring the Response+    ListParallelDataResponse (..),+    newListParallelDataResponse,++    -- * Response Lenses+    listParallelDataResponse_nextToken,+    listParallelDataResponse_parallelDataPropertiesList,+    listParallelDataResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newListParallelData' smart constructor.+data ListParallelData = ListParallelData'+  { -- | The maximum number of parallel data resources returned for each request.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | A string that specifies the next page of results to return in a+    -- paginated response.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListParallelData' 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', 'listParallelData_maxResults' - The maximum number of parallel data resources returned for each request.+--+-- 'nextToken', 'listParallelData_nextToken' - A string that specifies the next page of results to return in a+-- paginated response.+newListParallelData ::+  ListParallelData+newListParallelData =+  ListParallelData'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of parallel data resources returned for each request.+listParallelData_maxResults :: Lens.Lens' ListParallelData (Prelude.Maybe Prelude.Natural)+listParallelData_maxResults = Lens.lens (\ListParallelData' {maxResults} -> maxResults) (\s@ListParallelData' {} a -> s {maxResults = a} :: ListParallelData)++-- | A string that specifies the next page of results to return in a+-- paginated response.+listParallelData_nextToken :: Lens.Lens' ListParallelData (Prelude.Maybe Prelude.Text)+listParallelData_nextToken = Lens.lens (\ListParallelData' {nextToken} -> nextToken) (\s@ListParallelData' {} a -> s {nextToken = a} :: ListParallelData)++instance Core.AWSRequest ListParallelData where+  type+    AWSResponse ListParallelData =+      ListParallelDataResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListParallelDataResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "ParallelDataPropertiesList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListParallelData where+  hashWithSalt _salt ListParallelData' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListParallelData where+  rnf ListParallelData' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListParallelData where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.ListParallelData" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListParallelData where+  toJSON ListParallelData' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListParallelData where+  toPath = Prelude.const "/"++instance Data.ToQuery ListParallelData where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListParallelDataResponse' smart constructor.+data ListParallelDataResponse = ListParallelDataResponse'+  { -- | The string to use in a subsequent request to get the next page of+    -- results in a paginated response. This value is null if there are no+    -- additional pages.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The properties of the parallel data resources returned by this request.+    parallelDataPropertiesList :: Prelude.Maybe [ParallelDataProperties],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListParallelDataResponse' 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', 'listParallelDataResponse_nextToken' - The string to use in a subsequent request to get the next page of+-- results in a paginated response. This value is null if there are no+-- additional pages.+--+-- 'parallelDataPropertiesList', 'listParallelDataResponse_parallelDataPropertiesList' - The properties of the parallel data resources returned by this request.+--+-- 'httpStatus', 'listParallelDataResponse_httpStatus' - The response's http status code.+newListParallelDataResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListParallelDataResponse+newListParallelDataResponse pHttpStatus_ =+  ListParallelDataResponse'+    { nextToken =+        Prelude.Nothing,+      parallelDataPropertiesList = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The string to use in a subsequent request to get the next page of+-- results in a paginated response. This value is null if there are no+-- additional pages.+listParallelDataResponse_nextToken :: Lens.Lens' ListParallelDataResponse (Prelude.Maybe Prelude.Text)+listParallelDataResponse_nextToken = Lens.lens (\ListParallelDataResponse' {nextToken} -> nextToken) (\s@ListParallelDataResponse' {} a -> s {nextToken = a} :: ListParallelDataResponse)++-- | The properties of the parallel data resources returned by this request.+listParallelDataResponse_parallelDataPropertiesList :: Lens.Lens' ListParallelDataResponse (Prelude.Maybe [ParallelDataProperties])+listParallelDataResponse_parallelDataPropertiesList = Lens.lens (\ListParallelDataResponse' {parallelDataPropertiesList} -> parallelDataPropertiesList) (\s@ListParallelDataResponse' {} a -> s {parallelDataPropertiesList = a} :: ListParallelDataResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listParallelDataResponse_httpStatus :: Lens.Lens' ListParallelDataResponse Prelude.Int+listParallelDataResponse_httpStatus = Lens.lens (\ListParallelDataResponse' {httpStatus} -> httpStatus) (\s@ListParallelDataResponse' {} a -> s {httpStatus = a} :: ListParallelDataResponse)++instance Prelude.NFData ListParallelDataResponse where+  rnf ListParallelDataResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf parallelDataPropertiesList+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,183 @@+{-# 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.Translate.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all tags associated with a given Amazon Translate resource. For+-- more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+module Amazonka.Translate.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_resourceArn,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | The Amazon Resource Name (ARN) of the given Amazon Translate resource+    -- you are querying.+    resourceArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'listTagsForResource_resourceArn' - The Amazon Resource Name (ARN) of the given Amazon Translate resource+-- you are querying.+newListTagsForResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceArn_ =+  ListTagsForResource' {resourceArn = pResourceArn_}++-- | The Amazon Resource Name (ARN) of the given Amazon Translate resource+-- you are querying.+listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource)++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf resourceArn++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("ResourceArn" Data..= resourceArn)]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | Tags associated with the Amazon Translate resource being queried. A tag+    -- is a key-value pair that adds as a metadata to a resource used by Amazon+    -- Translate. For example, a tag with \"Sales\" as the key might be added+    -- to a resource to indicate its use by the sales department.+    tags :: Prelude.Maybe [Tag],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'listTagsForResourceResponse_tags' - Tags associated with the Amazon Translate resource being queried. A tag+-- is a key-value pair that adds as a metadata to a resource used by Amazon+-- Translate. For example, a tag with \"Sales\" as the key might be added+-- to a resource to indicate its use by the sales department.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { tags =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Tags associated with the Amazon Translate resource being queried. A tag+-- is a key-value pair that adds as a metadata to a resource used by Amazon+-- Translate. For example, a tag with \"Sales\" as the key might be added+-- to a resource to indicate its use by the sales department.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [Tag])+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,232 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Translate.ListTerminologies+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides a list of custom terminologies associated with your account.+--+-- This operation returns paginated results.+module Amazonka.Translate.ListTerminologies+  ( -- * Creating a Request+    ListTerminologies (..),+    newListTerminologies,++    -- * Request Lenses+    listTerminologies_maxResults,+    listTerminologies_nextToken,++    -- * Destructuring the Response+    ListTerminologiesResponse (..),+    newListTerminologiesResponse,++    -- * Response Lenses+    listTerminologiesResponse_nextToken,+    listTerminologiesResponse_terminologyPropertiesList,+    listTerminologiesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newListTerminologies' smart constructor.+data ListTerminologies = ListTerminologies'+  { -- | The maximum number of custom terminologies returned per list request.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the result of the request to ListTerminologies was truncated, include+    -- the NextToken to fetch the next group of custom terminologies.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTerminologies' 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', 'listTerminologies_maxResults' - The maximum number of custom terminologies returned per list request.+--+-- 'nextToken', 'listTerminologies_nextToken' - If the result of the request to ListTerminologies was truncated, include+-- the NextToken to fetch the next group of custom terminologies.+newListTerminologies ::+  ListTerminologies+newListTerminologies =+  ListTerminologies'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The maximum number of custom terminologies returned per list request.+listTerminologies_maxResults :: Lens.Lens' ListTerminologies (Prelude.Maybe Prelude.Natural)+listTerminologies_maxResults = Lens.lens (\ListTerminologies' {maxResults} -> maxResults) (\s@ListTerminologies' {} a -> s {maxResults = a} :: ListTerminologies)++-- | If the result of the request to ListTerminologies was truncated, include+-- the NextToken to fetch the next group of custom terminologies.+listTerminologies_nextToken :: Lens.Lens' ListTerminologies (Prelude.Maybe Prelude.Text)+listTerminologies_nextToken = Lens.lens (\ListTerminologies' {nextToken} -> nextToken) (\s@ListTerminologies' {} a -> s {nextToken = a} :: ListTerminologies)++instance Core.AWSPager ListTerminologies where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTerminologiesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listTerminologiesResponse_terminologyPropertiesList+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTerminologies_nextToken+          Lens..~ rs+          Lens.^? listTerminologiesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTerminologies where+  type+    AWSResponse ListTerminologies =+      ListTerminologiesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTerminologiesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "TerminologyPropertiesList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTerminologies where+  hashWithSalt _salt ListTerminologies' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListTerminologies where+  rnf ListTerminologies' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListTerminologies where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.ListTerminologies" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTerminologies where+  toJSON ListTerminologies' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListTerminologies where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTerminologies where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTerminologiesResponse' smart constructor.+data ListTerminologiesResponse = ListTerminologiesResponse'+  { -- | If the response to the ListTerminologies was truncated, the NextToken+    -- fetches the next group of custom terminologies.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The properties list of the custom terminologies returned on the list+    -- request.+    terminologyPropertiesList :: Prelude.Maybe [TerminologyProperties],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTerminologiesResponse' 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', 'listTerminologiesResponse_nextToken' - If the response to the ListTerminologies was truncated, the NextToken+-- fetches the next group of custom terminologies.+--+-- 'terminologyPropertiesList', 'listTerminologiesResponse_terminologyPropertiesList' - The properties list of the custom terminologies returned on the list+-- request.+--+-- 'httpStatus', 'listTerminologiesResponse_httpStatus' - The response's http status code.+newListTerminologiesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTerminologiesResponse+newListTerminologiesResponse pHttpStatus_ =+  ListTerminologiesResponse'+    { nextToken =+        Prelude.Nothing,+      terminologyPropertiesList = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If the response to the ListTerminologies was truncated, the NextToken+-- fetches the next group of custom terminologies.+listTerminologiesResponse_nextToken :: Lens.Lens' ListTerminologiesResponse (Prelude.Maybe Prelude.Text)+listTerminologiesResponse_nextToken = Lens.lens (\ListTerminologiesResponse' {nextToken} -> nextToken) (\s@ListTerminologiesResponse' {} a -> s {nextToken = a} :: ListTerminologiesResponse)++-- | The properties list of the custom terminologies returned on the list+-- request.+listTerminologiesResponse_terminologyPropertiesList :: Lens.Lens' ListTerminologiesResponse (Prelude.Maybe [TerminologyProperties])+listTerminologiesResponse_terminologyPropertiesList = Lens.lens (\ListTerminologiesResponse' {terminologyPropertiesList} -> terminologyPropertiesList) (\s@ListTerminologiesResponse' {} a -> s {terminologyPropertiesList = a} :: ListTerminologiesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTerminologiesResponse_httpStatus :: Lens.Lens' ListTerminologiesResponse Prelude.Int+listTerminologiesResponse_httpStatus = Lens.lens (\ListTerminologiesResponse' {httpStatus} -> httpStatus) (\s@ListTerminologiesResponse' {} a -> s {httpStatus = a} :: ListTerminologiesResponse)++instance Prelude.NFData ListTerminologiesResponse where+  rnf ListTerminologiesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf terminologyPropertiesList+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,228 @@+{-# 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.Translate.ListTextTranslationJobs+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a list of the batch translation jobs that you have submitted.+module Amazonka.Translate.ListTextTranslationJobs+  ( -- * Creating a Request+    ListTextTranslationJobs (..),+    newListTextTranslationJobs,++    -- * Request Lenses+    listTextTranslationJobs_filter,+    listTextTranslationJobs_maxResults,+    listTextTranslationJobs_nextToken,++    -- * Destructuring the Response+    ListTextTranslationJobsResponse (..),+    newListTextTranslationJobsResponse,++    -- * Response Lenses+    listTextTranslationJobsResponse_nextToken,+    listTextTranslationJobsResponse_textTranslationJobPropertiesList,+    listTextTranslationJobsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newListTextTranslationJobs' smart constructor.+data ListTextTranslationJobs = ListTextTranslationJobs'+  { -- | The parameters that specify which batch translation jobs to retrieve.+    -- Filters include job name, job status, and submission time. You can only+    -- set one filter at a time.+    filter' :: Prelude.Maybe TextTranslationJobFilter,+    -- | The maximum number of results to return in each page. The default value+    -- is 100.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The token to request the next page of results.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTextTranslationJobs' 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:+--+-- 'filter'', 'listTextTranslationJobs_filter' - The parameters that specify which batch translation jobs to retrieve.+-- Filters include job name, job status, and submission time. You can only+-- set one filter at a time.+--+-- 'maxResults', 'listTextTranslationJobs_maxResults' - The maximum number of results to return in each page. The default value+-- is 100.+--+-- 'nextToken', 'listTextTranslationJobs_nextToken' - The token to request the next page of results.+newListTextTranslationJobs ::+  ListTextTranslationJobs+newListTextTranslationJobs =+  ListTextTranslationJobs'+    { filter' = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | The parameters that specify which batch translation jobs to retrieve.+-- Filters include job name, job status, and submission time. You can only+-- set one filter at a time.+listTextTranslationJobs_filter :: Lens.Lens' ListTextTranslationJobs (Prelude.Maybe TextTranslationJobFilter)+listTextTranslationJobs_filter = Lens.lens (\ListTextTranslationJobs' {filter'} -> filter') (\s@ListTextTranslationJobs' {} a -> s {filter' = a} :: ListTextTranslationJobs)++-- | The maximum number of results to return in each page. The default value+-- is 100.+listTextTranslationJobs_maxResults :: Lens.Lens' ListTextTranslationJobs (Prelude.Maybe Prelude.Natural)+listTextTranslationJobs_maxResults = Lens.lens (\ListTextTranslationJobs' {maxResults} -> maxResults) (\s@ListTextTranslationJobs' {} a -> s {maxResults = a} :: ListTextTranslationJobs)++-- | The token to request the next page of results.+listTextTranslationJobs_nextToken :: Lens.Lens' ListTextTranslationJobs (Prelude.Maybe Prelude.Text)+listTextTranslationJobs_nextToken = Lens.lens (\ListTextTranslationJobs' {nextToken} -> nextToken) (\s@ListTextTranslationJobs' {} a -> s {nextToken = a} :: ListTextTranslationJobs)++instance Core.AWSRequest ListTextTranslationJobs where+  type+    AWSResponse ListTextTranslationJobs =+      ListTextTranslationJobsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTextTranslationJobsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "TextTranslationJobPropertiesList"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTextTranslationJobs where+  hashWithSalt _salt ListTextTranslationJobs' {..} =+    _salt+      `Prelude.hashWithSalt` filter'+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListTextTranslationJobs where+  rnf ListTextTranslationJobs' {..} =+    Prelude.rnf filter'+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListTextTranslationJobs where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.ListTextTranslationJobs" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTextTranslationJobs where+  toJSON ListTextTranslationJobs' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Filter" Data..=) Prelude.<$> filter',+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListTextTranslationJobs where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTextTranslationJobs where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTextTranslationJobsResponse' smart constructor.+data ListTextTranslationJobsResponse = ListTextTranslationJobsResponse'+  { -- | The token to use to retrieve the next page of results. This value is+    -- @null@ when there are no more results to return.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list containing the properties of each job that is returned.+    textTranslationJobPropertiesList :: Prelude.Maybe [TextTranslationJobProperties],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTextTranslationJobsResponse' 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', 'listTextTranslationJobsResponse_nextToken' - The token to use to retrieve the next page of results. This value is+-- @null@ when there are no more results to return.+--+-- 'textTranslationJobPropertiesList', 'listTextTranslationJobsResponse_textTranslationJobPropertiesList' - A list containing the properties of each job that is returned.+--+-- 'httpStatus', 'listTextTranslationJobsResponse_httpStatus' - The response's http status code.+newListTextTranslationJobsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTextTranslationJobsResponse+newListTextTranslationJobsResponse pHttpStatus_ =+  ListTextTranslationJobsResponse'+    { nextToken =+        Prelude.Nothing,+      textTranslationJobPropertiesList =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token to use to retrieve the next page of results. This value is+-- @null@ when there are no more results to return.+listTextTranslationJobsResponse_nextToken :: Lens.Lens' ListTextTranslationJobsResponse (Prelude.Maybe Prelude.Text)+listTextTranslationJobsResponse_nextToken = Lens.lens (\ListTextTranslationJobsResponse' {nextToken} -> nextToken) (\s@ListTextTranslationJobsResponse' {} a -> s {nextToken = a} :: ListTextTranslationJobsResponse)++-- | A list containing the properties of each job that is returned.+listTextTranslationJobsResponse_textTranslationJobPropertiesList :: Lens.Lens' ListTextTranslationJobsResponse (Prelude.Maybe [TextTranslationJobProperties])+listTextTranslationJobsResponse_textTranslationJobPropertiesList = Lens.lens (\ListTextTranslationJobsResponse' {textTranslationJobPropertiesList} -> textTranslationJobPropertiesList) (\s@ListTextTranslationJobsResponse' {} a -> s {textTranslationJobPropertiesList = a} :: ListTextTranslationJobsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTextTranslationJobsResponse_httpStatus :: Lens.Lens' ListTextTranslationJobsResponse Prelude.Int+listTextTranslationJobsResponse_httpStatus = Lens.lens (\ListTextTranslationJobsResponse' {httpStatus} -> httpStatus) (\s@ListTextTranslationJobsResponse' {} a -> s {httpStatus = a} :: ListTextTranslationJobsResponse)++instance+  Prelude.NFData+    ListTextTranslationJobsResponse+  where+  rnf ListTextTranslationJobsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf textTranslationJobPropertiesList+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,556 @@+{-# 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.Translate.StartTextTranslationJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts an asynchronous batch translation job. Use batch translation jobs+-- to translate large volumes of text across multiple documents at once.+-- For batch translation, you can input documents with different source+-- languages (specify @auto@ as the source language). You can specify one+-- or more target languages. Batch translation translates each input+-- document into each of the target languages. For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/async.html Asynchronous batch processing>.+--+-- Batch translation jobs can be described with the+-- DescribeTextTranslationJob operation, listed with the+-- ListTextTranslationJobs operation, and stopped with the+-- StopTextTranslationJob operation.+module Amazonka.Translate.StartTextTranslationJob+  ( -- * Creating a Request+    StartTextTranslationJob (..),+    newStartTextTranslationJob,++    -- * Request Lenses+    startTextTranslationJob_jobName,+    startTextTranslationJob_parallelDataNames,+    startTextTranslationJob_settings,+    startTextTranslationJob_terminologyNames,+    startTextTranslationJob_inputDataConfig,+    startTextTranslationJob_outputDataConfig,+    startTextTranslationJob_dataAccessRoleArn,+    startTextTranslationJob_sourceLanguageCode,+    startTextTranslationJob_targetLanguageCodes,+    startTextTranslationJob_clientToken,++    -- * Destructuring the Response+    StartTextTranslationJobResponse (..),+    newStartTextTranslationJobResponse,++    -- * Response Lenses+    startTextTranslationJobResponse_jobId,+    startTextTranslationJobResponse_jobStatus,+    startTextTranslationJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newStartTextTranslationJob' smart constructor.+data StartTextTranslationJob = StartTextTranslationJob'+  { -- | The name of the batch translation job to be performed.+    jobName :: Prelude.Maybe Prelude.Text,+    -- | The name of a parallel data resource to add to the translation job. This+    -- resource consists of examples that show how you want segments of text to+    -- be translated. If you specify multiple target languages for the job, the+    -- parallel data file must include translations for all the target+    -- languages.+    --+    -- When you add parallel data to a translation job, you create an /Active+    -- Custom Translation/ job.+    --+    -- This parameter accepts only one parallel data resource.+    --+    -- Active Custom Translation jobs are priced at a higher rate than other+    -- jobs that don\'t use parallel data. For more information, see+    -- <http://aws.amazon.com/translate/pricing/ Amazon Translate pricing>.+    --+    -- For a list of available parallel data resources, use the+    -- ListParallelData operation.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/customizing-translations-parallel-data.html Customizing your translations with parallel data>.+    parallelDataNames :: Prelude.Maybe [Prelude.Text],+    -- | Settings to configure your translation output, including the option to+    -- set the formality level of the output text and the option to mask+    -- profane words and phrases.+    settings :: Prelude.Maybe TranslationSettings,+    -- | The name of a custom terminology resource to add to the translation job.+    -- This resource lists examples source terms and the desired translation+    -- for each term.+    --+    -- This parameter accepts only one custom terminology resource.+    --+    -- If you specify multiple target languages for the job, translate uses the+    -- designated terminology for each requested target language that has an+    -- entry for the source term in the terminology file.+    --+    -- For a list of available custom terminology resources, use the+    -- ListTerminologies operation.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/how-custom-terminology.html Custom terminology>.+    terminologyNames :: Prelude.Maybe [Prelude.Text],+    -- | Specifies the format and location of the input documents for the+    -- translation job.+    inputDataConfig :: InputDataConfig,+    -- | Specifies the S3 folder to which your job output will be saved.+    outputDataConfig :: OutputDataConfig,+    -- | The Amazon Resource Name (ARN) of an AWS Identity Access and Management+    -- (IAM) role that grants Amazon Translate read access to your input data.+    -- For more information, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/identity-and-access-management.html Identity and access management>+    -- .+    dataAccessRoleArn :: Prelude.Text,+    -- | The language code of the input language. Specify the language if all+    -- input documents share the same language. If you don\'t know the language+    -- of the source files, or your input documents contains different source+    -- languages, select @auto@. Amazon Translate auto detects the source+    -- language for each input document. For a list of supported language+    -- codes, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+    sourceLanguageCode :: Prelude.Text,+    -- | The target languages of the translation job. Enter up to 10 language+    -- codes. Each input file is translated into each target language.+    --+    -- Each language code is 2 or 5 characters long. For a list of language+    -- codes, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+    targetLanguageCodes :: Prelude.NonEmpty Prelude.Text,+    -- | A unique identifier for the request. This token is generated for you+    -- when using the Amazon Translate SDK.+    clientToken :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartTextTranslationJob' 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:+--+-- 'jobName', 'startTextTranslationJob_jobName' - The name of the batch translation job to be performed.+--+-- 'parallelDataNames', 'startTextTranslationJob_parallelDataNames' - The name of a parallel data resource to add to the translation job. This+-- resource consists of examples that show how you want segments of text to+-- be translated. If you specify multiple target languages for the job, the+-- parallel data file must include translations for all the target+-- languages.+--+-- When you add parallel data to a translation job, you create an /Active+-- Custom Translation/ job.+--+-- This parameter accepts only one parallel data resource.+--+-- Active Custom Translation jobs are priced at a higher rate than other+-- jobs that don\'t use parallel data. For more information, see+-- <http://aws.amazon.com/translate/pricing/ Amazon Translate pricing>.+--+-- For a list of available parallel data resources, use the+-- ListParallelData operation.+--+-- For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/customizing-translations-parallel-data.html Customizing your translations with parallel data>.+--+-- 'settings', 'startTextTranslationJob_settings' - Settings to configure your translation output, including the option to+-- set the formality level of the output text and the option to mask+-- profane words and phrases.+--+-- 'terminologyNames', 'startTextTranslationJob_terminologyNames' - The name of a custom terminology resource to add to the translation job.+-- This resource lists examples source terms and the desired translation+-- for each term.+--+-- This parameter accepts only one custom terminology resource.+--+-- If you specify multiple target languages for the job, translate uses the+-- designated terminology for each requested target language that has an+-- entry for the source term in the terminology file.+--+-- For a list of available custom terminology resources, use the+-- ListTerminologies operation.+--+-- For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/how-custom-terminology.html Custom terminology>.+--+-- 'inputDataConfig', 'startTextTranslationJob_inputDataConfig' - Specifies the format and location of the input documents for the+-- translation job.+--+-- 'outputDataConfig', 'startTextTranslationJob_outputDataConfig' - Specifies the S3 folder to which your job output will be saved.+--+-- 'dataAccessRoleArn', 'startTextTranslationJob_dataAccessRoleArn' - The Amazon Resource Name (ARN) of an AWS Identity Access and Management+-- (IAM) role that grants Amazon Translate read access to your input data.+-- For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/identity-and-access-management.html Identity and access management>+-- .+--+-- 'sourceLanguageCode', 'startTextTranslationJob_sourceLanguageCode' - The language code of the input language. Specify the language if all+-- input documents share the same language. If you don\'t know the language+-- of the source files, or your input documents contains different source+-- languages, select @auto@. Amazon Translate auto detects the source+-- language for each input document. For a list of supported language+-- codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+--+-- 'targetLanguageCodes', 'startTextTranslationJob_targetLanguageCodes' - The target languages of the translation job. Enter up to 10 language+-- codes. Each input file is translated into each target language.+--+-- Each language code is 2 or 5 characters long. For a list of language+-- codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+--+-- 'clientToken', 'startTextTranslationJob_clientToken' - A unique identifier for the request. This token is generated for you+-- when using the Amazon Translate SDK.+newStartTextTranslationJob ::+  -- | 'inputDataConfig'+  InputDataConfig ->+  -- | 'outputDataConfig'+  OutputDataConfig ->+  -- | 'dataAccessRoleArn'+  Prelude.Text ->+  -- | 'sourceLanguageCode'+  Prelude.Text ->+  -- | 'targetLanguageCodes'+  Prelude.NonEmpty Prelude.Text ->+  -- | 'clientToken'+  Prelude.Text ->+  StartTextTranslationJob+newStartTextTranslationJob+  pInputDataConfig_+  pOutputDataConfig_+  pDataAccessRoleArn_+  pSourceLanguageCode_+  pTargetLanguageCodes_+  pClientToken_ =+    StartTextTranslationJob'+      { jobName = Prelude.Nothing,+        parallelDataNames = Prelude.Nothing,+        settings = Prelude.Nothing,+        terminologyNames = Prelude.Nothing,+        inputDataConfig = pInputDataConfig_,+        outputDataConfig = pOutputDataConfig_,+        dataAccessRoleArn = pDataAccessRoleArn_,+        sourceLanguageCode = pSourceLanguageCode_,+        targetLanguageCodes =+          Lens.coerced Lens.# pTargetLanguageCodes_,+        clientToken = pClientToken_+      }++-- | The name of the batch translation job to be performed.+startTextTranslationJob_jobName :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe Prelude.Text)+startTextTranslationJob_jobName = Lens.lens (\StartTextTranslationJob' {jobName} -> jobName) (\s@StartTextTranslationJob' {} a -> s {jobName = a} :: StartTextTranslationJob)++-- | The name of a parallel data resource to add to the translation job. This+-- resource consists of examples that show how you want segments of text to+-- be translated. If you specify multiple target languages for the job, the+-- parallel data file must include translations for all the target+-- languages.+--+-- When you add parallel data to a translation job, you create an /Active+-- Custom Translation/ job.+--+-- This parameter accepts only one parallel data resource.+--+-- Active Custom Translation jobs are priced at a higher rate than other+-- jobs that don\'t use parallel data. For more information, see+-- <http://aws.amazon.com/translate/pricing/ Amazon Translate pricing>.+--+-- For a list of available parallel data resources, use the+-- ListParallelData operation.+--+-- For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/customizing-translations-parallel-data.html Customizing your translations with parallel data>.+startTextTranslationJob_parallelDataNames :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe [Prelude.Text])+startTextTranslationJob_parallelDataNames = Lens.lens (\StartTextTranslationJob' {parallelDataNames} -> parallelDataNames) (\s@StartTextTranslationJob' {} a -> s {parallelDataNames = a} :: StartTextTranslationJob) Prelude.. Lens.mapping Lens.coerced++-- | Settings to configure your translation output, including the option to+-- set the formality level of the output text and the option to mask+-- profane words and phrases.+startTextTranslationJob_settings :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe TranslationSettings)+startTextTranslationJob_settings = Lens.lens (\StartTextTranslationJob' {settings} -> settings) (\s@StartTextTranslationJob' {} a -> s {settings = a} :: StartTextTranslationJob)++-- | The name of a custom terminology resource to add to the translation job.+-- This resource lists examples source terms and the desired translation+-- for each term.+--+-- This parameter accepts only one custom terminology resource.+--+-- If you specify multiple target languages for the job, translate uses the+-- designated terminology for each requested target language that has an+-- entry for the source term in the terminology file.+--+-- For a list of available custom terminology resources, use the+-- ListTerminologies operation.+--+-- For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/how-custom-terminology.html Custom terminology>.+startTextTranslationJob_terminologyNames :: Lens.Lens' StartTextTranslationJob (Prelude.Maybe [Prelude.Text])+startTextTranslationJob_terminologyNames = Lens.lens (\StartTextTranslationJob' {terminologyNames} -> terminologyNames) (\s@StartTextTranslationJob' {} a -> s {terminologyNames = a} :: StartTextTranslationJob) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the format and location of the input documents for the+-- translation job.+startTextTranslationJob_inputDataConfig :: Lens.Lens' StartTextTranslationJob InputDataConfig+startTextTranslationJob_inputDataConfig = Lens.lens (\StartTextTranslationJob' {inputDataConfig} -> inputDataConfig) (\s@StartTextTranslationJob' {} a -> s {inputDataConfig = a} :: StartTextTranslationJob)++-- | Specifies the S3 folder to which your job output will be saved.+startTextTranslationJob_outputDataConfig :: Lens.Lens' StartTextTranslationJob OutputDataConfig+startTextTranslationJob_outputDataConfig = Lens.lens (\StartTextTranslationJob' {outputDataConfig} -> outputDataConfig) (\s@StartTextTranslationJob' {} a -> s {outputDataConfig = a} :: StartTextTranslationJob)++-- | The Amazon Resource Name (ARN) of an AWS Identity Access and Management+-- (IAM) role that grants Amazon Translate read access to your input data.+-- For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/identity-and-access-management.html Identity and access management>+-- .+startTextTranslationJob_dataAccessRoleArn :: Lens.Lens' StartTextTranslationJob Prelude.Text+startTextTranslationJob_dataAccessRoleArn = Lens.lens (\StartTextTranslationJob' {dataAccessRoleArn} -> dataAccessRoleArn) (\s@StartTextTranslationJob' {} a -> s {dataAccessRoleArn = a} :: StartTextTranslationJob)++-- | The language code of the input language. Specify the language if all+-- input documents share the same language. If you don\'t know the language+-- of the source files, or your input documents contains different source+-- languages, select @auto@. Amazon Translate auto detects the source+-- language for each input document. For a list of supported language+-- codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+startTextTranslationJob_sourceLanguageCode :: Lens.Lens' StartTextTranslationJob Prelude.Text+startTextTranslationJob_sourceLanguageCode = Lens.lens (\StartTextTranslationJob' {sourceLanguageCode} -> sourceLanguageCode) (\s@StartTextTranslationJob' {} a -> s {sourceLanguageCode = a} :: StartTextTranslationJob)++-- | The target languages of the translation job. Enter up to 10 language+-- codes. Each input file is translated into each target language.+--+-- Each language code is 2 or 5 characters long. For a list of language+-- codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+startTextTranslationJob_targetLanguageCodes :: Lens.Lens' StartTextTranslationJob (Prelude.NonEmpty Prelude.Text)+startTextTranslationJob_targetLanguageCodes = Lens.lens (\StartTextTranslationJob' {targetLanguageCodes} -> targetLanguageCodes) (\s@StartTextTranslationJob' {} a -> s {targetLanguageCodes = a} :: StartTextTranslationJob) Prelude.. Lens.coerced++-- | A unique identifier for the request. This token is generated for you+-- when using the Amazon Translate SDK.+startTextTranslationJob_clientToken :: Lens.Lens' StartTextTranslationJob Prelude.Text+startTextTranslationJob_clientToken = Lens.lens (\StartTextTranslationJob' {clientToken} -> clientToken) (\s@StartTextTranslationJob' {} a -> s {clientToken = a} :: StartTextTranslationJob)++instance Core.AWSRequest StartTextTranslationJob where+  type+    AWSResponse StartTextTranslationJob =+      StartTextTranslationJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartTextTranslationJobResponse'+            Prelude.<$> (x Data..?> "JobId")+            Prelude.<*> (x Data..?> "JobStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartTextTranslationJob where+  hashWithSalt _salt StartTextTranslationJob' {..} =+    _salt+      `Prelude.hashWithSalt` jobName+      `Prelude.hashWithSalt` parallelDataNames+      `Prelude.hashWithSalt` settings+      `Prelude.hashWithSalt` terminologyNames+      `Prelude.hashWithSalt` inputDataConfig+      `Prelude.hashWithSalt` outputDataConfig+      `Prelude.hashWithSalt` dataAccessRoleArn+      `Prelude.hashWithSalt` sourceLanguageCode+      `Prelude.hashWithSalt` targetLanguageCodes+      `Prelude.hashWithSalt` clientToken++instance Prelude.NFData StartTextTranslationJob where+  rnf StartTextTranslationJob' {..} =+    Prelude.rnf jobName+      `Prelude.seq` Prelude.rnf parallelDataNames+      `Prelude.seq` Prelude.rnf settings+      `Prelude.seq` Prelude.rnf terminologyNames+      `Prelude.seq` Prelude.rnf inputDataConfig+      `Prelude.seq` Prelude.rnf outputDataConfig+      `Prelude.seq` Prelude.rnf dataAccessRoleArn+      `Prelude.seq` Prelude.rnf sourceLanguageCode+      `Prelude.seq` Prelude.rnf targetLanguageCodes+      `Prelude.seq` Prelude.rnf clientToken++instance Data.ToHeaders StartTextTranslationJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.StartTextTranslationJob" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartTextTranslationJob where+  toJSON StartTextTranslationJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("JobName" Data..=) Prelude.<$> jobName,+            ("ParallelDataNames" Data..=)+              Prelude.<$> parallelDataNames,+            ("Settings" Data..=) Prelude.<$> settings,+            ("TerminologyNames" Data..=)+              Prelude.<$> terminologyNames,+            Prelude.Just+              ("InputDataConfig" Data..= inputDataConfig),+            Prelude.Just+              ("OutputDataConfig" Data..= outputDataConfig),+            Prelude.Just+              ("DataAccessRoleArn" Data..= dataAccessRoleArn),+            Prelude.Just+              ("SourceLanguageCode" Data..= sourceLanguageCode),+            Prelude.Just+              ("TargetLanguageCodes" Data..= targetLanguageCodes),+            Prelude.Just ("ClientToken" Data..= clientToken)+          ]+      )++instance Data.ToPath StartTextTranslationJob where+  toPath = Prelude.const "/"++instance Data.ToQuery StartTextTranslationJob where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartTextTranslationJobResponse' smart constructor.+data StartTextTranslationJobResponse = StartTextTranslationJobResponse'+  { -- | The identifier generated for the job. To get the status of a job, use+    -- this ID with the DescribeTextTranslationJob operation.+    jobId :: Prelude.Maybe Prelude.Text,+    -- | The status of the job. Possible values include:+    --+    -- -   @SUBMITTED@ - The job has been received and is queued for+    --     processing.+    --+    -- -   @IN_PROGRESS@ - Amazon Translate is processing the job.+    --+    -- -   @COMPLETED@ - The job was successfully completed and the output is+    --     available.+    --+    -- -   @COMPLETED_WITH_ERROR@ - The job was completed with errors. The+    --     errors can be analyzed in the job\'s output.+    --+    -- -   @FAILED@ - The job did not complete. To get details, use the+    --     DescribeTextTranslationJob operation.+    --+    -- -   @STOP_REQUESTED@ - The user who started the job has requested that+    --     it be stopped.+    --+    -- -   @STOPPED@ - The job has been stopped.+    jobStatus :: Prelude.Maybe JobStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartTextTranslationJobResponse' 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:+--+-- 'jobId', 'startTextTranslationJobResponse_jobId' - The identifier generated for the job. To get the status of a job, use+-- this ID with the DescribeTextTranslationJob operation.+--+-- 'jobStatus', 'startTextTranslationJobResponse_jobStatus' - The status of the job. Possible values include:+--+-- -   @SUBMITTED@ - The job has been received and is queued for+--     processing.+--+-- -   @IN_PROGRESS@ - Amazon Translate is processing the job.+--+-- -   @COMPLETED@ - The job was successfully completed and the output is+--     available.+--+-- -   @COMPLETED_WITH_ERROR@ - The job was completed with errors. The+--     errors can be analyzed in the job\'s output.+--+-- -   @FAILED@ - The job did not complete. To get details, use the+--     DescribeTextTranslationJob operation.+--+-- -   @STOP_REQUESTED@ - The user who started the job has requested that+--     it be stopped.+--+-- -   @STOPPED@ - The job has been stopped.+--+-- 'httpStatus', 'startTextTranslationJobResponse_httpStatus' - The response's http status code.+newStartTextTranslationJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartTextTranslationJobResponse+newStartTextTranslationJobResponse pHttpStatus_ =+  StartTextTranslationJobResponse'+    { jobId =+        Prelude.Nothing,+      jobStatus = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier generated for the job. To get the status of a job, use+-- this ID with the DescribeTextTranslationJob operation.+startTextTranslationJobResponse_jobId :: Lens.Lens' StartTextTranslationJobResponse (Prelude.Maybe Prelude.Text)+startTextTranslationJobResponse_jobId = Lens.lens (\StartTextTranslationJobResponse' {jobId} -> jobId) (\s@StartTextTranslationJobResponse' {} a -> s {jobId = a} :: StartTextTranslationJobResponse)++-- | The status of the job. Possible values include:+--+-- -   @SUBMITTED@ - The job has been received and is queued for+--     processing.+--+-- -   @IN_PROGRESS@ - Amazon Translate is processing the job.+--+-- -   @COMPLETED@ - The job was successfully completed and the output is+--     available.+--+-- -   @COMPLETED_WITH_ERROR@ - The job was completed with errors. The+--     errors can be analyzed in the job\'s output.+--+-- -   @FAILED@ - The job did not complete. To get details, use the+--     DescribeTextTranslationJob operation.+--+-- -   @STOP_REQUESTED@ - The user who started the job has requested that+--     it be stopped.+--+-- -   @STOPPED@ - The job has been stopped.+startTextTranslationJobResponse_jobStatus :: Lens.Lens' StartTextTranslationJobResponse (Prelude.Maybe JobStatus)+startTextTranslationJobResponse_jobStatus = Lens.lens (\StartTextTranslationJobResponse' {jobStatus} -> jobStatus) (\s@StartTextTranslationJobResponse' {} a -> s {jobStatus = a} :: StartTextTranslationJobResponse)++-- | The response's http status code.+startTextTranslationJobResponse_httpStatus :: Lens.Lens' StartTextTranslationJobResponse Prelude.Int+startTextTranslationJobResponse_httpStatus = Lens.lens (\StartTextTranslationJobResponse' {httpStatus} -> httpStatus) (\s@StartTextTranslationJobResponse' {} a -> s {httpStatus = a} :: StartTextTranslationJobResponse)++instance+  Prelude.NFData+    StartTextTranslationJobResponse+  where+  rnf StartTextTranslationJobResponse' {..} =+    Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf jobStatus+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.Translate.StopTextTranslationJob+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops an asynchronous batch translation job that is in progress.+--+-- If the job\'s state is @IN_PROGRESS@, the job will be marked for+-- termination and put into the @STOP_REQUESTED@ state. If the job+-- completes before it can be stopped, it is put into the @COMPLETED@+-- state. Otherwise, the job is put into the @STOPPED@ state.+--+-- Asynchronous batch translation jobs are started with the+-- StartTextTranslationJob operation. You can use the+-- DescribeTextTranslationJob or ListTextTranslationJobs operations to get+-- a batch translation job\'s @JobId@.+module Amazonka.Translate.StopTextTranslationJob+  ( -- * Creating a Request+    StopTextTranslationJob (..),+    newStopTextTranslationJob,++    -- * Request Lenses+    stopTextTranslationJob_jobId,++    -- * Destructuring the Response+    StopTextTranslationJobResponse (..),+    newStopTextTranslationJobResponse,++    -- * Response Lenses+    stopTextTranslationJobResponse_jobId,+    stopTextTranslationJobResponse_jobStatus,+    stopTextTranslationJobResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newStopTextTranslationJob' smart constructor.+data StopTextTranslationJob = StopTextTranslationJob'+  { -- | The job ID of the job to be stopped.+    jobId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopTextTranslationJob' 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:+--+-- 'jobId', 'stopTextTranslationJob_jobId' - The job ID of the job to be stopped.+newStopTextTranslationJob ::+  -- | 'jobId'+  Prelude.Text ->+  StopTextTranslationJob+newStopTextTranslationJob pJobId_ =+  StopTextTranslationJob' {jobId = pJobId_}++-- | The job ID of the job to be stopped.+stopTextTranslationJob_jobId :: Lens.Lens' StopTextTranslationJob Prelude.Text+stopTextTranslationJob_jobId = Lens.lens (\StopTextTranslationJob' {jobId} -> jobId) (\s@StopTextTranslationJob' {} a -> s {jobId = a} :: StopTextTranslationJob)++instance Core.AWSRequest StopTextTranslationJob where+  type+    AWSResponse StopTextTranslationJob =+      StopTextTranslationJobResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StopTextTranslationJobResponse'+            Prelude.<$> (x Data..?> "JobId")+            Prelude.<*> (x Data..?> "JobStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StopTextTranslationJob where+  hashWithSalt _salt StopTextTranslationJob' {..} =+    _salt `Prelude.hashWithSalt` jobId++instance Prelude.NFData StopTextTranslationJob where+  rnf StopTextTranslationJob' {..} = Prelude.rnf jobId++instance Data.ToHeaders StopTextTranslationJob where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.StopTextTranslationJob" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StopTextTranslationJob where+  toJSON StopTextTranslationJob' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("JobId" Data..= jobId)]+      )++instance Data.ToPath StopTextTranslationJob where+  toPath = Prelude.const "/"++instance Data.ToQuery StopTextTranslationJob where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStopTextTranslationJobResponse' smart constructor.+data StopTextTranslationJobResponse = StopTextTranslationJobResponse'+  { -- | The job ID of the stopped batch translation job.+    jobId :: Prelude.Maybe Prelude.Text,+    -- | The status of the designated job. Upon successful completion, the job\'s+    -- status will be @STOPPED@.+    jobStatus :: Prelude.Maybe JobStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StopTextTranslationJobResponse' 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:+--+-- 'jobId', 'stopTextTranslationJobResponse_jobId' - The job ID of the stopped batch translation job.+--+-- 'jobStatus', 'stopTextTranslationJobResponse_jobStatus' - The status of the designated job. Upon successful completion, the job\'s+-- status will be @STOPPED@.+--+-- 'httpStatus', 'stopTextTranslationJobResponse_httpStatus' - The response's http status code.+newStopTextTranslationJobResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StopTextTranslationJobResponse+newStopTextTranslationJobResponse pHttpStatus_ =+  StopTextTranslationJobResponse'+    { jobId =+        Prelude.Nothing,+      jobStatus = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The job ID of the stopped batch translation job.+stopTextTranslationJobResponse_jobId :: Lens.Lens' StopTextTranslationJobResponse (Prelude.Maybe Prelude.Text)+stopTextTranslationJobResponse_jobId = Lens.lens (\StopTextTranslationJobResponse' {jobId} -> jobId) (\s@StopTextTranslationJobResponse' {} a -> s {jobId = a} :: StopTextTranslationJobResponse)++-- | The status of the designated job. Upon successful completion, the job\'s+-- status will be @STOPPED@.+stopTextTranslationJobResponse_jobStatus :: Lens.Lens' StopTextTranslationJobResponse (Prelude.Maybe JobStatus)+stopTextTranslationJobResponse_jobStatus = Lens.lens (\StopTextTranslationJobResponse' {jobStatus} -> jobStatus) (\s@StopTextTranslationJobResponse' {} a -> s {jobStatus = a} :: StopTextTranslationJobResponse)++-- | The response's http status code.+stopTextTranslationJobResponse_httpStatus :: Lens.Lens' StopTextTranslationJobResponse Prelude.Int+stopTextTranslationJobResponse_httpStatus = Lens.lens (\StopTextTranslationJobResponse' {httpStatus} -> httpStatus) (\s@StopTextTranslationJobResponse' {} a -> s {httpStatus = a} :: StopTextTranslationJobResponse)++instance+  Prelude.NFData+    StopTextTranslationJobResponse+  where+  rnf StopTextTranslationJobResponse' {..} =+    Prelude.rnf jobId+      `Prelude.seq` Prelude.rnf jobStatus+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,179 @@+{-# 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.Translate.TagResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a specific tag with a resource. A tag is a key-value pair+-- that adds as a metadata to a resource. For more information, see+-- <https://docs.aws.amazon.com/translate/latest/dg/tagging.html Tagging your resources>.+module Amazonka.Translate.TagResource+  ( -- * Creating a Request+    TagResource (..),+    newTagResource,++    -- * Request Lenses+    tagResource_resourceArn,+    tagResource_tags,++    -- * Destructuring the Response+    TagResourceResponse (..),+    newTagResourceResponse,++    -- * Response Lenses+    tagResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newTagResource' smart constructor.+data TagResource = TagResource'+  { -- | The Amazon Resource Name (ARN) of the given Amazon Translate resource to+    -- which you want to associate the tags.+    resourceArn :: Prelude.Text,+    -- | Tags being associated with a specific Amazon Translate resource. There+    -- can be a maximum of 50 tags (both existing and pending) associated with+    -- a specific resource.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'tagResource_resourceArn' - The Amazon Resource Name (ARN) of the given Amazon Translate resource to+-- which you want to associate the tags.+--+-- 'tags', 'tagResource_tags' - Tags being associated with a specific Amazon Translate resource. There+-- can be a maximum of 50 tags (both existing and pending) associated with+-- a specific resource.+newTagResource ::+  -- | 'resourceArn'+  Prelude.Text ->+  TagResource+newTagResource pResourceArn_ =+  TagResource'+    { resourceArn = pResourceArn_,+      tags = Prelude.mempty+    }++-- | The Amazon Resource Name (ARN) of the given Amazon Translate resource to+-- which you want to associate the tags.+tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text+tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource)++-- | Tags being associated with a specific Amazon Translate resource. There+-- can be a maximum of 50 tags (both existing and pending) associated with+-- a specific resource.+tagResource_tags :: Lens.Lens' TagResource [Tag]+tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced++instance Core.AWSRequest TagResource where+  type AWSResponse TagResource = TagResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          TagResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable TagResource where+  hashWithSalt _salt TagResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` tags++instance Prelude.NFData TagResource where+  rnf TagResource' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders TagResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.TagResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TagResource where+  toJSON TagResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceArn" Data..= resourceArn),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath TagResource where+  toPath = Prelude.const "/"++instance Data.ToQuery TagResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResourceResponse' smart constructor.+data TagResourceResponse = TagResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code.+newTagResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResourceResponse+newTagResourceResponse pHttpStatus_ =+  TagResourceResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int+tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse)++instance Prelude.NFData TagResourceResponse where+  rnf TagResourceResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,361 @@+{-# 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.Translate.TranslateText+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Translates input text from the source language to the target language.+-- For a list of available languages and language codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+module Amazonka.Translate.TranslateText+  ( -- * Creating a Request+    TranslateText (..),+    newTranslateText,++    -- * Request Lenses+    translateText_settings,+    translateText_terminologyNames,+    translateText_text,+    translateText_sourceLanguageCode,+    translateText_targetLanguageCode,++    -- * Destructuring the Response+    TranslateTextResponse (..),+    newTranslateTextResponse,++    -- * Response Lenses+    translateTextResponse_appliedSettings,+    translateTextResponse_appliedTerminologies,+    translateTextResponse_httpStatus,+    translateTextResponse_translatedText,+    translateTextResponse_sourceLanguageCode,+    translateTextResponse_targetLanguageCode,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.Translate.Types++-- | /See:/ 'newTranslateText' smart constructor.+data TranslateText = TranslateText'+  { -- | Settings to configure your translation output, including the option to+    -- set the formality level of the output text and the option to mask+    -- profane words and phrases.+    settings :: Prelude.Maybe TranslationSettings,+    -- | The name of the terminology list file to be used in the TranslateText+    -- request. You can use 1 terminology list at most in a @TranslateText@+    -- request. Terminology lists can contain a maximum of 256 terms.+    terminologyNames :: Prelude.Maybe [Prelude.Text],+    -- | The text to translate. The text string can be a maximum of 10,000 bytes+    -- long. Depending on your character set, this may be fewer than 10,000+    -- characters.+    text :: Prelude.Text,+    -- | The language code for the language of the source text. The language must+    -- be a language supported by Amazon Translate. For a list of language+    -- codes, see+    -- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+    --+    -- To have Amazon Translate determine the source language of your text, you+    -- can specify @auto@ in the @SourceLanguageCode@ field. If you specify+    -- @auto@, Amazon Translate will call+    -- <https://docs.aws.amazon.com/comprehend/latest/dg/comprehend-general.html Amazon Comprehend>+    -- to determine the source language.+    --+    -- If you specify @auto@, you must send the @TranslateText@ request in a+    -- region that supports Amazon Comprehend. Otherwise, the request returns+    -- an error indicating that autodetect is not supported.+    sourceLanguageCode :: Prelude.Text,+    -- | The language code requested for the language of the target text. The+    -- language must be a language supported by Amazon Translate.+    targetLanguageCode :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TranslateText' 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:+--+-- 'settings', 'translateText_settings' - Settings to configure your translation output, including the option to+-- set the formality level of the output text and the option to mask+-- profane words and phrases.+--+-- 'terminologyNames', 'translateText_terminologyNames' - The name of the terminology list file to be used in the TranslateText+-- request. You can use 1 terminology list at most in a @TranslateText@+-- request. Terminology lists can contain a maximum of 256 terms.+--+-- 'text', 'translateText_text' - The text to translate. The text string can be a maximum of 10,000 bytes+-- long. Depending on your character set, this may be fewer than 10,000+-- characters.+--+-- 'sourceLanguageCode', 'translateText_sourceLanguageCode' - The language code for the language of the source text. The language must+-- be a language supported by Amazon Translate. For a list of language+-- codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+--+-- To have Amazon Translate determine the source language of your text, you+-- can specify @auto@ in the @SourceLanguageCode@ field. If you specify+-- @auto@, Amazon Translate will call+-- <https://docs.aws.amazon.com/comprehend/latest/dg/comprehend-general.html Amazon Comprehend>+-- to determine the source language.+--+-- If you specify @auto@, you must send the @TranslateText@ request in a+-- region that supports Amazon Comprehend. Otherwise, the request returns+-- an error indicating that autodetect is not supported.+--+-- 'targetLanguageCode', 'translateText_targetLanguageCode' - The language code requested for the language of the target text. The+-- language must be a language supported by Amazon Translate.+newTranslateText ::+  -- | 'text'+  Prelude.Text ->+  -- | 'sourceLanguageCode'+  Prelude.Text ->+  -- | 'targetLanguageCode'+  Prelude.Text ->+  TranslateText+newTranslateText+  pText_+  pSourceLanguageCode_+  pTargetLanguageCode_ =+    TranslateText'+      { settings = Prelude.Nothing,+        terminologyNames = Prelude.Nothing,+        text = pText_,+        sourceLanguageCode = pSourceLanguageCode_,+        targetLanguageCode = pTargetLanguageCode_+      }++-- | Settings to configure your translation output, including the option to+-- set the formality level of the output text and the option to mask+-- profane words and phrases.+translateText_settings :: Lens.Lens' TranslateText (Prelude.Maybe TranslationSettings)+translateText_settings = Lens.lens (\TranslateText' {settings} -> settings) (\s@TranslateText' {} a -> s {settings = a} :: TranslateText)++-- | The name of the terminology list file to be used in the TranslateText+-- request. You can use 1 terminology list at most in a @TranslateText@+-- request. Terminology lists can contain a maximum of 256 terms.+translateText_terminologyNames :: Lens.Lens' TranslateText (Prelude.Maybe [Prelude.Text])+translateText_terminologyNames = Lens.lens (\TranslateText' {terminologyNames} -> terminologyNames) (\s@TranslateText' {} a -> s {terminologyNames = a} :: TranslateText) Prelude.. Lens.mapping Lens.coerced++-- | The text to translate. The text string can be a maximum of 10,000 bytes+-- long. Depending on your character set, this may be fewer than 10,000+-- characters.+translateText_text :: Lens.Lens' TranslateText Prelude.Text+translateText_text = Lens.lens (\TranslateText' {text} -> text) (\s@TranslateText' {} a -> s {text = a} :: TranslateText)++-- | The language code for the language of the source text. The language must+-- be a language supported by Amazon Translate. For a list of language+-- codes, see+-- <https://docs.aws.amazon.com/translate/latest/dg/what-is-languages.html Supported languages>.+--+-- To have Amazon Translate determine the source language of your text, you+-- can specify @auto@ in the @SourceLanguageCode@ field. If you specify+-- @auto@, Amazon Translate will call+-- <https://docs.aws.amazon.com/comprehend/latest/dg/comprehend-general.html Amazon Comprehend>+-- to determine the source language.+--+-- If you specify @auto@, you must send the @TranslateText@ request in a+-- region that supports Amazon Comprehend. Otherwise, the request returns+-- an error indicating that autodetect is not supported.+translateText_sourceLanguageCode :: Lens.Lens' TranslateText Prelude.Text+translateText_sourceLanguageCode = Lens.lens (\TranslateText' {sourceLanguageCode} -> sourceLanguageCode) (\s@TranslateText' {} a -> s {sourceLanguageCode = a} :: TranslateText)++-- | The language code requested for the language of the target text. The+-- language must be a language supported by Amazon Translate.+translateText_targetLanguageCode :: Lens.Lens' TranslateText Prelude.Text+translateText_targetLanguageCode = Lens.lens (\TranslateText' {targetLanguageCode} -> targetLanguageCode) (\s@TranslateText' {} a -> s {targetLanguageCode = a} :: TranslateText)++instance Core.AWSRequest TranslateText where+  type+    AWSResponse TranslateText =+      TranslateTextResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          TranslateTextResponse'+            Prelude.<$> (x Data..?> "AppliedSettings")+            Prelude.<*> ( x+                            Data..?> "AppliedTerminologies"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "TranslatedText")+            Prelude.<*> (x Data..:> "SourceLanguageCode")+            Prelude.<*> (x Data..:> "TargetLanguageCode")+      )++instance Prelude.Hashable TranslateText where+  hashWithSalt _salt TranslateText' {..} =+    _salt+      `Prelude.hashWithSalt` settings+      `Prelude.hashWithSalt` terminologyNames+      `Prelude.hashWithSalt` text+      `Prelude.hashWithSalt` sourceLanguageCode+      `Prelude.hashWithSalt` targetLanguageCode++instance Prelude.NFData TranslateText where+  rnf TranslateText' {..} =+    Prelude.rnf settings+      `Prelude.seq` Prelude.rnf terminologyNames+      `Prelude.seq` Prelude.rnf text+      `Prelude.seq` Prelude.rnf sourceLanguageCode+      `Prelude.seq` Prelude.rnf targetLanguageCode++instance Data.ToHeaders TranslateText where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSShineFrontendService_20170701.TranslateText" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON TranslateText where+  toJSON TranslateText' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Settings" Data..=) Prelude.<$> settings,+            ("TerminologyNames" Data..=)+              Prelude.<$> terminologyNames,+            Prelude.Just ("Text" Data..= text),+            Prelude.Just+              ("SourceLanguageCode" Data..= sourceLanguageCode),+            Prelude.Just+              ("TargetLanguageCode" Data..= targetLanguageCode)+          ]+      )++instance Data.ToPath TranslateText where+  toPath = Prelude.const "/"++instance Data.ToQuery TranslateText where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTranslateTextResponse' smart constructor.+data TranslateTextResponse = TranslateTextResponse'+  { -- | Settings that configure the translation output.+    appliedSettings :: Prelude.Maybe TranslationSettings,+    -- | The names of the custom terminologies applied to the input text by+    -- Amazon Translate for the translated text response.+    appliedTerminologies :: Prelude.Maybe [AppliedTerminology],+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The translated text.+    translatedText :: Prelude.Text,+    -- | The language code for the language of the source text.+    sourceLanguageCode :: Prelude.Text,+    -- | The language code for the language of the target text.+    targetLanguageCode :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TranslateTextResponse' 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:+--+-- 'appliedSettings', 'translateTextResponse_appliedSettings' - Settings that configure the translation output.+--+-- 'appliedTerminologies', 'translateTextResponse_appliedTerminologies' - The names of the custom terminologies applied to the input text by+-- Amazon Translate for the translated text response.+--+-- 'httpStatus', 'translateTextResponse_httpStatus' - The response's http status code.+--+-- 'translatedText', 'translateTextResponse_translatedText' - The translated text.+--+-- 'sourceLanguageCode', 'translateTextResponse_sourceLanguageCode' - The language code for the language of the source text.+--+-- 'targetLanguageCode', 'translateTextResponse_targetLanguageCode' - The language code for the language of the target text.+newTranslateTextResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'translatedText'+  Prelude.Text ->+  -- | 'sourceLanguageCode'+  Prelude.Text ->+  -- | 'targetLanguageCode'+  Prelude.Text ->+  TranslateTextResponse+newTranslateTextResponse+  pHttpStatus_+  pTranslatedText_+  pSourceLanguageCode_+  pTargetLanguageCode_ =+    TranslateTextResponse'+      { appliedSettings =+          Prelude.Nothing,+        appliedTerminologies = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        translatedText = pTranslatedText_,+        sourceLanguageCode = pSourceLanguageCode_,+        targetLanguageCode = pTargetLanguageCode_+      }++-- | Settings that configure the translation output.+translateTextResponse_appliedSettings :: Lens.Lens' TranslateTextResponse (Prelude.Maybe TranslationSettings)+translateTextResponse_appliedSettings = Lens.lens (\TranslateTextResponse' {appliedSettings} -> appliedSettings) (\s@TranslateTextResponse' {} a -> s {appliedSettings = a} :: TranslateTextResponse)++-- | The names of the custom terminologies applied to the input text by+-- Amazon Translate for the translated text response.+translateTextResponse_appliedTerminologies :: Lens.Lens' TranslateTextResponse (Prelude.Maybe [AppliedTerminology])+translateTextResponse_appliedTerminologies = Lens.lens (\TranslateTextResponse' {appliedTerminologies} -> appliedTerminologies) (\s@TranslateTextResponse' {} a -> s {appliedTerminologies = a} :: TranslateTextResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+translateTextResponse_httpStatus :: Lens.Lens' TranslateTextResponse Prelude.Int+translateTextResponse_httpStatus = Lens.lens (\TranslateTextResponse' {httpStatus} -> httpStatus) (\s@TranslateTextResponse' {} a -> s {httpStatus = a} :: TranslateTextResponse)++-- | The translated text.+translateTextResponse_translatedText :: Lens.Lens' TranslateTextResponse Prelude.Text+translateTextResponse_translatedText = Lens.lens (\TranslateTextResponse' {translatedText} -> translatedText) (\s@TranslateTextResponse' {} a -> s {translatedText = a} :: TranslateTextResponse)++-- | The language code for the language of the source text.+translateTextResponse_sourceLanguageCode :: Lens.Lens' TranslateTextResponse Prelude.Text+translateTextResponse_sourceLanguageCode = Lens.lens (\TranslateTextResponse' {sourceLanguageCode} -> sourceLanguageCode) (\s@TranslateTextResponse' {} a -> s {sourceLanguageCode = a} :: TranslateTextResponse)++-- | The language code for the language of the target text.+translateTextResponse_targetLanguageCode :: Lens.Lens' TranslateTextResponse Prelude.Text+translateTextResponse_targetLanguageCode = Lens.lens (\TranslateTextResponse' {targetLanguageCode} -> targetLanguageCode) (\s@TranslateTextResponse' {} a -> s {targetLanguageCode = a} :: TranslateTextResponse)++instance Prelude.NFData TranslateTextResponse where+  rnf TranslateTextResponse' {..} =+    Prelude.rnf appliedSettings+      `Prelude.seq` Prelude.rnf appliedTerminologies+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf translatedText+      `Prelude.seq` Prelude.rnf sourceLanguageCode+      `Prelude.seq` Prelude.rnf targetLanguageCode

@@ -0,0 +1,438 @@+{-# 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.Translate.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.Translate.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ConcurrentModificationException,+    _ConflictException,+    _DetectedLanguageLowConfidenceException,+    _InternalServerException,+    _InvalidFilterException,+    _InvalidParameterValueException,+    _InvalidRequestException,+    _LimitExceededException,+    _ResourceNotFoundException,+    _ServiceUnavailableException,+    _TextSizeLimitExceededException,+    _TooManyRequestsException,+    _TooManyTagsException,+    _UnsupportedDisplayLanguageCodeException,+    _UnsupportedLanguagePairException,++    -- * Directionality+    Directionality (..),++    -- * DisplayLanguageCode+    DisplayLanguageCode (..),++    -- * EncryptionKeyType+    EncryptionKeyType (..),++    -- * Formality+    Formality (..),++    -- * JobStatus+    JobStatus (..),++    -- * MergeStrategy+    MergeStrategy (..),++    -- * ParallelDataFormat+    ParallelDataFormat (..),++    -- * ParallelDataStatus+    ParallelDataStatus (..),++    -- * Profanity+    Profanity (..),++    -- * TerminologyDataFormat+    TerminologyDataFormat (..),++    -- * AppliedTerminology+    AppliedTerminology (..),+    newAppliedTerminology,+    appliedTerminology_name,+    appliedTerminology_terms,++    -- * EncryptionKey+    EncryptionKey (..),+    newEncryptionKey,+    encryptionKey_type,+    encryptionKey_id,++    -- * InputDataConfig+    InputDataConfig (..),+    newInputDataConfig,+    inputDataConfig_s3Uri,+    inputDataConfig_contentType,++    -- * JobDetails+    JobDetails (..),+    newJobDetails,+    jobDetails_documentsWithErrorsCount,+    jobDetails_inputDocumentsCount,+    jobDetails_translatedDocumentsCount,++    -- * Language+    Language (..),+    newLanguage,+    language_languageName,+    language_languageCode,++    -- * OutputDataConfig+    OutputDataConfig (..),+    newOutputDataConfig,+    outputDataConfig_encryptionKey,+    outputDataConfig_s3Uri,++    -- * ParallelDataConfig+    ParallelDataConfig (..),+    newParallelDataConfig,+    parallelDataConfig_s3Uri,+    parallelDataConfig_format,++    -- * ParallelDataDataLocation+    ParallelDataDataLocation (..),+    newParallelDataDataLocation,+    parallelDataDataLocation_repositoryType,+    parallelDataDataLocation_location,++    -- * ParallelDataProperties+    ParallelDataProperties (..),+    newParallelDataProperties,+    parallelDataProperties_arn,+    parallelDataProperties_createdAt,+    parallelDataProperties_description,+    parallelDataProperties_encryptionKey,+    parallelDataProperties_failedRecordCount,+    parallelDataProperties_importedDataSize,+    parallelDataProperties_importedRecordCount,+    parallelDataProperties_lastUpdatedAt,+    parallelDataProperties_latestUpdateAttemptAt,+    parallelDataProperties_latestUpdateAttemptStatus,+    parallelDataProperties_message,+    parallelDataProperties_name,+    parallelDataProperties_parallelDataConfig,+    parallelDataProperties_skippedRecordCount,+    parallelDataProperties_sourceLanguageCode,+    parallelDataProperties_status,+    parallelDataProperties_targetLanguageCodes,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,++    -- * Term+    Term (..),+    newTerm,+    term_sourceText,+    term_targetText,++    -- * TerminologyData+    TerminologyData (..),+    newTerminologyData,+    terminologyData_directionality,+    terminologyData_file,+    terminologyData_format,++    -- * TerminologyDataLocation+    TerminologyDataLocation (..),+    newTerminologyDataLocation,+    terminologyDataLocation_repositoryType,+    terminologyDataLocation_location,++    -- * TerminologyProperties+    TerminologyProperties (..),+    newTerminologyProperties,+    terminologyProperties_arn,+    terminologyProperties_createdAt,+    terminologyProperties_description,+    terminologyProperties_directionality,+    terminologyProperties_encryptionKey,+    terminologyProperties_format,+    terminologyProperties_lastUpdatedAt,+    terminologyProperties_message,+    terminologyProperties_name,+    terminologyProperties_sizeBytes,+    terminologyProperties_skippedTermCount,+    terminologyProperties_sourceLanguageCode,+    terminologyProperties_targetLanguageCodes,+    terminologyProperties_termCount,++    -- * TextTranslationJobFilter+    TextTranslationJobFilter (..),+    newTextTranslationJobFilter,+    textTranslationJobFilter_jobName,+    textTranslationJobFilter_jobStatus,+    textTranslationJobFilter_submittedAfterTime,+    textTranslationJobFilter_submittedBeforeTime,++    -- * TextTranslationJobProperties+    TextTranslationJobProperties (..),+    newTextTranslationJobProperties,+    textTranslationJobProperties_dataAccessRoleArn,+    textTranslationJobProperties_endTime,+    textTranslationJobProperties_inputDataConfig,+    textTranslationJobProperties_jobDetails,+    textTranslationJobProperties_jobId,+    textTranslationJobProperties_jobName,+    textTranslationJobProperties_jobStatus,+    textTranslationJobProperties_message,+    textTranslationJobProperties_outputDataConfig,+    textTranslationJobProperties_parallelDataNames,+    textTranslationJobProperties_settings,+    textTranslationJobProperties_sourceLanguageCode,+    textTranslationJobProperties_submittedTime,+    textTranslationJobProperties_targetLanguageCodes,+    textTranslationJobProperties_terminologyNames,++    -- * TranslationSettings+    TranslationSettings (..),+    newTranslationSettings,+    translationSettings_formality,+    translationSettings_profanity,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign+import Amazonka.Translate.Types.AppliedTerminology+import Amazonka.Translate.Types.Directionality+import Amazonka.Translate.Types.DisplayLanguageCode+import Amazonka.Translate.Types.EncryptionKey+import Amazonka.Translate.Types.EncryptionKeyType+import Amazonka.Translate.Types.Formality+import Amazonka.Translate.Types.InputDataConfig+import Amazonka.Translate.Types.JobDetails+import Amazonka.Translate.Types.JobStatus+import Amazonka.Translate.Types.Language+import Amazonka.Translate.Types.MergeStrategy+import Amazonka.Translate.Types.OutputDataConfig+import Amazonka.Translate.Types.ParallelDataConfig+import Amazonka.Translate.Types.ParallelDataDataLocation+import Amazonka.Translate.Types.ParallelDataFormat+import Amazonka.Translate.Types.ParallelDataProperties+import Amazonka.Translate.Types.ParallelDataStatus+import Amazonka.Translate.Types.Profanity+import Amazonka.Translate.Types.Tag+import Amazonka.Translate.Types.Term+import Amazonka.Translate.Types.TerminologyData+import Amazonka.Translate.Types.TerminologyDataFormat+import Amazonka.Translate.Types.TerminologyDataLocation+import Amazonka.Translate.Types.TerminologyProperties+import Amazonka.Translate.Types.TextTranslationJobFilter+import Amazonka.Translate.Types.TextTranslationJobProperties+import Amazonka.Translate.Types.TranslationSettings++-- | API version @2017-07-01@ of the Amazon Translate SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "Translate",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "translate",+      Core.signingName = "translate",+      Core.version = "2017-07-01",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "Translate",+      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++-- | Another modification is being made. That modification must complete+-- before you can make your change.+_ConcurrentModificationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConcurrentModificationException =+  Core._MatchServiceError+    defaultService+    "ConcurrentModificationException"++-- | There was a conflict processing the request. Try your request again.+_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConflictException =+  Core._MatchServiceError+    defaultService+    "ConflictException"++-- | The confidence that Amazon Comprehend accurately detected the source+-- language is low. If a low confidence level is acceptable for your+-- application, you can use the language in the exception to call Amazon+-- Translate again. For more information, see the+-- <https://docs.aws.amazon.com/comprehend/latest/dg/API_DetectDominantLanguage.html DetectDominantLanguage>+-- operation in the /Amazon Comprehend Developer Guide/.+_DetectedLanguageLowConfidenceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DetectedLanguageLowConfidenceException =+  Core._MatchServiceError+    defaultService+    "DetectedLanguageLowConfidenceException"++-- | An internal server error occurred. Retry your request.+_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerException =+  Core._MatchServiceError+    defaultService+    "InternalServerException"++-- | The filter specified for the operation is not valid. Specify a different+-- filter.+_InvalidFilterException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidFilterException =+  Core._MatchServiceError+    defaultService+    "InvalidFilterException"++-- | The value of the parameter is not valid. Review the value of the+-- parameter you are using to correct it, and then retry your operation.+_InvalidParameterValueException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidParameterValueException =+  Core._MatchServiceError+    defaultService+    "InvalidParameterValueException"++-- | The request that you made is not valid. Check your request to determine+-- why it\'s not valid and then retry the request.+_InvalidRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidRequestException =+  Core._MatchServiceError+    defaultService+    "InvalidRequestException"++-- | The specified limit has been exceeded. Review your request and retry it+-- with a quantity below the stated limit.+_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LimitExceededException =+  Core._MatchServiceError+    defaultService+    "LimitExceededException"++-- | The resource you are looking for has not been found. Review the resource+-- you\'re looking for and see if a different resource will accomplish your+-- needs before retrying the revised request.+_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ResourceNotFoundException =+  Core._MatchServiceError+    defaultService+    "ResourceNotFoundException"++-- | The Amazon Translate service is temporarily unavailable. Wait a bit and+-- then retry your request.+_ServiceUnavailableException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceUnavailableException =+  Core._MatchServiceError+    defaultService+    "ServiceUnavailableException"++-- | The size of the text you submitted exceeds the size limit. Reduce the+-- size of the text or use a smaller document and then retry your request.+_TextSizeLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TextSizeLimitExceededException =+  Core._MatchServiceError+    defaultService+    "TextSizeLimitExceededException"++-- | You have made too many requests within a short period of time. Wait for+-- a short time and then try your request again.+_TooManyRequestsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TooManyRequestsException =+  Core._MatchServiceError+    defaultService+    "TooManyRequestsException"++-- | You have added too many tags to this resource. The maximum is 50 tags.+_TooManyTagsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TooManyTagsException =+  Core._MatchServiceError+    defaultService+    "TooManyTagsException"++-- | Requested display language code is not supported.+_UnsupportedDisplayLanguageCodeException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedDisplayLanguageCodeException =+  Core._MatchServiceError+    defaultService+    "UnsupportedDisplayLanguageCodeException"++-- | Amazon Translate does not support translation from the language of the+-- source text into the requested target language. For more information,+-- see+-- <https://docs.aws.amazon.com/translate/latest/dg/how-to-error-msg.html Error messages>.+_UnsupportedLanguagePairException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedLanguagePairException =+  Core._MatchServiceError+    defaultService+    "UnsupportedLanguagePairException"

@@ -0,0 +1,100 @@+{-# 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.Translate.Types.AppliedTerminology+-- 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.Translate.Types.AppliedTerminology where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.Translate.Types.Term++-- | The custom terminology applied to the input text by Amazon Translate for+-- the translated text response. This is optional in the response and will+-- only be present if you specified terminology input in the request.+-- Currently, only one terminology can be applied per TranslateText+-- request.+--+-- /See:/ 'newAppliedTerminology' smart constructor.+data AppliedTerminology = AppliedTerminology'+  { -- | The name of the custom terminology applied to the input text by Amazon+    -- Translate for the translated text response.+    name :: Prelude.Maybe Prelude.Text,+    -- | The specific terms of the custom terminology applied to the input text+    -- by Amazon Translate for the translated text response. A maximum of 250+    -- terms will be returned, and the specific terms applied will be the first+    -- 250 terms in the source text.+    terms :: Prelude.Maybe [Term]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AppliedTerminology' 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', 'appliedTerminology_name' - The name of the custom terminology applied to the input text by Amazon+-- Translate for the translated text response.+--+-- 'terms', 'appliedTerminology_terms' - The specific terms of the custom terminology applied to the input text+-- by Amazon Translate for the translated text response. A maximum of 250+-- terms will be returned, and the specific terms applied will be the first+-- 250 terms in the source text.+newAppliedTerminology ::+  AppliedTerminology+newAppliedTerminology =+  AppliedTerminology'+    { name = Prelude.Nothing,+      terms = Prelude.Nothing+    }++-- | The name of the custom terminology applied to the input text by Amazon+-- Translate for the translated text response.+appliedTerminology_name :: Lens.Lens' AppliedTerminology (Prelude.Maybe Prelude.Text)+appliedTerminology_name = Lens.lens (\AppliedTerminology' {name} -> name) (\s@AppliedTerminology' {} a -> s {name = a} :: AppliedTerminology)++-- | The specific terms of the custom terminology applied to the input text+-- by Amazon Translate for the translated text response. A maximum of 250+-- terms will be returned, and the specific terms applied will be the first+-- 250 terms in the source text.+appliedTerminology_terms :: Lens.Lens' AppliedTerminology (Prelude.Maybe [Term])+appliedTerminology_terms = Lens.lens (\AppliedTerminology' {terms} -> terms) (\s@AppliedTerminology' {} a -> s {terms = a} :: AppliedTerminology) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON AppliedTerminology where+  parseJSON =+    Data.withObject+      "AppliedTerminology"+      ( \x ->+          AppliedTerminology'+            Prelude.<$> (x Data..:? "Name")+            Prelude.<*> (x Data..:? "Terms" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable AppliedTerminology where+  hashWithSalt _salt AppliedTerminology' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` terms++instance Prelude.NFData AppliedTerminology where+  rnf AppliedTerminology' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf terms