{-# 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.Lambda.DeleteProvisionedConcurrencyConfig
(
DeleteProvisionedConcurrencyConfig (..),
newDeleteProvisionedConcurrencyConfig,
deleteProvisionedConcurrencyConfig_functionName,
deleteProvisionedConcurrencyConfig_qualifier,
DeleteProvisionedConcurrencyConfigResponse (..),
newDeleteProvisionedConcurrencyConfigResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lambda.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteProvisionedConcurrencyConfig = DeleteProvisionedConcurrencyConfig'
{
DeleteProvisionedConcurrencyConfig -> Text
functionName :: Prelude.Text,
DeleteProvisionedConcurrencyConfig -> Text
qualifier :: Prelude.Text
}
deriving (DeleteProvisionedConcurrencyConfig
-> DeleteProvisionedConcurrencyConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteProvisionedConcurrencyConfig
-> DeleteProvisionedConcurrencyConfig -> Bool
$c/= :: DeleteProvisionedConcurrencyConfig
-> DeleteProvisionedConcurrencyConfig -> Bool
== :: DeleteProvisionedConcurrencyConfig
-> DeleteProvisionedConcurrencyConfig -> Bool
$c== :: DeleteProvisionedConcurrencyConfig
-> DeleteProvisionedConcurrencyConfig -> Bool
Prelude.Eq, ReadPrec [DeleteProvisionedConcurrencyConfig]
ReadPrec DeleteProvisionedConcurrencyConfig
Int -> ReadS DeleteProvisionedConcurrencyConfig
ReadS [DeleteProvisionedConcurrencyConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteProvisionedConcurrencyConfig]
$creadListPrec :: ReadPrec [DeleteProvisionedConcurrencyConfig]
readPrec :: ReadPrec DeleteProvisionedConcurrencyConfig
$creadPrec :: ReadPrec DeleteProvisionedConcurrencyConfig
readList :: ReadS [DeleteProvisionedConcurrencyConfig]
$creadList :: ReadS [DeleteProvisionedConcurrencyConfig]
readsPrec :: Int -> ReadS DeleteProvisionedConcurrencyConfig
$creadsPrec :: Int -> ReadS DeleteProvisionedConcurrencyConfig
Prelude.Read, Int -> DeleteProvisionedConcurrencyConfig -> ShowS
[DeleteProvisionedConcurrencyConfig] -> ShowS
DeleteProvisionedConcurrencyConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteProvisionedConcurrencyConfig] -> ShowS
$cshowList :: [DeleteProvisionedConcurrencyConfig] -> ShowS
show :: DeleteProvisionedConcurrencyConfig -> String
$cshow :: DeleteProvisionedConcurrencyConfig -> String
showsPrec :: Int -> DeleteProvisionedConcurrencyConfig -> ShowS
$cshowsPrec :: Int -> DeleteProvisionedConcurrencyConfig -> ShowS
Prelude.Show, forall x.
Rep DeleteProvisionedConcurrencyConfig x
-> DeleteProvisionedConcurrencyConfig
forall x.
DeleteProvisionedConcurrencyConfig
-> Rep DeleteProvisionedConcurrencyConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteProvisionedConcurrencyConfig x
-> DeleteProvisionedConcurrencyConfig
$cfrom :: forall x.
DeleteProvisionedConcurrencyConfig
-> Rep DeleteProvisionedConcurrencyConfig x
Prelude.Generic)
newDeleteProvisionedConcurrencyConfig ::
Prelude.Text ->
Prelude.Text ->
DeleteProvisionedConcurrencyConfig
newDeleteProvisionedConcurrencyConfig :: Text -> Text -> DeleteProvisionedConcurrencyConfig
newDeleteProvisionedConcurrencyConfig
Text
pFunctionName_
Text
pQualifier_ =
DeleteProvisionedConcurrencyConfig'
{ $sel:functionName:DeleteProvisionedConcurrencyConfig' :: Text
functionName =
Text
pFunctionName_,
$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: Text
qualifier = Text
pQualifier_
}
deleteProvisionedConcurrencyConfig_functionName :: Lens.Lens' DeleteProvisionedConcurrencyConfig Prelude.Text
deleteProvisionedConcurrencyConfig_functionName :: Lens' DeleteProvisionedConcurrencyConfig Text
deleteProvisionedConcurrencyConfig_functionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteProvisionedConcurrencyConfig' {Text
functionName :: Text
$sel:functionName:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
functionName} -> Text
functionName) (\s :: DeleteProvisionedConcurrencyConfig
s@DeleteProvisionedConcurrencyConfig' {} Text
a -> DeleteProvisionedConcurrencyConfig
s {$sel:functionName:DeleteProvisionedConcurrencyConfig' :: Text
functionName = Text
a} :: DeleteProvisionedConcurrencyConfig)
deleteProvisionedConcurrencyConfig_qualifier :: Lens.Lens' DeleteProvisionedConcurrencyConfig Prelude.Text
deleteProvisionedConcurrencyConfig_qualifier :: Lens' DeleteProvisionedConcurrencyConfig Text
deleteProvisionedConcurrencyConfig_qualifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteProvisionedConcurrencyConfig' {Text
qualifier :: Text
$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
qualifier} -> Text
qualifier) (\s :: DeleteProvisionedConcurrencyConfig
s@DeleteProvisionedConcurrencyConfig' {} Text
a -> DeleteProvisionedConcurrencyConfig
s {$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: Text
qualifier = Text
a} :: DeleteProvisionedConcurrencyConfig)
instance
Core.AWSRequest
DeleteProvisionedConcurrencyConfig
where
type
AWSResponse DeleteProvisionedConcurrencyConfig =
DeleteProvisionedConcurrencyConfigResponse
request :: (Service -> Service)
-> DeleteProvisionedConcurrencyConfig
-> Request DeleteProvisionedConcurrencyConfig
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 DeleteProvisionedConcurrencyConfig
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteProvisionedConcurrencyConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteProvisionedConcurrencyConfigResponse
DeleteProvisionedConcurrencyConfigResponse'
instance
Prelude.Hashable
DeleteProvisionedConcurrencyConfig
where
hashWithSalt :: Int -> DeleteProvisionedConcurrencyConfig -> Int
hashWithSalt
Int
_salt
DeleteProvisionedConcurrencyConfig' {Text
qualifier :: Text
functionName :: Text
$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
$sel:functionName:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
functionName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
qualifier
instance
Prelude.NFData
DeleteProvisionedConcurrencyConfig
where
rnf :: DeleteProvisionedConcurrencyConfig -> ()
rnf DeleteProvisionedConcurrencyConfig' {Text
qualifier :: Text
functionName :: Text
$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
$sel:functionName:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
functionName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
qualifier
instance
Data.ToHeaders
DeleteProvisionedConcurrencyConfig
where
toHeaders :: DeleteProvisionedConcurrencyConfig -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DeleteProvisionedConcurrencyConfig
where
toPath :: DeleteProvisionedConcurrencyConfig -> ByteString
toPath DeleteProvisionedConcurrencyConfig' {Text
qualifier :: Text
functionName :: Text
$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
$sel:functionName:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2019-09-30/functions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
functionName,
ByteString
"/provisioned-concurrency"
]
instance
Data.ToQuery
DeleteProvisionedConcurrencyConfig
where
toQuery :: DeleteProvisionedConcurrencyConfig -> QueryString
toQuery DeleteProvisionedConcurrencyConfig' {Text
qualifier :: Text
functionName :: Text
$sel:qualifier:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
$sel:functionName:DeleteProvisionedConcurrencyConfig' :: DeleteProvisionedConcurrencyConfig -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"Qualifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
qualifier]
data DeleteProvisionedConcurrencyConfigResponse = DeleteProvisionedConcurrencyConfigResponse'
{
}
deriving (DeleteProvisionedConcurrencyConfigResponse
-> DeleteProvisionedConcurrencyConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteProvisionedConcurrencyConfigResponse
-> DeleteProvisionedConcurrencyConfigResponse -> Bool
$c/= :: DeleteProvisionedConcurrencyConfigResponse
-> DeleteProvisionedConcurrencyConfigResponse -> Bool
== :: DeleteProvisionedConcurrencyConfigResponse
-> DeleteProvisionedConcurrencyConfigResponse -> Bool
$c== :: DeleteProvisionedConcurrencyConfigResponse
-> DeleteProvisionedConcurrencyConfigResponse -> Bool
Prelude.Eq, ReadPrec [DeleteProvisionedConcurrencyConfigResponse]
ReadPrec DeleteProvisionedConcurrencyConfigResponse
Int -> ReadS DeleteProvisionedConcurrencyConfigResponse
ReadS [DeleteProvisionedConcurrencyConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteProvisionedConcurrencyConfigResponse]
$creadListPrec :: ReadPrec [DeleteProvisionedConcurrencyConfigResponse]
readPrec :: ReadPrec DeleteProvisionedConcurrencyConfigResponse
$creadPrec :: ReadPrec DeleteProvisionedConcurrencyConfigResponse
readList :: ReadS [DeleteProvisionedConcurrencyConfigResponse]
$creadList :: ReadS [DeleteProvisionedConcurrencyConfigResponse]
readsPrec :: Int -> ReadS DeleteProvisionedConcurrencyConfigResponse
$creadsPrec :: Int -> ReadS DeleteProvisionedConcurrencyConfigResponse
Prelude.Read, Int -> DeleteProvisionedConcurrencyConfigResponse -> ShowS
[DeleteProvisionedConcurrencyConfigResponse] -> ShowS
DeleteProvisionedConcurrencyConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteProvisionedConcurrencyConfigResponse] -> ShowS
$cshowList :: [DeleteProvisionedConcurrencyConfigResponse] -> ShowS
show :: DeleteProvisionedConcurrencyConfigResponse -> String
$cshow :: DeleteProvisionedConcurrencyConfigResponse -> String
showsPrec :: Int -> DeleteProvisionedConcurrencyConfigResponse -> ShowS
$cshowsPrec :: Int -> DeleteProvisionedConcurrencyConfigResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteProvisionedConcurrencyConfigResponse x
-> DeleteProvisionedConcurrencyConfigResponse
forall x.
DeleteProvisionedConcurrencyConfigResponse
-> Rep DeleteProvisionedConcurrencyConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteProvisionedConcurrencyConfigResponse x
-> DeleteProvisionedConcurrencyConfigResponse
$cfrom :: forall x.
DeleteProvisionedConcurrencyConfigResponse
-> Rep DeleteProvisionedConcurrencyConfigResponse x
Prelude.Generic)
newDeleteProvisionedConcurrencyConfigResponse ::
DeleteProvisionedConcurrencyConfigResponse
newDeleteProvisionedConcurrencyConfigResponse :: DeleteProvisionedConcurrencyConfigResponse
newDeleteProvisionedConcurrencyConfigResponse =
DeleteProvisionedConcurrencyConfigResponse
DeleteProvisionedConcurrencyConfigResponse'
instance
Prelude.NFData
DeleteProvisionedConcurrencyConfigResponse
where
rnf :: DeleteProvisionedConcurrencyConfigResponse -> ()
rnf DeleteProvisionedConcurrencyConfigResponse
_ = ()