{-# 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.DescribeLanguageModel
(
DescribeLanguageModel (..),
newDescribeLanguageModel,
describeLanguageModel_modelName,
DescribeLanguageModelResponse (..),
newDescribeLanguageModelResponse,
describeLanguageModelResponse_languageModel,
describeLanguageModelResponse_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
data DescribeLanguageModel = DescribeLanguageModel'
{
DescribeLanguageModel -> Text
modelName :: Prelude.Text
}
deriving (DescribeLanguageModel -> DescribeLanguageModel -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeLanguageModel -> DescribeLanguageModel -> Bool
$c/= :: DescribeLanguageModel -> DescribeLanguageModel -> Bool
== :: DescribeLanguageModel -> DescribeLanguageModel -> Bool
$c== :: DescribeLanguageModel -> DescribeLanguageModel -> Bool
Prelude.Eq, ReadPrec [DescribeLanguageModel]
ReadPrec DescribeLanguageModel
Int -> ReadS DescribeLanguageModel
ReadS [DescribeLanguageModel]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeLanguageModel]
$creadListPrec :: ReadPrec [DescribeLanguageModel]
readPrec :: ReadPrec DescribeLanguageModel
$creadPrec :: ReadPrec DescribeLanguageModel
readList :: ReadS [DescribeLanguageModel]
$creadList :: ReadS [DescribeLanguageModel]
readsPrec :: Int -> ReadS DescribeLanguageModel
$creadsPrec :: Int -> ReadS DescribeLanguageModel
Prelude.Read, Int -> DescribeLanguageModel -> ShowS
[DescribeLanguageModel] -> ShowS
DescribeLanguageModel -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeLanguageModel] -> ShowS
$cshowList :: [DescribeLanguageModel] -> ShowS
show :: DescribeLanguageModel -> String
$cshow :: DescribeLanguageModel -> String
showsPrec :: Int -> DescribeLanguageModel -> ShowS
$cshowsPrec :: Int -> DescribeLanguageModel -> ShowS
Prelude.Show, forall x. Rep DescribeLanguageModel x -> DescribeLanguageModel
forall x. DescribeLanguageModel -> Rep DescribeLanguageModel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeLanguageModel x -> DescribeLanguageModel
$cfrom :: forall x. DescribeLanguageModel -> Rep DescribeLanguageModel x
Prelude.Generic)
newDescribeLanguageModel ::
Prelude.Text ->
DescribeLanguageModel
newDescribeLanguageModel :: Text -> DescribeLanguageModel
newDescribeLanguageModel Text
pModelName_ =
DescribeLanguageModel' {$sel:modelName:DescribeLanguageModel' :: Text
modelName = Text
pModelName_}
describeLanguageModel_modelName :: Lens.Lens' DescribeLanguageModel Prelude.Text
describeLanguageModel_modelName :: Lens' DescribeLanguageModel Text
describeLanguageModel_modelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLanguageModel' {Text
modelName :: Text
$sel:modelName:DescribeLanguageModel' :: DescribeLanguageModel -> Text
modelName} -> Text
modelName) (\s :: DescribeLanguageModel
s@DescribeLanguageModel' {} Text
a -> DescribeLanguageModel
s {$sel:modelName:DescribeLanguageModel' :: Text
modelName = Text
a} :: DescribeLanguageModel)
instance Core.AWSRequest DescribeLanguageModel where
type
AWSResponse DescribeLanguageModel =
DescribeLanguageModelResponse
request :: (Service -> Service)
-> DescribeLanguageModel -> Request DescribeLanguageModel
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 DescribeLanguageModel
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeLanguageModel)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe LanguageModel -> Int -> DescribeLanguageModelResponse
DescribeLanguageModelResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LanguageModel")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeLanguageModel where
hashWithSalt :: Int -> DescribeLanguageModel -> Int
hashWithSalt Int
_salt DescribeLanguageModel' {Text
modelName :: Text
$sel:modelName:DescribeLanguageModel' :: DescribeLanguageModel -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelName
instance Prelude.NFData DescribeLanguageModel where
rnf :: DescribeLanguageModel -> ()
rnf DescribeLanguageModel' {Text
modelName :: Text
$sel:modelName:DescribeLanguageModel' :: DescribeLanguageModel -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
modelName
instance Data.ToHeaders DescribeLanguageModel where
toHeaders :: DescribeLanguageModel -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"Transcribe.DescribeLanguageModel" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeLanguageModel where
toJSON :: DescribeLanguageModel -> Value
toJSON DescribeLanguageModel' {Text
modelName :: Text
$sel:modelName:DescribeLanguageModel' :: DescribeLanguageModel -> 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 DescribeLanguageModel where
toPath :: DescribeLanguageModel -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeLanguageModel where
toQuery :: DescribeLanguageModel -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeLanguageModelResponse = DescribeLanguageModelResponse'
{
DescribeLanguageModelResponse -> Maybe LanguageModel
languageModel :: Prelude.Maybe LanguageModel,
DescribeLanguageModelResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeLanguageModelResponse
-> DescribeLanguageModelResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeLanguageModelResponse
-> DescribeLanguageModelResponse -> Bool
$c/= :: DescribeLanguageModelResponse
-> DescribeLanguageModelResponse -> Bool
== :: DescribeLanguageModelResponse
-> DescribeLanguageModelResponse -> Bool
$c== :: DescribeLanguageModelResponse
-> DescribeLanguageModelResponse -> Bool
Prelude.Eq, ReadPrec [DescribeLanguageModelResponse]
ReadPrec DescribeLanguageModelResponse
Int -> ReadS DescribeLanguageModelResponse
ReadS [DescribeLanguageModelResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeLanguageModelResponse]
$creadListPrec :: ReadPrec [DescribeLanguageModelResponse]
readPrec :: ReadPrec DescribeLanguageModelResponse
$creadPrec :: ReadPrec DescribeLanguageModelResponse
readList :: ReadS [DescribeLanguageModelResponse]
$creadList :: ReadS [DescribeLanguageModelResponse]
readsPrec :: Int -> ReadS DescribeLanguageModelResponse
$creadsPrec :: Int -> ReadS DescribeLanguageModelResponse
Prelude.Read, Int -> DescribeLanguageModelResponse -> ShowS
[DescribeLanguageModelResponse] -> ShowS
DescribeLanguageModelResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeLanguageModelResponse] -> ShowS
$cshowList :: [DescribeLanguageModelResponse] -> ShowS
show :: DescribeLanguageModelResponse -> String
$cshow :: DescribeLanguageModelResponse -> String
showsPrec :: Int -> DescribeLanguageModelResponse -> ShowS
$cshowsPrec :: Int -> DescribeLanguageModelResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeLanguageModelResponse x
-> DescribeLanguageModelResponse
forall x.
DescribeLanguageModelResponse
-> Rep DescribeLanguageModelResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeLanguageModelResponse x
-> DescribeLanguageModelResponse
$cfrom :: forall x.
DescribeLanguageModelResponse
-> Rep DescribeLanguageModelResponse x
Prelude.Generic)
newDescribeLanguageModelResponse ::
Prelude.Int ->
DescribeLanguageModelResponse
newDescribeLanguageModelResponse :: Int -> DescribeLanguageModelResponse
newDescribeLanguageModelResponse Int
pHttpStatus_ =
DescribeLanguageModelResponse'
{ $sel:languageModel:DescribeLanguageModelResponse' :: Maybe LanguageModel
languageModel =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeLanguageModelResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeLanguageModelResponse_languageModel :: Lens.Lens' DescribeLanguageModelResponse (Prelude.Maybe LanguageModel)
describeLanguageModelResponse_languageModel :: Lens' DescribeLanguageModelResponse (Maybe LanguageModel)
describeLanguageModelResponse_languageModel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLanguageModelResponse' {Maybe LanguageModel
languageModel :: Maybe LanguageModel
$sel:languageModel:DescribeLanguageModelResponse' :: DescribeLanguageModelResponse -> Maybe LanguageModel
languageModel} -> Maybe LanguageModel
languageModel) (\s :: DescribeLanguageModelResponse
s@DescribeLanguageModelResponse' {} Maybe LanguageModel
a -> DescribeLanguageModelResponse
s {$sel:languageModel:DescribeLanguageModelResponse' :: Maybe LanguageModel
languageModel = Maybe LanguageModel
a} :: DescribeLanguageModelResponse)
describeLanguageModelResponse_httpStatus :: Lens.Lens' DescribeLanguageModelResponse Prelude.Int
describeLanguageModelResponse_httpStatus :: Lens' DescribeLanguageModelResponse Int
describeLanguageModelResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLanguageModelResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeLanguageModelResponse' :: DescribeLanguageModelResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeLanguageModelResponse
s@DescribeLanguageModelResponse' {} Int
a -> DescribeLanguageModelResponse
s {$sel:httpStatus:DescribeLanguageModelResponse' :: Int
httpStatus = Int
a} :: DescribeLanguageModelResponse)
instance Prelude.NFData DescribeLanguageModelResponse where
rnf :: DescribeLanguageModelResponse -> ()
rnf DescribeLanguageModelResponse' {Int
Maybe LanguageModel
httpStatus :: Int
languageModel :: Maybe LanguageModel
$sel:httpStatus:DescribeLanguageModelResponse' :: DescribeLanguageModelResponse -> Int
$sel:languageModel:DescribeLanguageModelResponse' :: DescribeLanguageModelResponse -> Maybe LanguageModel
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe LanguageModel
languageModel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus