{-# 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.Glacier.DeleteVaultAccessPolicy
(
DeleteVaultAccessPolicy (..),
newDeleteVaultAccessPolicy,
deleteVaultAccessPolicy_accountId,
deleteVaultAccessPolicy_vaultName,
DeleteVaultAccessPolicyResponse (..),
newDeleteVaultAccessPolicyResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Glacier.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteVaultAccessPolicy = DeleteVaultAccessPolicy'
{
DeleteVaultAccessPolicy -> Text
accountId :: Prelude.Text,
DeleteVaultAccessPolicy -> Text
vaultName :: Prelude.Text
}
deriving (DeleteVaultAccessPolicy -> DeleteVaultAccessPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVaultAccessPolicy -> DeleteVaultAccessPolicy -> Bool
$c/= :: DeleteVaultAccessPolicy -> DeleteVaultAccessPolicy -> Bool
== :: DeleteVaultAccessPolicy -> DeleteVaultAccessPolicy -> Bool
$c== :: DeleteVaultAccessPolicy -> DeleteVaultAccessPolicy -> Bool
Prelude.Eq, ReadPrec [DeleteVaultAccessPolicy]
ReadPrec DeleteVaultAccessPolicy
Int -> ReadS DeleteVaultAccessPolicy
ReadS [DeleteVaultAccessPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVaultAccessPolicy]
$creadListPrec :: ReadPrec [DeleteVaultAccessPolicy]
readPrec :: ReadPrec DeleteVaultAccessPolicy
$creadPrec :: ReadPrec DeleteVaultAccessPolicy
readList :: ReadS [DeleteVaultAccessPolicy]
$creadList :: ReadS [DeleteVaultAccessPolicy]
readsPrec :: Int -> ReadS DeleteVaultAccessPolicy
$creadsPrec :: Int -> ReadS DeleteVaultAccessPolicy
Prelude.Read, Int -> DeleteVaultAccessPolicy -> ShowS
[DeleteVaultAccessPolicy] -> ShowS
DeleteVaultAccessPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVaultAccessPolicy] -> ShowS
$cshowList :: [DeleteVaultAccessPolicy] -> ShowS
show :: DeleteVaultAccessPolicy -> String
$cshow :: DeleteVaultAccessPolicy -> String
showsPrec :: Int -> DeleteVaultAccessPolicy -> ShowS
$cshowsPrec :: Int -> DeleteVaultAccessPolicy -> ShowS
Prelude.Show, forall x. Rep DeleteVaultAccessPolicy x -> DeleteVaultAccessPolicy
forall x. DeleteVaultAccessPolicy -> Rep DeleteVaultAccessPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteVaultAccessPolicy x -> DeleteVaultAccessPolicy
$cfrom :: forall x. DeleteVaultAccessPolicy -> Rep DeleteVaultAccessPolicy x
Prelude.Generic)
newDeleteVaultAccessPolicy ::
Prelude.Text ->
Prelude.Text ->
DeleteVaultAccessPolicy
newDeleteVaultAccessPolicy :: Text -> Text -> DeleteVaultAccessPolicy
newDeleteVaultAccessPolicy Text
pAccountId_ Text
pVaultName_ =
DeleteVaultAccessPolicy'
{ $sel:accountId:DeleteVaultAccessPolicy' :: Text
accountId = Text
pAccountId_,
$sel:vaultName:DeleteVaultAccessPolicy' :: Text
vaultName = Text
pVaultName_
}
deleteVaultAccessPolicy_accountId :: Lens.Lens' DeleteVaultAccessPolicy Prelude.Text
deleteVaultAccessPolicy_accountId :: Lens' DeleteVaultAccessPolicy Text
deleteVaultAccessPolicy_accountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVaultAccessPolicy' {Text
accountId :: Text
$sel:accountId:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
accountId} -> Text
accountId) (\s :: DeleteVaultAccessPolicy
s@DeleteVaultAccessPolicy' {} Text
a -> DeleteVaultAccessPolicy
s {$sel:accountId:DeleteVaultAccessPolicy' :: Text
accountId = Text
a} :: DeleteVaultAccessPolicy)
deleteVaultAccessPolicy_vaultName :: Lens.Lens' DeleteVaultAccessPolicy Prelude.Text
deleteVaultAccessPolicy_vaultName :: Lens' DeleteVaultAccessPolicy Text
deleteVaultAccessPolicy_vaultName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVaultAccessPolicy' {Text
vaultName :: Text
$sel:vaultName:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
vaultName} -> Text
vaultName) (\s :: DeleteVaultAccessPolicy
s@DeleteVaultAccessPolicy' {} Text
a -> DeleteVaultAccessPolicy
s {$sel:vaultName:DeleteVaultAccessPolicy' :: Text
vaultName = Text
a} :: DeleteVaultAccessPolicy)
instance Core.AWSRequest DeleteVaultAccessPolicy where
type
AWSResponse DeleteVaultAccessPolicy =
DeleteVaultAccessPolicyResponse
request :: (Service -> Service)
-> DeleteVaultAccessPolicy -> Request DeleteVaultAccessPolicy
request Service -> Service
overrides =
forall a. ByteString -> Request a -> Request a
Request.glacierVersionHeader (Service -> ByteString
Core.version Service
defaultService)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteVaultAccessPolicy
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteVaultAccessPolicy)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteVaultAccessPolicyResponse
DeleteVaultAccessPolicyResponse'
instance Prelude.Hashable DeleteVaultAccessPolicy where
hashWithSalt :: Int -> DeleteVaultAccessPolicy -> Int
hashWithSalt Int
_salt DeleteVaultAccessPolicy' {Text
vaultName :: Text
accountId :: Text
$sel:vaultName:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
$sel:accountId:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
accountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
vaultName
instance Prelude.NFData DeleteVaultAccessPolicy where
rnf :: DeleteVaultAccessPolicy -> ()
rnf DeleteVaultAccessPolicy' {Text
vaultName :: Text
accountId :: Text
$sel:vaultName:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
$sel:accountId:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
accountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
vaultName
instance Data.ToHeaders DeleteVaultAccessPolicy where
toHeaders :: DeleteVaultAccessPolicy -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteVaultAccessPolicy where
toPath :: DeleteVaultAccessPolicy -> ByteString
toPath DeleteVaultAccessPolicy' {Text
vaultName :: Text
accountId :: Text
$sel:vaultName:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
$sel:accountId:DeleteVaultAccessPolicy' :: DeleteVaultAccessPolicy -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
accountId,
ByteString
"/vaults/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
vaultName,
ByteString
"/access-policy"
]
instance Data.ToQuery DeleteVaultAccessPolicy where
toQuery :: DeleteVaultAccessPolicy -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteVaultAccessPolicyResponse = DeleteVaultAccessPolicyResponse'
{
}
deriving (DeleteVaultAccessPolicyResponse
-> DeleteVaultAccessPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVaultAccessPolicyResponse
-> DeleteVaultAccessPolicyResponse -> Bool
$c/= :: DeleteVaultAccessPolicyResponse
-> DeleteVaultAccessPolicyResponse -> Bool
== :: DeleteVaultAccessPolicyResponse
-> DeleteVaultAccessPolicyResponse -> Bool
$c== :: DeleteVaultAccessPolicyResponse
-> DeleteVaultAccessPolicyResponse -> Bool
Prelude.Eq, ReadPrec [DeleteVaultAccessPolicyResponse]
ReadPrec DeleteVaultAccessPolicyResponse
Int -> ReadS DeleteVaultAccessPolicyResponse
ReadS [DeleteVaultAccessPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVaultAccessPolicyResponse]
$creadListPrec :: ReadPrec [DeleteVaultAccessPolicyResponse]
readPrec :: ReadPrec DeleteVaultAccessPolicyResponse
$creadPrec :: ReadPrec DeleteVaultAccessPolicyResponse
readList :: ReadS [DeleteVaultAccessPolicyResponse]
$creadList :: ReadS [DeleteVaultAccessPolicyResponse]
readsPrec :: Int -> ReadS DeleteVaultAccessPolicyResponse
$creadsPrec :: Int -> ReadS DeleteVaultAccessPolicyResponse
Prelude.Read, Int -> DeleteVaultAccessPolicyResponse -> ShowS
[DeleteVaultAccessPolicyResponse] -> ShowS
DeleteVaultAccessPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVaultAccessPolicyResponse] -> ShowS
$cshowList :: [DeleteVaultAccessPolicyResponse] -> ShowS
show :: DeleteVaultAccessPolicyResponse -> String
$cshow :: DeleteVaultAccessPolicyResponse -> String
showsPrec :: Int -> DeleteVaultAccessPolicyResponse -> ShowS
$cshowsPrec :: Int -> DeleteVaultAccessPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteVaultAccessPolicyResponse x
-> DeleteVaultAccessPolicyResponse
forall x.
DeleteVaultAccessPolicyResponse
-> Rep DeleteVaultAccessPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVaultAccessPolicyResponse x
-> DeleteVaultAccessPolicyResponse
$cfrom :: forall x.
DeleteVaultAccessPolicyResponse
-> Rep DeleteVaultAccessPolicyResponse x
Prelude.Generic)
newDeleteVaultAccessPolicyResponse ::
DeleteVaultAccessPolicyResponse
newDeleteVaultAccessPolicyResponse :: DeleteVaultAccessPolicyResponse
newDeleteVaultAccessPolicyResponse =
DeleteVaultAccessPolicyResponse
DeleteVaultAccessPolicyResponse'
instance
Prelude.NFData
DeleteVaultAccessPolicyResponse
where
rnf :: DeleteVaultAccessPolicyResponse -> ()
rnf DeleteVaultAccessPolicyResponse
_ = ()