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