{-# 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 #-}
module Amazonka.Transcribe.DeleteLanguageModel
(
DeleteLanguageModel (..),
newDeleteLanguageModel,
deleteLanguageModel_modelName,
DeleteLanguageModelResponse (..),
newDeleteLanguageModelResponse,
)
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
data DeleteLanguageModel = DeleteLanguageModel'
{
DeleteLanguageModel -> Text
modelName :: Prelude.Text
}
deriving (DeleteLanguageModel -> DeleteLanguageModel -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteLanguageModel -> DeleteLanguageModel -> Bool
$c/= :: DeleteLanguageModel -> DeleteLanguageModel -> Bool
== :: DeleteLanguageModel -> DeleteLanguageModel -> Bool
$c== :: DeleteLanguageModel -> DeleteLanguageModel -> Bool
Prelude.Eq, ReadPrec [DeleteLanguageModel]
ReadPrec DeleteLanguageModel
Int -> ReadS DeleteLanguageModel
ReadS [DeleteLanguageModel]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteLanguageModel]
$creadListPrec :: ReadPrec [DeleteLanguageModel]
readPrec :: ReadPrec DeleteLanguageModel
$creadPrec :: ReadPrec DeleteLanguageModel
readList :: ReadS [DeleteLanguageModel]
$creadList :: ReadS [DeleteLanguageModel]
readsPrec :: Int -> ReadS DeleteLanguageModel
$creadsPrec :: Int -> ReadS DeleteLanguageModel
Prelude.Read, Int -> DeleteLanguageModel -> ShowS
[DeleteLanguageModel] -> ShowS
DeleteLanguageModel -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteLanguageModel] -> ShowS
$cshowList :: [DeleteLanguageModel] -> ShowS
show :: DeleteLanguageModel -> String
$cshow :: DeleteLanguageModel -> String
showsPrec :: Int -> DeleteLanguageModel -> ShowS
$cshowsPrec :: Int -> DeleteLanguageModel -> ShowS
Prelude.Show, forall x. Rep DeleteLanguageModel x -> DeleteLanguageModel
forall x. DeleteLanguageModel -> Rep DeleteLanguageModel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteLanguageModel x -> DeleteLanguageModel
$cfrom :: forall x. DeleteLanguageModel -> Rep DeleteLanguageModel x
Prelude.Generic)
newDeleteLanguageModel ::
Prelude.Text ->
DeleteLanguageModel
newDeleteLanguageModel :: Text -> DeleteLanguageModel
newDeleteLanguageModel Text
pModelName_ =
DeleteLanguageModel' {$sel:modelName:DeleteLanguageModel' :: Text
modelName = Text
pModelName_}
deleteLanguageModel_modelName :: Lens.Lens' DeleteLanguageModel Prelude.Text
deleteLanguageModel_modelName :: Lens' DeleteLanguageModel Text
deleteLanguageModel_modelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLanguageModel' {Text
modelName :: Text
$sel:modelName:DeleteLanguageModel' :: DeleteLanguageModel -> Text
modelName} -> Text
modelName) (\s :: DeleteLanguageModel
s@DeleteLanguageModel' {} Text
a -> DeleteLanguageModel
s {$sel:modelName:DeleteLanguageModel' :: Text
modelName = Text
a} :: DeleteLanguageModel)
instance Core.AWSRequest DeleteLanguageModel where
type
AWSResponse DeleteLanguageModel =
DeleteLanguageModelResponse
request :: (Service -> Service)
-> DeleteLanguageModel -> Request DeleteLanguageModel
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteLanguageModel
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteLanguageModel)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteLanguageModelResponse
DeleteLanguageModelResponse'
instance Prelude.Hashable DeleteLanguageModel where
hashWithSalt :: Int -> DeleteLanguageModel -> Int
hashWithSalt Int
_salt DeleteLanguageModel' {Text
modelName :: Text
$sel:modelName:DeleteLanguageModel' :: DeleteLanguageModel -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelName
instance Prelude.NFData DeleteLanguageModel where
rnf :: DeleteLanguageModel -> ()
rnf DeleteLanguageModel' {Text
modelName :: Text
$sel:modelName:DeleteLanguageModel' :: DeleteLanguageModel -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
modelName
instance Data.ToHeaders DeleteLanguageModel where
toHeaders :: DeleteLanguageModel -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"Transcribe.DeleteLanguageModel" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteLanguageModel where
toJSON :: DeleteLanguageModel -> Value
toJSON DeleteLanguageModel' {Text
modelName :: Text
$sel:modelName:DeleteLanguageModel' :: DeleteLanguageModel -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"ModelName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
modelName)]
)
instance Data.ToPath DeleteLanguageModel where
toPath :: DeleteLanguageModel -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteLanguageModel where
toQuery :: DeleteLanguageModel -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteLanguageModelResponse = DeleteLanguageModelResponse'
{
}
deriving (DeleteLanguageModelResponse -> DeleteLanguageModelResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteLanguageModelResponse -> DeleteLanguageModelResponse -> Bool
$c/= :: DeleteLanguageModelResponse -> DeleteLanguageModelResponse -> Bool
== :: DeleteLanguageModelResponse -> DeleteLanguageModelResponse -> Bool
$c== :: DeleteLanguageModelResponse -> DeleteLanguageModelResponse -> Bool
Prelude.Eq, ReadPrec [DeleteLanguageModelResponse]
ReadPrec DeleteLanguageModelResponse
Int -> ReadS DeleteLanguageModelResponse
ReadS [DeleteLanguageModelResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteLanguageModelResponse]
$creadListPrec :: ReadPrec [DeleteLanguageModelResponse]
readPrec :: ReadPrec DeleteLanguageModelResponse
$creadPrec :: ReadPrec DeleteLanguageModelResponse
readList :: ReadS [DeleteLanguageModelResponse]
$creadList :: ReadS [DeleteLanguageModelResponse]
readsPrec :: Int -> ReadS DeleteLanguageModelResponse
$creadsPrec :: Int -> ReadS DeleteLanguageModelResponse
Prelude.Read, Int -> DeleteLanguageModelResponse -> ShowS
[DeleteLanguageModelResponse] -> ShowS
DeleteLanguageModelResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteLanguageModelResponse] -> ShowS
$cshowList :: [DeleteLanguageModelResponse] -> ShowS
show :: DeleteLanguageModelResponse -> String
$cshow :: DeleteLanguageModelResponse -> String
showsPrec :: Int -> DeleteLanguageModelResponse -> ShowS
$cshowsPrec :: Int -> DeleteLanguageModelResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteLanguageModelResponse x -> DeleteLanguageModelResponse
forall x.
DeleteLanguageModelResponse -> Rep DeleteLanguageModelResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteLanguageModelResponse x -> DeleteLanguageModelResponse
$cfrom :: forall x.
DeleteLanguageModelResponse -> Rep DeleteLanguageModelResponse x
Prelude.Generic)
newDeleteLanguageModelResponse ::
DeleteLanguageModelResponse
newDeleteLanguageModelResponse :: DeleteLanguageModelResponse
newDeleteLanguageModelResponse =
DeleteLanguageModelResponse
DeleteLanguageModelResponse'
instance Prelude.NFData DeleteLanguageModelResponse where
rnf :: DeleteLanguageModelResponse -> ()
rnf DeleteLanguageModelResponse
_ = ()