{-# 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.Route53.ListResourceRecordSets
(
ListResourceRecordSets (..),
newListResourceRecordSets,
listResourceRecordSets_maxItems,
listResourceRecordSets_startRecordIdentifier,
listResourceRecordSets_startRecordName,
listResourceRecordSets_startRecordType,
listResourceRecordSets_hostedZoneId,
ListResourceRecordSetsResponse (..),
newListResourceRecordSetsResponse,
listResourceRecordSetsResponse_nextRecordIdentifier,
listResourceRecordSetsResponse_nextRecordName,
listResourceRecordSetsResponse_nextRecordType,
listResourceRecordSetsResponse_httpStatus,
listResourceRecordSetsResponse_resourceRecordSets,
listResourceRecordSetsResponse_isTruncated,
listResourceRecordSetsResponse_maxItems,
)
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.Route53.Types
data ListResourceRecordSets = ListResourceRecordSets'
{
ListResourceRecordSets -> Maybe Text
maxItems :: Prelude.Maybe Prelude.Text,
ListResourceRecordSets -> Maybe Text
startRecordIdentifier :: Prelude.Maybe Prelude.Text,
ListResourceRecordSets -> Maybe Text
startRecordName :: Prelude.Maybe Prelude.Text,
ListResourceRecordSets -> Maybe RRType
startRecordType :: Prelude.Maybe RRType,
ListResourceRecordSets -> ResourceId
hostedZoneId :: ResourceId
}
deriving (ListResourceRecordSets -> ListResourceRecordSets -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResourceRecordSets -> ListResourceRecordSets -> Bool
$c/= :: ListResourceRecordSets -> ListResourceRecordSets -> Bool
== :: ListResourceRecordSets -> ListResourceRecordSets -> Bool
$c== :: ListResourceRecordSets -> ListResourceRecordSets -> Bool
Prelude.Eq, ReadPrec [ListResourceRecordSets]
ReadPrec ListResourceRecordSets
Int -> ReadS ListResourceRecordSets
ReadS [ListResourceRecordSets]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResourceRecordSets]
$creadListPrec :: ReadPrec [ListResourceRecordSets]
readPrec :: ReadPrec ListResourceRecordSets
$creadPrec :: ReadPrec ListResourceRecordSets
readList :: ReadS [ListResourceRecordSets]
$creadList :: ReadS [ListResourceRecordSets]
readsPrec :: Int -> ReadS ListResourceRecordSets
$creadsPrec :: Int -> ReadS ListResourceRecordSets
Prelude.Read, Int -> ListResourceRecordSets -> ShowS
[ListResourceRecordSets] -> ShowS
ListResourceRecordSets -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResourceRecordSets] -> ShowS
$cshowList :: [ListResourceRecordSets] -> ShowS
show :: ListResourceRecordSets -> String
$cshow :: ListResourceRecordSets -> String
showsPrec :: Int -> ListResourceRecordSets -> ShowS
$cshowsPrec :: Int -> ListResourceRecordSets -> ShowS
Prelude.Show, forall x. Rep ListResourceRecordSets x -> ListResourceRecordSets
forall x. ListResourceRecordSets -> Rep ListResourceRecordSets x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListResourceRecordSets x -> ListResourceRecordSets
$cfrom :: forall x. ListResourceRecordSets -> Rep ListResourceRecordSets x
Prelude.Generic)
newListResourceRecordSets ::
ResourceId ->
ListResourceRecordSets
newListResourceRecordSets :: ResourceId -> ListResourceRecordSets
newListResourceRecordSets ResourceId
pHostedZoneId_ =
ListResourceRecordSets'
{ $sel:maxItems:ListResourceRecordSets' :: Maybe Text
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:startRecordIdentifier:ListResourceRecordSets' :: Maybe Text
startRecordIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:startRecordName:ListResourceRecordSets' :: Maybe Text
startRecordName = forall a. Maybe a
Prelude.Nothing,
$sel:startRecordType:ListResourceRecordSets' :: Maybe RRType
startRecordType = forall a. Maybe a
Prelude.Nothing,
$sel:hostedZoneId:ListResourceRecordSets' :: ResourceId
hostedZoneId = ResourceId
pHostedZoneId_
}
listResourceRecordSets_maxItems :: Lens.Lens' ListResourceRecordSets (Prelude.Maybe Prelude.Text)
listResourceRecordSets_maxItems :: Lens' ListResourceRecordSets (Maybe Text)
listResourceRecordSets_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSets' {Maybe Text
maxItems :: Maybe Text
$sel:maxItems:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
maxItems} -> Maybe Text
maxItems) (\s :: ListResourceRecordSets
s@ListResourceRecordSets' {} Maybe Text
a -> ListResourceRecordSets
s {$sel:maxItems:ListResourceRecordSets' :: Maybe Text
maxItems = Maybe Text
a} :: ListResourceRecordSets)
listResourceRecordSets_startRecordIdentifier :: Lens.Lens' ListResourceRecordSets (Prelude.Maybe Prelude.Text)
listResourceRecordSets_startRecordIdentifier :: Lens' ListResourceRecordSets (Maybe Text)
listResourceRecordSets_startRecordIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSets' {Maybe Text
startRecordIdentifier :: Maybe Text
$sel:startRecordIdentifier:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
startRecordIdentifier} -> Maybe Text
startRecordIdentifier) (\s :: ListResourceRecordSets
s@ListResourceRecordSets' {} Maybe Text
a -> ListResourceRecordSets
s {$sel:startRecordIdentifier:ListResourceRecordSets' :: Maybe Text
startRecordIdentifier = Maybe Text
a} :: ListResourceRecordSets)
listResourceRecordSets_startRecordName :: Lens.Lens' ListResourceRecordSets (Prelude.Maybe Prelude.Text)
listResourceRecordSets_startRecordName :: Lens' ListResourceRecordSets (Maybe Text)
listResourceRecordSets_startRecordName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSets' {Maybe Text
startRecordName :: Maybe Text
$sel:startRecordName:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
startRecordName} -> Maybe Text
startRecordName) (\s :: ListResourceRecordSets
s@ListResourceRecordSets' {} Maybe Text
a -> ListResourceRecordSets
s {$sel:startRecordName:ListResourceRecordSets' :: Maybe Text
startRecordName = Maybe Text
a} :: ListResourceRecordSets)
listResourceRecordSets_startRecordType :: Lens.Lens' ListResourceRecordSets (Prelude.Maybe RRType)
listResourceRecordSets_startRecordType :: Lens' ListResourceRecordSets (Maybe RRType)
listResourceRecordSets_startRecordType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSets' {Maybe RRType
startRecordType :: Maybe RRType
$sel:startRecordType:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe RRType
startRecordType} -> Maybe RRType
startRecordType) (\s :: ListResourceRecordSets
s@ListResourceRecordSets' {} Maybe RRType
a -> ListResourceRecordSets
s {$sel:startRecordType:ListResourceRecordSets' :: Maybe RRType
startRecordType = Maybe RRType
a} :: ListResourceRecordSets)
listResourceRecordSets_hostedZoneId :: Lens.Lens' ListResourceRecordSets ResourceId
listResourceRecordSets_hostedZoneId :: Lens' ListResourceRecordSets ResourceId
listResourceRecordSets_hostedZoneId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSets' {ResourceId
hostedZoneId :: ResourceId
$sel:hostedZoneId:ListResourceRecordSets' :: ListResourceRecordSets -> ResourceId
hostedZoneId} -> ResourceId
hostedZoneId) (\s :: ListResourceRecordSets
s@ListResourceRecordSets' {} ResourceId
a -> ListResourceRecordSets
s {$sel:hostedZoneId:ListResourceRecordSets' :: ResourceId
hostedZoneId = ResourceId
a} :: ListResourceRecordSets)
instance Core.AWSPager ListResourceRecordSets where
page :: ListResourceRecordSets
-> AWSResponse ListResourceRecordSets
-> Maybe ListResourceRecordSets
page ListResourceRecordSets
rq AWSResponse ListResourceRecordSets
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting a s a -> a
Lens.^. Lens' ListResourceRecordSetsResponse Bool
listResourceRecordSetsResponse_isTruncated
) =
forall a. Maybe a
Prelude.Nothing
| forall a. Maybe a -> Bool
Prelude.isNothing
( AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceRecordSetsResponse (Maybe Text)
listResourceRecordSetsResponse_nextRecordName
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
Bool -> Bool -> Bool
Prelude.&& forall a. Maybe a -> Bool
Prelude.isNothing
( AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceRecordSetsResponse (Maybe RRType)
listResourceRecordSetsResponse_nextRecordType
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
)
Bool -> Bool -> Bool
Prelude.&& forall a. Maybe a -> Bool
Prelude.isNothing
( AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceRecordSetsResponse (Maybe Text)
listResourceRecordSetsResponse_nextRecordIdentifier
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.$ ListResourceRecordSets
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListResourceRecordSets (Maybe Text)
listResourceRecordSets_startRecordName
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceRecordSetsResponse (Maybe Text)
listResourceRecordSetsResponse_nextRecordName
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 b. a -> (a -> b) -> b
Prelude.& Lens' ListResourceRecordSets (Maybe RRType)
listResourceRecordSets_startRecordType
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceRecordSetsResponse (Maybe RRType)
listResourceRecordSetsResponse_nextRecordType
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 b. a -> (a -> b) -> b
Prelude.& Lens' ListResourceRecordSets (Maybe Text)
listResourceRecordSets_startRecordIdentifier
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListResourceRecordSets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceRecordSetsResponse (Maybe Text)
listResourceRecordSetsResponse_nextRecordIdentifier
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 ListResourceRecordSets where
type
AWSResponse ListResourceRecordSets =
ListResourceRecordSetsResponse
request :: (Service -> Service)
-> ListResourceRecordSets -> Request ListResourceRecordSets
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListResourceRecordSets
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListResourceRecordSets)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe Text
-> Maybe RRType
-> Int
-> [ResourceRecordSet]
-> Bool
-> Text
-> ListResourceRecordSetsResponse
ListResourceRecordSetsResponse'
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
"NextRecordIdentifier")
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
"NextRecordName")
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
"NextRecordType")
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))
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
"ResourceRecordSets"
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 a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"ResourceRecordSet"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"IsTruncated")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"MaxItems")
)
instance Prelude.Hashable ListResourceRecordSets where
hashWithSalt :: Int -> ListResourceRecordSets -> Int
hashWithSalt Int
_salt ListResourceRecordSets' {Maybe Text
Maybe RRType
ResourceId
hostedZoneId :: ResourceId
startRecordType :: Maybe RRType
startRecordName :: Maybe Text
startRecordIdentifier :: Maybe Text
maxItems :: Maybe Text
$sel:hostedZoneId:ListResourceRecordSets' :: ListResourceRecordSets -> ResourceId
$sel:startRecordType:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe RRType
$sel:startRecordName:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:startRecordIdentifier:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:maxItems:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maxItems
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
startRecordIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
startRecordName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RRType
startRecordType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ResourceId
hostedZoneId
instance Prelude.NFData ListResourceRecordSets where
rnf :: ListResourceRecordSets -> ()
rnf ListResourceRecordSets' {Maybe Text
Maybe RRType
ResourceId
hostedZoneId :: ResourceId
startRecordType :: Maybe RRType
startRecordName :: Maybe Text
startRecordIdentifier :: Maybe Text
maxItems :: Maybe Text
$sel:hostedZoneId:ListResourceRecordSets' :: ListResourceRecordSets -> ResourceId
$sel:startRecordType:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe RRType
$sel:startRecordName:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:startRecordIdentifier:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:maxItems:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
maxItems
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
startRecordIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
startRecordName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RRType
startRecordType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ResourceId
hostedZoneId
instance Data.ToHeaders ListResourceRecordSets where
toHeaders :: ListResourceRecordSets -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListResourceRecordSets where
toPath :: ListResourceRecordSets -> ByteString
toPath ListResourceRecordSets' {Maybe Text
Maybe RRType
ResourceId
hostedZoneId :: ResourceId
startRecordType :: Maybe RRType
startRecordName :: Maybe Text
startRecordIdentifier :: Maybe Text
maxItems :: Maybe Text
$sel:hostedZoneId:ListResourceRecordSets' :: ListResourceRecordSets -> ResourceId
$sel:startRecordType:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe RRType
$sel:startRecordName:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:startRecordIdentifier:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:maxItems:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2013-04-01/hostedzone/",
forall a. ToByteString a => a -> ByteString
Data.toBS ResourceId
hostedZoneId,
ByteString
"/rrset"
]
instance Data.ToQuery ListResourceRecordSets where
toQuery :: ListResourceRecordSets -> QueryString
toQuery ListResourceRecordSets' {Maybe Text
Maybe RRType
ResourceId
hostedZoneId :: ResourceId
startRecordType :: Maybe RRType
startRecordName :: Maybe Text
startRecordIdentifier :: Maybe Text
maxItems :: Maybe Text
$sel:hostedZoneId:ListResourceRecordSets' :: ListResourceRecordSets -> ResourceId
$sel:startRecordType:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe RRType
$sel:startRecordName:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:startRecordIdentifier:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
$sel:maxItems:ListResourceRecordSets' :: ListResourceRecordSets -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxitems" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
maxItems,
ByteString
"identifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
startRecordIdentifier,
ByteString
"name" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
startRecordName,
ByteString
"type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe RRType
startRecordType
]
data ListResourceRecordSetsResponse = ListResourceRecordSetsResponse'
{
ListResourceRecordSetsResponse -> Maybe Text
nextRecordIdentifier :: Prelude.Maybe Prelude.Text,
ListResourceRecordSetsResponse -> Maybe Text
nextRecordName :: Prelude.Maybe Prelude.Text,
ListResourceRecordSetsResponse -> Maybe RRType
nextRecordType :: Prelude.Maybe RRType,
ListResourceRecordSetsResponse -> Int
httpStatus :: Prelude.Int,
ListResourceRecordSetsResponse -> [ResourceRecordSet]
resourceRecordSets :: [ResourceRecordSet],
ListResourceRecordSetsResponse -> Bool
isTruncated :: Prelude.Bool,
ListResourceRecordSetsResponse -> Text
maxItems :: Prelude.Text
}
deriving (ListResourceRecordSetsResponse
-> ListResourceRecordSetsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResourceRecordSetsResponse
-> ListResourceRecordSetsResponse -> Bool
$c/= :: ListResourceRecordSetsResponse
-> ListResourceRecordSetsResponse -> Bool
== :: ListResourceRecordSetsResponse
-> ListResourceRecordSetsResponse -> Bool
$c== :: ListResourceRecordSetsResponse
-> ListResourceRecordSetsResponse -> Bool
Prelude.Eq, ReadPrec [ListResourceRecordSetsResponse]
ReadPrec ListResourceRecordSetsResponse
Int -> ReadS ListResourceRecordSetsResponse
ReadS [ListResourceRecordSetsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResourceRecordSetsResponse]
$creadListPrec :: ReadPrec [ListResourceRecordSetsResponse]
readPrec :: ReadPrec ListResourceRecordSetsResponse
$creadPrec :: ReadPrec ListResourceRecordSetsResponse
readList :: ReadS [ListResourceRecordSetsResponse]
$creadList :: ReadS [ListResourceRecordSetsResponse]
readsPrec :: Int -> ReadS ListResourceRecordSetsResponse
$creadsPrec :: Int -> ReadS ListResourceRecordSetsResponse
Prelude.Read, Int -> ListResourceRecordSetsResponse -> ShowS
[ListResourceRecordSetsResponse] -> ShowS
ListResourceRecordSetsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResourceRecordSetsResponse] -> ShowS
$cshowList :: [ListResourceRecordSetsResponse] -> ShowS
show :: ListResourceRecordSetsResponse -> String
$cshow :: ListResourceRecordSetsResponse -> String
showsPrec :: Int -> ListResourceRecordSetsResponse -> ShowS
$cshowsPrec :: Int -> ListResourceRecordSetsResponse -> ShowS
Prelude.Show, forall x.
Rep ListResourceRecordSetsResponse x
-> ListResourceRecordSetsResponse
forall x.
ListResourceRecordSetsResponse
-> Rep ListResourceRecordSetsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListResourceRecordSetsResponse x
-> ListResourceRecordSetsResponse
$cfrom :: forall x.
ListResourceRecordSetsResponse
-> Rep ListResourceRecordSetsResponse x
Prelude.Generic)
newListResourceRecordSetsResponse ::
Prelude.Int ->
Prelude.Bool ->
Prelude.Text ->
ListResourceRecordSetsResponse
newListResourceRecordSetsResponse :: Int -> Bool -> Text -> ListResourceRecordSetsResponse
newListResourceRecordSetsResponse
Int
pHttpStatus_
Bool
pIsTruncated_
Text
pMaxItems_ =
ListResourceRecordSetsResponse'
{ $sel:nextRecordIdentifier:ListResourceRecordSetsResponse' :: Maybe Text
nextRecordIdentifier =
forall a. Maybe a
Prelude.Nothing,
$sel:nextRecordName:ListResourceRecordSetsResponse' :: Maybe Text
nextRecordName = forall a. Maybe a
Prelude.Nothing,
$sel:nextRecordType:ListResourceRecordSetsResponse' :: Maybe RRType
nextRecordType = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListResourceRecordSetsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:resourceRecordSets:ListResourceRecordSetsResponse' :: [ResourceRecordSet]
resourceRecordSets = forall a. Monoid a => a
Prelude.mempty,
$sel:isTruncated:ListResourceRecordSetsResponse' :: Bool
isTruncated = Bool
pIsTruncated_,
$sel:maxItems:ListResourceRecordSetsResponse' :: Text
maxItems = Text
pMaxItems_
}
listResourceRecordSetsResponse_nextRecordIdentifier :: Lens.Lens' ListResourceRecordSetsResponse (Prelude.Maybe Prelude.Text)
listResourceRecordSetsResponse_nextRecordIdentifier :: Lens' ListResourceRecordSetsResponse (Maybe Text)
listResourceRecordSetsResponse_nextRecordIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {Maybe Text
nextRecordIdentifier :: Maybe Text
$sel:nextRecordIdentifier:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Maybe Text
nextRecordIdentifier} -> Maybe Text
nextRecordIdentifier) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} Maybe Text
a -> ListResourceRecordSetsResponse
s {$sel:nextRecordIdentifier:ListResourceRecordSetsResponse' :: Maybe Text
nextRecordIdentifier = Maybe Text
a} :: ListResourceRecordSetsResponse)
listResourceRecordSetsResponse_nextRecordName :: Lens.Lens' ListResourceRecordSetsResponse (Prelude.Maybe Prelude.Text)
listResourceRecordSetsResponse_nextRecordName :: Lens' ListResourceRecordSetsResponse (Maybe Text)
listResourceRecordSetsResponse_nextRecordName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {Maybe Text
nextRecordName :: Maybe Text
$sel:nextRecordName:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Maybe Text
nextRecordName} -> Maybe Text
nextRecordName) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} Maybe Text
a -> ListResourceRecordSetsResponse
s {$sel:nextRecordName:ListResourceRecordSetsResponse' :: Maybe Text
nextRecordName = Maybe Text
a} :: ListResourceRecordSetsResponse)
listResourceRecordSetsResponse_nextRecordType :: Lens.Lens' ListResourceRecordSetsResponse (Prelude.Maybe RRType)
listResourceRecordSetsResponse_nextRecordType :: Lens' ListResourceRecordSetsResponse (Maybe RRType)
listResourceRecordSetsResponse_nextRecordType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {Maybe RRType
nextRecordType :: Maybe RRType
$sel:nextRecordType:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Maybe RRType
nextRecordType} -> Maybe RRType
nextRecordType) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} Maybe RRType
a -> ListResourceRecordSetsResponse
s {$sel:nextRecordType:ListResourceRecordSetsResponse' :: Maybe RRType
nextRecordType = Maybe RRType
a} :: ListResourceRecordSetsResponse)
listResourceRecordSetsResponse_httpStatus :: Lens.Lens' ListResourceRecordSetsResponse Prelude.Int
listResourceRecordSetsResponse_httpStatus :: Lens' ListResourceRecordSetsResponse Int
listResourceRecordSetsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} Int
a -> ListResourceRecordSetsResponse
s {$sel:httpStatus:ListResourceRecordSetsResponse' :: Int
httpStatus = Int
a} :: ListResourceRecordSetsResponse)
listResourceRecordSetsResponse_resourceRecordSets :: Lens.Lens' ListResourceRecordSetsResponse [ResourceRecordSet]
listResourceRecordSetsResponse_resourceRecordSets :: Lens' ListResourceRecordSetsResponse [ResourceRecordSet]
listResourceRecordSetsResponse_resourceRecordSets = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {[ResourceRecordSet]
resourceRecordSets :: [ResourceRecordSet]
$sel:resourceRecordSets:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> [ResourceRecordSet]
resourceRecordSets} -> [ResourceRecordSet]
resourceRecordSets) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} [ResourceRecordSet]
a -> ListResourceRecordSetsResponse
s {$sel:resourceRecordSets:ListResourceRecordSetsResponse' :: [ResourceRecordSet]
resourceRecordSets = [ResourceRecordSet]
a} :: ListResourceRecordSetsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listResourceRecordSetsResponse_isTruncated :: Lens.Lens' ListResourceRecordSetsResponse Prelude.Bool
listResourceRecordSetsResponse_isTruncated :: Lens' ListResourceRecordSetsResponse Bool
listResourceRecordSetsResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {Bool
isTruncated :: Bool
$sel:isTruncated:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Bool
isTruncated} -> Bool
isTruncated) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} Bool
a -> ListResourceRecordSetsResponse
s {$sel:isTruncated:ListResourceRecordSetsResponse' :: Bool
isTruncated = Bool
a} :: ListResourceRecordSetsResponse)
listResourceRecordSetsResponse_maxItems :: Lens.Lens' ListResourceRecordSetsResponse Prelude.Text
listResourceRecordSetsResponse_maxItems :: Lens' ListResourceRecordSetsResponse Text
listResourceRecordSetsResponse_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceRecordSetsResponse' {Text
maxItems :: Text
$sel:maxItems:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Text
maxItems} -> Text
maxItems) (\s :: ListResourceRecordSetsResponse
s@ListResourceRecordSetsResponse' {} Text
a -> ListResourceRecordSetsResponse
s {$sel:maxItems:ListResourceRecordSetsResponse' :: Text
maxItems = Text
a} :: ListResourceRecordSetsResponse)
instance
Prelude.NFData
ListResourceRecordSetsResponse
where
rnf :: ListResourceRecordSetsResponse -> ()
rnf ListResourceRecordSetsResponse' {Bool
Int
[ResourceRecordSet]
Maybe Text
Maybe RRType
Text
maxItems :: Text
isTruncated :: Bool
resourceRecordSets :: [ResourceRecordSet]
httpStatus :: Int
nextRecordType :: Maybe RRType
nextRecordName :: Maybe Text
nextRecordIdentifier :: Maybe Text
$sel:maxItems:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Text
$sel:isTruncated:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Bool
$sel:resourceRecordSets:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> [ResourceRecordSet]
$sel:httpStatus:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Int
$sel:nextRecordType:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Maybe RRType
$sel:nextRecordName:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Maybe Text
$sel:nextRecordIdentifier:ListResourceRecordSetsResponse' :: ListResourceRecordSetsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextRecordIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextRecordName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RRType
nextRecordType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ResourceRecordSet]
resourceRecordSets
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
isTruncated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
maxItems