{-# 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.OpsWorks.UpdateStack
(
UpdateStack (..),
newUpdateStack,
updateStack_agentVersion,
updateStack_attributes,
updateStack_chefConfiguration,
updateStack_configurationManager,
updateStack_customCookbooksSource,
updateStack_customJson,
updateStack_defaultAvailabilityZone,
updateStack_defaultInstanceProfileArn,
updateStack_defaultOs,
updateStack_defaultRootDeviceType,
updateStack_defaultSshKeyName,
updateStack_defaultSubnetId,
updateStack_hostnameTheme,
updateStack_name,
updateStack_serviceRoleArn,
updateStack_useCustomCookbooks,
updateStack_useOpsworksSecurityGroups,
updateStack_stackId,
UpdateStackResponse (..),
newUpdateStackResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.OpsWorks.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateStack = UpdateStack'
{
UpdateStack -> Maybe Text
agentVersion :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes :: Prelude.Maybe (Prelude.HashMap StackAttributesKeys (Prelude.Maybe Prelude.Text)),
UpdateStack -> Maybe ChefConfiguration
chefConfiguration :: Prelude.Maybe ChefConfiguration,
UpdateStack -> Maybe StackConfigurationManager
configurationManager :: Prelude.Maybe StackConfigurationManager,
UpdateStack -> Maybe Source
customCookbooksSource :: Prelude.Maybe Source,
UpdateStack -> Maybe Text
customJson :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
defaultAvailabilityZone :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
defaultInstanceProfileArn :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
defaultOs :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe RootDeviceType
defaultRootDeviceType :: Prelude.Maybe RootDeviceType,
UpdateStack -> Maybe Text
defaultSshKeyName :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
defaultSubnetId :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
hostnameTheme :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Text
serviceRoleArn :: Prelude.Maybe Prelude.Text,
UpdateStack -> Maybe Bool
useCustomCookbooks :: Prelude.Maybe Prelude.Bool,
UpdateStack -> Maybe Bool
useOpsworksSecurityGroups :: Prelude.Maybe Prelude.Bool,
UpdateStack -> Text
stackId :: Prelude.Text
}
deriving (UpdateStack -> UpdateStack -> Bool
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]
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
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. 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
pStackId_ =
UpdateStack'
{ $sel:agentVersion:UpdateStack' :: Maybe Text
agentVersion = forall a. Maybe a
Prelude.Nothing,
$sel:attributes:UpdateStack' :: Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes = forall a. Maybe a
Prelude.Nothing,
$sel:chefConfiguration:UpdateStack' :: Maybe ChefConfiguration
chefConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:configurationManager:UpdateStack' :: Maybe StackConfigurationManager
configurationManager = forall a. Maybe a
Prelude.Nothing,
$sel:customCookbooksSource:UpdateStack' :: Maybe Source
customCookbooksSource = forall a. Maybe a
Prelude.Nothing,
$sel:customJson:UpdateStack' :: Maybe Text
customJson = forall a. Maybe a
Prelude.Nothing,
$sel:defaultAvailabilityZone:UpdateStack' :: Maybe Text
defaultAvailabilityZone = forall a. Maybe a
Prelude.Nothing,
$sel:defaultInstanceProfileArn:UpdateStack' :: Maybe Text
defaultInstanceProfileArn = forall a. Maybe a
Prelude.Nothing,
$sel:defaultOs:UpdateStack' :: Maybe Text
defaultOs = forall a. Maybe a
Prelude.Nothing,
$sel:defaultRootDeviceType:UpdateStack' :: Maybe RootDeviceType
defaultRootDeviceType = forall a. Maybe a
Prelude.Nothing,
$sel:defaultSshKeyName:UpdateStack' :: Maybe Text
defaultSshKeyName = forall a. Maybe a
Prelude.Nothing,
$sel:defaultSubnetId:UpdateStack' :: Maybe Text
defaultSubnetId = forall a. Maybe a
Prelude.Nothing,
$sel:hostnameTheme:UpdateStack' :: Maybe Text
hostnameTheme = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateStack' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:serviceRoleArn:UpdateStack' :: Maybe Text
serviceRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:useCustomCookbooks:UpdateStack' :: Maybe Bool
useCustomCookbooks = forall a. Maybe a
Prelude.Nothing,
$sel:useOpsworksSecurityGroups:UpdateStack' :: Maybe Bool
useOpsworksSecurityGroups = forall a. Maybe a
Prelude.Nothing,
$sel:stackId:UpdateStack' :: Text
stackId = Text
pStackId_
}
updateStack_agentVersion :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_agentVersion :: Lens' UpdateStack (Maybe Text)
updateStack_agentVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
agentVersion :: Maybe Text
$sel:agentVersion:UpdateStack' :: UpdateStack -> Maybe Text
agentVersion} -> Maybe Text
agentVersion) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:agentVersion:UpdateStack' :: Maybe Text
agentVersion = Maybe Text
a} :: UpdateStack)
updateStack_attributes :: Lens.Lens' UpdateStack (Prelude.Maybe (Prelude.HashMap StackAttributesKeys (Prelude.Maybe Prelude.Text)))
updateStack_attributes :: Lens'
UpdateStack (Maybe (HashMap StackAttributesKeys (Maybe Text)))
updateStack_attributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes :: Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:attributes:UpdateStack' :: UpdateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes} -> Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes) (\s :: UpdateStack
s@UpdateStack' {} Maybe (HashMap StackAttributesKeys (Maybe Text))
a -> UpdateStack
s {$sel:attributes:UpdateStack' :: Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes = Maybe (HashMap StackAttributesKeys (Maybe Text))
a} :: UpdateStack) 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
updateStack_chefConfiguration :: Lens.Lens' UpdateStack (Prelude.Maybe ChefConfiguration)
updateStack_chefConfiguration :: Lens' UpdateStack (Maybe ChefConfiguration)
updateStack_chefConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe ChefConfiguration
chefConfiguration :: Maybe ChefConfiguration
$sel:chefConfiguration:UpdateStack' :: UpdateStack -> Maybe ChefConfiguration
chefConfiguration} -> Maybe ChefConfiguration
chefConfiguration) (\s :: UpdateStack
s@UpdateStack' {} Maybe ChefConfiguration
a -> UpdateStack
s {$sel:chefConfiguration:UpdateStack' :: Maybe ChefConfiguration
chefConfiguration = Maybe ChefConfiguration
a} :: UpdateStack)
updateStack_configurationManager :: Lens.Lens' UpdateStack (Prelude.Maybe StackConfigurationManager)
updateStack_configurationManager :: Lens' UpdateStack (Maybe StackConfigurationManager)
updateStack_configurationManager = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe StackConfigurationManager
configurationManager :: Maybe StackConfigurationManager
$sel:configurationManager:UpdateStack' :: UpdateStack -> Maybe StackConfigurationManager
configurationManager} -> Maybe StackConfigurationManager
configurationManager) (\s :: UpdateStack
s@UpdateStack' {} Maybe StackConfigurationManager
a -> UpdateStack
s {$sel:configurationManager:UpdateStack' :: Maybe StackConfigurationManager
configurationManager = Maybe StackConfigurationManager
a} :: UpdateStack)
updateStack_customCookbooksSource :: Lens.Lens' UpdateStack (Prelude.Maybe Source)
updateStack_customCookbooksSource :: Lens' UpdateStack (Maybe Source)
updateStack_customCookbooksSource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Source
customCookbooksSource :: Maybe Source
$sel:customCookbooksSource:UpdateStack' :: UpdateStack -> Maybe Source
customCookbooksSource} -> Maybe Source
customCookbooksSource) (\s :: UpdateStack
s@UpdateStack' {} Maybe Source
a -> UpdateStack
s {$sel:customCookbooksSource:UpdateStack' :: Maybe Source
customCookbooksSource = Maybe Source
a} :: UpdateStack)
updateStack_customJson :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_customJson :: Lens' UpdateStack (Maybe Text)
updateStack_customJson = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
customJson :: Maybe Text
$sel:customJson:UpdateStack' :: UpdateStack -> Maybe Text
customJson} -> Maybe Text
customJson) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:customJson:UpdateStack' :: Maybe Text
customJson = Maybe Text
a} :: UpdateStack)
updateStack_defaultAvailabilityZone :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_defaultAvailabilityZone :: Lens' UpdateStack (Maybe Text)
updateStack_defaultAvailabilityZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
defaultAvailabilityZone :: Maybe Text
$sel:defaultAvailabilityZone:UpdateStack' :: UpdateStack -> Maybe Text
defaultAvailabilityZone} -> Maybe Text
defaultAvailabilityZone) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:defaultAvailabilityZone:UpdateStack' :: Maybe Text
defaultAvailabilityZone = Maybe Text
a} :: UpdateStack)
updateStack_defaultInstanceProfileArn :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_defaultInstanceProfileArn :: Lens' UpdateStack (Maybe Text)
updateStack_defaultInstanceProfileArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
defaultInstanceProfileArn :: Maybe Text
$sel:defaultInstanceProfileArn:UpdateStack' :: UpdateStack -> Maybe Text
defaultInstanceProfileArn} -> Maybe Text
defaultInstanceProfileArn) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:defaultInstanceProfileArn:UpdateStack' :: Maybe Text
defaultInstanceProfileArn = Maybe Text
a} :: UpdateStack)
updateStack_defaultOs :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_defaultOs :: Lens' UpdateStack (Maybe Text)
updateStack_defaultOs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
defaultOs :: Maybe Text
$sel:defaultOs:UpdateStack' :: UpdateStack -> Maybe Text
defaultOs} -> Maybe Text
defaultOs) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:defaultOs:UpdateStack' :: Maybe Text
defaultOs = Maybe Text
a} :: UpdateStack)
updateStack_defaultRootDeviceType :: Lens.Lens' UpdateStack (Prelude.Maybe RootDeviceType)
updateStack_defaultRootDeviceType :: Lens' UpdateStack (Maybe RootDeviceType)
updateStack_defaultRootDeviceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe RootDeviceType
defaultRootDeviceType :: Maybe RootDeviceType
$sel:defaultRootDeviceType:UpdateStack' :: UpdateStack -> Maybe RootDeviceType
defaultRootDeviceType} -> Maybe RootDeviceType
defaultRootDeviceType) (\s :: UpdateStack
s@UpdateStack' {} Maybe RootDeviceType
a -> UpdateStack
s {$sel:defaultRootDeviceType:UpdateStack' :: Maybe RootDeviceType
defaultRootDeviceType = Maybe RootDeviceType
a} :: UpdateStack)
updateStack_defaultSshKeyName :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_defaultSshKeyName :: Lens' UpdateStack (Maybe Text)
updateStack_defaultSshKeyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
defaultSshKeyName :: Maybe Text
$sel:defaultSshKeyName:UpdateStack' :: UpdateStack -> Maybe Text
defaultSshKeyName} -> Maybe Text
defaultSshKeyName) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:defaultSshKeyName:UpdateStack' :: Maybe Text
defaultSshKeyName = Maybe Text
a} :: UpdateStack)
updateStack_defaultSubnetId :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_defaultSubnetId :: Lens' UpdateStack (Maybe Text)
updateStack_defaultSubnetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
defaultSubnetId :: Maybe Text
$sel:defaultSubnetId:UpdateStack' :: UpdateStack -> Maybe Text
defaultSubnetId} -> Maybe Text
defaultSubnetId) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:defaultSubnetId:UpdateStack' :: Maybe Text
defaultSubnetId = Maybe Text
a} :: UpdateStack)
updateStack_hostnameTheme :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_hostnameTheme :: Lens' UpdateStack (Maybe Text)
updateStack_hostnameTheme = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
hostnameTheme :: Maybe Text
$sel:hostnameTheme:UpdateStack' :: UpdateStack -> Maybe Text
hostnameTheme} -> Maybe Text
hostnameTheme) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:hostnameTheme:UpdateStack' :: Maybe Text
hostnameTheme = Maybe Text
a} :: UpdateStack)
updateStack_name :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_name :: Lens' UpdateStack (Maybe Text)
updateStack_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
name :: Maybe Text
$sel:name:UpdateStack' :: UpdateStack -> Maybe Text
name} -> Maybe Text
name) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:name:UpdateStack' :: Maybe Text
name = Maybe Text
a} :: UpdateStack)
updateStack_serviceRoleArn :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text)
updateStack_serviceRoleArn :: Lens' UpdateStack (Maybe Text)
updateStack_serviceRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Text
serviceRoleArn :: Maybe Text
$sel:serviceRoleArn:UpdateStack' :: UpdateStack -> Maybe Text
serviceRoleArn} -> Maybe Text
serviceRoleArn) (\s :: UpdateStack
s@UpdateStack' {} Maybe Text
a -> UpdateStack
s {$sel:serviceRoleArn:UpdateStack' :: Maybe Text
serviceRoleArn = Maybe Text
a} :: UpdateStack)
updateStack_useCustomCookbooks :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Bool)
updateStack_useCustomCookbooks :: Lens' UpdateStack (Maybe Bool)
updateStack_useCustomCookbooks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Bool
useCustomCookbooks :: Maybe Bool
$sel:useCustomCookbooks:UpdateStack' :: UpdateStack -> Maybe Bool
useCustomCookbooks} -> Maybe Bool
useCustomCookbooks) (\s :: UpdateStack
s@UpdateStack' {} Maybe Bool
a -> UpdateStack
s {$sel:useCustomCookbooks:UpdateStack' :: Maybe Bool
useCustomCookbooks = Maybe Bool
a} :: UpdateStack)
updateStack_useOpsworksSecurityGroups :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Bool)
updateStack_useOpsworksSecurityGroups :: Lens' UpdateStack (Maybe Bool)
updateStack_useOpsworksSecurityGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Maybe Bool
useOpsworksSecurityGroups :: Maybe Bool
$sel:useOpsworksSecurityGroups:UpdateStack' :: UpdateStack -> Maybe Bool
useOpsworksSecurityGroups} -> Maybe Bool
useOpsworksSecurityGroups) (\s :: UpdateStack
s@UpdateStack' {} Maybe Bool
a -> UpdateStack
s {$sel:useOpsworksSecurityGroups:UpdateStack' :: Maybe Bool
useOpsworksSecurityGroups = Maybe Bool
a} :: UpdateStack)
updateStack_stackId :: Lens.Lens' UpdateStack Prelude.Text
updateStack_stackId :: Lens' UpdateStack Text
updateStack_stackId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateStack' {Text
stackId :: Text
$sel:stackId:UpdateStack' :: UpdateStack -> Text
stackId} -> Text
stackId) (\s :: UpdateStack
s@UpdateStack' {} Text
a -> UpdateStack
s {$sel:stackId:UpdateStack' :: Text
stackId = Text
a} :: UpdateStack)
instance Core.AWSRequest UpdateStack where
type AWSResponse UpdateStack = UpdateStackResponse
request :: (Service -> Service) -> UpdateStack -> Request UpdateStack
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 UpdateStack
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateStack)))
response = forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull UpdateStackResponse
UpdateStackResponse'
instance Prelude.Hashable UpdateStack where
hashWithSalt :: Int -> UpdateStack -> Int
hashWithSalt Int
_salt UpdateStack' {Maybe Bool
Maybe Text
Maybe (HashMap StackAttributesKeys (Maybe Text))
Maybe ChefConfiguration
Maybe RootDeviceType
Maybe Source
Maybe StackConfigurationManager
Text
stackId :: Text
useOpsworksSecurityGroups :: Maybe Bool
useCustomCookbooks :: Maybe Bool
serviceRoleArn :: Maybe Text
name :: Maybe Text
hostnameTheme :: Maybe Text
defaultSubnetId :: Maybe Text
defaultSshKeyName :: Maybe Text
defaultRootDeviceType :: Maybe RootDeviceType
defaultOs :: Maybe Text
defaultInstanceProfileArn :: Maybe Text
defaultAvailabilityZone :: Maybe Text
customJson :: Maybe Text
customCookbooksSource :: Maybe Source
configurationManager :: Maybe StackConfigurationManager
chefConfiguration :: Maybe ChefConfiguration
attributes :: Maybe (HashMap StackAttributesKeys (Maybe Text))
agentVersion :: Maybe Text
$sel:stackId:UpdateStack' :: UpdateStack -> Text
$sel:useOpsworksSecurityGroups:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:useCustomCookbooks:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:serviceRoleArn:UpdateStack' :: UpdateStack -> Maybe Text
$sel:name:UpdateStack' :: UpdateStack -> Maybe Text
$sel:hostnameTheme:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultSubnetId:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultSshKeyName:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultRootDeviceType:UpdateStack' :: UpdateStack -> Maybe RootDeviceType
$sel:defaultOs:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultInstanceProfileArn:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultAvailabilityZone:UpdateStack' :: UpdateStack -> Maybe Text
$sel:customJson:UpdateStack' :: UpdateStack -> Maybe Text
$sel:customCookbooksSource:UpdateStack' :: UpdateStack -> Maybe Source
$sel:configurationManager:UpdateStack' :: UpdateStack -> Maybe StackConfigurationManager
$sel:chefConfiguration:UpdateStack' :: UpdateStack -> Maybe ChefConfiguration
$sel:attributes:UpdateStack' :: UpdateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:agentVersion:UpdateStack' :: UpdateStack -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
agentVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChefConfiguration
chefConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StackConfigurationManager
configurationManager
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Source
customCookbooksSource
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customJson
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultAvailabilityZone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultInstanceProfileArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultOs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RootDeviceType
defaultRootDeviceType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultSshKeyName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultSubnetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
hostnameTheme
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serviceRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
useCustomCookbooks
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
useOpsworksSecurityGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
stackId
instance Prelude.NFData UpdateStack where
rnf :: UpdateStack -> ()
rnf UpdateStack' {Maybe Bool
Maybe Text
Maybe (HashMap StackAttributesKeys (Maybe Text))
Maybe ChefConfiguration
Maybe RootDeviceType
Maybe Source
Maybe StackConfigurationManager
Text
stackId :: Text
useOpsworksSecurityGroups :: Maybe Bool
useCustomCookbooks :: Maybe Bool
serviceRoleArn :: Maybe Text
name :: Maybe Text
hostnameTheme :: Maybe Text
defaultSubnetId :: Maybe Text
defaultSshKeyName :: Maybe Text
defaultRootDeviceType :: Maybe RootDeviceType
defaultOs :: Maybe Text
defaultInstanceProfileArn :: Maybe Text
defaultAvailabilityZone :: Maybe Text
customJson :: Maybe Text
customCookbooksSource :: Maybe Source
configurationManager :: Maybe StackConfigurationManager
chefConfiguration :: Maybe ChefConfiguration
attributes :: Maybe (HashMap StackAttributesKeys (Maybe Text))
agentVersion :: Maybe Text
$sel:stackId:UpdateStack' :: UpdateStack -> Text
$sel:useOpsworksSecurityGroups:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:useCustomCookbooks:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:serviceRoleArn:UpdateStack' :: UpdateStack -> Maybe Text
$sel:name:UpdateStack' :: UpdateStack -> Maybe Text
$sel:hostnameTheme:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultSubnetId:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultSshKeyName:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultRootDeviceType:UpdateStack' :: UpdateStack -> Maybe RootDeviceType
$sel:defaultOs:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultInstanceProfileArn:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultAvailabilityZone:UpdateStack' :: UpdateStack -> Maybe Text
$sel:customJson:UpdateStack' :: UpdateStack -> Maybe Text
$sel:customCookbooksSource:UpdateStack' :: UpdateStack -> Maybe Source
$sel:configurationManager:UpdateStack' :: UpdateStack -> Maybe StackConfigurationManager
$sel:chefConfiguration:UpdateStack' :: UpdateStack -> Maybe ChefConfiguration
$sel:attributes:UpdateStack' :: UpdateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:agentVersion:UpdateStack' :: UpdateStack -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
agentVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ChefConfiguration
chefConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StackConfigurationManager
configurationManager
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Source
customCookbooksSource
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customJson
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultAvailabilityZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultInstanceProfileArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultOs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RootDeviceType
defaultRootDeviceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultSshKeyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultSubnetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hostnameTheme
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serviceRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
useCustomCookbooks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Bool
useOpsworksSecurityGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
stackId
instance Data.ToHeaders UpdateStack where
toHeaders :: UpdateStack -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"OpsWorks_20130218.UpdateStack" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateStack where
toJSON :: UpdateStack -> Value
toJSON UpdateStack' {Maybe Bool
Maybe Text
Maybe (HashMap StackAttributesKeys (Maybe Text))
Maybe ChefConfiguration
Maybe RootDeviceType
Maybe Source
Maybe StackConfigurationManager
Text
stackId :: Text
useOpsworksSecurityGroups :: Maybe Bool
useCustomCookbooks :: Maybe Bool
serviceRoleArn :: Maybe Text
name :: Maybe Text
hostnameTheme :: Maybe Text
defaultSubnetId :: Maybe Text
defaultSshKeyName :: Maybe Text
defaultRootDeviceType :: Maybe RootDeviceType
defaultOs :: Maybe Text
defaultInstanceProfileArn :: Maybe Text
defaultAvailabilityZone :: Maybe Text
customJson :: Maybe Text
customCookbooksSource :: Maybe Source
configurationManager :: Maybe StackConfigurationManager
chefConfiguration :: Maybe ChefConfiguration
attributes :: Maybe (HashMap StackAttributesKeys (Maybe Text))
agentVersion :: Maybe Text
$sel:stackId:UpdateStack' :: UpdateStack -> Text
$sel:useOpsworksSecurityGroups:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:useCustomCookbooks:UpdateStack' :: UpdateStack -> Maybe Bool
$sel:serviceRoleArn:UpdateStack' :: UpdateStack -> Maybe Text
$sel:name:UpdateStack' :: UpdateStack -> Maybe Text
$sel:hostnameTheme:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultSubnetId:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultSshKeyName:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultRootDeviceType:UpdateStack' :: UpdateStack -> Maybe RootDeviceType
$sel:defaultOs:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultInstanceProfileArn:UpdateStack' :: UpdateStack -> Maybe Text
$sel:defaultAvailabilityZone:UpdateStack' :: UpdateStack -> Maybe Text
$sel:customJson:UpdateStack' :: UpdateStack -> Maybe Text
$sel:customCookbooksSource:UpdateStack' :: UpdateStack -> Maybe Source
$sel:configurationManager:UpdateStack' :: UpdateStack -> Maybe StackConfigurationManager
$sel:chefConfiguration:UpdateStack' :: UpdateStack -> Maybe ChefConfiguration
$sel:attributes:UpdateStack' :: UpdateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:agentVersion:UpdateStack' :: UpdateStack -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AgentVersion" 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
agentVersion,
(Key
"Attributes" 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 StackAttributesKeys (Maybe Text))
attributes,
(Key
"ChefConfiguration" 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 ChefConfiguration
chefConfiguration,
(Key
"ConfigurationManager" 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 StackConfigurationManager
configurationManager,
(Key
"CustomCookbooksSource" 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 Source
customCookbooksSource,
(Key
"CustomJson" 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
customJson,
(Key
"DefaultAvailabilityZone" 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
defaultAvailabilityZone,
(Key
"DefaultInstanceProfileArn" 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
defaultInstanceProfileArn,
(Key
"DefaultOs" 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
defaultOs,
(Key
"DefaultRootDeviceType" 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 RootDeviceType
defaultRootDeviceType,
(Key
"DefaultSshKeyName" 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
defaultSshKeyName,
(Key
"DefaultSubnetId" 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
defaultSubnetId,
(Key
"HostnameTheme" 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
hostnameTheme,
(Key
"Name" 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
name,
(Key
"ServiceRoleArn" 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
serviceRoleArn,
(Key
"UseCustomCookbooks" 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 Bool
useCustomCookbooks,
(Key
"UseOpsworksSecurityGroups" 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 Bool
useOpsworksSecurityGroups,
forall a. a -> Maybe a
Prelude.Just (Key
"StackId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
stackId)
]
)
instance Data.ToPath UpdateStack where
toPath :: UpdateStack -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateStack where
toQuery :: UpdateStack -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateStackResponse = UpdateStackResponse'
{
}
deriving (UpdateStackResponse -> UpdateStackResponse -> Bool
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]
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
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. 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 ::
UpdateStackResponse
newUpdateStackResponse :: UpdateStackResponse
newUpdateStackResponse = UpdateStackResponse
UpdateStackResponse'
instance Prelude.NFData UpdateStackResponse where
rnf :: UpdateStackResponse -> ()
rnf UpdateStackResponse
_ = ()