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