{-# 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.CloudFormation.UpdateStack
(
UpdateStack (..),
newUpdateStack,
updateStack_disableRollback,
updateStack_usePreviousTemplate,
updateStack_notificationARNs,
updateStack_stackPolicyBody,
updateStack_stackPolicyDuringUpdateBody,
updateStack_stackPolicyDuringUpdateURL,
updateStack_parameters,
updateStack_stackPolicyURL,
updateStack_templateBody,
updateStack_templateURL,
updateStack_clientRequestToken,
updateStack_capabilities,
updateStack_rollbackConfiguration,
updateStack_resourceTypes,
updateStack_tags,
updateStack_roleARN,
updateStack_stackName,
UpdateStackResponse (..),
newUpdateStackResponse,
updateStackResponse_stackId,
updateStackResponse_httpStatus,
)
where
import Amazonka.CloudFormation.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateStack = UpdateStack'
{
UpdateStack -> Maybe Bool
disableRollback :: Prelude.Maybe Prelude.Bool,
UpdateStack -> Maybe Bool
usePreviousTemplate :: Prelude.Maybe Prelude.Bool,
UpdateStack -> Maybe [Text]
notificationARNs :: Prelude.Maybe [Prelude.Text],
UpdateStack -> Maybe Text
stackPolicyBody :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
stackPolicyDuringUpdateBody :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
stackPolicyDuringUpdateURL :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe [Parameter]
parameters :: Prelude.Maybe [Parameter],
UpdateStack -> Maybe Text
stackPolicyURL :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
templateBody :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
templateURL :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe [Capability]
capabilities :: Prelude.Maybe [Capability],
UpdateStack -> Maybe RollbackConfiguration
rollbackConfiguration :: Prelude.Maybe RollbackConfiguration,
UpdateStack -> Maybe [Text]
resourceTypes :: Prelude.Maybe [Prelude.Text],
UpdateStack -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
UpdateStack -> Maybe Text
roleARN :: Prelude.Maybe Prelude.Text,
UpdateStack -> Text
stackName :: Prelude.Text
}
deriving (UpdateStack -> UpdateStack -> Bool
(UpdateStack -> UpdateStack -> Bool)
-> (UpdateStack -> UpdateStack -> Bool) -> Eq UpdateStack
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateStack -> UpdateStack -> Bool
$c/= :: UpdateStack -> UpdateStack -> Bool
== :: UpdateStack -> UpdateStack -> Bool
$c== :: UpdateStack -> UpdateStack -> Bool
Prelude.Eq, ReadPrec [UpdateStack]
ReadPrec UpdateStack
Int -> ReadS UpdateStack
ReadS [UpdateStack]
(Int -> ReadS UpdateStack)
-> ReadS [UpdateStack]
-> ReadPrec UpdateStack
-> ReadPrec [UpdateStack]
-> Read UpdateStack
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateStack]
$creadListPrec :: ReadPrec [UpdateStack]
readPrec :: ReadPrec UpdateStack
$creadPrec :: ReadPrec UpdateStack
readList :: ReadS [UpdateStack]
$creadList :: ReadS [UpdateStack]
readsPrec :: Int -> ReadS UpdateStack
$creadsPrec :: Int -> ReadS UpdateStack
Prelude.Read, Int -> UpdateStack -> ShowS
[UpdateStack] -> ShowS
UpdateStack -> String
(Int -> UpdateStack -> ShowS)
-> (UpdateStack -> String)
-> ([UpdateStack] -> ShowS)
-> Show UpdateStack
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateStack] -> ShowS
$cshowList :: [UpdateStack] -> ShowS
show :: UpdateStack -> String
$cshow :: UpdateStack -> String
showsPrec :: Int -> UpdateStack -> ShowS
$cshowsPrec :: Int -> UpdateStack -> ShowS
Prelude.Show, (forall x. UpdateStack -> Rep UpdateStack x)
-> (forall x. Rep UpdateStack x -> UpdateStack)
-> Generic UpdateStack
forall x. Rep UpdateStack x -> UpdateStack
forall x. UpdateStack -> Rep UpdateStack x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateStack x -> UpdateStack
$cfrom :: forall x. UpdateStack -> Rep UpdateStack x
Prelude.Generic)
newUpdateStack ::
Prelude.Text ->
UpdateStack
newUpdateStack :: Text -> UpdateStack
newUpdateStack Text
pStackName_ =
UpdateStack' :: Maybe Bool
-> Maybe Bool
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Parameter]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Capability]
-> Maybe RollbackConfiguration
-> Maybe [Text]
-> Maybe [Tag]
-> Maybe Text
-> Text
-> UpdateStack
UpdateStack'
{ $sel:disableRollback:UpdateStack' :: Maybe Bool
disableRollback = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
$sel:usePreviousTemplate:UpdateStack' :: Maybe Bool
usePreviousTemplate = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
$sel:notificationARNs:UpdateStack' :: Maybe [Text]
notificationARNs = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
$sel:stackPolicyBody:UpdateStack' :: Maybe Text
stackPolicyBody = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:stackPolicyDuringUpdateBody:UpdateStack' :: Maybe Text
stackPolicyDuringUpdateBody = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:stackPolicyDuringUpdateURL:UpdateStack' :: Maybe Text
stackPolicyDuringUpdateURL = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:parameters:UpdateStack' :: Maybe [Parameter]
parameters = Maybe [Parameter]
forall a. Maybe a
Prelude.Nothing,
$sel:stackPolicyURL:UpdateStack' :: Maybe Text
stackPolicyURL = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:templateBody:UpdateStack' :: Maybe Text
templateBody = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:templateURL:UpdateStack' :: Maybe Text
templateURL = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:clientRequestToken:UpdateStack' :: Maybe Text
clientRequestToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:capabilities:UpdateStack' :: Maybe [Capability]
capabilities = Maybe [Capability]
forall a. Maybe a
Prelude.Nothing,
$sel:rollbackConfiguration:UpdateStack' :: Maybe RollbackConfiguration
rollbackConfiguration = Maybe RollbackConfiguration
forall a. Maybe a
Prelude.Nothing,
$sel:resourceTypes:UpdateStack' :: Maybe [Text]
resourceTypes = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
$sel:tags:UpdateStack' :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
$sel:roleARN:UpdateStack' :: Maybe Text
roleARN = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:stackName:UpdateStack' :: Text
stackName = Text
pStackName_
}
updateStack_disableRollback :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Bool)
updateStack_disableRollback :: (Maybe Bool -> f (Maybe Bool)) -> UpdateStack -> f UpdateStack
updateStack_disableRollback = (UpdateStack -> Maybe Bool)
-> (UpdateStack -> Maybe Bool -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Bool
disableRollback :: Maybe Bool
$sel:disableRollback:UpdateStack' :: UpdateStack -> Maybe Bool
disableRollback} -> Maybe Bool
disableRollback) (\s :: UpdateStack
s@UpdateStack' {} Maybe Bool
a -> UpdateStack
s {$sel:disableRollback:UpdateStack' :: Maybe Bool
disableRollback = Maybe Bool
a} :: UpdateStack)
updateStack_usePreviousTemplate :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Bool)
updateStack_usePreviousTemplate :: (Maybe Bool -> f (Maybe Bool)) -> UpdateStack -> f UpdateStack
updateStack_usePreviousTemplate = (UpdateStack -> Maybe Bool)
-> (UpdateStack -> Maybe Bool -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Bool
usePreviousTemplate :: Maybe Bool
$sel:usePreviousTemplate:UpdateStack' :: UpdateStack -> Maybe Bool
usePreviousTemplate} -> Maybe Bool
usePreviousTemplate) (\s :: UpdateStack
s@UpdateStack' {} Maybe Bool
a -> UpdateStack
s {$sel:usePreviousTemplate:UpdateStack' :: Maybe Bool
usePreviousTemplate = Maybe Bool
a} :: UpdateStack)
updateStack_notificationARNs :: Lens.Lens' UpdateStack (Prelude.Maybe [Prelude.Text])
updateStack_notificationARNs :: (Maybe [Text] -> f (Maybe [Text])) -> UpdateStack -> f UpdateStack
updateStack_notificationARNs = (UpdateStack -> Maybe [Text])
-> (UpdateStack -> Maybe [Text] -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe [Text]) (Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe [Text]
notificationARNs :: Maybe [Text]
$sel:notificationARNs:UpdateStack' :: UpdateStack -> Maybe [Text]
notificationARNs} -> Maybe [Text]
notificationARNs) (\s :: UpdateStack
s@UpdateStack' {} Maybe [Text]
a -> UpdateStack
s {$sel:notificationARNs:UpdateStack' :: Maybe [Text]
notificationARNs = Maybe [Text]
a} :: UpdateStack) ((Maybe [Text] -> f (Maybe [Text]))
-> UpdateStack -> f UpdateStack)
-> ((Maybe [Text] -> f (Maybe [Text]))
-> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> UpdateStack
-> f UpdateStack
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 AnIso [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateStack_stackPolicyBody :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_stackPolicyBody :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_stackPolicyBody = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
stackPolicyBody :: Maybe Text
$sel:stackPolicyBody:UpdateStack' :: UpdateStack -> Maybe Text
stackPolicyBody} -> Maybe Text
stackPolicyBody) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:stackPolicyBody:UpdateStack' :: Maybe Text
stackPolicyBody = Maybe Text
a} :: UpdateStack)
updateStack_stackPolicyDuringUpdateBody :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_stackPolicyDuringUpdateBody :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_stackPolicyDuringUpdateBody = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
stackPolicyDuringUpdateBody :: Maybe Text
$sel:stackPolicyDuringUpdateBody:UpdateStack' :: UpdateStack -> Maybe Text
stackPolicyDuringUpdateBody} -> Maybe Text
stackPolicyDuringUpdateBody) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:stackPolicyDuringUpdateBody:UpdateStack' :: Maybe Text
stackPolicyDuringUpdateBody = Maybe Text
a} :: UpdateStack)
updateStack_stackPolicyDuringUpdateURL :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_stackPolicyDuringUpdateURL :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_stackPolicyDuringUpdateURL = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
stackPolicyDuringUpdateURL :: Maybe Text
$sel:stackPolicyDuringUpdateURL:UpdateStack' :: UpdateStack -> Maybe Text
stackPolicyDuringUpdateURL} -> Maybe Text
stackPolicyDuringUpdateURL) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:stackPolicyDuringUpdateURL:UpdateStack' :: Maybe Text
stackPolicyDuringUpdateURL = Maybe Text
a} :: UpdateStack)
updateStack_parameters :: Lens.Lens' UpdateStack (Prelude.Maybe [Parameter])
updateStack_parameters :: (Maybe [Parameter] -> f (Maybe [Parameter]))
-> UpdateStack -> f UpdateStack
updateStack_parameters = (UpdateStack -> Maybe [Parameter])
-> (UpdateStack -> Maybe [Parameter] -> UpdateStack)
-> Lens
UpdateStack UpdateStack (Maybe [Parameter]) (Maybe [Parameter])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe [Parameter]
parameters :: Maybe [Parameter]
$sel:parameters:UpdateStack' :: UpdateStack -> Maybe [Parameter]
parameters} -> Maybe [Parameter]
parameters) (\s :: UpdateStack
s@UpdateStack' {} Maybe [Parameter]
a -> UpdateStack
s {$sel:parameters:UpdateStack' :: Maybe [Parameter]
parameters = Maybe [Parameter]
a} :: UpdateStack) ((Maybe [Parameter] -> f (Maybe [Parameter]))
-> UpdateStack -> f UpdateStack)
-> ((Maybe [Parameter] -> f (Maybe [Parameter]))
-> Maybe [Parameter] -> f (Maybe [Parameter]))
-> (Maybe [Parameter] -> f (Maybe [Parameter]))
-> UpdateStack
-> f UpdateStack
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Parameter] [Parameter] [Parameter] [Parameter]
-> Iso
(Maybe [Parameter])
(Maybe [Parameter])
(Maybe [Parameter])
(Maybe [Parameter])
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 AnIso [Parameter] [Parameter] [Parameter] [Parameter]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateStack_stackPolicyURL :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_stackPolicyURL :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_stackPolicyURL = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
stackPolicyURL :: Maybe Text
$sel:stackPolicyURL:UpdateStack' :: UpdateStack -> Maybe Text
stackPolicyURL} -> Maybe Text
stackPolicyURL) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:stackPolicyURL:UpdateStack' :: Maybe Text
stackPolicyURL = Maybe Text
a} :: UpdateStack)
updateStack_templateBody :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_templateBody :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_templateBody = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
templateBody :: Maybe Text
$sel:templateBody:UpdateStack' :: UpdateStack -> Maybe Text
templateBody} -> Maybe Text
templateBody) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:templateBody:UpdateStack' :: Maybe Text
templateBody = Maybe Text
a} :: UpdateStack)
updateStack_templateURL :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_templateURL :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_templateURL = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
templateURL :: Maybe Text
$sel:templateURL:UpdateStack' :: UpdateStack -> Maybe Text
templateURL} -> Maybe Text
templateURL) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:templateURL:UpdateStack' :: Maybe Text
templateURL = Maybe Text
a} :: UpdateStack)
updateStack_clientRequestToken :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_clientRequestToken :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_clientRequestToken = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:UpdateStack' :: UpdateStack -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:clientRequestToken:UpdateStack' :: Maybe Text
clientRequestToken = Maybe Text
a} :: UpdateStack)
updateStack_capabilities :: Lens.Lens' UpdateStack (Prelude.Maybe [Capability])
updateStack_capabilities :: (Maybe [Capability] -> f (Maybe [Capability]))
-> UpdateStack -> f UpdateStack
updateStack_capabilities = (UpdateStack -> Maybe [Capability])
-> (UpdateStack -> Maybe [Capability] -> UpdateStack)
-> Lens
UpdateStack UpdateStack (Maybe [Capability]) (Maybe [Capability])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe [Capability]
capabilities :: Maybe [Capability]
$sel:capabilities:UpdateStack' :: UpdateStack -> Maybe [Capability]
capabilities} -> Maybe [Capability]
capabilities) (\s :: UpdateStack
s@UpdateStack' {} Maybe [Capability]
a -> UpdateStack
s {$sel:capabilities:UpdateStack' :: Maybe [Capability]
capabilities = Maybe [Capability]
a} :: UpdateStack) ((Maybe [Capability] -> f (Maybe [Capability]))
-> UpdateStack -> f UpdateStack)
-> ((Maybe [Capability] -> f (Maybe [Capability]))
-> Maybe [Capability] -> f (Maybe [Capability]))
-> (Maybe [Capability] -> f (Maybe [Capability]))
-> UpdateStack
-> f UpdateStack
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Capability] [Capability] [Capability] [Capability]
-> Iso
(Maybe [Capability])
(Maybe [Capability])
(Maybe [Capability])
(Maybe [Capability])
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 AnIso [Capability] [Capability] [Capability] [Capability]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateStack_rollbackConfiguration :: Lens.Lens' UpdateStack (Prelude.Maybe RollbackConfiguration)
updateStack_rollbackConfiguration :: (Maybe RollbackConfiguration -> f (Maybe RollbackConfiguration))
-> UpdateStack -> f UpdateStack
updateStack_rollbackConfiguration = (UpdateStack -> Maybe RollbackConfiguration)
-> (UpdateStack -> Maybe RollbackConfiguration -> UpdateStack)
-> Lens
UpdateStack
UpdateStack
(Maybe RollbackConfiguration)
(Maybe RollbackConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe RollbackConfiguration
rollbackConfiguration :: Maybe RollbackConfiguration
$sel:rollbackConfiguration:UpdateStack' :: UpdateStack -> Maybe RollbackConfiguration
rollbackConfiguration} -> Maybe RollbackConfiguration
rollbackConfiguration) (\s :: UpdateStack
s@UpdateStack' {} Maybe RollbackConfiguration
a -> UpdateStack
s {$sel:rollbackConfiguration:UpdateStack' :: Maybe RollbackConfiguration
rollbackConfiguration = Maybe RollbackConfiguration
a} :: UpdateStack)
updateStack_resourceTypes :: Lens.Lens' UpdateStack (Prelude.Maybe [Prelude.Text])
updateStack_resourceTypes :: (Maybe [Text] -> f (Maybe [Text])) -> UpdateStack -> f UpdateStack
updateStack_resourceTypes = (UpdateStack -> Maybe [Text])
-> (UpdateStack -> Maybe [Text] -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe [Text]) (Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe [Text]
resourceTypes :: Maybe [Text]
$sel:resourceTypes:UpdateStack' :: UpdateStack -> Maybe [Text]
resourceTypes} -> Maybe [Text]
resourceTypes) (\s :: UpdateStack
s@UpdateStack' {} Maybe [Text]
a -> UpdateStack
s {$sel:resourceTypes:UpdateStack' :: Maybe [Text]
resourceTypes = Maybe [Text]
a} :: UpdateStack) ((Maybe [Text] -> f (Maybe [Text]))
-> UpdateStack -> f UpdateStack)
-> ((Maybe [Text] -> f (Maybe [Text]))
-> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> UpdateStack
-> f UpdateStack
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 AnIso [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateStack_tags :: Lens.Lens' UpdateStack (Prelude.Maybe [Tag])
updateStack_tags :: (Maybe [Tag] -> f (Maybe [Tag])) -> UpdateStack -> f UpdateStack
updateStack_tags = (UpdateStack -> Maybe [Tag])
-> (UpdateStack -> Maybe [Tag] -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe [Tag]) (Maybe [Tag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:UpdateStack' :: UpdateStack -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: UpdateStack
s@UpdateStack' {} Maybe [Tag]
a -> UpdateStack
s {$sel:tags:UpdateStack' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: UpdateStack) ((Maybe [Tag] -> f (Maybe [Tag])) -> UpdateStack -> f UpdateStack)
-> ((Maybe [Tag] -> f (Maybe [Tag]))
-> Maybe [Tag] -> f (Maybe [Tag]))
-> (Maybe [Tag] -> f (Maybe [Tag]))
-> UpdateStack
-> f UpdateStack
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Tag] [Tag] [Tag] [Tag]
-> Iso (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag]) (Maybe [Tag])
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 AnIso [Tag] [Tag] [Tag] [Tag]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateStack_roleARN :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_roleARN :: (Maybe Text -> f (Maybe Text)) -> UpdateStack -> f UpdateStack
updateStack_roleARN = (UpdateStack -> Maybe Text)
-> (UpdateStack -> Maybe Text -> UpdateStack)
-> Lens UpdateStack UpdateStack (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
roleARN :: Maybe Text
$sel:roleARN:UpdateStack' :: UpdateStack -> Maybe Text
roleARN} -> Maybe Text
roleARN) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:roleARN:UpdateStack' :: Maybe Text
roleARN = Maybe Text
a} :: UpdateStack)
updateStack_stackName :: Lens.Lens' UpdateStack Prelude.Text
updateStack_stackName :: (Text -> f Text) -> UpdateStack -> f UpdateStack
updateStack_stackName = (UpdateStack -> Text)
-> (UpdateStack -> Text -> UpdateStack)
-> Lens UpdateStack UpdateStack Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Text
stackName :: Text
$sel:stackName:UpdateStack' :: UpdateStack -> Text
stackName} -> Text
stackName) (\s :: UpdateStack
s@UpdateStack' {} Text
a -> UpdateStack
s {$sel:stackName:UpdateStack' :: Text
stackName = Text
a} :: UpdateStack)
instance Core.AWSRequest UpdateStack where
type AWSResponse UpdateStack = UpdateStackResponse
request :: UpdateStack -> Request UpdateStack
request = Service -> UpdateStack -> Request UpdateStack
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery Service
defaultService
response :: Logger
-> Service
-> Proxy UpdateStack
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateStack)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse UpdateStack))
-> Logger
-> Service
-> Proxy UpdateStack
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateStack)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"UpdateStackResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text -> Int -> UpdateStackResponse
UpdateStackResponse'
(Maybe Text -> Int -> UpdateStackResponse)
-> Either String (Maybe Text)
-> Either String (Int -> UpdateStackResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"StackId")
Either String (Int -> UpdateStackResponse)
-> Either String Int -> Either String UpdateStackResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable UpdateStack
instance Prelude.NFData UpdateStack
instance Core.ToHeaders UpdateStack where
toHeaders :: UpdateStack -> ResponseHeaders
toHeaders = ResponseHeaders -> UpdateStack -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Core.ToPath UpdateStack where
toPath :: UpdateStack -> ByteString
toPath = ByteString -> UpdateStack -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Core.ToQuery UpdateStack where
toQuery :: UpdateStack -> QueryString
toQuery UpdateStack' {Maybe Bool
Maybe [Text]
Maybe [Capability]
Maybe [Parameter]
Maybe [Tag]
Maybe Text
Maybe RollbackConfiguration
Text
stackName :: Text
roleARN :: Maybe Text
tags :: Maybe [Tag]
resourceTypes :: Maybe [Text]
rollbackConfiguration :: Maybe RollbackConfiguration
capabilities :: Maybe [Capability]
clientRequestToken :: Maybe Text
templateURL :: Maybe Text
templateBody :: Maybe Text
stackPolicyURL :: Maybe Text
parameters :: Maybe [Parameter]
stackPolicyDuringUpdateURL :: Maybe Text
stackPolicyDuringUpdateBody :: Maybe Text
stackPolicyBody :: Maybe Text
notificationARNs :: Maybe [Text]
usePreviousTemplate :: Maybe Bool
disableRollback :: Maybe Bool
$sel:stackName:UpdateStack' :: UpdateStack -> Text
$sel:roleARN:UpdateStack' :: UpdateStack -> Maybe Text
$sel:tags:UpdateStack' :: UpdateStack -> Maybe [Tag]
$sel:resourceTypes:UpdateStack' :: UpdateStack -> Maybe [Text]
$sel:rollbackConfiguration:UpdateStack' :: UpdateStack -> Maybe RollbackConfiguration
$sel:capabilities:UpdateStack' :: UpdateStack -> Maybe [Capability]
$sel:clientRequestToken:UpdateStack' :: UpdateStack -> Maybe Text
$sel:templateURL:UpdateStack' :: UpdateStack -> Maybe Text
$sel:templateBody:UpdateStack' :: UpdateStack -> Maybe Text
$sel:stackPolicyURL:UpdateStack' :: UpdateStack -> Maybe Text
$sel:parameters:UpdateStack' :: UpdateStack -> Maybe [Parameter]
$sel:stackPolicyDuringUpdateURL:UpdateStack' :: UpdateStack -> Maybe Text
$sel:stackPolicyDuringUpdateBody:UpdateStack' :: UpdateStack -> Maybe Text
$sel:stackPolicyBody:UpdateStack' :: UpdateStack -> Maybe Text
$sel:notificationARNs:UpdateStack' :: UpdateStack -> Maybe [Text]
$sel:usePreviousTemplate:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:disableRollback:UpdateStack' :: UpdateStack -> Maybe Bool
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"UpdateStack" :: Prelude.ByteString),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"2010-05-15" :: Prelude.ByteString),
ByteString
"DisableRollback" ByteString -> Maybe Bool -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Bool
disableRollback,
ByteString
"UsePreviousTemplate" ByteString -> Maybe Bool -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Bool
usePreviousTemplate,
ByteString
"NotificationARNs"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Core.toQuery
( ByteString -> [Text] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"member"
([Text] -> QueryString) -> Maybe [Text] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
notificationARNs
),
ByteString
"StackPolicyBody" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
stackPolicyBody,
ByteString
"StackPolicyDuringUpdateBody"
ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
stackPolicyDuringUpdateBody,
ByteString
"StackPolicyDuringUpdateURL"
ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
stackPolicyDuringUpdateURL,
ByteString
"Parameters"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Core.toQuery
(ByteString -> [Parameter] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"member" ([Parameter] -> QueryString)
-> Maybe [Parameter] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Parameter]
parameters),
ByteString
"StackPolicyURL" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
stackPolicyURL,
ByteString
"TemplateBody" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
templateBody,
ByteString
"TemplateURL" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
templateURL,
ByteString
"ClientRequestToken" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
clientRequestToken,
ByteString
"Capabilities"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Core.toQuery
(ByteString -> [Capability] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"member" ([Capability] -> QueryString)
-> Maybe [Capability] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Capability]
capabilities),
ByteString
"RollbackConfiguration"
ByteString -> Maybe RollbackConfiguration -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe RollbackConfiguration
rollbackConfiguration,
ByteString
"ResourceTypes"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Core.toQuery
( ByteString -> [Text] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"member"
([Text] -> QueryString) -> Maybe [Text] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
resourceTypes
),
ByteString
"Tags"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Core.toQuery
(ByteString -> [Tag] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"member" ([Tag] -> QueryString) -> Maybe [Tag] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
ByteString
"RoleARN" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
roleARN,
ByteString
"StackName" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Text
stackName
]
data UpdateStackResponse = UpdateStackResponse'
{
UpdateStackResponse -> Maybe Text
stackId :: Prelude.Maybe Prelude.Text,
UpdateStackResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateStackResponse -> UpdateStackResponse -> Bool
(UpdateStackResponse -> UpdateStackResponse -> Bool)
-> (UpdateStackResponse -> UpdateStackResponse -> Bool)
-> Eq UpdateStackResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateStackResponse -> UpdateStackResponse -> Bool
$c/= :: UpdateStackResponse -> UpdateStackResponse -> Bool
== :: UpdateStackResponse -> UpdateStackResponse -> Bool
$c== :: UpdateStackResponse -> UpdateStackResponse -> Bool
Prelude.Eq, ReadPrec [UpdateStackResponse]
ReadPrec UpdateStackResponse
Int -> ReadS UpdateStackResponse
ReadS [UpdateStackResponse]
(Int -> ReadS UpdateStackResponse)
-> ReadS [UpdateStackResponse]
-> ReadPrec UpdateStackResponse
-> ReadPrec [UpdateStackResponse]
-> Read UpdateStackResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateStackResponse]
$creadListPrec :: ReadPrec [UpdateStackResponse]
readPrec :: ReadPrec UpdateStackResponse
$creadPrec :: ReadPrec UpdateStackResponse
readList :: ReadS [UpdateStackResponse]
$creadList :: ReadS [UpdateStackResponse]
readsPrec :: Int -> ReadS UpdateStackResponse
$creadsPrec :: Int -> ReadS UpdateStackResponse
Prelude.Read, Int -> UpdateStackResponse -> ShowS
[UpdateStackResponse] -> ShowS
UpdateStackResponse -> String
(Int -> UpdateStackResponse -> ShowS)
-> (UpdateStackResponse -> String)
-> ([UpdateStackResponse] -> ShowS)
-> Show UpdateStackResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateStackResponse] -> ShowS
$cshowList :: [UpdateStackResponse] -> ShowS
show :: UpdateStackResponse -> String
$cshow :: UpdateStackResponse -> String
showsPrec :: Int -> UpdateStackResponse -> ShowS
$cshowsPrec :: Int -> UpdateStackResponse -> ShowS
Prelude.Show, (forall x. UpdateStackResponse -> Rep UpdateStackResponse x)
-> (forall x. Rep UpdateStackResponse x -> UpdateStackResponse)
-> Generic UpdateStackResponse
forall x. Rep UpdateStackResponse x -> UpdateStackResponse
forall x. UpdateStackResponse -> Rep UpdateStackResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateStackResponse x -> UpdateStackResponse
$cfrom :: forall x. UpdateStackResponse -> Rep UpdateStackResponse x
Prelude.Generic)
newUpdateStackResponse ::
Prelude.Int ->
UpdateStackResponse
newUpdateStackResponse :: Int -> UpdateStackResponse
newUpdateStackResponse Int
pHttpStatus_ =
UpdateStackResponse' :: Maybe Text -> Int -> UpdateStackResponse
UpdateStackResponse'
{ $sel:stackId:UpdateStackResponse' :: Maybe Text
stackId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateStackResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateStackResponse_stackId :: Lens.Lens' UpdateStackResponse (Prelude.Maybe Prelude.Text)
updateStackResponse_stackId :: (Maybe Text -> f (Maybe Text))
-> UpdateStackResponse -> f UpdateStackResponse
updateStackResponse_stackId = (UpdateStackResponse -> Maybe Text)
-> (UpdateStackResponse -> Maybe Text -> UpdateStackResponse)
-> Lens
UpdateStackResponse UpdateStackResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStackResponse' {Maybe Text
stackId :: Maybe Text
$sel:stackId:UpdateStackResponse' :: UpdateStackResponse -> Maybe Text
stackId} -> Maybe Text
stackId) (\s :: UpdateStackResponse
s@UpdateStackResponse' {} Maybe Text
a -> UpdateStackResponse
s {$sel:stackId:UpdateStackResponse' :: Maybe Text
stackId = Maybe Text
a} :: UpdateStackResponse)
updateStackResponse_httpStatus :: Lens.Lens' UpdateStackResponse Prelude.Int
updateStackResponse_httpStatus :: (Int -> f Int) -> UpdateStackResponse -> f UpdateStackResponse
updateStackResponse_httpStatus = (UpdateStackResponse -> Int)
-> (UpdateStackResponse -> Int -> UpdateStackResponse)
-> Lens UpdateStackResponse UpdateStackResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStackResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateStackResponse' :: UpdateStackResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateStackResponse
s@UpdateStackResponse' {} Int
a -> UpdateStackResponse
s {$sel:httpStatus:UpdateStackResponse' :: Int
httpStatus = Int
a} :: UpdateStackResponse)
instance Prelude.NFData UpdateStackResponse