{-# 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.SES.ListReceiptRuleSets
(
ListReceiptRuleSets (..),
newListReceiptRuleSets,
listReceiptRuleSets_nextToken,
ListReceiptRuleSetsResponse (..),
newListReceiptRuleSetsResponse,
listReceiptRuleSetsResponse_nextToken,
listReceiptRuleSetsResponse_ruleSets,
listReceiptRuleSetsResponse_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.SES.Types
data ListReceiptRuleSets = ListReceiptRuleSets'
{
ListReceiptRuleSets -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (ListReceiptRuleSets -> ListReceiptRuleSets -> Bool
(ListReceiptRuleSets -> ListReceiptRuleSets -> Bool)
-> (ListReceiptRuleSets -> ListReceiptRuleSets -> Bool)
-> Eq ListReceiptRuleSets
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListReceiptRuleSets -> ListReceiptRuleSets -> Bool
== :: ListReceiptRuleSets -> ListReceiptRuleSets -> Bool
$c/= :: ListReceiptRuleSets -> ListReceiptRuleSets -> Bool
/= :: ListReceiptRuleSets -> ListReceiptRuleSets -> Bool
Prelude.Eq, ReadPrec [ListReceiptRuleSets]
ReadPrec ListReceiptRuleSets
Int -> ReadS ListReceiptRuleSets
ReadS [ListReceiptRuleSets]
(Int -> ReadS ListReceiptRuleSets)
-> ReadS [ListReceiptRuleSets]
-> ReadPrec ListReceiptRuleSets
-> ReadPrec [ListReceiptRuleSets]
-> Read ListReceiptRuleSets
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ListReceiptRuleSets
readsPrec :: Int -> ReadS ListReceiptRuleSets
$creadList :: ReadS [ListReceiptRuleSets]
readList :: ReadS [ListReceiptRuleSets]
$creadPrec :: ReadPrec ListReceiptRuleSets
readPrec :: ReadPrec ListReceiptRuleSets
$creadListPrec :: ReadPrec [ListReceiptRuleSets]
readListPrec :: ReadPrec [ListReceiptRuleSets]
Prelude.Read, Int -> ListReceiptRuleSets -> ShowS
[ListReceiptRuleSets] -> ShowS
ListReceiptRuleSets -> String
(Int -> ListReceiptRuleSets -> ShowS)
-> (ListReceiptRuleSets -> String)
-> ([ListReceiptRuleSets] -> ShowS)
-> Show ListReceiptRuleSets
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ListReceiptRuleSets -> ShowS
showsPrec :: Int -> ListReceiptRuleSets -> ShowS
$cshow :: ListReceiptRuleSets -> String
show :: ListReceiptRuleSets -> String
$cshowList :: [ListReceiptRuleSets] -> ShowS
showList :: [ListReceiptRuleSets] -> ShowS
Prelude.Show, (forall x. ListReceiptRuleSets -> Rep ListReceiptRuleSets x)
-> (forall x. Rep ListReceiptRuleSets x -> ListReceiptRuleSets)
-> Generic ListReceiptRuleSets
forall x. Rep ListReceiptRuleSets x -> ListReceiptRuleSets
forall x. ListReceiptRuleSets -> Rep ListReceiptRuleSets x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. ListReceiptRuleSets -> Rep ListReceiptRuleSets x
from :: forall x. ListReceiptRuleSets -> Rep ListReceiptRuleSets x
$cto :: forall x. Rep ListReceiptRuleSets x -> ListReceiptRuleSets
to :: forall x. Rep ListReceiptRuleSets x -> ListReceiptRuleSets
Prelude.Generic)
newListReceiptRuleSets ::
ListReceiptRuleSets
newListReceiptRuleSets :: ListReceiptRuleSets
newListReceiptRuleSets =
ListReceiptRuleSets' {$sel:nextToken:ListReceiptRuleSets' :: Maybe Text
nextToken = Maybe Text
forall a. Maybe a
Prelude.Nothing}
listReceiptRuleSets_nextToken :: Lens.Lens' ListReceiptRuleSets (Prelude.Maybe Prelude.Text)
listReceiptRuleSets_nextToken :: Lens' ListReceiptRuleSets (Maybe Text)
listReceiptRuleSets_nextToken = (ListReceiptRuleSets -> Maybe Text)
-> (ListReceiptRuleSets -> Maybe Text -> ListReceiptRuleSets)
-> Lens' ListReceiptRuleSets (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListReceiptRuleSets' {Maybe Text
$sel:nextToken:ListReceiptRuleSets' :: ListReceiptRuleSets -> Maybe Text
nextToken :: Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListReceiptRuleSets
s@ListReceiptRuleSets' {} Maybe Text
a -> ListReceiptRuleSets
s {nextToken = a} :: ListReceiptRuleSets)
instance Core.AWSPager ListReceiptRuleSets where
page :: ListReceiptRuleSets
-> AWSResponse ListReceiptRuleSets -> Maybe ListReceiptRuleSets
page ListReceiptRuleSets
rq AWSResponse ListReceiptRuleSets
rs
| Maybe Text -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListReceiptRuleSets
ListReceiptRuleSetsResponse
rs
ListReceiptRuleSetsResponse
-> Getting (First Text) ListReceiptRuleSetsResponse Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe Text -> Const (First Text) (Maybe Text))
-> ListReceiptRuleSetsResponse
-> Const (First Text) ListReceiptRuleSetsResponse
Lens' ListReceiptRuleSetsResponse (Maybe Text)
listReceiptRuleSetsResponse_nextToken
((Maybe Text -> Const (First Text) (Maybe Text))
-> ListReceiptRuleSetsResponse
-> Const (First Text) ListReceiptRuleSetsResponse)
-> ((Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text))
-> Getting (First Text) ListReceiptRuleSetsResponse Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b (p :: * -> * -> *) (f :: * -> *).
(Choice p, Applicative f) =>
p a (f b) -> p (Maybe a) (f (Maybe b))
Lens._Just
) =
Maybe ListReceiptRuleSets
forall a. Maybe a
Prelude.Nothing
| Maybe [ReceiptRuleSetMetadata] -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListReceiptRuleSets
ListReceiptRuleSetsResponse
rs
ListReceiptRuleSetsResponse
-> Getting
(First [ReceiptRuleSetMetadata])
ListReceiptRuleSetsResponse
[ReceiptRuleSetMetadata]
-> Maybe [ReceiptRuleSetMetadata]
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe [ReceiptRuleSetMetadata]
-> Const
(First [ReceiptRuleSetMetadata]) (Maybe [ReceiptRuleSetMetadata]))
-> ListReceiptRuleSetsResponse
-> Const
(First [ReceiptRuleSetMetadata]) ListReceiptRuleSetsResponse
Lens' ListReceiptRuleSetsResponse (Maybe [ReceiptRuleSetMetadata])
listReceiptRuleSetsResponse_ruleSets
((Maybe [ReceiptRuleSetMetadata]
-> Const
(First [ReceiptRuleSetMetadata]) (Maybe [ReceiptRuleSetMetadata]))
-> ListReceiptRuleSetsResponse
-> Const
(First [ReceiptRuleSetMetadata]) ListReceiptRuleSetsResponse)
-> (([ReceiptRuleSetMetadata]
-> Const (First [ReceiptRuleSetMetadata]) [ReceiptRuleSetMetadata])
-> Maybe [ReceiptRuleSetMetadata]
-> Const
(First [ReceiptRuleSetMetadata]) (Maybe [ReceiptRuleSetMetadata]))
-> Getting
(First [ReceiptRuleSetMetadata])
ListReceiptRuleSetsResponse
[ReceiptRuleSetMetadata]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([ReceiptRuleSetMetadata]
-> Const (First [ReceiptRuleSetMetadata]) [ReceiptRuleSetMetadata])
-> Maybe [ReceiptRuleSetMetadata]
-> Const
(First [ReceiptRuleSetMetadata]) (Maybe [ReceiptRuleSetMetadata])
forall a b (p :: * -> * -> *) (f :: * -> *).
(Choice p, Applicative f) =>
p a (f b) -> p (Maybe a) (f (Maybe b))
Lens._Just
) =
Maybe ListReceiptRuleSets
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
ListReceiptRuleSets -> Maybe ListReceiptRuleSets
forall a. a -> Maybe a
Prelude.Just
(ListReceiptRuleSets -> Maybe ListReceiptRuleSets)
-> ListReceiptRuleSets -> Maybe ListReceiptRuleSets
forall a b. (a -> b) -> a -> b
Prelude.$ ListReceiptRuleSets
rq
ListReceiptRuleSets
-> (ListReceiptRuleSets -> ListReceiptRuleSets)
-> ListReceiptRuleSets
forall a b. a -> (a -> b) -> b
Prelude.& (Maybe Text -> Identity (Maybe Text))
-> ListReceiptRuleSets -> Identity ListReceiptRuleSets
Lens' ListReceiptRuleSets (Maybe Text)
listReceiptRuleSets_nextToken
((Maybe Text -> Identity (Maybe Text))
-> ListReceiptRuleSets -> Identity ListReceiptRuleSets)
-> Maybe Text -> ListReceiptRuleSets -> ListReceiptRuleSets
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListReceiptRuleSets
ListReceiptRuleSetsResponse
rs
ListReceiptRuleSetsResponse
-> Getting (First Text) ListReceiptRuleSetsResponse Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe Text -> Const (First Text) (Maybe Text))
-> ListReceiptRuleSetsResponse
-> Const (First Text) ListReceiptRuleSetsResponse
Lens' ListReceiptRuleSetsResponse (Maybe Text)
listReceiptRuleSetsResponse_nextToken
((Maybe Text -> Const (First Text) (Maybe Text))
-> ListReceiptRuleSetsResponse
-> Const (First Text) ListReceiptRuleSetsResponse)
-> ((Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text))
-> Getting (First Text) ListReceiptRuleSetsResponse Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b (p :: * -> * -> *) (f :: * -> *).
(Choice p, Applicative f) =>
p a (f b) -> p (Maybe a) (f (Maybe b))
Lens._Just
instance Core.AWSRequest ListReceiptRuleSets where
type
AWSResponse ListReceiptRuleSets =
ListReceiptRuleSetsResponse
request :: (Service -> Service)
-> ListReceiptRuleSets -> Request ListReceiptRuleSets
request Service -> Service
overrides =
Service -> ListReceiptRuleSets -> Request ListReceiptRuleSets
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 ListReceiptRuleSets
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListReceiptRuleSets)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse ListReceiptRuleSets))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListReceiptRuleSets
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListReceiptRuleSets)))
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
"ListReceiptRuleSetsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe [ReceiptRuleSetMetadata]
-> Int
-> ListReceiptRuleSetsResponse
ListReceiptRuleSetsResponse'
(Maybe Text
-> Maybe [ReceiptRuleSetMetadata]
-> Int
-> ListReceiptRuleSetsResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe [ReceiptRuleSetMetadata]
-> Int -> ListReceiptRuleSetsResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextToken")
Either
String
(Maybe [ReceiptRuleSetMetadata]
-> Int -> ListReceiptRuleSetsResponse)
-> Either String (Maybe [ReceiptRuleSetMetadata])
-> Either String (Int -> ListReceiptRuleSetsResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
[Node] -> Text -> Either String (Maybe [Node])
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"RuleSets"
Either String (Maybe [Node]) -> [Node] -> Either String [Node]
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ [Node]
forall a. Monoid a => a
Prelude.mempty
Either String [Node]
-> ([Node] -> Either String (Maybe [ReceiptRuleSetMetadata]))
-> Either String (Maybe [ReceiptRuleSetMetadata])
forall a b.
Either String a -> (a -> Either String b) -> Either String b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= ([Node] -> Either String [ReceiptRuleSetMetadata])
-> [Node] -> Either String (Maybe [ReceiptRuleSetMetadata])
forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (Text -> [Node] -> Either String [ReceiptRuleSetMetadata]
forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
Either String (Int -> ListReceiptRuleSetsResponse)
-> Either String Int -> Either String ListReceiptRuleSetsResponse
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall a. a -> Either String a
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 ListReceiptRuleSets where
hashWithSalt :: Int -> ListReceiptRuleSets -> Int
hashWithSalt Int
_salt ListReceiptRuleSets' {Maybe Text
$sel:nextToken:ListReceiptRuleSets' :: ListReceiptRuleSets -> Maybe Text
nextToken :: Maybe Text
..} =
Int
_salt Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData ListReceiptRuleSets where
rnf :: ListReceiptRuleSets -> ()
rnf ListReceiptRuleSets' {Maybe Text
$sel:nextToken:ListReceiptRuleSets' :: ListReceiptRuleSets -> Maybe Text
nextToken :: Maybe Text
..} = Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance Data.ToHeaders ListReceiptRuleSets where
toHeaders :: ListReceiptRuleSets -> ResponseHeaders
toHeaders = ResponseHeaders -> ListReceiptRuleSets -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListReceiptRuleSets where
toPath :: ListReceiptRuleSets -> ByteString
toPath = ByteString -> ListReceiptRuleSets -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListReceiptRuleSets where
toQuery :: ListReceiptRuleSets -> QueryString
toQuery ListReceiptRuleSets' {Maybe Text
$sel:nextToken:ListReceiptRuleSets' :: ListReceiptRuleSets -> Maybe Text
nextToken :: Maybe Text
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ListReceiptRuleSets" :: Prelude.ByteString),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"NextToken" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data ListReceiptRuleSetsResponse = ListReceiptRuleSetsResponse'
{
ListReceiptRuleSetsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListReceiptRuleSetsResponse -> Maybe [ReceiptRuleSetMetadata]
ruleSets :: Prelude.Maybe [ReceiptRuleSetMetadata],
ListReceiptRuleSetsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListReceiptRuleSetsResponse -> ListReceiptRuleSetsResponse -> Bool
(ListReceiptRuleSetsResponse
-> ListReceiptRuleSetsResponse -> Bool)
-> (ListReceiptRuleSetsResponse
-> ListReceiptRuleSetsResponse -> Bool)
-> Eq ListReceiptRuleSetsResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListReceiptRuleSetsResponse -> ListReceiptRuleSetsResponse -> Bool
== :: ListReceiptRuleSetsResponse -> ListReceiptRuleSetsResponse -> Bool
$c/= :: ListReceiptRuleSetsResponse -> ListReceiptRuleSetsResponse -> Bool
/= :: ListReceiptRuleSetsResponse -> ListReceiptRuleSetsResponse -> Bool
Prelude.Eq, ReadPrec [ListReceiptRuleSetsResponse]
ReadPrec ListReceiptRuleSetsResponse
Int -> ReadS ListReceiptRuleSetsResponse
ReadS [ListReceiptRuleSetsResponse]
(Int -> ReadS ListReceiptRuleSetsResponse)
-> ReadS [ListReceiptRuleSetsResponse]
-> ReadPrec ListReceiptRuleSetsResponse
-> ReadPrec [ListReceiptRuleSetsResponse]
-> Read ListReceiptRuleSetsResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ListReceiptRuleSetsResponse
readsPrec :: Int -> ReadS ListReceiptRuleSetsResponse
$creadList :: ReadS [ListReceiptRuleSetsResponse]
readList :: ReadS [ListReceiptRuleSetsResponse]
$creadPrec :: ReadPrec ListReceiptRuleSetsResponse
readPrec :: ReadPrec ListReceiptRuleSetsResponse
$creadListPrec :: ReadPrec [ListReceiptRuleSetsResponse]
readListPrec :: ReadPrec [ListReceiptRuleSetsResponse]
Prelude.Read, Int -> ListReceiptRuleSetsResponse -> ShowS
[ListReceiptRuleSetsResponse] -> ShowS
ListReceiptRuleSetsResponse -> String
(Int -> ListReceiptRuleSetsResponse -> ShowS)
-> (ListReceiptRuleSetsResponse -> String)
-> ([ListReceiptRuleSetsResponse] -> ShowS)
-> Show ListReceiptRuleSetsResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ListReceiptRuleSetsResponse -> ShowS
showsPrec :: Int -> ListReceiptRuleSetsResponse -> ShowS
$cshow :: ListReceiptRuleSetsResponse -> String
show :: ListReceiptRuleSetsResponse -> String
$cshowList :: [ListReceiptRuleSetsResponse] -> ShowS
showList :: [ListReceiptRuleSetsResponse] -> ShowS
Prelude.Show, (forall x.
ListReceiptRuleSetsResponse -> Rep ListReceiptRuleSetsResponse x)
-> (forall x.
Rep ListReceiptRuleSetsResponse x -> ListReceiptRuleSetsResponse)
-> Generic ListReceiptRuleSetsResponse
forall x.
Rep ListReceiptRuleSetsResponse x -> ListReceiptRuleSetsResponse
forall x.
ListReceiptRuleSetsResponse -> Rep ListReceiptRuleSetsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
ListReceiptRuleSetsResponse -> Rep ListReceiptRuleSetsResponse x
from :: forall x.
ListReceiptRuleSetsResponse -> Rep ListReceiptRuleSetsResponse x
$cto :: forall x.
Rep ListReceiptRuleSetsResponse x -> ListReceiptRuleSetsResponse
to :: forall x.
Rep ListReceiptRuleSetsResponse x -> ListReceiptRuleSetsResponse
Prelude.Generic)
newListReceiptRuleSetsResponse ::
Prelude.Int ->
ListReceiptRuleSetsResponse
newListReceiptRuleSetsResponse :: Int -> ListReceiptRuleSetsResponse
newListReceiptRuleSetsResponse Int
pHttpStatus_ =
ListReceiptRuleSetsResponse'
{ nextToken :: Maybe Text
nextToken =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:ruleSets:ListReceiptRuleSetsResponse' :: Maybe [ReceiptRuleSetMetadata]
ruleSets = Maybe [ReceiptRuleSetMetadata]
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListReceiptRuleSetsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listReceiptRuleSetsResponse_nextToken :: Lens.Lens' ListReceiptRuleSetsResponse (Prelude.Maybe Prelude.Text)
listReceiptRuleSetsResponse_nextToken :: Lens' ListReceiptRuleSetsResponse (Maybe Text)
listReceiptRuleSetsResponse_nextToken = (ListReceiptRuleSetsResponse -> Maybe Text)
-> (ListReceiptRuleSetsResponse
-> Maybe Text -> ListReceiptRuleSetsResponse)
-> Lens' ListReceiptRuleSetsResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListReceiptRuleSetsResponse' {Maybe Text
nextToken :: ListReceiptRuleSetsResponse -> Maybe Text
nextToken :: Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListReceiptRuleSetsResponse
s@ListReceiptRuleSetsResponse' {} Maybe Text
a -> ListReceiptRuleSetsResponse
s {nextToken = a} :: ListReceiptRuleSetsResponse)
listReceiptRuleSetsResponse_ruleSets :: Lens.Lens' ListReceiptRuleSetsResponse (Prelude.Maybe [ReceiptRuleSetMetadata])
listReceiptRuleSetsResponse_ruleSets :: Lens' ListReceiptRuleSetsResponse (Maybe [ReceiptRuleSetMetadata])
listReceiptRuleSetsResponse_ruleSets = (ListReceiptRuleSetsResponse -> Maybe [ReceiptRuleSetMetadata])
-> (ListReceiptRuleSetsResponse
-> Maybe [ReceiptRuleSetMetadata] -> ListReceiptRuleSetsResponse)
-> Lens'
ListReceiptRuleSetsResponse (Maybe [ReceiptRuleSetMetadata])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListReceiptRuleSetsResponse' {Maybe [ReceiptRuleSetMetadata]
$sel:ruleSets:ListReceiptRuleSetsResponse' :: ListReceiptRuleSetsResponse -> Maybe [ReceiptRuleSetMetadata]
ruleSets :: Maybe [ReceiptRuleSetMetadata]
ruleSets} -> Maybe [ReceiptRuleSetMetadata]
ruleSets) (\s :: ListReceiptRuleSetsResponse
s@ListReceiptRuleSetsResponse' {} Maybe [ReceiptRuleSetMetadata]
a -> ListReceiptRuleSetsResponse
s {ruleSets = a} :: ListReceiptRuleSetsResponse) ((Maybe [ReceiptRuleSetMetadata]
-> f (Maybe [ReceiptRuleSetMetadata]))
-> ListReceiptRuleSetsResponse -> f ListReceiptRuleSetsResponse)
-> ((Maybe [ReceiptRuleSetMetadata]
-> f (Maybe [ReceiptRuleSetMetadata]))
-> Maybe [ReceiptRuleSetMetadata]
-> f (Maybe [ReceiptRuleSetMetadata]))
-> (Maybe [ReceiptRuleSetMetadata]
-> f (Maybe [ReceiptRuleSetMetadata]))
-> ListReceiptRuleSetsResponse
-> f ListReceiptRuleSetsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
-> Iso
(Maybe [ReceiptRuleSetMetadata])
(Maybe [ReceiptRuleSetMetadata])
(Maybe [ReceiptRuleSetMetadata])
(Maybe [ReceiptRuleSetMetadata])
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
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
[ReceiptRuleSetMetadata]
Lens.coerced
listReceiptRuleSetsResponse_httpStatus :: Lens.Lens' ListReceiptRuleSetsResponse Prelude.Int
listReceiptRuleSetsResponse_httpStatus :: Lens' ListReceiptRuleSetsResponse Int
listReceiptRuleSetsResponse_httpStatus = (ListReceiptRuleSetsResponse -> Int)
-> (ListReceiptRuleSetsResponse
-> Int -> ListReceiptRuleSetsResponse)
-> Lens' ListReceiptRuleSetsResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListReceiptRuleSetsResponse' {Int
$sel:httpStatus:ListReceiptRuleSetsResponse' :: ListReceiptRuleSetsResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: ListReceiptRuleSetsResponse
s@ListReceiptRuleSetsResponse' {} Int
a -> ListReceiptRuleSetsResponse
s {httpStatus = a} :: ListReceiptRuleSetsResponse)
instance Prelude.NFData ListReceiptRuleSetsResponse where
rnf :: ListReceiptRuleSetsResponse -> ()
rnf ListReceiptRuleSetsResponse' {Int
Maybe [ReceiptRuleSetMetadata]
Maybe Text
nextToken :: ListReceiptRuleSetsResponse -> Maybe Text
$sel:ruleSets:ListReceiptRuleSetsResponse' :: ListReceiptRuleSetsResponse -> Maybe [ReceiptRuleSetMetadata]
$sel:httpStatus:ListReceiptRuleSetsResponse' :: ListReceiptRuleSetsResponse -> Int
nextToken :: Maybe Text
ruleSets :: Maybe [ReceiptRuleSetMetadata]
httpStatus :: Int
..} =
Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe [ReceiptRuleSetMetadata] -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ReceiptRuleSetMetadata]
ruleSets
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus