amazonka-transcribe 1.6.1 → 2.0

raw patch · 182 files changed

+23761/−2634 lines, 182 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-transcribe.cabal +165/−82
• fixture/CreateCallAnalyticsCategory.yaml +10/−0
• fixture/CreateCallAnalyticsCategoryResponse.proto +0/−0
• fixture/CreateLanguageModel.yaml +10/−0
• fixture/CreateLanguageModelResponse.proto +0/−0
• fixture/CreateMedicalVocabulary.yaml +10/−0
• fixture/CreateMedicalVocabularyResponse.proto +0/−0
• fixture/CreateVocabularyFilter.yaml +10/−0
• fixture/CreateVocabularyFilterResponse.proto +0/−0
• fixture/DeleteCallAnalyticsCategory.yaml +10/−0
• fixture/DeleteCallAnalyticsCategoryResponse.proto +0/−0
• fixture/DeleteCallAnalyticsJob.yaml +10/−0
• fixture/DeleteCallAnalyticsJobResponse.proto +0/−0
• fixture/DeleteLanguageModel.yaml +10/−0
• fixture/DeleteLanguageModelResponse.proto +0/−0
• fixture/DeleteMedicalTranscriptionJob.yaml +10/−0
• fixture/DeleteMedicalTranscriptionJobResponse.proto +0/−0
• fixture/DeleteMedicalVocabulary.yaml +10/−0
• fixture/DeleteMedicalVocabularyResponse.proto +0/−0
• fixture/DeleteTranscriptionJob.yaml +10/−0
• fixture/DeleteTranscriptionJobResponse.proto +0/−0
• fixture/DeleteVocabularyFilter.yaml +10/−0
• fixture/DeleteVocabularyFilterResponse.proto +0/−0
• fixture/DescribeLanguageModel.yaml +10/−0
• fixture/DescribeLanguageModelResponse.proto +0/−0
• fixture/GetCallAnalyticsCategory.yaml +10/−0
• fixture/GetCallAnalyticsCategoryResponse.proto +0/−0
• fixture/GetCallAnalyticsJob.yaml +10/−0
• fixture/GetCallAnalyticsJobResponse.proto +0/−0
• fixture/GetMedicalTranscriptionJob.yaml +10/−0
• fixture/GetMedicalTranscriptionJobResponse.proto +0/−0
• fixture/GetMedicalVocabulary.yaml +10/−0
• fixture/GetMedicalVocabularyResponse.proto +0/−0
• fixture/GetVocabularyFilter.yaml +10/−0
• fixture/GetVocabularyFilterResponse.proto +0/−0
• fixture/ListCallAnalyticsCategories.yaml +10/−0
• fixture/ListCallAnalyticsCategoriesResponse.proto +0/−0
• fixture/ListCallAnalyticsJobs.yaml +10/−0
• fixture/ListCallAnalyticsJobsResponse.proto +0/−0
• fixture/ListLanguageModels.yaml +10/−0
• fixture/ListLanguageModelsResponse.proto +0/−0
• fixture/ListMedicalTranscriptionJobs.yaml +10/−0
• fixture/ListMedicalTranscriptionJobsResponse.proto +0/−0
• fixture/ListMedicalVocabularies.yaml +10/−0
• fixture/ListMedicalVocabulariesResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/ListVocabularyFilters.yaml +10/−0
• fixture/ListVocabularyFiltersResponse.proto +0/−0
• fixture/StartCallAnalyticsJob.yaml +10/−0
• fixture/StartCallAnalyticsJobResponse.proto +0/−0
• fixture/StartMedicalTranscriptionJob.yaml +10/−0
• fixture/StartMedicalTranscriptionJobResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• fixture/UpdateCallAnalyticsCategory.yaml +10/−0
• fixture/UpdateCallAnalyticsCategoryResponse.proto +0/−0
• fixture/UpdateMedicalVocabulary.yaml +10/−0
• fixture/UpdateMedicalVocabularyResponse.proto +0/−0
• fixture/UpdateVocabularyFilter.yaml +10/−0
• fixture/UpdateVocabularyFilterResponse.proto +0/−0
• gen/Amazonka/Transcribe.hs +558/−0
• gen/Amazonka/Transcribe/CreateCallAnalyticsCategory.hs +297/−0
• gen/Amazonka/Transcribe/CreateLanguageModel.hs +428/−0
• gen/Amazonka/Transcribe/CreateMedicalVocabulary.hs +368/−0
• gen/Amazonka/Transcribe/CreateVocabulary.hs +441/−0
• gen/Amazonka/Transcribe/CreateVocabularyFilter.hs +417/−0
• gen/Amazonka/Transcribe/DeleteCallAnalyticsCategory.hs +168/−0
• gen/Amazonka/Transcribe/DeleteCallAnalyticsJob.hs +172/−0
• gen/Amazonka/Transcribe/DeleteLanguageModel.hs +138/−0
• gen/Amazonka/Transcribe/DeleteMedicalTranscriptionJob.hs +158/−0
• gen/Amazonka/Transcribe/DeleteMedicalVocabulary.hs +148/−0
• gen/Amazonka/Transcribe/DeleteTranscriptionJob.hs +150/−0
• gen/Amazonka/Transcribe/DeleteVocabulary.hs +144/−0
• gen/Amazonka/Transcribe/DeleteVocabularyFilter.hs +151/−0
• gen/Amazonka/Transcribe/DescribeLanguageModel.hs +208/−0
• gen/Amazonka/Transcribe/GetCallAnalyticsCategory.hs +183/−0
• gen/Amazonka/Transcribe/GetCallAnalyticsJob.hs +197/−0
• gen/Amazonka/Transcribe/GetMedicalTranscriptionJob.hs +195/−0
• gen/Amazonka/Transcribe/GetMedicalVocabulary.hs +283/−0
• gen/Amazonka/Transcribe/GetTranscriptionJob.hs +193/−0
• gen/Amazonka/Transcribe/GetVocabulary.hs +262/−0
• gen/Amazonka/Transcribe/GetVocabularyFilter.hs +238/−0
• gen/Amazonka/Transcribe/Lens.hs +660/−0
• gen/Amazonka/Transcribe/ListCallAnalyticsCategories.hs +240/−0
• gen/Amazonka/Transcribe/ListCallAnalyticsJobs.hs +289/−0
• gen/Amazonka/Transcribe/ListLanguageModels.hs +272/−0
• gen/Amazonka/Transcribe/ListMedicalTranscriptionJobs.hs +298/−0
• gen/Amazonka/Transcribe/ListMedicalVocabularies.hs +297/−0
• gen/Amazonka/Transcribe/ListTagsForResource.hs +215/−0
• gen/Amazonka/Transcribe/ListTranscriptionJobs.hs +288/−0
• gen/Amazonka/Transcribe/ListVocabularies.hs +293/−0
• gen/Amazonka/Transcribe/ListVocabularyFilters.hs +257/−0
• gen/Amazonka/Transcribe/StartCallAnalyticsJob.hs +536/−0
• gen/Amazonka/Transcribe/StartMedicalTranscriptionJob.hs +778/−0
• gen/Amazonka/Transcribe/StartTranscriptionJob.hs +1158/−0
• gen/Amazonka/Transcribe/TagResource.hs +211/−0
• gen/Amazonka/Transcribe/Types.hs +582/−0
• gen/Amazonka/Transcribe/Types/AbsoluteTimeRange.hs +159/−0
• gen/Amazonka/Transcribe/Types/BaseModelName.hs +71/−0
• gen/Amazonka/Transcribe/Types/CLMLanguageCode.hs +96/−0
• gen/Amazonka/Transcribe/Types/CallAnalyticsJob.hs +480/−0
• gen/Amazonka/Transcribe/Types/CallAnalyticsJobSettings.hs +361/−0
• gen/Amazonka/Transcribe/Types/CallAnalyticsJobStatus.hs +81/−0
• gen/Amazonka/Transcribe/Types/CallAnalyticsJobSummary.hs +210/−0
• gen/Amazonka/Transcribe/Types/CategoryProperties.hs +166/−0
• gen/Amazonka/Transcribe/Types/ChannelDefinition.hs +101/−0
• gen/Amazonka/Transcribe/Types/ContentRedaction.hs +151/−0
• gen/Amazonka/Transcribe/Types/InputDataConfig.hs +172/−0
• gen/Amazonka/Transcribe/Types/InputType.hs +71/−0
• gen/Amazonka/Transcribe/Types/InterruptionFilter.hs +178/−0
• gen/Amazonka/Transcribe/Types/JobExecutionSettings.hs +169/−0
• gen/Amazonka/Transcribe/Types/LanguageCode.hs +256/−0
• gen/Amazonka/Transcribe/Types/LanguageCodeItem.hs +92/−0
• gen/Amazonka/Transcribe/Types/LanguageIdSettings.hs +207/−0
• gen/Amazonka/Transcribe/Types/LanguageModel.hs +287/−0
• gen/Amazonka/Transcribe/Types/Media.hs +167/−0
• gen/Amazonka/Transcribe/Types/MediaFormat.hs +96/−0
• gen/Amazonka/Transcribe/Types/MedicalContentIdentificationType.hs +66/−0
• gen/Amazonka/Transcribe/Types/MedicalTranscript.hs +85/−0
• gen/Amazonka/Transcribe/Types/MedicalTranscriptionJob.hs +469/−0
• gen/Amazonka/Transcribe/Types/MedicalTranscriptionJobSummary.hs +314/−0
• gen/Amazonka/Transcribe/Types/MedicalTranscriptionSetting.hs +335/−0
• gen/Amazonka/Transcribe/Types/ModelSettings.hs +105/−0
• gen/Amazonka/Transcribe/Types/ModelStatus.hs +76/−0
• gen/Amazonka/Transcribe/Types/NonTalkTimeFilter.hs +156/−0
• gen/Amazonka/Transcribe/Types/OutputLocationType.hs +71/−0
• gen/Amazonka/Transcribe/Types/ParticipantRole.hs +71/−0
• gen/Amazonka/Transcribe/Types/PiiEntityType.hs +121/−0
• gen/Amazonka/Transcribe/Types/RedactionOutput.hs +71/−0
• gen/Amazonka/Transcribe/Types/RedactionType.hs +66/−0
• gen/Amazonka/Transcribe/Types/RelativeTimeRange.hs +158/−0
• gen/Amazonka/Transcribe/Types/Rule.hs +150/−0
• gen/Amazonka/Transcribe/Types/SentimentFilter.hs +182/−0
• gen/Amazonka/Transcribe/Types/SentimentValue.hs +81/−0
• gen/Amazonka/Transcribe/Types/Settings.hs +383/−0
• gen/Amazonka/Transcribe/Types/Specialty.hs +66/−0
• gen/Amazonka/Transcribe/Types/SubtitleFormat.hs +71/−0
• gen/Amazonka/Transcribe/Types/Subtitles.hs +115/−0
• gen/Amazonka/Transcribe/Types/SubtitlesOutput.hs +161/−0
• gen/Amazonka/Transcribe/Types/Tag.hs +125/−0
• gen/Amazonka/Transcribe/Types/Transcript.hs +182/−0
• gen/Amazonka/Transcribe/Types/TranscriptFilter.hs +215/−0
• gen/Amazonka/Transcribe/Types/TranscriptFilterType.hs +66/−0
• gen/Amazonka/Transcribe/Types/TranscriptionJob.hs +603/−0
• gen/Amazonka/Transcribe/Types/TranscriptionJobStatus.hs +81/−0
• gen/Amazonka/Transcribe/Types/TranscriptionJobSummary.hs +357/−0
• gen/Amazonka/Transcribe/Types/Type.hs +68/−0
• gen/Amazonka/Transcribe/Types/VocabularyFilterInfo.hs +156/−0
• gen/Amazonka/Transcribe/Types/VocabularyFilterMethod.hs +76/−0
• gen/Amazonka/Transcribe/Types/VocabularyInfo.hs +151/−0
• gen/Amazonka/Transcribe/Types/VocabularyState.hs +76/−0
• gen/Amazonka/Transcribe/UntagResource.hs +205/−0
• gen/Amazonka/Transcribe/UpdateCallAnalyticsCategory.hs +234/−0
• gen/Amazonka/Transcribe/UpdateMedicalVocabulary.hs +301/−0
• gen/Amazonka/Transcribe/UpdateVocabulary.hs +374/−0
• gen/Amazonka/Transcribe/UpdateVocabularyFilter.hs +317/−0
• gen/Amazonka/Transcribe/Waiters.hs +24/−0
• gen/Network/AWS/Transcribe.hs +0/−174
• gen/Network/AWS/Transcribe/CreateVocabulary.hs +0/−198
• gen/Network/AWS/Transcribe/DeleteVocabulary.hs +0/−109
• gen/Network/AWS/Transcribe/GetTranscriptionJob.hs +0/−136
• gen/Network/AWS/Transcribe/GetVocabulary.hs +0/−185
• gen/Network/AWS/Transcribe/ListTranscriptionJobs.hs +0/−187
• gen/Network/AWS/Transcribe/ListVocabularies.hs +0/−187
• gen/Network/AWS/Transcribe/StartTranscriptionJob.hs +0/−191
• gen/Network/AWS/Transcribe/Types.hs +0/−167
• gen/Network/AWS/Transcribe/Types/Product.hs +0/−430
• gen/Network/AWS/Transcribe/Types/Sum.hs +0/−152
• gen/Network/AWS/Transcribe/UpdateVocabulary.hs +0/−188
• gen/Network/AWS/Transcribe/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/Transcribe.hs +0/−183
• test/Test/AWS/Transcribe.hs +0/−20
• test/Test/AWS/Transcribe/Internal.hs +0/−9
• test/Test/Amazonka/Gen/Transcribe.hs +818/−0
• test/Test/Amazonka/Transcribe.hs +20/−0
• test/Test/Amazonka/Transcribe/Internal.hs +8/−0

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

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

@@ -1,93 +1,176 @@-name:                  amazonka-transcribe-version:               1.6.1-synopsis:              Amazon Transcribe Service SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-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-transcribe+version:            2.0+synopsis:           Amazon Transcribe Service SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    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.Transcribe" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-10-26@ 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.Transcribe.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.Transcribe" 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-transcribe+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-transcribe  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.Transcribe-        , Network.AWS.Transcribe.CreateVocabulary-        , Network.AWS.Transcribe.DeleteVocabulary-        , Network.AWS.Transcribe.GetTranscriptionJob-        , Network.AWS.Transcribe.GetVocabulary-        , Network.AWS.Transcribe.ListTranscriptionJobs-        , Network.AWS.Transcribe.ListVocabularies-        , Network.AWS.Transcribe.StartTranscriptionJob-        , Network.AWS.Transcribe.Types-        , Network.AWS.Transcribe.UpdateVocabulary-        , Network.AWS.Transcribe.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.Transcribe.Types.Product-        , Network.AWS.Transcribe.Types.Sum+  exposed-modules:+    Amazonka.Transcribe+    Amazonka.Transcribe.CreateCallAnalyticsCategory+    Amazonka.Transcribe.CreateLanguageModel+    Amazonka.Transcribe.CreateMedicalVocabulary+    Amazonka.Transcribe.CreateVocabulary+    Amazonka.Transcribe.CreateVocabularyFilter+    Amazonka.Transcribe.DeleteCallAnalyticsCategory+    Amazonka.Transcribe.DeleteCallAnalyticsJob+    Amazonka.Transcribe.DeleteLanguageModel+    Amazonka.Transcribe.DeleteMedicalTranscriptionJob+    Amazonka.Transcribe.DeleteMedicalVocabulary+    Amazonka.Transcribe.DeleteTranscriptionJob+    Amazonka.Transcribe.DeleteVocabulary+    Amazonka.Transcribe.DeleteVocabularyFilter+    Amazonka.Transcribe.DescribeLanguageModel+    Amazonka.Transcribe.GetCallAnalyticsCategory+    Amazonka.Transcribe.GetCallAnalyticsJob+    Amazonka.Transcribe.GetMedicalTranscriptionJob+    Amazonka.Transcribe.GetMedicalVocabulary+    Amazonka.Transcribe.GetTranscriptionJob+    Amazonka.Transcribe.GetVocabulary+    Amazonka.Transcribe.GetVocabularyFilter+    Amazonka.Transcribe.Lens+    Amazonka.Transcribe.ListCallAnalyticsCategories+    Amazonka.Transcribe.ListCallAnalyticsJobs+    Amazonka.Transcribe.ListLanguageModels+    Amazonka.Transcribe.ListMedicalTranscriptionJobs+    Amazonka.Transcribe.ListMedicalVocabularies+    Amazonka.Transcribe.ListTagsForResource+    Amazonka.Transcribe.ListTranscriptionJobs+    Amazonka.Transcribe.ListVocabularies+    Amazonka.Transcribe.ListVocabularyFilters+    Amazonka.Transcribe.StartCallAnalyticsJob+    Amazonka.Transcribe.StartMedicalTranscriptionJob+    Amazonka.Transcribe.StartTranscriptionJob+    Amazonka.Transcribe.TagResource+    Amazonka.Transcribe.Types+    Amazonka.Transcribe.Types.AbsoluteTimeRange+    Amazonka.Transcribe.Types.BaseModelName+    Amazonka.Transcribe.Types.CallAnalyticsJob+    Amazonka.Transcribe.Types.CallAnalyticsJobSettings+    Amazonka.Transcribe.Types.CallAnalyticsJobStatus+    Amazonka.Transcribe.Types.CallAnalyticsJobSummary+    Amazonka.Transcribe.Types.CategoryProperties+    Amazonka.Transcribe.Types.ChannelDefinition+    Amazonka.Transcribe.Types.CLMLanguageCode+    Amazonka.Transcribe.Types.ContentRedaction+    Amazonka.Transcribe.Types.InputDataConfig+    Amazonka.Transcribe.Types.InputType+    Amazonka.Transcribe.Types.InterruptionFilter+    Amazonka.Transcribe.Types.JobExecutionSettings+    Amazonka.Transcribe.Types.LanguageCode+    Amazonka.Transcribe.Types.LanguageCodeItem+    Amazonka.Transcribe.Types.LanguageIdSettings+    Amazonka.Transcribe.Types.LanguageModel+    Amazonka.Transcribe.Types.Media+    Amazonka.Transcribe.Types.MediaFormat+    Amazonka.Transcribe.Types.MedicalContentIdentificationType+    Amazonka.Transcribe.Types.MedicalTranscript+    Amazonka.Transcribe.Types.MedicalTranscriptionJob+    Amazonka.Transcribe.Types.MedicalTranscriptionJobSummary+    Amazonka.Transcribe.Types.MedicalTranscriptionSetting+    Amazonka.Transcribe.Types.ModelSettings+    Amazonka.Transcribe.Types.ModelStatus+    Amazonka.Transcribe.Types.NonTalkTimeFilter+    Amazonka.Transcribe.Types.OutputLocationType+    Amazonka.Transcribe.Types.ParticipantRole+    Amazonka.Transcribe.Types.PiiEntityType+    Amazonka.Transcribe.Types.RedactionOutput+    Amazonka.Transcribe.Types.RedactionType+    Amazonka.Transcribe.Types.RelativeTimeRange+    Amazonka.Transcribe.Types.Rule+    Amazonka.Transcribe.Types.SentimentFilter+    Amazonka.Transcribe.Types.SentimentValue+    Amazonka.Transcribe.Types.Settings+    Amazonka.Transcribe.Types.Specialty+    Amazonka.Transcribe.Types.SubtitleFormat+    Amazonka.Transcribe.Types.Subtitles+    Amazonka.Transcribe.Types.SubtitlesOutput+    Amazonka.Transcribe.Types.Tag+    Amazonka.Transcribe.Types.Transcript+    Amazonka.Transcribe.Types.TranscriptFilter+    Amazonka.Transcribe.Types.TranscriptFilterType+    Amazonka.Transcribe.Types.TranscriptionJob+    Amazonka.Transcribe.Types.TranscriptionJobStatus+    Amazonka.Transcribe.Types.TranscriptionJobSummary+    Amazonka.Transcribe.Types.Type+    Amazonka.Transcribe.Types.VocabularyFilterInfo+    Amazonka.Transcribe.Types.VocabularyFilterMethod+    Amazonka.Transcribe.Types.VocabularyInfo+    Amazonka.Transcribe.Types.VocabularyState+    Amazonka.Transcribe.UntagResource+    Amazonka.Transcribe.UpdateCallAnalyticsCategory+    Amazonka.Transcribe.UpdateMedicalVocabulary+    Amazonka.Transcribe.UpdateVocabulary+    Amazonka.Transcribe.UpdateVocabularyFilter+    Amazonka.Transcribe.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-transcribe-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.Transcribe-        , Test.AWS.Gen.Transcribe-        , Test.AWS.Transcribe.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.Transcribe+    Test.Amazonka.Transcribe+    Test.Amazonka.Transcribe.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-transcribe-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , amazonka-transcribe+    , 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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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/transcribe/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  transcribe.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,558 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Transcribe+-- 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-10-26@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Transcribe offers three main types of batch transcription:+-- __Standard__, __Medical__, and __Call Analytics__.+--+-- -   __Standard transcriptions__ are the most common option. Refer to for+--     details.+--+-- -   __Medical transcriptions__ are tailored to medical professionals and+--     incorporate medical terms. A common use case for this service is+--     transcribing doctor-patient dialogue into after-visit notes. Refer+--     to for details.+--+-- -   __Call Analytics transcriptions__ are designed for use with call+--     center audio on two different channels; if you\'re looking for+--     insight into customer service calls, use this option. Refer to for+--     details.+module Amazonka.Transcribe+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BadRequestException+    _BadRequestException,++    -- ** ConflictException+    _ConflictException,++    -- ** InternalFailureException+    _InternalFailureException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** NotFoundException+    _NotFoundException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateCallAnalyticsCategory+    CreateCallAnalyticsCategory (CreateCallAnalyticsCategory'),+    newCreateCallAnalyticsCategory,+    CreateCallAnalyticsCategoryResponse (CreateCallAnalyticsCategoryResponse'),+    newCreateCallAnalyticsCategoryResponse,++    -- ** CreateLanguageModel+    CreateLanguageModel (CreateLanguageModel'),+    newCreateLanguageModel,+    CreateLanguageModelResponse (CreateLanguageModelResponse'),+    newCreateLanguageModelResponse,++    -- ** CreateMedicalVocabulary+    CreateMedicalVocabulary (CreateMedicalVocabulary'),+    newCreateMedicalVocabulary,+    CreateMedicalVocabularyResponse (CreateMedicalVocabularyResponse'),+    newCreateMedicalVocabularyResponse,++    -- ** CreateVocabulary+    CreateVocabulary (CreateVocabulary'),+    newCreateVocabulary,+    CreateVocabularyResponse (CreateVocabularyResponse'),+    newCreateVocabularyResponse,++    -- ** CreateVocabularyFilter+    CreateVocabularyFilter (CreateVocabularyFilter'),+    newCreateVocabularyFilter,+    CreateVocabularyFilterResponse (CreateVocabularyFilterResponse'),+    newCreateVocabularyFilterResponse,++    -- ** DeleteCallAnalyticsCategory+    DeleteCallAnalyticsCategory (DeleteCallAnalyticsCategory'),+    newDeleteCallAnalyticsCategory,+    DeleteCallAnalyticsCategoryResponse (DeleteCallAnalyticsCategoryResponse'),+    newDeleteCallAnalyticsCategoryResponse,++    -- ** DeleteCallAnalyticsJob+    DeleteCallAnalyticsJob (DeleteCallAnalyticsJob'),+    newDeleteCallAnalyticsJob,+    DeleteCallAnalyticsJobResponse (DeleteCallAnalyticsJobResponse'),+    newDeleteCallAnalyticsJobResponse,++    -- ** DeleteLanguageModel+    DeleteLanguageModel (DeleteLanguageModel'),+    newDeleteLanguageModel,+    DeleteLanguageModelResponse (DeleteLanguageModelResponse'),+    newDeleteLanguageModelResponse,++    -- ** DeleteMedicalTranscriptionJob+    DeleteMedicalTranscriptionJob (DeleteMedicalTranscriptionJob'),+    newDeleteMedicalTranscriptionJob,+    DeleteMedicalTranscriptionJobResponse (DeleteMedicalTranscriptionJobResponse'),+    newDeleteMedicalTranscriptionJobResponse,++    -- ** DeleteMedicalVocabulary+    DeleteMedicalVocabulary (DeleteMedicalVocabulary'),+    newDeleteMedicalVocabulary,+    DeleteMedicalVocabularyResponse (DeleteMedicalVocabularyResponse'),+    newDeleteMedicalVocabularyResponse,++    -- ** DeleteTranscriptionJob+    DeleteTranscriptionJob (DeleteTranscriptionJob'),+    newDeleteTranscriptionJob,+    DeleteTranscriptionJobResponse (DeleteTranscriptionJobResponse'),+    newDeleteTranscriptionJobResponse,++    -- ** DeleteVocabulary+    DeleteVocabulary (DeleteVocabulary'),+    newDeleteVocabulary,+    DeleteVocabularyResponse (DeleteVocabularyResponse'),+    newDeleteVocabularyResponse,++    -- ** DeleteVocabularyFilter+    DeleteVocabularyFilter (DeleteVocabularyFilter'),+    newDeleteVocabularyFilter,+    DeleteVocabularyFilterResponse (DeleteVocabularyFilterResponse'),+    newDeleteVocabularyFilterResponse,++    -- ** DescribeLanguageModel+    DescribeLanguageModel (DescribeLanguageModel'),+    newDescribeLanguageModel,+    DescribeLanguageModelResponse (DescribeLanguageModelResponse'),+    newDescribeLanguageModelResponse,++    -- ** GetCallAnalyticsCategory+    GetCallAnalyticsCategory (GetCallAnalyticsCategory'),+    newGetCallAnalyticsCategory,+    GetCallAnalyticsCategoryResponse (GetCallAnalyticsCategoryResponse'),+    newGetCallAnalyticsCategoryResponse,++    -- ** GetCallAnalyticsJob+    GetCallAnalyticsJob (GetCallAnalyticsJob'),+    newGetCallAnalyticsJob,+    GetCallAnalyticsJobResponse (GetCallAnalyticsJobResponse'),+    newGetCallAnalyticsJobResponse,++    -- ** GetMedicalTranscriptionJob+    GetMedicalTranscriptionJob (GetMedicalTranscriptionJob'),+    newGetMedicalTranscriptionJob,+    GetMedicalTranscriptionJobResponse (GetMedicalTranscriptionJobResponse'),+    newGetMedicalTranscriptionJobResponse,++    -- ** GetMedicalVocabulary+    GetMedicalVocabulary (GetMedicalVocabulary'),+    newGetMedicalVocabulary,+    GetMedicalVocabularyResponse (GetMedicalVocabularyResponse'),+    newGetMedicalVocabularyResponse,++    -- ** GetTranscriptionJob+    GetTranscriptionJob (GetTranscriptionJob'),+    newGetTranscriptionJob,+    GetTranscriptionJobResponse (GetTranscriptionJobResponse'),+    newGetTranscriptionJobResponse,++    -- ** GetVocabulary+    GetVocabulary (GetVocabulary'),+    newGetVocabulary,+    GetVocabularyResponse (GetVocabularyResponse'),+    newGetVocabularyResponse,++    -- ** GetVocabularyFilter+    GetVocabularyFilter (GetVocabularyFilter'),+    newGetVocabularyFilter,+    GetVocabularyFilterResponse (GetVocabularyFilterResponse'),+    newGetVocabularyFilterResponse,++    -- ** ListCallAnalyticsCategories+    ListCallAnalyticsCategories (ListCallAnalyticsCategories'),+    newListCallAnalyticsCategories,+    ListCallAnalyticsCategoriesResponse (ListCallAnalyticsCategoriesResponse'),+    newListCallAnalyticsCategoriesResponse,++    -- ** ListCallAnalyticsJobs+    ListCallAnalyticsJobs (ListCallAnalyticsJobs'),+    newListCallAnalyticsJobs,+    ListCallAnalyticsJobsResponse (ListCallAnalyticsJobsResponse'),+    newListCallAnalyticsJobsResponse,++    -- ** ListLanguageModels+    ListLanguageModels (ListLanguageModels'),+    newListLanguageModels,+    ListLanguageModelsResponse (ListLanguageModelsResponse'),+    newListLanguageModelsResponse,++    -- ** ListMedicalTranscriptionJobs+    ListMedicalTranscriptionJobs (ListMedicalTranscriptionJobs'),+    newListMedicalTranscriptionJobs,+    ListMedicalTranscriptionJobsResponse (ListMedicalTranscriptionJobsResponse'),+    newListMedicalTranscriptionJobsResponse,++    -- ** ListMedicalVocabularies+    ListMedicalVocabularies (ListMedicalVocabularies'),+    newListMedicalVocabularies,+    ListMedicalVocabulariesResponse (ListMedicalVocabulariesResponse'),+    newListMedicalVocabulariesResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** ListTranscriptionJobs+    ListTranscriptionJobs (ListTranscriptionJobs'),+    newListTranscriptionJobs,+    ListTranscriptionJobsResponse (ListTranscriptionJobsResponse'),+    newListTranscriptionJobsResponse,++    -- ** ListVocabularies+    ListVocabularies (ListVocabularies'),+    newListVocabularies,+    ListVocabulariesResponse (ListVocabulariesResponse'),+    newListVocabulariesResponse,++    -- ** ListVocabularyFilters+    ListVocabularyFilters (ListVocabularyFilters'),+    newListVocabularyFilters,+    ListVocabularyFiltersResponse (ListVocabularyFiltersResponse'),+    newListVocabularyFiltersResponse,++    -- ** StartCallAnalyticsJob+    StartCallAnalyticsJob (StartCallAnalyticsJob'),+    newStartCallAnalyticsJob,+    StartCallAnalyticsJobResponse (StartCallAnalyticsJobResponse'),+    newStartCallAnalyticsJobResponse,++    -- ** StartMedicalTranscriptionJob+    StartMedicalTranscriptionJob (StartMedicalTranscriptionJob'),+    newStartMedicalTranscriptionJob,+    StartMedicalTranscriptionJobResponse (StartMedicalTranscriptionJobResponse'),+    newStartMedicalTranscriptionJobResponse,++    -- ** StartTranscriptionJob+    StartTranscriptionJob (StartTranscriptionJob'),+    newStartTranscriptionJob,+    StartTranscriptionJobResponse (StartTranscriptionJobResponse'),+    newStartTranscriptionJobResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateCallAnalyticsCategory+    UpdateCallAnalyticsCategory (UpdateCallAnalyticsCategory'),+    newUpdateCallAnalyticsCategory,+    UpdateCallAnalyticsCategoryResponse (UpdateCallAnalyticsCategoryResponse'),+    newUpdateCallAnalyticsCategoryResponse,++    -- ** UpdateMedicalVocabulary+    UpdateMedicalVocabulary (UpdateMedicalVocabulary'),+    newUpdateMedicalVocabulary,+    UpdateMedicalVocabularyResponse (UpdateMedicalVocabularyResponse'),+    newUpdateMedicalVocabularyResponse,++    -- ** UpdateVocabulary+    UpdateVocabulary (UpdateVocabulary'),+    newUpdateVocabulary,+    UpdateVocabularyResponse (UpdateVocabularyResponse'),+    newUpdateVocabularyResponse,++    -- ** UpdateVocabularyFilter+    UpdateVocabularyFilter (UpdateVocabularyFilter'),+    newUpdateVocabularyFilter,+    UpdateVocabularyFilterResponse (UpdateVocabularyFilterResponse'),+    newUpdateVocabularyFilterResponse,++    -- * Types++    -- ** BaseModelName+    BaseModelName (..),++    -- ** CLMLanguageCode+    CLMLanguageCode (..),++    -- ** CallAnalyticsJobStatus+    CallAnalyticsJobStatus (..),++    -- ** InputType+    InputType (..),++    -- ** LanguageCode+    LanguageCode (..),++    -- ** MediaFormat+    MediaFormat (..),++    -- ** MedicalContentIdentificationType+    MedicalContentIdentificationType (..),++    -- ** ModelStatus+    ModelStatus (..),++    -- ** OutputLocationType+    OutputLocationType (..),++    -- ** ParticipantRole+    ParticipantRole (..),++    -- ** PiiEntityType+    PiiEntityType (..),++    -- ** RedactionOutput+    RedactionOutput (..),++    -- ** RedactionType+    RedactionType (..),++    -- ** SentimentValue+    SentimentValue (..),++    -- ** Specialty+    Specialty (..),++    -- ** SubtitleFormat+    SubtitleFormat (..),++    -- ** TranscriptFilterType+    TranscriptFilterType (..),++    -- ** TranscriptionJobStatus+    TranscriptionJobStatus (..),++    -- ** Type+    Type (..),++    -- ** VocabularyFilterMethod+    VocabularyFilterMethod (..),++    -- ** VocabularyState+    VocabularyState (..),++    -- ** AbsoluteTimeRange+    AbsoluteTimeRange (AbsoluteTimeRange'),+    newAbsoluteTimeRange,++    -- ** CallAnalyticsJob+    CallAnalyticsJob (CallAnalyticsJob'),+    newCallAnalyticsJob,++    -- ** CallAnalyticsJobSettings+    CallAnalyticsJobSettings (CallAnalyticsJobSettings'),+    newCallAnalyticsJobSettings,++    -- ** CallAnalyticsJobSummary+    CallAnalyticsJobSummary (CallAnalyticsJobSummary'),+    newCallAnalyticsJobSummary,++    -- ** CategoryProperties+    CategoryProperties (CategoryProperties'),+    newCategoryProperties,++    -- ** ChannelDefinition+    ChannelDefinition (ChannelDefinition'),+    newChannelDefinition,++    -- ** ContentRedaction+    ContentRedaction (ContentRedaction'),+    newContentRedaction,++    -- ** InputDataConfig+    InputDataConfig (InputDataConfig'),+    newInputDataConfig,++    -- ** InterruptionFilter+    InterruptionFilter (InterruptionFilter'),+    newInterruptionFilter,++    -- ** JobExecutionSettings+    JobExecutionSettings (JobExecutionSettings'),+    newJobExecutionSettings,++    -- ** LanguageCodeItem+    LanguageCodeItem (LanguageCodeItem'),+    newLanguageCodeItem,++    -- ** LanguageIdSettings+    LanguageIdSettings (LanguageIdSettings'),+    newLanguageIdSettings,++    -- ** LanguageModel+    LanguageModel (LanguageModel'),+    newLanguageModel,++    -- ** Media+    Media (Media'),+    newMedia,++    -- ** MedicalTranscript+    MedicalTranscript (MedicalTranscript'),+    newMedicalTranscript,++    -- ** MedicalTranscriptionJob+    MedicalTranscriptionJob (MedicalTranscriptionJob'),+    newMedicalTranscriptionJob,++    -- ** MedicalTranscriptionJobSummary+    MedicalTranscriptionJobSummary (MedicalTranscriptionJobSummary'),+    newMedicalTranscriptionJobSummary,++    -- ** MedicalTranscriptionSetting+    MedicalTranscriptionSetting (MedicalTranscriptionSetting'),+    newMedicalTranscriptionSetting,++    -- ** ModelSettings+    ModelSettings (ModelSettings'),+    newModelSettings,++    -- ** NonTalkTimeFilter+    NonTalkTimeFilter (NonTalkTimeFilter'),+    newNonTalkTimeFilter,++    -- ** RelativeTimeRange+    RelativeTimeRange (RelativeTimeRange'),+    newRelativeTimeRange,++    -- ** Rule+    Rule (Rule'),+    newRule,++    -- ** SentimentFilter+    SentimentFilter (SentimentFilter'),+    newSentimentFilter,++    -- ** Settings+    Settings (Settings'),+    newSettings,++    -- ** Subtitles+    Subtitles (Subtitles'),+    newSubtitles,++    -- ** SubtitlesOutput+    SubtitlesOutput (SubtitlesOutput'),+    newSubtitlesOutput,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** Transcript+    Transcript (Transcript'),+    newTranscript,++    -- ** TranscriptFilter+    TranscriptFilter (TranscriptFilter'),+    newTranscriptFilter,++    -- ** TranscriptionJob+    TranscriptionJob (TranscriptionJob'),+    newTranscriptionJob,++    -- ** TranscriptionJobSummary+    TranscriptionJobSummary (TranscriptionJobSummary'),+    newTranscriptionJobSummary,++    -- ** VocabularyFilterInfo+    VocabularyFilterInfo (VocabularyFilterInfo'),+    newVocabularyFilterInfo,++    -- ** VocabularyInfo+    VocabularyInfo (VocabularyInfo'),+    newVocabularyInfo,+  )+where++import Amazonka.Transcribe.CreateCallAnalyticsCategory+import Amazonka.Transcribe.CreateLanguageModel+import Amazonka.Transcribe.CreateMedicalVocabulary+import Amazonka.Transcribe.CreateVocabulary+import Amazonka.Transcribe.CreateVocabularyFilter+import Amazonka.Transcribe.DeleteCallAnalyticsCategory+import Amazonka.Transcribe.DeleteCallAnalyticsJob+import Amazonka.Transcribe.DeleteLanguageModel+import Amazonka.Transcribe.DeleteMedicalTranscriptionJob+import Amazonka.Transcribe.DeleteMedicalVocabulary+import Amazonka.Transcribe.DeleteTranscriptionJob+import Amazonka.Transcribe.DeleteVocabulary+import Amazonka.Transcribe.DeleteVocabularyFilter+import Amazonka.Transcribe.DescribeLanguageModel+import Amazonka.Transcribe.GetCallAnalyticsCategory+import Amazonka.Transcribe.GetCallAnalyticsJob+import Amazonka.Transcribe.GetMedicalTranscriptionJob+import Amazonka.Transcribe.GetMedicalVocabulary+import Amazonka.Transcribe.GetTranscriptionJob+import Amazonka.Transcribe.GetVocabulary+import Amazonka.Transcribe.GetVocabularyFilter+import Amazonka.Transcribe.Lens+import Amazonka.Transcribe.ListCallAnalyticsCategories+import Amazonka.Transcribe.ListCallAnalyticsJobs+import Amazonka.Transcribe.ListLanguageModels+import Amazonka.Transcribe.ListMedicalTranscriptionJobs+import Amazonka.Transcribe.ListMedicalVocabularies+import Amazonka.Transcribe.ListTagsForResource+import Amazonka.Transcribe.ListTranscriptionJobs+import Amazonka.Transcribe.ListVocabularies+import Amazonka.Transcribe.ListVocabularyFilters+import Amazonka.Transcribe.StartCallAnalyticsJob+import Amazonka.Transcribe.StartMedicalTranscriptionJob+import Amazonka.Transcribe.StartTranscriptionJob+import Amazonka.Transcribe.TagResource+import Amazonka.Transcribe.Types+import Amazonka.Transcribe.UntagResource+import Amazonka.Transcribe.UpdateCallAnalyticsCategory+import Amazonka.Transcribe.UpdateMedicalVocabulary+import Amazonka.Transcribe.UpdateVocabulary+import Amazonka.Transcribe.UpdateVocabularyFilter+import Amazonka.Transcribe.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 'Transcribe'.++-- $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,297 @@+{-# 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.Transcribe.CreateCallAnalyticsCategory+-- 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 new Call Analytics category.+--+-- All categories are automatically applied to your Call Analytics+-- transcriptions. Note that in order to apply categories to your+-- transcriptions, you must create them before submitting your+-- transcription request, as categories cannot be applied retroactively.+--+-- When creating a new category, you can use the @InputType@ parameter to+-- label the category as a batch category (@POST_CALL@) or a streaming+-- category (@REAL_TIME@). Batch categories can only be applied to batch+-- transcriptions and streaming categories can only be applied to streaming+-- transcriptions. If you do not include @InputType@, your category is+-- created as a batch category by default.+--+-- Call Analytics categories are composed of rules. For each category, you+-- must create between 1 and 20 rules. Rules can include these parameters:+-- , , , and .+--+-- To update an existing category, see .+--+-- To learn more about Call Analytics categories, see+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tca-categories-batch.html Creating categories for batch transcriptions>+-- and+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tca-categories-stream.html Creating categories for streaming transcriptions>.+module Amazonka.Transcribe.CreateCallAnalyticsCategory+  ( -- * Creating a Request+    CreateCallAnalyticsCategory (..),+    newCreateCallAnalyticsCategory,++    -- * Request Lenses+    createCallAnalyticsCategory_inputType,+    createCallAnalyticsCategory_categoryName,+    createCallAnalyticsCategory_rules,++    -- * Destructuring the Response+    CreateCallAnalyticsCategoryResponse (..),+    newCreateCallAnalyticsCategoryResponse,++    -- * Response Lenses+    createCallAnalyticsCategoryResponse_categoryProperties,+    createCallAnalyticsCategoryResponse_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.Transcribe.Types++-- | /See:/ 'newCreateCallAnalyticsCategory' smart constructor.+data CreateCallAnalyticsCategory = CreateCallAnalyticsCategory'+  { -- | Choose whether you want to create a streaming or a batch category for+    -- your Call Analytics transcription.+    --+    -- Specifying @POST_CALL@ assigns your category to batch transcriptions;+    -- categories with this input type cannot be applied to streaming+    -- (real-time) transcriptions.+    --+    -- Specifying @REAL_TIME@ assigns your category to streaming+    -- transcriptions; categories with this input type cannot be applied to+    -- batch (post-call) transcriptions.+    --+    -- If you do not include @InputType@, your category is created as a batch+    -- category by default.+    inputType :: Prelude.Maybe InputType,+    -- | A unique name, chosen by you, for your Call Analytics category. It\'s+    -- helpful to use a detailed naming system that will make sense to you in+    -- the future. For example, it\'s better to use+    -- @sentiment-positive-last30seconds@ for a category over a generic name+    -- like @test-category@.+    --+    -- Category names are case sensitive.+    categoryName :: Prelude.Text,+    -- | Rules define a Call Analytics category. When creating a new category,+    -- you must create between 1 and 20 rules for that category. For each rule,+    -- you specify a filter you want applied to the attributes of a call. For+    -- example, you can choose a sentiment filter that detects if a customer\'s+    -- sentiment was positive during the last 30 seconds of the call.+    rules :: Prelude.NonEmpty Rule+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCallAnalyticsCategory' 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:+--+-- 'inputType', 'createCallAnalyticsCategory_inputType' - Choose whether you want to create a streaming or a batch category for+-- your Call Analytics transcription.+--+-- Specifying @POST_CALL@ assigns your category to batch transcriptions;+-- categories with this input type cannot be applied to streaming+-- (real-time) transcriptions.+--+-- Specifying @REAL_TIME@ assigns your category to streaming+-- transcriptions; categories with this input type cannot be applied to+-- batch (post-call) transcriptions.+--+-- If you do not include @InputType@, your category is created as a batch+-- category by default.+--+-- 'categoryName', 'createCallAnalyticsCategory_categoryName' - A unique name, chosen by you, for your Call Analytics category. It\'s+-- helpful to use a detailed naming system that will make sense to you in+-- the future. For example, it\'s better to use+-- @sentiment-positive-last30seconds@ for a category over a generic name+-- like @test-category@.+--+-- Category names are case sensitive.+--+-- 'rules', 'createCallAnalyticsCategory_rules' - Rules define a Call Analytics category. When creating a new category,+-- you must create between 1 and 20 rules for that category. For each rule,+-- you specify a filter you want applied to the attributes of a call. For+-- example, you can choose a sentiment filter that detects if a customer\'s+-- sentiment was positive during the last 30 seconds of the call.+newCreateCallAnalyticsCategory ::+  -- | 'categoryName'+  Prelude.Text ->+  -- | 'rules'+  Prelude.NonEmpty Rule ->+  CreateCallAnalyticsCategory+newCreateCallAnalyticsCategory pCategoryName_ pRules_ =+  CreateCallAnalyticsCategory'+    { inputType =+        Prelude.Nothing,+      categoryName = pCategoryName_,+      rules = Lens.coerced Lens.# pRules_+    }++-- | Choose whether you want to create a streaming or a batch category for+-- your Call Analytics transcription.+--+-- Specifying @POST_CALL@ assigns your category to batch transcriptions;+-- categories with this input type cannot be applied to streaming+-- (real-time) transcriptions.+--+-- Specifying @REAL_TIME@ assigns your category to streaming+-- transcriptions; categories with this input type cannot be applied to+-- batch (post-call) transcriptions.+--+-- If you do not include @InputType@, your category is created as a batch+-- category by default.+createCallAnalyticsCategory_inputType :: Lens.Lens' CreateCallAnalyticsCategory (Prelude.Maybe InputType)+createCallAnalyticsCategory_inputType = Lens.lens (\CreateCallAnalyticsCategory' {inputType} -> inputType) (\s@CreateCallAnalyticsCategory' {} a -> s {inputType = a} :: CreateCallAnalyticsCategory)++-- | A unique name, chosen by you, for your Call Analytics category. It\'s+-- helpful to use a detailed naming system that will make sense to you in+-- the future. For example, it\'s better to use+-- @sentiment-positive-last30seconds@ for a category over a generic name+-- like @test-category@.+--+-- Category names are case sensitive.+createCallAnalyticsCategory_categoryName :: Lens.Lens' CreateCallAnalyticsCategory Prelude.Text+createCallAnalyticsCategory_categoryName = Lens.lens (\CreateCallAnalyticsCategory' {categoryName} -> categoryName) (\s@CreateCallAnalyticsCategory' {} a -> s {categoryName = a} :: CreateCallAnalyticsCategory)++-- | Rules define a Call Analytics category. When creating a new category,+-- you must create between 1 and 20 rules for that category. For each rule,+-- you specify a filter you want applied to the attributes of a call. For+-- example, you can choose a sentiment filter that detects if a customer\'s+-- sentiment was positive during the last 30 seconds of the call.+createCallAnalyticsCategory_rules :: Lens.Lens' CreateCallAnalyticsCategory (Prelude.NonEmpty Rule)+createCallAnalyticsCategory_rules = Lens.lens (\CreateCallAnalyticsCategory' {rules} -> rules) (\s@CreateCallAnalyticsCategory' {} a -> s {rules = a} :: CreateCallAnalyticsCategory) Prelude.. Lens.coerced++instance Core.AWSRequest CreateCallAnalyticsCategory where+  type+    AWSResponse CreateCallAnalyticsCategory =+      CreateCallAnalyticsCategoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateCallAnalyticsCategoryResponse'+            Prelude.<$> (x Data..?> "CategoryProperties")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateCallAnalyticsCategory where+  hashWithSalt _salt CreateCallAnalyticsCategory' {..} =+    _salt+      `Prelude.hashWithSalt` inputType+      `Prelude.hashWithSalt` categoryName+      `Prelude.hashWithSalt` rules++instance Prelude.NFData CreateCallAnalyticsCategory where+  rnf CreateCallAnalyticsCategory' {..} =+    Prelude.rnf inputType+      `Prelude.seq` Prelude.rnf categoryName+      `Prelude.seq` Prelude.rnf rules++instance Data.ToHeaders CreateCallAnalyticsCategory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Transcribe.CreateCallAnalyticsCategory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateCallAnalyticsCategory where+  toJSON CreateCallAnalyticsCategory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("InputType" Data..=) Prelude.<$> inputType,+            Prelude.Just ("CategoryName" Data..= categoryName),+            Prelude.Just ("Rules" Data..= rules)+          ]+      )++instance Data.ToPath CreateCallAnalyticsCategory where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateCallAnalyticsCategory where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateCallAnalyticsCategoryResponse' smart constructor.+data CreateCallAnalyticsCategoryResponse = CreateCallAnalyticsCategoryResponse'+  { -- | Provides you with the properties of your new category, including its+    -- associated rules.+    categoryProperties :: Prelude.Maybe CategoryProperties,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateCallAnalyticsCategoryResponse' 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:+--+-- 'categoryProperties', 'createCallAnalyticsCategoryResponse_categoryProperties' - Provides you with the properties of your new category, including its+-- associated rules.+--+-- 'httpStatus', 'createCallAnalyticsCategoryResponse_httpStatus' - The response's http status code.+newCreateCallAnalyticsCategoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateCallAnalyticsCategoryResponse+newCreateCallAnalyticsCategoryResponse pHttpStatus_ =+  CreateCallAnalyticsCategoryResponse'+    { categoryProperties =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Provides you with the properties of your new category, including its+-- associated rules.+createCallAnalyticsCategoryResponse_categoryProperties :: Lens.Lens' CreateCallAnalyticsCategoryResponse (Prelude.Maybe CategoryProperties)+createCallAnalyticsCategoryResponse_categoryProperties = Lens.lens (\CreateCallAnalyticsCategoryResponse' {categoryProperties} -> categoryProperties) (\s@CreateCallAnalyticsCategoryResponse' {} a -> s {categoryProperties = a} :: CreateCallAnalyticsCategoryResponse)++-- | The response's http status code.+createCallAnalyticsCategoryResponse_httpStatus :: Lens.Lens' CreateCallAnalyticsCategoryResponse Prelude.Int+createCallAnalyticsCategoryResponse_httpStatus = Lens.lens (\CreateCallAnalyticsCategoryResponse' {httpStatus} -> httpStatus) (\s@CreateCallAnalyticsCategoryResponse' {} a -> s {httpStatus = a} :: CreateCallAnalyticsCategoryResponse)++instance+  Prelude.NFData+    CreateCallAnalyticsCategoryResponse+  where+  rnf CreateCallAnalyticsCategoryResponse' {..} =+    Prelude.rnf categoryProperties+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,428 @@+{-# 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.Transcribe.CreateLanguageModel+-- 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 new custom language model.+--+-- When creating a new custom language model, you must specify:+--+-- -   If you want a Wideband (audio sample rates over 16,000 Hz) or+--     Narrowband (audio sample rates under 16,000 Hz) base model+--+-- -   The location of your training and tuning files (this must be an+--     Amazon S3 URI)+--+-- -   The language of your model+--+-- -   A unique name for your model+module Amazonka.Transcribe.CreateLanguageModel+  ( -- * Creating a Request+    CreateLanguageModel (..),+    newCreateLanguageModel,++    -- * Request Lenses+    createLanguageModel_tags,+    createLanguageModel_languageCode,+    createLanguageModel_baseModelName,+    createLanguageModel_modelName,+    createLanguageModel_inputDataConfig,++    -- * Destructuring the Response+    CreateLanguageModelResponse (..),+    newCreateLanguageModelResponse,++    -- * Response Lenses+    createLanguageModelResponse_baseModelName,+    createLanguageModelResponse_inputDataConfig,+    createLanguageModelResponse_languageCode,+    createLanguageModelResponse_modelName,+    createLanguageModelResponse_modelStatus,+    createLanguageModelResponse_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.Transcribe.Types++-- | /See:/ 'newCreateLanguageModel' smart constructor.+data CreateLanguageModel = CreateLanguageModel'+  { -- | Adds one or more custom tags, each in the form of a key:value pair, to a+    -- new custom language model at the time you create this new model.+    --+    -- To learn more about using tags with Amazon Transcribe, refer to+    -- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+    tags :: Prelude.Maybe (Prelude.NonEmpty Tag),+    -- | The language code that represents the language of your model. Each+    -- custom language model must contain terms in only one language, and the+    -- language you select for your custom language model must match the+    -- language of your training and tuning data.+    --+    -- For a list of supported languages and their associated language codes,+    -- refer to the+    -- <https://docs.aws.amazon.com/transcribe/latest/dg/supported-languages.html Supported languages>+    -- table. Note that US English (@en-US@) is the only language supported+    -- with Amazon Transcribe Medical.+    --+    -- A custom language model can only be used to transcribe files in the same+    -- language as the model. For example, if you create a custom language+    -- model using US English (@en-US@), you can only apply this model to files+    -- that contain English audio.+    languageCode :: CLMLanguageCode,+    -- | The Amazon Transcribe standard language model, or base model, used to+    -- create your custom language model. Amazon Transcribe offers two options+    -- for base models: Wideband and Narrowband.+    --+    -- If the audio you want to transcribe has a sample rate of 16,000 Hz or+    -- greater, choose @WideBand@. To transcribe audio with a sample rate less+    -- than 16,000 Hz, choose @NarrowBand@.+    baseModelName :: BaseModelName,+    -- | A unique name, chosen by you, for your custom language model.+    --+    -- This name is case sensitive, cannot contain spaces, and must be unique+    -- within an Amazon Web Services account. If you try to create a new custom+    -- language model with the same name as an existing custom language model,+    -- you get a @ConflictException@ error.+    modelName :: Prelude.Text,+    -- | Contains the Amazon S3 location of the training data you want to use to+    -- create a new custom language model, and permissions to access this+    -- location.+    --+    -- When using @InputDataConfig@, you must include these sub-parameters:+    -- @S3Uri@, which is the Amazon S3 location of your training data, and+    -- @DataAccessRoleArn@, which is the Amazon Resource Name (ARN) of the role+    -- that has permission to access your specified Amazon S3 location. You can+    -- optionally include @TuningDataS3Uri@, which is the Amazon S3 location of+    -- your tuning data. If you specify different Amazon S3 locations for+    -- training and tuning data, the ARN you use must have permissions to+    -- access both locations.+    inputDataConfig :: InputDataConfig+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLanguageModel' 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', 'createLanguageModel_tags' - Adds one or more custom tags, each in the form of a key:value pair, to a+-- new custom language model at the time you create this new model.+--+-- To learn more about using tags with Amazon Transcribe, refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+--+-- 'languageCode', 'createLanguageModel_languageCode' - The language code that represents the language of your model. Each+-- custom language model must contain terms in only one language, and the+-- language you select for your custom language model must match the+-- language of your training and tuning data.+--+-- For a list of supported languages and their associated language codes,+-- refer to the+-- <https://docs.aws.amazon.com/transcribe/latest/dg/supported-languages.html Supported languages>+-- table. Note that US English (@en-US@) is the only language supported+-- with Amazon Transcribe Medical.+--+-- A custom language model can only be used to transcribe files in the same+-- language as the model. For example, if you create a custom language+-- model using US English (@en-US@), you can only apply this model to files+-- that contain English audio.+--+-- 'baseModelName', 'createLanguageModel_baseModelName' - The Amazon Transcribe standard language model, or base model, used to+-- create your custom language model. Amazon Transcribe offers two options+-- for base models: Wideband and Narrowband.+--+-- If the audio you want to transcribe has a sample rate of 16,000 Hz or+-- greater, choose @WideBand@. To transcribe audio with a sample rate less+-- than 16,000 Hz, choose @NarrowBand@.+--+-- 'modelName', 'createLanguageModel_modelName' - A unique name, chosen by you, for your custom language model.+--+-- This name is case sensitive, cannot contain spaces, and must be unique+-- within an Amazon Web Services account. If you try to create a new custom+-- language model with the same name as an existing custom language model,+-- you get a @ConflictException@ error.+--+-- 'inputDataConfig', 'createLanguageModel_inputDataConfig' - Contains the Amazon S3 location of the training data you want to use to+-- create a new custom language model, and permissions to access this+-- location.+--+-- When using @InputDataConfig@, you must include these sub-parameters:+-- @S3Uri@, which is the Amazon S3 location of your training data, and+-- @DataAccessRoleArn@, which is the Amazon Resource Name (ARN) of the role+-- that has permission to access your specified Amazon S3 location. You can+-- optionally include @TuningDataS3Uri@, which is the Amazon S3 location of+-- your tuning data. If you specify different Amazon S3 locations for+-- training and tuning data, the ARN you use must have permissions to+-- access both locations.+newCreateLanguageModel ::+  -- | 'languageCode'+  CLMLanguageCode ->+  -- | 'baseModelName'+  BaseModelName ->+  -- | 'modelName'+  Prelude.Text ->+  -- | 'inputDataConfig'+  InputDataConfig ->+  CreateLanguageModel+newCreateLanguageModel+  pLanguageCode_+  pBaseModelName_+  pModelName_+  pInputDataConfig_ =+    CreateLanguageModel'+      { tags = Prelude.Nothing,+        languageCode = pLanguageCode_,+        baseModelName = pBaseModelName_,+        modelName = pModelName_,+        inputDataConfig = pInputDataConfig_+      }++-- | Adds one or more custom tags, each in the form of a key:value pair, to a+-- new custom language model at the time you create this new model.+--+-- To learn more about using tags with Amazon Transcribe, refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+createLanguageModel_tags :: Lens.Lens' CreateLanguageModel (Prelude.Maybe (Prelude.NonEmpty Tag))+createLanguageModel_tags = Lens.lens (\CreateLanguageModel' {tags} -> tags) (\s@CreateLanguageModel' {} a -> s {tags = a} :: CreateLanguageModel) Prelude.. Lens.mapping Lens.coerced++-- | The language code that represents the language of your model. Each+-- custom language model must contain terms in only one language, and the+-- language you select for your custom language model must match the+-- language of your training and tuning data.+--+-- For a list of supported languages and their associated language codes,+-- refer to the+-- <https://docs.aws.amazon.com/transcribe/latest/dg/supported-languages.html Supported languages>+-- table. Note that US English (@en-US@) is the only language supported+-- with Amazon Transcribe Medical.+--+-- A custom language model can only be used to transcribe files in the same+-- language as the model. For example, if you create a custom language+-- model using US English (@en-US@), you can only apply this model to files+-- that contain English audio.+createLanguageModel_languageCode :: Lens.Lens' CreateLanguageModel CLMLanguageCode+createLanguageModel_languageCode = Lens.lens (\CreateLanguageModel' {languageCode} -> languageCode) (\s@CreateLanguageModel' {} a -> s {languageCode = a} :: CreateLanguageModel)++-- | The Amazon Transcribe standard language model, or base model, used to+-- create your custom language model. Amazon Transcribe offers two options+-- for base models: Wideband and Narrowband.+--+-- If the audio you want to transcribe has a sample rate of 16,000 Hz or+-- greater, choose @WideBand@. To transcribe audio with a sample rate less+-- than 16,000 Hz, choose @NarrowBand@.+createLanguageModel_baseModelName :: Lens.Lens' CreateLanguageModel BaseModelName+createLanguageModel_baseModelName = Lens.lens (\CreateLanguageModel' {baseModelName} -> baseModelName) (\s@CreateLanguageModel' {} a -> s {baseModelName = a} :: CreateLanguageModel)++-- | A unique name, chosen by you, for your custom language model.+--+-- This name is case sensitive, cannot contain spaces, and must be unique+-- within an Amazon Web Services account. If you try to create a new custom+-- language model with the same name as an existing custom language model,+-- you get a @ConflictException@ error.+createLanguageModel_modelName :: Lens.Lens' CreateLanguageModel Prelude.Text+createLanguageModel_modelName = Lens.lens (\CreateLanguageModel' {modelName} -> modelName) (\s@CreateLanguageModel' {} a -> s {modelName = a} :: CreateLanguageModel)++-- | Contains the Amazon S3 location of the training data you want to use to+-- create a new custom language model, and permissions to access this+-- location.+--+-- When using @InputDataConfig@, you must include these sub-parameters:+-- @S3Uri@, which is the Amazon S3 location of your training data, and+-- @DataAccessRoleArn@, which is the Amazon Resource Name (ARN) of the role+-- that has permission to access your specified Amazon S3 location. You can+-- optionally include @TuningDataS3Uri@, which is the Amazon S3 location of+-- your tuning data. If you specify different Amazon S3 locations for+-- training and tuning data, the ARN you use must have permissions to+-- access both locations.+createLanguageModel_inputDataConfig :: Lens.Lens' CreateLanguageModel InputDataConfig+createLanguageModel_inputDataConfig = Lens.lens (\CreateLanguageModel' {inputDataConfig} -> inputDataConfig) (\s@CreateLanguageModel' {} a -> s {inputDataConfig = a} :: CreateLanguageModel)++instance Core.AWSRequest CreateLanguageModel where+  type+    AWSResponse CreateLanguageModel =+      CreateLanguageModelResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateLanguageModelResponse'+            Prelude.<$> (x Data..?> "BaseModelName")+            Prelude.<*> (x Data..?> "InputDataConfig")+            Prelude.<*> (x Data..?> "LanguageCode")+            Prelude.<*> (x Data..?> "ModelName")+            Prelude.<*> (x Data..?> "ModelStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLanguageModel where+  hashWithSalt _salt CreateLanguageModel' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` baseModelName+      `Prelude.hashWithSalt` modelName+      `Prelude.hashWithSalt` inputDataConfig++instance Prelude.NFData CreateLanguageModel where+  rnf CreateLanguageModel' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf baseModelName+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf inputDataConfig++instance Data.ToHeaders CreateLanguageModel where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Transcribe.CreateLanguageModel" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateLanguageModel where+  toJSON CreateLanguageModel' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("LanguageCode" Data..= languageCode),+            Prelude.Just ("BaseModelName" Data..= baseModelName),+            Prelude.Just ("ModelName" Data..= modelName),+            Prelude.Just+              ("InputDataConfig" Data..= inputDataConfig)+          ]+      )++instance Data.ToPath CreateLanguageModel where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLanguageModel where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateLanguageModelResponse' smart constructor.+data CreateLanguageModelResponse = CreateLanguageModelResponse'+  { -- | The Amazon Transcribe standard language model, or base model, you+    -- specified when creating your custom language model.+    baseModelName :: Prelude.Maybe BaseModelName,+    -- | Lists your data access role ARN (Amazon Resource Name) and the Amazon S3+    -- locations you provided for your training (@S3Uri@) and tuning+    -- (@TuningDataS3Uri@) data.+    inputDataConfig :: Prelude.Maybe InputDataConfig,+    -- | The language code you selected for your custom language model.+    languageCode :: Prelude.Maybe CLMLanguageCode,+    -- | The name of your custom language model.+    modelName :: Prelude.Maybe Prelude.Text,+    -- | The status of your custom language model. When the status displays as+    -- @COMPLETED@, your model is ready to use.+    modelStatus :: Prelude.Maybe ModelStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLanguageModelResponse' 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:+--+-- 'baseModelName', 'createLanguageModelResponse_baseModelName' - The Amazon Transcribe standard language model, or base model, you+-- specified when creating your custom language model.+--+-- 'inputDataConfig', 'createLanguageModelResponse_inputDataConfig' - Lists your data access role ARN (Amazon Resource Name) and the Amazon S3+-- locations you provided for your training (@S3Uri@) and tuning+-- (@TuningDataS3Uri@) data.+--+-- 'languageCode', 'createLanguageModelResponse_languageCode' - The language code you selected for your custom language model.+--+-- 'modelName', 'createLanguageModelResponse_modelName' - The name of your custom language model.+--+-- 'modelStatus', 'createLanguageModelResponse_modelStatus' - The status of your custom language model. When the status displays as+-- @COMPLETED@, your model is ready to use.+--+-- 'httpStatus', 'createLanguageModelResponse_httpStatus' - The response's http status code.+newCreateLanguageModelResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLanguageModelResponse+newCreateLanguageModelResponse pHttpStatus_ =+  CreateLanguageModelResponse'+    { baseModelName =+        Prelude.Nothing,+      inputDataConfig = Prelude.Nothing,+      languageCode = Prelude.Nothing,+      modelName = Prelude.Nothing,+      modelStatus = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Amazon Transcribe standard language model, or base model, you+-- specified when creating your custom language model.+createLanguageModelResponse_baseModelName :: Lens.Lens' CreateLanguageModelResponse (Prelude.Maybe BaseModelName)+createLanguageModelResponse_baseModelName = Lens.lens (\CreateLanguageModelResponse' {baseModelName} -> baseModelName) (\s@CreateLanguageModelResponse' {} a -> s {baseModelName = a} :: CreateLanguageModelResponse)++-- | Lists your data access role ARN (Amazon Resource Name) and the Amazon S3+-- locations you provided for your training (@S3Uri@) and tuning+-- (@TuningDataS3Uri@) data.+createLanguageModelResponse_inputDataConfig :: Lens.Lens' CreateLanguageModelResponse (Prelude.Maybe InputDataConfig)+createLanguageModelResponse_inputDataConfig = Lens.lens (\CreateLanguageModelResponse' {inputDataConfig} -> inputDataConfig) (\s@CreateLanguageModelResponse' {} a -> s {inputDataConfig = a} :: CreateLanguageModelResponse)++-- | The language code you selected for your custom language model.+createLanguageModelResponse_languageCode :: Lens.Lens' CreateLanguageModelResponse (Prelude.Maybe CLMLanguageCode)+createLanguageModelResponse_languageCode = Lens.lens (\CreateLanguageModelResponse' {languageCode} -> languageCode) (\s@CreateLanguageModelResponse' {} a -> s {languageCode = a} :: CreateLanguageModelResponse)++-- | The name of your custom language model.+createLanguageModelResponse_modelName :: Lens.Lens' CreateLanguageModelResponse (Prelude.Maybe Prelude.Text)+createLanguageModelResponse_modelName = Lens.lens (\CreateLanguageModelResponse' {modelName} -> modelName) (\s@CreateLanguageModelResponse' {} a -> s {modelName = a} :: CreateLanguageModelResponse)++-- | The status of your custom language model. When the status displays as+-- @COMPLETED@, your model is ready to use.+createLanguageModelResponse_modelStatus :: Lens.Lens' CreateLanguageModelResponse (Prelude.Maybe ModelStatus)+createLanguageModelResponse_modelStatus = Lens.lens (\CreateLanguageModelResponse' {modelStatus} -> modelStatus) (\s@CreateLanguageModelResponse' {} a -> s {modelStatus = a} :: CreateLanguageModelResponse)++-- | The response's http status code.+createLanguageModelResponse_httpStatus :: Lens.Lens' CreateLanguageModelResponse Prelude.Int+createLanguageModelResponse_httpStatus = Lens.lens (\CreateLanguageModelResponse' {httpStatus} -> httpStatus) (\s@CreateLanguageModelResponse' {} a -> s {httpStatus = a} :: CreateLanguageModelResponse)++instance Prelude.NFData CreateLanguageModelResponse where+  rnf CreateLanguageModelResponse' {..} =+    Prelude.rnf baseModelName+      `Prelude.seq` Prelude.rnf inputDataConfig+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf modelName+      `Prelude.seq` Prelude.rnf modelStatus+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,368 @@+{-# 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.Transcribe.CreateMedicalVocabulary+-- 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 new custom medical vocabulary.+--+-- Before creating a new custom medical vocabulary, you must first upload a+-- text file that contains your new entries, phrases, and terms into an+-- Amazon S3 bucket. Note that this differs from , where you can include a+-- list of terms within your request using the @Phrases@ flag;+-- @CreateMedicalVocabulary@ does not support the @Phrases@ flag.+--+-- Each language has a character set that contains all allowed characters+-- for that specific language. If you use unsupported characters, your+-- custom vocabulary request fails. Refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/charsets.html Character Sets for Custom Vocabularies>+-- to get the character set for your language.+--+-- For more information, see+-- <https://docs.aws.amazon.com/transcribe/latest/dg/custom-vocabulary.html Custom vocabularies>.+module Amazonka.Transcribe.CreateMedicalVocabulary+  ( -- * Creating a Request+    CreateMedicalVocabulary (..),+    newCreateMedicalVocabulary,++    -- * Request Lenses+    createMedicalVocabulary_tags,+    createMedicalVocabulary_vocabularyName,+    createMedicalVocabulary_languageCode,+    createMedicalVocabulary_vocabularyFileUri,++    -- * Destructuring the Response+    CreateMedicalVocabularyResponse (..),+    newCreateMedicalVocabularyResponse,++    -- * Response Lenses+    createMedicalVocabularyResponse_failureReason,+    createMedicalVocabularyResponse_languageCode,+    createMedicalVocabularyResponse_lastModifiedTime,+    createMedicalVocabularyResponse_vocabularyName,+    createMedicalVocabularyResponse_vocabularyState,+    createMedicalVocabularyResponse_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.Transcribe.Types++-- | /See:/ 'newCreateMedicalVocabulary' smart constructor.+data CreateMedicalVocabulary = CreateMedicalVocabulary'+  { -- | Adds one or more custom tags, each in the form of a key:value pair, to a+    -- new custom medical vocabulary at the time you create this new custom+    -- vocabulary.+    --+    -- To learn more about using tags with Amazon Transcribe, refer to+    -- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+    tags :: Prelude.Maybe (Prelude.NonEmpty Tag),+    -- | A unique name, chosen by you, for your new custom medical vocabulary.+    --+    -- This name is case sensitive, cannot contain spaces, and must be unique+    -- within an Amazon Web Services account. If you try to create a new custom+    -- medical vocabulary with the same name as an existing custom medical+    -- vocabulary, you get a @ConflictException@ error.+    vocabularyName :: Prelude.Text,+    -- | The language code that represents the language of the entries in your+    -- custom vocabulary. US English (@en-US@) is the only language supported+    -- with Amazon Transcribe Medical.+    languageCode :: LanguageCode,+    -- | The Amazon S3 location (URI) of the text file that contains your custom+    -- medical vocabulary. The URI must be in the same Amazon Web Services+    -- Region as the resource you\'re calling.+    --+    -- Here\'s an example URI path:+    -- @s3:\/\/DOC-EXAMPLE-BUCKET\/my-vocab-file.txt@+    vocabularyFileUri :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateMedicalVocabulary' 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', 'createMedicalVocabulary_tags' - Adds one or more custom tags, each in the form of a key:value pair, to a+-- new custom medical vocabulary at the time you create this new custom+-- vocabulary.+--+-- To learn more about using tags with Amazon Transcribe, refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+--+-- 'vocabularyName', 'createMedicalVocabulary_vocabularyName' - A unique name, chosen by you, for your new custom medical vocabulary.+--+-- This name is case sensitive, cannot contain spaces, and must be unique+-- within an Amazon Web Services account. If you try to create a new custom+-- medical vocabulary with the same name as an existing custom medical+-- vocabulary, you get a @ConflictException@ error.+--+-- 'languageCode', 'createMedicalVocabulary_languageCode' - The language code that represents the language of the entries in your+-- custom vocabulary. US English (@en-US@) is the only language supported+-- with Amazon Transcribe Medical.+--+-- 'vocabularyFileUri', 'createMedicalVocabulary_vocabularyFileUri' - The Amazon S3 location (URI) of the text file that contains your custom+-- medical vocabulary. The URI must be in the same Amazon Web Services+-- Region as the resource you\'re calling.+--+-- Here\'s an example URI path:+-- @s3:\/\/DOC-EXAMPLE-BUCKET\/my-vocab-file.txt@+newCreateMedicalVocabulary ::+  -- | 'vocabularyName'+  Prelude.Text ->+  -- | 'languageCode'+  LanguageCode ->+  -- | 'vocabularyFileUri'+  Prelude.Text ->+  CreateMedicalVocabulary+newCreateMedicalVocabulary+  pVocabularyName_+  pLanguageCode_+  pVocabularyFileUri_ =+    CreateMedicalVocabulary'+      { tags = Prelude.Nothing,+        vocabularyName = pVocabularyName_,+        languageCode = pLanguageCode_,+        vocabularyFileUri = pVocabularyFileUri_+      }++-- | Adds one or more custom tags, each in the form of a key:value pair, to a+-- new custom medical vocabulary at the time you create this new custom+-- vocabulary.+--+-- To learn more about using tags with Amazon Transcribe, refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+createMedicalVocabulary_tags :: Lens.Lens' CreateMedicalVocabulary (Prelude.Maybe (Prelude.NonEmpty Tag))+createMedicalVocabulary_tags = Lens.lens (\CreateMedicalVocabulary' {tags} -> tags) (\s@CreateMedicalVocabulary' {} a -> s {tags = a} :: CreateMedicalVocabulary) Prelude.. Lens.mapping Lens.coerced++-- | A unique name, chosen by you, for your new custom medical vocabulary.+--+-- This name is case sensitive, cannot contain spaces, and must be unique+-- within an Amazon Web Services account. If you try to create a new custom+-- medical vocabulary with the same name as an existing custom medical+-- vocabulary, you get a @ConflictException@ error.+createMedicalVocabulary_vocabularyName :: Lens.Lens' CreateMedicalVocabulary Prelude.Text+createMedicalVocabulary_vocabularyName = Lens.lens (\CreateMedicalVocabulary' {vocabularyName} -> vocabularyName) (\s@CreateMedicalVocabulary' {} a -> s {vocabularyName = a} :: CreateMedicalVocabulary)++-- | The language code that represents the language of the entries in your+-- custom vocabulary. US English (@en-US@) is the only language supported+-- with Amazon Transcribe Medical.+createMedicalVocabulary_languageCode :: Lens.Lens' CreateMedicalVocabulary LanguageCode+createMedicalVocabulary_languageCode = Lens.lens (\CreateMedicalVocabulary' {languageCode} -> languageCode) (\s@CreateMedicalVocabulary' {} a -> s {languageCode = a} :: CreateMedicalVocabulary)++-- | The Amazon S3 location (URI) of the text file that contains your custom+-- medical vocabulary. The URI must be in the same Amazon Web Services+-- Region as the resource you\'re calling.+--+-- Here\'s an example URI path:+-- @s3:\/\/DOC-EXAMPLE-BUCKET\/my-vocab-file.txt@+createMedicalVocabulary_vocabularyFileUri :: Lens.Lens' CreateMedicalVocabulary Prelude.Text+createMedicalVocabulary_vocabularyFileUri = Lens.lens (\CreateMedicalVocabulary' {vocabularyFileUri} -> vocabularyFileUri) (\s@CreateMedicalVocabulary' {} a -> s {vocabularyFileUri = a} :: CreateMedicalVocabulary)++instance Core.AWSRequest CreateMedicalVocabulary where+  type+    AWSResponse CreateMedicalVocabulary =+      CreateMedicalVocabularyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateMedicalVocabularyResponse'+            Prelude.<$> (x Data..?> "FailureReason")+            Prelude.<*> (x Data..?> "LanguageCode")+            Prelude.<*> (x Data..?> "LastModifiedTime")+            Prelude.<*> (x Data..?> "VocabularyName")+            Prelude.<*> (x Data..?> "VocabularyState")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateMedicalVocabulary where+  hashWithSalt _salt CreateMedicalVocabulary' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` vocabularyName+      `Prelude.hashWithSalt` languageCode+      `Prelude.hashWithSalt` vocabularyFileUri++instance Prelude.NFData CreateMedicalVocabulary where+  rnf CreateMedicalVocabulary' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf vocabularyName+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf vocabularyFileUri++instance Data.ToHeaders CreateMedicalVocabulary where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Transcribe.CreateMedicalVocabulary" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateMedicalVocabulary where+  toJSON CreateMedicalVocabulary' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just+              ("VocabularyName" Data..= vocabularyName),+            Prelude.Just ("LanguageCode" Data..= languageCode),+            Prelude.Just+              ("VocabularyFileUri" Data..= vocabularyFileUri)+          ]+      )++instance Data.ToPath CreateMedicalVocabulary where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateMedicalVocabulary where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateMedicalVocabularyResponse' smart constructor.+data CreateMedicalVocabularyResponse = CreateMedicalVocabularyResponse'+  { -- | If @VocabularyState@ is @FAILED@, @FailureReason@ contains information+    -- about why the medical transcription job request failed. See also:+    -- <https://docs.aws.amazon.com/transcribe/latest/APIReference/CommonErrors.html Common Errors>.+    failureReason :: Prelude.Maybe Prelude.Text,+    -- | The language code you selected for your custom medical vocabulary. US+    -- English (@en-US@) is the only language supported with Amazon Transcribe+    -- Medical.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | The date and time you created your custom medical vocabulary.+    --+    -- Timestamps are in the format @YYYY-MM-DD\'T\'HH:MM:SS.SSSSSS-UTC@. For+    -- example, @2022-05-04T12:32:58.761000-07:00@ represents 12:32 PM UTC-7 on+    -- May 4, 2022.+    lastModifiedTime :: Prelude.Maybe Data.POSIX,+    -- | The name you chose for your custom medical vocabulary.+    vocabularyName :: Prelude.Maybe Prelude.Text,+    -- | The processing state of your custom medical vocabulary. If the state is+    -- @READY@, you can use the custom vocabulary in a+    -- @StartMedicalTranscriptionJob@ request.+    vocabularyState :: Prelude.Maybe VocabularyState,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateMedicalVocabularyResponse' 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:+--+-- 'failureReason', 'createMedicalVocabularyResponse_failureReason' - If @VocabularyState@ is @FAILED@, @FailureReason@ contains information+-- about why the medical transcription job request failed. See also:+-- <https://docs.aws.amazon.com/transcribe/latest/APIReference/CommonErrors.html Common Errors>.+--+-- 'languageCode', 'createMedicalVocabularyResponse_languageCode' - The language code you selected for your custom medical vocabulary. US+-- English (@en-US@) is the only language supported with Amazon Transcribe+-- Medical.+--+-- 'lastModifiedTime', 'createMedicalVocabularyResponse_lastModifiedTime' - The date and time you created your custom medical vocabulary.+--+-- Timestamps are in the format @YYYY-MM-DD\'T\'HH:MM:SS.SSSSSS-UTC@. For+-- example, @2022-05-04T12:32:58.761000-07:00@ represents 12:32 PM UTC-7 on+-- May 4, 2022.+--+-- 'vocabularyName', 'createMedicalVocabularyResponse_vocabularyName' - The name you chose for your custom medical vocabulary.+--+-- 'vocabularyState', 'createMedicalVocabularyResponse_vocabularyState' - The processing state of your custom medical vocabulary. If the state is+-- @READY@, you can use the custom vocabulary in a+-- @StartMedicalTranscriptionJob@ request.+--+-- 'httpStatus', 'createMedicalVocabularyResponse_httpStatus' - The response's http status code.+newCreateMedicalVocabularyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateMedicalVocabularyResponse+newCreateMedicalVocabularyResponse pHttpStatus_ =+  CreateMedicalVocabularyResponse'+    { failureReason =+        Prelude.Nothing,+      languageCode = Prelude.Nothing,+      lastModifiedTime = Prelude.Nothing,+      vocabularyName = Prelude.Nothing,+      vocabularyState = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If @VocabularyState@ is @FAILED@, @FailureReason@ contains information+-- about why the medical transcription job request failed. See also:+-- <https://docs.aws.amazon.com/transcribe/latest/APIReference/CommonErrors.html Common Errors>.+createMedicalVocabularyResponse_failureReason :: Lens.Lens' CreateMedicalVocabularyResponse (Prelude.Maybe Prelude.Text)+createMedicalVocabularyResponse_failureReason = Lens.lens (\CreateMedicalVocabularyResponse' {failureReason} -> failureReason) (\s@CreateMedicalVocabularyResponse' {} a -> s {failureReason = a} :: CreateMedicalVocabularyResponse)++-- | The language code you selected for your custom medical vocabulary. US+-- English (@en-US@) is the only language supported with Amazon Transcribe+-- Medical.+createMedicalVocabularyResponse_languageCode :: Lens.Lens' CreateMedicalVocabularyResponse (Prelude.Maybe LanguageCode)+createMedicalVocabularyResponse_languageCode = Lens.lens (\CreateMedicalVocabularyResponse' {languageCode} -> languageCode) (\s@CreateMedicalVocabularyResponse' {} a -> s {languageCode = a} :: CreateMedicalVocabularyResponse)++-- | The date and time you created your custom medical vocabulary.+--+-- Timestamps are in the format @YYYY-MM-DD\'T\'HH:MM:SS.SSSSSS-UTC@. For+-- example, @2022-05-04T12:32:58.761000-07:00@ represents 12:32 PM UTC-7 on+-- May 4, 2022.+createMedicalVocabularyResponse_lastModifiedTime :: Lens.Lens' CreateMedicalVocabularyResponse (Prelude.Maybe Prelude.UTCTime)+createMedicalVocabularyResponse_lastModifiedTime = Lens.lens (\CreateMedicalVocabularyResponse' {lastModifiedTime} -> lastModifiedTime) (\s@CreateMedicalVocabularyResponse' {} a -> s {lastModifiedTime = a} :: CreateMedicalVocabularyResponse) Prelude.. Lens.mapping Data._Time++-- | The name you chose for your custom medical vocabulary.+createMedicalVocabularyResponse_vocabularyName :: Lens.Lens' CreateMedicalVocabularyResponse (Prelude.Maybe Prelude.Text)+createMedicalVocabularyResponse_vocabularyName = Lens.lens (\CreateMedicalVocabularyResponse' {vocabularyName} -> vocabularyName) (\s@CreateMedicalVocabularyResponse' {} a -> s {vocabularyName = a} :: CreateMedicalVocabularyResponse)++-- | The processing state of your custom medical vocabulary. If the state is+-- @READY@, you can use the custom vocabulary in a+-- @StartMedicalTranscriptionJob@ request.+createMedicalVocabularyResponse_vocabularyState :: Lens.Lens' CreateMedicalVocabularyResponse (Prelude.Maybe VocabularyState)+createMedicalVocabularyResponse_vocabularyState = Lens.lens (\CreateMedicalVocabularyResponse' {vocabularyState} -> vocabularyState) (\s@CreateMedicalVocabularyResponse' {} a -> s {vocabularyState = a} :: CreateMedicalVocabularyResponse)++-- | The response's http status code.+createMedicalVocabularyResponse_httpStatus :: Lens.Lens' CreateMedicalVocabularyResponse Prelude.Int+createMedicalVocabularyResponse_httpStatus = Lens.lens (\CreateMedicalVocabularyResponse' {httpStatus} -> httpStatus) (\s@CreateMedicalVocabularyResponse' {} a -> s {httpStatus = a} :: CreateMedicalVocabularyResponse)++instance+  Prelude.NFData+    CreateMedicalVocabularyResponse+  where+  rnf CreateMedicalVocabularyResponse' {..} =+    Prelude.rnf failureReason+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf lastModifiedTime+      `Prelude.seq` Prelude.rnf vocabularyName+      `Prelude.seq` Prelude.rnf vocabularyState+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,441 @@+{-# 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.Transcribe.CreateVocabulary+-- 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 new custom vocabulary.+--+-- When creating a new custom vocabulary, you can either upload a text file+-- that contains your new entries, phrases, and terms into an Amazon S3+-- bucket and include the URI in your request. Or you can include a list of+-- terms directly in your request using the @Phrases@ flag.+--+-- Each language has a character set that contains all allowed characters+-- for that specific language. If you use unsupported characters, your+-- custom vocabulary request fails. Refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/charsets.html Character Sets for Custom Vocabularies>+-- to get the character set for your language.+--+-- For more information, see+-- <https://docs.aws.amazon.com/transcribe/latest/dg/custom-vocabulary.html Custom vocabularies>.+module Amazonka.Transcribe.CreateVocabulary+  ( -- * Creating a Request+    CreateVocabulary (..),+    newCreateVocabulary,++    -- * Request Lenses+    createVocabulary_phrases,+    createVocabulary_tags,+    createVocabulary_vocabularyFileUri,+    createVocabulary_vocabularyName,+    createVocabulary_languageCode,++    -- * Destructuring the Response+    CreateVocabularyResponse (..),+    newCreateVocabularyResponse,++    -- * Response Lenses+    createVocabularyResponse_failureReason,+    createVocabularyResponse_languageCode,+    createVocabularyResponse_lastModifiedTime,+    createVocabularyResponse_vocabularyName,+    createVocabularyResponse_vocabularyState,+    createVocabularyResponse_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.Transcribe.Types++-- | /See:/ 'newCreateVocabulary' smart constructor.+data CreateVocabulary = CreateVocabulary'+  { -- | Use this parameter if you want to create your custom vocabulary by+    -- including all desired terms, as comma-separated values, within your+    -- request. The other option for creating your custom vocabulary is to save+    -- your entries in a text file and upload them to an Amazon S3 bucket, then+    -- specify the location of your file using the @VocabularyFileUri@+    -- parameter.+    --+    -- Note that if you include @Phrases@ in your request, you cannot use+    -- @VocabularyFileUri@; you must choose one or the other.+    --+    -- Each language has a character set that contains all allowed characters+    -- for that specific language. If you use unsupported characters, your+    -- custom vocabulary filter request fails. Refer to+    -- <https://docs.aws.amazon.com/transcribe/latest/dg/charsets.html Character Sets for Custom Vocabularies>+    -- to get the character set for your language.+    phrases :: Prelude.Maybe [Prelude.Text],+    -- | Adds one or more custom tags, each in the form of a key:value pair, to a+    -- new custom vocabulary at the time you create this new custom vocabulary.+    --+    -- To learn more about using tags with Amazon Transcribe, refer to+    -- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+    tags :: Prelude.Maybe (Prelude.NonEmpty Tag),+    -- | The Amazon S3 location of the text file that contains your custom+    -- vocabulary. The URI must be located in the same Amazon Web Services+    -- Region as the resource you\'re calling.+    --+    -- Here\'s an example URI path:+    -- @s3:\/\/DOC-EXAMPLE-BUCKET\/my-vocab-file.txt@+    --+    -- Note that if you include @VocabularyFileUri@ in your request, you cannot+    -- use the @Phrases@ flag; you must choose one or the other.+    vocabularyFileUri :: Prelude.Maybe Prelude.Text,+    -- | A unique name, chosen by you, for your new custom vocabulary.+    --+    -- This name is case sensitive, cannot contain spaces, and must be unique+    -- within an Amazon Web Services account. If you try to create a new custom+    -- vocabulary with the same name as an existing custom vocabulary, you get+    -- a @ConflictException@ error.+    vocabularyName :: Prelude.Text,+    -- | The language code that represents the language of the entries in your+    -- custom vocabulary. Each custom vocabulary must contain terms in only one+    -- language.+    --+    -- A custom vocabulary can only be used to transcribe files in the same+    -- language as the custom vocabulary. For example, if you create a custom+    -- vocabulary using US English (@en-US@), you can only apply this custom+    -- vocabulary to files that contain English audio.+    --+    -- For a list of supported languages and their associated language codes,+    -- refer to the+    -- <https://docs.aws.amazon.com/transcribe/latest/dg/supported-languages.html Supported languages>+    -- table.+    languageCode :: LanguageCode+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateVocabulary' 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:+--+-- 'phrases', 'createVocabulary_phrases' - Use this parameter if you want to create your custom vocabulary by+-- including all desired terms, as comma-separated values, within your+-- request. The other option for creating your custom vocabulary is to save+-- your entries in a text file and upload them to an Amazon S3 bucket, then+-- specify the location of your file using the @VocabularyFileUri@+-- parameter.+--+-- Note that if you include @Phrases@ in your request, you cannot use+-- @VocabularyFileUri@; you must choose one or the other.+--+-- Each language has a character set that contains all allowed characters+-- for that specific language. If you use unsupported characters, your+-- custom vocabulary filter request fails. Refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/charsets.html Character Sets for Custom Vocabularies>+-- to get the character set for your language.+--+-- 'tags', 'createVocabulary_tags' - Adds one or more custom tags, each in the form of a key:value pair, to a+-- new custom vocabulary at the time you create this new custom vocabulary.+--+-- To learn more about using tags with Amazon Transcribe, refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+--+-- 'vocabularyFileUri', 'createVocabulary_vocabularyFileUri' - The Amazon S3 location of the text file that contains your custom+-- vocabulary. The URI must be located in the same Amazon Web Services+-- Region as the resource you\'re calling.+--+-- Here\'s an example URI path:+-- @s3:\/\/DOC-EXAMPLE-BUCKET\/my-vocab-file.txt@+--+-- Note that if you include @VocabularyFileUri@ in your request, you cannot+-- use the @Phrases@ flag; you must choose one or the other.+--+-- 'vocabularyName', 'createVocabulary_vocabularyName' - A unique name, chosen by you, for your new custom vocabulary.+--+-- This name is case sensitive, cannot contain spaces, and must be unique+-- within an Amazon Web Services account. If you try to create a new custom+-- vocabulary with the same name as an existing custom vocabulary, you get+-- a @ConflictException@ error.+--+-- 'languageCode', 'createVocabulary_languageCode' - The language code that represents the language of the entries in your+-- custom vocabulary. Each custom vocabulary must contain terms in only one+-- language.+--+-- A custom vocabulary can only be used to transcribe files in the same+-- language as the custom vocabulary. For example, if you create a custom+-- vocabulary using US English (@en-US@), you can only apply this custom+-- vocabulary to files that contain English audio.+--+-- For a list of supported languages and their associated language codes,+-- refer to the+-- <https://docs.aws.amazon.com/transcribe/latest/dg/supported-languages.html Supported languages>+-- table.+newCreateVocabulary ::+  -- | 'vocabularyName'+  Prelude.Text ->+  -- | 'languageCode'+  LanguageCode ->+  CreateVocabulary+newCreateVocabulary pVocabularyName_ pLanguageCode_ =+  CreateVocabulary'+    { phrases = Prelude.Nothing,+      tags = Prelude.Nothing,+      vocabularyFileUri = Prelude.Nothing,+      vocabularyName = pVocabularyName_,+      languageCode = pLanguageCode_+    }++-- | Use this parameter if you want to create your custom vocabulary by+-- including all desired terms, as comma-separated values, within your+-- request. The other option for creating your custom vocabulary is to save+-- your entries in a text file and upload them to an Amazon S3 bucket, then+-- specify the location of your file using the @VocabularyFileUri@+-- parameter.+--+-- Note that if you include @Phrases@ in your request, you cannot use+-- @VocabularyFileUri@; you must choose one or the other.+--+-- Each language has a character set that contains all allowed characters+-- for that specific language. If you use unsupported characters, your+-- custom vocabulary filter request fails. Refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/charsets.html Character Sets for Custom Vocabularies>+-- to get the character set for your language.+createVocabulary_phrases :: Lens.Lens' CreateVocabulary (Prelude.Maybe [Prelude.Text])+createVocabulary_phrases = Lens.lens (\CreateVocabulary' {phrases} -> phrases) (\s@CreateVocabulary' {} a -> s {phrases = a} :: CreateVocabulary) Prelude.. Lens.mapping Lens.coerced++-- | Adds one or more custom tags, each in the form of a key:value pair, to a+-- new custom vocabulary at the time you create this new custom vocabulary.+--+-- To learn more about using tags with Amazon Transcribe, refer to+-- <https://docs.aws.amazon.com/transcribe/latest/dg/tagging.html Tagging resources>.+createVocabulary_tags :: Lens.Lens' CreateVocabulary (Prelude.Maybe (Prelude.NonEmpty Tag))+createVocabulary_tags = Lens.lens (\CreateVocabulary' {tags} -> tags) (\s@CreateVocabulary' {} a -> s {tags = a} :: CreateVocabulary) Prelude.. Lens.mapping Lens.coerced++-- | The Amazon S3 location of the text file that contains your custom+-- vocabulary. The URI must be located in the same Amazon Web Services+-- Region as the resource you\'re calling.+--+-- Here\'s an example URI path:+-- @s3:\/\/DOC-EXAMPLE-BUCKET\/my-vocab-file.txt@+--+-- Note that if you include @VocabularyFileUri@ in your request, you cannot+-- use the @Phrases@ flag; you must choose one or the other.+createVocabulary_vocabularyFileUri :: Lens.Lens' CreateVocabulary (Prelude.Maybe Prelude.Text)+createVocabulary_vocabularyFileUri = Lens.lens (\CreateVocabulary' {vocabularyFileUri} -> vocabularyFileUri) (\s@CreateVocabulary' {} a -> s {vocabularyFileUri = a} :: CreateVocabulary)++-- | A unique name, chosen by you, for your new custom vocabulary.+--+-- This name is case sensitive, cannot contain spaces, and must be unique+-- within an Amazon Web Services account. If you try to create a new custom+-- vocabulary with the same name as an existing custom vocabulary, you get+-- a @ConflictException@ error.+createVocabulary_vocabularyName :: Lens.Lens' CreateVocabulary Prelude.Text+createVocabulary_vocabularyName = Lens.lens (\CreateVocabulary' {vocabularyName} -> vocabularyName) (\s@CreateVocabulary' {} a -> s {vocabularyName = a} :: CreateVocabulary)++-- | The language code that represents the language of the entries in your+-- custom vocabulary. Each custom vocabulary must contain terms in only one+-- language.+--+-- A custom vocabulary can only be used to transcribe files in the same+-- language as the custom vocabulary. For example, if you create a custom+-- vocabulary using US English (@en-US@), you can only apply this custom+-- vocabulary to files that contain English audio.+--+-- For a list of supported languages and their associated language codes,+-- refer to the+-- <https://docs.aws.amazon.com/transcribe/latest/dg/supported-languages.html Supported languages>+-- table.+createVocabulary_languageCode :: Lens.Lens' CreateVocabulary LanguageCode+createVocabulary_languageCode = Lens.lens (\CreateVocabulary' {languageCode} -> languageCode) (\s@CreateVocabulary' {} a -> s {languageCode = a} :: CreateVocabulary)++instance Core.AWSRequest CreateVocabulary where+  type+    AWSResponse CreateVocabulary =+      CreateVocabularyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateVocabularyResponse'+            Prelude.<$> (x Data..?> "FailureReason")+            Prelude.<*> (x Data..?> "LanguageCode")+            Prelude.<*> (x Data..?> "LastModifiedTime")+            Prelude.<*> (x Data..?> "VocabularyName")+            Prelude.<*> (x Data..?> "VocabularyState")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateVocabulary where+  hashWithSalt _salt CreateVocabulary' {..} =+    _salt+      `Prelude.hashWithSalt` phrases+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` vocabularyFileUri+      `Prelude.hashWithSalt` vocabularyName+      `Prelude.hashWithSalt` languageCode++instance Prelude.NFData CreateVocabulary where+  rnf CreateVocabulary' {..} =+    Prelude.rnf phrases+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf vocabularyFileUri+      `Prelude.seq` Prelude.rnf vocabularyName+      `Prelude.seq` Prelude.rnf languageCode++instance Data.ToHeaders CreateVocabulary where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "Transcribe.CreateVocabulary" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateVocabulary where+  toJSON CreateVocabulary' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Phrases" Data..=) Prelude.<$> phrases,+            ("Tags" Data..=) Prelude.<$> tags,+            ("VocabularyFileUri" Data..=)+              Prelude.<$> vocabularyFileUri,+            Prelude.Just+              ("VocabularyName" Data..= vocabularyName),+            Prelude.Just ("LanguageCode" Data..= languageCode)+          ]+      )++instance Data.ToPath CreateVocabulary where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateVocabulary where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateVocabularyResponse' smart constructor.+data CreateVocabularyResponse = CreateVocabularyResponse'+  { -- | If @VocabularyState@ is @FAILED@, @FailureReason@ contains information+    -- about why the custom vocabulary request failed. See also:+    -- <https://docs.aws.amazon.com/transcribe/latest/APIReference/CommonErrors.html Common Errors>.+    failureReason :: Prelude.Maybe Prelude.Text,+    -- | The language code you selected for your custom vocabulary.+    languageCode :: Prelude.Maybe LanguageCode,+    -- | The date and time you created your custom vocabulary.+    --+    -- Timestamps are in the format @YYYY-MM-DD\'T\'HH:MM:SS.SSSSSS-UTC@. For+    -- example, @2022-05-04T12:32:58.761000-07:00@ represents 12:32 PM UTC-7 on+    -- May 4, 2022.+    lastModifiedTime :: Prelude.Maybe Data.POSIX,+    -- | The name you chose for your custom vocabulary.+    vocabularyName :: Prelude.Maybe Prelude.Text,+    -- | The processing state of your custom vocabulary. If the state is @READY@,+    -- you can use the custom vocabulary in a @StartTranscriptionJob@ request.+    vocabularyState :: Prelude.Maybe VocabularyState,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateVocabularyResponse' 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:+--+-- 'failureReason', 'createVocabularyResponse_failureReason' - If @VocabularyState@ is @FAILED@, @FailureReason@ contains information+-- about why the custom vocabulary request failed. See also:+-- <https://docs.aws.amazon.com/transcribe/latest/APIReference/CommonErrors.html Common Errors>.+--+-- 'languageCode', 'createVocabularyResponse_languageCode' - The language code you selected for your custom vocabulary.+--+-- 'lastModifiedTime', 'createVocabularyResponse_lastModifiedTime' - The date and time you created your custom vocabulary.+--+-- Timestamps are in the format @YYYY-MM-DD\'T\'HH:MM:SS.SSSSSS-UTC@. For+-- example, @2022-05-04T12:32:58.761000-07:00@ represents 12:32 PM UTC-7 on+-- May 4, 2022.+--+-- 'vocabularyName', 'createVocabularyResponse_vocabularyName' - The name you chose for your custom vocabulary.+--+-- 'vocabularyState', 'createVocabularyResponse_vocabularyState' - The processing state of your custom vocabulary. If the state is @READY@,+-- you can use the custom vocabulary in a @StartTranscriptionJob@ request.+--+-- 'httpStatus', 'createVocabularyResponse_httpStatus' - The response's http status code.+newCreateVocabularyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateVocabularyResponse+newCreateVocabularyResponse pHttpStatus_ =+  CreateVocabularyResponse'+    { failureReason =+        Prelude.Nothing,+      languageCode = Prelude.Nothing,+      lastModifiedTime = Prelude.Nothing,+      vocabularyName = Prelude.Nothing,+      vocabularyState = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If @VocabularyState@ is @FAILED@, @FailureReason@ contains information+-- about why the custom vocabulary request failed. See also:+-- <https://docs.aws.amazon.com/transcribe/latest/APIReference/CommonErrors.html Common Errors>.+createVocabularyResponse_failureReason :: Lens.Lens' CreateVocabularyResponse (Prelude.Maybe Prelude.Text)+createVocabularyResponse_failureReason = Lens.lens (\CreateVocabularyResponse' {failureReason} -> failureReason) (\s@CreateVocabularyResponse' {} a -> s {failureReason = a} :: CreateVocabularyResponse)++-- | The language code you selected for your custom vocabulary.+createVocabularyResponse_languageCode :: Lens.Lens' CreateVocabularyResponse (Prelude.Maybe LanguageCode)+createVocabularyResponse_languageCode = Lens.lens (\CreateVocabularyResponse' {languageCode} -> languageCode) (\s@CreateVocabularyResponse' {} a -> s {languageCode = a} :: CreateVocabularyResponse)++-- | The date and time you created your custom vocabulary.+--+-- Timestamps are in the format @YYYY-MM-DD\'T\'HH:MM:SS.SSSSSS-UTC@. For+-- example, @2022-05-04T12:32:58.761000-07:00@ represents 12:32 PM UTC-7 on+-- May 4, 2022.+createVocabularyResponse_lastModifiedTime :: Lens.Lens' CreateVocabularyResponse (Prelude.Maybe Prelude.UTCTime)+createVocabularyResponse_lastModifiedTime = Lens.lens (\CreateVocabularyResponse' {lastModifiedTime} -> lastModifiedTime) (\s@CreateVocabularyResponse' {} a -> s {lastModifiedTime = a} :: CreateVocabularyResponse) Prelude.. Lens.mapping Data._Time++-- | The name you chose for your custom vocabulary.+createVocabularyResponse_vocabularyName :: Lens.Lens' CreateVocabularyResponse (Prelude.Maybe Prelude.Text)+createVocabularyResponse_vocabularyName = Lens.lens (\CreateVocabularyResponse' {vocabularyName} -> vocabularyName) (\s@CreateVocabularyResponse' {} a -> s {vocabularyName = a} :: CreateVocabularyResponse)++-- | The processing state of your custom vocabulary. If the state is @READY@,+-- you can use the custom vocabulary in a @StartTranscriptionJob@ request.+createVocabularyResponse_vocabularyState :: Lens.Lens' CreateVocabularyResponse (Prelude.Maybe VocabularyState)+createVocabularyResponse_vocabularyState = Lens.lens (\CreateVocabularyResponse' {vocabularyState} -> vocabularyState) (\s@CreateVocabularyResponse' {} a -> s {vocabularyState = a} :: CreateVocabularyResponse)++-- | The response's http status code.+createVocabularyResponse_httpStatus :: Lens.Lens' CreateVocabularyResponse Prelude.Int+createVocabularyResponse_httpStatus = Lens.lens (\CreateVocabularyResponse' {httpStatus} -> httpStatus) (\s@CreateVocabularyResponse' {} a -> s {httpStatus = a} :: CreateVocabularyResponse)++instance Prelude.NFData CreateVocabularyResponse where+  rnf CreateVocabularyResponse' {..} =+    Prelude.rnf failureReason+      `Prelude.seq` Prelude.rnf languageCode+      `Prelude.seq` Prelude.rnf lastModifiedTime+      `Prelude.seq` Prelude.rnf vocabularyName+      `Prelude.seq` Prelude.rnf vocabularyState+      `Prelude.seq` Prelude.rnf httpStatus