{-# 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.Chime.ListSupportedPhoneNumberCountries
(
ListSupportedPhoneNumberCountries (..),
newListSupportedPhoneNumberCountries,
listSupportedPhoneNumberCountries_productType,
ListSupportedPhoneNumberCountriesResponse (..),
newListSupportedPhoneNumberCountriesResponse,
listSupportedPhoneNumberCountriesResponse_phoneNumberCountries,
listSupportedPhoneNumberCountriesResponse_httpStatus,
)
where
import Amazonka.Chime.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListSupportedPhoneNumberCountries = ListSupportedPhoneNumberCountries'
{
ListSupportedPhoneNumberCountries -> PhoneNumberProductType
productType :: PhoneNumberProductType
}
deriving (ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool
(ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool)
-> (ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool)
-> Eq ListSupportedPhoneNumberCountries
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool
$c/= :: ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool
== :: ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool
$c== :: ListSupportedPhoneNumberCountries
-> ListSupportedPhoneNumberCountries -> Bool
Prelude.Eq, ReadPrec [ListSupportedPhoneNumberCountries]
ReadPrec ListSupportedPhoneNumberCountries
Int -> ReadS ListSupportedPhoneNumberCountries
ReadS [ListSupportedPhoneNumberCountries]
(Int -> ReadS ListSupportedPhoneNumberCountries)
-> ReadS [ListSupportedPhoneNumberCountries]
-> ReadPrec ListSupportedPhoneNumberCountries
-> ReadPrec [ListSupportedPhoneNumberCountries]
-> Read ListSupportedPhoneNumberCountries
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListSupportedPhoneNumberCountries]
$creadListPrec :: ReadPrec [ListSupportedPhoneNumberCountries]
readPrec :: ReadPrec ListSupportedPhoneNumberCountries
$creadPrec :: ReadPrec ListSupportedPhoneNumberCountries
readList :: ReadS [ListSupportedPhoneNumberCountries]
$creadList :: ReadS [ListSupportedPhoneNumberCountries]
readsPrec :: Int -> ReadS ListSupportedPhoneNumberCountries
$creadsPrec :: Int -> ReadS ListSupportedPhoneNumberCountries
Prelude.Read, Int -> ListSupportedPhoneNumberCountries -> ShowS
[ListSupportedPhoneNumberCountries] -> ShowS
ListSupportedPhoneNumberCountries -> String
(Int -> ListSupportedPhoneNumberCountries -> ShowS)
-> (ListSupportedPhoneNumberCountries -> String)
-> ([ListSupportedPhoneNumberCountries] -> ShowS)
-> Show ListSupportedPhoneNumberCountries
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListSupportedPhoneNumberCountries] -> ShowS
$cshowList :: [ListSupportedPhoneNumberCountries] -> ShowS
show :: ListSupportedPhoneNumberCountries -> String
$cshow :: ListSupportedPhoneNumberCountries -> String
showsPrec :: Int -> ListSupportedPhoneNumberCountries -> ShowS
$cshowsPrec :: Int -> ListSupportedPhoneNumberCountries -> ShowS
Prelude.Show, (forall x.
ListSupportedPhoneNumberCountries
-> Rep ListSupportedPhoneNumberCountries x)
-> (forall x.
Rep ListSupportedPhoneNumberCountries x
-> ListSupportedPhoneNumberCountries)
-> Generic ListSupportedPhoneNumberCountries
forall x.
Rep ListSupportedPhoneNumberCountries x
-> ListSupportedPhoneNumberCountries
forall x.
ListSupportedPhoneNumberCountries
-> Rep ListSupportedPhoneNumberCountries x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListSupportedPhoneNumberCountries x
-> ListSupportedPhoneNumberCountries
$cfrom :: forall x.
ListSupportedPhoneNumberCountries
-> Rep ListSupportedPhoneNumberCountries x
Prelude.Generic)
newListSupportedPhoneNumberCountries ::
PhoneNumberProductType ->
ListSupportedPhoneNumberCountries
newListSupportedPhoneNumberCountries :: PhoneNumberProductType -> ListSupportedPhoneNumberCountries
newListSupportedPhoneNumberCountries PhoneNumberProductType
pProductType_ =
ListSupportedPhoneNumberCountries' :: PhoneNumberProductType -> ListSupportedPhoneNumberCountries
ListSupportedPhoneNumberCountries'
{ $sel:productType:ListSupportedPhoneNumberCountries' :: PhoneNumberProductType
productType =
PhoneNumberProductType
pProductType_
}
listSupportedPhoneNumberCountries_productType :: Lens.Lens' ListSupportedPhoneNumberCountries PhoneNumberProductType
listSupportedPhoneNumberCountries_productType :: (PhoneNumberProductType -> f PhoneNumberProductType)
-> ListSupportedPhoneNumberCountries
-> f ListSupportedPhoneNumberCountries
listSupportedPhoneNumberCountries_productType = (ListSupportedPhoneNumberCountries -> PhoneNumberProductType)
-> (ListSupportedPhoneNumberCountries
-> PhoneNumberProductType -> ListSupportedPhoneNumberCountries)
-> Lens
ListSupportedPhoneNumberCountries
ListSupportedPhoneNumberCountries
PhoneNumberProductType
PhoneNumberProductType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSupportedPhoneNumberCountries' {PhoneNumberProductType
productType :: PhoneNumberProductType
$sel:productType:ListSupportedPhoneNumberCountries' :: ListSupportedPhoneNumberCountries -> PhoneNumberProductType
productType} -> PhoneNumberProductType
productType) (\s :: ListSupportedPhoneNumberCountries
s@ListSupportedPhoneNumberCountries' {} PhoneNumberProductType
a -> ListSupportedPhoneNumberCountries
s {$sel:productType:ListSupportedPhoneNumberCountries' :: PhoneNumberProductType
productType = PhoneNumberProductType
a} :: ListSupportedPhoneNumberCountries)
instance
Core.AWSRequest
ListSupportedPhoneNumberCountries
where
type
AWSResponse ListSupportedPhoneNumberCountries =
ListSupportedPhoneNumberCountriesResponse
request :: ListSupportedPhoneNumberCountries
-> Request ListSupportedPhoneNumberCountries
request = Service
-> ListSupportedPhoneNumberCountries
-> Request ListSupportedPhoneNumberCountries
forall a. ToRequest a => Service -> a -> Request a
Request.get Service
defaultService
response :: Logger
-> Service
-> Proxy ListSupportedPhoneNumberCountries
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ListSupportedPhoneNumberCountries)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse ListSupportedPhoneNumberCountries))
-> Logger
-> Service
-> Proxy ListSupportedPhoneNumberCountries
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ListSupportedPhoneNumberCountries)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe [PhoneNumberCountry]
-> Int -> ListSupportedPhoneNumberCountriesResponse
ListSupportedPhoneNumberCountriesResponse'
(Maybe [PhoneNumberCountry]
-> Int -> ListSupportedPhoneNumberCountriesResponse)
-> Either String (Maybe [PhoneNumberCountry])
-> Either String (Int -> ListSupportedPhoneNumberCountriesResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x Object -> Key -> Either String (Maybe (Maybe [PhoneNumberCountry]))
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Core..?> Key
"PhoneNumberCountries"
Either String (Maybe (Maybe [PhoneNumberCountry]))
-> Maybe [PhoneNumberCountry]
-> Either String (Maybe [PhoneNumberCountry])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [PhoneNumberCountry]
forall a. Monoid a => a
Prelude.mempty
)
Either String (Int -> ListSupportedPhoneNumberCountriesResponse)
-> Either String Int
-> Either String ListSupportedPhoneNumberCountriesResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
ListSupportedPhoneNumberCountries
instance
Prelude.NFData
ListSupportedPhoneNumberCountries
instance
Core.ToHeaders
ListSupportedPhoneNumberCountries
where
toHeaders :: ListSupportedPhoneNumberCountries -> ResponseHeaders
toHeaders = ResponseHeaders
-> ListSupportedPhoneNumberCountries -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance
Core.ToPath
ListSupportedPhoneNumberCountries
where
toPath :: ListSupportedPhoneNumberCountries -> ByteString
toPath = ByteString -> ListSupportedPhoneNumberCountries -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/phone-number-countries"
instance
Core.ToQuery
ListSupportedPhoneNumberCountries
where
toQuery :: ListSupportedPhoneNumberCountries -> QueryString
toQuery ListSupportedPhoneNumberCountries' {PhoneNumberProductType
productType :: PhoneNumberProductType
$sel:productType:ListSupportedPhoneNumberCountries' :: ListSupportedPhoneNumberCountries -> PhoneNumberProductType
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"product-type" ByteString -> PhoneNumberProductType -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: PhoneNumberProductType
productType]
data ListSupportedPhoneNumberCountriesResponse = ListSupportedPhoneNumberCountriesResponse'
{
ListSupportedPhoneNumberCountriesResponse
-> Maybe [PhoneNumberCountry]
phoneNumberCountries :: Prelude.Maybe [PhoneNumberCountry],
ListSupportedPhoneNumberCountriesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool
(ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool)
-> (ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool)
-> Eq ListSupportedPhoneNumberCountriesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool
$c/= :: ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool
== :: ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool
$c== :: ListSupportedPhoneNumberCountriesResponse
-> ListSupportedPhoneNumberCountriesResponse -> Bool
Prelude.Eq, ReadPrec [ListSupportedPhoneNumberCountriesResponse]
ReadPrec ListSupportedPhoneNumberCountriesResponse
Int -> ReadS ListSupportedPhoneNumberCountriesResponse
ReadS [ListSupportedPhoneNumberCountriesResponse]
(Int -> ReadS ListSupportedPhoneNumberCountriesResponse)
-> ReadS [ListSupportedPhoneNumberCountriesResponse]
-> ReadPrec ListSupportedPhoneNumberCountriesResponse
-> ReadPrec [ListSupportedPhoneNumberCountriesResponse]
-> Read ListSupportedPhoneNumberCountriesResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListSupportedPhoneNumberCountriesResponse]
$creadListPrec :: ReadPrec [ListSupportedPhoneNumberCountriesResponse]
readPrec :: ReadPrec ListSupportedPhoneNumberCountriesResponse
$creadPrec :: ReadPrec ListSupportedPhoneNumberCountriesResponse
readList :: ReadS [ListSupportedPhoneNumberCountriesResponse]
$creadList :: ReadS [ListSupportedPhoneNumberCountriesResponse]
readsPrec :: Int -> ReadS ListSupportedPhoneNumberCountriesResponse
$creadsPrec :: Int -> ReadS ListSupportedPhoneNumberCountriesResponse
Prelude.Read, Int -> ListSupportedPhoneNumberCountriesResponse -> ShowS
[ListSupportedPhoneNumberCountriesResponse] -> ShowS
ListSupportedPhoneNumberCountriesResponse -> String
(Int -> ListSupportedPhoneNumberCountriesResponse -> ShowS)
-> (ListSupportedPhoneNumberCountriesResponse -> String)
-> ([ListSupportedPhoneNumberCountriesResponse] -> ShowS)
-> Show ListSupportedPhoneNumberCountriesResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListSupportedPhoneNumberCountriesResponse] -> ShowS
$cshowList :: [ListSupportedPhoneNumberCountriesResponse] -> ShowS
show :: ListSupportedPhoneNumberCountriesResponse -> String
$cshow :: ListSupportedPhoneNumberCountriesResponse -> String
showsPrec :: Int -> ListSupportedPhoneNumberCountriesResponse -> ShowS
$cshowsPrec :: Int -> ListSupportedPhoneNumberCountriesResponse -> ShowS
Prelude.Show, (forall x.
ListSupportedPhoneNumberCountriesResponse
-> Rep ListSupportedPhoneNumberCountriesResponse x)
-> (forall x.
Rep ListSupportedPhoneNumberCountriesResponse x
-> ListSupportedPhoneNumberCountriesResponse)
-> Generic ListSupportedPhoneNumberCountriesResponse
forall x.
Rep ListSupportedPhoneNumberCountriesResponse x
-> ListSupportedPhoneNumberCountriesResponse
forall x.
ListSupportedPhoneNumberCountriesResponse
-> Rep ListSupportedPhoneNumberCountriesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListSupportedPhoneNumberCountriesResponse x
-> ListSupportedPhoneNumberCountriesResponse
$cfrom :: forall x.
ListSupportedPhoneNumberCountriesResponse
-> Rep ListSupportedPhoneNumberCountriesResponse x
Prelude.Generic)
newListSupportedPhoneNumberCountriesResponse ::
Prelude.Int ->
ListSupportedPhoneNumberCountriesResponse
newListSupportedPhoneNumberCountriesResponse :: Int -> ListSupportedPhoneNumberCountriesResponse
newListSupportedPhoneNumberCountriesResponse
Int
pHttpStatus_ =
ListSupportedPhoneNumberCountriesResponse' :: Maybe [PhoneNumberCountry]
-> Int -> ListSupportedPhoneNumberCountriesResponse
ListSupportedPhoneNumberCountriesResponse'
{ $sel:phoneNumberCountries:ListSupportedPhoneNumberCountriesResponse' :: Maybe [PhoneNumberCountry]
phoneNumberCountries =
Maybe [PhoneNumberCountry]
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListSupportedPhoneNumberCountriesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listSupportedPhoneNumberCountriesResponse_phoneNumberCountries :: Lens.Lens' ListSupportedPhoneNumberCountriesResponse (Prelude.Maybe [PhoneNumberCountry])
listSupportedPhoneNumberCountriesResponse_phoneNumberCountries :: (Maybe [PhoneNumberCountry] -> f (Maybe [PhoneNumberCountry]))
-> ListSupportedPhoneNumberCountriesResponse
-> f ListSupportedPhoneNumberCountriesResponse
listSupportedPhoneNumberCountriesResponse_phoneNumberCountries = (ListSupportedPhoneNumberCountriesResponse
-> Maybe [PhoneNumberCountry])
-> (ListSupportedPhoneNumberCountriesResponse
-> Maybe [PhoneNumberCountry]
-> ListSupportedPhoneNumberCountriesResponse)
-> Lens
ListSupportedPhoneNumberCountriesResponse
ListSupportedPhoneNumberCountriesResponse
(Maybe [PhoneNumberCountry])
(Maybe [PhoneNumberCountry])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSupportedPhoneNumberCountriesResponse' {Maybe [PhoneNumberCountry]
phoneNumberCountries :: Maybe [PhoneNumberCountry]
$sel:phoneNumberCountries:ListSupportedPhoneNumberCountriesResponse' :: ListSupportedPhoneNumberCountriesResponse
-> Maybe [PhoneNumberCountry]
phoneNumberCountries} -> Maybe [PhoneNumberCountry]
phoneNumberCountries) (\s :: ListSupportedPhoneNumberCountriesResponse
s@ListSupportedPhoneNumberCountriesResponse' {} Maybe [PhoneNumberCountry]
a -> ListSupportedPhoneNumberCountriesResponse
s {$sel:phoneNumberCountries:ListSupportedPhoneNumberCountriesResponse' :: Maybe [PhoneNumberCountry]
phoneNumberCountries = Maybe [PhoneNumberCountry]
a} :: ListSupportedPhoneNumberCountriesResponse) ((Maybe [PhoneNumberCountry] -> f (Maybe [PhoneNumberCountry]))
-> ListSupportedPhoneNumberCountriesResponse
-> f ListSupportedPhoneNumberCountriesResponse)
-> ((Maybe [PhoneNumberCountry] -> f (Maybe [PhoneNumberCountry]))
-> Maybe [PhoneNumberCountry] -> f (Maybe [PhoneNumberCountry]))
-> (Maybe [PhoneNumberCountry] -> f (Maybe [PhoneNumberCountry]))
-> ListSupportedPhoneNumberCountriesResponse
-> f ListSupportedPhoneNumberCountriesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[PhoneNumberCountry]
[PhoneNumberCountry]
[PhoneNumberCountry]
[PhoneNumberCountry]
-> Iso
(Maybe [PhoneNumberCountry])
(Maybe [PhoneNumberCountry])
(Maybe [PhoneNumberCountry])
(Maybe [PhoneNumberCountry])
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 AnIso
[PhoneNumberCountry]
[PhoneNumberCountry]
[PhoneNumberCountry]
[PhoneNumberCountry]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listSupportedPhoneNumberCountriesResponse_httpStatus :: Lens.Lens' ListSupportedPhoneNumberCountriesResponse Prelude.Int
listSupportedPhoneNumberCountriesResponse_httpStatus :: (Int -> f Int)
-> ListSupportedPhoneNumberCountriesResponse
-> f ListSupportedPhoneNumberCountriesResponse
listSupportedPhoneNumberCountriesResponse_httpStatus = (ListSupportedPhoneNumberCountriesResponse -> Int)
-> (ListSupportedPhoneNumberCountriesResponse
-> Int -> ListSupportedPhoneNumberCountriesResponse)
-> Lens
ListSupportedPhoneNumberCountriesResponse
ListSupportedPhoneNumberCountriesResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSupportedPhoneNumberCountriesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListSupportedPhoneNumberCountriesResponse' :: ListSupportedPhoneNumberCountriesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListSupportedPhoneNumberCountriesResponse
s@ListSupportedPhoneNumberCountriesResponse' {} Int
a -> ListSupportedPhoneNumberCountriesResponse
s {$sel:httpStatus:ListSupportedPhoneNumberCountriesResponse' :: Int
httpStatus = Int
a} :: ListSupportedPhoneNumberCountriesResponse)
instance
Prelude.NFData
ListSupportedPhoneNumberCountriesResponse