{-# 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.EC2.StartVpcEndpointServicePrivateDnsVerification
(
StartVpcEndpointServicePrivateDnsVerification (..),
newStartVpcEndpointServicePrivateDnsVerification,
startVpcEndpointServicePrivateDnsVerification_dryRun,
startVpcEndpointServicePrivateDnsVerification_serviceId,
StartVpcEndpointServicePrivateDnsVerificationResponse (..),
newStartVpcEndpointServicePrivateDnsVerificationResponse,
startVpcEndpointServicePrivateDnsVerificationResponse_returnValue,
startVpcEndpointServicePrivateDnsVerificationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartVpcEndpointServicePrivateDnsVerification = StartVpcEndpointServicePrivateDnsVerification'
{
StartVpcEndpointServicePrivateDnsVerification -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
StartVpcEndpointServicePrivateDnsVerification -> Text
serviceId :: Prelude.Text
}
deriving (StartVpcEndpointServicePrivateDnsVerification
-> StartVpcEndpointServicePrivateDnsVerification -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartVpcEndpointServicePrivateDnsVerification
-> StartVpcEndpointServicePrivateDnsVerification -> Bool
$c/= :: StartVpcEndpointServicePrivateDnsVerification
-> StartVpcEndpointServicePrivateDnsVerification -> Bool
== :: StartVpcEndpointServicePrivateDnsVerification
-> StartVpcEndpointServicePrivateDnsVerification -> Bool
$c== :: StartVpcEndpointServicePrivateDnsVerification
-> StartVpcEndpointServicePrivateDnsVerification -> Bool
Prelude.Eq, ReadPrec [StartVpcEndpointServicePrivateDnsVerification]
ReadPrec StartVpcEndpointServicePrivateDnsVerification
Int -> ReadS StartVpcEndpointServicePrivateDnsVerification
ReadS [StartVpcEndpointServicePrivateDnsVerification]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartVpcEndpointServicePrivateDnsVerification]
$creadListPrec :: ReadPrec [StartVpcEndpointServicePrivateDnsVerification]
readPrec :: ReadPrec StartVpcEndpointServicePrivateDnsVerification
$creadPrec :: ReadPrec StartVpcEndpointServicePrivateDnsVerification
readList :: ReadS [StartVpcEndpointServicePrivateDnsVerification]
$creadList :: ReadS [StartVpcEndpointServicePrivateDnsVerification]
readsPrec :: Int -> ReadS StartVpcEndpointServicePrivateDnsVerification
$creadsPrec :: Int -> ReadS StartVpcEndpointServicePrivateDnsVerification
Prelude.Read, Int -> StartVpcEndpointServicePrivateDnsVerification -> ShowS
[StartVpcEndpointServicePrivateDnsVerification] -> ShowS
StartVpcEndpointServicePrivateDnsVerification -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartVpcEndpointServicePrivateDnsVerification] -> ShowS
$cshowList :: [StartVpcEndpointServicePrivateDnsVerification] -> ShowS
show :: StartVpcEndpointServicePrivateDnsVerification -> String
$cshow :: StartVpcEndpointServicePrivateDnsVerification -> String
showsPrec :: Int -> StartVpcEndpointServicePrivateDnsVerification -> ShowS
$cshowsPrec :: Int -> StartVpcEndpointServicePrivateDnsVerification -> ShowS
Prelude.Show, forall x.
Rep StartVpcEndpointServicePrivateDnsVerification x
-> StartVpcEndpointServicePrivateDnsVerification
forall x.
StartVpcEndpointServicePrivateDnsVerification
-> Rep StartVpcEndpointServicePrivateDnsVerification x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartVpcEndpointServicePrivateDnsVerification x
-> StartVpcEndpointServicePrivateDnsVerification
$cfrom :: forall x.
StartVpcEndpointServicePrivateDnsVerification
-> Rep StartVpcEndpointServicePrivateDnsVerification x
Prelude.Generic)
newStartVpcEndpointServicePrivateDnsVerification ::
Prelude.Text ->
StartVpcEndpointServicePrivateDnsVerification
newStartVpcEndpointServicePrivateDnsVerification :: Text -> StartVpcEndpointServicePrivateDnsVerification
newStartVpcEndpointServicePrivateDnsVerification
Text
pServiceId_ =
StartVpcEndpointServicePrivateDnsVerification'
{ $sel:dryRun:StartVpcEndpointServicePrivateDnsVerification' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:serviceId:StartVpcEndpointServicePrivateDnsVerification' :: Text
serviceId = Text
pServiceId_
}
startVpcEndpointServicePrivateDnsVerification_dryRun :: Lens.Lens' StartVpcEndpointServicePrivateDnsVerification (Prelude.Maybe Prelude.Bool)
startVpcEndpointServicePrivateDnsVerification_dryRun :: Lens' StartVpcEndpointServicePrivateDnsVerification (Maybe Bool)
startVpcEndpointServicePrivateDnsVerification_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartVpcEndpointServicePrivateDnsVerification' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: StartVpcEndpointServicePrivateDnsVerification
s@StartVpcEndpointServicePrivateDnsVerification' {} Maybe Bool
a -> StartVpcEndpointServicePrivateDnsVerification
s {$sel:dryRun:StartVpcEndpointServicePrivateDnsVerification' :: Maybe Bool
dryRun = Maybe Bool
a} :: StartVpcEndpointServicePrivateDnsVerification)
startVpcEndpointServicePrivateDnsVerification_serviceId :: Lens.Lens' StartVpcEndpointServicePrivateDnsVerification Prelude.Text
startVpcEndpointServicePrivateDnsVerification_serviceId :: Lens' StartVpcEndpointServicePrivateDnsVerification Text
startVpcEndpointServicePrivateDnsVerification_serviceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartVpcEndpointServicePrivateDnsVerification' {Text
serviceId :: Text
$sel:serviceId:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Text
serviceId} -> Text
serviceId) (\s :: StartVpcEndpointServicePrivateDnsVerification
s@StartVpcEndpointServicePrivateDnsVerification' {} Text
a -> StartVpcEndpointServicePrivateDnsVerification
s {$sel:serviceId:StartVpcEndpointServicePrivateDnsVerification' :: Text
serviceId = Text
a} :: StartVpcEndpointServicePrivateDnsVerification)
instance
Core.AWSRequest
StartVpcEndpointServicePrivateDnsVerification
where
type
AWSResponse
StartVpcEndpointServicePrivateDnsVerification =
StartVpcEndpointServicePrivateDnsVerificationResponse
request :: (Service -> Service)
-> StartVpcEndpointServicePrivateDnsVerification
-> Request StartVpcEndpointServicePrivateDnsVerification
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy StartVpcEndpointServicePrivateDnsVerification
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse StartVpcEndpointServicePrivateDnsVerification)))
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 Bool
-> Int -> StartVpcEndpointServicePrivateDnsVerificationResponse
StartVpcEndpointServicePrivateDnsVerificationResponse'
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
"return")
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
StartVpcEndpointServicePrivateDnsVerification
where
hashWithSalt :: Int -> StartVpcEndpointServicePrivateDnsVerification -> Int
hashWithSalt
Int
_salt
StartVpcEndpointServicePrivateDnsVerification' {Maybe Bool
Text
serviceId :: Text
dryRun :: Maybe Bool
$sel:serviceId:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Text
$sel:dryRun:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceId
instance
Prelude.NFData
StartVpcEndpointServicePrivateDnsVerification
where
rnf :: StartVpcEndpointServicePrivateDnsVerification -> ()
rnf
StartVpcEndpointServicePrivateDnsVerification' {Maybe Bool
Text
serviceId :: Text
dryRun :: Maybe Bool
$sel:serviceId:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Text
$sel:dryRun:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceId
instance
Data.ToHeaders
StartVpcEndpointServicePrivateDnsVerification
where
toHeaders :: StartVpcEndpointServicePrivateDnsVerification -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
StartVpcEndpointServicePrivateDnsVerification
where
toPath :: StartVpcEndpointServicePrivateDnsVerification -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
StartVpcEndpointServicePrivateDnsVerification
where
toQuery :: StartVpcEndpointServicePrivateDnsVerification -> QueryString
toQuery
StartVpcEndpointServicePrivateDnsVerification' {Maybe Bool
Text
serviceId :: Text
dryRun :: Maybe Bool
$sel:serviceId:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Text
$sel:dryRun:StartVpcEndpointServicePrivateDnsVerification' :: StartVpcEndpointServicePrivateDnsVerification -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"StartVpcEndpointServicePrivateDnsVerification" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"ServiceId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
serviceId
]
data StartVpcEndpointServicePrivateDnsVerificationResponse = StartVpcEndpointServicePrivateDnsVerificationResponse'
{
StartVpcEndpointServicePrivateDnsVerificationResponse -> Maybe Bool
returnValue :: Prelude.Maybe Prelude.Bool,
StartVpcEndpointServicePrivateDnsVerificationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartVpcEndpointServicePrivateDnsVerificationResponse
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartVpcEndpointServicePrivateDnsVerificationResponse
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> Bool
$c/= :: StartVpcEndpointServicePrivateDnsVerificationResponse
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> Bool
== :: StartVpcEndpointServicePrivateDnsVerificationResponse
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> Bool
$c== :: StartVpcEndpointServicePrivateDnsVerificationResponse
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> Bool
Prelude.Eq, ReadPrec [StartVpcEndpointServicePrivateDnsVerificationResponse]
ReadPrec StartVpcEndpointServicePrivateDnsVerificationResponse
Int -> ReadS StartVpcEndpointServicePrivateDnsVerificationResponse
ReadS [StartVpcEndpointServicePrivateDnsVerificationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartVpcEndpointServicePrivateDnsVerificationResponse]
$creadListPrec :: ReadPrec [StartVpcEndpointServicePrivateDnsVerificationResponse]
readPrec :: ReadPrec StartVpcEndpointServicePrivateDnsVerificationResponse
$creadPrec :: ReadPrec StartVpcEndpointServicePrivateDnsVerificationResponse
readList :: ReadS [StartVpcEndpointServicePrivateDnsVerificationResponse]
$creadList :: ReadS [StartVpcEndpointServicePrivateDnsVerificationResponse]
readsPrec :: Int -> ReadS StartVpcEndpointServicePrivateDnsVerificationResponse
$creadsPrec :: Int -> ReadS StartVpcEndpointServicePrivateDnsVerificationResponse
Prelude.Read, Int
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> ShowS
[StartVpcEndpointServicePrivateDnsVerificationResponse] -> ShowS
StartVpcEndpointServicePrivateDnsVerificationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartVpcEndpointServicePrivateDnsVerificationResponse] -> ShowS
$cshowList :: [StartVpcEndpointServicePrivateDnsVerificationResponse] -> ShowS
show :: StartVpcEndpointServicePrivateDnsVerificationResponse -> String
$cshow :: StartVpcEndpointServicePrivateDnsVerificationResponse -> String
showsPrec :: Int
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> ShowS
$cshowsPrec :: Int
-> StartVpcEndpointServicePrivateDnsVerificationResponse -> ShowS
Prelude.Show, forall x.
Rep StartVpcEndpointServicePrivateDnsVerificationResponse x
-> StartVpcEndpointServicePrivateDnsVerificationResponse
forall x.
StartVpcEndpointServicePrivateDnsVerificationResponse
-> Rep StartVpcEndpointServicePrivateDnsVerificationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartVpcEndpointServicePrivateDnsVerificationResponse x
-> StartVpcEndpointServicePrivateDnsVerificationResponse
$cfrom :: forall x.
StartVpcEndpointServicePrivateDnsVerificationResponse
-> Rep StartVpcEndpointServicePrivateDnsVerificationResponse x
Prelude.Generic)
newStartVpcEndpointServicePrivateDnsVerificationResponse ::
Prelude.Int ->
StartVpcEndpointServicePrivateDnsVerificationResponse
newStartVpcEndpointServicePrivateDnsVerificationResponse :: Int -> StartVpcEndpointServicePrivateDnsVerificationResponse
newStartVpcEndpointServicePrivateDnsVerificationResponse
Int
pHttpStatus_ =
StartVpcEndpointServicePrivateDnsVerificationResponse'
{ $sel:returnValue:StartVpcEndpointServicePrivateDnsVerificationResponse' :: Maybe Bool
returnValue =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartVpcEndpointServicePrivateDnsVerificationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
startVpcEndpointServicePrivateDnsVerificationResponse_returnValue :: Lens.Lens' StartVpcEndpointServicePrivateDnsVerificationResponse (Prelude.Maybe Prelude.Bool)
startVpcEndpointServicePrivateDnsVerificationResponse_returnValue :: Lens'
StartVpcEndpointServicePrivateDnsVerificationResponse (Maybe Bool)
startVpcEndpointServicePrivateDnsVerificationResponse_returnValue = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartVpcEndpointServicePrivateDnsVerificationResponse' {Maybe Bool
returnValue :: Maybe Bool
$sel:returnValue:StartVpcEndpointServicePrivateDnsVerificationResponse' :: StartVpcEndpointServicePrivateDnsVerificationResponse -> Maybe Bool
returnValue} -> Maybe Bool
returnValue) (\s :: StartVpcEndpointServicePrivateDnsVerificationResponse
s@StartVpcEndpointServicePrivateDnsVerificationResponse' {} Maybe Bool
a -> StartVpcEndpointServicePrivateDnsVerificationResponse
s {$sel:returnValue:StartVpcEndpointServicePrivateDnsVerificationResponse' :: Maybe Bool
returnValue = Maybe Bool
a} :: StartVpcEndpointServicePrivateDnsVerificationResponse)
startVpcEndpointServicePrivateDnsVerificationResponse_httpStatus :: Lens.Lens' StartVpcEndpointServicePrivateDnsVerificationResponse Prelude.Int
startVpcEndpointServicePrivateDnsVerificationResponse_httpStatus :: Lens' StartVpcEndpointServicePrivateDnsVerificationResponse Int
startVpcEndpointServicePrivateDnsVerificationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartVpcEndpointServicePrivateDnsVerificationResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartVpcEndpointServicePrivateDnsVerificationResponse' :: StartVpcEndpointServicePrivateDnsVerificationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartVpcEndpointServicePrivateDnsVerificationResponse
s@StartVpcEndpointServicePrivateDnsVerificationResponse' {} Int
a -> StartVpcEndpointServicePrivateDnsVerificationResponse
s {$sel:httpStatus:StartVpcEndpointServicePrivateDnsVerificationResponse' :: Int
httpStatus = Int
a} :: StartVpcEndpointServicePrivateDnsVerificationResponse)
instance
Prelude.NFData
StartVpcEndpointServicePrivateDnsVerificationResponse
where
rnf :: StartVpcEndpointServicePrivateDnsVerificationResponse -> ()
rnf
StartVpcEndpointServicePrivateDnsVerificationResponse' {Int
Maybe Bool
httpStatus :: Int
returnValue :: Maybe Bool
$sel:httpStatus:StartVpcEndpointServicePrivateDnsVerificationResponse' :: StartVpcEndpointServicePrivateDnsVerificationResponse -> Int
$sel:returnValue:StartVpcEndpointServicePrivateDnsVerificationResponse' :: StartVpcEndpointServicePrivateDnsVerificationResponse -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
returnValue
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus