{-# 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.Route53Resolver.CreateResolverEndpoint
(
CreateResolverEndpoint (..),
newCreateResolverEndpoint,
createResolverEndpoint_name,
createResolverEndpoint_tags,
createResolverEndpoint_creatorRequestId,
createResolverEndpoint_securityGroupIds,
createResolverEndpoint_direction,
createResolverEndpoint_ipAddresses,
CreateResolverEndpointResponse (..),
newCreateResolverEndpointResponse,
createResolverEndpointResponse_resolverEndpoint,
createResolverEndpointResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Route53Resolver.Types
data CreateResolverEndpoint = CreateResolverEndpoint'
{
CreateResolverEndpoint -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateResolverEndpoint -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateResolverEndpoint -> Text
creatorRequestId :: Prelude.Text,
CreateResolverEndpoint -> [Text]
securityGroupIds :: [Prelude.Text],
CreateResolverEndpoint -> ResolverEndpointDirection
direction :: ResolverEndpointDirection,
CreateResolverEndpoint -> NonEmpty IpAddressRequest
ipAddresses :: Prelude.NonEmpty IpAddressRequest
}
deriving (CreateResolverEndpoint -> CreateResolverEndpoint -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateResolverEndpoint -> CreateResolverEndpoint -> Bool
$c/= :: CreateResolverEndpoint -> CreateResolverEndpoint -> Bool
== :: CreateResolverEndpoint -> CreateResolverEndpoint -> Bool
$c== :: CreateResolverEndpoint -> CreateResolverEndpoint -> Bool
Prelude.Eq, ReadPrec [CreateResolverEndpoint]
ReadPrec CreateResolverEndpoint
Int -> ReadS CreateResolverEndpoint
ReadS [CreateResolverEndpoint]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateResolverEndpoint]
$creadListPrec :: ReadPrec [CreateResolverEndpoint]
readPrec :: ReadPrec CreateResolverEndpoint
$creadPrec :: ReadPrec CreateResolverEndpoint
readList :: ReadS [CreateResolverEndpoint]
$creadList :: ReadS [CreateResolverEndpoint]
readsPrec :: Int -> ReadS CreateResolverEndpoint
$creadsPrec :: Int -> ReadS CreateResolverEndpoint
Prelude.Read, Int -> CreateResolverEndpoint -> ShowS
[CreateResolverEndpoint] -> ShowS
CreateResolverEndpoint -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateResolverEndpoint] -> ShowS
$cshowList :: [CreateResolverEndpoint] -> ShowS
show :: CreateResolverEndpoint -> String
$cshow :: CreateResolverEndpoint -> String
showsPrec :: Int -> CreateResolverEndpoint -> ShowS
$cshowsPrec :: Int -> CreateResolverEndpoint -> ShowS
Prelude.Show, forall x. Rep CreateResolverEndpoint x -> CreateResolverEndpoint
forall x. CreateResolverEndpoint -> Rep CreateResolverEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateResolverEndpoint x -> CreateResolverEndpoint
$cfrom :: forall x. CreateResolverEndpoint -> Rep CreateResolverEndpoint x
Prelude.Generic)
newCreateResolverEndpoint ::
Prelude.Text ->
ResolverEndpointDirection ->
Prelude.NonEmpty IpAddressRequest ->
CreateResolverEndpoint
newCreateResolverEndpoint :: Text
-> ResolverEndpointDirection
-> NonEmpty IpAddressRequest
-> CreateResolverEndpoint
newCreateResolverEndpoint
Text
pCreatorRequestId_
ResolverEndpointDirection
pDirection_
NonEmpty IpAddressRequest
pIpAddresses_ =
CreateResolverEndpoint'
{ $sel:name:CreateResolverEndpoint' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateResolverEndpoint' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:creatorRequestId:CreateResolverEndpoint' :: Text
creatorRequestId = Text
pCreatorRequestId_,
$sel:securityGroupIds:CreateResolverEndpoint' :: [Text]
securityGroupIds = forall a. Monoid a => a
Prelude.mempty,
$sel:direction:CreateResolverEndpoint' :: ResolverEndpointDirection
direction = ResolverEndpointDirection
pDirection_,
$sel:ipAddresses:CreateResolverEndpoint' :: NonEmpty IpAddressRequest
ipAddresses = forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty IpAddressRequest
pIpAddresses_
}
createResolverEndpoint_name :: Lens.Lens' CreateResolverEndpoint (Prelude.Maybe Prelude.Text)
createResolverEndpoint_name :: Lens' CreateResolverEndpoint (Maybe Text)
createResolverEndpoint_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpoint' {Maybe Text
name :: Maybe Text
$sel:name:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateResolverEndpoint
s@CreateResolverEndpoint' {} Maybe Text
a -> CreateResolverEndpoint
s {$sel:name:CreateResolverEndpoint' :: Maybe Text
name = Maybe Text
a} :: CreateResolverEndpoint)
createResolverEndpoint_tags :: Lens.Lens' CreateResolverEndpoint (Prelude.Maybe [Tag])
createResolverEndpoint_tags :: Lens' CreateResolverEndpoint (Maybe [Tag])
createResolverEndpoint_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpoint' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateResolverEndpoint
s@CreateResolverEndpoint' {} Maybe [Tag]
a -> CreateResolverEndpoint
s {$sel:tags:CreateResolverEndpoint' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateResolverEndpoint) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createResolverEndpoint_creatorRequestId :: Lens.Lens' CreateResolverEndpoint Prelude.Text
createResolverEndpoint_creatorRequestId :: Lens' CreateResolverEndpoint Text
createResolverEndpoint_creatorRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpoint' {Text
creatorRequestId :: Text
$sel:creatorRequestId:CreateResolverEndpoint' :: CreateResolverEndpoint -> Text
creatorRequestId} -> Text
creatorRequestId) (\s :: CreateResolverEndpoint
s@CreateResolverEndpoint' {} Text
a -> CreateResolverEndpoint
s {$sel:creatorRequestId:CreateResolverEndpoint' :: Text
creatorRequestId = Text
a} :: CreateResolverEndpoint)
createResolverEndpoint_securityGroupIds :: Lens.Lens' CreateResolverEndpoint [Prelude.Text]
createResolverEndpoint_securityGroupIds :: Lens' CreateResolverEndpoint [Text]
createResolverEndpoint_securityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpoint' {[Text]
securityGroupIds :: [Text]
$sel:securityGroupIds:CreateResolverEndpoint' :: CreateResolverEndpoint -> [Text]
securityGroupIds} -> [Text]
securityGroupIds) (\s :: CreateResolverEndpoint
s@CreateResolverEndpoint' {} [Text]
a -> CreateResolverEndpoint
s {$sel:securityGroupIds:CreateResolverEndpoint' :: [Text]
securityGroupIds = [Text]
a} :: CreateResolverEndpoint) 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
createResolverEndpoint_direction :: Lens.Lens' CreateResolverEndpoint ResolverEndpointDirection
createResolverEndpoint_direction :: Lens' CreateResolverEndpoint ResolverEndpointDirection
createResolverEndpoint_direction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpoint' {ResolverEndpointDirection
direction :: ResolverEndpointDirection
$sel:direction:CreateResolverEndpoint' :: CreateResolverEndpoint -> ResolverEndpointDirection
direction} -> ResolverEndpointDirection
direction) (\s :: CreateResolverEndpoint
s@CreateResolverEndpoint' {} ResolverEndpointDirection
a -> CreateResolverEndpoint
s {$sel:direction:CreateResolverEndpoint' :: ResolverEndpointDirection
direction = ResolverEndpointDirection
a} :: CreateResolverEndpoint)
createResolverEndpoint_ipAddresses :: Lens.Lens' CreateResolverEndpoint (Prelude.NonEmpty IpAddressRequest)
createResolverEndpoint_ipAddresses :: Lens' CreateResolverEndpoint (NonEmpty IpAddressRequest)
createResolverEndpoint_ipAddresses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpoint' {NonEmpty IpAddressRequest
ipAddresses :: NonEmpty IpAddressRequest
$sel:ipAddresses:CreateResolverEndpoint' :: CreateResolverEndpoint -> NonEmpty IpAddressRequest
ipAddresses} -> NonEmpty IpAddressRequest
ipAddresses) (\s :: CreateResolverEndpoint
s@CreateResolverEndpoint' {} NonEmpty IpAddressRequest
a -> CreateResolverEndpoint
s {$sel:ipAddresses:CreateResolverEndpoint' :: NonEmpty IpAddressRequest
ipAddresses = NonEmpty IpAddressRequest
a} :: CreateResolverEndpoint) 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
instance Core.AWSRequest CreateResolverEndpoint where
type
AWSResponse CreateResolverEndpoint =
CreateResolverEndpointResponse
request :: (Service -> Service)
-> CreateResolverEndpoint -> Request CreateResolverEndpoint
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateResolverEndpoint
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateResolverEndpoint)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe ResolverEndpoint -> Int -> CreateResolverEndpointResponse
CreateResolverEndpointResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ResolverEndpoint")
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))
)
instance Prelude.Hashable CreateResolverEndpoint where
hashWithSalt :: Int -> CreateResolverEndpoint -> Int
hashWithSalt Int
_salt CreateResolverEndpoint' {[Text]
Maybe [Tag]
Maybe Text
NonEmpty IpAddressRequest
Text
ResolverEndpointDirection
ipAddresses :: NonEmpty IpAddressRequest
direction :: ResolverEndpointDirection
securityGroupIds :: [Text]
creatorRequestId :: Text
tags :: Maybe [Tag]
name :: Maybe Text
$sel:ipAddresses:CreateResolverEndpoint' :: CreateResolverEndpoint -> NonEmpty IpAddressRequest
$sel:direction:CreateResolverEndpoint' :: CreateResolverEndpoint -> ResolverEndpointDirection
$sel:securityGroupIds:CreateResolverEndpoint' :: CreateResolverEndpoint -> [Text]
$sel:creatorRequestId:CreateResolverEndpoint' :: CreateResolverEndpoint -> Text
$sel:tags:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe [Tag]
$sel:name:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
creatorRequestId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
securityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ResolverEndpointDirection
direction
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty IpAddressRequest
ipAddresses
instance Prelude.NFData CreateResolverEndpoint where
rnf :: CreateResolverEndpoint -> ()
rnf CreateResolverEndpoint' {[Text]
Maybe [Tag]
Maybe Text
NonEmpty IpAddressRequest
Text
ResolverEndpointDirection
ipAddresses :: NonEmpty IpAddressRequest
direction :: ResolverEndpointDirection
securityGroupIds :: [Text]
creatorRequestId :: Text
tags :: Maybe [Tag]
name :: Maybe Text
$sel:ipAddresses:CreateResolverEndpoint' :: CreateResolverEndpoint -> NonEmpty IpAddressRequest
$sel:direction:CreateResolverEndpoint' :: CreateResolverEndpoint -> ResolverEndpointDirection
$sel:securityGroupIds:CreateResolverEndpoint' :: CreateResolverEndpoint -> [Text]
$sel:creatorRequestId:CreateResolverEndpoint' :: CreateResolverEndpoint -> Text
$sel:tags:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe [Tag]
$sel:name:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
creatorRequestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
securityGroupIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ResolverEndpointDirection
direction
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty IpAddressRequest
ipAddresses
instance Data.ToHeaders CreateResolverEndpoint where
toHeaders :: CreateResolverEndpoint -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Route53Resolver.CreateResolverEndpoint" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateResolverEndpoint where
toJSON :: CreateResolverEndpoint -> Value
toJSON CreateResolverEndpoint' {[Text]
Maybe [Tag]
Maybe Text
NonEmpty IpAddressRequest
Text
ResolverEndpointDirection
ipAddresses :: NonEmpty IpAddressRequest
direction :: ResolverEndpointDirection
securityGroupIds :: [Text]
creatorRequestId :: Text
tags :: Maybe [Tag]
name :: Maybe Text
$sel:ipAddresses:CreateResolverEndpoint' :: CreateResolverEndpoint -> NonEmpty IpAddressRequest
$sel:direction:CreateResolverEndpoint' :: CreateResolverEndpoint -> ResolverEndpointDirection
$sel:securityGroupIds:CreateResolverEndpoint' :: CreateResolverEndpoint -> [Text]
$sel:creatorRequestId:CreateResolverEndpoint' :: CreateResolverEndpoint -> Text
$sel:tags:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe [Tag]
$sel:name:CreateResolverEndpoint' :: CreateResolverEndpoint -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
name,
(Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
forall a. a -> Maybe a
Prelude.Just
(Key
"CreatorRequestId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
creatorRequestId),
forall a. a -> Maybe a
Prelude.Just
(Key
"SecurityGroupIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
securityGroupIds),
forall a. a -> Maybe a
Prelude.Just (Key
"Direction" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ResolverEndpointDirection
direction),
forall a. a -> Maybe a
Prelude.Just (Key
"IpAddresses" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty IpAddressRequest
ipAddresses)
]
)
instance Data.ToPath CreateResolverEndpoint where
toPath :: CreateResolverEndpoint -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateResolverEndpoint where
toQuery :: CreateResolverEndpoint -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateResolverEndpointResponse = CreateResolverEndpointResponse'
{
CreateResolverEndpointResponse -> Maybe ResolverEndpoint
resolverEndpoint :: Prelude.Maybe ResolverEndpoint,
CreateResolverEndpointResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateResolverEndpointResponse
-> CreateResolverEndpointResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateResolverEndpointResponse
-> CreateResolverEndpointResponse -> Bool
$c/= :: CreateResolverEndpointResponse
-> CreateResolverEndpointResponse -> Bool
== :: CreateResolverEndpointResponse
-> CreateResolverEndpointResponse -> Bool
$c== :: CreateResolverEndpointResponse
-> CreateResolverEndpointResponse -> Bool
Prelude.Eq, ReadPrec [CreateResolverEndpointResponse]
ReadPrec CreateResolverEndpointResponse
Int -> ReadS CreateResolverEndpointResponse
ReadS [CreateResolverEndpointResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateResolverEndpointResponse]
$creadListPrec :: ReadPrec [CreateResolverEndpointResponse]
readPrec :: ReadPrec CreateResolverEndpointResponse
$creadPrec :: ReadPrec CreateResolverEndpointResponse
readList :: ReadS [CreateResolverEndpointResponse]
$creadList :: ReadS [CreateResolverEndpointResponse]
readsPrec :: Int -> ReadS CreateResolverEndpointResponse
$creadsPrec :: Int -> ReadS CreateResolverEndpointResponse
Prelude.Read, Int -> CreateResolverEndpointResponse -> ShowS
[CreateResolverEndpointResponse] -> ShowS
CreateResolverEndpointResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateResolverEndpointResponse] -> ShowS
$cshowList :: [CreateResolverEndpointResponse] -> ShowS
show :: CreateResolverEndpointResponse -> String
$cshow :: CreateResolverEndpointResponse -> String
showsPrec :: Int -> CreateResolverEndpointResponse -> ShowS
$cshowsPrec :: Int -> CreateResolverEndpointResponse -> ShowS
Prelude.Show, forall x.
Rep CreateResolverEndpointResponse x
-> CreateResolverEndpointResponse
forall x.
CreateResolverEndpointResponse
-> Rep CreateResolverEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateResolverEndpointResponse x
-> CreateResolverEndpointResponse
$cfrom :: forall x.
CreateResolverEndpointResponse
-> Rep CreateResolverEndpointResponse x
Prelude.Generic)
newCreateResolverEndpointResponse ::
Prelude.Int ->
CreateResolverEndpointResponse
newCreateResolverEndpointResponse :: Int -> CreateResolverEndpointResponse
newCreateResolverEndpointResponse Int
pHttpStatus_ =
CreateResolverEndpointResponse'
{ $sel:resolverEndpoint:CreateResolverEndpointResponse' :: Maybe ResolverEndpoint
resolverEndpoint =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateResolverEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createResolverEndpointResponse_resolverEndpoint :: Lens.Lens' CreateResolverEndpointResponse (Prelude.Maybe ResolverEndpoint)
createResolverEndpointResponse_resolverEndpoint :: Lens' CreateResolverEndpointResponse (Maybe ResolverEndpoint)
createResolverEndpointResponse_resolverEndpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpointResponse' {Maybe ResolverEndpoint
resolverEndpoint :: Maybe ResolverEndpoint
$sel:resolverEndpoint:CreateResolverEndpointResponse' :: CreateResolverEndpointResponse -> Maybe ResolverEndpoint
resolverEndpoint} -> Maybe ResolverEndpoint
resolverEndpoint) (\s :: CreateResolverEndpointResponse
s@CreateResolverEndpointResponse' {} Maybe ResolverEndpoint
a -> CreateResolverEndpointResponse
s {$sel:resolverEndpoint:CreateResolverEndpointResponse' :: Maybe ResolverEndpoint
resolverEndpoint = Maybe ResolverEndpoint
a} :: CreateResolverEndpointResponse)
createResolverEndpointResponse_httpStatus :: Lens.Lens' CreateResolverEndpointResponse Prelude.Int
createResolverEndpointResponse_httpStatus :: Lens' CreateResolverEndpointResponse Int
createResolverEndpointResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateResolverEndpointResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateResolverEndpointResponse' :: CreateResolverEndpointResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateResolverEndpointResponse
s@CreateResolverEndpointResponse' {} Int
a -> CreateResolverEndpointResponse
s {$sel:httpStatus:CreateResolverEndpointResponse' :: Int
httpStatus = Int
a} :: CreateResolverEndpointResponse)
instance
Prelude.NFData
CreateResolverEndpointResponse
where
rnf :: CreateResolverEndpointResponse -> ()
rnf CreateResolverEndpointResponse' {Int
Maybe ResolverEndpoint
httpStatus :: Int
resolverEndpoint :: Maybe ResolverEndpoint
$sel:httpStatus:CreateResolverEndpointResponse' :: CreateResolverEndpointResponse -> Int
$sel:resolverEndpoint:CreateResolverEndpointResponse' :: CreateResolverEndpointResponse -> Maybe ResolverEndpoint
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResolverEndpoint
resolverEndpoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus