{-# 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.Backup.PutBackupVaultLockConfiguration
(
PutBackupVaultLockConfiguration (..),
newPutBackupVaultLockConfiguration,
putBackupVaultLockConfiguration_changeableForDays,
putBackupVaultLockConfiguration_maxRetentionDays,
putBackupVaultLockConfiguration_minRetentionDays,
putBackupVaultLockConfiguration_backupVaultName,
PutBackupVaultLockConfigurationResponse (..),
newPutBackupVaultLockConfigurationResponse,
)
where
import Amazonka.Backup.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PutBackupVaultLockConfiguration = PutBackupVaultLockConfiguration'
{
PutBackupVaultLockConfiguration -> Maybe Integer
changeableForDays :: Prelude.Maybe Prelude.Integer,
PutBackupVaultLockConfiguration -> Maybe Integer
maxRetentionDays :: Prelude.Maybe Prelude.Integer,
PutBackupVaultLockConfiguration -> Maybe Integer
minRetentionDays :: Prelude.Maybe Prelude.Integer,
PutBackupVaultLockConfiguration -> Text
backupVaultName :: Prelude.Text
}
deriving (PutBackupVaultLockConfiguration
-> PutBackupVaultLockConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBackupVaultLockConfiguration
-> PutBackupVaultLockConfiguration -> Bool
$c/= :: PutBackupVaultLockConfiguration
-> PutBackupVaultLockConfiguration -> Bool
== :: PutBackupVaultLockConfiguration
-> PutBackupVaultLockConfiguration -> Bool
$c== :: PutBackupVaultLockConfiguration
-> PutBackupVaultLockConfiguration -> Bool
Prelude.Eq, ReadPrec [PutBackupVaultLockConfiguration]
ReadPrec PutBackupVaultLockConfiguration
Int -> ReadS PutBackupVaultLockConfiguration
ReadS [PutBackupVaultLockConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBackupVaultLockConfiguration]
$creadListPrec :: ReadPrec [PutBackupVaultLockConfiguration]
readPrec :: ReadPrec PutBackupVaultLockConfiguration
$creadPrec :: ReadPrec PutBackupVaultLockConfiguration
readList :: ReadS [PutBackupVaultLockConfiguration]
$creadList :: ReadS [PutBackupVaultLockConfiguration]
readsPrec :: Int -> ReadS PutBackupVaultLockConfiguration
$creadsPrec :: Int -> ReadS PutBackupVaultLockConfiguration
Prelude.Read, Int -> PutBackupVaultLockConfiguration -> ShowS
[PutBackupVaultLockConfiguration] -> ShowS
PutBackupVaultLockConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBackupVaultLockConfiguration] -> ShowS
$cshowList :: [PutBackupVaultLockConfiguration] -> ShowS
show :: PutBackupVaultLockConfiguration -> String
$cshow :: PutBackupVaultLockConfiguration -> String
showsPrec :: Int -> PutBackupVaultLockConfiguration -> ShowS
$cshowsPrec :: Int -> PutBackupVaultLockConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutBackupVaultLockConfiguration x
-> PutBackupVaultLockConfiguration
forall x.
PutBackupVaultLockConfiguration
-> Rep PutBackupVaultLockConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBackupVaultLockConfiguration x
-> PutBackupVaultLockConfiguration
$cfrom :: forall x.
PutBackupVaultLockConfiguration
-> Rep PutBackupVaultLockConfiguration x
Prelude.Generic)
newPutBackupVaultLockConfiguration ::
Prelude.Text ->
PutBackupVaultLockConfiguration
newPutBackupVaultLockConfiguration :: Text -> PutBackupVaultLockConfiguration
newPutBackupVaultLockConfiguration Text
pBackupVaultName_ =
PutBackupVaultLockConfiguration'
{ $sel:changeableForDays:PutBackupVaultLockConfiguration' :: Maybe Integer
changeableForDays =
forall a. Maybe a
Prelude.Nothing,
$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: Maybe Integer
maxRetentionDays = forall a. Maybe a
Prelude.Nothing,
$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: Maybe Integer
minRetentionDays = forall a. Maybe a
Prelude.Nothing,
$sel:backupVaultName:PutBackupVaultLockConfiguration' :: Text
backupVaultName = Text
pBackupVaultName_
}
putBackupVaultLockConfiguration_changeableForDays :: Lens.Lens' PutBackupVaultLockConfiguration (Prelude.Maybe Prelude.Integer)
putBackupVaultLockConfiguration_changeableForDays :: Lens' PutBackupVaultLockConfiguration (Maybe Integer)
putBackupVaultLockConfiguration_changeableForDays = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBackupVaultLockConfiguration' {Maybe Integer
changeableForDays :: Maybe Integer
$sel:changeableForDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
changeableForDays} -> Maybe Integer
changeableForDays) (\s :: PutBackupVaultLockConfiguration
s@PutBackupVaultLockConfiguration' {} Maybe Integer
a -> PutBackupVaultLockConfiguration
s {$sel:changeableForDays:PutBackupVaultLockConfiguration' :: Maybe Integer
changeableForDays = Maybe Integer
a} :: PutBackupVaultLockConfiguration)
putBackupVaultLockConfiguration_maxRetentionDays :: Lens.Lens' PutBackupVaultLockConfiguration (Prelude.Maybe Prelude.Integer)
putBackupVaultLockConfiguration_maxRetentionDays :: Lens' PutBackupVaultLockConfiguration (Maybe Integer)
putBackupVaultLockConfiguration_maxRetentionDays = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBackupVaultLockConfiguration' {Maybe Integer
maxRetentionDays :: Maybe Integer
$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
maxRetentionDays} -> Maybe Integer
maxRetentionDays) (\s :: PutBackupVaultLockConfiguration
s@PutBackupVaultLockConfiguration' {} Maybe Integer
a -> PutBackupVaultLockConfiguration
s {$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: Maybe Integer
maxRetentionDays = Maybe Integer
a} :: PutBackupVaultLockConfiguration)
putBackupVaultLockConfiguration_minRetentionDays :: Lens.Lens' PutBackupVaultLockConfiguration (Prelude.Maybe Prelude.Integer)
putBackupVaultLockConfiguration_minRetentionDays :: Lens' PutBackupVaultLockConfiguration (Maybe Integer)
putBackupVaultLockConfiguration_minRetentionDays = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBackupVaultLockConfiguration' {Maybe Integer
minRetentionDays :: Maybe Integer
$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
minRetentionDays} -> Maybe Integer
minRetentionDays) (\s :: PutBackupVaultLockConfiguration
s@PutBackupVaultLockConfiguration' {} Maybe Integer
a -> PutBackupVaultLockConfiguration
s {$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: Maybe Integer
minRetentionDays = Maybe Integer
a} :: PutBackupVaultLockConfiguration)
putBackupVaultLockConfiguration_backupVaultName :: Lens.Lens' PutBackupVaultLockConfiguration Prelude.Text
putBackupVaultLockConfiguration_backupVaultName :: Lens' PutBackupVaultLockConfiguration Text
putBackupVaultLockConfiguration_backupVaultName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBackupVaultLockConfiguration' {Text
backupVaultName :: Text
$sel:backupVaultName:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Text
backupVaultName} -> Text
backupVaultName) (\s :: PutBackupVaultLockConfiguration
s@PutBackupVaultLockConfiguration' {} Text
a -> PutBackupVaultLockConfiguration
s {$sel:backupVaultName:PutBackupVaultLockConfiguration' :: Text
backupVaultName = Text
a} :: PutBackupVaultLockConfiguration)
instance
Core.AWSRequest
PutBackupVaultLockConfiguration
where
type
AWSResponse PutBackupVaultLockConfiguration =
PutBackupVaultLockConfigurationResponse
request :: (Service -> Service)
-> PutBackupVaultLockConfiguration
-> Request PutBackupVaultLockConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutBackupVaultLockConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutBackupVaultLockConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
PutBackupVaultLockConfigurationResponse
PutBackupVaultLockConfigurationResponse'
instance
Prelude.Hashable
PutBackupVaultLockConfiguration
where
hashWithSalt :: Int -> PutBackupVaultLockConfiguration -> Int
hashWithSalt
Int
_salt
PutBackupVaultLockConfiguration' {Maybe Integer
Text
backupVaultName :: Text
minRetentionDays :: Maybe Integer
maxRetentionDays :: Maybe Integer
changeableForDays :: Maybe Integer
$sel:backupVaultName:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Text
$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:changeableForDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
changeableForDays
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
maxRetentionDays
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
minRetentionDays
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
backupVaultName
instance
Prelude.NFData
PutBackupVaultLockConfiguration
where
rnf :: PutBackupVaultLockConfiguration -> ()
rnf PutBackupVaultLockConfiguration' {Maybe Integer
Text
backupVaultName :: Text
minRetentionDays :: Maybe Integer
maxRetentionDays :: Maybe Integer
changeableForDays :: Maybe Integer
$sel:backupVaultName:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Text
$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:changeableForDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
changeableForDays
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
maxRetentionDays
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
minRetentionDays
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
backupVaultName
instance
Data.ToHeaders
PutBackupVaultLockConfiguration
where
toHeaders :: PutBackupVaultLockConfiguration -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON PutBackupVaultLockConfiguration where
toJSON :: PutBackupVaultLockConfiguration -> Value
toJSON PutBackupVaultLockConfiguration' {Maybe Integer
Text
backupVaultName :: Text
minRetentionDays :: Maybe Integer
maxRetentionDays :: Maybe Integer
changeableForDays :: Maybe Integer
$sel:backupVaultName:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Text
$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:changeableForDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ChangeableForDays" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Integer
changeableForDays,
(Key
"MaxRetentionDays" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Integer
maxRetentionDays,
(Key
"MinRetentionDays" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Integer
minRetentionDays
]
)
instance Data.ToPath PutBackupVaultLockConfiguration where
toPath :: PutBackupVaultLockConfiguration -> ByteString
toPath PutBackupVaultLockConfiguration' {Maybe Integer
Text
backupVaultName :: Text
minRetentionDays :: Maybe Integer
maxRetentionDays :: Maybe Integer
changeableForDays :: Maybe Integer
$sel:backupVaultName:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Text
$sel:minRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:maxRetentionDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
$sel:changeableForDays:PutBackupVaultLockConfiguration' :: PutBackupVaultLockConfiguration -> Maybe Integer
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/backup-vaults/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
backupVaultName,
ByteString
"/vault-lock"
]
instance Data.ToQuery PutBackupVaultLockConfiguration where
toQuery :: PutBackupVaultLockConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutBackupVaultLockConfigurationResponse = PutBackupVaultLockConfigurationResponse'
{
}
deriving (PutBackupVaultLockConfigurationResponse
-> PutBackupVaultLockConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBackupVaultLockConfigurationResponse
-> PutBackupVaultLockConfigurationResponse -> Bool
$c/= :: PutBackupVaultLockConfigurationResponse
-> PutBackupVaultLockConfigurationResponse -> Bool
== :: PutBackupVaultLockConfigurationResponse
-> PutBackupVaultLockConfigurationResponse -> Bool
$c== :: PutBackupVaultLockConfigurationResponse
-> PutBackupVaultLockConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutBackupVaultLockConfigurationResponse]
ReadPrec PutBackupVaultLockConfigurationResponse
Int -> ReadS PutBackupVaultLockConfigurationResponse
ReadS [PutBackupVaultLockConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBackupVaultLockConfigurationResponse]
$creadListPrec :: ReadPrec [PutBackupVaultLockConfigurationResponse]
readPrec :: ReadPrec PutBackupVaultLockConfigurationResponse
$creadPrec :: ReadPrec PutBackupVaultLockConfigurationResponse
readList :: ReadS [PutBackupVaultLockConfigurationResponse]
$creadList :: ReadS [PutBackupVaultLockConfigurationResponse]
readsPrec :: Int -> ReadS PutBackupVaultLockConfigurationResponse
$creadsPrec :: Int -> ReadS PutBackupVaultLockConfigurationResponse
Prelude.Read, Int -> PutBackupVaultLockConfigurationResponse -> ShowS
[PutBackupVaultLockConfigurationResponse] -> ShowS
PutBackupVaultLockConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBackupVaultLockConfigurationResponse] -> ShowS
$cshowList :: [PutBackupVaultLockConfigurationResponse] -> ShowS
show :: PutBackupVaultLockConfigurationResponse -> String
$cshow :: PutBackupVaultLockConfigurationResponse -> String
showsPrec :: Int -> PutBackupVaultLockConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutBackupVaultLockConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutBackupVaultLockConfigurationResponse x
-> PutBackupVaultLockConfigurationResponse
forall x.
PutBackupVaultLockConfigurationResponse
-> Rep PutBackupVaultLockConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBackupVaultLockConfigurationResponse x
-> PutBackupVaultLockConfigurationResponse
$cfrom :: forall x.
PutBackupVaultLockConfigurationResponse
-> Rep PutBackupVaultLockConfigurationResponse x
Prelude.Generic)
newPutBackupVaultLockConfigurationResponse ::
PutBackupVaultLockConfigurationResponse
newPutBackupVaultLockConfigurationResponse :: PutBackupVaultLockConfigurationResponse
newPutBackupVaultLockConfigurationResponse =
PutBackupVaultLockConfigurationResponse
PutBackupVaultLockConfigurationResponse'
instance
Prelude.NFData
PutBackupVaultLockConfigurationResponse
where
rnf :: PutBackupVaultLockConfigurationResponse -> ()
rnf PutBackupVaultLockConfigurationResponse
_ = ()