{-# 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.DeleteBackupVault
(
DeleteBackupVault (..),
newDeleteBackupVault,
deleteBackupVault_backupVaultName,
DeleteBackupVaultResponse (..),
newDeleteBackupVaultResponse,
)
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 DeleteBackupVault = DeleteBackupVault'
{
DeleteBackupVault -> Text
backupVaultName :: Prelude.Text
}
deriving (DeleteBackupVault -> DeleteBackupVault -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBackupVault -> DeleteBackupVault -> Bool
$c/= :: DeleteBackupVault -> DeleteBackupVault -> Bool
== :: DeleteBackupVault -> DeleteBackupVault -> Bool
$c== :: DeleteBackupVault -> DeleteBackupVault -> Bool
Prelude.Eq, ReadPrec [DeleteBackupVault]
ReadPrec DeleteBackupVault
Int -> ReadS DeleteBackupVault
ReadS [DeleteBackupVault]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBackupVault]
$creadListPrec :: ReadPrec [DeleteBackupVault]
readPrec :: ReadPrec DeleteBackupVault
$creadPrec :: ReadPrec DeleteBackupVault
readList :: ReadS [DeleteBackupVault]
$creadList :: ReadS [DeleteBackupVault]
readsPrec :: Int -> ReadS DeleteBackupVault
$creadsPrec :: Int -> ReadS DeleteBackupVault
Prelude.Read, Int -> DeleteBackupVault -> ShowS
[DeleteBackupVault] -> ShowS
DeleteBackupVault -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBackupVault] -> ShowS
$cshowList :: [DeleteBackupVault] -> ShowS
show :: DeleteBackupVault -> String
$cshow :: DeleteBackupVault -> String
showsPrec :: Int -> DeleteBackupVault -> ShowS
$cshowsPrec :: Int -> DeleteBackupVault -> ShowS
Prelude.Show, forall x. Rep DeleteBackupVault x -> DeleteBackupVault
forall x. DeleteBackupVault -> Rep DeleteBackupVault x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteBackupVault x -> DeleteBackupVault
$cfrom :: forall x. DeleteBackupVault -> Rep DeleteBackupVault x
Prelude.Generic)
newDeleteBackupVault ::
Prelude.Text ->
DeleteBackupVault
newDeleteBackupVault :: Text -> DeleteBackupVault
newDeleteBackupVault Text
pBackupVaultName_ =
DeleteBackupVault'
{ $sel:backupVaultName:DeleteBackupVault' :: Text
backupVaultName =
Text
pBackupVaultName_
}
deleteBackupVault_backupVaultName :: Lens.Lens' DeleteBackupVault Prelude.Text
deleteBackupVault_backupVaultName :: Lens' DeleteBackupVault Text
deleteBackupVault_backupVaultName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackupVault' {Text
backupVaultName :: Text
$sel:backupVaultName:DeleteBackupVault' :: DeleteBackupVault -> Text
backupVaultName} -> Text
backupVaultName) (\s :: DeleteBackupVault
s@DeleteBackupVault' {} Text
a -> DeleteBackupVault
s {$sel:backupVaultName:DeleteBackupVault' :: Text
backupVaultName = Text
a} :: DeleteBackupVault)
instance Core.AWSRequest DeleteBackupVault where
type
AWSResponse DeleteBackupVault =
DeleteBackupVaultResponse
request :: (Service -> Service)
-> DeleteBackupVault -> Request DeleteBackupVault
request Service -> Service
overrides =
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 DeleteBackupVault
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteBackupVault)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteBackupVaultResponse
DeleteBackupVaultResponse'
instance Prelude.Hashable DeleteBackupVault where
hashWithSalt :: Int -> DeleteBackupVault -> Int
hashWithSalt Int
_salt DeleteBackupVault' {Text
backupVaultName :: Text
$sel:backupVaultName:DeleteBackupVault' :: DeleteBackupVault -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
backupVaultName
instance Prelude.NFData DeleteBackupVault where
rnf :: DeleteBackupVault -> ()
rnf DeleteBackupVault' {Text
backupVaultName :: Text
$sel:backupVaultName:DeleteBackupVault' :: DeleteBackupVault -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
backupVaultName
instance Data.ToHeaders DeleteBackupVault where
toHeaders :: DeleteBackupVault -> [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.ToPath DeleteBackupVault where
toPath :: DeleteBackupVault -> ByteString
toPath DeleteBackupVault' {Text
backupVaultName :: Text
$sel:backupVaultName:DeleteBackupVault' :: DeleteBackupVault -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/backup-vaults/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
backupVaultName]
instance Data.ToQuery DeleteBackupVault where
toQuery :: DeleteBackupVault -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteBackupVaultResponse = DeleteBackupVaultResponse'
{
}
deriving (DeleteBackupVaultResponse -> DeleteBackupVaultResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBackupVaultResponse -> DeleteBackupVaultResponse -> Bool
$c/= :: DeleteBackupVaultResponse -> DeleteBackupVaultResponse -> Bool
== :: DeleteBackupVaultResponse -> DeleteBackupVaultResponse -> Bool
$c== :: DeleteBackupVaultResponse -> DeleteBackupVaultResponse -> Bool
Prelude.Eq, ReadPrec [DeleteBackupVaultResponse]
ReadPrec DeleteBackupVaultResponse
Int -> ReadS DeleteBackupVaultResponse
ReadS [DeleteBackupVaultResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBackupVaultResponse]
$creadListPrec :: ReadPrec [DeleteBackupVaultResponse]
readPrec :: ReadPrec DeleteBackupVaultResponse
$creadPrec :: ReadPrec DeleteBackupVaultResponse
readList :: ReadS [DeleteBackupVaultResponse]
$creadList :: ReadS [DeleteBackupVaultResponse]
readsPrec :: Int -> ReadS DeleteBackupVaultResponse
$creadsPrec :: Int -> ReadS DeleteBackupVaultResponse
Prelude.Read, Int -> DeleteBackupVaultResponse -> ShowS
[DeleteBackupVaultResponse] -> ShowS
DeleteBackupVaultResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBackupVaultResponse] -> ShowS
$cshowList :: [DeleteBackupVaultResponse] -> ShowS
show :: DeleteBackupVaultResponse -> String
$cshow :: DeleteBackupVaultResponse -> String
showsPrec :: Int -> DeleteBackupVaultResponse -> ShowS
$cshowsPrec :: Int -> DeleteBackupVaultResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteBackupVaultResponse x -> DeleteBackupVaultResponse
forall x.
DeleteBackupVaultResponse -> Rep DeleteBackupVaultResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteBackupVaultResponse x -> DeleteBackupVaultResponse
$cfrom :: forall x.
DeleteBackupVaultResponse -> Rep DeleteBackupVaultResponse x
Prelude.Generic)
newDeleteBackupVaultResponse ::
DeleteBackupVaultResponse
newDeleteBackupVaultResponse :: DeleteBackupVaultResponse
newDeleteBackupVaultResponse =
DeleteBackupVaultResponse
DeleteBackupVaultResponse'
instance Prelude.NFData DeleteBackupVaultResponse where
rnf :: DeleteBackupVaultResponse -> ()
rnf DeleteBackupVaultResponse
_ = ()