amazonka-glacier-1.4.5: Amazon Glacier SDK.

Copyright(c) 2013-2016 Brendan Hay
LicenseMozilla Public License, v. 2.0.
MaintainerBrendan Hay <brendan.g.hay@gmail.com>
Stabilityauto-generated
Portabilitynon-portable (GHC extensions)
Safe HaskellNone
LanguageHaskell2010

Network.AWS.Glacier.SetVaultAccessPolicy

Contents

Description

This operation configures an access policy for a vault and will overwrite an existing policy. To configure a vault access policy, send a PUT request to the access-policy subresource of the vault. An access policy is specific to a vault and is also called a vault subresource. You can set one access policy per vault and the policy can be up to 20 KB in size. For more information about vault access policies, see Amazon Glacier Access Control with Vault Access Policies .

Synopsis

Creating a Request

setVaultAccessPolicy #

Creates a value of SetVaultAccessPolicy with the minimum fields required to make a request.

Use one of the following lenses to modify other fields as desired:

  • svapPolicy - The vault access policy as a JSON string.
  • svapAccountId - The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '- ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens (-) in the ID.
  • svapVaultName - The name of the vault.

data SetVaultAccessPolicy #

SetVaultAccessPolicy input.

See: setVaultAccessPolicy smart constructor.

Instances

Eq SetVaultAccessPolicy # 
Data SetVaultAccessPolicy # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> SetVaultAccessPolicy -> c SetVaultAccessPolicy #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c SetVaultAccessPolicy #

toConstr :: SetVaultAccessPolicy -> Constr #

dataTypeOf :: SetVaultAccessPolicy -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c SetVaultAccessPolicy) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c SetVaultAccessPolicy) #

gmapT :: (forall b. Data b => b -> b) -> SetVaultAccessPolicy -> SetVaultAccessPolicy #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> SetVaultAccessPolicy -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> SetVaultAccessPolicy -> r #

gmapQ :: (forall d. Data d => d -> u) -> SetVaultAccessPolicy -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> SetVaultAccessPolicy -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> SetVaultAccessPolicy -> m SetVaultAccessPolicy #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> SetVaultAccessPolicy -> m SetVaultAccessPolicy #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> SetVaultAccessPolicy -> m SetVaultAccessPolicy #

Read SetVaultAccessPolicy # 
Show SetVaultAccessPolicy # 
Generic SetVaultAccessPolicy # 
Hashable SetVaultAccessPolicy # 
ToJSON SetVaultAccessPolicy # 
NFData SetVaultAccessPolicy # 

Methods

rnf :: SetVaultAccessPolicy -> () #

AWSRequest SetVaultAccessPolicy # 
ToQuery SetVaultAccessPolicy # 
ToPath SetVaultAccessPolicy # 
ToHeaders SetVaultAccessPolicy # 
type Rep SetVaultAccessPolicy # 
type Rep SetVaultAccessPolicy = D1 (MetaData "SetVaultAccessPolicy" "Network.AWS.Glacier.SetVaultAccessPolicy" "amazonka-glacier-1.4.5-1XURZNaWj8uGGcizdrtXIY" False) (C1 (MetaCons "SetVaultAccessPolicy'" PrefixI True) ((:*:) (S1 (MetaSel (Just Symbol "_svapPolicy") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe VaultAccessPolicy))) ((:*:) (S1 (MetaSel (Just Symbol "_svapAccountId") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Text)) (S1 (MetaSel (Just Symbol "_svapVaultName") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 Text)))))
type Rs SetVaultAccessPolicy # 

Request Lenses

svapPolicy :: Lens' SetVaultAccessPolicy (Maybe VaultAccessPolicy) #

The vault access policy as a JSON string.

svapAccountId :: Lens' SetVaultAccessPolicy Text #

The AccountId value is the AWS account ID of the account that owns the vault. You can either specify an AWS account ID or optionally a single '- ' (hyphen), in which case Amazon Glacier uses the AWS account ID associated with the credentials used to sign the request. If you use an account ID, do not include any hyphens (-) in the ID.

svapVaultName :: Lens' SetVaultAccessPolicy Text #

The name of the vault.

Destructuring the Response

setVaultAccessPolicyResponse :: SetVaultAccessPolicyResponse #

Creates a value of SetVaultAccessPolicyResponse with the minimum fields required to make a request.

data SetVaultAccessPolicyResponse #

See: setVaultAccessPolicyResponse smart constructor.

Instances

Eq SetVaultAccessPolicyResponse # 
Data SetVaultAccessPolicyResponse # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> SetVaultAccessPolicyResponse -> c SetVaultAccessPolicyResponse #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c SetVaultAccessPolicyResponse #

toConstr :: SetVaultAccessPolicyResponse -> Constr #

dataTypeOf :: SetVaultAccessPolicyResponse -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c SetVaultAccessPolicyResponse) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c SetVaultAccessPolicyResponse) #

gmapT :: (forall b. Data b => b -> b) -> SetVaultAccessPolicyResponse -> SetVaultAccessPolicyResponse #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> SetVaultAccessPolicyResponse -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> SetVaultAccessPolicyResponse -> r #

gmapQ :: (forall d. Data d => d -> u) -> SetVaultAccessPolicyResponse -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> SetVaultAccessPolicyResponse -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> SetVaultAccessPolicyResponse -> m SetVaultAccessPolicyResponse #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> SetVaultAccessPolicyResponse -> m SetVaultAccessPolicyResponse #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> SetVaultAccessPolicyResponse -> m SetVaultAccessPolicyResponse #

Read SetVaultAccessPolicyResponse # 
Show SetVaultAccessPolicyResponse # 
Generic SetVaultAccessPolicyResponse # 
NFData SetVaultAccessPolicyResponse # 
type Rep SetVaultAccessPolicyResponse # 
type Rep SetVaultAccessPolicyResponse = D1 (MetaData "SetVaultAccessPolicyResponse" "Network.AWS.Glacier.SetVaultAccessPolicy" "amazonka-glacier-1.4.5-1XURZNaWj8uGGcizdrtXIY" False) (C1 (MetaCons "SetVaultAccessPolicyResponse'" PrefixI False) U1)