{-# 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.SNS.ListOriginationNumbers
(
ListOriginationNumbers (..),
newListOriginationNumbers,
listOriginationNumbers_maxResults,
listOriginationNumbers_nextToken,
ListOriginationNumbersResponse (..),
newListOriginationNumbersResponse,
listOriginationNumbersResponse_nextToken,
listOriginationNumbersResponse_phoneNumbers,
listOriginationNumbersResponse_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.SNS.Types
data ListOriginationNumbers = ListOriginationNumbers'
{
ListOriginationNumbers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListOriginationNumbers -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (ListOriginationNumbers -> ListOriginationNumbers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListOriginationNumbers -> ListOriginationNumbers -> Bool
$c/= :: ListOriginationNumbers -> ListOriginationNumbers -> Bool
== :: ListOriginationNumbers -> ListOriginationNumbers -> Bool
$c== :: ListOriginationNumbers -> ListOriginationNumbers -> Bool
Prelude.Eq, ReadPrec [ListOriginationNumbers]
ReadPrec ListOriginationNumbers
Int -> ReadS ListOriginationNumbers
ReadS [ListOriginationNumbers]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListOriginationNumbers]
$creadListPrec :: ReadPrec [ListOriginationNumbers]
readPrec :: ReadPrec ListOriginationNumbers
$creadPrec :: ReadPrec ListOriginationNumbers
readList :: ReadS [ListOriginationNumbers]
$creadList :: ReadS [ListOriginationNumbers]
readsPrec :: Int -> ReadS ListOriginationNumbers
$creadsPrec :: Int -> ReadS ListOriginationNumbers
Prelude.Read, Int -> ListOriginationNumbers -> ShowS
[ListOriginationNumbers] -> ShowS
ListOriginationNumbers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListOriginationNumbers] -> ShowS
$cshowList :: [ListOriginationNumbers] -> ShowS
show :: ListOriginationNumbers -> String
$cshow :: ListOriginationNumbers -> String
showsPrec :: Int -> ListOriginationNumbers -> ShowS
$cshowsPrec :: Int -> ListOriginationNumbers -> ShowS
Prelude.Show, forall x. Rep ListOriginationNumbers x -> ListOriginationNumbers
forall x. ListOriginationNumbers -> Rep ListOriginationNumbers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListOriginationNumbers x -> ListOriginationNumbers
$cfrom :: forall x. ListOriginationNumbers -> Rep ListOriginationNumbers x
Prelude.Generic)
newListOriginationNumbers ::
ListOriginationNumbers
newListOriginationNumbers :: ListOriginationNumbers
newListOriginationNumbers =
ListOriginationNumbers'
{ $sel:maxResults:ListOriginationNumbers' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListOriginationNumbers' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
listOriginationNumbers_maxResults :: Lens.Lens' ListOriginationNumbers (Prelude.Maybe Prelude.Natural)
listOriginationNumbers_maxResults :: Lens' ListOriginationNumbers (Maybe Natural)
listOriginationNumbers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOriginationNumbers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListOriginationNumbers
s@ListOriginationNumbers' {} Maybe Natural
a -> ListOriginationNumbers
s {$sel:maxResults:ListOriginationNumbers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListOriginationNumbers)
listOriginationNumbers_nextToken :: Lens.Lens' ListOriginationNumbers (Prelude.Maybe Prelude.Text)
listOriginationNumbers_nextToken :: Lens' ListOriginationNumbers (Maybe Text)
listOriginationNumbers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOriginationNumbers' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListOriginationNumbers
s@ListOriginationNumbers' {} Maybe Text
a -> ListOriginationNumbers
s {$sel:nextToken:ListOriginationNumbers' :: Maybe Text
nextToken = Maybe Text
a} :: ListOriginationNumbers)
instance Core.AWSPager ListOriginationNumbers where
page :: ListOriginationNumbers
-> AWSResponse ListOriginationNumbers
-> Maybe ListOriginationNumbers
page ListOriginationNumbers
rq AWSResponse ListOriginationNumbers
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListOriginationNumbers
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListOriginationNumbersResponse (Maybe Text)
listOriginationNumbersResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListOriginationNumbers
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListOriginationNumbersResponse (Maybe [PhoneNumberInformation])
listOriginationNumbersResponse_phoneNumbers
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListOriginationNumbers
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListOriginationNumbers (Maybe Text)
listOriginationNumbers_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListOriginationNumbers
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListOriginationNumbersResponse (Maybe Text)
listOriginationNumbersResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest ListOriginationNumbers where
type
AWSResponse ListOriginationNumbers =
ListOriginationNumbersResponse
request :: (Service -> Service)
-> ListOriginationNumbers -> Request ListOriginationNumbers
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListOriginationNumbers
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListOriginationNumbers)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"ListOriginationNumbersResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe [PhoneNumberInformation]
-> Int
-> ListOriginationNumbersResponse
ListOriginationNumbersResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PhoneNumbers"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
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 ListOriginationNumbers where
hashWithSalt :: Int -> ListOriginationNumbers -> Int
hashWithSalt Int
_salt ListOriginationNumbers' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:nextToken:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Text
$sel:maxResults:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Natural
..} =
Int
_salt
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 ListOriginationNumbers where
rnf :: ListOriginationNumbers -> ()
rnf ListOriginationNumbers' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:nextToken:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Text
$sel:maxResults:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Natural
..} =
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 ListOriginationNumbers where
toHeaders :: ListOriginationNumbers -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListOriginationNumbers where
toPath :: ListOriginationNumbers -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListOriginationNumbers where
toQuery :: ListOriginationNumbers -> QueryString
toQuery ListOriginationNumbers' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:nextToken:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Text
$sel:maxResults:ListOriginationNumbers' :: ListOriginationNumbers -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ListOriginationNumbers" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-03-31" :: Prelude.ByteString),
ByteString
"MaxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data ListOriginationNumbersResponse = ListOriginationNumbersResponse'
{
ListOriginationNumbersResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListOriginationNumbersResponse -> Maybe [PhoneNumberInformation]
phoneNumbers :: Prelude.Maybe [PhoneNumberInformation],
ListOriginationNumbersResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListOriginationNumbersResponse
-> ListOriginationNumbersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListOriginationNumbersResponse
-> ListOriginationNumbersResponse -> Bool
$c/= :: ListOriginationNumbersResponse
-> ListOriginationNumbersResponse -> Bool
== :: ListOriginationNumbersResponse
-> ListOriginationNumbersResponse -> Bool
$c== :: ListOriginationNumbersResponse
-> ListOriginationNumbersResponse -> Bool
Prelude.Eq, ReadPrec [ListOriginationNumbersResponse]
ReadPrec ListOriginationNumbersResponse
Int -> ReadS ListOriginationNumbersResponse
ReadS [ListOriginationNumbersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListOriginationNumbersResponse]
$creadListPrec :: ReadPrec [ListOriginationNumbersResponse]
readPrec :: ReadPrec ListOriginationNumbersResponse
$creadPrec :: ReadPrec ListOriginationNumbersResponse
readList :: ReadS [ListOriginationNumbersResponse]
$creadList :: ReadS [ListOriginationNumbersResponse]
readsPrec :: Int -> ReadS ListOriginationNumbersResponse
$creadsPrec :: Int -> ReadS ListOriginationNumbersResponse
Prelude.Read, Int -> ListOriginationNumbersResponse -> ShowS
[ListOriginationNumbersResponse] -> ShowS
ListOriginationNumbersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListOriginationNumbersResponse] -> ShowS
$cshowList :: [ListOriginationNumbersResponse] -> ShowS
show :: ListOriginationNumbersResponse -> String
$cshow :: ListOriginationNumbersResponse -> String
showsPrec :: Int -> ListOriginationNumbersResponse -> ShowS
$cshowsPrec :: Int -> ListOriginationNumbersResponse -> ShowS
Prelude.Show, forall x.
Rep ListOriginationNumbersResponse x
-> ListOriginationNumbersResponse
forall x.
ListOriginationNumbersResponse
-> Rep ListOriginationNumbersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListOriginationNumbersResponse x
-> ListOriginationNumbersResponse
$cfrom :: forall x.
ListOriginationNumbersResponse
-> Rep ListOriginationNumbersResponse x
Prelude.Generic)
newListOriginationNumbersResponse ::
Prelude.Int ->
ListOriginationNumbersResponse
newListOriginationNumbersResponse :: Int -> ListOriginationNumbersResponse
newListOriginationNumbersResponse Int
pHttpStatus_ =
ListOriginationNumbersResponse'
{ $sel:nextToken:ListOriginationNumbersResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:phoneNumbers:ListOriginationNumbersResponse' :: Maybe [PhoneNumberInformation]
phoneNumbers = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListOriginationNumbersResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listOriginationNumbersResponse_nextToken :: Lens.Lens' ListOriginationNumbersResponse (Prelude.Maybe Prelude.Text)
listOriginationNumbersResponse_nextToken :: Lens' ListOriginationNumbersResponse (Maybe Text)
listOriginationNumbersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOriginationNumbersResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListOriginationNumbersResponse' :: ListOriginationNumbersResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListOriginationNumbersResponse
s@ListOriginationNumbersResponse' {} Maybe Text
a -> ListOriginationNumbersResponse
s {$sel:nextToken:ListOriginationNumbersResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListOriginationNumbersResponse)
listOriginationNumbersResponse_phoneNumbers :: Lens.Lens' ListOriginationNumbersResponse (Prelude.Maybe [PhoneNumberInformation])
listOriginationNumbersResponse_phoneNumbers :: Lens'
ListOriginationNumbersResponse (Maybe [PhoneNumberInformation])
listOriginationNumbersResponse_phoneNumbers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOriginationNumbersResponse' {Maybe [PhoneNumberInformation]
phoneNumbers :: Maybe [PhoneNumberInformation]
$sel:phoneNumbers:ListOriginationNumbersResponse' :: ListOriginationNumbersResponse -> Maybe [PhoneNumberInformation]
phoneNumbers} -> Maybe [PhoneNumberInformation]
phoneNumbers) (\s :: ListOriginationNumbersResponse
s@ListOriginationNumbersResponse' {} Maybe [PhoneNumberInformation]
a -> ListOriginationNumbersResponse
s {$sel:phoneNumbers:ListOriginationNumbersResponse' :: Maybe [PhoneNumberInformation]
phoneNumbers = Maybe [PhoneNumberInformation]
a} :: ListOriginationNumbersResponse) 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
listOriginationNumbersResponse_httpStatus :: Lens.Lens' ListOriginationNumbersResponse Prelude.Int
listOriginationNumbersResponse_httpStatus :: Lens' ListOriginationNumbersResponse Int
listOriginationNumbersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOriginationNumbersResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListOriginationNumbersResponse' :: ListOriginationNumbersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListOriginationNumbersResponse
s@ListOriginationNumbersResponse' {} Int
a -> ListOriginationNumbersResponse
s {$sel:httpStatus:ListOriginationNumbersResponse' :: Int
httpStatus = Int
a} :: ListOriginationNumbersResponse)
instance
Prelude.NFData
ListOriginationNumbersResponse
where
rnf :: ListOriginationNumbersResponse -> ()
rnf ListOriginationNumbersResponse' {Int
Maybe [PhoneNumberInformation]
Maybe Text
httpStatus :: Int
phoneNumbers :: Maybe [PhoneNumberInformation]
nextToken :: Maybe Text
$sel:httpStatus:ListOriginationNumbersResponse' :: ListOriginationNumbersResponse -> Int
$sel:phoneNumbers:ListOriginationNumbersResponse' :: ListOriginationNumbersResponse -> Maybe [PhoneNumberInformation]
$sel:nextToken:ListOriginationNumbersResponse' :: ListOriginationNumbersResponse -> Maybe Text
..} =
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 Maybe [PhoneNumberInformation]
phoneNumbers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus