{-# 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.RDS.DeleteDBInstanceAutomatedBackup
(
DeleteDBInstanceAutomatedBackup (..),
newDeleteDBInstanceAutomatedBackup,
deleteDBInstanceAutomatedBackup_dbInstanceAutomatedBackupsArn,
deleteDBInstanceAutomatedBackup_dbiResourceId,
DeleteDBInstanceAutomatedBackupResponse (..),
newDeleteDBInstanceAutomatedBackupResponse,
deleteDBInstanceAutomatedBackupResponse_dbInstanceAutomatedBackup,
deleteDBInstanceAutomatedBackupResponse_httpStatus,
)
where
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 Amazonka.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteDBInstanceAutomatedBackup = DeleteDBInstanceAutomatedBackup'
{
DeleteDBInstanceAutomatedBackup -> Maybe Text
dbInstanceAutomatedBackupsArn :: Prelude.Maybe Prelude.Text,
DeleteDBInstanceAutomatedBackup -> Maybe Text
dbiResourceId :: Prelude.Maybe Prelude.Text
}
deriving (DeleteDBInstanceAutomatedBackup
-> DeleteDBInstanceAutomatedBackup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDBInstanceAutomatedBackup
-> DeleteDBInstanceAutomatedBackup -> Bool
$c/= :: DeleteDBInstanceAutomatedBackup
-> DeleteDBInstanceAutomatedBackup -> Bool
== :: DeleteDBInstanceAutomatedBackup
-> DeleteDBInstanceAutomatedBackup -> Bool
$c== :: DeleteDBInstanceAutomatedBackup
-> DeleteDBInstanceAutomatedBackup -> Bool
Prelude.Eq, ReadPrec [DeleteDBInstanceAutomatedBackup]
ReadPrec DeleteDBInstanceAutomatedBackup
Int -> ReadS DeleteDBInstanceAutomatedBackup
ReadS [DeleteDBInstanceAutomatedBackup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDBInstanceAutomatedBackup]
$creadListPrec :: ReadPrec [DeleteDBInstanceAutomatedBackup]
readPrec :: ReadPrec DeleteDBInstanceAutomatedBackup
$creadPrec :: ReadPrec DeleteDBInstanceAutomatedBackup
readList :: ReadS [DeleteDBInstanceAutomatedBackup]
$creadList :: ReadS [DeleteDBInstanceAutomatedBackup]
readsPrec :: Int -> ReadS DeleteDBInstanceAutomatedBackup
$creadsPrec :: Int -> ReadS DeleteDBInstanceAutomatedBackup
Prelude.Read, Int -> DeleteDBInstanceAutomatedBackup -> ShowS
[DeleteDBInstanceAutomatedBackup] -> ShowS
DeleteDBInstanceAutomatedBackup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDBInstanceAutomatedBackup] -> ShowS
$cshowList :: [DeleteDBInstanceAutomatedBackup] -> ShowS
show :: DeleteDBInstanceAutomatedBackup -> String
$cshow :: DeleteDBInstanceAutomatedBackup -> String
showsPrec :: Int -> DeleteDBInstanceAutomatedBackup -> ShowS
$cshowsPrec :: Int -> DeleteDBInstanceAutomatedBackup -> ShowS
Prelude.Show, forall x.
Rep DeleteDBInstanceAutomatedBackup x
-> DeleteDBInstanceAutomatedBackup
forall x.
DeleteDBInstanceAutomatedBackup
-> Rep DeleteDBInstanceAutomatedBackup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDBInstanceAutomatedBackup x
-> DeleteDBInstanceAutomatedBackup
$cfrom :: forall x.
DeleteDBInstanceAutomatedBackup
-> Rep DeleteDBInstanceAutomatedBackup x
Prelude.Generic)
newDeleteDBInstanceAutomatedBackup ::
DeleteDBInstanceAutomatedBackup
newDeleteDBInstanceAutomatedBackup :: DeleteDBInstanceAutomatedBackup
newDeleteDBInstanceAutomatedBackup =
DeleteDBInstanceAutomatedBackup'
{ $sel:dbInstanceAutomatedBackupsArn:DeleteDBInstanceAutomatedBackup' :: Maybe Text
dbInstanceAutomatedBackupsArn =
forall a. Maybe a
Prelude.Nothing,
$sel:dbiResourceId:DeleteDBInstanceAutomatedBackup' :: Maybe Text
dbiResourceId = forall a. Maybe a
Prelude.Nothing
}
deleteDBInstanceAutomatedBackup_dbInstanceAutomatedBackupsArn :: Lens.Lens' DeleteDBInstanceAutomatedBackup (Prelude.Maybe Prelude.Text)
deleteDBInstanceAutomatedBackup_dbInstanceAutomatedBackupsArn :: Lens' DeleteDBInstanceAutomatedBackup (Maybe Text)
deleteDBInstanceAutomatedBackup_dbInstanceAutomatedBackupsArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDBInstanceAutomatedBackup' {Maybe Text
dbInstanceAutomatedBackupsArn :: Maybe Text
$sel:dbInstanceAutomatedBackupsArn:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
dbInstanceAutomatedBackupsArn} -> Maybe Text
dbInstanceAutomatedBackupsArn) (\s :: DeleteDBInstanceAutomatedBackup
s@DeleteDBInstanceAutomatedBackup' {} Maybe Text
a -> DeleteDBInstanceAutomatedBackup
s {$sel:dbInstanceAutomatedBackupsArn:DeleteDBInstanceAutomatedBackup' :: Maybe Text
dbInstanceAutomatedBackupsArn = Maybe Text
a} :: DeleteDBInstanceAutomatedBackup)
deleteDBInstanceAutomatedBackup_dbiResourceId :: Lens.Lens' DeleteDBInstanceAutomatedBackup (Prelude.Maybe Prelude.Text)
deleteDBInstanceAutomatedBackup_dbiResourceId :: Lens' DeleteDBInstanceAutomatedBackup (Maybe Text)
deleteDBInstanceAutomatedBackup_dbiResourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDBInstanceAutomatedBackup' {Maybe Text
dbiResourceId :: Maybe Text
$sel:dbiResourceId:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
dbiResourceId} -> Maybe Text
dbiResourceId) (\s :: DeleteDBInstanceAutomatedBackup
s@DeleteDBInstanceAutomatedBackup' {} Maybe Text
a -> DeleteDBInstanceAutomatedBackup
s {$sel:dbiResourceId:DeleteDBInstanceAutomatedBackup' :: Maybe Text
dbiResourceId = Maybe Text
a} :: DeleteDBInstanceAutomatedBackup)
instance
Core.AWSRequest
DeleteDBInstanceAutomatedBackup
where
type
AWSResponse DeleteDBInstanceAutomatedBackup =
DeleteDBInstanceAutomatedBackupResponse
request :: (Service -> Service)
-> DeleteDBInstanceAutomatedBackup
-> Request DeleteDBInstanceAutomatedBackup
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 DeleteDBInstanceAutomatedBackup
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteDBInstanceAutomatedBackup)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DeleteDBInstanceAutomatedBackupResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DBInstanceAutomatedBackup
-> Int -> DeleteDBInstanceAutomatedBackupResponse
DeleteDBInstanceAutomatedBackupResponse'
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
"DBInstanceAutomatedBackup")
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
DeleteDBInstanceAutomatedBackup
where
hashWithSalt :: Int -> DeleteDBInstanceAutomatedBackup -> Int
hashWithSalt
Int
_salt
DeleteDBInstanceAutomatedBackup' {Maybe Text
dbiResourceId :: Maybe Text
dbInstanceAutomatedBackupsArn :: Maybe Text
$sel:dbiResourceId:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
$sel:dbInstanceAutomatedBackupsArn:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbInstanceAutomatedBackupsArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbiResourceId
instance
Prelude.NFData
DeleteDBInstanceAutomatedBackup
where
rnf :: DeleteDBInstanceAutomatedBackup -> ()
rnf DeleteDBInstanceAutomatedBackup' {Maybe Text
dbiResourceId :: Maybe Text
dbInstanceAutomatedBackupsArn :: Maybe Text
$sel:dbiResourceId:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
$sel:dbInstanceAutomatedBackupsArn:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbInstanceAutomatedBackupsArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbiResourceId
instance
Data.ToHeaders
DeleteDBInstanceAutomatedBackup
where
toHeaders :: DeleteDBInstanceAutomatedBackup -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteDBInstanceAutomatedBackup where
toPath :: DeleteDBInstanceAutomatedBackup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteDBInstanceAutomatedBackup where
toQuery :: DeleteDBInstanceAutomatedBackup -> QueryString
toQuery DeleteDBInstanceAutomatedBackup' {Maybe Text
dbiResourceId :: Maybe Text
dbInstanceAutomatedBackupsArn :: Maybe Text
$sel:dbiResourceId:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
$sel:dbInstanceAutomatedBackupsArn:DeleteDBInstanceAutomatedBackup' :: DeleteDBInstanceAutomatedBackup -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteDBInstanceAutomatedBackup" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"DBInstanceAutomatedBackupsArn"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbInstanceAutomatedBackupsArn,
ByteString
"DbiResourceId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbiResourceId
]
data DeleteDBInstanceAutomatedBackupResponse = DeleteDBInstanceAutomatedBackupResponse'
{ DeleteDBInstanceAutomatedBackupResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Prelude.Maybe DBInstanceAutomatedBackup,
DeleteDBInstanceAutomatedBackupResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteDBInstanceAutomatedBackupResponse
-> DeleteDBInstanceAutomatedBackupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDBInstanceAutomatedBackupResponse
-> DeleteDBInstanceAutomatedBackupResponse -> Bool
$c/= :: DeleteDBInstanceAutomatedBackupResponse
-> DeleteDBInstanceAutomatedBackupResponse -> Bool
== :: DeleteDBInstanceAutomatedBackupResponse
-> DeleteDBInstanceAutomatedBackupResponse -> Bool
$c== :: DeleteDBInstanceAutomatedBackupResponse
-> DeleteDBInstanceAutomatedBackupResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDBInstanceAutomatedBackupResponse]
ReadPrec DeleteDBInstanceAutomatedBackupResponse
Int -> ReadS DeleteDBInstanceAutomatedBackupResponse
ReadS [DeleteDBInstanceAutomatedBackupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDBInstanceAutomatedBackupResponse]
$creadListPrec :: ReadPrec [DeleteDBInstanceAutomatedBackupResponse]
readPrec :: ReadPrec DeleteDBInstanceAutomatedBackupResponse
$creadPrec :: ReadPrec DeleteDBInstanceAutomatedBackupResponse
readList :: ReadS [DeleteDBInstanceAutomatedBackupResponse]
$creadList :: ReadS [DeleteDBInstanceAutomatedBackupResponse]
readsPrec :: Int -> ReadS DeleteDBInstanceAutomatedBackupResponse
$creadsPrec :: Int -> ReadS DeleteDBInstanceAutomatedBackupResponse
Prelude.Read, Int -> DeleteDBInstanceAutomatedBackupResponse -> ShowS
[DeleteDBInstanceAutomatedBackupResponse] -> ShowS
DeleteDBInstanceAutomatedBackupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDBInstanceAutomatedBackupResponse] -> ShowS
$cshowList :: [DeleteDBInstanceAutomatedBackupResponse] -> ShowS
show :: DeleteDBInstanceAutomatedBackupResponse -> String
$cshow :: DeleteDBInstanceAutomatedBackupResponse -> String
showsPrec :: Int -> DeleteDBInstanceAutomatedBackupResponse -> ShowS
$cshowsPrec :: Int -> DeleteDBInstanceAutomatedBackupResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteDBInstanceAutomatedBackupResponse x
-> DeleteDBInstanceAutomatedBackupResponse
forall x.
DeleteDBInstanceAutomatedBackupResponse
-> Rep DeleteDBInstanceAutomatedBackupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDBInstanceAutomatedBackupResponse x
-> DeleteDBInstanceAutomatedBackupResponse
$cfrom :: forall x.
DeleteDBInstanceAutomatedBackupResponse
-> Rep DeleteDBInstanceAutomatedBackupResponse x
Prelude.Generic)
newDeleteDBInstanceAutomatedBackupResponse ::
Prelude.Int ->
DeleteDBInstanceAutomatedBackupResponse
newDeleteDBInstanceAutomatedBackupResponse :: Int -> DeleteDBInstanceAutomatedBackupResponse
newDeleteDBInstanceAutomatedBackupResponse
Int
pHttpStatus_ =
DeleteDBInstanceAutomatedBackupResponse'
{ $sel:dbInstanceAutomatedBackup:DeleteDBInstanceAutomatedBackupResponse' :: Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteDBInstanceAutomatedBackupResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteDBInstanceAutomatedBackupResponse_dbInstanceAutomatedBackup :: Lens.Lens' DeleteDBInstanceAutomatedBackupResponse (Prelude.Maybe DBInstanceAutomatedBackup)
deleteDBInstanceAutomatedBackupResponse_dbInstanceAutomatedBackup :: Lens'
DeleteDBInstanceAutomatedBackupResponse
(Maybe DBInstanceAutomatedBackup)
deleteDBInstanceAutomatedBackupResponse_dbInstanceAutomatedBackup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDBInstanceAutomatedBackupResponse' {Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Maybe DBInstanceAutomatedBackup
$sel:dbInstanceAutomatedBackup:DeleteDBInstanceAutomatedBackupResponse' :: DeleteDBInstanceAutomatedBackupResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup} -> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup) (\s :: DeleteDBInstanceAutomatedBackupResponse
s@DeleteDBInstanceAutomatedBackupResponse' {} Maybe DBInstanceAutomatedBackup
a -> DeleteDBInstanceAutomatedBackupResponse
s {$sel:dbInstanceAutomatedBackup:DeleteDBInstanceAutomatedBackupResponse' :: Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup = Maybe DBInstanceAutomatedBackup
a} :: DeleteDBInstanceAutomatedBackupResponse)
deleteDBInstanceAutomatedBackupResponse_httpStatus :: Lens.Lens' DeleteDBInstanceAutomatedBackupResponse Prelude.Int
deleteDBInstanceAutomatedBackupResponse_httpStatus :: Lens' DeleteDBInstanceAutomatedBackupResponse Int
deleteDBInstanceAutomatedBackupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDBInstanceAutomatedBackupResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDBInstanceAutomatedBackupResponse' :: DeleteDBInstanceAutomatedBackupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteDBInstanceAutomatedBackupResponse
s@DeleteDBInstanceAutomatedBackupResponse' {} Int
a -> DeleteDBInstanceAutomatedBackupResponse
s {$sel:httpStatus:DeleteDBInstanceAutomatedBackupResponse' :: Int
httpStatus = Int
a} :: DeleteDBInstanceAutomatedBackupResponse)
instance
Prelude.NFData
DeleteDBInstanceAutomatedBackupResponse
where
rnf :: DeleteDBInstanceAutomatedBackupResponse -> ()
rnf DeleteDBInstanceAutomatedBackupResponse' {Int
Maybe DBInstanceAutomatedBackup
httpStatus :: Int
dbInstanceAutomatedBackup :: Maybe DBInstanceAutomatedBackup
$sel:httpStatus:DeleteDBInstanceAutomatedBackupResponse' :: DeleteDBInstanceAutomatedBackupResponse -> Int
$sel:dbInstanceAutomatedBackup:DeleteDBInstanceAutomatedBackupResponse' :: DeleteDBInstanceAutomatedBackupResponse
-> Maybe DBInstanceAutomatedBackup
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus