{-# 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.AppConfig.CreateDeploymentStrategy
(
CreateDeploymentStrategy (..),
newCreateDeploymentStrategy,
createDeploymentStrategy_description,
createDeploymentStrategy_finalBakeTimeInMinutes,
createDeploymentStrategy_growthType,
createDeploymentStrategy_replicateTo,
createDeploymentStrategy_tags,
createDeploymentStrategy_name,
createDeploymentStrategy_deploymentDurationInMinutes,
createDeploymentStrategy_growthFactor,
DeploymentStrategy (..),
newDeploymentStrategy,
deploymentStrategy_deploymentDurationInMinutes,
deploymentStrategy_description,
deploymentStrategy_finalBakeTimeInMinutes,
deploymentStrategy_growthFactor,
deploymentStrategy_growthType,
deploymentStrategy_id,
deploymentStrategy_name,
deploymentStrategy_replicateTo,
)
where
import Amazonka.AppConfig.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 CreateDeploymentStrategy = CreateDeploymentStrategy'
{
CreateDeploymentStrategy -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateDeploymentStrategy -> Maybe Natural
finalBakeTimeInMinutes :: Prelude.Maybe Prelude.Natural,
CreateDeploymentStrategy -> Maybe GrowthType
growthType :: Prelude.Maybe GrowthType,
CreateDeploymentStrategy -> Maybe ReplicateTo
replicateTo :: Prelude.Maybe ReplicateTo,
CreateDeploymentStrategy -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateDeploymentStrategy -> Text
name :: Prelude.Text,
CreateDeploymentStrategy -> Natural
deploymentDurationInMinutes :: Prelude.Natural,
CreateDeploymentStrategy -> Double
growthFactor :: Prelude.Double
}
deriving (CreateDeploymentStrategy -> CreateDeploymentStrategy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDeploymentStrategy -> CreateDeploymentStrategy -> Bool
$c/= :: CreateDeploymentStrategy -> CreateDeploymentStrategy -> Bool
== :: CreateDeploymentStrategy -> CreateDeploymentStrategy -> Bool
$c== :: CreateDeploymentStrategy -> CreateDeploymentStrategy -> Bool
Prelude.Eq, ReadPrec [CreateDeploymentStrategy]
ReadPrec CreateDeploymentStrategy
Int -> ReadS CreateDeploymentStrategy
ReadS [CreateDeploymentStrategy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDeploymentStrategy]
$creadListPrec :: ReadPrec [CreateDeploymentStrategy]
readPrec :: ReadPrec CreateDeploymentStrategy
$creadPrec :: ReadPrec CreateDeploymentStrategy
readList :: ReadS [CreateDeploymentStrategy]
$creadList :: ReadS [CreateDeploymentStrategy]
readsPrec :: Int -> ReadS CreateDeploymentStrategy
$creadsPrec :: Int -> ReadS CreateDeploymentStrategy
Prelude.Read, Int -> CreateDeploymentStrategy -> ShowS
[CreateDeploymentStrategy] -> ShowS
CreateDeploymentStrategy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDeploymentStrategy] -> ShowS
$cshowList :: [CreateDeploymentStrategy] -> ShowS
show :: CreateDeploymentStrategy -> String
$cshow :: CreateDeploymentStrategy -> String
showsPrec :: Int -> CreateDeploymentStrategy -> ShowS
$cshowsPrec :: Int -> CreateDeploymentStrategy -> ShowS
Prelude.Show, forall x.
Rep CreateDeploymentStrategy x -> CreateDeploymentStrategy
forall x.
CreateDeploymentStrategy -> Rep CreateDeploymentStrategy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateDeploymentStrategy x -> CreateDeploymentStrategy
$cfrom :: forall x.
CreateDeploymentStrategy -> Rep CreateDeploymentStrategy x
Prelude.Generic)
newCreateDeploymentStrategy ::
Prelude.Text ->
Prelude.Natural ->
Prelude.Double ->
CreateDeploymentStrategy
newCreateDeploymentStrategy :: Text -> Natural -> Double -> CreateDeploymentStrategy
newCreateDeploymentStrategy
Text
pName_
Natural
pDeploymentDurationInMinutes_
Double
pGrowthFactor_ =
CreateDeploymentStrategy'
{ $sel:description:CreateDeploymentStrategy' :: Maybe Text
description =
forall a. Maybe a
Prelude.Nothing,
$sel:finalBakeTimeInMinutes:CreateDeploymentStrategy' :: Maybe Natural
finalBakeTimeInMinutes = forall a. Maybe a
Prelude.Nothing,
$sel:growthType:CreateDeploymentStrategy' :: Maybe GrowthType
growthType = forall a. Maybe a
Prelude.Nothing,
$sel:replicateTo:CreateDeploymentStrategy' :: Maybe ReplicateTo
replicateTo = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateDeploymentStrategy' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateDeploymentStrategy' :: Text
name = Text
pName_,
$sel:deploymentDurationInMinutes:CreateDeploymentStrategy' :: Natural
deploymentDurationInMinutes =
Natural
pDeploymentDurationInMinutes_,
$sel:growthFactor:CreateDeploymentStrategy' :: Double
growthFactor = Double
pGrowthFactor_
}
createDeploymentStrategy_description :: Lens.Lens' CreateDeploymentStrategy (Prelude.Maybe Prelude.Text)
createDeploymentStrategy_description :: Lens' CreateDeploymentStrategy (Maybe Text)
createDeploymentStrategy_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Maybe Text
description :: Maybe Text
$sel:description:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Maybe Text
a -> CreateDeploymentStrategy
s {$sel:description:CreateDeploymentStrategy' :: Maybe Text
description = Maybe Text
a} :: CreateDeploymentStrategy)
createDeploymentStrategy_finalBakeTimeInMinutes :: Lens.Lens' CreateDeploymentStrategy (Prelude.Maybe Prelude.Natural)
createDeploymentStrategy_finalBakeTimeInMinutes :: Lens' CreateDeploymentStrategy (Maybe Natural)
createDeploymentStrategy_finalBakeTimeInMinutes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Maybe Natural
finalBakeTimeInMinutes :: Maybe Natural
$sel:finalBakeTimeInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Natural
finalBakeTimeInMinutes} -> Maybe Natural
finalBakeTimeInMinutes) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Maybe Natural
a -> CreateDeploymentStrategy
s {$sel:finalBakeTimeInMinutes:CreateDeploymentStrategy' :: Maybe Natural
finalBakeTimeInMinutes = Maybe Natural
a} :: CreateDeploymentStrategy)
createDeploymentStrategy_growthType :: Lens.Lens' CreateDeploymentStrategy (Prelude.Maybe GrowthType)
createDeploymentStrategy_growthType :: Lens' CreateDeploymentStrategy (Maybe GrowthType)
createDeploymentStrategy_growthType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Maybe GrowthType
growthType :: Maybe GrowthType
$sel:growthType:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe GrowthType
growthType} -> Maybe GrowthType
growthType) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Maybe GrowthType
a -> CreateDeploymentStrategy
s {$sel:growthType:CreateDeploymentStrategy' :: Maybe GrowthType
growthType = Maybe GrowthType
a} :: CreateDeploymentStrategy)
createDeploymentStrategy_replicateTo :: Lens.Lens' CreateDeploymentStrategy (Prelude.Maybe ReplicateTo)
createDeploymentStrategy_replicateTo :: Lens' CreateDeploymentStrategy (Maybe ReplicateTo)
createDeploymentStrategy_replicateTo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Maybe ReplicateTo
replicateTo :: Maybe ReplicateTo
$sel:replicateTo:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe ReplicateTo
replicateTo} -> Maybe ReplicateTo
replicateTo) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Maybe ReplicateTo
a -> CreateDeploymentStrategy
s {$sel:replicateTo:CreateDeploymentStrategy' :: Maybe ReplicateTo
replicateTo = Maybe ReplicateTo
a} :: CreateDeploymentStrategy)
createDeploymentStrategy_tags :: Lens.Lens' CreateDeploymentStrategy (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createDeploymentStrategy_tags :: Lens' CreateDeploymentStrategy (Maybe (HashMap Text Text))
createDeploymentStrategy_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Maybe (HashMap Text Text)
a -> CreateDeploymentStrategy
s {$sel:tags:CreateDeploymentStrategy' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateDeploymentStrategy) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createDeploymentStrategy_name :: Lens.Lens' CreateDeploymentStrategy Prelude.Text
createDeploymentStrategy_name :: Lens' CreateDeploymentStrategy Text
createDeploymentStrategy_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Text
name :: Text
$sel:name:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Text
name} -> Text
name) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Text
a -> CreateDeploymentStrategy
s {$sel:name:CreateDeploymentStrategy' :: Text
name = Text
a} :: CreateDeploymentStrategy)
createDeploymentStrategy_deploymentDurationInMinutes :: Lens.Lens' CreateDeploymentStrategy Prelude.Natural
createDeploymentStrategy_deploymentDurationInMinutes :: Lens' CreateDeploymentStrategy Natural
createDeploymentStrategy_deploymentDurationInMinutes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Natural
deploymentDurationInMinutes :: Natural
$sel:deploymentDurationInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Natural
deploymentDurationInMinutes} -> Natural
deploymentDurationInMinutes) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Natural
a -> CreateDeploymentStrategy
s {$sel:deploymentDurationInMinutes:CreateDeploymentStrategy' :: Natural
deploymentDurationInMinutes = Natural
a} :: CreateDeploymentStrategy)
createDeploymentStrategy_growthFactor :: Lens.Lens' CreateDeploymentStrategy Prelude.Double
createDeploymentStrategy_growthFactor :: Lens' CreateDeploymentStrategy Double
createDeploymentStrategy_growthFactor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeploymentStrategy' {Double
growthFactor :: Double
$sel:growthFactor:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Double
growthFactor} -> Double
growthFactor) (\s :: CreateDeploymentStrategy
s@CreateDeploymentStrategy' {} Double
a -> CreateDeploymentStrategy
s {$sel:growthFactor:CreateDeploymentStrategy' :: Double
growthFactor = Double
a} :: CreateDeploymentStrategy)
instance Core.AWSRequest CreateDeploymentStrategy where
type
AWSResponse CreateDeploymentStrategy =
DeploymentStrategy
request :: (Service -> Service)
-> CreateDeploymentStrategy -> Request CreateDeploymentStrategy
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 CreateDeploymentStrategy
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateDeploymentStrategy)))
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 -> forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
instance Prelude.Hashable CreateDeploymentStrategy where
hashWithSalt :: Int -> CreateDeploymentStrategy -> Int
hashWithSalt Int
_salt CreateDeploymentStrategy' {Double
Natural
Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe GrowthType
Maybe ReplicateTo
Text
growthFactor :: Double
deploymentDurationInMinutes :: Natural
name :: Text
tags :: Maybe (HashMap Text Text)
replicateTo :: Maybe ReplicateTo
growthType :: Maybe GrowthType
finalBakeTimeInMinutes :: Maybe Natural
description :: Maybe Text
$sel:growthFactor:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Double
$sel:deploymentDurationInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Natural
$sel:name:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Text
$sel:tags:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe (HashMap Text Text)
$sel:replicateTo:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe ReplicateTo
$sel:growthType:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe GrowthType
$sel:finalBakeTimeInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Natural
$sel:description:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
finalBakeTimeInMinutes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe GrowthType
growthType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ReplicateTo
replicateTo
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
deploymentDurationInMinutes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Double
growthFactor
instance Prelude.NFData CreateDeploymentStrategy where
rnf :: CreateDeploymentStrategy -> ()
rnf CreateDeploymentStrategy' {Double
Natural
Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe GrowthType
Maybe ReplicateTo
Text
growthFactor :: Double
deploymentDurationInMinutes :: Natural
name :: Text
tags :: Maybe (HashMap Text Text)
replicateTo :: Maybe ReplicateTo
growthType :: Maybe GrowthType
finalBakeTimeInMinutes :: Maybe Natural
description :: Maybe Text
$sel:growthFactor:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Double
$sel:deploymentDurationInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Natural
$sel:name:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Text
$sel:tags:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe (HashMap Text Text)
$sel:replicateTo:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe ReplicateTo
$sel:growthType:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe GrowthType
$sel:finalBakeTimeInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Natural
$sel:description:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
finalBakeTimeInMinutes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe GrowthType
growthType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ReplicateTo
replicateTo
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
deploymentDurationInMinutes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Double
growthFactor
instance Data.ToHeaders CreateDeploymentStrategy where
toHeaders :: CreateDeploymentStrategy -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateDeploymentStrategy where
toJSON :: CreateDeploymentStrategy -> Value
toJSON CreateDeploymentStrategy' {Double
Natural
Maybe Natural
Maybe Text
Maybe (HashMap Text Text)
Maybe GrowthType
Maybe ReplicateTo
Text
growthFactor :: Double
deploymentDurationInMinutes :: Natural
name :: Text
tags :: Maybe (HashMap Text Text)
replicateTo :: Maybe ReplicateTo
growthType :: Maybe GrowthType
finalBakeTimeInMinutes :: Maybe Natural
description :: Maybe Text
$sel:growthFactor:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Double
$sel:deploymentDurationInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Natural
$sel:name:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Text
$sel:tags:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe (HashMap Text Text)
$sel:replicateTo:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe ReplicateTo
$sel:growthType:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe GrowthType
$sel:finalBakeTimeInMinutes:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Natural
$sel:description:CreateDeploymentStrategy' :: CreateDeploymentStrategy -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Description" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
description,
(Key
"FinalBakeTimeInMinutes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
finalBakeTimeInMinutes,
(Key
"GrowthType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GrowthType
growthType,
(Key
"ReplicateTo" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ReplicateTo
replicateTo,
(Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just
( Key
"DeploymentDurationInMinutes"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Natural
deploymentDurationInMinutes
),
forall a. a -> Maybe a
Prelude.Just (Key
"GrowthFactor" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Double
growthFactor)
]
)
instance Data.ToPath CreateDeploymentStrategy where
toPath :: CreateDeploymentStrategy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/deploymentstrategies"
instance Data.ToQuery CreateDeploymentStrategy where
toQuery :: CreateDeploymentStrategy -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty