{-# 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.MGN.DeleteReplicationConfigurationTemplate
(
DeleteReplicationConfigurationTemplate (..),
newDeleteReplicationConfigurationTemplate,
deleteReplicationConfigurationTemplate_replicationConfigurationTemplateID,
DeleteReplicationConfigurationTemplateResponse (..),
newDeleteReplicationConfigurationTemplateResponse,
deleteReplicationConfigurationTemplateResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MGN.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteReplicationConfigurationTemplate = DeleteReplicationConfigurationTemplate'
{
DeleteReplicationConfigurationTemplate -> Text
replicationConfigurationTemplateID :: Prelude.Text
}
deriving (DeleteReplicationConfigurationTemplate
-> DeleteReplicationConfigurationTemplate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteReplicationConfigurationTemplate
-> DeleteReplicationConfigurationTemplate -> Bool
$c/= :: DeleteReplicationConfigurationTemplate
-> DeleteReplicationConfigurationTemplate -> Bool
== :: DeleteReplicationConfigurationTemplate
-> DeleteReplicationConfigurationTemplate -> Bool
$c== :: DeleteReplicationConfigurationTemplate
-> DeleteReplicationConfigurationTemplate -> Bool
Prelude.Eq, ReadPrec [DeleteReplicationConfigurationTemplate]
ReadPrec DeleteReplicationConfigurationTemplate
Int -> ReadS DeleteReplicationConfigurationTemplate
ReadS [DeleteReplicationConfigurationTemplate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteReplicationConfigurationTemplate]
$creadListPrec :: ReadPrec [DeleteReplicationConfigurationTemplate]
readPrec :: ReadPrec DeleteReplicationConfigurationTemplate
$creadPrec :: ReadPrec DeleteReplicationConfigurationTemplate
readList :: ReadS [DeleteReplicationConfigurationTemplate]
$creadList :: ReadS [DeleteReplicationConfigurationTemplate]
readsPrec :: Int -> ReadS DeleteReplicationConfigurationTemplate
$creadsPrec :: Int -> ReadS DeleteReplicationConfigurationTemplate
Prelude.Read, Int -> DeleteReplicationConfigurationTemplate -> ShowS
[DeleteReplicationConfigurationTemplate] -> ShowS
DeleteReplicationConfigurationTemplate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteReplicationConfigurationTemplate] -> ShowS
$cshowList :: [DeleteReplicationConfigurationTemplate] -> ShowS
show :: DeleteReplicationConfigurationTemplate -> String
$cshow :: DeleteReplicationConfigurationTemplate -> String
showsPrec :: Int -> DeleteReplicationConfigurationTemplate -> ShowS
$cshowsPrec :: Int -> DeleteReplicationConfigurationTemplate -> ShowS
Prelude.Show, forall x.
Rep DeleteReplicationConfigurationTemplate x
-> DeleteReplicationConfigurationTemplate
forall x.
DeleteReplicationConfigurationTemplate
-> Rep DeleteReplicationConfigurationTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteReplicationConfigurationTemplate x
-> DeleteReplicationConfigurationTemplate
$cfrom :: forall x.
DeleteReplicationConfigurationTemplate
-> Rep DeleteReplicationConfigurationTemplate x
Prelude.Generic)
newDeleteReplicationConfigurationTemplate ::
Prelude.Text ->
DeleteReplicationConfigurationTemplate
newDeleteReplicationConfigurationTemplate :: Text -> DeleteReplicationConfigurationTemplate
newDeleteReplicationConfigurationTemplate
Text
pReplicationConfigurationTemplateID_ =
DeleteReplicationConfigurationTemplate'
{ $sel:replicationConfigurationTemplateID:DeleteReplicationConfigurationTemplate' :: Text
replicationConfigurationTemplateID =
Text
pReplicationConfigurationTemplateID_
}
deleteReplicationConfigurationTemplate_replicationConfigurationTemplateID :: Lens.Lens' DeleteReplicationConfigurationTemplate Prelude.Text
deleteReplicationConfigurationTemplate_replicationConfigurationTemplateID :: Lens' DeleteReplicationConfigurationTemplate Text
deleteReplicationConfigurationTemplate_replicationConfigurationTemplateID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteReplicationConfigurationTemplate' {Text
replicationConfigurationTemplateID :: Text
$sel:replicationConfigurationTemplateID:DeleteReplicationConfigurationTemplate' :: DeleteReplicationConfigurationTemplate -> Text
replicationConfigurationTemplateID} -> Text
replicationConfigurationTemplateID) (\s :: DeleteReplicationConfigurationTemplate
s@DeleteReplicationConfigurationTemplate' {} Text
a -> DeleteReplicationConfigurationTemplate
s {$sel:replicationConfigurationTemplateID:DeleteReplicationConfigurationTemplate' :: Text
replicationConfigurationTemplateID = Text
a} :: DeleteReplicationConfigurationTemplate)
instance
Core.AWSRequest
DeleteReplicationConfigurationTemplate
where
type
AWSResponse
DeleteReplicationConfigurationTemplate =
DeleteReplicationConfigurationTemplateResponse
request :: (Service -> Service)
-> DeleteReplicationConfigurationTemplate
-> Request DeleteReplicationConfigurationTemplate
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 DeleteReplicationConfigurationTemplate
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DeleteReplicationConfigurationTemplate)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteReplicationConfigurationTemplateResponse
DeleteReplicationConfigurationTemplateResponse'
forall (f :: * -> *) a b. Functor 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
DeleteReplicationConfigurationTemplate
where
hashWithSalt :: Int -> DeleteReplicationConfigurationTemplate -> Int
hashWithSalt
Int
_salt
DeleteReplicationConfigurationTemplate' {Text
replicationConfigurationTemplateID :: Text
$sel:replicationConfigurationTemplateID:DeleteReplicationConfigurationTemplate' :: DeleteReplicationConfigurationTemplate -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
replicationConfigurationTemplateID
instance
Prelude.NFData
DeleteReplicationConfigurationTemplate
where
rnf :: DeleteReplicationConfigurationTemplate -> ()
rnf DeleteReplicationConfigurationTemplate' {Text
replicationConfigurationTemplateID :: Text
$sel:replicationConfigurationTemplateID:DeleteReplicationConfigurationTemplate' :: DeleteReplicationConfigurationTemplate -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
replicationConfigurationTemplateID
instance
Data.ToHeaders
DeleteReplicationConfigurationTemplate
where
toHeaders :: DeleteReplicationConfigurationTemplate -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
DeleteReplicationConfigurationTemplate
where
toJSON :: DeleteReplicationConfigurationTemplate -> Value
toJSON DeleteReplicationConfigurationTemplate' {Text
replicationConfigurationTemplateID :: Text
$sel:replicationConfigurationTemplateID:DeleteReplicationConfigurationTemplate' :: DeleteReplicationConfigurationTemplate -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"replicationConfigurationTemplateID"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
replicationConfigurationTemplateID
)
]
)
instance
Data.ToPath
DeleteReplicationConfigurationTemplate
where
toPath :: DeleteReplicationConfigurationTemplate -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const
ByteString
"/DeleteReplicationConfigurationTemplate"
instance
Data.ToQuery
DeleteReplicationConfigurationTemplate
where
toQuery :: DeleteReplicationConfigurationTemplate -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteReplicationConfigurationTemplateResponse = DeleteReplicationConfigurationTemplateResponse'
{
DeleteReplicationConfigurationTemplateResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteReplicationConfigurationTemplateResponse
-> DeleteReplicationConfigurationTemplateResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteReplicationConfigurationTemplateResponse
-> DeleteReplicationConfigurationTemplateResponse -> Bool
$c/= :: DeleteReplicationConfigurationTemplateResponse
-> DeleteReplicationConfigurationTemplateResponse -> Bool
== :: DeleteReplicationConfigurationTemplateResponse
-> DeleteReplicationConfigurationTemplateResponse -> Bool
$c== :: DeleteReplicationConfigurationTemplateResponse
-> DeleteReplicationConfigurationTemplateResponse -> Bool
Prelude.Eq, ReadPrec [DeleteReplicationConfigurationTemplateResponse]
ReadPrec DeleteReplicationConfigurationTemplateResponse
Int -> ReadS DeleteReplicationConfigurationTemplateResponse
ReadS [DeleteReplicationConfigurationTemplateResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteReplicationConfigurationTemplateResponse]
$creadListPrec :: ReadPrec [DeleteReplicationConfigurationTemplateResponse]
readPrec :: ReadPrec DeleteReplicationConfigurationTemplateResponse
$creadPrec :: ReadPrec DeleteReplicationConfigurationTemplateResponse
readList :: ReadS [DeleteReplicationConfigurationTemplateResponse]
$creadList :: ReadS [DeleteReplicationConfigurationTemplateResponse]
readsPrec :: Int -> ReadS DeleteReplicationConfigurationTemplateResponse
$creadsPrec :: Int -> ReadS DeleteReplicationConfigurationTemplateResponse
Prelude.Read, Int -> DeleteReplicationConfigurationTemplateResponse -> ShowS
[DeleteReplicationConfigurationTemplateResponse] -> ShowS
DeleteReplicationConfigurationTemplateResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteReplicationConfigurationTemplateResponse] -> ShowS
$cshowList :: [DeleteReplicationConfigurationTemplateResponse] -> ShowS
show :: DeleteReplicationConfigurationTemplateResponse -> String
$cshow :: DeleteReplicationConfigurationTemplateResponse -> String
showsPrec :: Int -> DeleteReplicationConfigurationTemplateResponse -> ShowS
$cshowsPrec :: Int -> DeleteReplicationConfigurationTemplateResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteReplicationConfigurationTemplateResponse x
-> DeleteReplicationConfigurationTemplateResponse
forall x.
DeleteReplicationConfigurationTemplateResponse
-> Rep DeleteReplicationConfigurationTemplateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteReplicationConfigurationTemplateResponse x
-> DeleteReplicationConfigurationTemplateResponse
$cfrom :: forall x.
DeleteReplicationConfigurationTemplateResponse
-> Rep DeleteReplicationConfigurationTemplateResponse x
Prelude.Generic)
newDeleteReplicationConfigurationTemplateResponse ::
Prelude.Int ->
DeleteReplicationConfigurationTemplateResponse
newDeleteReplicationConfigurationTemplateResponse :: Int -> DeleteReplicationConfigurationTemplateResponse
newDeleteReplicationConfigurationTemplateResponse
Int
pHttpStatus_ =
DeleteReplicationConfigurationTemplateResponse'
{ $sel:httpStatus:DeleteReplicationConfigurationTemplateResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteReplicationConfigurationTemplateResponse_httpStatus :: Lens.Lens' DeleteReplicationConfigurationTemplateResponse Prelude.Int
deleteReplicationConfigurationTemplateResponse_httpStatus :: Lens' DeleteReplicationConfigurationTemplateResponse Int
deleteReplicationConfigurationTemplateResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteReplicationConfigurationTemplateResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteReplicationConfigurationTemplateResponse' :: DeleteReplicationConfigurationTemplateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteReplicationConfigurationTemplateResponse
s@DeleteReplicationConfigurationTemplateResponse' {} Int
a -> DeleteReplicationConfigurationTemplateResponse
s {$sel:httpStatus:DeleteReplicationConfigurationTemplateResponse' :: Int
httpStatus = Int
a} :: DeleteReplicationConfigurationTemplateResponse)
instance
Prelude.NFData
DeleteReplicationConfigurationTemplateResponse
where
rnf :: DeleteReplicationConfigurationTemplateResponse -> ()
rnf
DeleteReplicationConfigurationTemplateResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteReplicationConfigurationTemplateResponse' :: DeleteReplicationConfigurationTemplateResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus