{-# 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.ListTrafficPolicyInstances
(
ListTrafficPolicyInstances (..),
newListTrafficPolicyInstances,
listTrafficPolicyInstances_hostedZoneIdMarker,
listTrafficPolicyInstances_maxItems,
listTrafficPolicyInstances_trafficPolicyInstanceNameMarker,
listTrafficPolicyInstances_trafficPolicyInstanceTypeMarker,
ListTrafficPolicyInstancesResponse (..),
newListTrafficPolicyInstancesResponse,
listTrafficPolicyInstancesResponse_hostedZoneIdMarker,
listTrafficPolicyInstancesResponse_trafficPolicyInstanceNameMarker,
listTrafficPolicyInstancesResponse_trafficPolicyInstanceTypeMarker,
listTrafficPolicyInstancesResponse_httpStatus,
listTrafficPolicyInstancesResponse_trafficPolicyInstances,
listTrafficPolicyInstancesResponse_isTruncated,
listTrafficPolicyInstancesResponse_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 ListTrafficPolicyInstances = ListTrafficPolicyInstances'
{
ListTrafficPolicyInstances -> Maybe ResourceId
hostedZoneIdMarker :: Prelude.Maybe ResourceId,
ListTrafficPolicyInstances -> Maybe Text
maxItems :: Prelude.Maybe Prelude.Text,
ListTrafficPolicyInstances -> Maybe Text
trafficPolicyInstanceNameMarker :: Prelude.Maybe Prelude.Text,
ListTrafficPolicyInstances -> Maybe RRType
trafficPolicyInstanceTypeMarker :: Prelude.Maybe RRType
}
deriving (ListTrafficPolicyInstances -> ListTrafficPolicyInstances -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTrafficPolicyInstances -> ListTrafficPolicyInstances -> Bool
$c/= :: ListTrafficPolicyInstances -> ListTrafficPolicyInstances -> Bool
== :: ListTrafficPolicyInstances -> ListTrafficPolicyInstances -> Bool
$c== :: ListTrafficPolicyInstances -> ListTrafficPolicyInstances -> Bool
Prelude.Eq, ReadPrec [ListTrafficPolicyInstances]
ReadPrec ListTrafficPolicyInstances
Int -> ReadS ListTrafficPolicyInstances
ReadS [ListTrafficPolicyInstances]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTrafficPolicyInstances]
$creadListPrec :: ReadPrec [ListTrafficPolicyInstances]
readPrec :: ReadPrec ListTrafficPolicyInstances
$creadPrec :: ReadPrec ListTrafficPolicyInstances
readList :: ReadS [ListTrafficPolicyInstances]
$creadList :: ReadS [ListTrafficPolicyInstances]
readsPrec :: Int -> ReadS ListTrafficPolicyInstances
$creadsPrec :: Int -> ReadS ListTrafficPolicyInstances
Prelude.Read, Int -> ListTrafficPolicyInstances -> ShowS
[ListTrafficPolicyInstances] -> ShowS
ListTrafficPolicyInstances -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTrafficPolicyInstances] -> ShowS
$cshowList :: [ListTrafficPolicyInstances] -> ShowS
show :: ListTrafficPolicyInstances -> String
$cshow :: ListTrafficPolicyInstances -> String
showsPrec :: Int -> ListTrafficPolicyInstances -> ShowS
$cshowsPrec :: Int -> ListTrafficPolicyInstances -> ShowS
Prelude.Show, forall x.
Rep ListTrafficPolicyInstances x -> ListTrafficPolicyInstances
forall x.
ListTrafficPolicyInstances -> Rep ListTrafficPolicyInstances x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTrafficPolicyInstances x -> ListTrafficPolicyInstances
$cfrom :: forall x.
ListTrafficPolicyInstances -> Rep ListTrafficPolicyInstances x
Prelude.Generic)
newListTrafficPolicyInstances ::
ListTrafficPolicyInstances
newListTrafficPolicyInstances :: ListTrafficPolicyInstances
newListTrafficPolicyInstances =
ListTrafficPolicyInstances'
{ $sel:hostedZoneIdMarker:ListTrafficPolicyInstances' :: Maybe ResourceId
hostedZoneIdMarker =
forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:ListTrafficPolicyInstances' :: Maybe Text
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstances' :: Maybe Text
trafficPolicyInstanceNameMarker =
forall a. Maybe a
Prelude.Nothing,
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstances' :: Maybe RRType
trafficPolicyInstanceTypeMarker =
forall a. Maybe a
Prelude.Nothing
}
listTrafficPolicyInstances_hostedZoneIdMarker :: Lens.Lens' ListTrafficPolicyInstances (Prelude.Maybe ResourceId)
listTrafficPolicyInstances_hostedZoneIdMarker :: Lens' ListTrafficPolicyInstances (Maybe ResourceId)
listTrafficPolicyInstances_hostedZoneIdMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstances' {Maybe ResourceId
hostedZoneIdMarker :: Maybe ResourceId
$sel:hostedZoneIdMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe ResourceId
hostedZoneIdMarker} -> Maybe ResourceId
hostedZoneIdMarker) (\s :: ListTrafficPolicyInstances
s@ListTrafficPolicyInstances' {} Maybe ResourceId
a -> ListTrafficPolicyInstances
s {$sel:hostedZoneIdMarker:ListTrafficPolicyInstances' :: Maybe ResourceId
hostedZoneIdMarker = Maybe ResourceId
a} :: ListTrafficPolicyInstances)
listTrafficPolicyInstances_maxItems :: Lens.Lens' ListTrafficPolicyInstances (Prelude.Maybe Prelude.Text)
listTrafficPolicyInstances_maxItems :: Lens' ListTrafficPolicyInstances (Maybe Text)
listTrafficPolicyInstances_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstances' {Maybe Text
maxItems :: Maybe Text
$sel:maxItems:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
maxItems} -> Maybe Text
maxItems) (\s :: ListTrafficPolicyInstances
s@ListTrafficPolicyInstances' {} Maybe Text
a -> ListTrafficPolicyInstances
s {$sel:maxItems:ListTrafficPolicyInstances' :: Maybe Text
maxItems = Maybe Text
a} :: ListTrafficPolicyInstances)
listTrafficPolicyInstances_trafficPolicyInstanceNameMarker :: Lens.Lens' ListTrafficPolicyInstances (Prelude.Maybe Prelude.Text)
listTrafficPolicyInstances_trafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstances (Maybe Text)
listTrafficPolicyInstances_trafficPolicyInstanceNameMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstances' {Maybe Text
trafficPolicyInstanceNameMarker :: Maybe Text
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
trafficPolicyInstanceNameMarker} -> Maybe Text
trafficPolicyInstanceNameMarker) (\s :: ListTrafficPolicyInstances
s@ListTrafficPolicyInstances' {} Maybe Text
a -> ListTrafficPolicyInstances
s {$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstances' :: Maybe Text
trafficPolicyInstanceNameMarker = Maybe Text
a} :: ListTrafficPolicyInstances)
listTrafficPolicyInstances_trafficPolicyInstanceTypeMarker :: Lens.Lens' ListTrafficPolicyInstances (Prelude.Maybe RRType)
listTrafficPolicyInstances_trafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstances (Maybe RRType)
listTrafficPolicyInstances_trafficPolicyInstanceTypeMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstances' {Maybe RRType
trafficPolicyInstanceTypeMarker :: Maybe RRType
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe RRType
trafficPolicyInstanceTypeMarker} -> Maybe RRType
trafficPolicyInstanceTypeMarker) (\s :: ListTrafficPolicyInstances
s@ListTrafficPolicyInstances' {} Maybe RRType
a -> ListTrafficPolicyInstances
s {$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstances' :: Maybe RRType
trafficPolicyInstanceTypeMarker = Maybe RRType
a} :: ListTrafficPolicyInstances)
instance Core.AWSRequest ListTrafficPolicyInstances where
type
AWSResponse ListTrafficPolicyInstances =
ListTrafficPolicyInstancesResponse
request :: (Service -> Service)
-> ListTrafficPolicyInstances -> Request ListTrafficPolicyInstances
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 ListTrafficPolicyInstances
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTrafficPolicyInstances)))
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 ResourceId
-> Maybe Text
-> Maybe RRType
-> Int
-> [TrafficPolicyInstance]
-> Bool
-> Text
-> ListTrafficPolicyInstancesResponse
ListTrafficPolicyInstancesResponse'
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
"HostedZoneIdMarker")
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
"TrafficPolicyInstanceNameMarker")
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
"TrafficPolicyInstanceTypeMarker")
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
"TrafficPolicyInstances"
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
"TrafficPolicyInstance"
)
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 ListTrafficPolicyInstances where
hashWithSalt :: Int -> ListTrafficPolicyInstances -> Int
hashWithSalt Int
_salt ListTrafficPolicyInstances' {Maybe Text
Maybe ResourceId
Maybe RRType
trafficPolicyInstanceTypeMarker :: Maybe RRType
trafficPolicyInstanceNameMarker :: Maybe Text
maxItems :: Maybe Text
hostedZoneIdMarker :: Maybe ResourceId
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe RRType
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
$sel:maxItems:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
$sel:hostedZoneIdMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe ResourceId
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ResourceId
hostedZoneIdMarker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maxItems
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
trafficPolicyInstanceNameMarker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RRType
trafficPolicyInstanceTypeMarker
instance Prelude.NFData ListTrafficPolicyInstances where
rnf :: ListTrafficPolicyInstances -> ()
rnf ListTrafficPolicyInstances' {Maybe Text
Maybe ResourceId
Maybe RRType
trafficPolicyInstanceTypeMarker :: Maybe RRType
trafficPolicyInstanceNameMarker :: Maybe Text
maxItems :: Maybe Text
hostedZoneIdMarker :: Maybe ResourceId
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe RRType
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
$sel:maxItems:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
$sel:hostedZoneIdMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe ResourceId
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResourceId
hostedZoneIdMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` 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
trafficPolicyInstanceNameMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RRType
trafficPolicyInstanceTypeMarker
instance Data.ToHeaders ListTrafficPolicyInstances where
toHeaders :: ListTrafficPolicyInstances -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListTrafficPolicyInstances where
toPath :: ListTrafficPolicyInstances -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/2013-04-01/trafficpolicyinstances"
instance Data.ToQuery ListTrafficPolicyInstances where
toQuery :: ListTrafficPolicyInstances -> QueryString
toQuery ListTrafficPolicyInstances' {Maybe Text
Maybe ResourceId
Maybe RRType
trafficPolicyInstanceTypeMarker :: Maybe RRType
trafficPolicyInstanceNameMarker :: Maybe Text
maxItems :: Maybe Text
hostedZoneIdMarker :: Maybe ResourceId
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe RRType
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
$sel:maxItems:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe Text
$sel:hostedZoneIdMarker:ListTrafficPolicyInstances' :: ListTrafficPolicyInstances -> Maybe ResourceId
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"hostedzoneid" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ResourceId
hostedZoneIdMarker,
ByteString
"maxitems" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
maxItems,
ByteString
"trafficpolicyinstancename"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
trafficPolicyInstanceNameMarker,
ByteString
"trafficpolicyinstancetype"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe RRType
trafficPolicyInstanceTypeMarker
]
data ListTrafficPolicyInstancesResponse = ListTrafficPolicyInstancesResponse'
{
ListTrafficPolicyInstancesResponse -> Maybe ResourceId
hostedZoneIdMarker :: Prelude.Maybe ResourceId,
ListTrafficPolicyInstancesResponse -> Maybe Text
trafficPolicyInstanceNameMarker :: Prelude.Maybe Prelude.Text,
ListTrafficPolicyInstancesResponse -> Maybe RRType
trafficPolicyInstanceTypeMarker :: Prelude.Maybe RRType,
ListTrafficPolicyInstancesResponse -> Int
httpStatus :: Prelude.Int,
ListTrafficPolicyInstancesResponse -> [TrafficPolicyInstance]
trafficPolicyInstances :: [TrafficPolicyInstance],
ListTrafficPolicyInstancesResponse -> Bool
isTruncated :: Prelude.Bool,
ListTrafficPolicyInstancesResponse -> Text
maxItems :: Prelude.Text
}
deriving (ListTrafficPolicyInstancesResponse
-> ListTrafficPolicyInstancesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTrafficPolicyInstancesResponse
-> ListTrafficPolicyInstancesResponse -> Bool
$c/= :: ListTrafficPolicyInstancesResponse
-> ListTrafficPolicyInstancesResponse -> Bool
== :: ListTrafficPolicyInstancesResponse
-> ListTrafficPolicyInstancesResponse -> Bool
$c== :: ListTrafficPolicyInstancesResponse
-> ListTrafficPolicyInstancesResponse -> Bool
Prelude.Eq, ReadPrec [ListTrafficPolicyInstancesResponse]
ReadPrec ListTrafficPolicyInstancesResponse
Int -> ReadS ListTrafficPolicyInstancesResponse
ReadS [ListTrafficPolicyInstancesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTrafficPolicyInstancesResponse]
$creadListPrec :: ReadPrec [ListTrafficPolicyInstancesResponse]
readPrec :: ReadPrec ListTrafficPolicyInstancesResponse
$creadPrec :: ReadPrec ListTrafficPolicyInstancesResponse
readList :: ReadS [ListTrafficPolicyInstancesResponse]
$creadList :: ReadS [ListTrafficPolicyInstancesResponse]
readsPrec :: Int -> ReadS ListTrafficPolicyInstancesResponse
$creadsPrec :: Int -> ReadS ListTrafficPolicyInstancesResponse
Prelude.Read, Int -> ListTrafficPolicyInstancesResponse -> ShowS
[ListTrafficPolicyInstancesResponse] -> ShowS
ListTrafficPolicyInstancesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTrafficPolicyInstancesResponse] -> ShowS
$cshowList :: [ListTrafficPolicyInstancesResponse] -> ShowS
show :: ListTrafficPolicyInstancesResponse -> String
$cshow :: ListTrafficPolicyInstancesResponse -> String
showsPrec :: Int -> ListTrafficPolicyInstancesResponse -> ShowS
$cshowsPrec :: Int -> ListTrafficPolicyInstancesResponse -> ShowS
Prelude.Show, forall x.
Rep ListTrafficPolicyInstancesResponse x
-> ListTrafficPolicyInstancesResponse
forall x.
ListTrafficPolicyInstancesResponse
-> Rep ListTrafficPolicyInstancesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTrafficPolicyInstancesResponse x
-> ListTrafficPolicyInstancesResponse
$cfrom :: forall x.
ListTrafficPolicyInstancesResponse
-> Rep ListTrafficPolicyInstancesResponse x
Prelude.Generic)
newListTrafficPolicyInstancesResponse ::
Prelude.Int ->
Prelude.Bool ->
Prelude.Text ->
ListTrafficPolicyInstancesResponse
newListTrafficPolicyInstancesResponse :: Int -> Bool -> Text -> ListTrafficPolicyInstancesResponse
newListTrafficPolicyInstancesResponse
Int
pHttpStatus_
Bool
pIsTruncated_
Text
pMaxItems_ =
ListTrafficPolicyInstancesResponse'
{ $sel:hostedZoneIdMarker:ListTrafficPolicyInstancesResponse' :: Maybe ResourceId
hostedZoneIdMarker =
forall a. Maybe a
Prelude.Nothing,
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstancesResponse' :: Maybe Text
trafficPolicyInstanceNameMarker =
forall a. Maybe a
Prelude.Nothing,
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstancesResponse' :: Maybe RRType
trafficPolicyInstanceTypeMarker =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListTrafficPolicyInstancesResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:trafficPolicyInstances:ListTrafficPolicyInstancesResponse' :: [TrafficPolicyInstance]
trafficPolicyInstances = forall a. Monoid a => a
Prelude.mempty,
$sel:isTruncated:ListTrafficPolicyInstancesResponse' :: Bool
isTruncated = Bool
pIsTruncated_,
$sel:maxItems:ListTrafficPolicyInstancesResponse' :: Text
maxItems = Text
pMaxItems_
}
listTrafficPolicyInstancesResponse_hostedZoneIdMarker :: Lens.Lens' ListTrafficPolicyInstancesResponse (Prelude.Maybe ResourceId)
listTrafficPolicyInstancesResponse_hostedZoneIdMarker :: Lens' ListTrafficPolicyInstancesResponse (Maybe ResourceId)
listTrafficPolicyInstancesResponse_hostedZoneIdMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {Maybe ResourceId
hostedZoneIdMarker :: Maybe ResourceId
$sel:hostedZoneIdMarker:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Maybe ResourceId
hostedZoneIdMarker} -> Maybe ResourceId
hostedZoneIdMarker) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} Maybe ResourceId
a -> ListTrafficPolicyInstancesResponse
s {$sel:hostedZoneIdMarker:ListTrafficPolicyInstancesResponse' :: Maybe ResourceId
hostedZoneIdMarker = Maybe ResourceId
a} :: ListTrafficPolicyInstancesResponse)
listTrafficPolicyInstancesResponse_trafficPolicyInstanceNameMarker :: Lens.Lens' ListTrafficPolicyInstancesResponse (Prelude.Maybe Prelude.Text)
listTrafficPolicyInstancesResponse_trafficPolicyInstanceNameMarker :: Lens' ListTrafficPolicyInstancesResponse (Maybe Text)
listTrafficPolicyInstancesResponse_trafficPolicyInstanceNameMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {Maybe Text
trafficPolicyInstanceNameMarker :: Maybe Text
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Maybe Text
trafficPolicyInstanceNameMarker} -> Maybe Text
trafficPolicyInstanceNameMarker) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} Maybe Text
a -> ListTrafficPolicyInstancesResponse
s {$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstancesResponse' :: Maybe Text
trafficPolicyInstanceNameMarker = Maybe Text
a} :: ListTrafficPolicyInstancesResponse)
listTrafficPolicyInstancesResponse_trafficPolicyInstanceTypeMarker :: Lens.Lens' ListTrafficPolicyInstancesResponse (Prelude.Maybe RRType)
listTrafficPolicyInstancesResponse_trafficPolicyInstanceTypeMarker :: Lens' ListTrafficPolicyInstancesResponse (Maybe RRType)
listTrafficPolicyInstancesResponse_trafficPolicyInstanceTypeMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {Maybe RRType
trafficPolicyInstanceTypeMarker :: Maybe RRType
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Maybe RRType
trafficPolicyInstanceTypeMarker} -> Maybe RRType
trafficPolicyInstanceTypeMarker) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} Maybe RRType
a -> ListTrafficPolicyInstancesResponse
s {$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstancesResponse' :: Maybe RRType
trafficPolicyInstanceTypeMarker = Maybe RRType
a} :: ListTrafficPolicyInstancesResponse)
listTrafficPolicyInstancesResponse_httpStatus :: Lens.Lens' ListTrafficPolicyInstancesResponse Prelude.Int
listTrafficPolicyInstancesResponse_httpStatus :: Lens' ListTrafficPolicyInstancesResponse Int
listTrafficPolicyInstancesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} Int
a -> ListTrafficPolicyInstancesResponse
s {$sel:httpStatus:ListTrafficPolicyInstancesResponse' :: Int
httpStatus = Int
a} :: ListTrafficPolicyInstancesResponse)
listTrafficPolicyInstancesResponse_trafficPolicyInstances :: Lens.Lens' ListTrafficPolicyInstancesResponse [TrafficPolicyInstance]
listTrafficPolicyInstancesResponse_trafficPolicyInstances :: Lens' ListTrafficPolicyInstancesResponse [TrafficPolicyInstance]
listTrafficPolicyInstancesResponse_trafficPolicyInstances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {[TrafficPolicyInstance]
trafficPolicyInstances :: [TrafficPolicyInstance]
$sel:trafficPolicyInstances:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> [TrafficPolicyInstance]
trafficPolicyInstances} -> [TrafficPolicyInstance]
trafficPolicyInstances) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} [TrafficPolicyInstance]
a -> ListTrafficPolicyInstancesResponse
s {$sel:trafficPolicyInstances:ListTrafficPolicyInstancesResponse' :: [TrafficPolicyInstance]
trafficPolicyInstances = [TrafficPolicyInstance]
a} :: ListTrafficPolicyInstancesResponse) 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
listTrafficPolicyInstancesResponse_isTruncated :: Lens.Lens' ListTrafficPolicyInstancesResponse Prelude.Bool
listTrafficPolicyInstancesResponse_isTruncated :: Lens' ListTrafficPolicyInstancesResponse Bool
listTrafficPolicyInstancesResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {Bool
isTruncated :: Bool
$sel:isTruncated:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Bool
isTruncated} -> Bool
isTruncated) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} Bool
a -> ListTrafficPolicyInstancesResponse
s {$sel:isTruncated:ListTrafficPolicyInstancesResponse' :: Bool
isTruncated = Bool
a} :: ListTrafficPolicyInstancesResponse)
listTrafficPolicyInstancesResponse_maxItems :: Lens.Lens' ListTrafficPolicyInstancesResponse Prelude.Text
listTrafficPolicyInstancesResponse_maxItems :: Lens' ListTrafficPolicyInstancesResponse Text
listTrafficPolicyInstancesResponse_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTrafficPolicyInstancesResponse' {Text
maxItems :: Text
$sel:maxItems:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Text
maxItems} -> Text
maxItems) (\s :: ListTrafficPolicyInstancesResponse
s@ListTrafficPolicyInstancesResponse' {} Text
a -> ListTrafficPolicyInstancesResponse
s {$sel:maxItems:ListTrafficPolicyInstancesResponse' :: Text
maxItems = Text
a} :: ListTrafficPolicyInstancesResponse)
instance
Prelude.NFData
ListTrafficPolicyInstancesResponse
where
rnf :: ListTrafficPolicyInstancesResponse -> ()
rnf ListTrafficPolicyInstancesResponse' {Bool
Int
[TrafficPolicyInstance]
Maybe Text
Maybe ResourceId
Maybe RRType
Text
maxItems :: Text
isTruncated :: Bool
trafficPolicyInstances :: [TrafficPolicyInstance]
httpStatus :: Int
trafficPolicyInstanceTypeMarker :: Maybe RRType
trafficPolicyInstanceNameMarker :: Maybe Text
hostedZoneIdMarker :: Maybe ResourceId
$sel:maxItems:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Text
$sel:isTruncated:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Bool
$sel:trafficPolicyInstances:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> [TrafficPolicyInstance]
$sel:httpStatus:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Int
$sel:trafficPolicyInstanceTypeMarker:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Maybe RRType
$sel:trafficPolicyInstanceNameMarker:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Maybe Text
$sel:hostedZoneIdMarker:ListTrafficPolicyInstancesResponse' :: ListTrafficPolicyInstancesResponse -> Maybe ResourceId
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResourceId
hostedZoneIdMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
trafficPolicyInstanceNameMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RRType
trafficPolicyInstanceTypeMarker
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 [TrafficPolicyInstance]
trafficPolicyInstances
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