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