{-# 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.DeleteVerifiedAccessGroup
(
DeleteVerifiedAccessGroup (..),
newDeleteVerifiedAccessGroup,
deleteVerifiedAccessGroup_clientToken,
deleteVerifiedAccessGroup_dryRun,
deleteVerifiedAccessGroup_verifiedAccessGroupId,
DeleteVerifiedAccessGroupResponse (..),
newDeleteVerifiedAccessGroupResponse,
deleteVerifiedAccessGroupResponse_verifiedAccessGroup,
deleteVerifiedAccessGroupResponse_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 DeleteVerifiedAccessGroup = DeleteVerifiedAccessGroup'
{
DeleteVerifiedAccessGroup -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
DeleteVerifiedAccessGroup -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteVerifiedAccessGroup -> Text
verifiedAccessGroupId :: Prelude.Text
}
deriving (DeleteVerifiedAccessGroup -> DeleteVerifiedAccessGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedAccessGroup -> DeleteVerifiedAccessGroup -> Bool
$c/= :: DeleteVerifiedAccessGroup -> DeleteVerifiedAccessGroup -> Bool
== :: DeleteVerifiedAccessGroup -> DeleteVerifiedAccessGroup -> Bool
$c== :: DeleteVerifiedAccessGroup -> DeleteVerifiedAccessGroup -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedAccessGroup]
ReadPrec DeleteVerifiedAccessGroup
Int -> ReadS DeleteVerifiedAccessGroup
ReadS [DeleteVerifiedAccessGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedAccessGroup]
$creadListPrec :: ReadPrec [DeleteVerifiedAccessGroup]
readPrec :: ReadPrec DeleteVerifiedAccessGroup
$creadPrec :: ReadPrec DeleteVerifiedAccessGroup
readList :: ReadS [DeleteVerifiedAccessGroup]
$creadList :: ReadS [DeleteVerifiedAccessGroup]
readsPrec :: Int -> ReadS DeleteVerifiedAccessGroup
$creadsPrec :: Int -> ReadS DeleteVerifiedAccessGroup
Prelude.Read, Int -> DeleteVerifiedAccessGroup -> ShowS
[DeleteVerifiedAccessGroup] -> ShowS
DeleteVerifiedAccessGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedAccessGroup] -> ShowS
$cshowList :: [DeleteVerifiedAccessGroup] -> ShowS
show :: DeleteVerifiedAccessGroup -> String
$cshow :: DeleteVerifiedAccessGroup -> String
showsPrec :: Int -> DeleteVerifiedAccessGroup -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedAccessGroup -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedAccessGroup x -> DeleteVerifiedAccessGroup
forall x.
DeleteVerifiedAccessGroup -> Rep DeleteVerifiedAccessGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedAccessGroup x -> DeleteVerifiedAccessGroup
$cfrom :: forall x.
DeleteVerifiedAccessGroup -> Rep DeleteVerifiedAccessGroup x
Prelude.Generic)
newDeleteVerifiedAccessGroup ::
Prelude.Text ->
DeleteVerifiedAccessGroup
newDeleteVerifiedAccessGroup :: Text -> DeleteVerifiedAccessGroup
newDeleteVerifiedAccessGroup Text
pVerifiedAccessGroupId_ =
DeleteVerifiedAccessGroup'
{ $sel:clientToken:DeleteVerifiedAccessGroup' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:DeleteVerifiedAccessGroup' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:verifiedAccessGroupId:DeleteVerifiedAccessGroup' :: Text
verifiedAccessGroupId = Text
pVerifiedAccessGroupId_
}
deleteVerifiedAccessGroup_clientToken :: Lens.Lens' DeleteVerifiedAccessGroup (Prelude.Maybe Prelude.Text)
deleteVerifiedAccessGroup_clientToken :: Lens' DeleteVerifiedAccessGroup (Maybe Text)
deleteVerifiedAccessGroup_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessGroup' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: DeleteVerifiedAccessGroup
s@DeleteVerifiedAccessGroup' {} Maybe Text
a -> DeleteVerifiedAccessGroup
s {$sel:clientToken:DeleteVerifiedAccessGroup' :: Maybe Text
clientToken = Maybe Text
a} :: DeleteVerifiedAccessGroup)
deleteVerifiedAccessGroup_dryRun :: Lens.Lens' DeleteVerifiedAccessGroup (Prelude.Maybe Prelude.Bool)
deleteVerifiedAccessGroup_dryRun :: Lens' DeleteVerifiedAccessGroup (Maybe Bool)
deleteVerifiedAccessGroup_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessGroup' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteVerifiedAccessGroup
s@DeleteVerifiedAccessGroup' {} Maybe Bool
a -> DeleteVerifiedAccessGroup
s {$sel:dryRun:DeleteVerifiedAccessGroup' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteVerifiedAccessGroup)
deleteVerifiedAccessGroup_verifiedAccessGroupId :: Lens.Lens' DeleteVerifiedAccessGroup Prelude.Text
deleteVerifiedAccessGroup_verifiedAccessGroupId :: Lens' DeleteVerifiedAccessGroup Text
deleteVerifiedAccessGroup_verifiedAccessGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessGroup' {Text
verifiedAccessGroupId :: Text
$sel:verifiedAccessGroupId:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Text
verifiedAccessGroupId} -> Text
verifiedAccessGroupId) (\s :: DeleteVerifiedAccessGroup
s@DeleteVerifiedAccessGroup' {} Text
a -> DeleteVerifiedAccessGroup
s {$sel:verifiedAccessGroupId:DeleteVerifiedAccessGroup' :: Text
verifiedAccessGroupId = Text
a} :: DeleteVerifiedAccessGroup)
instance Core.AWSRequest DeleteVerifiedAccessGroup where
type
AWSResponse DeleteVerifiedAccessGroup =
DeleteVerifiedAccessGroupResponse
request :: (Service -> Service)
-> DeleteVerifiedAccessGroup -> Request DeleteVerifiedAccessGroup
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 DeleteVerifiedAccessGroup
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteVerifiedAccessGroup)))
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 VerifiedAccessGroup
-> Int -> DeleteVerifiedAccessGroupResponse
DeleteVerifiedAccessGroupResponse'
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
"verifiedAccessGroup")
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 DeleteVerifiedAccessGroup where
hashWithSalt :: Int -> DeleteVerifiedAccessGroup -> Int
hashWithSalt Int
_salt DeleteVerifiedAccessGroup' {Maybe Bool
Maybe Text
Text
verifiedAccessGroupId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessGroupId:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Text
$sel:dryRun:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> 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
verifiedAccessGroupId
instance Prelude.NFData DeleteVerifiedAccessGroup where
rnf :: DeleteVerifiedAccessGroup -> ()
rnf DeleteVerifiedAccessGroup' {Maybe Bool
Maybe Text
Text
verifiedAccessGroupId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessGroupId:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Text
$sel:dryRun:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> 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
verifiedAccessGroupId
instance Data.ToHeaders DeleteVerifiedAccessGroup where
toHeaders :: DeleteVerifiedAccessGroup -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteVerifiedAccessGroup where
toPath :: DeleteVerifiedAccessGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteVerifiedAccessGroup where
toQuery :: DeleteVerifiedAccessGroup -> QueryString
toQuery DeleteVerifiedAccessGroup' {Maybe Bool
Maybe Text
Text
verifiedAccessGroupId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessGroupId:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Text
$sel:dryRun:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessGroup' :: DeleteVerifiedAccessGroup -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeleteVerifiedAccessGroup" :: 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
"VerifiedAccessGroupId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
verifiedAccessGroupId
]
data DeleteVerifiedAccessGroupResponse = DeleteVerifiedAccessGroupResponse'
{
DeleteVerifiedAccessGroupResponse -> Maybe VerifiedAccessGroup
verifiedAccessGroup :: Prelude.Maybe VerifiedAccessGroup,
DeleteVerifiedAccessGroupResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteVerifiedAccessGroupResponse
-> DeleteVerifiedAccessGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedAccessGroupResponse
-> DeleteVerifiedAccessGroupResponse -> Bool
$c/= :: DeleteVerifiedAccessGroupResponse
-> DeleteVerifiedAccessGroupResponse -> Bool
== :: DeleteVerifiedAccessGroupResponse
-> DeleteVerifiedAccessGroupResponse -> Bool
$c== :: DeleteVerifiedAccessGroupResponse
-> DeleteVerifiedAccessGroupResponse -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedAccessGroupResponse]
ReadPrec DeleteVerifiedAccessGroupResponse
Int -> ReadS DeleteVerifiedAccessGroupResponse
ReadS [DeleteVerifiedAccessGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedAccessGroupResponse]
$creadListPrec :: ReadPrec [DeleteVerifiedAccessGroupResponse]
readPrec :: ReadPrec DeleteVerifiedAccessGroupResponse
$creadPrec :: ReadPrec DeleteVerifiedAccessGroupResponse
readList :: ReadS [DeleteVerifiedAccessGroupResponse]
$creadList :: ReadS [DeleteVerifiedAccessGroupResponse]
readsPrec :: Int -> ReadS DeleteVerifiedAccessGroupResponse
$creadsPrec :: Int -> ReadS DeleteVerifiedAccessGroupResponse
Prelude.Read, Int -> DeleteVerifiedAccessGroupResponse -> ShowS
[DeleteVerifiedAccessGroupResponse] -> ShowS
DeleteVerifiedAccessGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedAccessGroupResponse] -> ShowS
$cshowList :: [DeleteVerifiedAccessGroupResponse] -> ShowS
show :: DeleteVerifiedAccessGroupResponse -> String
$cshow :: DeleteVerifiedAccessGroupResponse -> String
showsPrec :: Int -> DeleteVerifiedAccessGroupResponse -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedAccessGroupResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedAccessGroupResponse x
-> DeleteVerifiedAccessGroupResponse
forall x.
DeleteVerifiedAccessGroupResponse
-> Rep DeleteVerifiedAccessGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedAccessGroupResponse x
-> DeleteVerifiedAccessGroupResponse
$cfrom :: forall x.
DeleteVerifiedAccessGroupResponse
-> Rep DeleteVerifiedAccessGroupResponse x
Prelude.Generic)
newDeleteVerifiedAccessGroupResponse ::
Prelude.Int ->
DeleteVerifiedAccessGroupResponse
newDeleteVerifiedAccessGroupResponse :: Int -> DeleteVerifiedAccessGroupResponse
newDeleteVerifiedAccessGroupResponse Int
pHttpStatus_ =
DeleteVerifiedAccessGroupResponse'
{ $sel:verifiedAccessGroup:DeleteVerifiedAccessGroupResponse' :: Maybe VerifiedAccessGroup
verifiedAccessGroup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteVerifiedAccessGroupResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteVerifiedAccessGroupResponse_verifiedAccessGroup :: Lens.Lens' DeleteVerifiedAccessGroupResponse (Prelude.Maybe VerifiedAccessGroup)
deleteVerifiedAccessGroupResponse_verifiedAccessGroup :: Lens' DeleteVerifiedAccessGroupResponse (Maybe VerifiedAccessGroup)
deleteVerifiedAccessGroupResponse_verifiedAccessGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessGroupResponse' {Maybe VerifiedAccessGroup
verifiedAccessGroup :: Maybe VerifiedAccessGroup
$sel:verifiedAccessGroup:DeleteVerifiedAccessGroupResponse' :: DeleteVerifiedAccessGroupResponse -> Maybe VerifiedAccessGroup
verifiedAccessGroup} -> Maybe VerifiedAccessGroup
verifiedAccessGroup) (\s :: DeleteVerifiedAccessGroupResponse
s@DeleteVerifiedAccessGroupResponse' {} Maybe VerifiedAccessGroup
a -> DeleteVerifiedAccessGroupResponse
s {$sel:verifiedAccessGroup:DeleteVerifiedAccessGroupResponse' :: Maybe VerifiedAccessGroup
verifiedAccessGroup = Maybe VerifiedAccessGroup
a} :: DeleteVerifiedAccessGroupResponse)
deleteVerifiedAccessGroupResponse_httpStatus :: Lens.Lens' DeleteVerifiedAccessGroupResponse Prelude.Int
deleteVerifiedAccessGroupResponse_httpStatus :: Lens' DeleteVerifiedAccessGroupResponse Int
deleteVerifiedAccessGroupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessGroupResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteVerifiedAccessGroupResponse' :: DeleteVerifiedAccessGroupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteVerifiedAccessGroupResponse
s@DeleteVerifiedAccessGroupResponse' {} Int
a -> DeleteVerifiedAccessGroupResponse
s {$sel:httpStatus:DeleteVerifiedAccessGroupResponse' :: Int
httpStatus = Int
a} :: DeleteVerifiedAccessGroupResponse)
instance
Prelude.NFData
DeleteVerifiedAccessGroupResponse
where
rnf :: DeleteVerifiedAccessGroupResponse -> ()
rnf DeleteVerifiedAccessGroupResponse' {Int
Maybe VerifiedAccessGroup
httpStatus :: Int
verifiedAccessGroup :: Maybe VerifiedAccessGroup
$sel:httpStatus:DeleteVerifiedAccessGroupResponse' :: DeleteVerifiedAccessGroupResponse -> Int
$sel:verifiedAccessGroup:DeleteVerifiedAccessGroupResponse' :: DeleteVerifiedAccessGroupResponse -> Maybe VerifiedAccessGroup
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VerifiedAccessGroup
verifiedAccessGroup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus