{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.Chime.Types.EngineTranscribeMedicalSettings
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.Chime.Types.EngineTranscribeMedicalSettings where

import Amazonka.Chime.Types.TranscribeMedicalLanguageCode
import Amazonka.Chime.Types.TranscribeMedicalRegion
import Amazonka.Chime.Types.TranscribeMedicalSpecialty
import Amazonka.Chime.Types.TranscribeMedicalType
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude

-- | Settings specific to the Amazon Transcribe Medical engine.
--
-- /See:/ 'newEngineTranscribeMedicalSettings' smart constructor.
data EngineTranscribeMedicalSettings = EngineTranscribeMedicalSettings'
  { -- | The name of the vocabulary passed to Amazon Transcribe Medical.
    EngineTranscribeMedicalSettings -> Maybe Text
vocabularyName :: Prelude.Maybe Prelude.Text,
    -- | The AWS Region passed to Amazon Transcribe Medical. If you don\'t
    -- specify a Region, Amazon Chime uses the meeting\'s Region.
    EngineTranscribeMedicalSettings -> Maybe TranscribeMedicalRegion
region :: Prelude.Maybe TranscribeMedicalRegion,
    -- | The language code specified for the Amazon Transcribe Medical engine.
    EngineTranscribeMedicalSettings -> TranscribeMedicalLanguageCode
languageCode :: TranscribeMedicalLanguageCode,
    -- | The specialty specified for the Amazon Transcribe Medical engine.
    EngineTranscribeMedicalSettings -> TranscribeMedicalSpecialty
specialty :: TranscribeMedicalSpecialty,
    -- | The type of transcription.
    EngineTranscribeMedicalSettings -> TranscribeMedicalType
type' :: TranscribeMedicalType
  }
  deriving (EngineTranscribeMedicalSettings
-> EngineTranscribeMedicalSettings -> Bool
(EngineTranscribeMedicalSettings
 -> EngineTranscribeMedicalSettings -> Bool)
-> (EngineTranscribeMedicalSettings
    -> EngineTranscribeMedicalSettings -> Bool)
-> Eq EngineTranscribeMedicalSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EngineTranscribeMedicalSettings
-> EngineTranscribeMedicalSettings -> Bool
$c/= :: EngineTranscribeMedicalSettings
-> EngineTranscribeMedicalSettings -> Bool
== :: EngineTranscribeMedicalSettings
-> EngineTranscribeMedicalSettings -> Bool
$c== :: EngineTranscribeMedicalSettings
-> EngineTranscribeMedicalSettings -> Bool
Prelude.Eq, ReadPrec [EngineTranscribeMedicalSettings]
ReadPrec EngineTranscribeMedicalSettings
Int -> ReadS EngineTranscribeMedicalSettings
ReadS [EngineTranscribeMedicalSettings]
(Int -> ReadS EngineTranscribeMedicalSettings)
-> ReadS [EngineTranscribeMedicalSettings]
-> ReadPrec EngineTranscribeMedicalSettings
-> ReadPrec [EngineTranscribeMedicalSettings]
-> Read EngineTranscribeMedicalSettings
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [EngineTranscribeMedicalSettings]
$creadListPrec :: ReadPrec [EngineTranscribeMedicalSettings]
readPrec :: ReadPrec EngineTranscribeMedicalSettings
$creadPrec :: ReadPrec EngineTranscribeMedicalSettings
readList :: ReadS [EngineTranscribeMedicalSettings]
$creadList :: ReadS [EngineTranscribeMedicalSettings]
readsPrec :: Int -> ReadS EngineTranscribeMedicalSettings
$creadsPrec :: Int -> ReadS EngineTranscribeMedicalSettings
Prelude.Read, Int -> EngineTranscribeMedicalSettings -> ShowS
[EngineTranscribeMedicalSettings] -> ShowS
EngineTranscribeMedicalSettings -> String
(Int -> EngineTranscribeMedicalSettings -> ShowS)
-> (EngineTranscribeMedicalSettings -> String)
-> ([EngineTranscribeMedicalSettings] -> ShowS)
-> Show EngineTranscribeMedicalSettings
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EngineTranscribeMedicalSettings] -> ShowS
$cshowList :: [EngineTranscribeMedicalSettings] -> ShowS
show :: EngineTranscribeMedicalSettings -> String
$cshow :: EngineTranscribeMedicalSettings -> String
showsPrec :: Int -> EngineTranscribeMedicalSettings -> ShowS
$cshowsPrec :: Int -> EngineTranscribeMedicalSettings -> ShowS
Prelude.Show, (forall x.
 EngineTranscribeMedicalSettings
 -> Rep EngineTranscribeMedicalSettings x)
-> (forall x.
    Rep EngineTranscribeMedicalSettings x
    -> EngineTranscribeMedicalSettings)
-> Generic EngineTranscribeMedicalSettings
forall x.
Rep EngineTranscribeMedicalSettings x
-> EngineTranscribeMedicalSettings
forall x.
EngineTranscribeMedicalSettings
-> Rep EngineTranscribeMedicalSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep EngineTranscribeMedicalSettings x
-> EngineTranscribeMedicalSettings
$cfrom :: forall x.
EngineTranscribeMedicalSettings
-> Rep EngineTranscribeMedicalSettings x
Prelude.Generic)

-- |
-- Create a value of 'EngineTranscribeMedicalSettings' 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:
--
-- 'vocabularyName', 'engineTranscribeMedicalSettings_vocabularyName' - The name of the vocabulary passed to Amazon Transcribe Medical.
--
-- 'region', 'engineTranscribeMedicalSettings_region' - The AWS Region passed to Amazon Transcribe Medical. If you don\'t
-- specify a Region, Amazon Chime uses the meeting\'s Region.
--
-- 'languageCode', 'engineTranscribeMedicalSettings_languageCode' - The language code specified for the Amazon Transcribe Medical engine.
--
-- 'specialty', 'engineTranscribeMedicalSettings_specialty' - The specialty specified for the Amazon Transcribe Medical engine.
--
-- 'type'', 'engineTranscribeMedicalSettings_type' - The type of transcription.
newEngineTranscribeMedicalSettings ::
  -- | 'languageCode'
  TranscribeMedicalLanguageCode ->
  -- | 'specialty'
  TranscribeMedicalSpecialty ->
  -- | 'type''
  TranscribeMedicalType ->
  EngineTranscribeMedicalSettings
newEngineTranscribeMedicalSettings :: TranscribeMedicalLanguageCode
-> TranscribeMedicalSpecialty
-> TranscribeMedicalType
-> EngineTranscribeMedicalSettings
newEngineTranscribeMedicalSettings
  TranscribeMedicalLanguageCode
pLanguageCode_
  TranscribeMedicalSpecialty
pSpecialty_
  TranscribeMedicalType
pType_ =
    EngineTranscribeMedicalSettings' :: Maybe Text
-> Maybe TranscribeMedicalRegion
-> TranscribeMedicalLanguageCode
-> TranscribeMedicalSpecialty
-> TranscribeMedicalType
-> EngineTranscribeMedicalSettings
EngineTranscribeMedicalSettings'
      { $sel:vocabularyName:EngineTranscribeMedicalSettings' :: Maybe Text
vocabularyName =
          Maybe Text
forall a. Maybe a
Prelude.Nothing,
        $sel:region:EngineTranscribeMedicalSettings' :: Maybe TranscribeMedicalRegion
region = Maybe TranscribeMedicalRegion
forall a. Maybe a
Prelude.Nothing,
        $sel:languageCode:EngineTranscribeMedicalSettings' :: TranscribeMedicalLanguageCode
languageCode = TranscribeMedicalLanguageCode
pLanguageCode_,
        $sel:specialty:EngineTranscribeMedicalSettings' :: TranscribeMedicalSpecialty
specialty = TranscribeMedicalSpecialty
pSpecialty_,
        $sel:type':EngineTranscribeMedicalSettings' :: TranscribeMedicalType
type' = TranscribeMedicalType
pType_
      }

-- | The name of the vocabulary passed to Amazon Transcribe Medical.
engineTranscribeMedicalSettings_vocabularyName :: Lens.Lens' EngineTranscribeMedicalSettings (Prelude.Maybe Prelude.Text)
engineTranscribeMedicalSettings_vocabularyName :: (Maybe Text -> f (Maybe Text))
-> EngineTranscribeMedicalSettings
-> f EngineTranscribeMedicalSettings
engineTranscribeMedicalSettings_vocabularyName = (EngineTranscribeMedicalSettings -> Maybe Text)
-> (EngineTranscribeMedicalSettings
    -> Maybe Text -> EngineTranscribeMedicalSettings)
-> Lens
     EngineTranscribeMedicalSettings
     EngineTranscribeMedicalSettings
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EngineTranscribeMedicalSettings' {Maybe Text
vocabularyName :: Maybe Text
$sel:vocabularyName:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> Maybe Text
vocabularyName} -> Maybe Text
vocabularyName) (\s :: EngineTranscribeMedicalSettings
s@EngineTranscribeMedicalSettings' {} Maybe Text
a -> EngineTranscribeMedicalSettings
s {$sel:vocabularyName:EngineTranscribeMedicalSettings' :: Maybe Text
vocabularyName = Maybe Text
a} :: EngineTranscribeMedicalSettings)

-- | The AWS Region passed to Amazon Transcribe Medical. If you don\'t
-- specify a Region, Amazon Chime uses the meeting\'s Region.
engineTranscribeMedicalSettings_region :: Lens.Lens' EngineTranscribeMedicalSettings (Prelude.Maybe TranscribeMedicalRegion)
engineTranscribeMedicalSettings_region :: (Maybe TranscribeMedicalRegion
 -> f (Maybe TranscribeMedicalRegion))
-> EngineTranscribeMedicalSettings
-> f EngineTranscribeMedicalSettings
engineTranscribeMedicalSettings_region = (EngineTranscribeMedicalSettings -> Maybe TranscribeMedicalRegion)
-> (EngineTranscribeMedicalSettings
    -> Maybe TranscribeMedicalRegion
    -> EngineTranscribeMedicalSettings)
-> Lens
     EngineTranscribeMedicalSettings
     EngineTranscribeMedicalSettings
     (Maybe TranscribeMedicalRegion)
     (Maybe TranscribeMedicalRegion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EngineTranscribeMedicalSettings' {Maybe TranscribeMedicalRegion
region :: Maybe TranscribeMedicalRegion
$sel:region:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> Maybe TranscribeMedicalRegion
region} -> Maybe TranscribeMedicalRegion
region) (\s :: EngineTranscribeMedicalSettings
s@EngineTranscribeMedicalSettings' {} Maybe TranscribeMedicalRegion
a -> EngineTranscribeMedicalSettings
s {$sel:region:EngineTranscribeMedicalSettings' :: Maybe TranscribeMedicalRegion
region = Maybe TranscribeMedicalRegion
a} :: EngineTranscribeMedicalSettings)

-- | The language code specified for the Amazon Transcribe Medical engine.
engineTranscribeMedicalSettings_languageCode :: Lens.Lens' EngineTranscribeMedicalSettings TranscribeMedicalLanguageCode
engineTranscribeMedicalSettings_languageCode :: (TranscribeMedicalLanguageCode -> f TranscribeMedicalLanguageCode)
-> EngineTranscribeMedicalSettings
-> f EngineTranscribeMedicalSettings
engineTranscribeMedicalSettings_languageCode = (EngineTranscribeMedicalSettings -> TranscribeMedicalLanguageCode)
-> (EngineTranscribeMedicalSettings
    -> TranscribeMedicalLanguageCode
    -> EngineTranscribeMedicalSettings)
-> Lens
     EngineTranscribeMedicalSettings
     EngineTranscribeMedicalSettings
     TranscribeMedicalLanguageCode
     TranscribeMedicalLanguageCode
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EngineTranscribeMedicalSettings' {TranscribeMedicalLanguageCode
languageCode :: TranscribeMedicalLanguageCode
$sel:languageCode:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> TranscribeMedicalLanguageCode
languageCode} -> TranscribeMedicalLanguageCode
languageCode) (\s :: EngineTranscribeMedicalSettings
s@EngineTranscribeMedicalSettings' {} TranscribeMedicalLanguageCode
a -> EngineTranscribeMedicalSettings
s {$sel:languageCode:EngineTranscribeMedicalSettings' :: TranscribeMedicalLanguageCode
languageCode = TranscribeMedicalLanguageCode
a} :: EngineTranscribeMedicalSettings)

-- | The specialty specified for the Amazon Transcribe Medical engine.
engineTranscribeMedicalSettings_specialty :: Lens.Lens' EngineTranscribeMedicalSettings TranscribeMedicalSpecialty
engineTranscribeMedicalSettings_specialty :: (TranscribeMedicalSpecialty -> f TranscribeMedicalSpecialty)
-> EngineTranscribeMedicalSettings
-> f EngineTranscribeMedicalSettings
engineTranscribeMedicalSettings_specialty = (EngineTranscribeMedicalSettings -> TranscribeMedicalSpecialty)
-> (EngineTranscribeMedicalSettings
    -> TranscribeMedicalSpecialty -> EngineTranscribeMedicalSettings)
-> Lens
     EngineTranscribeMedicalSettings
     EngineTranscribeMedicalSettings
     TranscribeMedicalSpecialty
     TranscribeMedicalSpecialty
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EngineTranscribeMedicalSettings' {TranscribeMedicalSpecialty
specialty :: TranscribeMedicalSpecialty
$sel:specialty:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> TranscribeMedicalSpecialty
specialty} -> TranscribeMedicalSpecialty
specialty) (\s :: EngineTranscribeMedicalSettings
s@EngineTranscribeMedicalSettings' {} TranscribeMedicalSpecialty
a -> EngineTranscribeMedicalSettings
s {$sel:specialty:EngineTranscribeMedicalSettings' :: TranscribeMedicalSpecialty
specialty = TranscribeMedicalSpecialty
a} :: EngineTranscribeMedicalSettings)

-- | The type of transcription.
engineTranscribeMedicalSettings_type :: Lens.Lens' EngineTranscribeMedicalSettings TranscribeMedicalType
engineTranscribeMedicalSettings_type :: (TranscribeMedicalType -> f TranscribeMedicalType)
-> EngineTranscribeMedicalSettings
-> f EngineTranscribeMedicalSettings
engineTranscribeMedicalSettings_type = (EngineTranscribeMedicalSettings -> TranscribeMedicalType)
-> (EngineTranscribeMedicalSettings
    -> TranscribeMedicalType -> EngineTranscribeMedicalSettings)
-> Lens
     EngineTranscribeMedicalSettings
     EngineTranscribeMedicalSettings
     TranscribeMedicalType
     TranscribeMedicalType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\EngineTranscribeMedicalSettings' {TranscribeMedicalType
type' :: TranscribeMedicalType
$sel:type':EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> TranscribeMedicalType
type'} -> TranscribeMedicalType
type') (\s :: EngineTranscribeMedicalSettings
s@EngineTranscribeMedicalSettings' {} TranscribeMedicalType
a -> EngineTranscribeMedicalSettings
s {$sel:type':EngineTranscribeMedicalSettings' :: TranscribeMedicalType
type' = TranscribeMedicalType
a} :: EngineTranscribeMedicalSettings)

instance
  Prelude.Hashable
    EngineTranscribeMedicalSettings

instance
  Prelude.NFData
    EngineTranscribeMedicalSettings

instance Core.ToJSON EngineTranscribeMedicalSettings where
  toJSON :: EngineTranscribeMedicalSettings -> Value
toJSON EngineTranscribeMedicalSettings' {Maybe Text
Maybe TranscribeMedicalRegion
TranscribeMedicalLanguageCode
TranscribeMedicalSpecialty
TranscribeMedicalType
type' :: TranscribeMedicalType
specialty :: TranscribeMedicalSpecialty
languageCode :: TranscribeMedicalLanguageCode
region :: Maybe TranscribeMedicalRegion
vocabularyName :: Maybe Text
$sel:type':EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> TranscribeMedicalType
$sel:specialty:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> TranscribeMedicalSpecialty
$sel:languageCode:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> TranscribeMedicalLanguageCode
$sel:region:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> Maybe TranscribeMedicalRegion
$sel:vocabularyName:EngineTranscribeMedicalSettings' :: EngineTranscribeMedicalSettings -> Maybe Text
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"VocabularyName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
vocabularyName,
            (Text
"Region" Text -> TranscribeMedicalRegion -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (TranscribeMedicalRegion -> Pair)
-> Maybe TranscribeMedicalRegion -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TranscribeMedicalRegion
region,
            Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"LanguageCode" Text -> TranscribeMedicalLanguageCode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= TranscribeMedicalLanguageCode
languageCode),
            Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"Specialty" Text -> TranscribeMedicalSpecialty -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= TranscribeMedicalSpecialty
specialty),
            Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"Type" Text -> TranscribeMedicalType -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= TranscribeMedicalType
type')
          ]
      )