{-# 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.CreateStack
(
CreateStack (..),
newCreateStack,
createStack_agentVersion,
createStack_attributes,
createStack_chefConfiguration,
createStack_configurationManager,
createStack_customCookbooksSource,
createStack_customJson,
createStack_defaultAvailabilityZone,
createStack_defaultOs,
createStack_defaultRootDeviceType,
createStack_defaultSshKeyName,
createStack_defaultSubnetId,
createStack_hostnameTheme,
createStack_useCustomCookbooks,
createStack_useOpsworksSecurityGroups,
createStack_vpcId,
createStack_name,
createStack_region,
createStack_serviceRoleArn,
createStack_defaultInstanceProfileArn,
CreateStackResponse (..),
newCreateStackResponse,
createStackResponse_stackId,
createStackResponse_httpStatus,
)
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 CreateStack = CreateStack'
{
CreateStack -> Maybe Text
agentVersion :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes :: Prelude.Maybe (Prelude.HashMap StackAttributesKeys (Prelude.Maybe Prelude.Text)),
CreateStack -> Maybe ChefConfiguration
chefConfiguration :: Prelude.Maybe ChefConfiguration,
CreateStack -> Maybe StackConfigurationManager
configurationManager :: Prelude.Maybe StackConfigurationManager,
CreateStack -> Maybe Source
customCookbooksSource :: Prelude.Maybe Source,
CreateStack -> Maybe Text
customJson :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe Text
defaultAvailabilityZone :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe Text
defaultOs :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe RootDeviceType
defaultRootDeviceType :: Prelude.Maybe RootDeviceType,
CreateStack -> Maybe Text
defaultSshKeyName :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe Text
defaultSubnetId :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe Text
hostnameTheme :: Prelude.Maybe Prelude.Text,
CreateStack -> Maybe Bool
useCustomCookbooks :: Prelude.Maybe Prelude.Bool,
CreateStack -> Maybe Bool
useOpsworksSecurityGroups :: Prelude.Maybe Prelude.Bool,
CreateStack -> Maybe Text
vpcId :: Prelude.Maybe Prelude.Text,
CreateStack -> Text
name :: Prelude.Text,
CreateStack -> Text
region :: Prelude.Text,
CreateStack -> Text
serviceRoleArn :: Prelude.Text,
CreateStack -> Text
defaultInstanceProfileArn :: Prelude.Text
}
deriving (CreateStack -> CreateStack -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateStack -> CreateStack -> Bool
$c/= :: CreateStack -> CreateStack -> Bool
== :: CreateStack -> CreateStack -> Bool
$c== :: CreateStack -> CreateStack -> Bool
Prelude.Eq, ReadPrec [CreateStack]
ReadPrec CreateStack
Int -> ReadS CreateStack
ReadS [CreateStack]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateStack]
$creadListPrec :: ReadPrec [CreateStack]
readPrec :: ReadPrec CreateStack
$creadPrec :: ReadPrec CreateStack
readList :: ReadS [CreateStack]
$creadList :: ReadS [CreateStack]
readsPrec :: Int -> ReadS CreateStack
$creadsPrec :: Int -> ReadS CreateStack
Prelude.Read, Int -> CreateStack -> ShowS
[CreateStack] -> ShowS
CreateStack -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateStack] -> ShowS
$cshowList :: [CreateStack] -> ShowS
show :: CreateStack -> String
$cshow :: CreateStack -> String
showsPrec :: Int -> CreateStack -> ShowS
$cshowsPrec :: Int -> CreateStack -> ShowS
Prelude.Show, forall x. Rep CreateStack x -> CreateStack
forall x. CreateStack -> Rep CreateStack x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateStack x -> CreateStack
$cfrom :: forall x. CreateStack -> Rep CreateStack x
Prelude.Generic)
newCreateStack ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateStack
newCreateStack :: Text -> Text -> Text -> Text -> CreateStack
newCreateStack
Text
pName_
Text
pRegion_
Text
pServiceRoleArn_
Text
pDefaultInstanceProfileArn_ =
CreateStack'
{ $sel:agentVersion:CreateStack' :: Maybe Text
agentVersion = forall a. Maybe a
Prelude.Nothing,
$sel:attributes:CreateStack' :: Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes = forall a. Maybe a
Prelude.Nothing,
$sel:chefConfiguration:CreateStack' :: Maybe ChefConfiguration
chefConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:configurationManager:CreateStack' :: Maybe StackConfigurationManager
configurationManager = forall a. Maybe a
Prelude.Nothing,
$sel:customCookbooksSource:CreateStack' :: Maybe Source
customCookbooksSource = forall a. Maybe a
Prelude.Nothing,
$sel:customJson:CreateStack' :: Maybe Text
customJson = forall a. Maybe a
Prelude.Nothing,
$sel:defaultAvailabilityZone:CreateStack' :: Maybe Text
defaultAvailabilityZone = forall a. Maybe a
Prelude.Nothing,
$sel:defaultOs:CreateStack' :: Maybe Text
defaultOs = forall a. Maybe a
Prelude.Nothing,
$sel:defaultRootDeviceType:CreateStack' :: Maybe RootDeviceType
defaultRootDeviceType = forall a. Maybe a
Prelude.Nothing,
$sel:defaultSshKeyName:CreateStack' :: Maybe Text
defaultSshKeyName = forall a. Maybe a
Prelude.Nothing,
$sel:defaultSubnetId:CreateStack' :: Maybe Text
defaultSubnetId = forall a. Maybe a
Prelude.Nothing,
$sel:hostnameTheme:CreateStack' :: Maybe Text
hostnameTheme = forall a. Maybe a
Prelude.Nothing,
$sel:useCustomCookbooks:CreateStack' :: Maybe Bool
useCustomCookbooks = forall a. Maybe a
Prelude.Nothing,
$sel:useOpsworksSecurityGroups:CreateStack' :: Maybe Bool
useOpsworksSecurityGroups = forall a. Maybe a
Prelude.Nothing,
$sel:vpcId:CreateStack' :: Maybe Text
vpcId = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateStack' :: Text
name = Text
pName_,
$sel:region:CreateStack' :: Text
region = Text
pRegion_,
$sel:serviceRoleArn:CreateStack' :: Text
serviceRoleArn = Text
pServiceRoleArn_,
$sel:defaultInstanceProfileArn:CreateStack' :: Text
defaultInstanceProfileArn =
Text
pDefaultInstanceProfileArn_
}
createStack_agentVersion :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_agentVersion :: Lens' CreateStack (Maybe Text)
createStack_agentVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
agentVersion :: Maybe Text
$sel:agentVersion:CreateStack' :: CreateStack -> Maybe Text
agentVersion} -> Maybe Text
agentVersion) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:agentVersion:CreateStack' :: Maybe Text
agentVersion = Maybe Text
a} :: CreateStack)
createStack_attributes :: Lens.Lens' CreateStack (Prelude.Maybe (Prelude.HashMap StackAttributesKeys (Prelude.Maybe Prelude.Text)))
createStack_attributes :: Lens'
CreateStack (Maybe (HashMap StackAttributesKeys (Maybe Text)))
createStack_attributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes :: Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:attributes:CreateStack' :: CreateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes} -> Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes) (\s :: CreateStack
s@CreateStack' {} Maybe (HashMap StackAttributesKeys (Maybe Text))
a -> CreateStack
s {$sel:attributes:CreateStack' :: Maybe (HashMap StackAttributesKeys (Maybe Text))
attributes = Maybe (HashMap StackAttributesKeys (Maybe Text))
a} :: CreateStack) 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
createStack_chefConfiguration :: Lens.Lens' CreateStack (Prelude.Maybe ChefConfiguration)
createStack_chefConfiguration :: Lens' CreateStack (Maybe ChefConfiguration)
createStack_chefConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe ChefConfiguration
chefConfiguration :: Maybe ChefConfiguration
$sel:chefConfiguration:CreateStack' :: CreateStack -> Maybe ChefConfiguration
chefConfiguration} -> Maybe ChefConfiguration
chefConfiguration) (\s :: CreateStack
s@CreateStack' {} Maybe ChefConfiguration
a -> CreateStack
s {$sel:chefConfiguration:CreateStack' :: Maybe ChefConfiguration
chefConfiguration = Maybe ChefConfiguration
a} :: CreateStack)
createStack_configurationManager :: Lens.Lens' CreateStack (Prelude.Maybe StackConfigurationManager)
createStack_configurationManager :: Lens' CreateStack (Maybe StackConfigurationManager)
createStack_configurationManager = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe StackConfigurationManager
configurationManager :: Maybe StackConfigurationManager
$sel:configurationManager:CreateStack' :: CreateStack -> Maybe StackConfigurationManager
configurationManager} -> Maybe StackConfigurationManager
configurationManager) (\s :: CreateStack
s@CreateStack' {} Maybe StackConfigurationManager
a -> CreateStack
s {$sel:configurationManager:CreateStack' :: Maybe StackConfigurationManager
configurationManager = Maybe StackConfigurationManager
a} :: CreateStack)
createStack_customCookbooksSource :: Lens.Lens' CreateStack (Prelude.Maybe Source)
createStack_customCookbooksSource :: Lens' CreateStack (Maybe Source)
createStack_customCookbooksSource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Source
customCookbooksSource :: Maybe Source
$sel:customCookbooksSource:CreateStack' :: CreateStack -> Maybe Source
customCookbooksSource} -> Maybe Source
customCookbooksSource) (\s :: CreateStack
s@CreateStack' {} Maybe Source
a -> CreateStack
s {$sel:customCookbooksSource:CreateStack' :: Maybe Source
customCookbooksSource = Maybe Source
a} :: CreateStack)
createStack_customJson :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_customJson :: Lens' CreateStack (Maybe Text)
createStack_customJson = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
customJson :: Maybe Text
$sel:customJson:CreateStack' :: CreateStack -> Maybe Text
customJson} -> Maybe Text
customJson) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:customJson:CreateStack' :: Maybe Text
customJson = Maybe Text
a} :: CreateStack)
createStack_defaultAvailabilityZone :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_defaultAvailabilityZone :: Lens' CreateStack (Maybe Text)
createStack_defaultAvailabilityZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
defaultAvailabilityZone :: Maybe Text
$sel:defaultAvailabilityZone:CreateStack' :: CreateStack -> Maybe Text
defaultAvailabilityZone} -> Maybe Text
defaultAvailabilityZone) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:defaultAvailabilityZone:CreateStack' :: Maybe Text
defaultAvailabilityZone = Maybe Text
a} :: CreateStack)
createStack_defaultOs :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_defaultOs :: Lens' CreateStack (Maybe Text)
createStack_defaultOs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
defaultOs :: Maybe Text
$sel:defaultOs:CreateStack' :: CreateStack -> Maybe Text
defaultOs} -> Maybe Text
defaultOs) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:defaultOs:CreateStack' :: Maybe Text
defaultOs = Maybe Text
a} :: CreateStack)
createStack_defaultRootDeviceType :: Lens.Lens' CreateStack (Prelude.Maybe RootDeviceType)
createStack_defaultRootDeviceType :: Lens' CreateStack (Maybe RootDeviceType)
createStack_defaultRootDeviceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe RootDeviceType
defaultRootDeviceType :: Maybe RootDeviceType
$sel:defaultRootDeviceType:CreateStack' :: CreateStack -> Maybe RootDeviceType
defaultRootDeviceType} -> Maybe RootDeviceType
defaultRootDeviceType) (\s :: CreateStack
s@CreateStack' {} Maybe RootDeviceType
a -> CreateStack
s {$sel:defaultRootDeviceType:CreateStack' :: Maybe RootDeviceType
defaultRootDeviceType = Maybe RootDeviceType
a} :: CreateStack)
createStack_defaultSshKeyName :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_defaultSshKeyName :: Lens' CreateStack (Maybe Text)
createStack_defaultSshKeyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
defaultSshKeyName :: Maybe Text
$sel:defaultSshKeyName:CreateStack' :: CreateStack -> Maybe Text
defaultSshKeyName} -> Maybe Text
defaultSshKeyName) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:defaultSshKeyName:CreateStack' :: Maybe Text
defaultSshKeyName = Maybe Text
a} :: CreateStack)
createStack_defaultSubnetId :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_defaultSubnetId :: Lens' CreateStack (Maybe Text)
createStack_defaultSubnetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
defaultSubnetId :: Maybe Text
$sel:defaultSubnetId:CreateStack' :: CreateStack -> Maybe Text
defaultSubnetId} -> Maybe Text
defaultSubnetId) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:defaultSubnetId:CreateStack' :: Maybe Text
defaultSubnetId = Maybe Text
a} :: CreateStack)
createStack_hostnameTheme :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_hostnameTheme :: Lens' CreateStack (Maybe Text)
createStack_hostnameTheme = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
hostnameTheme :: Maybe Text
$sel:hostnameTheme:CreateStack' :: CreateStack -> Maybe Text
hostnameTheme} -> Maybe Text
hostnameTheme) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:hostnameTheme:CreateStack' :: Maybe Text
hostnameTheme = Maybe Text
a} :: CreateStack)
createStack_useCustomCookbooks :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Bool)
createStack_useCustomCookbooks :: Lens' CreateStack (Maybe Bool)
createStack_useCustomCookbooks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Bool
useCustomCookbooks :: Maybe Bool
$sel:useCustomCookbooks:CreateStack' :: CreateStack -> Maybe Bool
useCustomCookbooks} -> Maybe Bool
useCustomCookbooks) (\s :: CreateStack
s@CreateStack' {} Maybe Bool
a -> CreateStack
s {$sel:useCustomCookbooks:CreateStack' :: Maybe Bool
useCustomCookbooks = Maybe Bool
a} :: CreateStack)
createStack_useOpsworksSecurityGroups :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Bool)
createStack_useOpsworksSecurityGroups :: Lens' CreateStack (Maybe Bool)
createStack_useOpsworksSecurityGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Bool
useOpsworksSecurityGroups :: Maybe Bool
$sel:useOpsworksSecurityGroups:CreateStack' :: CreateStack -> Maybe Bool
useOpsworksSecurityGroups} -> Maybe Bool
useOpsworksSecurityGroups) (\s :: CreateStack
s@CreateStack' {} Maybe Bool
a -> CreateStack
s {$sel:useOpsworksSecurityGroups:CreateStack' :: Maybe Bool
useOpsworksSecurityGroups = Maybe Bool
a} :: CreateStack)
createStack_vpcId :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text)
createStack_vpcId :: Lens' CreateStack (Maybe Text)
createStack_vpcId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Maybe Text
vpcId :: Maybe Text
$sel:vpcId:CreateStack' :: CreateStack -> Maybe Text
vpcId} -> Maybe Text
vpcId) (\s :: CreateStack
s@CreateStack' {} Maybe Text
a -> CreateStack
s {$sel:vpcId:CreateStack' :: Maybe Text
vpcId = Maybe Text
a} :: CreateStack)
createStack_name :: Lens.Lens' CreateStack Prelude.Text
createStack_name :: Lens' CreateStack Text
createStack_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Text
name :: Text
$sel:name:CreateStack' :: CreateStack -> Text
name} -> Text
name) (\s :: CreateStack
s@CreateStack' {} Text
a -> CreateStack
s {$sel:name:CreateStack' :: Text
name = Text
a} :: CreateStack)
createStack_region :: Lens.Lens' CreateStack Prelude.Text
createStack_region :: Lens' CreateStack Text
createStack_region = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Text
region :: Text
$sel:region:CreateStack' :: CreateStack -> Text
region} -> Text
region) (\s :: CreateStack
s@CreateStack' {} Text
a -> CreateStack
s {$sel:region:CreateStack' :: Text
region = Text
a} :: CreateStack)
createStack_serviceRoleArn :: Lens.Lens' CreateStack Prelude.Text
createStack_serviceRoleArn :: Lens' CreateStack Text
createStack_serviceRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Text
serviceRoleArn :: Text
$sel:serviceRoleArn:CreateStack' :: CreateStack -> Text
serviceRoleArn} -> Text
serviceRoleArn) (\s :: CreateStack
s@CreateStack' {} Text
a -> CreateStack
s {$sel:serviceRoleArn:CreateStack' :: Text
serviceRoleArn = Text
a} :: CreateStack)
createStack_defaultInstanceProfileArn :: Lens.Lens' CreateStack Prelude.Text
createStack_defaultInstanceProfileArn :: Lens' CreateStack Text
createStack_defaultInstanceProfileArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStack' {Text
defaultInstanceProfileArn :: Text
$sel:defaultInstanceProfileArn:CreateStack' :: CreateStack -> Text
defaultInstanceProfileArn} -> Text
defaultInstanceProfileArn) (\s :: CreateStack
s@CreateStack' {} Text
a -> CreateStack
s {$sel:defaultInstanceProfileArn:CreateStack' :: Text
defaultInstanceProfileArn = Text
a} :: CreateStack)
instance Core.AWSRequest CreateStack where
type AWSResponse CreateStack = CreateStackResponse
request :: (Service -> Service) -> CreateStack -> Request CreateStack
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 CreateStack
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateStack)))
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 Text -> Int -> CreateStackResponse
CreateStackResponse'
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
"StackId")
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 CreateStack where
hashWithSalt :: Int -> CreateStack -> Int
hashWithSalt Int
_salt CreateStack' {Maybe Bool
Maybe Text
Maybe (HashMap StackAttributesKeys (Maybe Text))
Maybe ChefConfiguration
Maybe RootDeviceType
Maybe Source
Maybe StackConfigurationManager
Text
defaultInstanceProfileArn :: Text
serviceRoleArn :: Text
region :: Text
name :: Text
vpcId :: Maybe Text
useOpsworksSecurityGroups :: Maybe Bool
useCustomCookbooks :: Maybe Bool
hostnameTheme :: Maybe Text
defaultSubnetId :: Maybe Text
defaultSshKeyName :: Maybe Text
defaultRootDeviceType :: Maybe RootDeviceType
defaultOs :: 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:defaultInstanceProfileArn:CreateStack' :: CreateStack -> Text
$sel:serviceRoleArn:CreateStack' :: CreateStack -> Text
$sel:region:CreateStack' :: CreateStack -> Text
$sel:name:CreateStack' :: CreateStack -> Text
$sel:vpcId:CreateStack' :: CreateStack -> Maybe Text
$sel:useOpsworksSecurityGroups:CreateStack' :: CreateStack -> Maybe Bool
$sel:useCustomCookbooks:CreateStack' :: CreateStack -> Maybe Bool
$sel:hostnameTheme:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultSubnetId:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultSshKeyName:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultRootDeviceType:CreateStack' :: CreateStack -> Maybe RootDeviceType
$sel:defaultOs:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultAvailabilityZone:CreateStack' :: CreateStack -> Maybe Text
$sel:customJson:CreateStack' :: CreateStack -> Maybe Text
$sel:customCookbooksSource:CreateStack' :: CreateStack -> Maybe Source
$sel:configurationManager:CreateStack' :: CreateStack -> Maybe StackConfigurationManager
$sel:chefConfiguration:CreateStack' :: CreateStack -> Maybe ChefConfiguration
$sel:attributes:CreateStack' :: CreateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:agentVersion:CreateStack' :: CreateStack -> 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
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 Bool
useCustomCookbooks
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
useOpsworksSecurityGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
vpcId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
region
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
defaultInstanceProfileArn
instance Prelude.NFData CreateStack where
rnf :: CreateStack -> ()
rnf CreateStack' {Maybe Bool
Maybe Text
Maybe (HashMap StackAttributesKeys (Maybe Text))
Maybe ChefConfiguration
Maybe RootDeviceType
Maybe Source
Maybe StackConfigurationManager
Text
defaultInstanceProfileArn :: Text
serviceRoleArn :: Text
region :: Text
name :: Text
vpcId :: Maybe Text
useOpsworksSecurityGroups :: Maybe Bool
useCustomCookbooks :: Maybe Bool
hostnameTheme :: Maybe Text
defaultSubnetId :: Maybe Text
defaultSshKeyName :: Maybe Text
defaultRootDeviceType :: Maybe RootDeviceType
defaultOs :: 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:defaultInstanceProfileArn:CreateStack' :: CreateStack -> Text
$sel:serviceRoleArn:CreateStack' :: CreateStack -> Text
$sel:region:CreateStack' :: CreateStack -> Text
$sel:name:CreateStack' :: CreateStack -> Text
$sel:vpcId:CreateStack' :: CreateStack -> Maybe Text
$sel:useOpsworksSecurityGroups:CreateStack' :: CreateStack -> Maybe Bool
$sel:useCustomCookbooks:CreateStack' :: CreateStack -> Maybe Bool
$sel:hostnameTheme:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultSubnetId:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultSshKeyName:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultRootDeviceType:CreateStack' :: CreateStack -> Maybe RootDeviceType
$sel:defaultOs:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultAvailabilityZone:CreateStack' :: CreateStack -> Maybe Text
$sel:customJson:CreateStack' :: CreateStack -> Maybe Text
$sel:customCookbooksSource:CreateStack' :: CreateStack -> Maybe Source
$sel:configurationManager:CreateStack' :: CreateStack -> Maybe StackConfigurationManager
$sel:chefConfiguration:CreateStack' :: CreateStack -> Maybe ChefConfiguration
$sel:attributes:CreateStack' :: CreateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:agentVersion:CreateStack' :: CreateStack -> 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
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 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 Maybe Text
vpcId
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 Text
region
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Text
defaultInstanceProfileArn
instance Data.ToHeaders CreateStack where
toHeaders :: CreateStack -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"OpsWorks_20130218.CreateStack" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateStack where
toJSON :: CreateStack -> Value
toJSON CreateStack' {Maybe Bool
Maybe Text
Maybe (HashMap StackAttributesKeys (Maybe Text))
Maybe ChefConfiguration
Maybe RootDeviceType
Maybe Source
Maybe StackConfigurationManager
Text
defaultInstanceProfileArn :: Text
serviceRoleArn :: Text
region :: Text
name :: Text
vpcId :: Maybe Text
useOpsworksSecurityGroups :: Maybe Bool
useCustomCookbooks :: Maybe Bool
hostnameTheme :: Maybe Text
defaultSubnetId :: Maybe Text
defaultSshKeyName :: Maybe Text
defaultRootDeviceType :: Maybe RootDeviceType
defaultOs :: 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:defaultInstanceProfileArn:CreateStack' :: CreateStack -> Text
$sel:serviceRoleArn:CreateStack' :: CreateStack -> Text
$sel:region:CreateStack' :: CreateStack -> Text
$sel:name:CreateStack' :: CreateStack -> Text
$sel:vpcId:CreateStack' :: CreateStack -> Maybe Text
$sel:useOpsworksSecurityGroups:CreateStack' :: CreateStack -> Maybe Bool
$sel:useCustomCookbooks:CreateStack' :: CreateStack -> Maybe Bool
$sel:hostnameTheme:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultSubnetId:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultSshKeyName:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultRootDeviceType:CreateStack' :: CreateStack -> Maybe RootDeviceType
$sel:defaultOs:CreateStack' :: CreateStack -> Maybe Text
$sel:defaultAvailabilityZone:CreateStack' :: CreateStack -> Maybe Text
$sel:customJson:CreateStack' :: CreateStack -> Maybe Text
$sel:customCookbooksSource:CreateStack' :: CreateStack -> Maybe Source
$sel:configurationManager:CreateStack' :: CreateStack -> Maybe StackConfigurationManager
$sel:chefConfiguration:CreateStack' :: CreateStack -> Maybe ChefConfiguration
$sel:attributes:CreateStack' :: CreateStack -> Maybe (HashMap StackAttributesKeys (Maybe Text))
$sel:agentVersion:CreateStack' :: CreateStack -> 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
"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
"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,
(Key
"VpcId" 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
vpcId,
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
"Region" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
region),
forall a. a -> Maybe a
Prelude.Just
(Key
"ServiceRoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
serviceRoleArn),
forall a. a -> Maybe a
Prelude.Just
( Key
"DefaultInstanceProfileArn"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
defaultInstanceProfileArn
)
]
)
instance Data.ToPath CreateStack where
toPath :: CreateStack -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateStack where
toQuery :: CreateStack -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateStackResponse = CreateStackResponse'
{
CreateStackResponse -> Maybe Text
stackId :: Prelude.Maybe Prelude.Text,
CreateStackResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateStackResponse -> CreateStackResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateStackResponse -> CreateStackResponse -> Bool
$c/= :: CreateStackResponse -> CreateStackResponse -> Bool
== :: CreateStackResponse -> CreateStackResponse -> Bool
$c== :: CreateStackResponse -> CreateStackResponse -> Bool
Prelude.Eq, ReadPrec [CreateStackResponse]
ReadPrec CreateStackResponse
Int -> ReadS CreateStackResponse
ReadS [CreateStackResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateStackResponse]
$creadListPrec :: ReadPrec [CreateStackResponse]
readPrec :: ReadPrec CreateStackResponse
$creadPrec :: ReadPrec CreateStackResponse
readList :: ReadS [CreateStackResponse]
$creadList :: ReadS [CreateStackResponse]
readsPrec :: Int -> ReadS CreateStackResponse
$creadsPrec :: Int -> ReadS CreateStackResponse
Prelude.Read, Int -> CreateStackResponse -> ShowS
[CreateStackResponse] -> ShowS
CreateStackResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateStackResponse] -> ShowS
$cshowList :: [CreateStackResponse] -> ShowS
show :: CreateStackResponse -> String
$cshow :: CreateStackResponse -> String
showsPrec :: Int -> CreateStackResponse -> ShowS
$cshowsPrec :: Int -> CreateStackResponse -> ShowS
Prelude.Show, forall x. Rep CreateStackResponse x -> CreateStackResponse
forall x. CreateStackResponse -> Rep CreateStackResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateStackResponse x -> CreateStackResponse
$cfrom :: forall x. CreateStackResponse -> Rep CreateStackResponse x
Prelude.Generic)
newCreateStackResponse ::
Prelude.Int ->
CreateStackResponse
newCreateStackResponse :: Int -> CreateStackResponse
newCreateStackResponse Int
pHttpStatus_ =
CreateStackResponse'
{ $sel:stackId:CreateStackResponse' :: Maybe Text
stackId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateStackResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createStackResponse_stackId :: Lens.Lens' CreateStackResponse (Prelude.Maybe Prelude.Text)
createStackResponse_stackId :: Lens' CreateStackResponse (Maybe Text)
createStackResponse_stackId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStackResponse' {Maybe Text
stackId :: Maybe Text
$sel:stackId:CreateStackResponse' :: CreateStackResponse -> Maybe Text
stackId} -> Maybe Text
stackId) (\s :: CreateStackResponse
s@CreateStackResponse' {} Maybe Text
a -> CreateStackResponse
s {$sel:stackId:CreateStackResponse' :: Maybe Text
stackId = Maybe Text
a} :: CreateStackResponse)
createStackResponse_httpStatus :: Lens.Lens' CreateStackResponse Prelude.Int
createStackResponse_httpStatus :: Lens' CreateStackResponse Int
createStackResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateStackResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateStackResponse' :: CreateStackResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateStackResponse
s@CreateStackResponse' {} Int
a -> CreateStackResponse
s {$sel:httpStatus:CreateStackResponse' :: Int
httpStatus = Int
a} :: CreateStackResponse)
instance Prelude.NFData CreateStackResponse where
rnf :: CreateStackResponse -> ()
rnf CreateStackResponse' {Int
Maybe Text
httpStatus :: Int
stackId :: Maybe Text
$sel:httpStatus:CreateStackResponse' :: CreateStackResponse -> Int
$sel:stackId:CreateStackResponse' :: CreateStackResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
stackId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus