{-# 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.Translate.ListLanguages
(
ListLanguages (..),
newListLanguages,
listLanguages_displayLanguageCode,
listLanguages_maxResults,
listLanguages_nextToken,
ListLanguagesResponse (..),
newListLanguagesResponse,
listLanguagesResponse_displayLanguageCode,
listLanguagesResponse_languages,
listLanguagesResponse_nextToken,
listLanguagesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Translate.Types
data ListLanguages = ListLanguages'
{
ListLanguages -> Maybe DisplayLanguageCode
displayLanguageCode :: Prelude.Maybe DisplayLanguageCode,
ListLanguages -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListLanguages -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (ListLanguages -> ListLanguages -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListLanguages -> ListLanguages -> Bool
$c/= :: ListLanguages -> ListLanguages -> Bool
== :: ListLanguages -> ListLanguages -> Bool
$c== :: ListLanguages -> ListLanguages -> Bool
Prelude.Eq, ReadPrec [ListLanguages]
ReadPrec ListLanguages
Int -> ReadS ListLanguages
ReadS [ListLanguages]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListLanguages]
$creadListPrec :: ReadPrec [ListLanguages]
readPrec :: ReadPrec ListLanguages
$creadPrec :: ReadPrec ListLanguages
readList :: ReadS [ListLanguages]
$creadList :: ReadS [ListLanguages]
readsPrec :: Int -> ReadS ListLanguages
$creadsPrec :: Int -> ReadS ListLanguages
Prelude.Read, Int -> ListLanguages -> ShowS
[ListLanguages] -> ShowS
ListLanguages -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListLanguages] -> ShowS
$cshowList :: [ListLanguages] -> ShowS
show :: ListLanguages -> String
$cshow :: ListLanguages -> String
showsPrec :: Int -> ListLanguages -> ShowS
$cshowsPrec :: Int -> ListLanguages -> ShowS
Prelude.Show, forall x. Rep ListLanguages x -> ListLanguages
forall x. ListLanguages -> Rep ListLanguages x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListLanguages x -> ListLanguages
$cfrom :: forall x. ListLanguages -> Rep ListLanguages x
Prelude.Generic)
newListLanguages ::
ListLanguages
newListLanguages :: ListLanguages
newListLanguages =
ListLanguages'
{ $sel:displayLanguageCode:ListLanguages' :: Maybe DisplayLanguageCode
displayLanguageCode =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListLanguages' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListLanguages' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
listLanguages_displayLanguageCode :: Lens.Lens' ListLanguages (Prelude.Maybe DisplayLanguageCode)
listLanguages_displayLanguageCode :: Lens' ListLanguages (Maybe DisplayLanguageCode)
listLanguages_displayLanguageCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguages' {Maybe DisplayLanguageCode
displayLanguageCode :: Maybe DisplayLanguageCode
$sel:displayLanguageCode:ListLanguages' :: ListLanguages -> Maybe DisplayLanguageCode
displayLanguageCode} -> Maybe DisplayLanguageCode
displayLanguageCode) (\s :: ListLanguages
s@ListLanguages' {} Maybe DisplayLanguageCode
a -> ListLanguages
s {$sel:displayLanguageCode:ListLanguages' :: Maybe DisplayLanguageCode
displayLanguageCode = Maybe DisplayLanguageCode
a} :: ListLanguages)
listLanguages_maxResults :: Lens.Lens' ListLanguages (Prelude.Maybe Prelude.Natural)
listLanguages_maxResults :: Lens' ListLanguages (Maybe Natural)
listLanguages_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguages' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListLanguages' :: ListLanguages -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListLanguages
s@ListLanguages' {} Maybe Natural
a -> ListLanguages
s {$sel:maxResults:ListLanguages' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListLanguages)
listLanguages_nextToken :: Lens.Lens' ListLanguages (Prelude.Maybe Prelude.Text)
listLanguages_nextToken :: Lens' ListLanguages (Maybe Text)
listLanguages_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguages' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListLanguages' :: ListLanguages -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListLanguages
s@ListLanguages' {} Maybe Text
a -> ListLanguages
s {$sel:nextToken:ListLanguages' :: Maybe Text
nextToken = Maybe Text
a} :: ListLanguages)
instance Core.AWSRequest ListLanguages where
type
AWSResponse ListLanguages =
ListLanguagesResponse
request :: (Service -> Service) -> ListLanguages -> Request ListLanguages
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 ListLanguages
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListLanguages)))
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 DisplayLanguageCode
-> Maybe [Language] -> Maybe Text -> Int -> ListLanguagesResponse
ListLanguagesResponse'
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
"DisplayLanguageCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Languages" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextToken")
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 ListLanguages where
hashWithSalt :: Int -> ListLanguages -> Int
hashWithSalt Int
_salt ListLanguages' {Maybe Natural
Maybe Text
Maybe DisplayLanguageCode
nextToken :: Maybe Text
maxResults :: Maybe Natural
displayLanguageCode :: Maybe DisplayLanguageCode
$sel:nextToken:ListLanguages' :: ListLanguages -> Maybe Text
$sel:maxResults:ListLanguages' :: ListLanguages -> Maybe Natural
$sel:displayLanguageCode:ListLanguages' :: ListLanguages -> Maybe DisplayLanguageCode
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DisplayLanguageCode
displayLanguageCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData ListLanguages where
rnf :: ListLanguages -> ()
rnf ListLanguages' {Maybe Natural
Maybe Text
Maybe DisplayLanguageCode
nextToken :: Maybe Text
maxResults :: Maybe Natural
displayLanguageCode :: Maybe DisplayLanguageCode
$sel:nextToken:ListLanguages' :: ListLanguages -> Maybe Text
$sel:maxResults:ListLanguages' :: ListLanguages -> Maybe Natural
$sel:displayLanguageCode:ListLanguages' :: ListLanguages -> Maybe DisplayLanguageCode
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DisplayLanguageCode
displayLanguageCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance Data.ToHeaders ListLanguages where
toHeaders :: ListLanguages -> 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
"AWSShineFrontendService_20170701.ListLanguages" ::
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 ListLanguages where
toJSON :: ListLanguages -> Value
toJSON ListLanguages' {Maybe Natural
Maybe Text
Maybe DisplayLanguageCode
nextToken :: Maybe Text
maxResults :: Maybe Natural
displayLanguageCode :: Maybe DisplayLanguageCode
$sel:nextToken:ListLanguages' :: ListLanguages -> Maybe Text
$sel:maxResults:ListLanguages' :: ListLanguages -> Maybe Natural
$sel:displayLanguageCode:ListLanguages' :: ListLanguages -> Maybe DisplayLanguageCode
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DisplayLanguageCode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DisplayLanguageCode
displayLanguageCode,
(Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken
]
)
instance Data.ToPath ListLanguages where
toPath :: ListLanguages -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListLanguages where
toQuery :: ListLanguages -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListLanguagesResponse = ListLanguagesResponse'
{
ListLanguagesResponse -> Maybe DisplayLanguageCode
displayLanguageCode :: Prelude.Maybe DisplayLanguageCode,
ListLanguagesResponse -> Maybe [Language]
languages :: Prelude.Maybe [Language],
ListLanguagesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListLanguagesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListLanguagesResponse -> ListLanguagesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListLanguagesResponse -> ListLanguagesResponse -> Bool
$c/= :: ListLanguagesResponse -> ListLanguagesResponse -> Bool
== :: ListLanguagesResponse -> ListLanguagesResponse -> Bool
$c== :: ListLanguagesResponse -> ListLanguagesResponse -> Bool
Prelude.Eq, ReadPrec [ListLanguagesResponse]
ReadPrec ListLanguagesResponse
Int -> ReadS ListLanguagesResponse
ReadS [ListLanguagesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListLanguagesResponse]
$creadListPrec :: ReadPrec [ListLanguagesResponse]
readPrec :: ReadPrec ListLanguagesResponse
$creadPrec :: ReadPrec ListLanguagesResponse
readList :: ReadS [ListLanguagesResponse]
$creadList :: ReadS [ListLanguagesResponse]
readsPrec :: Int -> ReadS ListLanguagesResponse
$creadsPrec :: Int -> ReadS ListLanguagesResponse
Prelude.Read, Int -> ListLanguagesResponse -> ShowS
[ListLanguagesResponse] -> ShowS
ListLanguagesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListLanguagesResponse] -> ShowS
$cshowList :: [ListLanguagesResponse] -> ShowS
show :: ListLanguagesResponse -> String
$cshow :: ListLanguagesResponse -> String
showsPrec :: Int -> ListLanguagesResponse -> ShowS
$cshowsPrec :: Int -> ListLanguagesResponse -> ShowS
Prelude.Show, forall x. Rep ListLanguagesResponse x -> ListLanguagesResponse
forall x. ListLanguagesResponse -> Rep ListLanguagesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListLanguagesResponse x -> ListLanguagesResponse
$cfrom :: forall x. ListLanguagesResponse -> Rep ListLanguagesResponse x
Prelude.Generic)
newListLanguagesResponse ::
Prelude.Int ->
ListLanguagesResponse
newListLanguagesResponse :: Int -> ListLanguagesResponse
newListLanguagesResponse Int
pHttpStatus_ =
ListLanguagesResponse'
{ $sel:displayLanguageCode:ListLanguagesResponse' :: Maybe DisplayLanguageCode
displayLanguageCode =
forall a. Maybe a
Prelude.Nothing,
$sel:languages:ListLanguagesResponse' :: Maybe [Language]
languages = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListLanguagesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListLanguagesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listLanguagesResponse_displayLanguageCode :: Lens.Lens' ListLanguagesResponse (Prelude.Maybe DisplayLanguageCode)
listLanguagesResponse_displayLanguageCode :: Lens' ListLanguagesResponse (Maybe DisplayLanguageCode)
listLanguagesResponse_displayLanguageCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguagesResponse' {Maybe DisplayLanguageCode
displayLanguageCode :: Maybe DisplayLanguageCode
$sel:displayLanguageCode:ListLanguagesResponse' :: ListLanguagesResponse -> Maybe DisplayLanguageCode
displayLanguageCode} -> Maybe DisplayLanguageCode
displayLanguageCode) (\s :: ListLanguagesResponse
s@ListLanguagesResponse' {} Maybe DisplayLanguageCode
a -> ListLanguagesResponse
s {$sel:displayLanguageCode:ListLanguagesResponse' :: Maybe DisplayLanguageCode
displayLanguageCode = Maybe DisplayLanguageCode
a} :: ListLanguagesResponse)
listLanguagesResponse_languages :: Lens.Lens' ListLanguagesResponse (Prelude.Maybe [Language])
listLanguagesResponse_languages :: Lens' ListLanguagesResponse (Maybe [Language])
listLanguagesResponse_languages = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguagesResponse' {Maybe [Language]
languages :: Maybe [Language]
$sel:languages:ListLanguagesResponse' :: ListLanguagesResponse -> Maybe [Language]
languages} -> Maybe [Language]
languages) (\s :: ListLanguagesResponse
s@ListLanguagesResponse' {} Maybe [Language]
a -> ListLanguagesResponse
s {$sel:languages:ListLanguagesResponse' :: Maybe [Language]
languages = Maybe [Language]
a} :: ListLanguagesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listLanguagesResponse_nextToken :: Lens.Lens' ListLanguagesResponse (Prelude.Maybe Prelude.Text)
listLanguagesResponse_nextToken :: Lens' ListLanguagesResponse (Maybe Text)
listLanguagesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguagesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListLanguagesResponse' :: ListLanguagesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListLanguagesResponse
s@ListLanguagesResponse' {} Maybe Text
a -> ListLanguagesResponse
s {$sel:nextToken:ListLanguagesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListLanguagesResponse)
listLanguagesResponse_httpStatus :: Lens.Lens' ListLanguagesResponse Prelude.Int
listLanguagesResponse_httpStatus :: Lens' ListLanguagesResponse Int
listLanguagesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLanguagesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListLanguagesResponse' :: ListLanguagesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListLanguagesResponse
s@ListLanguagesResponse' {} Int
a -> ListLanguagesResponse
s {$sel:httpStatus:ListLanguagesResponse' :: Int
httpStatus = Int
a} :: ListLanguagesResponse)
instance Prelude.NFData ListLanguagesResponse where
rnf :: ListLanguagesResponse -> ()
rnf ListLanguagesResponse' {Int
Maybe [Language]
Maybe Text
Maybe DisplayLanguageCode
httpStatus :: Int
nextToken :: Maybe Text
languages :: Maybe [Language]
displayLanguageCode :: Maybe DisplayLanguageCode
$sel:httpStatus:ListLanguagesResponse' :: ListLanguagesResponse -> Int
$sel:nextToken:ListLanguagesResponse' :: ListLanguagesResponse -> Maybe Text
$sel:languages:ListLanguagesResponse' :: ListLanguagesResponse -> Maybe [Language]
$sel:displayLanguageCode:ListLanguagesResponse' :: ListLanguagesResponse -> Maybe DisplayLanguageCode
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DisplayLanguageCode
displayLanguageCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Language]
languages
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus