{-# 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.StopDBInstanceAutomatedBackupsReplication
(
StopDBInstanceAutomatedBackupsReplication (..),
newStopDBInstanceAutomatedBackupsReplication,
stopDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn,
StopDBInstanceAutomatedBackupsReplicationResponse (..),
newStopDBInstanceAutomatedBackupsReplicationResponse,
stopDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup,
stopDBInstanceAutomatedBackupsReplicationResponse_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 StopDBInstanceAutomatedBackupsReplication = StopDBInstanceAutomatedBackupsReplication'
{
StopDBInstanceAutomatedBackupsReplication -> Text
sourceDBInstanceArn :: Prelude.Text
}
deriving (StopDBInstanceAutomatedBackupsReplication
-> StopDBInstanceAutomatedBackupsReplication -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StopDBInstanceAutomatedBackupsReplication
-> StopDBInstanceAutomatedBackupsReplication -> Bool
$c/= :: StopDBInstanceAutomatedBackupsReplication
-> StopDBInstanceAutomatedBackupsReplication -> Bool
== :: StopDBInstanceAutomatedBackupsReplication
-> StopDBInstanceAutomatedBackupsReplication -> Bool
$c== :: StopDBInstanceAutomatedBackupsReplication
-> StopDBInstanceAutomatedBackupsReplication -> Bool
Prelude.Eq, ReadPrec [StopDBInstanceAutomatedBackupsReplication]
ReadPrec StopDBInstanceAutomatedBackupsReplication
Int -> ReadS StopDBInstanceAutomatedBackupsReplication
ReadS [StopDBInstanceAutomatedBackupsReplication]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StopDBInstanceAutomatedBackupsReplication]
$creadListPrec :: ReadPrec [StopDBInstanceAutomatedBackupsReplication]
readPrec :: ReadPrec StopDBInstanceAutomatedBackupsReplication
$creadPrec :: ReadPrec StopDBInstanceAutomatedBackupsReplication
readList :: ReadS [StopDBInstanceAutomatedBackupsReplication]
$creadList :: ReadS [StopDBInstanceAutomatedBackupsReplication]
readsPrec :: Int -> ReadS StopDBInstanceAutomatedBackupsReplication
$creadsPrec :: Int -> ReadS StopDBInstanceAutomatedBackupsReplication
Prelude.Read, Int -> StopDBInstanceAutomatedBackupsReplication -> ShowS
[StopDBInstanceAutomatedBackupsReplication] -> ShowS
StopDBInstanceAutomatedBackupsReplication -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StopDBInstanceAutomatedBackupsReplication] -> ShowS
$cshowList :: [StopDBInstanceAutomatedBackupsReplication] -> ShowS
show :: StopDBInstanceAutomatedBackupsReplication -> String
$cshow :: StopDBInstanceAutomatedBackupsReplication -> String
showsPrec :: Int -> StopDBInstanceAutomatedBackupsReplication -> ShowS
$cshowsPrec :: Int -> StopDBInstanceAutomatedBackupsReplication -> ShowS
Prelude.Show, forall x.
Rep StopDBInstanceAutomatedBackupsReplication x
-> StopDBInstanceAutomatedBackupsReplication
forall x.
StopDBInstanceAutomatedBackupsReplication
-> Rep StopDBInstanceAutomatedBackupsReplication x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StopDBInstanceAutomatedBackupsReplication x
-> StopDBInstanceAutomatedBackupsReplication
$cfrom :: forall x.
StopDBInstanceAutomatedBackupsReplication
-> Rep StopDBInstanceAutomatedBackupsReplication x
Prelude.Generic)
newStopDBInstanceAutomatedBackupsReplication ::
Prelude.Text ->
StopDBInstanceAutomatedBackupsReplication
newStopDBInstanceAutomatedBackupsReplication :: Text -> StopDBInstanceAutomatedBackupsReplication
newStopDBInstanceAutomatedBackupsReplication
Text
pSourceDBInstanceArn_ =
StopDBInstanceAutomatedBackupsReplication'
{ $sel:sourceDBInstanceArn:StopDBInstanceAutomatedBackupsReplication' :: Text
sourceDBInstanceArn =
Text
pSourceDBInstanceArn_
}
stopDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn :: Lens.Lens' StopDBInstanceAutomatedBackupsReplication Prelude.Text
stopDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn :: Lens' StopDBInstanceAutomatedBackupsReplication Text
stopDBInstanceAutomatedBackupsReplication_sourceDBInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopDBInstanceAutomatedBackupsReplication' {Text
sourceDBInstanceArn :: Text
$sel:sourceDBInstanceArn:StopDBInstanceAutomatedBackupsReplication' :: StopDBInstanceAutomatedBackupsReplication -> Text
sourceDBInstanceArn} -> Text
sourceDBInstanceArn) (\s :: StopDBInstanceAutomatedBackupsReplication
s@StopDBInstanceAutomatedBackupsReplication' {} Text
a -> StopDBInstanceAutomatedBackupsReplication
s {$sel:sourceDBInstanceArn:StopDBInstanceAutomatedBackupsReplication' :: Text
sourceDBInstanceArn = Text
a} :: StopDBInstanceAutomatedBackupsReplication)
instance
Core.AWSRequest
StopDBInstanceAutomatedBackupsReplication
where
type
AWSResponse
StopDBInstanceAutomatedBackupsReplication =
StopDBInstanceAutomatedBackupsReplicationResponse
request :: (Service -> Service)
-> StopDBInstanceAutomatedBackupsReplication
-> Request StopDBInstanceAutomatedBackupsReplication
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 StopDBInstanceAutomatedBackupsReplication
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse StopDBInstanceAutomatedBackupsReplication)))
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
"StopDBInstanceAutomatedBackupsReplicationResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DBInstanceAutomatedBackup
-> Int -> StopDBInstanceAutomatedBackupsReplicationResponse
StopDBInstanceAutomatedBackupsReplicationResponse'
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
StopDBInstanceAutomatedBackupsReplication
where
hashWithSalt :: Int -> StopDBInstanceAutomatedBackupsReplication -> Int
hashWithSalt
Int
_salt
StopDBInstanceAutomatedBackupsReplication' {Text
sourceDBInstanceArn :: Text
$sel:sourceDBInstanceArn:StopDBInstanceAutomatedBackupsReplication' :: StopDBInstanceAutomatedBackupsReplication -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceDBInstanceArn
instance
Prelude.NFData
StopDBInstanceAutomatedBackupsReplication
where
rnf :: StopDBInstanceAutomatedBackupsReplication -> ()
rnf StopDBInstanceAutomatedBackupsReplication' {Text
sourceDBInstanceArn :: Text
$sel:sourceDBInstanceArn:StopDBInstanceAutomatedBackupsReplication' :: StopDBInstanceAutomatedBackupsReplication -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
sourceDBInstanceArn
instance
Data.ToHeaders
StopDBInstanceAutomatedBackupsReplication
where
toHeaders :: StopDBInstanceAutomatedBackupsReplication -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
StopDBInstanceAutomatedBackupsReplication
where
toPath :: StopDBInstanceAutomatedBackupsReplication -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
StopDBInstanceAutomatedBackupsReplication
where
toQuery :: StopDBInstanceAutomatedBackupsReplication -> QueryString
toQuery
StopDBInstanceAutomatedBackupsReplication' {Text
sourceDBInstanceArn :: Text
$sel:sourceDBInstanceArn:StopDBInstanceAutomatedBackupsReplication' :: StopDBInstanceAutomatedBackupsReplication -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"StopDBInstanceAutomatedBackupsReplication" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"SourceDBInstanceArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
sourceDBInstanceArn
]
data StopDBInstanceAutomatedBackupsReplicationResponse = StopDBInstanceAutomatedBackupsReplicationResponse'
{ StopDBInstanceAutomatedBackupsReplicationResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Prelude.Maybe DBInstanceAutomatedBackup,
StopDBInstanceAutomatedBackupsReplicationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StopDBInstanceAutomatedBackupsReplicationResponse
-> StopDBInstanceAutomatedBackupsReplicationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StopDBInstanceAutomatedBackupsReplicationResponse
-> StopDBInstanceAutomatedBackupsReplicationResponse -> Bool
$c/= :: StopDBInstanceAutomatedBackupsReplicationResponse
-> StopDBInstanceAutomatedBackupsReplicationResponse -> Bool
== :: StopDBInstanceAutomatedBackupsReplicationResponse
-> StopDBInstanceAutomatedBackupsReplicationResponse -> Bool
$c== :: StopDBInstanceAutomatedBackupsReplicationResponse
-> StopDBInstanceAutomatedBackupsReplicationResponse -> Bool
Prelude.Eq, ReadPrec [StopDBInstanceAutomatedBackupsReplicationResponse]
ReadPrec StopDBInstanceAutomatedBackupsReplicationResponse
Int -> ReadS StopDBInstanceAutomatedBackupsReplicationResponse
ReadS [StopDBInstanceAutomatedBackupsReplicationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StopDBInstanceAutomatedBackupsReplicationResponse]
$creadListPrec :: ReadPrec [StopDBInstanceAutomatedBackupsReplicationResponse]
readPrec :: ReadPrec StopDBInstanceAutomatedBackupsReplicationResponse
$creadPrec :: ReadPrec StopDBInstanceAutomatedBackupsReplicationResponse
readList :: ReadS [StopDBInstanceAutomatedBackupsReplicationResponse]
$creadList :: ReadS [StopDBInstanceAutomatedBackupsReplicationResponse]
readsPrec :: Int -> ReadS StopDBInstanceAutomatedBackupsReplicationResponse
$creadsPrec :: Int -> ReadS StopDBInstanceAutomatedBackupsReplicationResponse
Prelude.Read, Int -> StopDBInstanceAutomatedBackupsReplicationResponse -> ShowS
[StopDBInstanceAutomatedBackupsReplicationResponse] -> ShowS
StopDBInstanceAutomatedBackupsReplicationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StopDBInstanceAutomatedBackupsReplicationResponse] -> ShowS
$cshowList :: [StopDBInstanceAutomatedBackupsReplicationResponse] -> ShowS
show :: StopDBInstanceAutomatedBackupsReplicationResponse -> String
$cshow :: StopDBInstanceAutomatedBackupsReplicationResponse -> String
showsPrec :: Int -> StopDBInstanceAutomatedBackupsReplicationResponse -> ShowS
$cshowsPrec :: Int -> StopDBInstanceAutomatedBackupsReplicationResponse -> ShowS
Prelude.Show, forall x.
Rep StopDBInstanceAutomatedBackupsReplicationResponse x
-> StopDBInstanceAutomatedBackupsReplicationResponse
forall x.
StopDBInstanceAutomatedBackupsReplicationResponse
-> Rep StopDBInstanceAutomatedBackupsReplicationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StopDBInstanceAutomatedBackupsReplicationResponse x
-> StopDBInstanceAutomatedBackupsReplicationResponse
$cfrom :: forall x.
StopDBInstanceAutomatedBackupsReplicationResponse
-> Rep StopDBInstanceAutomatedBackupsReplicationResponse x
Prelude.Generic)
newStopDBInstanceAutomatedBackupsReplicationResponse ::
Prelude.Int ->
StopDBInstanceAutomatedBackupsReplicationResponse
newStopDBInstanceAutomatedBackupsReplicationResponse :: Int -> StopDBInstanceAutomatedBackupsReplicationResponse
newStopDBInstanceAutomatedBackupsReplicationResponse
Int
pHttpStatus_ =
StopDBInstanceAutomatedBackupsReplicationResponse'
{ $sel:dbInstanceAutomatedBackup:StopDBInstanceAutomatedBackupsReplicationResponse' :: Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StopDBInstanceAutomatedBackupsReplicationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
stopDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup :: Lens.Lens' StopDBInstanceAutomatedBackupsReplicationResponse (Prelude.Maybe DBInstanceAutomatedBackup)
stopDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup :: Lens'
StopDBInstanceAutomatedBackupsReplicationResponse
(Maybe DBInstanceAutomatedBackup)
stopDBInstanceAutomatedBackupsReplicationResponse_dbInstanceAutomatedBackup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopDBInstanceAutomatedBackupsReplicationResponse' {Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup :: Maybe DBInstanceAutomatedBackup
$sel:dbInstanceAutomatedBackup:StopDBInstanceAutomatedBackupsReplicationResponse' :: StopDBInstanceAutomatedBackupsReplicationResponse
-> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup} -> Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup) (\s :: StopDBInstanceAutomatedBackupsReplicationResponse
s@StopDBInstanceAutomatedBackupsReplicationResponse' {} Maybe DBInstanceAutomatedBackup
a -> StopDBInstanceAutomatedBackupsReplicationResponse
s {$sel:dbInstanceAutomatedBackup:StopDBInstanceAutomatedBackupsReplicationResponse' :: Maybe DBInstanceAutomatedBackup
dbInstanceAutomatedBackup = Maybe DBInstanceAutomatedBackup
a} :: StopDBInstanceAutomatedBackupsReplicationResponse)
stopDBInstanceAutomatedBackupsReplicationResponse_httpStatus :: Lens.Lens' StopDBInstanceAutomatedBackupsReplicationResponse Prelude.Int
stopDBInstanceAutomatedBackupsReplicationResponse_httpStatus :: Lens' StopDBInstanceAutomatedBackupsReplicationResponse Int
stopDBInstanceAutomatedBackupsReplicationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopDBInstanceAutomatedBackupsReplicationResponse' {Int
httpStatus :: Int
$sel:httpStatus:StopDBInstanceAutomatedBackupsReplicationResponse' :: StopDBInstanceAutomatedBackupsReplicationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StopDBInstanceAutomatedBackupsReplicationResponse
s@StopDBInstanceAutomatedBackupsReplicationResponse' {} Int
a -> StopDBInstanceAutomatedBackupsReplicationResponse
s {$sel:httpStatus:StopDBInstanceAutomatedBackupsReplicationResponse' :: Int
httpStatus = Int
a} :: StopDBInstanceAutomatedBackupsReplicationResponse)
instance
Prelude.NFData
StopDBInstanceAutomatedBackupsReplicationResponse
where
rnf :: StopDBInstanceAutomatedBackupsReplicationResponse -> ()
rnf
StopDBInstanceAutomatedBackupsReplicationResponse' {Int
Maybe DBInstanceAutomatedBackup
httpStatus :: Int
dbInstanceAutomatedBackup :: Maybe DBInstanceAutomatedBackup
$sel:httpStatus:StopDBInstanceAutomatedBackupsReplicationResponse' :: StopDBInstanceAutomatedBackupsReplicationResponse -> Int
$sel:dbInstanceAutomatedBackup:StopDBInstanceAutomatedBackupsReplicationResponse' :: StopDBInstanceAutomatedBackupsReplicationResponse
-> 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