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