{-# 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.CreateHostedZone
(
CreateHostedZone (..),
newCreateHostedZone,
createHostedZone_delegationSetId,
createHostedZone_hostedZoneConfig,
createHostedZone_vpc,
createHostedZone_name,
createHostedZone_callerReference,
CreateHostedZoneResponse (..),
newCreateHostedZoneResponse,
createHostedZoneResponse_vpc,
createHostedZoneResponse_httpStatus,
createHostedZoneResponse_hostedZone,
createHostedZoneResponse_changeInfo,
createHostedZoneResponse_delegationSet,
createHostedZoneResponse_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 CreateHostedZone = CreateHostedZone'
{
CreateHostedZone -> Maybe ResourceId
delegationSetId :: Prelude.Maybe ResourceId,
CreateHostedZone -> Maybe HostedZoneConfig
hostedZoneConfig :: Prelude.Maybe HostedZoneConfig,
CreateHostedZone -> Maybe VPC
vpc :: Prelude.Maybe VPC,
CreateHostedZone -> Text
name :: Prelude.Text,
CreateHostedZone -> Text
callerReference :: Prelude.Text
}
deriving (CreateHostedZone -> CreateHostedZone -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateHostedZone -> CreateHostedZone -> Bool
$c/= :: CreateHostedZone -> CreateHostedZone -> Bool
== :: CreateHostedZone -> CreateHostedZone -> Bool
$c== :: CreateHostedZone -> CreateHostedZone -> Bool
Prelude.Eq, ReadPrec [CreateHostedZone]
ReadPrec CreateHostedZone
Int -> ReadS CreateHostedZone
ReadS [CreateHostedZone]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateHostedZone]
$creadListPrec :: ReadPrec [CreateHostedZone]
readPrec :: ReadPrec CreateHostedZone
$creadPrec :: ReadPrec CreateHostedZone
readList :: ReadS [CreateHostedZone]
$creadList :: ReadS [CreateHostedZone]
readsPrec :: Int -> ReadS CreateHostedZone
$creadsPrec :: Int -> ReadS CreateHostedZone
Prelude.Read, Int -> CreateHostedZone -> ShowS
[CreateHostedZone] -> ShowS
CreateHostedZone -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateHostedZone] -> ShowS
$cshowList :: [CreateHostedZone] -> ShowS
show :: CreateHostedZone -> String
$cshow :: CreateHostedZone -> String
showsPrec :: Int -> CreateHostedZone -> ShowS
$cshowsPrec :: Int -> CreateHostedZone -> ShowS
Prelude.Show, forall x. Rep CreateHostedZone x -> CreateHostedZone
forall x. CreateHostedZone -> Rep CreateHostedZone x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateHostedZone x -> CreateHostedZone
$cfrom :: forall x. CreateHostedZone -> Rep CreateHostedZone x
Prelude.Generic)
newCreateHostedZone ::
Prelude.Text ->
Prelude.Text ->
CreateHostedZone
newCreateHostedZone :: Text -> Text -> CreateHostedZone
newCreateHostedZone Text
pName_ Text
pCallerReference_ =
CreateHostedZone'
{ $sel:delegationSetId:CreateHostedZone' :: Maybe ResourceId
delegationSetId =
forall a. Maybe a
Prelude.Nothing,
$sel:hostedZoneConfig:CreateHostedZone' :: Maybe HostedZoneConfig
hostedZoneConfig = forall a. Maybe a
Prelude.Nothing,
$sel:vpc:CreateHostedZone' :: Maybe VPC
vpc = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateHostedZone' :: Text
name = Text
pName_,
$sel:callerReference:CreateHostedZone' :: Text
callerReference = Text
pCallerReference_
}
createHostedZone_delegationSetId :: Lens.Lens' CreateHostedZone (Prelude.Maybe ResourceId)
createHostedZone_delegationSetId :: Lens' CreateHostedZone (Maybe ResourceId)
createHostedZone_delegationSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZone' {Maybe ResourceId
delegationSetId :: Maybe ResourceId
$sel:delegationSetId:CreateHostedZone' :: CreateHostedZone -> Maybe ResourceId
delegationSetId} -> Maybe ResourceId
delegationSetId) (\s :: CreateHostedZone
s@CreateHostedZone' {} Maybe ResourceId
a -> CreateHostedZone
s {$sel:delegationSetId:CreateHostedZone' :: Maybe ResourceId
delegationSetId = Maybe ResourceId
a} :: CreateHostedZone)
createHostedZone_hostedZoneConfig :: Lens.Lens' CreateHostedZone (Prelude.Maybe HostedZoneConfig)
createHostedZone_hostedZoneConfig :: Lens' CreateHostedZone (Maybe HostedZoneConfig)
createHostedZone_hostedZoneConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZone' {Maybe HostedZoneConfig
hostedZoneConfig :: Maybe HostedZoneConfig
$sel:hostedZoneConfig:CreateHostedZone' :: CreateHostedZone -> Maybe HostedZoneConfig
hostedZoneConfig} -> Maybe HostedZoneConfig
hostedZoneConfig) (\s :: CreateHostedZone
s@CreateHostedZone' {} Maybe HostedZoneConfig
a -> CreateHostedZone
s {$sel:hostedZoneConfig:CreateHostedZone' :: Maybe HostedZoneConfig
hostedZoneConfig = Maybe HostedZoneConfig
a} :: CreateHostedZone)
createHostedZone_vpc :: Lens.Lens' CreateHostedZone (Prelude.Maybe VPC)
createHostedZone_vpc :: Lens' CreateHostedZone (Maybe VPC)
createHostedZone_vpc = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZone' {Maybe VPC
vpc :: Maybe VPC
$sel:vpc:CreateHostedZone' :: CreateHostedZone -> Maybe VPC
vpc} -> Maybe VPC
vpc) (\s :: CreateHostedZone
s@CreateHostedZone' {} Maybe VPC
a -> CreateHostedZone
s {$sel:vpc:CreateHostedZone' :: Maybe VPC
vpc = Maybe VPC
a} :: CreateHostedZone)
createHostedZone_name :: Lens.Lens' CreateHostedZone Prelude.Text
createHostedZone_name :: Lens' CreateHostedZone Text
createHostedZone_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZone' {Text
name :: Text
$sel:name:CreateHostedZone' :: CreateHostedZone -> Text
name} -> Text
name) (\s :: CreateHostedZone
s@CreateHostedZone' {} Text
a -> CreateHostedZone
s {$sel:name:CreateHostedZone' :: Text
name = Text
a} :: CreateHostedZone)
createHostedZone_callerReference :: Lens.Lens' CreateHostedZone Prelude.Text
createHostedZone_callerReference :: Lens' CreateHostedZone Text
createHostedZone_callerReference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZone' {Text
callerReference :: Text
$sel:callerReference:CreateHostedZone' :: CreateHostedZone -> Text
callerReference} -> Text
callerReference) (\s :: CreateHostedZone
s@CreateHostedZone' {} Text
a -> CreateHostedZone
s {$sel:callerReference:CreateHostedZone' :: Text
callerReference = Text
a} :: CreateHostedZone)
instance Core.AWSRequest CreateHostedZone where
type
AWSResponse CreateHostedZone =
CreateHostedZoneResponse
request :: (Service -> Service)
-> CreateHostedZone -> Request CreateHostedZone
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 CreateHostedZone
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateHostedZone)))
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 VPC
-> Int
-> HostedZone
-> ChangeInfo
-> DelegationSet
-> Text
-> CreateHostedZoneResponse
CreateHostedZoneResponse'
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
"VPC")
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 a
Data..@ Text
"HostedZone")
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
"ChangeInfo")
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
"DelegationSet")
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 CreateHostedZone where
hashWithSalt :: Int -> CreateHostedZone -> Int
hashWithSalt Int
_salt CreateHostedZone' {Maybe ResourceId
Maybe HostedZoneConfig
Maybe VPC
Text
callerReference :: Text
name :: Text
vpc :: Maybe VPC
hostedZoneConfig :: Maybe HostedZoneConfig
delegationSetId :: Maybe ResourceId
$sel:callerReference:CreateHostedZone' :: CreateHostedZone -> Text
$sel:name:CreateHostedZone' :: CreateHostedZone -> Text
$sel:vpc:CreateHostedZone' :: CreateHostedZone -> Maybe VPC
$sel:hostedZoneConfig:CreateHostedZone' :: CreateHostedZone -> Maybe HostedZoneConfig
$sel:delegationSetId:CreateHostedZone' :: CreateHostedZone -> Maybe ResourceId
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ResourceId
delegationSetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe HostedZoneConfig
hostedZoneConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe VPC
vpc
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
callerReference
instance Prelude.NFData CreateHostedZone where
rnf :: CreateHostedZone -> ()
rnf CreateHostedZone' {Maybe ResourceId
Maybe HostedZoneConfig
Maybe VPC
Text
callerReference :: Text
name :: Text
vpc :: Maybe VPC
hostedZoneConfig :: Maybe HostedZoneConfig
delegationSetId :: Maybe ResourceId
$sel:callerReference:CreateHostedZone' :: CreateHostedZone -> Text
$sel:name:CreateHostedZone' :: CreateHostedZone -> Text
$sel:vpc:CreateHostedZone' :: CreateHostedZone -> Maybe VPC
$sel:hostedZoneConfig:CreateHostedZone' :: CreateHostedZone -> Maybe HostedZoneConfig
$sel:delegationSetId:CreateHostedZone' :: CreateHostedZone -> Maybe ResourceId
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResourceId
delegationSetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HostedZoneConfig
hostedZoneConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VPC
vpc
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 Text
callerReference
instance Data.ToElement CreateHostedZone where
toElement :: CreateHostedZone -> Element
toElement =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{https://route53.amazonaws.com/doc/2013-04-01/}CreateHostedZoneRequest"
instance Data.ToHeaders CreateHostedZone where
toHeaders :: CreateHostedZone -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateHostedZone where
toPath :: CreateHostedZone -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/2013-04-01/hostedzone"
instance Data.ToQuery CreateHostedZone where
toQuery :: CreateHostedZone -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToXML CreateHostedZone where
toXML :: CreateHostedZone -> XML
toXML CreateHostedZone' {Maybe ResourceId
Maybe HostedZoneConfig
Maybe VPC
Text
callerReference :: Text
name :: Text
vpc :: Maybe VPC
hostedZoneConfig :: Maybe HostedZoneConfig
delegationSetId :: Maybe ResourceId
$sel:callerReference:CreateHostedZone' :: CreateHostedZone -> Text
$sel:name:CreateHostedZone' :: CreateHostedZone -> Text
$sel:vpc:CreateHostedZone' :: CreateHostedZone -> Maybe VPC
$sel:hostedZoneConfig:CreateHostedZone' :: CreateHostedZone -> Maybe HostedZoneConfig
$sel:delegationSetId:CreateHostedZone' :: CreateHostedZone -> Maybe ResourceId
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ Name
"DelegationSetId" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe ResourceId
delegationSetId,
Name
"HostedZoneConfig" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe HostedZoneConfig
hostedZoneConfig,
Name
"VPC" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe VPC
vpc,
Name
"Name" forall a. ToXML a => Name -> a -> XML
Data.@= Text
name,
Name
"CallerReference" forall a. ToXML a => Name -> a -> XML
Data.@= Text
callerReference
]
data CreateHostedZoneResponse = CreateHostedZoneResponse'
{
CreateHostedZoneResponse -> Maybe VPC
vpc :: Prelude.Maybe VPC,
CreateHostedZoneResponse -> Int
httpStatus :: Prelude.Int,
CreateHostedZoneResponse -> HostedZone
hostedZone :: HostedZone,
CreateHostedZoneResponse -> ChangeInfo
changeInfo :: ChangeInfo,
CreateHostedZoneResponse -> DelegationSet
delegationSet :: DelegationSet,
CreateHostedZoneResponse -> Text
location :: Prelude.Text
}
deriving (CreateHostedZoneResponse -> CreateHostedZoneResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateHostedZoneResponse -> CreateHostedZoneResponse -> Bool
$c/= :: CreateHostedZoneResponse -> CreateHostedZoneResponse -> Bool
== :: CreateHostedZoneResponse -> CreateHostedZoneResponse -> Bool
$c== :: CreateHostedZoneResponse -> CreateHostedZoneResponse -> Bool
Prelude.Eq, ReadPrec [CreateHostedZoneResponse]
ReadPrec CreateHostedZoneResponse
Int -> ReadS CreateHostedZoneResponse
ReadS [CreateHostedZoneResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateHostedZoneResponse]
$creadListPrec :: ReadPrec [CreateHostedZoneResponse]
readPrec :: ReadPrec CreateHostedZoneResponse
$creadPrec :: ReadPrec CreateHostedZoneResponse
readList :: ReadS [CreateHostedZoneResponse]
$creadList :: ReadS [CreateHostedZoneResponse]
readsPrec :: Int -> ReadS CreateHostedZoneResponse
$creadsPrec :: Int -> ReadS CreateHostedZoneResponse
Prelude.Read, Int -> CreateHostedZoneResponse -> ShowS
[CreateHostedZoneResponse] -> ShowS
CreateHostedZoneResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateHostedZoneResponse] -> ShowS
$cshowList :: [CreateHostedZoneResponse] -> ShowS
show :: CreateHostedZoneResponse -> String
$cshow :: CreateHostedZoneResponse -> String
showsPrec :: Int -> CreateHostedZoneResponse -> ShowS
$cshowsPrec :: Int -> CreateHostedZoneResponse -> ShowS
Prelude.Show, forall x.
Rep CreateHostedZoneResponse x -> CreateHostedZoneResponse
forall x.
CreateHostedZoneResponse -> Rep CreateHostedZoneResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateHostedZoneResponse x -> CreateHostedZoneResponse
$cfrom :: forall x.
CreateHostedZoneResponse -> Rep CreateHostedZoneResponse x
Prelude.Generic)
newCreateHostedZoneResponse ::
Prelude.Int ->
HostedZone ->
ChangeInfo ->
DelegationSet ->
Prelude.Text ->
CreateHostedZoneResponse
newCreateHostedZoneResponse :: Int
-> HostedZone
-> ChangeInfo
-> DelegationSet
-> Text
-> CreateHostedZoneResponse
newCreateHostedZoneResponse
Int
pHttpStatus_
HostedZone
pHostedZone_
ChangeInfo
pChangeInfo_
DelegationSet
pDelegationSet_
Text
pLocation_ =
CreateHostedZoneResponse'
{ $sel:vpc:CreateHostedZoneResponse' :: Maybe VPC
vpc = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateHostedZoneResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:hostedZone:CreateHostedZoneResponse' :: HostedZone
hostedZone = HostedZone
pHostedZone_,
$sel:changeInfo:CreateHostedZoneResponse' :: ChangeInfo
changeInfo = ChangeInfo
pChangeInfo_,
$sel:delegationSet:CreateHostedZoneResponse' :: DelegationSet
delegationSet = DelegationSet
pDelegationSet_,
$sel:location:CreateHostedZoneResponse' :: Text
location = Text
pLocation_
}
createHostedZoneResponse_vpc :: Lens.Lens' CreateHostedZoneResponse (Prelude.Maybe VPC)
createHostedZoneResponse_vpc :: Lens' CreateHostedZoneResponse (Maybe VPC)
createHostedZoneResponse_vpc = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZoneResponse' {Maybe VPC
vpc :: Maybe VPC
$sel:vpc:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> Maybe VPC
vpc} -> Maybe VPC
vpc) (\s :: CreateHostedZoneResponse
s@CreateHostedZoneResponse' {} Maybe VPC
a -> CreateHostedZoneResponse
s {$sel:vpc:CreateHostedZoneResponse' :: Maybe VPC
vpc = Maybe VPC
a} :: CreateHostedZoneResponse)
createHostedZoneResponse_httpStatus :: Lens.Lens' CreateHostedZoneResponse Prelude.Int
createHostedZoneResponse_httpStatus :: Lens' CreateHostedZoneResponse Int
createHostedZoneResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZoneResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateHostedZoneResponse
s@CreateHostedZoneResponse' {} Int
a -> CreateHostedZoneResponse
s {$sel:httpStatus:CreateHostedZoneResponse' :: Int
httpStatus = Int
a} :: CreateHostedZoneResponse)
createHostedZoneResponse_hostedZone :: Lens.Lens' CreateHostedZoneResponse HostedZone
createHostedZoneResponse_hostedZone :: Lens' CreateHostedZoneResponse HostedZone
createHostedZoneResponse_hostedZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZoneResponse' {HostedZone
hostedZone :: HostedZone
$sel:hostedZone:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> HostedZone
hostedZone} -> HostedZone
hostedZone) (\s :: CreateHostedZoneResponse
s@CreateHostedZoneResponse' {} HostedZone
a -> CreateHostedZoneResponse
s {$sel:hostedZone:CreateHostedZoneResponse' :: HostedZone
hostedZone = HostedZone
a} :: CreateHostedZoneResponse)
createHostedZoneResponse_changeInfo :: Lens.Lens' CreateHostedZoneResponse ChangeInfo
createHostedZoneResponse_changeInfo :: Lens' CreateHostedZoneResponse ChangeInfo
createHostedZoneResponse_changeInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZoneResponse' {ChangeInfo
changeInfo :: ChangeInfo
$sel:changeInfo:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> ChangeInfo
changeInfo} -> ChangeInfo
changeInfo) (\s :: CreateHostedZoneResponse
s@CreateHostedZoneResponse' {} ChangeInfo
a -> CreateHostedZoneResponse
s {$sel:changeInfo:CreateHostedZoneResponse' :: ChangeInfo
changeInfo = ChangeInfo
a} :: CreateHostedZoneResponse)
createHostedZoneResponse_delegationSet :: Lens.Lens' CreateHostedZoneResponse DelegationSet
createHostedZoneResponse_delegationSet :: Lens' CreateHostedZoneResponse DelegationSet
createHostedZoneResponse_delegationSet = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZoneResponse' {DelegationSet
delegationSet :: DelegationSet
$sel:delegationSet:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> DelegationSet
delegationSet} -> DelegationSet
delegationSet) (\s :: CreateHostedZoneResponse
s@CreateHostedZoneResponse' {} DelegationSet
a -> CreateHostedZoneResponse
s {$sel:delegationSet:CreateHostedZoneResponse' :: DelegationSet
delegationSet = DelegationSet
a} :: CreateHostedZoneResponse)
createHostedZoneResponse_location :: Lens.Lens' CreateHostedZoneResponse Prelude.Text
createHostedZoneResponse_location :: Lens' CreateHostedZoneResponse Text
createHostedZoneResponse_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateHostedZoneResponse' {Text
location :: Text
$sel:location:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> Text
location} -> Text
location) (\s :: CreateHostedZoneResponse
s@CreateHostedZoneResponse' {} Text
a -> CreateHostedZoneResponse
s {$sel:location:CreateHostedZoneResponse' :: Text
location = Text
a} :: CreateHostedZoneResponse)
instance Prelude.NFData CreateHostedZoneResponse where
rnf :: CreateHostedZoneResponse -> ()
rnf CreateHostedZoneResponse' {Int
Maybe VPC
Text
ChangeInfo
DelegationSet
HostedZone
location :: Text
delegationSet :: DelegationSet
changeInfo :: ChangeInfo
hostedZone :: HostedZone
httpStatus :: Int
vpc :: Maybe VPC
$sel:location:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> Text
$sel:delegationSet:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> DelegationSet
$sel:changeInfo:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> ChangeInfo
$sel:hostedZone:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> HostedZone
$sel:httpStatus:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> Int
$sel:vpc:CreateHostedZoneResponse' :: CreateHostedZoneResponse -> Maybe VPC
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VPC
vpc
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 HostedZone
hostedZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ChangeInfo
changeInfo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DelegationSet
delegationSet
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
location