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