{-# 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.CreateTrafficPolicyInstance
(
CreateTrafficPolicyInstance (..),
newCreateTrafficPolicyInstance,
createTrafficPolicyInstance_hostedZoneId,
createTrafficPolicyInstance_name,
createTrafficPolicyInstance_ttl,
createTrafficPolicyInstance_trafficPolicyId,
createTrafficPolicyInstance_trafficPolicyVersion,
CreateTrafficPolicyInstanceResponse (..),
newCreateTrafficPolicyInstanceResponse,
createTrafficPolicyInstanceResponse_httpStatus,
createTrafficPolicyInstanceResponse_trafficPolicyInstance,
createTrafficPolicyInstanceResponse_location,
)
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 CreateTrafficPolicyInstance = CreateTrafficPolicyInstance'
{
CreateTrafficPolicyInstance -> ResourceId
hostedZoneId :: ResourceId,
CreateTrafficPolicyInstance -> Text
name :: Prelude.Text,
CreateTrafficPolicyInstance -> Natural
ttl :: Prelude.Natural,
CreateTrafficPolicyInstance -> Text
trafficPolicyId :: Prelude.Text,
CreateTrafficPolicyInstance -> Natural
trafficPolicyVersion :: Prelude.Natural
}
deriving (CreateTrafficPolicyInstance -> CreateTrafficPolicyInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrafficPolicyInstance -> CreateTrafficPolicyInstance -> Bool
$c/= :: CreateTrafficPolicyInstance -> CreateTrafficPolicyInstance -> Bool
== :: CreateTrafficPolicyInstance -> CreateTrafficPolicyInstance -> Bool
$c== :: CreateTrafficPolicyInstance -> CreateTrafficPolicyInstance -> Bool
Prelude.Eq, ReadPrec [CreateTrafficPolicyInstance]
ReadPrec CreateTrafficPolicyInstance
Int -> ReadS CreateTrafficPolicyInstance
ReadS [CreateTrafficPolicyInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrafficPolicyInstance]
$creadListPrec :: ReadPrec [CreateTrafficPolicyInstance]
readPrec :: ReadPrec CreateTrafficPolicyInstance
$creadPrec :: ReadPrec CreateTrafficPolicyInstance
readList :: ReadS [CreateTrafficPolicyInstance]
$creadList :: ReadS [CreateTrafficPolicyInstance]
readsPrec :: Int -> ReadS CreateTrafficPolicyInstance
$creadsPrec :: Int -> ReadS CreateTrafficPolicyInstance
Prelude.Read, Int -> CreateTrafficPolicyInstance -> ShowS
[CreateTrafficPolicyInstance] -> ShowS
CreateTrafficPolicyInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrafficPolicyInstance] -> ShowS
$cshowList :: [CreateTrafficPolicyInstance] -> ShowS
show :: CreateTrafficPolicyInstance -> String
$cshow :: CreateTrafficPolicyInstance -> String
showsPrec :: Int -> CreateTrafficPolicyInstance -> ShowS
$cshowsPrec :: Int -> CreateTrafficPolicyInstance -> ShowS
Prelude.Show, forall x.
Rep CreateTrafficPolicyInstance x -> CreateTrafficPolicyInstance
forall x.
CreateTrafficPolicyInstance -> Rep CreateTrafficPolicyInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTrafficPolicyInstance x -> CreateTrafficPolicyInstance
$cfrom :: forall x.
CreateTrafficPolicyInstance -> Rep CreateTrafficPolicyInstance x
Prelude.Generic)
newCreateTrafficPolicyInstance ::
ResourceId ->
Prelude.Text ->
Prelude.Natural ->
Prelude.Text ->
Prelude.Natural ->
CreateTrafficPolicyInstance
newCreateTrafficPolicyInstance :: ResourceId
-> Text
-> Natural
-> Text
-> Natural
-> CreateTrafficPolicyInstance
newCreateTrafficPolicyInstance
ResourceId
pHostedZoneId_
Text
pName_
Natural
pTTL_
Text
pTrafficPolicyId_
Natural
pTrafficPolicyVersion_ =
CreateTrafficPolicyInstance'
{ $sel:hostedZoneId:CreateTrafficPolicyInstance' :: ResourceId
hostedZoneId =
ResourceId
pHostedZoneId_,
$sel:name:CreateTrafficPolicyInstance' :: Text
name = Text
pName_,
$sel:ttl:CreateTrafficPolicyInstance' :: Natural
ttl = Natural
pTTL_,
$sel:trafficPolicyId:CreateTrafficPolicyInstance' :: Text
trafficPolicyId = Text
pTrafficPolicyId_,
$sel:trafficPolicyVersion:CreateTrafficPolicyInstance' :: Natural
trafficPolicyVersion = Natural
pTrafficPolicyVersion_
}
createTrafficPolicyInstance_hostedZoneId :: Lens.Lens' CreateTrafficPolicyInstance ResourceId
createTrafficPolicyInstance_hostedZoneId :: Lens' CreateTrafficPolicyInstance ResourceId
createTrafficPolicyInstance_hostedZoneId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstance' {ResourceId
hostedZoneId :: ResourceId
$sel:hostedZoneId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> ResourceId
hostedZoneId} -> ResourceId
hostedZoneId) (\s :: CreateTrafficPolicyInstance
s@CreateTrafficPolicyInstance' {} ResourceId
a -> CreateTrafficPolicyInstance
s {$sel:hostedZoneId:CreateTrafficPolicyInstance' :: ResourceId
hostedZoneId = ResourceId
a} :: CreateTrafficPolicyInstance)
createTrafficPolicyInstance_name :: Lens.Lens' CreateTrafficPolicyInstance Prelude.Text
createTrafficPolicyInstance_name :: Lens' CreateTrafficPolicyInstance Text
createTrafficPolicyInstance_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstance' {Text
name :: Text
$sel:name:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
name} -> Text
name) (\s :: CreateTrafficPolicyInstance
s@CreateTrafficPolicyInstance' {} Text
a -> CreateTrafficPolicyInstance
s {$sel:name:CreateTrafficPolicyInstance' :: Text
name = Text
a} :: CreateTrafficPolicyInstance)
createTrafficPolicyInstance_ttl :: Lens.Lens' CreateTrafficPolicyInstance Prelude.Natural
createTrafficPolicyInstance_ttl :: Lens' CreateTrafficPolicyInstance Natural
createTrafficPolicyInstance_ttl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstance' {Natural
ttl :: Natural
$sel:ttl:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
ttl} -> Natural
ttl) (\s :: CreateTrafficPolicyInstance
s@CreateTrafficPolicyInstance' {} Natural
a -> CreateTrafficPolicyInstance
s {$sel:ttl:CreateTrafficPolicyInstance' :: Natural
ttl = Natural
a} :: CreateTrafficPolicyInstance)
createTrafficPolicyInstance_trafficPolicyId :: Lens.Lens' CreateTrafficPolicyInstance Prelude.Text
createTrafficPolicyInstance_trafficPolicyId :: Lens' CreateTrafficPolicyInstance Text
createTrafficPolicyInstance_trafficPolicyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstance' {Text
trafficPolicyId :: Text
$sel:trafficPolicyId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
trafficPolicyId} -> Text
trafficPolicyId) (\s :: CreateTrafficPolicyInstance
s@CreateTrafficPolicyInstance' {} Text
a -> CreateTrafficPolicyInstance
s {$sel:trafficPolicyId:CreateTrafficPolicyInstance' :: Text
trafficPolicyId = Text
a} :: CreateTrafficPolicyInstance)
createTrafficPolicyInstance_trafficPolicyVersion :: Lens.Lens' CreateTrafficPolicyInstance Prelude.Natural
createTrafficPolicyInstance_trafficPolicyVersion :: Lens' CreateTrafficPolicyInstance Natural
createTrafficPolicyInstance_trafficPolicyVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstance' {Natural
trafficPolicyVersion :: Natural
$sel:trafficPolicyVersion:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
trafficPolicyVersion} -> Natural
trafficPolicyVersion) (\s :: CreateTrafficPolicyInstance
s@CreateTrafficPolicyInstance' {} Natural
a -> CreateTrafficPolicyInstance
s {$sel:trafficPolicyVersion:CreateTrafficPolicyInstance' :: Natural
trafficPolicyVersion = Natural
a} :: CreateTrafficPolicyInstance)
instance Core.AWSRequest CreateTrafficPolicyInstance where
type
AWSResponse CreateTrafficPolicyInstance =
CreateTrafficPolicyInstanceResponse
request :: (Service -> Service)
-> CreateTrafficPolicyInstance
-> Request CreateTrafficPolicyInstance
request Service -> Service
overrides =
forall a. (ToRequest a, ToElement a) => Service -> a -> Request a
Request.postXML (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateTrafficPolicyInstance
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateTrafficPolicyInstance)))
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 ->
Int
-> TrafficPolicyInstance
-> Text
-> CreateTrafficPolicyInstanceResponse
CreateTrafficPolicyInstanceResponse'
forall (f :: * -> *) a b. Functor 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 a
Data..@ Text
"TrafficPolicyInstance")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String a
Data..# HeaderName
"Location")
)
instance Prelude.Hashable CreateTrafficPolicyInstance where
hashWithSalt :: Int -> CreateTrafficPolicyInstance -> Int
hashWithSalt Int
_salt CreateTrafficPolicyInstance' {Natural
Text
ResourceId
trafficPolicyVersion :: Natural
trafficPolicyId :: Text
ttl :: Natural
name :: Text
hostedZoneId :: ResourceId
$sel:trafficPolicyVersion:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
$sel:trafficPolicyId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
$sel:ttl:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
$sel:name:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
$sel:hostedZoneId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> ResourceId
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ResourceId
hostedZoneId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
ttl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
trafficPolicyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
trafficPolicyVersion
instance Prelude.NFData CreateTrafficPolicyInstance where
rnf :: CreateTrafficPolicyInstance -> ()
rnf CreateTrafficPolicyInstance' {Natural
Text
ResourceId
trafficPolicyVersion :: Natural
trafficPolicyId :: Text
ttl :: Natural
name :: Text
hostedZoneId :: ResourceId
$sel:trafficPolicyVersion:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
$sel:trafficPolicyId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
$sel:ttl:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
$sel:name:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
$sel:hostedZoneId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> ResourceId
..} =
forall a. NFData a => a -> ()
Prelude.rnf ResourceId
hostedZoneId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
ttl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
trafficPolicyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
trafficPolicyVersion
instance Data.ToElement CreateTrafficPolicyInstance where
toElement :: CreateTrafficPolicyInstance -> Element
toElement =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{https://route53.amazonaws.com/doc/2013-04-01/}CreateTrafficPolicyInstanceRequest"
instance Data.ToHeaders CreateTrafficPolicyInstance where
toHeaders :: CreateTrafficPolicyInstance -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateTrafficPolicyInstance where
toPath :: CreateTrafficPolicyInstance -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/2013-04-01/trafficpolicyinstance"
instance Data.ToQuery CreateTrafficPolicyInstance where
toQuery :: CreateTrafficPolicyInstance -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToXML CreateTrafficPolicyInstance where
toXML :: CreateTrafficPolicyInstance -> XML
toXML CreateTrafficPolicyInstance' {Natural
Text
ResourceId
trafficPolicyVersion :: Natural
trafficPolicyId :: Text
ttl :: Natural
name :: Text
hostedZoneId :: ResourceId
$sel:trafficPolicyVersion:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
$sel:trafficPolicyId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
$sel:ttl:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Natural
$sel:name:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> Text
$sel:hostedZoneId:CreateTrafficPolicyInstance' :: CreateTrafficPolicyInstance -> ResourceId
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ Name
"HostedZoneId" forall a. ToXML a => Name -> a -> XML
Data.@= ResourceId
hostedZoneId,
Name
"Name" forall a. ToXML a => Name -> a -> XML
Data.@= Text
name,
Name
"TTL" forall a. ToXML a => Name -> a -> XML
Data.@= Natural
ttl,
Name
"TrafficPolicyId" forall a. ToXML a => Name -> a -> XML
Data.@= Text
trafficPolicyId,
Name
"TrafficPolicyVersion" forall a. ToXML a => Name -> a -> XML
Data.@= Natural
trafficPolicyVersion
]
data CreateTrafficPolicyInstanceResponse = CreateTrafficPolicyInstanceResponse'
{
CreateTrafficPolicyInstanceResponse -> Int
httpStatus :: Prelude.Int,
CreateTrafficPolicyInstanceResponse -> TrafficPolicyInstance
trafficPolicyInstance :: TrafficPolicyInstance,
CreateTrafficPolicyInstanceResponse -> Text
location :: Prelude.Text
}
deriving (CreateTrafficPolicyInstanceResponse
-> CreateTrafficPolicyInstanceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrafficPolicyInstanceResponse
-> CreateTrafficPolicyInstanceResponse -> Bool
$c/= :: CreateTrafficPolicyInstanceResponse
-> CreateTrafficPolicyInstanceResponse -> Bool
== :: CreateTrafficPolicyInstanceResponse
-> CreateTrafficPolicyInstanceResponse -> Bool
$c== :: CreateTrafficPolicyInstanceResponse
-> CreateTrafficPolicyInstanceResponse -> Bool
Prelude.Eq, ReadPrec [CreateTrafficPolicyInstanceResponse]
ReadPrec CreateTrafficPolicyInstanceResponse
Int -> ReadS CreateTrafficPolicyInstanceResponse
ReadS [CreateTrafficPolicyInstanceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrafficPolicyInstanceResponse]
$creadListPrec :: ReadPrec [CreateTrafficPolicyInstanceResponse]
readPrec :: ReadPrec CreateTrafficPolicyInstanceResponse
$creadPrec :: ReadPrec CreateTrafficPolicyInstanceResponse
readList :: ReadS [CreateTrafficPolicyInstanceResponse]
$creadList :: ReadS [CreateTrafficPolicyInstanceResponse]
readsPrec :: Int -> ReadS CreateTrafficPolicyInstanceResponse
$creadsPrec :: Int -> ReadS CreateTrafficPolicyInstanceResponse
Prelude.Read, Int -> CreateTrafficPolicyInstanceResponse -> ShowS
[CreateTrafficPolicyInstanceResponse] -> ShowS
CreateTrafficPolicyInstanceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrafficPolicyInstanceResponse] -> ShowS
$cshowList :: [CreateTrafficPolicyInstanceResponse] -> ShowS
show :: CreateTrafficPolicyInstanceResponse -> String
$cshow :: CreateTrafficPolicyInstanceResponse -> String
showsPrec :: Int -> CreateTrafficPolicyInstanceResponse -> ShowS
$cshowsPrec :: Int -> CreateTrafficPolicyInstanceResponse -> ShowS
Prelude.Show, forall x.
Rep CreateTrafficPolicyInstanceResponse x
-> CreateTrafficPolicyInstanceResponse
forall x.
CreateTrafficPolicyInstanceResponse
-> Rep CreateTrafficPolicyInstanceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTrafficPolicyInstanceResponse x
-> CreateTrafficPolicyInstanceResponse
$cfrom :: forall x.
CreateTrafficPolicyInstanceResponse
-> Rep CreateTrafficPolicyInstanceResponse x
Prelude.Generic)
newCreateTrafficPolicyInstanceResponse ::
Prelude.Int ->
TrafficPolicyInstance ->
Prelude.Text ->
CreateTrafficPolicyInstanceResponse
newCreateTrafficPolicyInstanceResponse :: Int
-> TrafficPolicyInstance
-> Text
-> CreateTrafficPolicyInstanceResponse
newCreateTrafficPolicyInstanceResponse
Int
pHttpStatus_
TrafficPolicyInstance
pTrafficPolicyInstance_
Text
pLocation_ =
CreateTrafficPolicyInstanceResponse'
{ $sel:httpStatus:CreateTrafficPolicyInstanceResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:trafficPolicyInstance:CreateTrafficPolicyInstanceResponse' :: TrafficPolicyInstance
trafficPolicyInstance =
TrafficPolicyInstance
pTrafficPolicyInstance_,
$sel:location:CreateTrafficPolicyInstanceResponse' :: Text
location = Text
pLocation_
}
createTrafficPolicyInstanceResponse_httpStatus :: Lens.Lens' CreateTrafficPolicyInstanceResponse Prelude.Int
createTrafficPolicyInstanceResponse_httpStatus :: Lens' CreateTrafficPolicyInstanceResponse Int
createTrafficPolicyInstanceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstanceResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTrafficPolicyInstanceResponse' :: CreateTrafficPolicyInstanceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTrafficPolicyInstanceResponse
s@CreateTrafficPolicyInstanceResponse' {} Int
a -> CreateTrafficPolicyInstanceResponse
s {$sel:httpStatus:CreateTrafficPolicyInstanceResponse' :: Int
httpStatus = Int
a} :: CreateTrafficPolicyInstanceResponse)
createTrafficPolicyInstanceResponse_trafficPolicyInstance :: Lens.Lens' CreateTrafficPolicyInstanceResponse TrafficPolicyInstance
createTrafficPolicyInstanceResponse_trafficPolicyInstance :: Lens' CreateTrafficPolicyInstanceResponse TrafficPolicyInstance
createTrafficPolicyInstanceResponse_trafficPolicyInstance = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstanceResponse' {TrafficPolicyInstance
trafficPolicyInstance :: TrafficPolicyInstance
$sel:trafficPolicyInstance:CreateTrafficPolicyInstanceResponse' :: CreateTrafficPolicyInstanceResponse -> TrafficPolicyInstance
trafficPolicyInstance} -> TrafficPolicyInstance
trafficPolicyInstance) (\s :: CreateTrafficPolicyInstanceResponse
s@CreateTrafficPolicyInstanceResponse' {} TrafficPolicyInstance
a -> CreateTrafficPolicyInstanceResponse
s {$sel:trafficPolicyInstance:CreateTrafficPolicyInstanceResponse' :: TrafficPolicyInstance
trafficPolicyInstance = TrafficPolicyInstance
a} :: CreateTrafficPolicyInstanceResponse)
createTrafficPolicyInstanceResponse_location :: Lens.Lens' CreateTrafficPolicyInstanceResponse Prelude.Text
createTrafficPolicyInstanceResponse_location :: Lens' CreateTrafficPolicyInstanceResponse Text
createTrafficPolicyInstanceResponse_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficPolicyInstanceResponse' {Text
location :: Text
$sel:location:CreateTrafficPolicyInstanceResponse' :: CreateTrafficPolicyInstanceResponse -> Text
location} -> Text
location) (\s :: CreateTrafficPolicyInstanceResponse
s@CreateTrafficPolicyInstanceResponse' {} Text
a -> CreateTrafficPolicyInstanceResponse
s {$sel:location:CreateTrafficPolicyInstanceResponse' :: Text
location = Text
a} :: CreateTrafficPolicyInstanceResponse)
instance
Prelude.NFData
CreateTrafficPolicyInstanceResponse
where
rnf :: CreateTrafficPolicyInstanceResponse -> ()
rnf CreateTrafficPolicyInstanceResponse' {Int
Text
TrafficPolicyInstance
location :: Text
trafficPolicyInstance :: TrafficPolicyInstance
httpStatus :: Int
$sel:location:CreateTrafficPolicyInstanceResponse' :: CreateTrafficPolicyInstanceResponse -> Text
$sel:trafficPolicyInstance:CreateTrafficPolicyInstanceResponse' :: CreateTrafficPolicyInstanceResponse -> TrafficPolicyInstance
$sel:httpStatus:CreateTrafficPolicyInstanceResponse' :: CreateTrafficPolicyInstanceResponse -> Int
..} =
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
trafficPolicyInstance
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
location