{-# 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.DeleteVerifiedAccessTrustProvider
(
DeleteVerifiedAccessTrustProvider (..),
newDeleteVerifiedAccessTrustProvider,
deleteVerifiedAccessTrustProvider_clientToken,
deleteVerifiedAccessTrustProvider_dryRun,
deleteVerifiedAccessTrustProvider_verifiedAccessTrustProviderId,
DeleteVerifiedAccessTrustProviderResponse (..),
newDeleteVerifiedAccessTrustProviderResponse,
deleteVerifiedAccessTrustProviderResponse_verifiedAccessTrustProvider,
deleteVerifiedAccessTrustProviderResponse_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 DeleteVerifiedAccessTrustProvider = DeleteVerifiedAccessTrustProvider'
{
DeleteVerifiedAccessTrustProvider -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
DeleteVerifiedAccessTrustProvider -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteVerifiedAccessTrustProvider -> Text
verifiedAccessTrustProviderId :: Prelude.Text
}
deriving (DeleteVerifiedAccessTrustProvider
-> DeleteVerifiedAccessTrustProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedAccessTrustProvider
-> DeleteVerifiedAccessTrustProvider -> Bool
$c/= :: DeleteVerifiedAccessTrustProvider
-> DeleteVerifiedAccessTrustProvider -> Bool
== :: DeleteVerifiedAccessTrustProvider
-> DeleteVerifiedAccessTrustProvider -> Bool
$c== :: DeleteVerifiedAccessTrustProvider
-> DeleteVerifiedAccessTrustProvider -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedAccessTrustProvider]
ReadPrec DeleteVerifiedAccessTrustProvider
Int -> ReadS DeleteVerifiedAccessTrustProvider
ReadS [DeleteVerifiedAccessTrustProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedAccessTrustProvider]
$creadListPrec :: ReadPrec [DeleteVerifiedAccessTrustProvider]
readPrec :: ReadPrec DeleteVerifiedAccessTrustProvider
$creadPrec :: ReadPrec DeleteVerifiedAccessTrustProvider
readList :: ReadS [DeleteVerifiedAccessTrustProvider]
$creadList :: ReadS [DeleteVerifiedAccessTrustProvider]
readsPrec :: Int -> ReadS DeleteVerifiedAccessTrustProvider
$creadsPrec :: Int -> ReadS DeleteVerifiedAccessTrustProvider
Prelude.Read, Int -> DeleteVerifiedAccessTrustProvider -> ShowS
[DeleteVerifiedAccessTrustProvider] -> ShowS
DeleteVerifiedAccessTrustProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedAccessTrustProvider] -> ShowS
$cshowList :: [DeleteVerifiedAccessTrustProvider] -> ShowS
show :: DeleteVerifiedAccessTrustProvider -> String
$cshow :: DeleteVerifiedAccessTrustProvider -> String
showsPrec :: Int -> DeleteVerifiedAccessTrustProvider -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedAccessTrustProvider -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedAccessTrustProvider x
-> DeleteVerifiedAccessTrustProvider
forall x.
DeleteVerifiedAccessTrustProvider
-> Rep DeleteVerifiedAccessTrustProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedAccessTrustProvider x
-> DeleteVerifiedAccessTrustProvider
$cfrom :: forall x.
DeleteVerifiedAccessTrustProvider
-> Rep DeleteVerifiedAccessTrustProvider x
Prelude.Generic)
newDeleteVerifiedAccessTrustProvider ::
Prelude.Text ->
DeleteVerifiedAccessTrustProvider
newDeleteVerifiedAccessTrustProvider :: Text -> DeleteVerifiedAccessTrustProvider
newDeleteVerifiedAccessTrustProvider
Text
pVerifiedAccessTrustProviderId_ =
DeleteVerifiedAccessTrustProvider'
{ $sel:clientToken:DeleteVerifiedAccessTrustProvider' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:DeleteVerifiedAccessTrustProvider' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:verifiedAccessTrustProviderId:DeleteVerifiedAccessTrustProvider' :: Text
verifiedAccessTrustProviderId =
Text
pVerifiedAccessTrustProviderId_
}
deleteVerifiedAccessTrustProvider_clientToken :: Lens.Lens' DeleteVerifiedAccessTrustProvider (Prelude.Maybe Prelude.Text)
deleteVerifiedAccessTrustProvider_clientToken :: Lens' DeleteVerifiedAccessTrustProvider (Maybe Text)
deleteVerifiedAccessTrustProvider_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessTrustProvider' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: DeleteVerifiedAccessTrustProvider
s@DeleteVerifiedAccessTrustProvider' {} Maybe Text
a -> DeleteVerifiedAccessTrustProvider
s {$sel:clientToken:DeleteVerifiedAccessTrustProvider' :: Maybe Text
clientToken = Maybe Text
a} :: DeleteVerifiedAccessTrustProvider)
deleteVerifiedAccessTrustProvider_dryRun :: Lens.Lens' DeleteVerifiedAccessTrustProvider (Prelude.Maybe Prelude.Bool)
deleteVerifiedAccessTrustProvider_dryRun :: Lens' DeleteVerifiedAccessTrustProvider (Maybe Bool)
deleteVerifiedAccessTrustProvider_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessTrustProvider' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteVerifiedAccessTrustProvider
s@DeleteVerifiedAccessTrustProvider' {} Maybe Bool
a -> DeleteVerifiedAccessTrustProvider
s {$sel:dryRun:DeleteVerifiedAccessTrustProvider' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteVerifiedAccessTrustProvider)
deleteVerifiedAccessTrustProvider_verifiedAccessTrustProviderId :: Lens.Lens' DeleteVerifiedAccessTrustProvider Prelude.Text
deleteVerifiedAccessTrustProvider_verifiedAccessTrustProviderId :: Lens' DeleteVerifiedAccessTrustProvider Text
deleteVerifiedAccessTrustProvider_verifiedAccessTrustProviderId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessTrustProvider' {Text
verifiedAccessTrustProviderId :: Text
$sel:verifiedAccessTrustProviderId:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Text
verifiedAccessTrustProviderId} -> Text
verifiedAccessTrustProviderId) (\s :: DeleteVerifiedAccessTrustProvider
s@DeleteVerifiedAccessTrustProvider' {} Text
a -> DeleteVerifiedAccessTrustProvider
s {$sel:verifiedAccessTrustProviderId:DeleteVerifiedAccessTrustProvider' :: Text
verifiedAccessTrustProviderId = Text
a} :: DeleteVerifiedAccessTrustProvider)
instance
Core.AWSRequest
DeleteVerifiedAccessTrustProvider
where
type
AWSResponse DeleteVerifiedAccessTrustProvider =
DeleteVerifiedAccessTrustProviderResponse
request :: (Service -> Service)
-> DeleteVerifiedAccessTrustProvider
-> Request DeleteVerifiedAccessTrustProvider
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 DeleteVerifiedAccessTrustProvider
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteVerifiedAccessTrustProvider)))
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 VerifiedAccessTrustProvider
-> Int -> DeleteVerifiedAccessTrustProviderResponse
DeleteVerifiedAccessTrustProviderResponse'
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
"verifiedAccessTrustProvider")
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
DeleteVerifiedAccessTrustProvider
where
hashWithSalt :: Int -> DeleteVerifiedAccessTrustProvider -> Int
hashWithSalt
Int
_salt
DeleteVerifiedAccessTrustProvider' {Maybe Bool
Maybe Text
Text
verifiedAccessTrustProviderId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessTrustProviderId:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Text
$sel:dryRun:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> 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
verifiedAccessTrustProviderId
instance
Prelude.NFData
DeleteVerifiedAccessTrustProvider
where
rnf :: DeleteVerifiedAccessTrustProvider -> ()
rnf DeleteVerifiedAccessTrustProvider' {Maybe Bool
Maybe Text
Text
verifiedAccessTrustProviderId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessTrustProviderId:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Text
$sel:dryRun:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> 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
verifiedAccessTrustProviderId
instance
Data.ToHeaders
DeleteVerifiedAccessTrustProvider
where
toHeaders :: DeleteVerifiedAccessTrustProvider -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DeleteVerifiedAccessTrustProvider
where
toPath :: DeleteVerifiedAccessTrustProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DeleteVerifiedAccessTrustProvider
where
toQuery :: DeleteVerifiedAccessTrustProvider -> QueryString
toQuery DeleteVerifiedAccessTrustProvider' {Maybe Bool
Maybe Text
Text
verifiedAccessTrustProviderId :: Text
dryRun :: Maybe Bool
clientToken :: Maybe Text
$sel:verifiedAccessTrustProviderId:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Text
$sel:dryRun:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Maybe Bool
$sel:clientToken:DeleteVerifiedAccessTrustProvider' :: DeleteVerifiedAccessTrustProvider -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteVerifiedAccessTrustProvider" ::
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
"VerifiedAccessTrustProviderId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
verifiedAccessTrustProviderId
]
data DeleteVerifiedAccessTrustProviderResponse = DeleteVerifiedAccessTrustProviderResponse'
{
DeleteVerifiedAccessTrustProviderResponse
-> Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider :: Prelude.Maybe VerifiedAccessTrustProvider,
DeleteVerifiedAccessTrustProviderResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteVerifiedAccessTrustProviderResponse
-> DeleteVerifiedAccessTrustProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedAccessTrustProviderResponse
-> DeleteVerifiedAccessTrustProviderResponse -> Bool
$c/= :: DeleteVerifiedAccessTrustProviderResponse
-> DeleteVerifiedAccessTrustProviderResponse -> Bool
== :: DeleteVerifiedAccessTrustProviderResponse
-> DeleteVerifiedAccessTrustProviderResponse -> Bool
$c== :: DeleteVerifiedAccessTrustProviderResponse
-> DeleteVerifiedAccessTrustProviderResponse -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedAccessTrustProviderResponse]
ReadPrec DeleteVerifiedAccessTrustProviderResponse
Int -> ReadS DeleteVerifiedAccessTrustProviderResponse
ReadS [DeleteVerifiedAccessTrustProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedAccessTrustProviderResponse]
$creadListPrec :: ReadPrec [DeleteVerifiedAccessTrustProviderResponse]
readPrec :: ReadPrec DeleteVerifiedAccessTrustProviderResponse
$creadPrec :: ReadPrec DeleteVerifiedAccessTrustProviderResponse
readList :: ReadS [DeleteVerifiedAccessTrustProviderResponse]
$creadList :: ReadS [DeleteVerifiedAccessTrustProviderResponse]
readsPrec :: Int -> ReadS DeleteVerifiedAccessTrustProviderResponse
$creadsPrec :: Int -> ReadS DeleteVerifiedAccessTrustProviderResponse
Prelude.Read, Int -> DeleteVerifiedAccessTrustProviderResponse -> ShowS
[DeleteVerifiedAccessTrustProviderResponse] -> ShowS
DeleteVerifiedAccessTrustProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedAccessTrustProviderResponse] -> ShowS
$cshowList :: [DeleteVerifiedAccessTrustProviderResponse] -> ShowS
show :: DeleteVerifiedAccessTrustProviderResponse -> String
$cshow :: DeleteVerifiedAccessTrustProviderResponse -> String
showsPrec :: Int -> DeleteVerifiedAccessTrustProviderResponse -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedAccessTrustProviderResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedAccessTrustProviderResponse x
-> DeleteVerifiedAccessTrustProviderResponse
forall x.
DeleteVerifiedAccessTrustProviderResponse
-> Rep DeleteVerifiedAccessTrustProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedAccessTrustProviderResponse x
-> DeleteVerifiedAccessTrustProviderResponse
$cfrom :: forall x.
DeleteVerifiedAccessTrustProviderResponse
-> Rep DeleteVerifiedAccessTrustProviderResponse x
Prelude.Generic)
newDeleteVerifiedAccessTrustProviderResponse ::
Prelude.Int ->
DeleteVerifiedAccessTrustProviderResponse
newDeleteVerifiedAccessTrustProviderResponse :: Int -> DeleteVerifiedAccessTrustProviderResponse
newDeleteVerifiedAccessTrustProviderResponse
Int
pHttpStatus_ =
DeleteVerifiedAccessTrustProviderResponse'
{ $sel:verifiedAccessTrustProvider:DeleteVerifiedAccessTrustProviderResponse' :: Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteVerifiedAccessTrustProviderResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteVerifiedAccessTrustProviderResponse_verifiedAccessTrustProvider :: Lens.Lens' DeleteVerifiedAccessTrustProviderResponse (Prelude.Maybe VerifiedAccessTrustProvider)
deleteVerifiedAccessTrustProviderResponse_verifiedAccessTrustProvider :: Lens'
DeleteVerifiedAccessTrustProviderResponse
(Maybe VerifiedAccessTrustProvider)
deleteVerifiedAccessTrustProviderResponse_verifiedAccessTrustProvider = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessTrustProviderResponse' {Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider :: Maybe VerifiedAccessTrustProvider
$sel:verifiedAccessTrustProvider:DeleteVerifiedAccessTrustProviderResponse' :: DeleteVerifiedAccessTrustProviderResponse
-> Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider} -> Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider) (\s :: DeleteVerifiedAccessTrustProviderResponse
s@DeleteVerifiedAccessTrustProviderResponse' {} Maybe VerifiedAccessTrustProvider
a -> DeleteVerifiedAccessTrustProviderResponse
s {$sel:verifiedAccessTrustProvider:DeleteVerifiedAccessTrustProviderResponse' :: Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider = Maybe VerifiedAccessTrustProvider
a} :: DeleteVerifiedAccessTrustProviderResponse)
deleteVerifiedAccessTrustProviderResponse_httpStatus :: Lens.Lens' DeleteVerifiedAccessTrustProviderResponse Prelude.Int
deleteVerifiedAccessTrustProviderResponse_httpStatus :: Lens' DeleteVerifiedAccessTrustProviderResponse Int
deleteVerifiedAccessTrustProviderResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedAccessTrustProviderResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteVerifiedAccessTrustProviderResponse' :: DeleteVerifiedAccessTrustProviderResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteVerifiedAccessTrustProviderResponse
s@DeleteVerifiedAccessTrustProviderResponse' {} Int
a -> DeleteVerifiedAccessTrustProviderResponse
s {$sel:httpStatus:DeleteVerifiedAccessTrustProviderResponse' :: Int
httpStatus = Int
a} :: DeleteVerifiedAccessTrustProviderResponse)
instance
Prelude.NFData
DeleteVerifiedAccessTrustProviderResponse
where
rnf :: DeleteVerifiedAccessTrustProviderResponse -> ()
rnf DeleteVerifiedAccessTrustProviderResponse' {Int
Maybe VerifiedAccessTrustProvider
httpStatus :: Int
verifiedAccessTrustProvider :: Maybe VerifiedAccessTrustProvider
$sel:httpStatus:DeleteVerifiedAccessTrustProviderResponse' :: DeleteVerifiedAccessTrustProviderResponse -> Int
$sel:verifiedAccessTrustProvider:DeleteVerifiedAccessTrustProviderResponse' :: DeleteVerifiedAccessTrustProviderResponse
-> Maybe VerifiedAccessTrustProvider
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VerifiedAccessTrustProvider
verifiedAccessTrustProvider
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus