{-# 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.PutProvisionedConcurrencyConfig
(
PutProvisionedConcurrencyConfig (..),
newPutProvisionedConcurrencyConfig,
putProvisionedConcurrencyConfig_functionName,
putProvisionedConcurrencyConfig_qualifier,
putProvisionedConcurrencyConfig_provisionedConcurrentExecutions,
PutProvisionedConcurrencyConfigResponse (..),
newPutProvisionedConcurrencyConfigResponse,
putProvisionedConcurrencyConfigResponse_allocatedProvisionedConcurrentExecutions,
putProvisionedConcurrencyConfigResponse_availableProvisionedConcurrentExecutions,
putProvisionedConcurrencyConfigResponse_lastModified,
putProvisionedConcurrencyConfigResponse_requestedProvisionedConcurrentExecutions,
putProvisionedConcurrencyConfigResponse_status,
putProvisionedConcurrencyConfigResponse_statusReason,
putProvisionedConcurrencyConfigResponse_httpStatus,
)
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 PutProvisionedConcurrencyConfig = PutProvisionedConcurrencyConfig'
{
PutProvisionedConcurrencyConfig -> Text
functionName :: Prelude.Text,
PutProvisionedConcurrencyConfig -> Text
qualifier :: Prelude.Text,
PutProvisionedConcurrencyConfig -> Natural
provisionedConcurrentExecutions :: Prelude.Natural
}
deriving (PutProvisionedConcurrencyConfig
-> PutProvisionedConcurrencyConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutProvisionedConcurrencyConfig
-> PutProvisionedConcurrencyConfig -> Bool
$c/= :: PutProvisionedConcurrencyConfig
-> PutProvisionedConcurrencyConfig -> Bool
== :: PutProvisionedConcurrencyConfig
-> PutProvisionedConcurrencyConfig -> Bool
$c== :: PutProvisionedConcurrencyConfig
-> PutProvisionedConcurrencyConfig -> Bool
Prelude.Eq, ReadPrec [PutProvisionedConcurrencyConfig]
ReadPrec PutProvisionedConcurrencyConfig
Int -> ReadS PutProvisionedConcurrencyConfig
ReadS [PutProvisionedConcurrencyConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutProvisionedConcurrencyConfig]
$creadListPrec :: ReadPrec [PutProvisionedConcurrencyConfig]
readPrec :: ReadPrec PutProvisionedConcurrencyConfig
$creadPrec :: ReadPrec PutProvisionedConcurrencyConfig
readList :: ReadS [PutProvisionedConcurrencyConfig]
$creadList :: ReadS [PutProvisionedConcurrencyConfig]
readsPrec :: Int -> ReadS PutProvisionedConcurrencyConfig
$creadsPrec :: Int -> ReadS PutProvisionedConcurrencyConfig
Prelude.Read, Int -> PutProvisionedConcurrencyConfig -> ShowS
[PutProvisionedConcurrencyConfig] -> ShowS
PutProvisionedConcurrencyConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutProvisionedConcurrencyConfig] -> ShowS
$cshowList :: [PutProvisionedConcurrencyConfig] -> ShowS
show :: PutProvisionedConcurrencyConfig -> String
$cshow :: PutProvisionedConcurrencyConfig -> String
showsPrec :: Int -> PutProvisionedConcurrencyConfig -> ShowS
$cshowsPrec :: Int -> PutProvisionedConcurrencyConfig -> ShowS
Prelude.Show, forall x.
Rep PutProvisionedConcurrencyConfig x
-> PutProvisionedConcurrencyConfig
forall x.
PutProvisionedConcurrencyConfig
-> Rep PutProvisionedConcurrencyConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutProvisionedConcurrencyConfig x
-> PutProvisionedConcurrencyConfig
$cfrom :: forall x.
PutProvisionedConcurrencyConfig
-> Rep PutProvisionedConcurrencyConfig x
Prelude.Generic)
newPutProvisionedConcurrencyConfig ::
Prelude.Text ->
Prelude.Text ->
Prelude.Natural ->
PutProvisionedConcurrencyConfig
newPutProvisionedConcurrencyConfig :: Text -> Text -> Natural -> PutProvisionedConcurrencyConfig
newPutProvisionedConcurrencyConfig
Text
pFunctionName_
Text
pQualifier_
Natural
pProvisionedConcurrentExecutions_ =
PutProvisionedConcurrencyConfig'
{ $sel:functionName:PutProvisionedConcurrencyConfig' :: Text
functionName =
Text
pFunctionName_,
$sel:qualifier:PutProvisionedConcurrencyConfig' :: Text
qualifier = Text
pQualifier_,
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: Natural
provisionedConcurrentExecutions =
Natural
pProvisionedConcurrentExecutions_
}
putProvisionedConcurrencyConfig_functionName :: Lens.Lens' PutProvisionedConcurrencyConfig Prelude.Text
putProvisionedConcurrencyConfig_functionName :: Lens' PutProvisionedConcurrencyConfig Text
putProvisionedConcurrencyConfig_functionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfig' {Text
functionName :: Text
$sel:functionName:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
functionName} -> Text
functionName) (\s :: PutProvisionedConcurrencyConfig
s@PutProvisionedConcurrencyConfig' {} Text
a -> PutProvisionedConcurrencyConfig
s {$sel:functionName:PutProvisionedConcurrencyConfig' :: Text
functionName = Text
a} :: PutProvisionedConcurrencyConfig)
putProvisionedConcurrencyConfig_qualifier :: Lens.Lens' PutProvisionedConcurrencyConfig Prelude.Text
putProvisionedConcurrencyConfig_qualifier :: Lens' PutProvisionedConcurrencyConfig Text
putProvisionedConcurrencyConfig_qualifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfig' {Text
qualifier :: Text
$sel:qualifier:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
qualifier} -> Text
qualifier) (\s :: PutProvisionedConcurrencyConfig
s@PutProvisionedConcurrencyConfig' {} Text
a -> PutProvisionedConcurrencyConfig
s {$sel:qualifier:PutProvisionedConcurrencyConfig' :: Text
qualifier = Text
a} :: PutProvisionedConcurrencyConfig)
putProvisionedConcurrencyConfig_provisionedConcurrentExecutions :: Lens.Lens' PutProvisionedConcurrencyConfig Prelude.Natural
putProvisionedConcurrencyConfig_provisionedConcurrentExecutions :: Lens' PutProvisionedConcurrencyConfig Natural
putProvisionedConcurrencyConfig_provisionedConcurrentExecutions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfig' {Natural
provisionedConcurrentExecutions :: Natural
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Natural
provisionedConcurrentExecutions} -> Natural
provisionedConcurrentExecutions) (\s :: PutProvisionedConcurrencyConfig
s@PutProvisionedConcurrencyConfig' {} Natural
a -> PutProvisionedConcurrencyConfig
s {$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: Natural
provisionedConcurrentExecutions = Natural
a} :: PutProvisionedConcurrencyConfig)
instance
Core.AWSRequest
PutProvisionedConcurrencyConfig
where
type
AWSResponse PutProvisionedConcurrencyConfig =
PutProvisionedConcurrencyConfigResponse
request :: (Service -> Service)
-> PutProvisionedConcurrencyConfig
-> Request PutProvisionedConcurrencyConfig
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutProvisionedConcurrencyConfig
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutProvisionedConcurrencyConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Natural
-> Maybe Natural
-> Maybe Text
-> Maybe Natural
-> Maybe ProvisionedConcurrencyStatusEnum
-> Maybe Text
-> Int
-> PutProvisionedConcurrencyConfigResponse
PutProvisionedConcurrencyConfigResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"AllocatedProvisionedConcurrentExecutions"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"AvailableProvisionedConcurrentExecutions"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LastModified")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"RequestedProvisionedConcurrentExecutions"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Status")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"StatusReason")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
PutProvisionedConcurrencyConfig
where
hashWithSalt :: Int -> PutProvisionedConcurrencyConfig -> Int
hashWithSalt
Int
_salt
PutProvisionedConcurrencyConfig' {Natural
Text
provisionedConcurrentExecutions :: Natural
qualifier :: Text
functionName :: Text
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Natural
$sel:qualifier:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
$sel:functionName:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> 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
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
provisionedConcurrentExecutions
instance
Prelude.NFData
PutProvisionedConcurrencyConfig
where
rnf :: PutProvisionedConcurrencyConfig -> ()
rnf PutProvisionedConcurrencyConfig' {Natural
Text
provisionedConcurrentExecutions :: Natural
qualifier :: Text
functionName :: Text
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Natural
$sel:qualifier:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
$sel:functionName:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> 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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
provisionedConcurrentExecutions
instance
Data.ToHeaders
PutProvisionedConcurrencyConfig
where
toHeaders :: PutProvisionedConcurrencyConfig -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON PutProvisionedConcurrencyConfig where
toJSON :: PutProvisionedConcurrencyConfig -> Value
toJSON PutProvisionedConcurrencyConfig' {Natural
Text
provisionedConcurrentExecutions :: Natural
qualifier :: Text
functionName :: Text
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Natural
$sel:qualifier:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
$sel:functionName:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"ProvisionedConcurrentExecutions"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Natural
provisionedConcurrentExecutions
)
]
)
instance Data.ToPath PutProvisionedConcurrencyConfig where
toPath :: PutProvisionedConcurrencyConfig -> ByteString
toPath PutProvisionedConcurrencyConfig' {Natural
Text
provisionedConcurrentExecutions :: Natural
qualifier :: Text
functionName :: Text
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Natural
$sel:qualifier:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
$sel:functionName:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> 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 PutProvisionedConcurrencyConfig where
toQuery :: PutProvisionedConcurrencyConfig -> QueryString
toQuery PutProvisionedConcurrencyConfig' {Natural
Text
provisionedConcurrentExecutions :: Natural
qualifier :: Text
functionName :: Text
$sel:provisionedConcurrentExecutions:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Natural
$sel:qualifier:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
$sel:functionName:PutProvisionedConcurrencyConfig' :: PutProvisionedConcurrencyConfig -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"Qualifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
qualifier]
data PutProvisionedConcurrencyConfigResponse = PutProvisionedConcurrencyConfigResponse'
{
PutProvisionedConcurrencyConfigResponse -> Maybe Natural
allocatedProvisionedConcurrentExecutions :: Prelude.Maybe Prelude.Natural,
PutProvisionedConcurrencyConfigResponse -> Maybe Natural
availableProvisionedConcurrentExecutions :: Prelude.Maybe Prelude.Natural,
PutProvisionedConcurrencyConfigResponse -> Maybe Text
lastModified :: Prelude.Maybe Prelude.Text,
PutProvisionedConcurrencyConfigResponse -> Maybe Natural
requestedProvisionedConcurrentExecutions :: Prelude.Maybe Prelude.Natural,
PutProvisionedConcurrencyConfigResponse
-> Maybe ProvisionedConcurrencyStatusEnum
status :: Prelude.Maybe ProvisionedConcurrencyStatusEnum,
PutProvisionedConcurrencyConfigResponse -> Maybe Text
statusReason :: Prelude.Maybe Prelude.Text,
PutProvisionedConcurrencyConfigResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutProvisionedConcurrencyConfigResponse
-> PutProvisionedConcurrencyConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutProvisionedConcurrencyConfigResponse
-> PutProvisionedConcurrencyConfigResponse -> Bool
$c/= :: PutProvisionedConcurrencyConfigResponse
-> PutProvisionedConcurrencyConfigResponse -> Bool
== :: PutProvisionedConcurrencyConfigResponse
-> PutProvisionedConcurrencyConfigResponse -> Bool
$c== :: PutProvisionedConcurrencyConfigResponse
-> PutProvisionedConcurrencyConfigResponse -> Bool
Prelude.Eq, ReadPrec [PutProvisionedConcurrencyConfigResponse]
ReadPrec PutProvisionedConcurrencyConfigResponse
Int -> ReadS PutProvisionedConcurrencyConfigResponse
ReadS [PutProvisionedConcurrencyConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutProvisionedConcurrencyConfigResponse]
$creadListPrec :: ReadPrec [PutProvisionedConcurrencyConfigResponse]
readPrec :: ReadPrec PutProvisionedConcurrencyConfigResponse
$creadPrec :: ReadPrec PutProvisionedConcurrencyConfigResponse
readList :: ReadS [PutProvisionedConcurrencyConfigResponse]
$creadList :: ReadS [PutProvisionedConcurrencyConfigResponse]
readsPrec :: Int -> ReadS PutProvisionedConcurrencyConfigResponse
$creadsPrec :: Int -> ReadS PutProvisionedConcurrencyConfigResponse
Prelude.Read, Int -> PutProvisionedConcurrencyConfigResponse -> ShowS
[PutProvisionedConcurrencyConfigResponse] -> ShowS
PutProvisionedConcurrencyConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutProvisionedConcurrencyConfigResponse] -> ShowS
$cshowList :: [PutProvisionedConcurrencyConfigResponse] -> ShowS
show :: PutProvisionedConcurrencyConfigResponse -> String
$cshow :: PutProvisionedConcurrencyConfigResponse -> String
showsPrec :: Int -> PutProvisionedConcurrencyConfigResponse -> ShowS
$cshowsPrec :: Int -> PutProvisionedConcurrencyConfigResponse -> ShowS
Prelude.Show, forall x.
Rep PutProvisionedConcurrencyConfigResponse x
-> PutProvisionedConcurrencyConfigResponse
forall x.
PutProvisionedConcurrencyConfigResponse
-> Rep PutProvisionedConcurrencyConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutProvisionedConcurrencyConfigResponse x
-> PutProvisionedConcurrencyConfigResponse
$cfrom :: forall x.
PutProvisionedConcurrencyConfigResponse
-> Rep PutProvisionedConcurrencyConfigResponse x
Prelude.Generic)
newPutProvisionedConcurrencyConfigResponse ::
Prelude.Int ->
PutProvisionedConcurrencyConfigResponse
newPutProvisionedConcurrencyConfigResponse :: Int -> PutProvisionedConcurrencyConfigResponse
newPutProvisionedConcurrencyConfigResponse
Int
pHttpStatus_ =
PutProvisionedConcurrencyConfigResponse'
{ $sel:allocatedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: Maybe Natural
allocatedProvisionedConcurrentExecutions =
forall a. Maybe a
Prelude.Nothing,
$sel:availableProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: Maybe Natural
availableProvisionedConcurrentExecutions =
forall a. Maybe a
Prelude.Nothing,
$sel:lastModified:PutProvisionedConcurrencyConfigResponse' :: Maybe Text
lastModified = forall a. Maybe a
Prelude.Nothing,
$sel:requestedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: Maybe Natural
requestedProvisionedConcurrentExecutions =
forall a. Maybe a
Prelude.Nothing,
$sel:status:PutProvisionedConcurrencyConfigResponse' :: Maybe ProvisionedConcurrencyStatusEnum
status = forall a. Maybe a
Prelude.Nothing,
$sel:statusReason:PutProvisionedConcurrencyConfigResponse' :: Maybe Text
statusReason = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutProvisionedConcurrencyConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putProvisionedConcurrencyConfigResponse_allocatedProvisionedConcurrentExecutions :: Lens.Lens' PutProvisionedConcurrencyConfigResponse (Prelude.Maybe Prelude.Natural)
putProvisionedConcurrencyConfigResponse_allocatedProvisionedConcurrentExecutions :: Lens' PutProvisionedConcurrencyConfigResponse (Maybe Natural)
putProvisionedConcurrencyConfigResponse_allocatedProvisionedConcurrentExecutions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Maybe Natural
allocatedProvisionedConcurrentExecutions :: Maybe Natural
$sel:allocatedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Natural
allocatedProvisionedConcurrentExecutions} -> Maybe Natural
allocatedProvisionedConcurrentExecutions) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Maybe Natural
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:allocatedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: Maybe Natural
allocatedProvisionedConcurrentExecutions = Maybe Natural
a} :: PutProvisionedConcurrencyConfigResponse)
putProvisionedConcurrencyConfigResponse_availableProvisionedConcurrentExecutions :: Lens.Lens' PutProvisionedConcurrencyConfigResponse (Prelude.Maybe Prelude.Natural)
putProvisionedConcurrencyConfigResponse_availableProvisionedConcurrentExecutions :: Lens' PutProvisionedConcurrencyConfigResponse (Maybe Natural)
putProvisionedConcurrencyConfigResponse_availableProvisionedConcurrentExecutions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Maybe Natural
availableProvisionedConcurrentExecutions :: Maybe Natural
$sel:availableProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Natural
availableProvisionedConcurrentExecutions} -> Maybe Natural
availableProvisionedConcurrentExecutions) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Maybe Natural
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:availableProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: Maybe Natural
availableProvisionedConcurrentExecutions = Maybe Natural
a} :: PutProvisionedConcurrencyConfigResponse)
putProvisionedConcurrencyConfigResponse_lastModified :: Lens.Lens' PutProvisionedConcurrencyConfigResponse (Prelude.Maybe Prelude.Text)
putProvisionedConcurrencyConfigResponse_lastModified :: Lens' PutProvisionedConcurrencyConfigResponse (Maybe Text)
putProvisionedConcurrencyConfigResponse_lastModified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Maybe Text
lastModified :: Maybe Text
$sel:lastModified:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Text
lastModified} -> Maybe Text
lastModified) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Maybe Text
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:lastModified:PutProvisionedConcurrencyConfigResponse' :: Maybe Text
lastModified = Maybe Text
a} :: PutProvisionedConcurrencyConfigResponse)
putProvisionedConcurrencyConfigResponse_requestedProvisionedConcurrentExecutions :: Lens.Lens' PutProvisionedConcurrencyConfigResponse (Prelude.Maybe Prelude.Natural)
putProvisionedConcurrencyConfigResponse_requestedProvisionedConcurrentExecutions :: Lens' PutProvisionedConcurrencyConfigResponse (Maybe Natural)
putProvisionedConcurrencyConfigResponse_requestedProvisionedConcurrentExecutions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Maybe Natural
requestedProvisionedConcurrentExecutions :: Maybe Natural
$sel:requestedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Natural
requestedProvisionedConcurrentExecutions} -> Maybe Natural
requestedProvisionedConcurrentExecutions) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Maybe Natural
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:requestedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: Maybe Natural
requestedProvisionedConcurrentExecutions = Maybe Natural
a} :: PutProvisionedConcurrencyConfigResponse)
putProvisionedConcurrencyConfigResponse_status :: Lens.Lens' PutProvisionedConcurrencyConfigResponse (Prelude.Maybe ProvisionedConcurrencyStatusEnum)
putProvisionedConcurrencyConfigResponse_status :: Lens'
PutProvisionedConcurrencyConfigResponse
(Maybe ProvisionedConcurrencyStatusEnum)
putProvisionedConcurrencyConfigResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Maybe ProvisionedConcurrencyStatusEnum
status :: Maybe ProvisionedConcurrencyStatusEnum
$sel:status:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse
-> Maybe ProvisionedConcurrencyStatusEnum
status} -> Maybe ProvisionedConcurrencyStatusEnum
status) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Maybe ProvisionedConcurrencyStatusEnum
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:status:PutProvisionedConcurrencyConfigResponse' :: Maybe ProvisionedConcurrencyStatusEnum
status = Maybe ProvisionedConcurrencyStatusEnum
a} :: PutProvisionedConcurrencyConfigResponse)
putProvisionedConcurrencyConfigResponse_statusReason :: Lens.Lens' PutProvisionedConcurrencyConfigResponse (Prelude.Maybe Prelude.Text)
putProvisionedConcurrencyConfigResponse_statusReason :: Lens' PutProvisionedConcurrencyConfigResponse (Maybe Text)
putProvisionedConcurrencyConfigResponse_statusReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Maybe Text
statusReason :: Maybe Text
$sel:statusReason:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Text
statusReason} -> Maybe Text
statusReason) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Maybe Text
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:statusReason:PutProvisionedConcurrencyConfigResponse' :: Maybe Text
statusReason = Maybe Text
a} :: PutProvisionedConcurrencyConfigResponse)
putProvisionedConcurrencyConfigResponse_httpStatus :: Lens.Lens' PutProvisionedConcurrencyConfigResponse Prelude.Int
putProvisionedConcurrencyConfigResponse_httpStatus :: Lens' PutProvisionedConcurrencyConfigResponse Int
putProvisionedConcurrencyConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutProvisionedConcurrencyConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutProvisionedConcurrencyConfigResponse
s@PutProvisionedConcurrencyConfigResponse' {} Int
a -> PutProvisionedConcurrencyConfigResponse
s {$sel:httpStatus:PutProvisionedConcurrencyConfigResponse' :: Int
httpStatus = Int
a} :: PutProvisionedConcurrencyConfigResponse)
instance
Prelude.NFData
PutProvisionedConcurrencyConfigResponse
where
rnf :: PutProvisionedConcurrencyConfigResponse -> ()
rnf PutProvisionedConcurrencyConfigResponse' {Int
Maybe Natural
Maybe Text
Maybe ProvisionedConcurrencyStatusEnum
httpStatus :: Int
statusReason :: Maybe Text
status :: Maybe ProvisionedConcurrencyStatusEnum
requestedProvisionedConcurrentExecutions :: Maybe Natural
lastModified :: Maybe Text
availableProvisionedConcurrentExecutions :: Maybe Natural
allocatedProvisionedConcurrentExecutions :: Maybe Natural
$sel:httpStatus:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Int
$sel:statusReason:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Text
$sel:status:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse
-> Maybe ProvisionedConcurrencyStatusEnum
$sel:requestedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Natural
$sel:lastModified:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Text
$sel:availableProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Natural
$sel:allocatedProvisionedConcurrentExecutions:PutProvisionedConcurrencyConfigResponse' :: PutProvisionedConcurrencyConfigResponse -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf
Maybe Natural
allocatedProvisionedConcurrentExecutions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
availableProvisionedConcurrentExecutions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
lastModified
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
requestedProvisionedConcurrentExecutions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProvisionedConcurrencyStatusEnum
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
statusReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus