{-# 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.DeleteVerifiedAccessEndpoint
(
DeleteVerifiedAccessEndpoint (..),
newDeleteVerifiedAccessEndpoint,
deleteVerifiedAccessEndpoint_clientToken,
deleteVerifiedAccessEndpoint_dryRun,
deleteVerifiedAccessEndpoint_verifiedAccessEndpointId,
DeleteVerifiedAccessEndpointResponse (..),
newDeleteVerifiedAccessEndpointResponse,
deleteVerifiedAccessEndpointResponse_verifiedAccessEndpoint,
deleteVerifiedAccessEndpointResponse_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 DeleteVerifiedAccessEndpoint = DeleteVerifiedAccessEndpoint'
{
DeleteVerifiedAccessEndpoint -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
DeleteVerifiedAccessEndpoint -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteVerifiedAccessEndpoint -> Text
verifiedAccessEndpointId :: Prelude.Text
}
deriving (DeleteVerifiedAccessEndpoint
-> DeleteVerifiedAccessEndpoint -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedAccessEndpoint
-> DeleteVerifiedAccessEndpoint -> Bool
$c/= :: DeleteVerifiedAccessEndpoint
-> DeleteVerifiedAccessEndpoint -> Bool
== :: DeleteVerifiedAccessEndpoint
-> DeleteVerifiedAccessEndpoint -> Bool
$c== :: DeleteVerifiedAccessEndpoint
-> DeleteVerifiedAccessEndpoint -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedAccessEndpoint]
ReadPrec DeleteVerifiedAccessEndpoint
Int -> ReadS DeleteVerifiedAccessEndpoint
ReadS [DeleteVerifiedAccessEndpoint]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedAccessEndpoint]
$creadListPrec :: ReadPrec [DeleteVerifiedAccessEndpoint]
readPrec :: ReadPrec DeleteVerifiedAccessEndpoint
$creadPrec :: ReadPrec DeleteVerifiedAccessEndpoint
readList :: ReadS [DeleteVerifiedAccessEndpoint]
$creadList :: ReadS [DeleteVerifiedAccessEndpoint]
readsPrec :: Int -> ReadS DeleteVerifiedAccessEndpoint
$creadsPrec :: Int -> ReadS DeleteVerifiedAccessEndpoint
Prelude.Read, Int -> DeleteVerifiedAccessEndpoint -> ShowS
[DeleteVerifiedAccessEndpoint] -> ShowS
DeleteVerifiedAccessEndpoint -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedAccessEndpoint] -> ShowS
$cshowList :: [DeleteVerifiedAccessEndpoint] -> ShowS
show :: DeleteVerifiedAccessEndpoint -> String
$cshow :: DeleteVerifiedAccessEndpoint -> String
showsPrec :: Int -> DeleteVerifiedAccessEndpoint -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedAccessEndpoint -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedAccessEndpoint x -> DeleteVerifiedAccessEndpoint
forall x.
DeleteVerifiedAccessEndpoint -> Rep DeleteVerifiedAccessEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedAccessEndpoint x -> DeleteVerifiedAccessEndpoint
$cfrom :: forall x.
DeleteVerifiedAccessEndpoint -> Rep DeleteVerifiedAccessEndpoint x
Prelude.Generic)
newDeleteVerifiedAccessEndpoint ::
Prelude.Text ->
DeleteVerifiedAccessEndpoint
newDeleteVerifiedAccessEndpoint :: Text -> DeleteVerifiedAccessEndpoint
newDeleteVerifiedAccessEndpoint
Text
pVerifiedAccessEndpointId_ =
DeleteVerifiedAccessEndpoint'
{ $sel:clientToken:DeleteVerifiedAccessEndpoint' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:DeleteVerifiedAccessEndpoint' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:verifiedAccessEndpointId:DeleteVerifiedAccessEndpoint' :: Text
verifiedAccessEndpointId =
Text
pVerifiedAccessEndpointId_
}
deleteVerifiedAccessEndpoint_clientToken :: Lens.Lens' DeleteVerifiedAccessEndpoint (Prelude.Maybe Prelude.Text)
deleteVerifiedAccessEndpoint_clientToken :: Lens' DeleteVerifiedAccessEndpoint (Maybe Text)
deleteVerifiedAccessEndpoint_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessEndpoint' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: DeleteVerifiedAccessEndpoint
s@DeleteVerifiedAccessEndpoint' {} Maybe Text
a -> DeleteVerifiedAccessEndpoint
s {$sel:clientToken:DeleteVerifiedAccessEndpoint' :: Maybe Text
clientToken = Maybe Text
a} :: DeleteVerifiedAccessEndpoint)
deleteVerifiedAccessEndpoint_dryRun :: Lens.Lens' DeleteVerifiedAccessEndpoint (Prelude.Maybe Prelude.Bool)
deleteVerifiedAccessEndpoint_dryRun :: Lens' DeleteVerifiedAccessEndpoint (Maybe Bool)
deleteVerifiedAccessEndpoint_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessEndpoint' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteVerifiedAccessEndpoint
s@DeleteVerifiedAccessEndpoint' {} Maybe Bool
a -> DeleteVerifiedAccessEndpoint
s {$sel:dryRun:DeleteVerifiedAccessEndpoint' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteVerifiedAccessEndpoint)
deleteVerifiedAccessEndpoint_verifiedAccessEndpointId :: Lens.Lens' DeleteVerifiedAccessEndpoint Prelude.Text
deleteVerifiedAccessEndpoint_verifiedAccessEndpointId :: Lens' DeleteVerifiedAccessEndpoint Text
deleteVerifiedAccessEndpoint_verifiedAccessEndpointId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessEndpoint' {Text
verifiedAccessEndpointId :: Text
$sel:verifiedAccessEndpointId:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Text
verifiedAccessEndpointId} -> Text
verifiedAccessEndpointId) (\s :: DeleteVerifiedAccessEndpoint
s@DeleteVerifiedAccessEndpoint' {} Text
a -> DeleteVerifiedAccessEndpoint
s {$sel:verifiedAccessEndpointId:DeleteVerifiedAccessEndpoint' :: Text
verifiedAccessEndpointId = Text
a} :: DeleteVerifiedAccessEndpoint)
instance Core.AWSRequest DeleteVerifiedAccessEndpoint where
type
AWSResponse DeleteVerifiedAccessEndpoint =
DeleteVerifiedAccessEndpointResponse
request :: (Service -> Service)
-> DeleteVerifiedAccessEndpoint
-> Request DeleteVerifiedAccessEndpoint
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 DeleteVerifiedAccessEndpoint
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteVerifiedAccessEndpoint)))
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 VerifiedAccessEndpoint
-> Int -> DeleteVerifiedAccessEndpointResponse
DeleteVerifiedAccessEndpointResponse'
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
"verifiedAccessEndpoint")
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
DeleteVerifiedAccessEndpoint
where
hashWithSalt :: Int -> DeleteVerifiedAccessEndpoint -> Int
hashWithSalt Int
_salt DeleteVerifiedAccessEndpoint' {Maybe Bool
Maybe Text
Text
verifiedAccessEndpointId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessEndpointId:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Text
$sel:dryRun:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
verifiedAccessEndpointId
instance Prelude.NFData DeleteVerifiedAccessEndpoint where
rnf :: DeleteVerifiedAccessEndpoint -> ()
rnf DeleteVerifiedAccessEndpoint' {Maybe Bool
Maybe Text
Text
verifiedAccessEndpointId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessEndpointId:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Text
$sel:dryRun:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` 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
verifiedAccessEndpointId
instance Data.ToHeaders DeleteVerifiedAccessEndpoint where
toHeaders :: DeleteVerifiedAccessEndpoint -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteVerifiedAccessEndpoint where
toPath :: DeleteVerifiedAccessEndpoint -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteVerifiedAccessEndpoint where
toQuery :: DeleteVerifiedAccessEndpoint -> QueryString
toQuery DeleteVerifiedAccessEndpoint' {Maybe Bool
Maybe Text
Text
verifiedAccessEndpointId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessEndpointId:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Text
$sel:dryRun:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessEndpoint' :: DeleteVerifiedAccessEndpoint -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteVerifiedAccessEndpoint" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"ClientToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clientToken,
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"VerifiedAccessEndpointId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
verifiedAccessEndpointId
]
data DeleteVerifiedAccessEndpointResponse = DeleteVerifiedAccessEndpointResponse'
{
DeleteVerifiedAccessEndpointResponse
-> Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint :: Prelude.Maybe VerifiedAccessEndpoint,
DeleteVerifiedAccessEndpointResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteVerifiedAccessEndpointResponse
-> DeleteVerifiedAccessEndpointResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedAccessEndpointResponse
-> DeleteVerifiedAccessEndpointResponse -> Bool
$c/= :: DeleteVerifiedAccessEndpointResponse
-> DeleteVerifiedAccessEndpointResponse -> Bool
== :: DeleteVerifiedAccessEndpointResponse
-> DeleteVerifiedAccessEndpointResponse -> Bool
$c== :: DeleteVerifiedAccessEndpointResponse
-> DeleteVerifiedAccessEndpointResponse -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedAccessEndpointResponse]
ReadPrec DeleteVerifiedAccessEndpointResponse
Int -> ReadS DeleteVerifiedAccessEndpointResponse
ReadS [DeleteVerifiedAccessEndpointResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedAccessEndpointResponse]
$creadListPrec :: ReadPrec [DeleteVerifiedAccessEndpointResponse]
readPrec :: ReadPrec DeleteVerifiedAccessEndpointResponse
$creadPrec :: ReadPrec DeleteVerifiedAccessEndpointResponse
readList :: ReadS [DeleteVerifiedAccessEndpointResponse]
$creadList :: ReadS [DeleteVerifiedAccessEndpointResponse]
readsPrec :: Int -> ReadS DeleteVerifiedAccessEndpointResponse
$creadsPrec :: Int -> ReadS DeleteVerifiedAccessEndpointResponse
Prelude.Read, Int -> DeleteVerifiedAccessEndpointResponse -> ShowS
[DeleteVerifiedAccessEndpointResponse] -> ShowS
DeleteVerifiedAccessEndpointResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedAccessEndpointResponse] -> ShowS
$cshowList :: [DeleteVerifiedAccessEndpointResponse] -> ShowS
show :: DeleteVerifiedAccessEndpointResponse -> String
$cshow :: DeleteVerifiedAccessEndpointResponse -> String
showsPrec :: Int -> DeleteVerifiedAccessEndpointResponse -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedAccessEndpointResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedAccessEndpointResponse x
-> DeleteVerifiedAccessEndpointResponse
forall x.
DeleteVerifiedAccessEndpointResponse
-> Rep DeleteVerifiedAccessEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedAccessEndpointResponse x
-> DeleteVerifiedAccessEndpointResponse
$cfrom :: forall x.
DeleteVerifiedAccessEndpointResponse
-> Rep DeleteVerifiedAccessEndpointResponse x
Prelude.Generic)
newDeleteVerifiedAccessEndpointResponse ::
Prelude.Int ->
DeleteVerifiedAccessEndpointResponse
newDeleteVerifiedAccessEndpointResponse :: Int -> DeleteVerifiedAccessEndpointResponse
newDeleteVerifiedAccessEndpointResponse Int
pHttpStatus_ =
DeleteVerifiedAccessEndpointResponse'
{ $sel:verifiedAccessEndpoint:DeleteVerifiedAccessEndpointResponse' :: Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteVerifiedAccessEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteVerifiedAccessEndpointResponse_verifiedAccessEndpoint :: Lens.Lens' DeleteVerifiedAccessEndpointResponse (Prelude.Maybe VerifiedAccessEndpoint)
deleteVerifiedAccessEndpointResponse_verifiedAccessEndpoint :: Lens'
DeleteVerifiedAccessEndpointResponse (Maybe VerifiedAccessEndpoint)
deleteVerifiedAccessEndpointResponse_verifiedAccessEndpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessEndpointResponse' {Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint :: Maybe VerifiedAccessEndpoint
$sel:verifiedAccessEndpoint:DeleteVerifiedAccessEndpointResponse' :: DeleteVerifiedAccessEndpointResponse
-> Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint} -> Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint) (\s :: DeleteVerifiedAccessEndpointResponse
s@DeleteVerifiedAccessEndpointResponse' {} Maybe VerifiedAccessEndpoint
a -> DeleteVerifiedAccessEndpointResponse
s {$sel:verifiedAccessEndpoint:DeleteVerifiedAccessEndpointResponse' :: Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint = Maybe VerifiedAccessEndpoint
a} :: DeleteVerifiedAccessEndpointResponse)
deleteVerifiedAccessEndpointResponse_httpStatus :: Lens.Lens' DeleteVerifiedAccessEndpointResponse Prelude.Int
deleteVerifiedAccessEndpointResponse_httpStatus :: Lens' DeleteVerifiedAccessEndpointResponse Int
deleteVerifiedAccessEndpointResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessEndpointResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteVerifiedAccessEndpointResponse' :: DeleteVerifiedAccessEndpointResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteVerifiedAccessEndpointResponse
s@DeleteVerifiedAccessEndpointResponse' {} Int
a -> DeleteVerifiedAccessEndpointResponse
s {$sel:httpStatus:DeleteVerifiedAccessEndpointResponse' :: Int
httpStatus = Int
a} :: DeleteVerifiedAccessEndpointResponse)
instance
Prelude.NFData
DeleteVerifiedAccessEndpointResponse
where
rnf :: DeleteVerifiedAccessEndpointResponse -> ()
rnf DeleteVerifiedAccessEndpointResponse' {Int
Maybe VerifiedAccessEndpoint
httpStatus :: Int
verifiedAccessEndpoint :: Maybe VerifiedAccessEndpoint
$sel:httpStatus:DeleteVerifiedAccessEndpointResponse' :: DeleteVerifiedAccessEndpointResponse -> Int
$sel:verifiedAccessEndpoint:DeleteVerifiedAccessEndpointResponse' :: DeleteVerifiedAccessEndpointResponse
-> Maybe VerifiedAccessEndpoint
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VerifiedAccessEndpoint
verifiedAccessEndpoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus