diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -7,9 +7,8 @@ ## Version - -`1.6.1` - + +`2.0` - Derived from API version @2010-05-15@ of the AWS service descriptions, licensed under Apache 2.0. ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.CloudFormation](http://hackage.haskell.org/package/amazonka-cloudformation/docs/Network-AWS-CloudFormation.html) +See [Amazonka.CloudFormation](http://hackage.haskell.org/package/amazonka-cloudformation/docs/Amazonka-CloudFormation.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started. diff --git a/Setup.hs b/Setup.hs deleted file mode 100644 --- a/Setup.hs +++ /dev/null @@ -1,2 +0,0 @@ -import Distribution.Simple -main = defaultMain diff --git a/amazonka-cloudformation.cabal b/amazonka-cloudformation.cabal --- a/amazonka-cloudformation.cabal +++ b/amazonka-cloudformation.cabal @@ -1,126 +1,261 @@ -name: amazonka-cloudformation -version: 1.6.1 -synopsis: Amazon CloudFormation SDK. -homepage: https://github.com/brendanhay/amazonka -bug-reports: https://github.com/brendanhay/amazonka/issues -license: MPL-2.0 -license-file: LICENSE -author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2013-2018 Brendan Hay -category: Network, AWS, Cloud, Distributed Computing -build-type: Simple -cabal-version: >= 1.10 -extra-source-files: README.md fixture/*.yaml fixture/*.proto src/.gitkeep +cabal-version: 2.2 +name: amazonka-cloudformation +version: 2.0 +synopsis: Amazon CloudFormation SDK. +homepage: https://github.com/brendanhay/amazonka +bug-reports: https://github.com/brendanhay/amazonka/issues +license: MPL-2.0 +license-file: LICENSE +author: Brendan Hay +maintainer: + Brendan Hay , Jack Kelly + +copyright: Copyright (c) 2013-2023 Brendan Hay +category: AWS +build-type: Simple +extra-source-files: + fixture/*.proto + fixture/*.yaml + README.md + src/.gitkeep + description: - The types from this library are intended to be used with - , which provides - mechanisms for specifying AuthN/AuthZ information, sending requests, - and receiving responses. - . - Lenses are used for constructing and manipulating types, - due to the depth of nesting of AWS types and transparency regarding - de/serialisation into more palatable Haskell values. - The provided lenses should be compatible with any of the major lens libraries - such as or - . - . - See "Network.AWS.CloudFormation" or - to get started. + Derived from API version @2010-05-15@ of the AWS service descriptions, licensed under Apache 2.0. + . + The types from this library are intended to be used with , + which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses. + . + It is recommended to use generic lenses or optics from packages such as or to modify optional fields and deconstruct responses. + . + Generated lenses can be found in "Amazonka.CloudFormation.Lens" and are + suitable for use with a lens package such as or . + . + See "Amazonka.CloudFormation" and the to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git - subdir: amazonka-cloudformation + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-cloudformation library - default-language: Haskell2010 - hs-source-dirs: src gen - - ghc-options: - -Wall - -fwarn-incomplete-uni-patterns - -fwarn-incomplete-record-updates - -funbox-strict-fields - - exposed-modules: - Network.AWS.CloudFormation - , Network.AWS.CloudFormation.CancelUpdateStack - , Network.AWS.CloudFormation.ContinueUpdateRollback - , Network.AWS.CloudFormation.CreateChangeSet - , Network.AWS.CloudFormation.CreateStack - , Network.AWS.CloudFormation.CreateStackInstances - , Network.AWS.CloudFormation.CreateStackSet - , Network.AWS.CloudFormation.DeleteChangeSet - , Network.AWS.CloudFormation.DeleteStack - , Network.AWS.CloudFormation.DeleteStackInstances - , Network.AWS.CloudFormation.DeleteStackSet - , Network.AWS.CloudFormation.DescribeAccountLimits - , Network.AWS.CloudFormation.DescribeChangeSet - , Network.AWS.CloudFormation.DescribeStackEvents - , Network.AWS.CloudFormation.DescribeStackInstance - , Network.AWS.CloudFormation.DescribeStackResource - , Network.AWS.CloudFormation.DescribeStackResources - , Network.AWS.CloudFormation.DescribeStackSet - , Network.AWS.CloudFormation.DescribeStackSetOperation - , Network.AWS.CloudFormation.DescribeStacks - , Network.AWS.CloudFormation.EstimateTemplateCost - , Network.AWS.CloudFormation.ExecuteChangeSet - , Network.AWS.CloudFormation.GetStackPolicy - , Network.AWS.CloudFormation.GetTemplate - , Network.AWS.CloudFormation.GetTemplateSummary - , Network.AWS.CloudFormation.ListChangeSets - , Network.AWS.CloudFormation.ListExports - , Network.AWS.CloudFormation.ListImports - , Network.AWS.CloudFormation.ListStackInstances - , Network.AWS.CloudFormation.ListStackResources - , Network.AWS.CloudFormation.ListStackSetOperationResults - , Network.AWS.CloudFormation.ListStackSetOperations - , Network.AWS.CloudFormation.ListStackSets - , Network.AWS.CloudFormation.ListStacks - , Network.AWS.CloudFormation.SetStackPolicy - , Network.AWS.CloudFormation.SignalResource - , Network.AWS.CloudFormation.StopStackSetOperation - , Network.AWS.CloudFormation.Types - , Network.AWS.CloudFormation.UpdateStack - , Network.AWS.CloudFormation.UpdateStackInstances - , Network.AWS.CloudFormation.UpdateStackSet - , Network.AWS.CloudFormation.UpdateTerminationProtection - , Network.AWS.CloudFormation.ValidateTemplate - , Network.AWS.CloudFormation.Waiters + default-language: Haskell2010 + hs-source-dirs: src gen + ghc-options: + -Wall -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates -funbox-strict-fields - other-modules: - Network.AWS.CloudFormation.Types.Product - , Network.AWS.CloudFormation.Types.Sum + exposed-modules: + Amazonka.CloudFormation + Amazonka.CloudFormation.ActivateType + Amazonka.CloudFormation.BatchDescribeTypeConfigurations + Amazonka.CloudFormation.CancelUpdateStack + Amazonka.CloudFormation.ContinueUpdateRollback + Amazonka.CloudFormation.CreateChangeSet + Amazonka.CloudFormation.CreateStack + Amazonka.CloudFormation.CreateStackInstances + Amazonka.CloudFormation.CreateStackSet + Amazonka.CloudFormation.DeactivateType + Amazonka.CloudFormation.DeleteChangeSet + Amazonka.CloudFormation.DeleteStack + Amazonka.CloudFormation.DeleteStackInstances + Amazonka.CloudFormation.DeleteStackSet + Amazonka.CloudFormation.DeregisterType + Amazonka.CloudFormation.DescribeAccountLimits + Amazonka.CloudFormation.DescribeChangeSet + Amazonka.CloudFormation.DescribeChangeSetHooks + Amazonka.CloudFormation.DescribePublisher + Amazonka.CloudFormation.DescribeStackDriftDetectionStatus + Amazonka.CloudFormation.DescribeStackEvents + Amazonka.CloudFormation.DescribeStackInstance + Amazonka.CloudFormation.DescribeStackResource + Amazonka.CloudFormation.DescribeStackResourceDrifts + Amazonka.CloudFormation.DescribeStackResources + Amazonka.CloudFormation.DescribeStacks + Amazonka.CloudFormation.DescribeStackSet + Amazonka.CloudFormation.DescribeStackSetOperation + Amazonka.CloudFormation.DescribeType + Amazonka.CloudFormation.DescribeTypeRegistration + Amazonka.CloudFormation.DetectStackDrift + Amazonka.CloudFormation.DetectStackResourceDrift + Amazonka.CloudFormation.DetectStackSetDrift + Amazonka.CloudFormation.EstimateTemplateCost + Amazonka.CloudFormation.ExecuteChangeSet + Amazonka.CloudFormation.GetStackPolicy + Amazonka.CloudFormation.GetTemplate + Amazonka.CloudFormation.GetTemplateSummary + Amazonka.CloudFormation.ImportStacksToStackSet + Amazonka.CloudFormation.Lens + Amazonka.CloudFormation.ListChangeSets + Amazonka.CloudFormation.ListExports + Amazonka.CloudFormation.ListImports + Amazonka.CloudFormation.ListStackInstances + Amazonka.CloudFormation.ListStackResources + Amazonka.CloudFormation.ListStacks + Amazonka.CloudFormation.ListStackSetOperationResults + Amazonka.CloudFormation.ListStackSetOperations + Amazonka.CloudFormation.ListStackSets + Amazonka.CloudFormation.ListTypeRegistrations + Amazonka.CloudFormation.ListTypes + Amazonka.CloudFormation.ListTypeVersions + Amazonka.CloudFormation.PublishType + Amazonka.CloudFormation.RecordHandlerProgress + Amazonka.CloudFormation.RegisterPublisher + Amazonka.CloudFormation.RegisterType + Amazonka.CloudFormation.RollbackStack + Amazonka.CloudFormation.SetStackPolicy + Amazonka.CloudFormation.SetTypeConfiguration + Amazonka.CloudFormation.SetTypeDefaultVersion + Amazonka.CloudFormation.SignalResource + Amazonka.CloudFormation.StopStackSetOperation + Amazonka.CloudFormation.TestType + Amazonka.CloudFormation.Types + Amazonka.CloudFormation.Types.AccountFilterType + Amazonka.CloudFormation.Types.AccountGateResult + Amazonka.CloudFormation.Types.AccountGateStatus + Amazonka.CloudFormation.Types.AccountLimit + Amazonka.CloudFormation.Types.AutoDeployment + Amazonka.CloudFormation.Types.BatchDescribeTypeConfigurationsError + Amazonka.CloudFormation.Types.CallAs + Amazonka.CloudFormation.Types.Capability + Amazonka.CloudFormation.Types.Category + Amazonka.CloudFormation.Types.Change + Amazonka.CloudFormation.Types.ChangeAction + Amazonka.CloudFormation.Types.ChangeSetHook + Amazonka.CloudFormation.Types.ChangeSetHookResourceTargetDetails + Amazonka.CloudFormation.Types.ChangeSetHooksStatus + Amazonka.CloudFormation.Types.ChangeSetHookTargetDetails + Amazonka.CloudFormation.Types.ChangeSetStatus + Amazonka.CloudFormation.Types.ChangeSetSummary + Amazonka.CloudFormation.Types.ChangeSetType + Amazonka.CloudFormation.Types.ChangeSource + Amazonka.CloudFormation.Types.ChangeType + Amazonka.CloudFormation.Types.DeploymentTargets + Amazonka.CloudFormation.Types.DeprecatedStatus + Amazonka.CloudFormation.Types.DifferenceType + Amazonka.CloudFormation.Types.EvaluationType + Amazonka.CloudFormation.Types.ExecutionStatus + Amazonka.CloudFormation.Types.Export + Amazonka.CloudFormation.Types.HandlerErrorCode + Amazonka.CloudFormation.Types.HookFailureMode + Amazonka.CloudFormation.Types.HookInvocationPoint + Amazonka.CloudFormation.Types.HookStatus + Amazonka.CloudFormation.Types.HookTargetType + Amazonka.CloudFormation.Types.IdentityProvider + Amazonka.CloudFormation.Types.LoggingConfig + Amazonka.CloudFormation.Types.ManagedExecution + Amazonka.CloudFormation.Types.ModuleInfo + Amazonka.CloudFormation.Types.OnFailure + Amazonka.CloudFormation.Types.OperationResultFilter + Amazonka.CloudFormation.Types.OperationResultFilterName + Amazonka.CloudFormation.Types.OperationStatus + Amazonka.CloudFormation.Types.Output + Amazonka.CloudFormation.Types.Parameter + Amazonka.CloudFormation.Types.ParameterConstraints + Amazonka.CloudFormation.Types.ParameterDeclaration + Amazonka.CloudFormation.Types.PermissionModels + Amazonka.CloudFormation.Types.PhysicalResourceIdContextKeyValuePair + Amazonka.CloudFormation.Types.PropertyDifference + Amazonka.CloudFormation.Types.ProvisioningType + Amazonka.CloudFormation.Types.PublisherStatus + Amazonka.CloudFormation.Types.RegionConcurrencyType + Amazonka.CloudFormation.Types.RegistrationStatus + Amazonka.CloudFormation.Types.RegistryType + Amazonka.CloudFormation.Types.Replacement + Amazonka.CloudFormation.Types.RequiredActivatedType + Amazonka.CloudFormation.Types.RequiresRecreation + Amazonka.CloudFormation.Types.ResourceAttribute + Amazonka.CloudFormation.Types.ResourceChange + Amazonka.CloudFormation.Types.ResourceChangeDetail + Amazonka.CloudFormation.Types.ResourceIdentifierSummary + Amazonka.CloudFormation.Types.ResourceSignalStatus + Amazonka.CloudFormation.Types.ResourceStatus + Amazonka.CloudFormation.Types.ResourceTargetDefinition + Amazonka.CloudFormation.Types.ResourceToImport + Amazonka.CloudFormation.Types.RollbackConfiguration + Amazonka.CloudFormation.Types.RollbackTrigger + Amazonka.CloudFormation.Types.Stack + Amazonka.CloudFormation.Types.StackDriftDetectionStatus + Amazonka.CloudFormation.Types.StackDriftInformation + Amazonka.CloudFormation.Types.StackDriftInformationSummary + Amazonka.CloudFormation.Types.StackDriftStatus + Amazonka.CloudFormation.Types.StackEvent + Amazonka.CloudFormation.Types.StackInstance + Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus + Amazonka.CloudFormation.Types.StackInstanceDetailedStatus + Amazonka.CloudFormation.Types.StackInstanceFilter + Amazonka.CloudFormation.Types.StackInstanceFilterName + Amazonka.CloudFormation.Types.StackInstanceStatus + Amazonka.CloudFormation.Types.StackInstanceSummary + Amazonka.CloudFormation.Types.StackResource + Amazonka.CloudFormation.Types.StackResourceDetail + Amazonka.CloudFormation.Types.StackResourceDrift + Amazonka.CloudFormation.Types.StackResourceDriftInformation + Amazonka.CloudFormation.Types.StackResourceDriftInformationSummary + Amazonka.CloudFormation.Types.StackResourceDriftStatus + Amazonka.CloudFormation.Types.StackResourceSummary + Amazonka.CloudFormation.Types.StackSet + Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails + Amazonka.CloudFormation.Types.StackSetDriftDetectionStatus + Amazonka.CloudFormation.Types.StackSetDriftStatus + Amazonka.CloudFormation.Types.StackSetOperation + Amazonka.CloudFormation.Types.StackSetOperationAction + Amazonka.CloudFormation.Types.StackSetOperationPreferences + Amazonka.CloudFormation.Types.StackSetOperationResultStatus + Amazonka.CloudFormation.Types.StackSetOperationResultSummary + Amazonka.CloudFormation.Types.StackSetOperationStatus + Amazonka.CloudFormation.Types.StackSetOperationStatusDetails + Amazonka.CloudFormation.Types.StackSetOperationSummary + Amazonka.CloudFormation.Types.StackSetStatus + Amazonka.CloudFormation.Types.StackSetSummary + Amazonka.CloudFormation.Types.StackStatus + Amazonka.CloudFormation.Types.StackSummary + Amazonka.CloudFormation.Types.Tag + Amazonka.CloudFormation.Types.TemplateParameter + Amazonka.CloudFormation.Types.TemplateStage + Amazonka.CloudFormation.Types.ThirdPartyType + Amazonka.CloudFormation.Types.TypeConfigurationDetails + Amazonka.CloudFormation.Types.TypeConfigurationIdentifier + Amazonka.CloudFormation.Types.TypeFilters + Amazonka.CloudFormation.Types.TypeSummary + Amazonka.CloudFormation.Types.TypeTestsStatus + Amazonka.CloudFormation.Types.TypeVersionSummary + Amazonka.CloudFormation.Types.VersionBump + Amazonka.CloudFormation.Types.Visibility + Amazonka.CloudFormation.UpdateStack + Amazonka.CloudFormation.UpdateStackInstances + Amazonka.CloudFormation.UpdateStackSet + Amazonka.CloudFormation.UpdateTerminationProtection + Amazonka.CloudFormation.ValidateTemplate + Amazonka.CloudFormation.Waiters - build-depends: - amazonka-core == 1.6.1.* - , base >= 4.7 && < 5 + build-depends: + , amazonka-core >=2.0 && <2.1 + , base >=4.12 && <5 test-suite amazonka-cloudformation-test - type: exitcode-stdio-1.0 - default-language: Haskell2010 - hs-source-dirs: test - main-is: Main.hs - - ghc-options: -Wall -threaded + type: exitcode-stdio-1.0 + default-language: Haskell2010 + hs-source-dirs: test + main-is: Main.hs + ghc-options: -Wall -threaded - -- This section is encoded by the template and any modules added by - -- hand outside these namespaces will not correctly be added to the - -- distribution package. - other-modules: - Test.AWS.CloudFormation - , Test.AWS.Gen.CloudFormation - , Test.AWS.CloudFormation.Internal + -- This section is encoded by the template and any modules added by + -- hand outside these namespaces will not correctly be added to the + -- distribution package. + other-modules: + Test.Amazonka.CloudFormation + Test.Amazonka.CloudFormation.Internal + Test.Amazonka.Gen.CloudFormation - build-depends: - amazonka-core == 1.6.1.* - , amazonka-test == 1.6.1.* - , amazonka-cloudformation - , base - , bytestring - , tasty - , tasty-hunit - , text - , time - , unordered-containers + build-depends: + , amazonka-cloudformation + , amazonka-core >=2.0 && <2.1 + , amazonka-test >=2.0 && <2.1 + , base + , bytestring + , case-insensitive + , tasty + , tasty-hunit + , text + , time + , unordered-containers diff --git a/fixture/ActivateType.yaml b/fixture/ActivateType.yaml new file mode 100644 --- /dev/null +++ b/fixture/ActivateType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ActivateTypeResponse.proto b/fixture/ActivateTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ActivateTypeResponse.proto diff --git a/fixture/BatchDescribeTypeConfigurations.yaml b/fixture/BatchDescribeTypeConfigurations.yaml new file mode 100644 --- /dev/null +++ b/fixture/BatchDescribeTypeConfigurations.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/BatchDescribeTypeConfigurationsResponse.proto b/fixture/BatchDescribeTypeConfigurationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/BatchDescribeTypeConfigurationsResponse.proto diff --git a/fixture/CancelUpdateStack.yaml b/fixture/CancelUpdateStack.yaml --- a/fixture/CancelUpdateStack.yaml +++ b/fixture/CancelUpdateStack.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ContinueUpdateRollback.yaml b/fixture/ContinueUpdateRollback.yaml --- a/fixture/ContinueUpdateRollback.yaml +++ b/fixture/ContinueUpdateRollback.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateChangeSet.yaml b/fixture/CreateChangeSet.yaml --- a/fixture/CreateChangeSet.yaml +++ b/fixture/CreateChangeSet.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateStack.yaml b/fixture/CreateStack.yaml --- a/fixture/CreateStack.yaml +++ b/fixture/CreateStack.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeactivateType.yaml b/fixture/DeactivateType.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeactivateType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeactivateTypeResponse.proto b/fixture/DeactivateTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeactivateTypeResponse.proto diff --git a/fixture/DeleteChangeSet.yaml b/fixture/DeleteChangeSet.yaml --- a/fixture/DeleteChangeSet.yaml +++ b/fixture/DeleteChangeSet.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteStack.yaml b/fixture/DeleteStack.yaml --- a/fixture/DeleteStack.yaml +++ b/fixture/DeleteStack.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeregisterType.yaml b/fixture/DeregisterType.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeregisterType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeregisterTypeResponse.proto b/fixture/DeregisterTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeregisterTypeResponse.proto diff --git a/fixture/DescribeAccountLimits.yaml b/fixture/DescribeAccountLimits.yaml --- a/fixture/DescribeAccountLimits.yaml +++ b/fixture/DescribeAccountLimits.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeChangeSet.yaml b/fixture/DescribeChangeSet.yaml --- a/fixture/DescribeChangeSet.yaml +++ b/fixture/DescribeChangeSet.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeChangeSetHooks.yaml b/fixture/DescribeChangeSetHooks.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeChangeSetHooks.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeChangeSetHooksResponse.proto b/fixture/DescribeChangeSetHooksResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeChangeSetHooksResponse.proto diff --git a/fixture/DescribePublisher.yaml b/fixture/DescribePublisher.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribePublisher.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribePublisherResponse.proto b/fixture/DescribePublisherResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribePublisherResponse.proto diff --git a/fixture/DescribeStackDriftDetectionStatus.yaml b/fixture/DescribeStackDriftDetectionStatus.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeStackDriftDetectionStatus.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeStackDriftDetectionStatusResponse.proto b/fixture/DescribeStackDriftDetectionStatusResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeStackDriftDetectionStatusResponse.proto diff --git a/fixture/DescribeStackEvents.yaml b/fixture/DescribeStackEvents.yaml --- a/fixture/DescribeStackEvents.yaml +++ b/fixture/DescribeStackEvents.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeStackResource.yaml b/fixture/DescribeStackResource.yaml --- a/fixture/DescribeStackResource.yaml +++ b/fixture/DescribeStackResource.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeStackResourceDrifts.yaml b/fixture/DescribeStackResourceDrifts.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeStackResourceDrifts.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeStackResourceDriftsResponse.proto b/fixture/DescribeStackResourceDriftsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeStackResourceDriftsResponse.proto diff --git a/fixture/DescribeStackResources.yaml b/fixture/DescribeStackResources.yaml --- a/fixture/DescribeStackResources.yaml +++ b/fixture/DescribeStackResources.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeStacks.yaml b/fixture/DescribeStacks.yaml --- a/fixture/DescribeStacks.yaml +++ b/fixture/DescribeStacks.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeType.yaml b/fixture/DescribeType.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeTypeRegistration.yaml b/fixture/DescribeTypeRegistration.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeTypeRegistration.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeTypeRegistrationResponse.proto b/fixture/DescribeTypeRegistrationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeTypeRegistrationResponse.proto diff --git a/fixture/DescribeTypeResponse.proto b/fixture/DescribeTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeTypeResponse.proto diff --git a/fixture/DetectStackDrift.yaml b/fixture/DetectStackDrift.yaml new file mode 100644 --- /dev/null +++ b/fixture/DetectStackDrift.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DetectStackDriftResponse.proto b/fixture/DetectStackDriftResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DetectStackDriftResponse.proto diff --git a/fixture/DetectStackResourceDrift.yaml b/fixture/DetectStackResourceDrift.yaml new file mode 100644 --- /dev/null +++ b/fixture/DetectStackResourceDrift.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DetectStackResourceDriftResponse.proto b/fixture/DetectStackResourceDriftResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DetectStackResourceDriftResponse.proto diff --git a/fixture/DetectStackSetDrift.yaml b/fixture/DetectStackSetDrift.yaml new file mode 100644 --- /dev/null +++ b/fixture/DetectStackSetDrift.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DetectStackSetDriftResponse.proto b/fixture/DetectStackSetDriftResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DetectStackSetDriftResponse.proto diff --git a/fixture/EstimateTemplateCost.yaml b/fixture/EstimateTemplateCost.yaml --- a/fixture/EstimateTemplateCost.yaml +++ b/fixture/EstimateTemplateCost.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ExecuteChangeSet.yaml b/fixture/ExecuteChangeSet.yaml --- a/fixture/ExecuteChangeSet.yaml +++ b/fixture/ExecuteChangeSet.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetStackPolicy.yaml b/fixture/GetStackPolicy.yaml --- a/fixture/GetStackPolicy.yaml +++ b/fixture/GetStackPolicy.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetTemplate.yaml b/fixture/GetTemplate.yaml --- a/fixture/GetTemplate.yaml +++ b/fixture/GetTemplate.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetTemplateSummary.yaml b/fixture/GetTemplateSummary.yaml --- a/fixture/GetTemplateSummary.yaml +++ b/fixture/GetTemplateSummary.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ImportStacksToStackSet.yaml b/fixture/ImportStacksToStackSet.yaml new file mode 100644 --- /dev/null +++ b/fixture/ImportStacksToStackSet.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ImportStacksToStackSetResponse.proto b/fixture/ImportStacksToStackSetResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ImportStacksToStackSetResponse.proto diff --git a/fixture/ListChangeSets.yaml b/fixture/ListChangeSets.yaml --- a/fixture/ListChangeSets.yaml +++ b/fixture/ListChangeSets.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListExports.yaml b/fixture/ListExports.yaml --- a/fixture/ListExports.yaml +++ b/fixture/ListExports.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListImports.yaml b/fixture/ListImports.yaml --- a/fixture/ListImports.yaml +++ b/fixture/ListImports.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListStackResources.yaml b/fixture/ListStackResources.yaml --- a/fixture/ListStackResources.yaml +++ b/fixture/ListStackResources.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListStacks.yaml b/fixture/ListStacks.yaml --- a/fixture/ListStacks.yaml +++ b/fixture/ListStacks.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListTypeRegistrations.yaml b/fixture/ListTypeRegistrations.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListTypeRegistrations.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListTypeRegistrationsResponse.proto b/fixture/ListTypeRegistrationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListTypeRegistrationsResponse.proto diff --git a/fixture/ListTypeVersions.yaml b/fixture/ListTypeVersions.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListTypeVersions.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListTypeVersionsResponse.proto b/fixture/ListTypeVersionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListTypeVersionsResponse.proto diff --git a/fixture/ListTypes.yaml b/fixture/ListTypes.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListTypes.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListTypesResponse.proto b/fixture/ListTypesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListTypesResponse.proto diff --git a/fixture/PublishType.yaml b/fixture/PublishType.yaml new file mode 100644 --- /dev/null +++ b/fixture/PublishType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/PublishTypeResponse.proto b/fixture/PublishTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/PublishTypeResponse.proto diff --git a/fixture/RecordHandlerProgress.yaml b/fixture/RecordHandlerProgress.yaml new file mode 100644 --- /dev/null +++ b/fixture/RecordHandlerProgress.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/RecordHandlerProgressResponse.proto b/fixture/RecordHandlerProgressResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/RecordHandlerProgressResponse.proto diff --git a/fixture/RegisterPublisher.yaml b/fixture/RegisterPublisher.yaml new file mode 100644 --- /dev/null +++ b/fixture/RegisterPublisher.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/RegisterPublisherResponse.proto b/fixture/RegisterPublisherResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/RegisterPublisherResponse.proto diff --git a/fixture/RegisterType.yaml b/fixture/RegisterType.yaml new file mode 100644 --- /dev/null +++ b/fixture/RegisterType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/RegisterTypeResponse.proto b/fixture/RegisterTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/RegisterTypeResponse.proto diff --git a/fixture/RollbackStack.yaml b/fixture/RollbackStack.yaml new file mode 100644 --- /dev/null +++ b/fixture/RollbackStack.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/RollbackStackResponse.proto b/fixture/RollbackStackResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/RollbackStackResponse.proto diff --git a/fixture/SetStackPolicy.yaml b/fixture/SetStackPolicy.yaml --- a/fixture/SetStackPolicy.yaml +++ b/fixture/SetStackPolicy.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/SetTypeConfiguration.yaml b/fixture/SetTypeConfiguration.yaml new file mode 100644 --- /dev/null +++ b/fixture/SetTypeConfiguration.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/SetTypeConfigurationResponse.proto b/fixture/SetTypeConfigurationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/SetTypeConfigurationResponse.proto diff --git a/fixture/SetTypeDefaultVersion.yaml b/fixture/SetTypeDefaultVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/SetTypeDefaultVersion.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/SetTypeDefaultVersionResponse.proto b/fixture/SetTypeDefaultVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/SetTypeDefaultVersionResponse.proto diff --git a/fixture/SignalResource.yaml b/fixture/SignalResource.yaml --- a/fixture/SignalResource.yaml +++ b/fixture/SignalResource.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/TestType.yaml b/fixture/TestType.yaml new file mode 100644 --- /dev/null +++ b/fixture/TestType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/TestTypeResponse.proto b/fixture/TestTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/TestTypeResponse.proto diff --git a/fixture/UpdateStack.yaml b/fixture/UpdateStack.yaml --- a/fixture/UpdateStack.yaml +++ b/fixture/UpdateStack.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ValidateTemplate.yaml b/fixture/ValidateTemplate.yaml --- a/fixture/ValidateTemplate.yaml +++ b/fixture/ValidateTemplate.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudformation/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: cloudformation.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/gen/Amazonka/CloudFormation.hs b/gen/Amazonka/CloudFormation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation.hs @@ -0,0 +1,1031 @@ +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Amazonka.CloudFormation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Derived from API version @2010-05-15@ of the AWS service descriptions, licensed under Apache 2.0. +-- +-- CloudFormation +-- +-- CloudFormation allows you to create and manage Amazon Web Services +-- infrastructure deployments predictably and repeatedly. You can use +-- CloudFormation to leverage Amazon Web Services products, such as Amazon +-- Elastic Compute Cloud, Amazon Elastic Block Store, Amazon Simple +-- Notification Service, Elastic Load Balancing, and Auto Scaling to build +-- highly reliable, highly scalable, cost-effective applications without +-- creating or configuring the underlying Amazon Web Services +-- infrastructure. +-- +-- With CloudFormation, you declare all your resources and dependencies in +-- a template file. The template defines a collection of resources as a +-- single unit called a stack. CloudFormation creates and deletes all +-- member resources of the stack together and manages all dependencies +-- between the resources for you. +-- +-- For more information about CloudFormation, see the +-- . +-- +-- CloudFormation makes use of other Amazon Web Services products. If you +-- need additional technical information about a specific Amazon Web +-- Services product, you can find the product\'s technical documentation at +-- . +module Amazonka.CloudFormation + ( -- * Service Configuration + defaultService, + + -- * Errors + -- $errors + + -- ** AlreadyExistsException + _AlreadyExistsException, + + -- ** CFNRegistryException + _CFNRegistryException, + + -- ** ChangeSetNotFoundException + _ChangeSetNotFoundException, + + -- ** CreatedButModifiedException + _CreatedButModifiedException, + + -- ** InsufficientCapabilitiesException + _InsufficientCapabilitiesException, + + -- ** InvalidChangeSetStatusException + _InvalidChangeSetStatusException, + + -- ** InvalidOperationException + _InvalidOperationException, + + -- ** InvalidStateTransitionException + _InvalidStateTransitionException, + + -- ** LimitExceededException + _LimitExceededException, + + -- ** NameAlreadyExistsException + _NameAlreadyExistsException, + + -- ** OperationIdAlreadyExistsException + _OperationIdAlreadyExistsException, + + -- ** OperationInProgressException + _OperationInProgressException, + + -- ** OperationNotFoundException + _OperationNotFoundException, + + -- ** OperationStatusCheckFailedException + _OperationStatusCheckFailedException, + + -- ** StackInstanceNotFoundException + _StackInstanceNotFoundException, + + -- ** StackNotFoundException + _StackNotFoundException, + + -- ** StackSetNotEmptyException + _StackSetNotEmptyException, + + -- ** StackSetNotFoundException + _StackSetNotFoundException, + + -- ** StaleRequestException + _StaleRequestException, + + -- ** TokenAlreadyExistsException + _TokenAlreadyExistsException, + + -- ** TypeConfigurationNotFoundException + _TypeConfigurationNotFoundException, + + -- ** TypeNotFoundException + _TypeNotFoundException, + + -- * Waiters + -- $waiters + + -- ** ChangeSetCreateComplete + newChangeSetCreateComplete, + + -- ** StackCreateComplete + newStackCreateComplete, + + -- ** StackDeleteComplete + newStackDeleteComplete, + + -- ** StackExists + newStackExists, + + -- ** StackImportComplete + newStackImportComplete, + + -- ** StackRollbackComplete + newStackRollbackComplete, + + -- ** StackUpdateComplete + newStackUpdateComplete, + + -- ** TypeRegistrationComplete + newTypeRegistrationComplete, + + -- * Operations + -- $operations + + -- ** ActivateType + ActivateType (ActivateType'), + newActivateType, + ActivateTypeResponse (ActivateTypeResponse'), + newActivateTypeResponse, + + -- ** BatchDescribeTypeConfigurations + BatchDescribeTypeConfigurations (BatchDescribeTypeConfigurations'), + newBatchDescribeTypeConfigurations, + BatchDescribeTypeConfigurationsResponse (BatchDescribeTypeConfigurationsResponse'), + newBatchDescribeTypeConfigurationsResponse, + + -- ** CancelUpdateStack + CancelUpdateStack (CancelUpdateStack'), + newCancelUpdateStack, + CancelUpdateStackResponse (CancelUpdateStackResponse'), + newCancelUpdateStackResponse, + + -- ** ContinueUpdateRollback + ContinueUpdateRollback (ContinueUpdateRollback'), + newContinueUpdateRollback, + ContinueUpdateRollbackResponse (ContinueUpdateRollbackResponse'), + newContinueUpdateRollbackResponse, + + -- ** CreateChangeSet + CreateChangeSet (CreateChangeSet'), + newCreateChangeSet, + CreateChangeSetResponse (CreateChangeSetResponse'), + newCreateChangeSetResponse, + + -- ** CreateStack + CreateStack (CreateStack'), + newCreateStack, + CreateStackResponse (CreateStackResponse'), + newCreateStackResponse, + + -- ** CreateStackInstances + CreateStackInstances (CreateStackInstances'), + newCreateStackInstances, + CreateStackInstancesResponse (CreateStackInstancesResponse'), + newCreateStackInstancesResponse, + + -- ** CreateStackSet + CreateStackSet (CreateStackSet'), + newCreateStackSet, + CreateStackSetResponse (CreateStackSetResponse'), + newCreateStackSetResponse, + + -- ** DeactivateType + DeactivateType (DeactivateType'), + newDeactivateType, + DeactivateTypeResponse (DeactivateTypeResponse'), + newDeactivateTypeResponse, + + -- ** DeleteChangeSet + DeleteChangeSet (DeleteChangeSet'), + newDeleteChangeSet, + DeleteChangeSetResponse (DeleteChangeSetResponse'), + newDeleteChangeSetResponse, + + -- ** DeleteStack + DeleteStack (DeleteStack'), + newDeleteStack, + DeleteStackResponse (DeleteStackResponse'), + newDeleteStackResponse, + + -- ** DeleteStackInstances + DeleteStackInstances (DeleteStackInstances'), + newDeleteStackInstances, + DeleteStackInstancesResponse (DeleteStackInstancesResponse'), + newDeleteStackInstancesResponse, + + -- ** DeleteStackSet + DeleteStackSet (DeleteStackSet'), + newDeleteStackSet, + DeleteStackSetResponse (DeleteStackSetResponse'), + newDeleteStackSetResponse, + + -- ** DeregisterType + DeregisterType (DeregisterType'), + newDeregisterType, + DeregisterTypeResponse (DeregisterTypeResponse'), + newDeregisterTypeResponse, + + -- ** DescribeAccountLimits (Paginated) + DescribeAccountLimits (DescribeAccountLimits'), + newDescribeAccountLimits, + DescribeAccountLimitsResponse (DescribeAccountLimitsResponse'), + newDescribeAccountLimitsResponse, + + -- ** DescribeChangeSet (Paginated) + DescribeChangeSet (DescribeChangeSet'), + newDescribeChangeSet, + DescribeChangeSetResponse (DescribeChangeSetResponse'), + newDescribeChangeSetResponse, + + -- ** DescribeChangeSetHooks + DescribeChangeSetHooks (DescribeChangeSetHooks'), + newDescribeChangeSetHooks, + DescribeChangeSetHooksResponse (DescribeChangeSetHooksResponse'), + newDescribeChangeSetHooksResponse, + + -- ** DescribePublisher + DescribePublisher (DescribePublisher'), + newDescribePublisher, + DescribePublisherResponse (DescribePublisherResponse'), + newDescribePublisherResponse, + + -- ** DescribeStackDriftDetectionStatus + DescribeStackDriftDetectionStatus (DescribeStackDriftDetectionStatus'), + newDescribeStackDriftDetectionStatus, + DescribeStackDriftDetectionStatusResponse (DescribeStackDriftDetectionStatusResponse'), + newDescribeStackDriftDetectionStatusResponse, + + -- ** DescribeStackEvents (Paginated) + DescribeStackEvents (DescribeStackEvents'), + newDescribeStackEvents, + DescribeStackEventsResponse (DescribeStackEventsResponse'), + newDescribeStackEventsResponse, + + -- ** DescribeStackInstance + DescribeStackInstance (DescribeStackInstance'), + newDescribeStackInstance, + DescribeStackInstanceResponse (DescribeStackInstanceResponse'), + newDescribeStackInstanceResponse, + + -- ** DescribeStackResource + DescribeStackResource (DescribeStackResource'), + newDescribeStackResource, + DescribeStackResourceResponse (DescribeStackResourceResponse'), + newDescribeStackResourceResponse, + + -- ** DescribeStackResourceDrifts + DescribeStackResourceDrifts (DescribeStackResourceDrifts'), + newDescribeStackResourceDrifts, + DescribeStackResourceDriftsResponse (DescribeStackResourceDriftsResponse'), + newDescribeStackResourceDriftsResponse, + + -- ** DescribeStackResources + DescribeStackResources (DescribeStackResources'), + newDescribeStackResources, + DescribeStackResourcesResponse (DescribeStackResourcesResponse'), + newDescribeStackResourcesResponse, + + -- ** DescribeStackSet + DescribeStackSet (DescribeStackSet'), + newDescribeStackSet, + DescribeStackSetResponse (DescribeStackSetResponse'), + newDescribeStackSetResponse, + + -- ** DescribeStackSetOperation + DescribeStackSetOperation (DescribeStackSetOperation'), + newDescribeStackSetOperation, + DescribeStackSetOperationResponse (DescribeStackSetOperationResponse'), + newDescribeStackSetOperationResponse, + + -- ** DescribeStacks (Paginated) + DescribeStacks (DescribeStacks'), + newDescribeStacks, + DescribeStacksResponse (DescribeStacksResponse'), + newDescribeStacksResponse, + + -- ** DescribeType + DescribeType (DescribeType'), + newDescribeType, + DescribeTypeResponse (DescribeTypeResponse'), + newDescribeTypeResponse, + + -- ** DescribeTypeRegistration + DescribeTypeRegistration (DescribeTypeRegistration'), + newDescribeTypeRegistration, + DescribeTypeRegistrationResponse (DescribeTypeRegistrationResponse'), + newDescribeTypeRegistrationResponse, + + -- ** DetectStackDrift + DetectStackDrift (DetectStackDrift'), + newDetectStackDrift, + DetectStackDriftResponse (DetectStackDriftResponse'), + newDetectStackDriftResponse, + + -- ** DetectStackResourceDrift + DetectStackResourceDrift (DetectStackResourceDrift'), + newDetectStackResourceDrift, + DetectStackResourceDriftResponse (DetectStackResourceDriftResponse'), + newDetectStackResourceDriftResponse, + + -- ** DetectStackSetDrift + DetectStackSetDrift (DetectStackSetDrift'), + newDetectStackSetDrift, + DetectStackSetDriftResponse (DetectStackSetDriftResponse'), + newDetectStackSetDriftResponse, + + -- ** EstimateTemplateCost + EstimateTemplateCost (EstimateTemplateCost'), + newEstimateTemplateCost, + EstimateTemplateCostResponse (EstimateTemplateCostResponse'), + newEstimateTemplateCostResponse, + + -- ** ExecuteChangeSet + ExecuteChangeSet (ExecuteChangeSet'), + newExecuteChangeSet, + ExecuteChangeSetResponse (ExecuteChangeSetResponse'), + newExecuteChangeSetResponse, + + -- ** GetStackPolicy + GetStackPolicy (GetStackPolicy'), + newGetStackPolicy, + GetStackPolicyResponse (GetStackPolicyResponse'), + newGetStackPolicyResponse, + + -- ** GetTemplate + GetTemplate (GetTemplate'), + newGetTemplate, + GetTemplateResponse (GetTemplateResponse'), + newGetTemplateResponse, + + -- ** GetTemplateSummary + GetTemplateSummary (GetTemplateSummary'), + newGetTemplateSummary, + GetTemplateSummaryResponse (GetTemplateSummaryResponse'), + newGetTemplateSummaryResponse, + + -- ** ImportStacksToStackSet + ImportStacksToStackSet (ImportStacksToStackSet'), + newImportStacksToStackSet, + ImportStacksToStackSetResponse (ImportStacksToStackSetResponse'), + newImportStacksToStackSetResponse, + + -- ** ListChangeSets (Paginated) + ListChangeSets (ListChangeSets'), + newListChangeSets, + ListChangeSetsResponse (ListChangeSetsResponse'), + newListChangeSetsResponse, + + -- ** ListExports (Paginated) + ListExports (ListExports'), + newListExports, + ListExportsResponse (ListExportsResponse'), + newListExportsResponse, + + -- ** ListImports (Paginated) + ListImports (ListImports'), + newListImports, + ListImportsResponse (ListImportsResponse'), + newListImportsResponse, + + -- ** ListStackInstances (Paginated) + ListStackInstances (ListStackInstances'), + newListStackInstances, + ListStackInstancesResponse (ListStackInstancesResponse'), + newListStackInstancesResponse, + + -- ** ListStackResources (Paginated) + ListStackResources (ListStackResources'), + newListStackResources, + ListStackResourcesResponse (ListStackResourcesResponse'), + newListStackResourcesResponse, + + -- ** ListStackSetOperationResults (Paginated) + ListStackSetOperationResults (ListStackSetOperationResults'), + newListStackSetOperationResults, + ListStackSetOperationResultsResponse (ListStackSetOperationResultsResponse'), + newListStackSetOperationResultsResponse, + + -- ** ListStackSetOperations (Paginated) + ListStackSetOperations (ListStackSetOperations'), + newListStackSetOperations, + ListStackSetOperationsResponse (ListStackSetOperationsResponse'), + newListStackSetOperationsResponse, + + -- ** ListStackSets (Paginated) + ListStackSets (ListStackSets'), + newListStackSets, + ListStackSetsResponse (ListStackSetsResponse'), + newListStackSetsResponse, + + -- ** ListStacks (Paginated) + ListStacks (ListStacks'), + newListStacks, + ListStacksResponse (ListStacksResponse'), + newListStacksResponse, + + -- ** ListTypeRegistrations + ListTypeRegistrations (ListTypeRegistrations'), + newListTypeRegistrations, + ListTypeRegistrationsResponse (ListTypeRegistrationsResponse'), + newListTypeRegistrationsResponse, + + -- ** ListTypeVersions + ListTypeVersions (ListTypeVersions'), + newListTypeVersions, + ListTypeVersionsResponse (ListTypeVersionsResponse'), + newListTypeVersionsResponse, + + -- ** ListTypes (Paginated) + ListTypes (ListTypes'), + newListTypes, + ListTypesResponse (ListTypesResponse'), + newListTypesResponse, + + -- ** PublishType + PublishType (PublishType'), + newPublishType, + PublishTypeResponse (PublishTypeResponse'), + newPublishTypeResponse, + + -- ** RecordHandlerProgress + RecordHandlerProgress (RecordHandlerProgress'), + newRecordHandlerProgress, + RecordHandlerProgressResponse (RecordHandlerProgressResponse'), + newRecordHandlerProgressResponse, + + -- ** RegisterPublisher + RegisterPublisher (RegisterPublisher'), + newRegisterPublisher, + RegisterPublisherResponse (RegisterPublisherResponse'), + newRegisterPublisherResponse, + + -- ** RegisterType + RegisterType (RegisterType'), + newRegisterType, + RegisterTypeResponse (RegisterTypeResponse'), + newRegisterTypeResponse, + + -- ** RollbackStack + RollbackStack (RollbackStack'), + newRollbackStack, + RollbackStackResponse (RollbackStackResponse'), + newRollbackStackResponse, + + -- ** SetStackPolicy + SetStackPolicy (SetStackPolicy'), + newSetStackPolicy, + SetStackPolicyResponse (SetStackPolicyResponse'), + newSetStackPolicyResponse, + + -- ** SetTypeConfiguration + SetTypeConfiguration (SetTypeConfiguration'), + newSetTypeConfiguration, + SetTypeConfigurationResponse (SetTypeConfigurationResponse'), + newSetTypeConfigurationResponse, + + -- ** SetTypeDefaultVersion + SetTypeDefaultVersion (SetTypeDefaultVersion'), + newSetTypeDefaultVersion, + SetTypeDefaultVersionResponse (SetTypeDefaultVersionResponse'), + newSetTypeDefaultVersionResponse, + + -- ** SignalResource + SignalResource (SignalResource'), + newSignalResource, + SignalResourceResponse (SignalResourceResponse'), + newSignalResourceResponse, + + -- ** StopStackSetOperation + StopStackSetOperation (StopStackSetOperation'), + newStopStackSetOperation, + StopStackSetOperationResponse (StopStackSetOperationResponse'), + newStopStackSetOperationResponse, + + -- ** TestType + TestType (TestType'), + newTestType, + TestTypeResponse (TestTypeResponse'), + newTestTypeResponse, + + -- ** UpdateStack + UpdateStack (UpdateStack'), + newUpdateStack, + UpdateStackResponse (UpdateStackResponse'), + newUpdateStackResponse, + + -- ** UpdateStackInstances + UpdateStackInstances (UpdateStackInstances'), + newUpdateStackInstances, + UpdateStackInstancesResponse (UpdateStackInstancesResponse'), + newUpdateStackInstancesResponse, + + -- ** UpdateStackSet + UpdateStackSet (UpdateStackSet'), + newUpdateStackSet, + UpdateStackSetResponse (UpdateStackSetResponse'), + newUpdateStackSetResponse, + + -- ** UpdateTerminationProtection + UpdateTerminationProtection (UpdateTerminationProtection'), + newUpdateTerminationProtection, + UpdateTerminationProtectionResponse (UpdateTerminationProtectionResponse'), + newUpdateTerminationProtectionResponse, + + -- ** ValidateTemplate + ValidateTemplate (ValidateTemplate'), + newValidateTemplate, + ValidateTemplateResponse (ValidateTemplateResponse'), + newValidateTemplateResponse, + + -- * Types + + -- ** AccountFilterType + AccountFilterType (..), + + -- ** AccountGateStatus + AccountGateStatus (..), + + -- ** CallAs + CallAs (..), + + -- ** Capability + Capability (..), + + -- ** Category + Category (..), + + -- ** ChangeAction + ChangeAction (..), + + -- ** ChangeSetHooksStatus + ChangeSetHooksStatus (..), + + -- ** ChangeSetStatus + ChangeSetStatus (..), + + -- ** ChangeSetType + ChangeSetType (..), + + -- ** ChangeSource + ChangeSource (..), + + -- ** ChangeType + ChangeType (..), + + -- ** DeprecatedStatus + DeprecatedStatus (..), + + -- ** DifferenceType + DifferenceType (..), + + -- ** EvaluationType + EvaluationType (..), + + -- ** ExecutionStatus + ExecutionStatus (..), + + -- ** HandlerErrorCode + HandlerErrorCode (..), + + -- ** HookFailureMode + HookFailureMode (..), + + -- ** HookInvocationPoint + HookInvocationPoint (..), + + -- ** HookStatus + HookStatus (..), + + -- ** HookTargetType + HookTargetType (..), + + -- ** IdentityProvider + IdentityProvider (..), + + -- ** OnFailure + OnFailure (..), + + -- ** OperationResultFilterName + OperationResultFilterName (..), + + -- ** OperationStatus + OperationStatus (..), + + -- ** PermissionModels + PermissionModels (..), + + -- ** ProvisioningType + ProvisioningType (..), + + -- ** PublisherStatus + PublisherStatus (..), + + -- ** RegionConcurrencyType + RegionConcurrencyType (..), + + -- ** RegistrationStatus + RegistrationStatus (..), + + -- ** RegistryType + RegistryType (..), + + -- ** Replacement + Replacement (..), + + -- ** RequiresRecreation + RequiresRecreation (..), + + -- ** ResourceAttribute + ResourceAttribute (..), + + -- ** ResourceSignalStatus + ResourceSignalStatus (..), + + -- ** ResourceStatus + ResourceStatus (..), + + -- ** StackDriftDetectionStatus + StackDriftDetectionStatus (..), + + -- ** StackDriftStatus + StackDriftStatus (..), + + -- ** StackInstanceDetailedStatus + StackInstanceDetailedStatus (..), + + -- ** StackInstanceFilterName + StackInstanceFilterName (..), + + -- ** StackInstanceStatus + StackInstanceStatus (..), + + -- ** StackResourceDriftStatus + StackResourceDriftStatus (..), + + -- ** StackSetDriftDetectionStatus + StackSetDriftDetectionStatus (..), + + -- ** StackSetDriftStatus + StackSetDriftStatus (..), + + -- ** StackSetOperationAction + StackSetOperationAction (..), + + -- ** StackSetOperationResultStatus + StackSetOperationResultStatus (..), + + -- ** StackSetOperationStatus + StackSetOperationStatus (..), + + -- ** StackSetStatus + StackSetStatus (..), + + -- ** StackStatus + StackStatus (..), + + -- ** TemplateStage + TemplateStage (..), + + -- ** ThirdPartyType + ThirdPartyType (..), + + -- ** TypeTestsStatus + TypeTestsStatus (..), + + -- ** VersionBump + VersionBump (..), + + -- ** Visibility + Visibility (..), + + -- ** AccountGateResult + AccountGateResult (AccountGateResult'), + newAccountGateResult, + + -- ** AccountLimit + AccountLimit (AccountLimit'), + newAccountLimit, + + -- ** AutoDeployment + AutoDeployment (AutoDeployment'), + newAutoDeployment, + + -- ** BatchDescribeTypeConfigurationsError + BatchDescribeTypeConfigurationsError (BatchDescribeTypeConfigurationsError'), + newBatchDescribeTypeConfigurationsError, + + -- ** Change + Change (Change'), + newChange, + + -- ** ChangeSetHook + ChangeSetHook (ChangeSetHook'), + newChangeSetHook, + + -- ** ChangeSetHookResourceTargetDetails + ChangeSetHookResourceTargetDetails (ChangeSetHookResourceTargetDetails'), + newChangeSetHookResourceTargetDetails, + + -- ** ChangeSetHookTargetDetails + ChangeSetHookTargetDetails (ChangeSetHookTargetDetails'), + newChangeSetHookTargetDetails, + + -- ** ChangeSetSummary + ChangeSetSummary (ChangeSetSummary'), + newChangeSetSummary, + + -- ** DeploymentTargets + DeploymentTargets (DeploymentTargets'), + newDeploymentTargets, + + -- ** Export + Export (Export'), + newExport, + + -- ** LoggingConfig + LoggingConfig (LoggingConfig'), + newLoggingConfig, + + -- ** ManagedExecution + ManagedExecution (ManagedExecution'), + newManagedExecution, + + -- ** ModuleInfo + ModuleInfo (ModuleInfo'), + newModuleInfo, + + -- ** OperationResultFilter + OperationResultFilter (OperationResultFilter'), + newOperationResultFilter, + + -- ** Output + Output (Output'), + newOutput, + + -- ** Parameter + Parameter (Parameter'), + newParameter, + + -- ** ParameterConstraints + ParameterConstraints (ParameterConstraints'), + newParameterConstraints, + + -- ** ParameterDeclaration + ParameterDeclaration (ParameterDeclaration'), + newParameterDeclaration, + + -- ** PhysicalResourceIdContextKeyValuePair + PhysicalResourceIdContextKeyValuePair (PhysicalResourceIdContextKeyValuePair'), + newPhysicalResourceIdContextKeyValuePair, + + -- ** PropertyDifference + PropertyDifference (PropertyDifference'), + newPropertyDifference, + + -- ** RequiredActivatedType + RequiredActivatedType (RequiredActivatedType'), + newRequiredActivatedType, + + -- ** ResourceChange + ResourceChange (ResourceChange'), + newResourceChange, + + -- ** ResourceChangeDetail + ResourceChangeDetail (ResourceChangeDetail'), + newResourceChangeDetail, + + -- ** ResourceIdentifierSummary + ResourceIdentifierSummary (ResourceIdentifierSummary'), + newResourceIdentifierSummary, + + -- ** ResourceTargetDefinition + ResourceTargetDefinition (ResourceTargetDefinition'), + newResourceTargetDefinition, + + -- ** ResourceToImport + ResourceToImport (ResourceToImport'), + newResourceToImport, + + -- ** RollbackConfiguration + RollbackConfiguration (RollbackConfiguration'), + newRollbackConfiguration, + + -- ** RollbackTrigger + RollbackTrigger (RollbackTrigger'), + newRollbackTrigger, + + -- ** Stack + Stack (Stack'), + newStack, + + -- ** StackDriftInformation + StackDriftInformation (StackDriftInformation'), + newStackDriftInformation, + + -- ** StackDriftInformationSummary + StackDriftInformationSummary (StackDriftInformationSummary'), + newStackDriftInformationSummary, + + -- ** StackEvent + StackEvent (StackEvent'), + newStackEvent, + + -- ** StackInstance + StackInstance (StackInstance'), + newStackInstance, + + -- ** StackInstanceComprehensiveStatus + StackInstanceComprehensiveStatus (StackInstanceComprehensiveStatus'), + newStackInstanceComprehensiveStatus, + + -- ** StackInstanceFilter + StackInstanceFilter (StackInstanceFilter'), + newStackInstanceFilter, + + -- ** StackInstanceSummary + StackInstanceSummary (StackInstanceSummary'), + newStackInstanceSummary, + + -- ** StackResource + StackResource (StackResource'), + newStackResource, + + -- ** StackResourceDetail + StackResourceDetail (StackResourceDetail'), + newStackResourceDetail, + + -- ** StackResourceDrift + StackResourceDrift (StackResourceDrift'), + newStackResourceDrift, + + -- ** StackResourceDriftInformation + StackResourceDriftInformation (StackResourceDriftInformation'), + newStackResourceDriftInformation, + + -- ** StackResourceDriftInformationSummary + StackResourceDriftInformationSummary (StackResourceDriftInformationSummary'), + newStackResourceDriftInformationSummary, + + -- ** StackResourceSummary + StackResourceSummary (StackResourceSummary'), + newStackResourceSummary, + + -- ** StackSet + StackSet (StackSet'), + newStackSet, + + -- ** StackSetDriftDetectionDetails + StackSetDriftDetectionDetails (StackSetDriftDetectionDetails'), + newStackSetDriftDetectionDetails, + + -- ** StackSetOperation + StackSetOperation (StackSetOperation'), + newStackSetOperation, + + -- ** StackSetOperationPreferences + StackSetOperationPreferences (StackSetOperationPreferences'), + newStackSetOperationPreferences, + + -- ** StackSetOperationResultSummary + StackSetOperationResultSummary (StackSetOperationResultSummary'), + newStackSetOperationResultSummary, + + -- ** StackSetOperationStatusDetails + StackSetOperationStatusDetails (StackSetOperationStatusDetails'), + newStackSetOperationStatusDetails, + + -- ** StackSetOperationSummary + StackSetOperationSummary (StackSetOperationSummary'), + newStackSetOperationSummary, + + -- ** StackSetSummary + StackSetSummary (StackSetSummary'), + newStackSetSummary, + + -- ** StackSummary + StackSummary (StackSummary'), + newStackSummary, + + -- ** Tag + Tag (Tag'), + newTag, + + -- ** TemplateParameter + TemplateParameter (TemplateParameter'), + newTemplateParameter, + + -- ** TypeConfigurationDetails + TypeConfigurationDetails (TypeConfigurationDetails'), + newTypeConfigurationDetails, + + -- ** TypeConfigurationIdentifier + TypeConfigurationIdentifier (TypeConfigurationIdentifier'), + newTypeConfigurationIdentifier, + + -- ** TypeFilters + TypeFilters (TypeFilters'), + newTypeFilters, + + -- ** TypeSummary + TypeSummary (TypeSummary'), + newTypeSummary, + + -- ** TypeVersionSummary + TypeVersionSummary (TypeVersionSummary'), + newTypeVersionSummary, + ) +where + +import Amazonka.CloudFormation.ActivateType +import Amazonka.CloudFormation.BatchDescribeTypeConfigurations +import Amazonka.CloudFormation.CancelUpdateStack +import Amazonka.CloudFormation.ContinueUpdateRollback +import Amazonka.CloudFormation.CreateChangeSet +import Amazonka.CloudFormation.CreateStack +import Amazonka.CloudFormation.CreateStackInstances +import Amazonka.CloudFormation.CreateStackSet +import Amazonka.CloudFormation.DeactivateType +import Amazonka.CloudFormation.DeleteChangeSet +import Amazonka.CloudFormation.DeleteStack +import Amazonka.CloudFormation.DeleteStackInstances +import Amazonka.CloudFormation.DeleteStackSet +import Amazonka.CloudFormation.DeregisterType +import Amazonka.CloudFormation.DescribeAccountLimits +import Amazonka.CloudFormation.DescribeChangeSet +import Amazonka.CloudFormation.DescribeChangeSetHooks +import Amazonka.CloudFormation.DescribePublisher +import Amazonka.CloudFormation.DescribeStackDriftDetectionStatus +import Amazonka.CloudFormation.DescribeStackEvents +import Amazonka.CloudFormation.DescribeStackInstance +import Amazonka.CloudFormation.DescribeStackResource +import Amazonka.CloudFormation.DescribeStackResourceDrifts +import Amazonka.CloudFormation.DescribeStackResources +import Amazonka.CloudFormation.DescribeStackSet +import Amazonka.CloudFormation.DescribeStackSetOperation +import Amazonka.CloudFormation.DescribeStacks +import Amazonka.CloudFormation.DescribeType +import Amazonka.CloudFormation.DescribeTypeRegistration +import Amazonka.CloudFormation.DetectStackDrift +import Amazonka.CloudFormation.DetectStackResourceDrift +import Amazonka.CloudFormation.DetectStackSetDrift +import Amazonka.CloudFormation.EstimateTemplateCost +import Amazonka.CloudFormation.ExecuteChangeSet +import Amazonka.CloudFormation.GetStackPolicy +import Amazonka.CloudFormation.GetTemplate +import Amazonka.CloudFormation.GetTemplateSummary +import Amazonka.CloudFormation.ImportStacksToStackSet +import Amazonka.CloudFormation.Lens +import Amazonka.CloudFormation.ListChangeSets +import Amazonka.CloudFormation.ListExports +import Amazonka.CloudFormation.ListImports +import Amazonka.CloudFormation.ListStackInstances +import Amazonka.CloudFormation.ListStackResources +import Amazonka.CloudFormation.ListStackSetOperationResults +import Amazonka.CloudFormation.ListStackSetOperations +import Amazonka.CloudFormation.ListStackSets +import Amazonka.CloudFormation.ListStacks +import Amazonka.CloudFormation.ListTypeRegistrations +import Amazonka.CloudFormation.ListTypeVersions +import Amazonka.CloudFormation.ListTypes +import Amazonka.CloudFormation.PublishType +import Amazonka.CloudFormation.RecordHandlerProgress +import Amazonka.CloudFormation.RegisterPublisher +import Amazonka.CloudFormation.RegisterType +import Amazonka.CloudFormation.RollbackStack +import Amazonka.CloudFormation.SetStackPolicy +import Amazonka.CloudFormation.SetTypeConfiguration +import Amazonka.CloudFormation.SetTypeDefaultVersion +import Amazonka.CloudFormation.SignalResource +import Amazonka.CloudFormation.StopStackSetOperation +import Amazonka.CloudFormation.TestType +import Amazonka.CloudFormation.Types +import Amazonka.CloudFormation.UpdateStack +import Amazonka.CloudFormation.UpdateStackInstances +import Amazonka.CloudFormation.UpdateStackSet +import Amazonka.CloudFormation.UpdateTerminationProtection +import Amazonka.CloudFormation.ValidateTemplate +import Amazonka.CloudFormation.Waiters + +-- $errors +-- Error matchers are designed for use with the functions provided by +-- . +-- This allows catching (and rethrowing) service specific errors returned +-- by 'CloudFormation'. + +-- $operations +-- Some AWS operations return results that are incomplete and require subsequent +-- requests in order to obtain the entire result set. The process of sending +-- subsequent requests to continue where a previous request left off is called +-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to +-- 1000 objects at a time, and you must send subsequent requests with the +-- appropriate Marker in order to retrieve the next page of results. +-- +-- Operations that have an 'AWSPager' instance can transparently perform subsequent +-- requests, correctly setting Markers and other request facets to iterate through +-- the entire result set of a truncated API operation. Operations which support +-- this have an additional note in the documentation. +-- +-- Many operations have the ability to filter results on the server side. See the +-- individual operation parameters for details. + +-- $waiters +-- Waiters poll by repeatedly sending a request until some remote success condition +-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification +-- determines how many attempts should be made, in addition to delay and retry strategies. diff --git a/gen/Amazonka/CloudFormation/ActivateType.hs b/gen/Amazonka/CloudFormation/ActivateType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ActivateType.hs @@ -0,0 +1,397 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ActivateType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Activates a public third-party extension, making it available for use in +-- stack templates. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- Once you have activated a public third-party extension in your account +-- and region, use +-- +-- to specify configuration properties for the extension. For more +-- information, see +-- +-- in the /CloudFormation User Guide/. +module Amazonka.CloudFormation.ActivateType + ( -- * Creating a Request + ActivateType (..), + newActivateType, + + -- * Request Lenses + activateType_autoUpdate, + activateType_executionRoleArn, + activateType_loggingConfig, + activateType_majorVersion, + activateType_publicTypeArn, + activateType_publisherId, + activateType_type, + activateType_typeName, + activateType_typeNameAlias, + activateType_versionBump, + + -- * Destructuring the Response + ActivateTypeResponse (..), + newActivateTypeResponse, + + -- * Response Lenses + activateTypeResponse_arn, + activateTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newActivateType' smart constructor. +data ActivateType = ActivateType' + { -- | Whether to automatically update the extension in this account and region + -- when a new /minor/ version is published by the extension publisher. + -- Major versions released by the publisher must be manually updated. + -- + -- The default is @true@. + autoUpdate :: Prelude.Maybe Prelude.Bool, + -- | The name of the IAM execution role to use to activate the extension. + executionRoleArn :: Prelude.Maybe Prelude.Text, + loggingConfig :: Prelude.Maybe LoggingConfig, + -- | The major version of this extension you want to activate, if multiple + -- major versions are available. The default is the latest major version. + -- CloudFormation uses the latest available /minor/ version of the major + -- version selected. + -- + -- You can specify @MajorVersion@ or @VersionBump@, but not both. + majorVersion :: Prelude.Maybe Prelude.Natural, + -- | The Amazon Resource Name (ARN) of the public extension. + -- + -- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, + -- and @PublisherId@. + publicTypeArn :: Prelude.Maybe Prelude.Text, + -- | The ID of the extension publisher. + -- + -- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, + -- and @PublisherId@. + publisherId :: Prelude.Maybe Prelude.Text, + -- | The extension type. + -- + -- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, + -- and @PublisherId@. + type' :: Prelude.Maybe ThirdPartyType, + -- | The name of the extension. + -- + -- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, + -- and @PublisherId@. + typeName :: Prelude.Maybe Prelude.Text, + -- | An alias to assign to the public extension, in this account and region. + -- If you specify an alias for the extension, CloudFormation treats the + -- alias as the extension type name within this account and region. You + -- must use the alias to refer to the extension in your templates, API + -- calls, and CloudFormation console. + -- + -- An extension alias must be unique within a given account and region. You + -- can activate the same public resource multiple times in the same account + -- and region, using different type name aliases. + typeNameAlias :: Prelude.Maybe Prelude.Text, + -- | Manually updates a previously-activated type to a new major or minor + -- version, if available. You can also use this parameter to update the + -- value of @AutoUpdate@. + -- + -- - @MAJOR@: CloudFormation updates the extension to the newest major + -- version, if one is available. + -- + -- - @MINOR@: CloudFormation updates the extension to the newest minor + -- version, if one is available. + versionBump :: Prelude.Maybe VersionBump + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivateType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'autoUpdate', 'activateType_autoUpdate' - Whether to automatically update the extension in this account and region +-- when a new /minor/ version is published by the extension publisher. +-- Major versions released by the publisher must be manually updated. +-- +-- The default is @true@. +-- +-- 'executionRoleArn', 'activateType_executionRoleArn' - The name of the IAM execution role to use to activate the extension. +-- +-- 'loggingConfig', 'activateType_loggingConfig' - Undocumented member. +-- +-- 'majorVersion', 'activateType_majorVersion' - The major version of this extension you want to activate, if multiple +-- major versions are available. The default is the latest major version. +-- CloudFormation uses the latest available /minor/ version of the major +-- version selected. +-- +-- You can specify @MajorVersion@ or @VersionBump@, but not both. +-- +-- 'publicTypeArn', 'activateType_publicTypeArn' - The Amazon Resource Name (ARN) of the public extension. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +-- +-- 'publisherId', 'activateType_publisherId' - The ID of the extension publisher. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +-- +-- 'type'', 'activateType_type' - The extension type. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +-- +-- 'typeName', 'activateType_typeName' - The name of the extension. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +-- +-- 'typeNameAlias', 'activateType_typeNameAlias' - An alias to assign to the public extension, in this account and region. +-- If you specify an alias for the extension, CloudFormation treats the +-- alias as the extension type name within this account and region. You +-- must use the alias to refer to the extension in your templates, API +-- calls, and CloudFormation console. +-- +-- An extension alias must be unique within a given account and region. You +-- can activate the same public resource multiple times in the same account +-- and region, using different type name aliases. +-- +-- 'versionBump', 'activateType_versionBump' - Manually updates a previously-activated type to a new major or minor +-- version, if available. You can also use this parameter to update the +-- value of @AutoUpdate@. +-- +-- - @MAJOR@: CloudFormation updates the extension to the newest major +-- version, if one is available. +-- +-- - @MINOR@: CloudFormation updates the extension to the newest minor +-- version, if one is available. +newActivateType :: + ActivateType +newActivateType = + ActivateType' + { autoUpdate = Prelude.Nothing, + executionRoleArn = Prelude.Nothing, + loggingConfig = Prelude.Nothing, + majorVersion = Prelude.Nothing, + publicTypeArn = Prelude.Nothing, + publisherId = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + typeNameAlias = Prelude.Nothing, + versionBump = Prelude.Nothing + } + +-- | Whether to automatically update the extension in this account and region +-- when a new /minor/ version is published by the extension publisher. +-- Major versions released by the publisher must be manually updated. +-- +-- The default is @true@. +activateType_autoUpdate :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Bool) +activateType_autoUpdate = Lens.lens (\ActivateType' {autoUpdate} -> autoUpdate) (\s@ActivateType' {} a -> s {autoUpdate = a} :: ActivateType) + +-- | The name of the IAM execution role to use to activate the extension. +activateType_executionRoleArn :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Text) +activateType_executionRoleArn = Lens.lens (\ActivateType' {executionRoleArn} -> executionRoleArn) (\s@ActivateType' {} a -> s {executionRoleArn = a} :: ActivateType) + +-- | Undocumented member. +activateType_loggingConfig :: Lens.Lens' ActivateType (Prelude.Maybe LoggingConfig) +activateType_loggingConfig = Lens.lens (\ActivateType' {loggingConfig} -> loggingConfig) (\s@ActivateType' {} a -> s {loggingConfig = a} :: ActivateType) + +-- | The major version of this extension you want to activate, if multiple +-- major versions are available. The default is the latest major version. +-- CloudFormation uses the latest available /minor/ version of the major +-- version selected. +-- +-- You can specify @MajorVersion@ or @VersionBump@, but not both. +activateType_majorVersion :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Natural) +activateType_majorVersion = Lens.lens (\ActivateType' {majorVersion} -> majorVersion) (\s@ActivateType' {} a -> s {majorVersion = a} :: ActivateType) + +-- | The Amazon Resource Name (ARN) of the public extension. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +activateType_publicTypeArn :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Text) +activateType_publicTypeArn = Lens.lens (\ActivateType' {publicTypeArn} -> publicTypeArn) (\s@ActivateType' {} a -> s {publicTypeArn = a} :: ActivateType) + +-- | The ID of the extension publisher. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +activateType_publisherId :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Text) +activateType_publisherId = Lens.lens (\ActivateType' {publisherId} -> publisherId) (\s@ActivateType' {} a -> s {publisherId = a} :: ActivateType) + +-- | The extension type. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +activateType_type :: Lens.Lens' ActivateType (Prelude.Maybe ThirdPartyType) +activateType_type = Lens.lens (\ActivateType' {type'} -> type') (\s@ActivateType' {} a -> s {type' = a} :: ActivateType) + +-- | The name of the extension. +-- +-- Conditional: You must specify @PublicTypeArn@, or @TypeName@, @Type@, +-- and @PublisherId@. +activateType_typeName :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Text) +activateType_typeName = Lens.lens (\ActivateType' {typeName} -> typeName) (\s@ActivateType' {} a -> s {typeName = a} :: ActivateType) + +-- | An alias to assign to the public extension, in this account and region. +-- If you specify an alias for the extension, CloudFormation treats the +-- alias as the extension type name within this account and region. You +-- must use the alias to refer to the extension in your templates, API +-- calls, and CloudFormation console. +-- +-- An extension alias must be unique within a given account and region. You +-- can activate the same public resource multiple times in the same account +-- and region, using different type name aliases. +activateType_typeNameAlias :: Lens.Lens' ActivateType (Prelude.Maybe Prelude.Text) +activateType_typeNameAlias = Lens.lens (\ActivateType' {typeNameAlias} -> typeNameAlias) (\s@ActivateType' {} a -> s {typeNameAlias = a} :: ActivateType) + +-- | Manually updates a previously-activated type to a new major or minor +-- version, if available. You can also use this parameter to update the +-- value of @AutoUpdate@. +-- +-- - @MAJOR@: CloudFormation updates the extension to the newest major +-- version, if one is available. +-- +-- - @MINOR@: CloudFormation updates the extension to the newest minor +-- version, if one is available. +activateType_versionBump :: Lens.Lens' ActivateType (Prelude.Maybe VersionBump) +activateType_versionBump = Lens.lens (\ActivateType' {versionBump} -> versionBump) (\s@ActivateType' {} a -> s {versionBump = a} :: ActivateType) + +instance Core.AWSRequest ActivateType where + type AWSResponse ActivateType = ActivateTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ActivateTypeResult" + ( \s h x -> + ActivateTypeResponse' + Prelude.<$> (x Data..@? "Arn") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ActivateType where + hashWithSalt _salt ActivateType' {..} = + _salt + `Prelude.hashWithSalt` autoUpdate + `Prelude.hashWithSalt` executionRoleArn + `Prelude.hashWithSalt` loggingConfig + `Prelude.hashWithSalt` majorVersion + `Prelude.hashWithSalt` publicTypeArn + `Prelude.hashWithSalt` publisherId + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` typeNameAlias + `Prelude.hashWithSalt` versionBump + +instance Prelude.NFData ActivateType where + rnf ActivateType' {..} = + Prelude.rnf autoUpdate + `Prelude.seq` Prelude.rnf executionRoleArn + `Prelude.seq` Prelude.rnf loggingConfig + `Prelude.seq` Prelude.rnf majorVersion + `Prelude.seq` Prelude.rnf publicTypeArn + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf typeNameAlias + `Prelude.seq` Prelude.rnf versionBump + +instance Data.ToHeaders ActivateType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ActivateType where + toPath = Prelude.const "/" + +instance Data.ToQuery ActivateType where + toQuery ActivateType' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ActivateType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "AutoUpdate" Data.=: autoUpdate, + "ExecutionRoleArn" Data.=: executionRoleArn, + "LoggingConfig" Data.=: loggingConfig, + "MajorVersion" Data.=: majorVersion, + "PublicTypeArn" Data.=: publicTypeArn, + "PublisherId" Data.=: publisherId, + "Type" Data.=: type', + "TypeName" Data.=: typeName, + "TypeNameAlias" Data.=: typeNameAlias, + "VersionBump" Data.=: versionBump + ] + +-- | /See:/ 'newActivateTypeResponse' smart constructor. +data ActivateTypeResponse = ActivateTypeResponse' + { -- | The Amazon Resource Name (ARN) of the activated extension, in this + -- account and region. + arn :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivateTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'activateTypeResponse_arn' - The Amazon Resource Name (ARN) of the activated extension, in this +-- account and region. +-- +-- 'httpStatus', 'activateTypeResponse_httpStatus' - The response's http status code. +newActivateTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + ActivateTypeResponse +newActivateTypeResponse pHttpStatus_ = + ActivateTypeResponse' + { arn = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The Amazon Resource Name (ARN) of the activated extension, in this +-- account and region. +activateTypeResponse_arn :: Lens.Lens' ActivateTypeResponse (Prelude.Maybe Prelude.Text) +activateTypeResponse_arn = Lens.lens (\ActivateTypeResponse' {arn} -> arn) (\s@ActivateTypeResponse' {} a -> s {arn = a} :: ActivateTypeResponse) + +-- | The response's http status code. +activateTypeResponse_httpStatus :: Lens.Lens' ActivateTypeResponse Prelude.Int +activateTypeResponse_httpStatus = Lens.lens (\ActivateTypeResponse' {httpStatus} -> httpStatus) (\s@ActivateTypeResponse' {} a -> s {httpStatus = a} :: ActivateTypeResponse) + +instance Prelude.NFData ActivateTypeResponse where + rnf ActivateTypeResponse' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/BatchDescribeTypeConfigurations.hs b/gen/Amazonka/CloudFormation/BatchDescribeTypeConfigurations.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/BatchDescribeTypeConfigurations.hs @@ -0,0 +1,239 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.BatchDescribeTypeConfigurations +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns configuration data for the specified CloudFormation extensions, +-- from the CloudFormation registry for the account and region. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +module Amazonka.CloudFormation.BatchDescribeTypeConfigurations + ( -- * Creating a Request + BatchDescribeTypeConfigurations (..), + newBatchDescribeTypeConfigurations, + + -- * Request Lenses + batchDescribeTypeConfigurations_typeConfigurationIdentifiers, + + -- * Destructuring the Response + BatchDescribeTypeConfigurationsResponse (..), + newBatchDescribeTypeConfigurationsResponse, + + -- * Response Lenses + batchDescribeTypeConfigurationsResponse_errors, + batchDescribeTypeConfigurationsResponse_typeConfigurations, + batchDescribeTypeConfigurationsResponse_unprocessedTypeConfigurations, + batchDescribeTypeConfigurationsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newBatchDescribeTypeConfigurations' smart constructor. +data BatchDescribeTypeConfigurations = BatchDescribeTypeConfigurations' + { -- | The list of identifiers for the desired extension configurations. + typeConfigurationIdentifiers :: Prelude.NonEmpty TypeConfigurationIdentifier + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'BatchDescribeTypeConfigurations' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'typeConfigurationIdentifiers', 'batchDescribeTypeConfigurations_typeConfigurationIdentifiers' - The list of identifiers for the desired extension configurations. +newBatchDescribeTypeConfigurations :: + -- | 'typeConfigurationIdentifiers' + Prelude.NonEmpty TypeConfigurationIdentifier -> + BatchDescribeTypeConfigurations +newBatchDescribeTypeConfigurations + pTypeConfigurationIdentifiers_ = + BatchDescribeTypeConfigurations' + { typeConfigurationIdentifiers = + Lens.coerced + Lens.# pTypeConfigurationIdentifiers_ + } + +-- | The list of identifiers for the desired extension configurations. +batchDescribeTypeConfigurations_typeConfigurationIdentifiers :: Lens.Lens' BatchDescribeTypeConfigurations (Prelude.NonEmpty TypeConfigurationIdentifier) +batchDescribeTypeConfigurations_typeConfigurationIdentifiers = Lens.lens (\BatchDescribeTypeConfigurations' {typeConfigurationIdentifiers} -> typeConfigurationIdentifiers) (\s@BatchDescribeTypeConfigurations' {} a -> s {typeConfigurationIdentifiers = a} :: BatchDescribeTypeConfigurations) Prelude.. Lens.coerced + +instance + Core.AWSRequest + BatchDescribeTypeConfigurations + where + type + AWSResponse BatchDescribeTypeConfigurations = + BatchDescribeTypeConfigurationsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "BatchDescribeTypeConfigurationsResult" + ( \s h x -> + BatchDescribeTypeConfigurationsResponse' + Prelude.<$> ( x + Data..@? "Errors" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "TypeConfigurations" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "UnprocessedTypeConfigurations" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance + Prelude.Hashable + BatchDescribeTypeConfigurations + where + hashWithSalt + _salt + BatchDescribeTypeConfigurations' {..} = + _salt + `Prelude.hashWithSalt` typeConfigurationIdentifiers + +instance + Prelude.NFData + BatchDescribeTypeConfigurations + where + rnf BatchDescribeTypeConfigurations' {..} = + Prelude.rnf typeConfigurationIdentifiers + +instance + Data.ToHeaders + BatchDescribeTypeConfigurations + where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath BatchDescribeTypeConfigurations where + toPath = Prelude.const "/" + +instance Data.ToQuery BatchDescribeTypeConfigurations where + toQuery BatchDescribeTypeConfigurations' {..} = + Prelude.mconcat + [ "Action" + Data.=: ( "BatchDescribeTypeConfigurations" :: + Prelude.ByteString + ), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "TypeConfigurationIdentifiers" + Data.=: Data.toQueryList + "member" + typeConfigurationIdentifiers + ] + +-- | /See:/ 'newBatchDescribeTypeConfigurationsResponse' smart constructor. +data BatchDescribeTypeConfigurationsResponse = BatchDescribeTypeConfigurationsResponse' + { -- | A list of information concerning any errors generated during the setting + -- of the specified configurations. + errors :: Prelude.Maybe [BatchDescribeTypeConfigurationsError], + -- | A list of any of the specified extension configurations from the + -- CloudFormation registry. + typeConfigurations :: Prelude.Maybe [TypeConfigurationDetails], + -- | A list of any of the specified extension configurations that + -- CloudFormation could not process for any reason. + unprocessedTypeConfigurations :: Prelude.Maybe [TypeConfigurationIdentifier], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'BatchDescribeTypeConfigurationsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'errors', 'batchDescribeTypeConfigurationsResponse_errors' - A list of information concerning any errors generated during the setting +-- of the specified configurations. +-- +-- 'typeConfigurations', 'batchDescribeTypeConfigurationsResponse_typeConfigurations' - A list of any of the specified extension configurations from the +-- CloudFormation registry. +-- +-- 'unprocessedTypeConfigurations', 'batchDescribeTypeConfigurationsResponse_unprocessedTypeConfigurations' - A list of any of the specified extension configurations that +-- CloudFormation could not process for any reason. +-- +-- 'httpStatus', 'batchDescribeTypeConfigurationsResponse_httpStatus' - The response's http status code. +newBatchDescribeTypeConfigurationsResponse :: + -- | 'httpStatus' + Prelude.Int -> + BatchDescribeTypeConfigurationsResponse +newBatchDescribeTypeConfigurationsResponse + pHttpStatus_ = + BatchDescribeTypeConfigurationsResponse' + { errors = + Prelude.Nothing, + typeConfigurations = + Prelude.Nothing, + unprocessedTypeConfigurations = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | A list of information concerning any errors generated during the setting +-- of the specified configurations. +batchDescribeTypeConfigurationsResponse_errors :: Lens.Lens' BatchDescribeTypeConfigurationsResponse (Prelude.Maybe [BatchDescribeTypeConfigurationsError]) +batchDescribeTypeConfigurationsResponse_errors = Lens.lens (\BatchDescribeTypeConfigurationsResponse' {errors} -> errors) (\s@BatchDescribeTypeConfigurationsResponse' {} a -> s {errors = a} :: BatchDescribeTypeConfigurationsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | A list of any of the specified extension configurations from the +-- CloudFormation registry. +batchDescribeTypeConfigurationsResponse_typeConfigurations :: Lens.Lens' BatchDescribeTypeConfigurationsResponse (Prelude.Maybe [TypeConfigurationDetails]) +batchDescribeTypeConfigurationsResponse_typeConfigurations = Lens.lens (\BatchDescribeTypeConfigurationsResponse' {typeConfigurations} -> typeConfigurations) (\s@BatchDescribeTypeConfigurationsResponse' {} a -> s {typeConfigurations = a} :: BatchDescribeTypeConfigurationsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | A list of any of the specified extension configurations that +-- CloudFormation could not process for any reason. +batchDescribeTypeConfigurationsResponse_unprocessedTypeConfigurations :: Lens.Lens' BatchDescribeTypeConfigurationsResponse (Prelude.Maybe [TypeConfigurationIdentifier]) +batchDescribeTypeConfigurationsResponse_unprocessedTypeConfigurations = Lens.lens (\BatchDescribeTypeConfigurationsResponse' {unprocessedTypeConfigurations} -> unprocessedTypeConfigurations) (\s@BatchDescribeTypeConfigurationsResponse' {} a -> s {unprocessedTypeConfigurations = a} :: BatchDescribeTypeConfigurationsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +batchDescribeTypeConfigurationsResponse_httpStatus :: Lens.Lens' BatchDescribeTypeConfigurationsResponse Prelude.Int +batchDescribeTypeConfigurationsResponse_httpStatus = Lens.lens (\BatchDescribeTypeConfigurationsResponse' {httpStatus} -> httpStatus) (\s@BatchDescribeTypeConfigurationsResponse' {} a -> s {httpStatus = a} :: BatchDescribeTypeConfigurationsResponse) + +instance + Prelude.NFData + BatchDescribeTypeConfigurationsResponse + where + rnf BatchDescribeTypeConfigurationsResponse' {..} = + Prelude.rnf errors + `Prelude.seq` Prelude.rnf typeConfigurations + `Prelude.seq` Prelude.rnf unprocessedTypeConfigurations + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/CancelUpdateStack.hs b/gen/Amazonka/CloudFormation/CancelUpdateStack.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/CancelUpdateStack.hs @@ -0,0 +1,157 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.CancelUpdateStack +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Cancels an update on the specified stack. If the call completes +-- successfully, the stack rolls back the update and reverts to the +-- previous stack configuration. +-- +-- You can cancel only stacks that are in the @UPDATE_IN_PROGRESS@ state. +module Amazonka.CloudFormation.CancelUpdateStack + ( -- * Creating a Request + CancelUpdateStack (..), + newCancelUpdateStack, + + -- * Request Lenses + cancelUpdateStack_clientRequestToken, + cancelUpdateStack_stackName, + + -- * Destructuring the Response + CancelUpdateStackResponse (..), + newCancelUpdateStackResponse, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the CancelUpdateStack action. +-- +-- /See:/ 'newCancelUpdateStack' smart constructor. +data CancelUpdateStack = CancelUpdateStack' + { -- | A unique identifier for this @CancelUpdateStack@ request. Specify this + -- token if you plan to retry requests so that CloudFormation knows that + -- you\'re not attempting to cancel an update on a stack with the same + -- name. You might retry @CancelUpdateStack@ requests to ensure that + -- CloudFormation successfully received them. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that\'s associated with the stack. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CancelUpdateStack' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'cancelUpdateStack_clientRequestToken' - A unique identifier for this @CancelUpdateStack@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to cancel an update on a stack with the same +-- name. You might retry @CancelUpdateStack@ requests to ensure that +-- CloudFormation successfully received them. +-- +-- 'stackName', 'cancelUpdateStack_stackName' - The name or the unique stack ID that\'s associated with the stack. +newCancelUpdateStack :: + -- | 'stackName' + Prelude.Text -> + CancelUpdateStack +newCancelUpdateStack pStackName_ = + CancelUpdateStack' + { clientRequestToken = + Prelude.Nothing, + stackName = pStackName_ + } + +-- | A unique identifier for this @CancelUpdateStack@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to cancel an update on a stack with the same +-- name. You might retry @CancelUpdateStack@ requests to ensure that +-- CloudFormation successfully received them. +cancelUpdateStack_clientRequestToken :: Lens.Lens' CancelUpdateStack (Prelude.Maybe Prelude.Text) +cancelUpdateStack_clientRequestToken = Lens.lens (\CancelUpdateStack' {clientRequestToken} -> clientRequestToken) (\s@CancelUpdateStack' {} a -> s {clientRequestToken = a} :: CancelUpdateStack) + +-- | The name or the unique stack ID that\'s associated with the stack. +cancelUpdateStack_stackName :: Lens.Lens' CancelUpdateStack Prelude.Text +cancelUpdateStack_stackName = Lens.lens (\CancelUpdateStack' {stackName} -> stackName) (\s@CancelUpdateStack' {} a -> s {stackName = a} :: CancelUpdateStack) + +instance Core.AWSRequest CancelUpdateStack where + type + AWSResponse CancelUpdateStack = + CancelUpdateStackResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveNull CancelUpdateStackResponse' + +instance Prelude.Hashable CancelUpdateStack where + hashWithSalt _salt CancelUpdateStack' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData CancelUpdateStack where + rnf CancelUpdateStack' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders CancelUpdateStack where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath CancelUpdateStack where + toPath = Prelude.const "/" + +instance Data.ToQuery CancelUpdateStack where + toQuery CancelUpdateStack' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("CancelUpdateStack" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newCancelUpdateStackResponse' smart constructor. +data CancelUpdateStackResponse = CancelUpdateStackResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CancelUpdateStackResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newCancelUpdateStackResponse :: + CancelUpdateStackResponse +newCancelUpdateStackResponse = + CancelUpdateStackResponse' + +instance Prelude.NFData CancelUpdateStackResponse where + rnf _ = () diff --git a/gen/Amazonka/CloudFormation/ContinueUpdateRollback.hs b/gen/Amazonka/CloudFormation/ContinueUpdateRollback.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ContinueUpdateRollback.hs @@ -0,0 +1,382 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ContinueUpdateRollback +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- For a specified stack that\'s in the @UPDATE_ROLLBACK_FAILED@ state, +-- continues rolling it back to the @UPDATE_ROLLBACK_COMPLETE@ state. +-- Depending on the cause of the failure, you can manually +-- +-- and continue the rollback. By continuing the rollback, you can return +-- your stack to a working state (the @UPDATE_ROLLBACK_COMPLETE@ state), +-- and then try to update the stack again. +-- +-- A stack goes into the @UPDATE_ROLLBACK_FAILED@ state when CloudFormation +-- can\'t roll back all changes after a failed stack update. For example, +-- you might have a stack that\'s rolling back to an old database instance +-- that was deleted outside of CloudFormation. Because CloudFormation +-- doesn\'t know the database was deleted, it assumes that the database +-- instance still exists and attempts to roll back to it, causing the +-- update rollback to fail. +module Amazonka.CloudFormation.ContinueUpdateRollback + ( -- * Creating a Request + ContinueUpdateRollback (..), + newContinueUpdateRollback, + + -- * Request Lenses + continueUpdateRollback_clientRequestToken, + continueUpdateRollback_resourcesToSkip, + continueUpdateRollback_roleARN, + continueUpdateRollback_stackName, + + -- * Destructuring the Response + ContinueUpdateRollbackResponse (..), + newContinueUpdateRollbackResponse, + + -- * Response Lenses + continueUpdateRollbackResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the ContinueUpdateRollback action. +-- +-- /See:/ 'newContinueUpdateRollback' smart constructor. +data ContinueUpdateRollback = ContinueUpdateRollback' + { -- | A unique identifier for this @ContinueUpdateRollback@ request. Specify + -- this token if you plan to retry requests so that CloudFormationknows + -- that you\'re not attempting to continue the rollback to a stack with the + -- same name. You might retry @ContinueUpdateRollback@ requests to ensure + -- that CloudFormation successfully received them. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | A list of the logical IDs of the resources that CloudFormation skips + -- during the continue update rollback operation. You can specify only + -- resources that are in the @UPDATE_FAILED@ state because a rollback + -- failed. You can\'t specify resources that are in the @UPDATE_FAILED@ + -- state for other reasons, for example, because an update was canceled. To + -- check why a resource update failed, use the DescribeStackResources + -- action, and view the resource status reason. + -- + -- Specify this property to skip rolling back resources that CloudFormation + -- can\'t successfully roll back. We recommend that you + -- + -- resources before skipping them. CloudFormation sets the status of the + -- specified resources to @UPDATE_COMPLETE@ and continues to roll back the + -- stack. After the rollback is complete, the state of the skipped + -- resources will be inconsistent with the state of the resources in the + -- stack template. Before performing another stack update, you must update + -- the stack or resources to be consistent with each other. If you don\'t, + -- subsequent stack updates might fail, and the stack will become + -- unrecoverable. + -- + -- Specify the minimum number of resources required to successfully roll + -- back your stack. For example, a failed resource update might cause + -- dependent resources to fail. In this case, it might not be necessary to + -- skip the dependent resources. + -- + -- To skip resources that are part of nested stacks, use the following + -- format: @NestedStackName.ResourceLogicalID@. If you want to specify the + -- logical ID of a stack resource (@Type: AWS::CloudFormation::Stack@) in + -- the @ResourcesToSkip@ list, then its corresponding embedded stack must + -- be in one of the following states: @DELETE_IN_PROGRESS@, + -- @DELETE_COMPLETE@, or @DELETE_FAILED@. + -- + -- Don\'t confuse a child stack\'s name with its corresponding logical ID + -- defined in the parent stack. For an example of a continue update + -- rollback operation with nested stacks, see + -- . + resourcesToSkip :: Prelude.Maybe [Prelude.Text], + -- | The Amazon Resource Name (ARN) of an Identity and Access Management + -- (IAM) role that CloudFormation assumes to roll back the stack. + -- CloudFormation uses the role\'s credentials to make calls on your + -- behalf. CloudFormation always uses this role for all future operations + -- on the stack. Provided that users have permission to operate on the + -- stack, CloudFormation uses this role even if the users don\'t have + -- permission to pass it. Ensure that the role grants least permission. + -- + -- If you don\'t specify a value, CloudFormation uses the role that was + -- previously associated with the stack. If no role is available, + -- CloudFormation uses a temporary session that\'s generated from your user + -- credentials. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The name or the unique ID of the stack that you want to continue rolling + -- back. + -- + -- Don\'t specify the name of a nested stack (a stack that was created by + -- using the @AWS::CloudFormation::Stack@ resource). Instead, use this + -- operation on the parent stack (the stack that contains the + -- @AWS::CloudFormation::Stack@ resource). + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ContinueUpdateRollback' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'continueUpdateRollback_clientRequestToken' - A unique identifier for this @ContinueUpdateRollback@ request. Specify +-- this token if you plan to retry requests so that CloudFormationknows +-- that you\'re not attempting to continue the rollback to a stack with the +-- same name. You might retry @ContinueUpdateRollback@ requests to ensure +-- that CloudFormation successfully received them. +-- +-- 'resourcesToSkip', 'continueUpdateRollback_resourcesToSkip' - A list of the logical IDs of the resources that CloudFormation skips +-- during the continue update rollback operation. You can specify only +-- resources that are in the @UPDATE_FAILED@ state because a rollback +-- failed. You can\'t specify resources that are in the @UPDATE_FAILED@ +-- state for other reasons, for example, because an update was canceled. To +-- check why a resource update failed, use the DescribeStackResources +-- action, and view the resource status reason. +-- +-- Specify this property to skip rolling back resources that CloudFormation +-- can\'t successfully roll back. We recommend that you +-- +-- resources before skipping them. CloudFormation sets the status of the +-- specified resources to @UPDATE_COMPLETE@ and continues to roll back the +-- stack. After the rollback is complete, the state of the skipped +-- resources will be inconsistent with the state of the resources in the +-- stack template. Before performing another stack update, you must update +-- the stack or resources to be consistent with each other. If you don\'t, +-- subsequent stack updates might fail, and the stack will become +-- unrecoverable. +-- +-- Specify the minimum number of resources required to successfully roll +-- back your stack. For example, a failed resource update might cause +-- dependent resources to fail. In this case, it might not be necessary to +-- skip the dependent resources. +-- +-- To skip resources that are part of nested stacks, use the following +-- format: @NestedStackName.ResourceLogicalID@. If you want to specify the +-- logical ID of a stack resource (@Type: AWS::CloudFormation::Stack@) in +-- the @ResourcesToSkip@ list, then its corresponding embedded stack must +-- be in one of the following states: @DELETE_IN_PROGRESS@, +-- @DELETE_COMPLETE@, or @DELETE_FAILED@. +-- +-- Don\'t confuse a child stack\'s name with its corresponding logical ID +-- defined in the parent stack. For an example of a continue update +-- rollback operation with nested stacks, see +-- . +-- +-- 'roleARN', 'continueUpdateRollback_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to roll back the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation always uses this role for all future operations +-- on the stack. Provided that users have permission to operate on the +-- stack, CloudFormation uses this role even if the users don\'t have +-- permission to pass it. Ensure that the role grants least permission. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that\'s generated from your user +-- credentials. +-- +-- 'stackName', 'continueUpdateRollback_stackName' - The name or the unique ID of the stack that you want to continue rolling +-- back. +-- +-- Don\'t specify the name of a nested stack (a stack that was created by +-- using the @AWS::CloudFormation::Stack@ resource). Instead, use this +-- operation on the parent stack (the stack that contains the +-- @AWS::CloudFormation::Stack@ resource). +newContinueUpdateRollback :: + -- | 'stackName' + Prelude.Text -> + ContinueUpdateRollback +newContinueUpdateRollback pStackName_ = + ContinueUpdateRollback' + { clientRequestToken = + Prelude.Nothing, + resourcesToSkip = Prelude.Nothing, + roleARN = Prelude.Nothing, + stackName = pStackName_ + } + +-- | A unique identifier for this @ContinueUpdateRollback@ request. Specify +-- this token if you plan to retry requests so that CloudFormationknows +-- that you\'re not attempting to continue the rollback to a stack with the +-- same name. You might retry @ContinueUpdateRollback@ requests to ensure +-- that CloudFormation successfully received them. +continueUpdateRollback_clientRequestToken :: Lens.Lens' ContinueUpdateRollback (Prelude.Maybe Prelude.Text) +continueUpdateRollback_clientRequestToken = Lens.lens (\ContinueUpdateRollback' {clientRequestToken} -> clientRequestToken) (\s@ContinueUpdateRollback' {} a -> s {clientRequestToken = a} :: ContinueUpdateRollback) + +-- | A list of the logical IDs of the resources that CloudFormation skips +-- during the continue update rollback operation. You can specify only +-- resources that are in the @UPDATE_FAILED@ state because a rollback +-- failed. You can\'t specify resources that are in the @UPDATE_FAILED@ +-- state for other reasons, for example, because an update was canceled. To +-- check why a resource update failed, use the DescribeStackResources +-- action, and view the resource status reason. +-- +-- Specify this property to skip rolling back resources that CloudFormation +-- can\'t successfully roll back. We recommend that you +-- +-- resources before skipping them. CloudFormation sets the status of the +-- specified resources to @UPDATE_COMPLETE@ and continues to roll back the +-- stack. After the rollback is complete, the state of the skipped +-- resources will be inconsistent with the state of the resources in the +-- stack template. Before performing another stack update, you must update +-- the stack or resources to be consistent with each other. If you don\'t, +-- subsequent stack updates might fail, and the stack will become +-- unrecoverable. +-- +-- Specify the minimum number of resources required to successfully roll +-- back your stack. For example, a failed resource update might cause +-- dependent resources to fail. In this case, it might not be necessary to +-- skip the dependent resources. +-- +-- To skip resources that are part of nested stacks, use the following +-- format: @NestedStackName.ResourceLogicalID@. If you want to specify the +-- logical ID of a stack resource (@Type: AWS::CloudFormation::Stack@) in +-- the @ResourcesToSkip@ list, then its corresponding embedded stack must +-- be in one of the following states: @DELETE_IN_PROGRESS@, +-- @DELETE_COMPLETE@, or @DELETE_FAILED@. +-- +-- Don\'t confuse a child stack\'s name with its corresponding logical ID +-- defined in the parent stack. For an example of a continue update +-- rollback operation with nested stacks, see +-- . +continueUpdateRollback_resourcesToSkip :: Lens.Lens' ContinueUpdateRollback (Prelude.Maybe [Prelude.Text]) +continueUpdateRollback_resourcesToSkip = Lens.lens (\ContinueUpdateRollback' {resourcesToSkip} -> resourcesToSkip) (\s@ContinueUpdateRollback' {} a -> s {resourcesToSkip = a} :: ContinueUpdateRollback) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to roll back the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation always uses this role for all future operations +-- on the stack. Provided that users have permission to operate on the +-- stack, CloudFormation uses this role even if the users don\'t have +-- permission to pass it. Ensure that the role grants least permission. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that\'s generated from your user +-- credentials. +continueUpdateRollback_roleARN :: Lens.Lens' ContinueUpdateRollback (Prelude.Maybe Prelude.Text) +continueUpdateRollback_roleARN = Lens.lens (\ContinueUpdateRollback' {roleARN} -> roleARN) (\s@ContinueUpdateRollback' {} a -> s {roleARN = a} :: ContinueUpdateRollback) + +-- | The name or the unique ID of the stack that you want to continue rolling +-- back. +-- +-- Don\'t specify the name of a nested stack (a stack that was created by +-- using the @AWS::CloudFormation::Stack@ resource). Instead, use this +-- operation on the parent stack (the stack that contains the +-- @AWS::CloudFormation::Stack@ resource). +continueUpdateRollback_stackName :: Lens.Lens' ContinueUpdateRollback Prelude.Text +continueUpdateRollback_stackName = Lens.lens (\ContinueUpdateRollback' {stackName} -> stackName) (\s@ContinueUpdateRollback' {} a -> s {stackName = a} :: ContinueUpdateRollback) + +instance Core.AWSRequest ContinueUpdateRollback where + type + AWSResponse ContinueUpdateRollback = + ContinueUpdateRollbackResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ContinueUpdateRollbackResult" + ( \s h x -> + ContinueUpdateRollbackResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ContinueUpdateRollback where + hashWithSalt _salt ContinueUpdateRollback' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` resourcesToSkip + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData ContinueUpdateRollback where + rnf ContinueUpdateRollback' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf resourcesToSkip + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders ContinueUpdateRollback where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ContinueUpdateRollback where + toPath = Prelude.const "/" + +instance Data.ToQuery ContinueUpdateRollback where + toQuery ContinueUpdateRollback' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ContinueUpdateRollback" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "ResourcesToSkip" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> resourcesToSkip + ), + "RoleARN" Data.=: roleARN, + "StackName" Data.=: stackName + ] + +-- | The output for a ContinueUpdateRollback operation. +-- +-- /See:/ 'newContinueUpdateRollbackResponse' smart constructor. +data ContinueUpdateRollbackResponse = ContinueUpdateRollbackResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ContinueUpdateRollbackResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'continueUpdateRollbackResponse_httpStatus' - The response's http status code. +newContinueUpdateRollbackResponse :: + -- | 'httpStatus' + Prelude.Int -> + ContinueUpdateRollbackResponse +newContinueUpdateRollbackResponse pHttpStatus_ = + ContinueUpdateRollbackResponse' + { httpStatus = + pHttpStatus_ + } + +-- | The response's http status code. +continueUpdateRollbackResponse_httpStatus :: Lens.Lens' ContinueUpdateRollbackResponse Prelude.Int +continueUpdateRollbackResponse_httpStatus = Lens.lens (\ContinueUpdateRollbackResponse' {httpStatus} -> httpStatus) (\s@ContinueUpdateRollbackResponse' {} a -> s {httpStatus = a} :: ContinueUpdateRollbackResponse) + +instance + Prelude.NFData + ContinueUpdateRollbackResponse + where + rnf ContinueUpdateRollbackResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/CreateChangeSet.hs b/gen/Amazonka/CloudFormation/CreateChangeSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/CreateChangeSet.hs @@ -0,0 +1,841 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.CreateChangeSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a list of changes that will be applied to a stack so that you +-- can review the changes before executing them. You can create a change +-- set for a stack that doesn\'t exist or an existing stack. If you create +-- a change set for a stack that doesn\'t exist, the change set shows all +-- of the resources that CloudFormation will create. If you create a change +-- set for an existing stack, CloudFormation compares the stack\'s +-- information with the information that you submit in the change set and +-- lists the differences. Use change sets to understand which resources +-- CloudFormation will create or change, and how it will change resources +-- in an existing stack, before you create or update a stack. +-- +-- To create a change set for a stack that doesn\'t exist, for the +-- @ChangeSetType@ parameter, specify @CREATE@. To create a change set for +-- an existing stack, specify @UPDATE@ for the @ChangeSetType@ parameter. +-- To create a change set for an import operation, specify @IMPORT@ for the +-- @ChangeSetType@ parameter. After the @CreateChangeSet@ call successfully +-- completes, CloudFormation starts creating the change set. To check the +-- status of the change set or to review it, use the DescribeChangeSet +-- action. +-- +-- When you are satisfied with the changes the change set will make, +-- execute the change set by using the ExecuteChangeSet action. +-- CloudFormation doesn\'t make changes until you execute the change set. +-- +-- To create a change set for the entire stack hierarchy, set +-- @IncludeNestedStacks@ to @True@. +module Amazonka.CloudFormation.CreateChangeSet + ( -- * Creating a Request + CreateChangeSet (..), + newCreateChangeSet, + + -- * Request Lenses + createChangeSet_capabilities, + createChangeSet_changeSetType, + createChangeSet_clientToken, + createChangeSet_description, + createChangeSet_includeNestedStacks, + createChangeSet_notificationARNs, + createChangeSet_parameters, + createChangeSet_resourceTypes, + createChangeSet_resourcesToImport, + createChangeSet_roleARN, + createChangeSet_rollbackConfiguration, + createChangeSet_tags, + createChangeSet_templateBody, + createChangeSet_templateURL, + createChangeSet_usePreviousTemplate, + createChangeSet_stackName, + createChangeSet_changeSetName, + + -- * Destructuring the Response + CreateChangeSetResponse (..), + newCreateChangeSetResponse, + + -- * Response Lenses + createChangeSetResponse_id, + createChangeSetResponse_stackId, + createChangeSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the CreateChangeSet action. +-- +-- /See:/ 'newCreateChangeSet' smart constructor. +data CreateChangeSet = CreateChangeSet' + { -- | In some cases, you must explicitly acknowledge that your stack template + -- contains certain capabilities in order for CloudFormation to create the + -- stack. + -- + -- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ + -- + -- Some stack templates might include resources that can affect + -- permissions in your Amazon Web Services account; for example, by + -- creating new Identity and Access Management (IAM) users. For those + -- stacks, you must explicitly acknowledge this by specifying one of + -- these capabilities. + -- + -- The following IAM resources require you to specify either the + -- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. + -- + -- - If you have IAM resources, you can specify either capability. + -- + -- - If you have IAM resources with custom names, you /must/ specify + -- @CAPABILITY_NAMED_IAM@. + -- + -- - If you don\'t specify either of these capabilities, + -- CloudFormation returns an @InsufficientCapabilities@ error. + -- + -- If your stack template contains these resources, we suggest that you + -- review all permissions associated with them and edit their + -- permissions if necessary. + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- For more information, see + -- . + -- + -- - @CAPABILITY_AUTO_EXPAND@ + -- + -- Some template contain macros. Macros perform custom processing on + -- templates; this can include simple actions like find-and-replace + -- operations, all the way to extensive transformations of entire + -- templates. Because of this, users typically create a change set from + -- the processed template, so that they can review the changes + -- resulting from the macros before actually creating the stack. If + -- your stack template contains one or more macros, and you choose to + -- create a stack directly from the processed template, without first + -- reviewing the resulting changes in a change set, you must + -- acknowledge this capability. This includes the + -- + -- and + -- + -- transforms, which are macros hosted by CloudFormation. + -- + -- This capacity doesn\'t apply to creating change sets, and specifying + -- it when creating change sets has no effect. + -- + -- If you want to create a stack from a stack template that contains + -- macros /and/ nested stacks, you must create or update the stack + -- directly from the template using the CreateStack or UpdateStack + -- action, and specifying this capability. + -- + -- For more information about macros, see + -- . + capabilities :: Prelude.Maybe [Capability], + -- | The type of change set operation. To create a change set for a new + -- stack, specify @CREATE@. To create a change set for an existing stack, + -- specify @UPDATE@. To create a change set for an import operation, + -- specify @IMPORT@. + -- + -- If you create a change set for a new stack, CloudFormation creates a + -- stack with a unique stack ID, but no template or resources. The stack + -- will be in the + -- + -- state until you execute the change set. + -- + -- By default, CloudFormation specifies @UPDATE@. You can\'t use the + -- @UPDATE@ type to create a change set for a new stack or the @CREATE@ + -- type to create a change set for an existing stack. + changeSetType :: Prelude.Maybe ChangeSetType, + -- | A unique identifier for this @CreateChangeSet@ request. Specify this + -- token if you plan to retry requests so that CloudFormation knows that + -- you\'re not attempting to create another change set with the same name. + -- You might retry @CreateChangeSet@ requests to ensure that CloudFormation + -- successfully received them. + clientToken :: Prelude.Maybe Prelude.Text, + -- | A description to help you identify this change set. + description :: Prelude.Maybe Prelude.Text, + -- | Creates a change set for the all nested stacks specified in the + -- template. The default behavior of this action is set to @False@. To + -- include nested sets in a change set, specify @True@. + includeNestedStacks :: Prelude.Maybe Prelude.Bool, + -- | The Amazon Resource Names (ARNs) of Amazon Simple Notification Service + -- (Amazon SNS) topics that CloudFormation associates with the stack. To + -- remove all associated notification topics, specify an empty list. + notificationARNs :: Prelude.Maybe [Prelude.Text], + -- | A list of @Parameter@ structures that specify input parameters for the + -- change set. For more information, see the Parameter data type. + parameters :: Prelude.Maybe [Parameter], + -- | The template resource types that you have permissions to work with if + -- you execute this change set, such as @AWS::EC2::Instance@, + -- @AWS::EC2::*@, or @Custom::MyCustomInstance@. + -- + -- If the list of resource types doesn\'t include a resource type that + -- you\'re updating, the stack update fails. By default, CloudFormation + -- grants permissions to all resource types. Identity and Access Management + -- (IAM) uses this parameter for condition keys in IAM policies for + -- CloudFormation. For more information, see + -- + -- in the CloudFormation User Guide. + resourceTypes :: Prelude.Maybe [Prelude.Text], + -- | The resources to import into your stack. + resourcesToImport :: Prelude.Maybe [ResourceToImport], + -- | The Amazon Resource Name (ARN) of an Identity and Access Management + -- (IAM) role that CloudFormation assumes when executing the change set. + -- CloudFormation uses the role\'s credentials to make calls on your + -- behalf. CloudFormation uses this role for all future operations on the + -- stack. Provided that users have permission to operate on the stack, + -- CloudFormation uses this role even if the users don\'t have permission + -- to pass it. Ensure that the role grants least permission. + -- + -- If you don\'t specify a value, CloudFormation uses the role that was + -- previously associated with the stack. If no role is available, + -- CloudFormation uses a temporary session that is generated from your user + -- credentials. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The rollback triggers for CloudFormation to monitor during stack + -- creation and updating operations, and for the specified monitoring + -- period afterwards. + rollbackConfiguration :: Prelude.Maybe RollbackConfiguration, + -- | Key-value pairs to associate with this stack. CloudFormation also + -- propagates these tags to resources in the stack. You can specify a + -- maximum of 50 tags. + tags :: Prelude.Maybe [Tag], + -- | A structure that contains the body of the revised template, with a + -- minimum length of 1 byte and a maximum length of 51,200 bytes. + -- CloudFormation generates the change set by comparing this template with + -- the template of the stack that you specified. + -- + -- Conditional: You must specify only @TemplateBody@ or @TemplateURL@. + templateBody :: Prelude.Maybe Prelude.Text, + -- | The location of the file that contains the revised template. The URL + -- must point to a template (max size: 460,800 bytes) that\'s located in an + -- Amazon S3 bucket or a Systems Manager document. CloudFormation generates + -- the change set by comparing this template with the stack that you + -- specified. + -- + -- Conditional: You must specify only @TemplateBody@ or @TemplateURL@. + templateURL :: Prelude.Maybe Prelude.Text, + -- | Whether to reuse the template that\'s associated with the stack to + -- create the change set. + usePreviousTemplate :: Prelude.Maybe Prelude.Bool, + -- | The name or the unique ID of the stack for which you are creating a + -- change set. CloudFormation generates the change set by comparing this + -- stack\'s information with the information that you submit, such as a + -- modified template or different parameter input values. + stackName :: Prelude.Text, + -- | The name of the change set. The name must be unique among all change + -- sets that are associated with the specified stack. + -- + -- A change set name can contain only alphanumeric, case sensitive + -- characters, and hyphens. It must start with an alphabetical character + -- and can\'t exceed 128 characters. + changeSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateChangeSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'createChangeSet_capabilities' - In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to create the +-- stack. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks, you must explicitly acknowledge this by specifying one of +-- these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we suggest that you +-- review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some template contain macros. Macros perform custom processing on +-- templates; this can include simple actions like find-and-replace +-- operations, all the way to extensive transformations of entire +-- templates. Because of this, users typically create a change set from +-- the processed template, so that they can review the changes +-- resulting from the macros before actually creating the stack. If +-- your stack template contains one or more macros, and you choose to +-- create a stack directly from the processed template, without first +-- reviewing the resulting changes in a change set, you must +-- acknowledge this capability. This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation. +-- +-- This capacity doesn\'t apply to creating change sets, and specifying +-- it when creating change sets has no effect. +-- +-- If you want to create a stack from a stack template that contains +-- macros /and/ nested stacks, you must create or update the stack +-- directly from the template using the CreateStack or UpdateStack +-- action, and specifying this capability. +-- +-- For more information about macros, see +-- . +-- +-- 'changeSetType', 'createChangeSet_changeSetType' - The type of change set operation. To create a change set for a new +-- stack, specify @CREATE@. To create a change set for an existing stack, +-- specify @UPDATE@. To create a change set for an import operation, +-- specify @IMPORT@. +-- +-- If you create a change set for a new stack, CloudFormation creates a +-- stack with a unique stack ID, but no template or resources. The stack +-- will be in the +-- +-- state until you execute the change set. +-- +-- By default, CloudFormation specifies @UPDATE@. You can\'t use the +-- @UPDATE@ type to create a change set for a new stack or the @CREATE@ +-- type to create a change set for an existing stack. +-- +-- 'clientToken', 'createChangeSet_clientToken' - A unique identifier for this @CreateChangeSet@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to create another change set with the same name. +-- You might retry @CreateChangeSet@ requests to ensure that CloudFormation +-- successfully received them. +-- +-- 'description', 'createChangeSet_description' - A description to help you identify this change set. +-- +-- 'includeNestedStacks', 'createChangeSet_includeNestedStacks' - Creates a change set for the all nested stacks specified in the +-- template. The default behavior of this action is set to @False@. To +-- include nested sets in a change set, specify @True@. +-- +-- 'notificationARNs', 'createChangeSet_notificationARNs' - The Amazon Resource Names (ARNs) of Amazon Simple Notification Service +-- (Amazon SNS) topics that CloudFormation associates with the stack. To +-- remove all associated notification topics, specify an empty list. +-- +-- 'parameters', 'createChangeSet_parameters' - A list of @Parameter@ structures that specify input parameters for the +-- change set. For more information, see the Parameter data type. +-- +-- 'resourceTypes', 'createChangeSet_resourceTypes' - The template resource types that you have permissions to work with if +-- you execute this change set, such as @AWS::EC2::Instance@, +-- @AWS::EC2::*@, or @Custom::MyCustomInstance@. +-- +-- If the list of resource types doesn\'t include a resource type that +-- you\'re updating, the stack update fails. By default, CloudFormation +-- grants permissions to all resource types. Identity and Access Management +-- (IAM) uses this parameter for condition keys in IAM policies for +-- CloudFormation. For more information, see +-- +-- in the CloudFormation User Guide. +-- +-- 'resourcesToImport', 'createChangeSet_resourcesToImport' - The resources to import into your stack. +-- +-- 'roleARN', 'createChangeSet_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes when executing the change set. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation uses this role for all future operations on the +-- stack. Provided that users have permission to operate on the stack, +-- CloudFormation uses this role even if the users don\'t have permission +-- to pass it. Ensure that the role grants least permission. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that is generated from your user +-- credentials. +-- +-- 'rollbackConfiguration', 'createChangeSet_rollbackConfiguration' - The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +-- +-- 'tags', 'createChangeSet_tags' - Key-value pairs to associate with this stack. CloudFormation also +-- propagates these tags to resources in the stack. You can specify a +-- maximum of 50 tags. +-- +-- 'templateBody', 'createChangeSet_templateBody' - A structure that contains the body of the revised template, with a +-- minimum length of 1 byte and a maximum length of 51,200 bytes. +-- CloudFormation generates the change set by comparing this template with +-- the template of the stack that you specified. +-- +-- Conditional: You must specify only @TemplateBody@ or @TemplateURL@. +-- +-- 'templateURL', 'createChangeSet_templateURL' - The location of the file that contains the revised template. The URL +-- must point to a template (max size: 460,800 bytes) that\'s located in an +-- Amazon S3 bucket or a Systems Manager document. CloudFormation generates +-- the change set by comparing this template with the stack that you +-- specified. +-- +-- Conditional: You must specify only @TemplateBody@ or @TemplateURL@. +-- +-- 'usePreviousTemplate', 'createChangeSet_usePreviousTemplate' - Whether to reuse the template that\'s associated with the stack to +-- create the change set. +-- +-- 'stackName', 'createChangeSet_stackName' - The name or the unique ID of the stack for which you are creating a +-- change set. CloudFormation generates the change set by comparing this +-- stack\'s information with the information that you submit, such as a +-- modified template or different parameter input values. +-- +-- 'changeSetName', 'createChangeSet_changeSetName' - The name of the change set. The name must be unique among all change +-- sets that are associated with the specified stack. +-- +-- A change set name can contain only alphanumeric, case sensitive +-- characters, and hyphens. It must start with an alphabetical character +-- and can\'t exceed 128 characters. +newCreateChangeSet :: + -- | 'stackName' + Prelude.Text -> + -- | 'changeSetName' + Prelude.Text -> + CreateChangeSet +newCreateChangeSet pStackName_ pChangeSetName_ = + CreateChangeSet' + { capabilities = Prelude.Nothing, + changeSetType = Prelude.Nothing, + clientToken = Prelude.Nothing, + description = Prelude.Nothing, + includeNestedStacks = Prelude.Nothing, + notificationARNs = Prelude.Nothing, + parameters = Prelude.Nothing, + resourceTypes = Prelude.Nothing, + resourcesToImport = Prelude.Nothing, + roleARN = Prelude.Nothing, + rollbackConfiguration = Prelude.Nothing, + tags = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing, + usePreviousTemplate = Prelude.Nothing, + stackName = pStackName_, + changeSetName = pChangeSetName_ + } + +-- | In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to create the +-- stack. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks, you must explicitly acknowledge this by specifying one of +-- these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we suggest that you +-- review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some template contain macros. Macros perform custom processing on +-- templates; this can include simple actions like find-and-replace +-- operations, all the way to extensive transformations of entire +-- templates. Because of this, users typically create a change set from +-- the processed template, so that they can review the changes +-- resulting from the macros before actually creating the stack. If +-- your stack template contains one or more macros, and you choose to +-- create a stack directly from the processed template, without first +-- reviewing the resulting changes in a change set, you must +-- acknowledge this capability. This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation. +-- +-- This capacity doesn\'t apply to creating change sets, and specifying +-- it when creating change sets has no effect. +-- +-- If you want to create a stack from a stack template that contains +-- macros /and/ nested stacks, you must create or update the stack +-- directly from the template using the CreateStack or UpdateStack +-- action, and specifying this capability. +-- +-- For more information about macros, see +-- . +createChangeSet_capabilities :: Lens.Lens' CreateChangeSet (Prelude.Maybe [Capability]) +createChangeSet_capabilities = Lens.lens (\CreateChangeSet' {capabilities} -> capabilities) (\s@CreateChangeSet' {} a -> s {capabilities = a} :: CreateChangeSet) Prelude.. Lens.mapping Lens.coerced + +-- | The type of change set operation. To create a change set for a new +-- stack, specify @CREATE@. To create a change set for an existing stack, +-- specify @UPDATE@. To create a change set for an import operation, +-- specify @IMPORT@. +-- +-- If you create a change set for a new stack, CloudFormation creates a +-- stack with a unique stack ID, but no template or resources. The stack +-- will be in the +-- +-- state until you execute the change set. +-- +-- By default, CloudFormation specifies @UPDATE@. You can\'t use the +-- @UPDATE@ type to create a change set for a new stack or the @CREATE@ +-- type to create a change set for an existing stack. +createChangeSet_changeSetType :: Lens.Lens' CreateChangeSet (Prelude.Maybe ChangeSetType) +createChangeSet_changeSetType = Lens.lens (\CreateChangeSet' {changeSetType} -> changeSetType) (\s@CreateChangeSet' {} a -> s {changeSetType = a} :: CreateChangeSet) + +-- | A unique identifier for this @CreateChangeSet@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to create another change set with the same name. +-- You might retry @CreateChangeSet@ requests to ensure that CloudFormation +-- successfully received them. +createChangeSet_clientToken :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Text) +createChangeSet_clientToken = Lens.lens (\CreateChangeSet' {clientToken} -> clientToken) (\s@CreateChangeSet' {} a -> s {clientToken = a} :: CreateChangeSet) + +-- | A description to help you identify this change set. +createChangeSet_description :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Text) +createChangeSet_description = Lens.lens (\CreateChangeSet' {description} -> description) (\s@CreateChangeSet' {} a -> s {description = a} :: CreateChangeSet) + +-- | Creates a change set for the all nested stacks specified in the +-- template. The default behavior of this action is set to @False@. To +-- include nested sets in a change set, specify @True@. +createChangeSet_includeNestedStacks :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Bool) +createChangeSet_includeNestedStacks = Lens.lens (\CreateChangeSet' {includeNestedStacks} -> includeNestedStacks) (\s@CreateChangeSet' {} a -> s {includeNestedStacks = a} :: CreateChangeSet) + +-- | The Amazon Resource Names (ARNs) of Amazon Simple Notification Service +-- (Amazon SNS) topics that CloudFormation associates with the stack. To +-- remove all associated notification topics, specify an empty list. +createChangeSet_notificationARNs :: Lens.Lens' CreateChangeSet (Prelude.Maybe [Prelude.Text]) +createChangeSet_notificationARNs = Lens.lens (\CreateChangeSet' {notificationARNs} -> notificationARNs) (\s@CreateChangeSet' {} a -> s {notificationARNs = a} :: CreateChangeSet) Prelude.. Lens.mapping Lens.coerced + +-- | A list of @Parameter@ structures that specify input parameters for the +-- change set. For more information, see the Parameter data type. +createChangeSet_parameters :: Lens.Lens' CreateChangeSet (Prelude.Maybe [Parameter]) +createChangeSet_parameters = Lens.lens (\CreateChangeSet' {parameters} -> parameters) (\s@CreateChangeSet' {} a -> s {parameters = a} :: CreateChangeSet) Prelude.. Lens.mapping Lens.coerced + +-- | The template resource types that you have permissions to work with if +-- you execute this change set, such as @AWS::EC2::Instance@, +-- @AWS::EC2::*@, or @Custom::MyCustomInstance@. +-- +-- If the list of resource types doesn\'t include a resource type that +-- you\'re updating, the stack update fails. By default, CloudFormation +-- grants permissions to all resource types. Identity and Access Management +-- (IAM) uses this parameter for condition keys in IAM policies for +-- CloudFormation. For more information, see +-- +-- in the CloudFormation User Guide. +createChangeSet_resourceTypes :: Lens.Lens' CreateChangeSet (Prelude.Maybe [Prelude.Text]) +createChangeSet_resourceTypes = Lens.lens (\CreateChangeSet' {resourceTypes} -> resourceTypes) (\s@CreateChangeSet' {} a -> s {resourceTypes = a} :: CreateChangeSet) Prelude.. Lens.mapping Lens.coerced + +-- | The resources to import into your stack. +createChangeSet_resourcesToImport :: Lens.Lens' CreateChangeSet (Prelude.Maybe [ResourceToImport]) +createChangeSet_resourcesToImport = Lens.lens (\CreateChangeSet' {resourcesToImport} -> resourcesToImport) (\s@CreateChangeSet' {} a -> s {resourcesToImport = a} :: CreateChangeSet) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes when executing the change set. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation uses this role for all future operations on the +-- stack. Provided that users have permission to operate on the stack, +-- CloudFormation uses this role even if the users don\'t have permission +-- to pass it. Ensure that the role grants least permission. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that is generated from your user +-- credentials. +createChangeSet_roleARN :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Text) +createChangeSet_roleARN = Lens.lens (\CreateChangeSet' {roleARN} -> roleARN) (\s@CreateChangeSet' {} a -> s {roleARN = a} :: CreateChangeSet) + +-- | The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +createChangeSet_rollbackConfiguration :: Lens.Lens' CreateChangeSet (Prelude.Maybe RollbackConfiguration) +createChangeSet_rollbackConfiguration = Lens.lens (\CreateChangeSet' {rollbackConfiguration} -> rollbackConfiguration) (\s@CreateChangeSet' {} a -> s {rollbackConfiguration = a} :: CreateChangeSet) + +-- | Key-value pairs to associate with this stack. CloudFormation also +-- propagates these tags to resources in the stack. You can specify a +-- maximum of 50 tags. +createChangeSet_tags :: Lens.Lens' CreateChangeSet (Prelude.Maybe [Tag]) +createChangeSet_tags = Lens.lens (\CreateChangeSet' {tags} -> tags) (\s@CreateChangeSet' {} a -> s {tags = a} :: CreateChangeSet) Prelude.. Lens.mapping Lens.coerced + +-- | A structure that contains the body of the revised template, with a +-- minimum length of 1 byte and a maximum length of 51,200 bytes. +-- CloudFormation generates the change set by comparing this template with +-- the template of the stack that you specified. +-- +-- Conditional: You must specify only @TemplateBody@ or @TemplateURL@. +createChangeSet_templateBody :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Text) +createChangeSet_templateBody = Lens.lens (\CreateChangeSet' {templateBody} -> templateBody) (\s@CreateChangeSet' {} a -> s {templateBody = a} :: CreateChangeSet) + +-- | The location of the file that contains the revised template. The URL +-- must point to a template (max size: 460,800 bytes) that\'s located in an +-- Amazon S3 bucket or a Systems Manager document. CloudFormation generates +-- the change set by comparing this template with the stack that you +-- specified. +-- +-- Conditional: You must specify only @TemplateBody@ or @TemplateURL@. +createChangeSet_templateURL :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Text) +createChangeSet_templateURL = Lens.lens (\CreateChangeSet' {templateURL} -> templateURL) (\s@CreateChangeSet' {} a -> s {templateURL = a} :: CreateChangeSet) + +-- | Whether to reuse the template that\'s associated with the stack to +-- create the change set. +createChangeSet_usePreviousTemplate :: Lens.Lens' CreateChangeSet (Prelude.Maybe Prelude.Bool) +createChangeSet_usePreviousTemplate = Lens.lens (\CreateChangeSet' {usePreviousTemplate} -> usePreviousTemplate) (\s@CreateChangeSet' {} a -> s {usePreviousTemplate = a} :: CreateChangeSet) + +-- | The name or the unique ID of the stack for which you are creating a +-- change set. CloudFormation generates the change set by comparing this +-- stack\'s information with the information that you submit, such as a +-- modified template or different parameter input values. +createChangeSet_stackName :: Lens.Lens' CreateChangeSet Prelude.Text +createChangeSet_stackName = Lens.lens (\CreateChangeSet' {stackName} -> stackName) (\s@CreateChangeSet' {} a -> s {stackName = a} :: CreateChangeSet) + +-- | The name of the change set. The name must be unique among all change +-- sets that are associated with the specified stack. +-- +-- A change set name can contain only alphanumeric, case sensitive +-- characters, and hyphens. It must start with an alphabetical character +-- and can\'t exceed 128 characters. +createChangeSet_changeSetName :: Lens.Lens' CreateChangeSet Prelude.Text +createChangeSet_changeSetName = Lens.lens (\CreateChangeSet' {changeSetName} -> changeSetName) (\s@CreateChangeSet' {} a -> s {changeSetName = a} :: CreateChangeSet) + +instance Core.AWSRequest CreateChangeSet where + type + AWSResponse CreateChangeSet = + CreateChangeSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "CreateChangeSetResult" + ( \s h x -> + CreateChangeSetResponse' + Prelude.<$> (x Data..@? "Id") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable CreateChangeSet where + hashWithSalt _salt CreateChangeSet' {..} = + _salt + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` changeSetType + `Prelude.hashWithSalt` clientToken + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` includeNestedStacks + `Prelude.hashWithSalt` notificationARNs + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` resourceTypes + `Prelude.hashWithSalt` resourcesToImport + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` rollbackConfiguration + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + `Prelude.hashWithSalt` usePreviousTemplate + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` changeSetName + +instance Prelude.NFData CreateChangeSet where + rnf CreateChangeSet' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf changeSetType + `Prelude.seq` Prelude.rnf clientToken + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf includeNestedStacks + `Prelude.seq` Prelude.rnf notificationARNs + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf resourceTypes + `Prelude.seq` Prelude.rnf resourcesToImport + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf rollbackConfiguration + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + `Prelude.seq` Prelude.rnf usePreviousTemplate + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf changeSetName + +instance Data.ToHeaders CreateChangeSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath CreateChangeSet where + toPath = Prelude.const "/" + +instance Data.ToQuery CreateChangeSet where + toQuery CreateChangeSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("CreateChangeSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Capabilities" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> capabilities), + "ChangeSetType" Data.=: changeSetType, + "ClientToken" Data.=: clientToken, + "Description" Data.=: description, + "IncludeNestedStacks" Data.=: includeNestedStacks, + "NotificationARNs" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> notificationARNs + ), + "Parameters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> parameters), + "ResourceTypes" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> resourceTypes + ), + "ResourcesToImport" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> resourcesToImport + ), + "RoleARN" Data.=: roleARN, + "RollbackConfiguration" + Data.=: rollbackConfiguration, + "Tags" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> tags), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL, + "UsePreviousTemplate" Data.=: usePreviousTemplate, + "StackName" Data.=: stackName, + "ChangeSetName" Data.=: changeSetName + ] + +-- | The output for the CreateChangeSet action. +-- +-- /See:/ 'newCreateChangeSetResponse' smart constructor. +data CreateChangeSetResponse = CreateChangeSetResponse' + { -- | The Amazon Resource Name (ARN) of the change set. + id :: Prelude.Maybe Prelude.Text, + -- | The unique ID of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateChangeSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'id', 'createChangeSetResponse_id' - The Amazon Resource Name (ARN) of the change set. +-- +-- 'stackId', 'createChangeSetResponse_stackId' - The unique ID of the stack. +-- +-- 'httpStatus', 'createChangeSetResponse_httpStatus' - The response's http status code. +newCreateChangeSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + CreateChangeSetResponse +newCreateChangeSetResponse pHttpStatus_ = + CreateChangeSetResponse' + { id = Prelude.Nothing, + stackId = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The Amazon Resource Name (ARN) of the change set. +createChangeSetResponse_id :: Lens.Lens' CreateChangeSetResponse (Prelude.Maybe Prelude.Text) +createChangeSetResponse_id = Lens.lens (\CreateChangeSetResponse' {id} -> id) (\s@CreateChangeSetResponse' {} a -> s {id = a} :: CreateChangeSetResponse) + +-- | The unique ID of the stack. +createChangeSetResponse_stackId :: Lens.Lens' CreateChangeSetResponse (Prelude.Maybe Prelude.Text) +createChangeSetResponse_stackId = Lens.lens (\CreateChangeSetResponse' {stackId} -> stackId) (\s@CreateChangeSetResponse' {} a -> s {stackId = a} :: CreateChangeSetResponse) + +-- | The response's http status code. +createChangeSetResponse_httpStatus :: Lens.Lens' CreateChangeSetResponse Prelude.Int +createChangeSetResponse_httpStatus = Lens.lens (\CreateChangeSetResponse' {httpStatus} -> httpStatus) (\s@CreateChangeSetResponse' {} a -> s {httpStatus = a} :: CreateChangeSetResponse) + +instance Prelude.NFData CreateChangeSetResponse where + rnf CreateChangeSetResponse' {..} = + Prelude.rnf id + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/CreateStack.hs b/gen/Amazonka/CloudFormation/CreateStack.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/CreateStack.hs @@ -0,0 +1,904 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.CreateStack +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a stack as specified in the template. After the call completes +-- successfully, the stack creation starts. You can check the status of the +-- stack through the DescribeStacksoperation. +module Amazonka.CloudFormation.CreateStack + ( -- * Creating a Request + CreateStack (..), + newCreateStack, + + -- * Request Lenses + createStack_capabilities, + createStack_clientRequestToken, + createStack_disableRollback, + createStack_enableTerminationProtection, + createStack_notificationARNs, + createStack_onFailure, + createStack_parameters, + createStack_resourceTypes, + createStack_roleARN, + createStack_rollbackConfiguration, + createStack_stackPolicyBody, + createStack_stackPolicyURL, + createStack_tags, + createStack_templateBody, + createStack_templateURL, + createStack_timeoutInMinutes, + createStack_stackName, + + -- * Destructuring the Response + CreateStackResponse (..), + newCreateStackResponse, + + -- * Response Lenses + createStackResponse_stackId, + createStackResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for CreateStack action. +-- +-- /See:/ 'newCreateStack' smart constructor. +data CreateStack = CreateStack' + { -- | In some cases, you must explicitly acknowledge that your stack template + -- contains certain capabilities in order for CloudFormation to create the + -- stack. + -- + -- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ + -- + -- Some stack templates might include resources that can affect + -- permissions in your Amazon Web Services account; for example, by + -- creating new Identity and Access Management (IAM) users. For those + -- stacks, you must explicitly acknowledge this by specifying one of + -- these capabilities. + -- + -- The following IAM resources require you to specify either the + -- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. + -- + -- - If you have IAM resources, you can specify either capability. + -- + -- - If you have IAM resources with custom names, you /must/ specify + -- @CAPABILITY_NAMED_IAM@. + -- + -- - If you don\'t specify either of these capabilities, + -- CloudFormation returns an @InsufficientCapabilities@ error. + -- + -- If your stack template contains these resources, we recommend that + -- you review all permissions associated with them and edit their + -- permissions if necessary. + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- For more information, see + -- . + -- + -- - @CAPABILITY_AUTO_EXPAND@ + -- + -- Some template contain macros. Macros perform custom processing on + -- templates; this can include simple actions like find-and-replace + -- operations, all the way to extensive transformations of entire + -- templates. Because of this, users typically create a change set from + -- the processed template, so that they can review the changes + -- resulting from the macros before actually creating the stack. If + -- your stack template contains one or more macros, and you choose to + -- create a stack directly from the processed template, without first + -- reviewing the resulting changes in a change set, you must + -- acknowledge this capability. This includes the + -- + -- and + -- + -- transforms, which are macros hosted by CloudFormation. + -- + -- If you want to create a stack from a stack template that contains + -- macros /and/ nested stacks, you must create the stack directly from + -- the template using this capability. + -- + -- You should only create stacks directly from a stack template that + -- contains macros if you know what processing the macro performs. + -- + -- Each macro relies on an underlying Lambda service function for + -- processing stack templates. Be aware that the Lambda function owner + -- can update the function operation without CloudFormation being + -- notified. + -- + -- For more information, see + -- . + capabilities :: Prelude.Maybe [Capability], + -- | A unique identifier for this @CreateStack@ request. Specify this token + -- if you plan to retry requests so that CloudFormation knows that you\'re + -- not attempting to create a stack with the same name. You might retry + -- @CreateStack@ requests to ensure that CloudFormation successfully + -- received them. + -- + -- All events initiated by a given stack operation are assigned the same + -- client request token, which you can use to track operations. For + -- example, if you execute a @CreateStack@ operation with the token + -- @token1@, then all the @StackEvents@ generated by that operation will + -- have @ClientRequestToken@ set as @token1@. + -- + -- In the console, stack operations display the client request token on the + -- Events tab. Stack operations that are initiated from the console use the + -- token format /Console-StackOperation-ID/, which helps you easily + -- identify the stack operation . For example, if you create a stack using + -- the console, each stack event would be assigned the same token in the + -- following format: + -- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | Set to @true@ to disable rollback of the stack if stack creation failed. + -- You can specify either @DisableRollback@ or @OnFailure@, but not both. + -- + -- Default: @false@ + disableRollback :: Prelude.Maybe Prelude.Bool, + -- | Whether to enable termination protection on the specified stack. If a + -- user attempts to delete a stack with termination protection enabled, the + -- operation fails and the stack remains unchanged. For more information, + -- see + -- + -- in the /CloudFormation User Guide/. Termination protection is + -- deactivated on stacks by default. + -- + -- For + -- , + -- termination protection is set on the root stack and can\'t be changed + -- directly on the nested stack. + enableTerminationProtection :: Prelude.Maybe Prelude.Bool, + -- | The Amazon Simple Notification Service (Amazon SNS) topic ARNs to + -- publish stack related events. You can find your Amazon SNS topic ARNs + -- using the Amazon SNS console or your Command Line Interface (CLI). + notificationARNs :: Prelude.Maybe [Prelude.Text], + -- | Determines what action will be taken if stack creation fails. This must + -- be one of: @DO_NOTHING@, @ROLLBACK@, or @DELETE@. You can specify either + -- @OnFailure@ or @DisableRollback@, but not both. + -- + -- Default: @ROLLBACK@ + onFailure :: Prelude.Maybe OnFailure, + -- | A list of @Parameter@ structures that specify input parameters for the + -- stack. For more information, see the + -- + -- data type. + parameters :: Prelude.Maybe [Parameter], + -- | The template resource types that you have permissions to work with for + -- this create stack action, such as @AWS::EC2::Instance@, @AWS::EC2::*@, + -- or @Custom::MyCustomInstance@. Use the following syntax to describe + -- template resource types: @AWS::*@ (for all Amazon Web Services + -- resources), @Custom::*@ (for all custom resources), + -- @Custom::@/@logical_ID@/@ @ (for a specific custom resource), + -- @AWS::@/@service_name@/@::*@ (for all resources of a particular Amazon + -- Web Services service), and + -- @AWS::@/@service_name@/@::@/@resource_logical_ID@/@ @ (for a specific + -- Amazon Web Services resource). + -- + -- If the list of resource types doesn\'t include a resource that you\'re + -- creating, the stack creation fails. By default, CloudFormation grants + -- permissions to all resource types. Identity and Access Management (IAM) + -- uses this parameter for CloudFormation-specific condition keys in IAM + -- policies. For more information, see + -- . + resourceTypes :: Prelude.Maybe [Prelude.Text], + -- | The Amazon Resource Name (ARN) of an Identity and Access Management + -- (IAM) role that CloudFormation assumes to create the stack. + -- CloudFormation uses the role\'s credentials to make calls on your + -- behalf. CloudFormation always uses this role for all future operations + -- on the stack. Provided that users have permission to operate on the + -- stack, CloudFormation uses this role even if the users don\'t have + -- permission to pass it. Ensure that the role grants least privilege. + -- + -- If you don\'t specify a value, CloudFormation uses the role that was + -- previously associated with the stack. If no role is available, + -- CloudFormation uses a temporary session that\'s generated from your user + -- credentials. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The rollback triggers for CloudFormation to monitor during stack + -- creation and updating operations, and for the specified monitoring + -- period afterwards. + rollbackConfiguration :: Prelude.Maybe RollbackConfiguration, + -- | Structure containing the stack policy body. For more information, go to + -- + -- in the /CloudFormation User Guide/. You can specify either the + -- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. + stackPolicyBody :: Prelude.Maybe Prelude.Text, + -- | Location of a file containing the stack policy. The URL must point to a + -- policy (maximum size: 16 KB) located in an S3 bucket in the same Region + -- as the stack. You can specify either the @StackPolicyBody@ or the + -- @StackPolicyURL@ parameter, but not both. + stackPolicyURL :: Prelude.Maybe Prelude.Text, + -- | Key-value pairs to associate with this stack. CloudFormation also + -- propagates these tags to the resources created in the stack. A maximum + -- number of 50 tags can be specified. + tags :: Prelude.Maybe [Tag], + -- | Structure containing the template body with a minimum length of 1 byte + -- and a maximum length of 51,200 bytes. For more information, go to + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify either the @TemplateBody@ or the + -- @TemplateURL@ parameter, but not both. + templateBody :: Prelude.Maybe Prelude.Text, + -- | Location of file containing the template body. The URL must point to a + -- template (max size: 460,800 bytes) that\'s located in an Amazon S3 + -- bucket or a Systems Manager document. For more information, go to the + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify either the @TemplateBody@ or the + -- @TemplateURL@ parameter, but not both. + templateURL :: Prelude.Maybe Prelude.Text, + -- | The amount of time that can pass before the stack status becomes + -- CREATE_FAILED; if @DisableRollback@ is not set or is set to @false@, the + -- stack will be rolled back. + timeoutInMinutes :: Prelude.Maybe Prelude.Natural, + -- | The name that\'s associated with the stack. The name must be unique in + -- the Region in which you are creating the stack. + -- + -- A stack name can contain only alphanumeric characters (case sensitive) + -- and hyphens. It must start with an alphabetical character and can\'t be + -- longer than 128 characters. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateStack' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'createStack_capabilities' - In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to create the +-- stack. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks, you must explicitly acknowledge this by specifying one of +-- these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we recommend that +-- you review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some template contain macros. Macros perform custom processing on +-- templates; this can include simple actions like find-and-replace +-- operations, all the way to extensive transformations of entire +-- templates. Because of this, users typically create a change set from +-- the processed template, so that they can review the changes +-- resulting from the macros before actually creating the stack. If +-- your stack template contains one or more macros, and you choose to +-- create a stack directly from the processed template, without first +-- reviewing the resulting changes in a change set, you must +-- acknowledge this capability. This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation. +-- +-- If you want to create a stack from a stack template that contains +-- macros /and/ nested stacks, you must create the stack directly from +-- the template using this capability. +-- +-- You should only create stacks directly from a stack template that +-- contains macros if you know what processing the macro performs. +-- +-- Each macro relies on an underlying Lambda service function for +-- processing stack templates. Be aware that the Lambda function owner +-- can update the function operation without CloudFormation being +-- notified. +-- +-- For more information, see +-- . +-- +-- 'clientRequestToken', 'createStack_clientRequestToken' - A unique identifier for this @CreateStack@ request. Specify this token +-- if you plan to retry requests so that CloudFormation knows that you\'re +-- not attempting to create a stack with the same name. You might retry +-- @CreateStack@ requests to ensure that CloudFormation successfully +-- received them. +-- +-- All events initiated by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +-- +-- 'disableRollback', 'createStack_disableRollback' - Set to @true@ to disable rollback of the stack if stack creation failed. +-- You can specify either @DisableRollback@ or @OnFailure@, but not both. +-- +-- Default: @false@ +-- +-- 'enableTerminationProtection', 'createStack_enableTerminationProtection' - Whether to enable termination protection on the specified stack. If a +-- user attempts to delete a stack with termination protection enabled, the +-- operation fails and the stack remains unchanged. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. Termination protection is +-- deactivated on stacks by default. +-- +-- For +-- , +-- termination protection is set on the root stack and can\'t be changed +-- directly on the nested stack. +-- +-- 'notificationARNs', 'createStack_notificationARNs' - The Amazon Simple Notification Service (Amazon SNS) topic ARNs to +-- publish stack related events. You can find your Amazon SNS topic ARNs +-- using the Amazon SNS console or your Command Line Interface (CLI). +-- +-- 'onFailure', 'createStack_onFailure' - Determines what action will be taken if stack creation fails. This must +-- be one of: @DO_NOTHING@, @ROLLBACK@, or @DELETE@. You can specify either +-- @OnFailure@ or @DisableRollback@, but not both. +-- +-- Default: @ROLLBACK@ +-- +-- 'parameters', 'createStack_parameters' - A list of @Parameter@ structures that specify input parameters for the +-- stack. For more information, see the +-- +-- data type. +-- +-- 'resourceTypes', 'createStack_resourceTypes' - The template resource types that you have permissions to work with for +-- this create stack action, such as @AWS::EC2::Instance@, @AWS::EC2::*@, +-- or @Custom::MyCustomInstance@. Use the following syntax to describe +-- template resource types: @AWS::*@ (for all Amazon Web Services +-- resources), @Custom::*@ (for all custom resources), +-- @Custom::@/@logical_ID@/@ @ (for a specific custom resource), +-- @AWS::@/@service_name@/@::*@ (for all resources of a particular Amazon +-- Web Services service), and +-- @AWS::@/@service_name@/@::@/@resource_logical_ID@/@ @ (for a specific +-- Amazon Web Services resource). +-- +-- If the list of resource types doesn\'t include a resource that you\'re +-- creating, the stack creation fails. By default, CloudFormation grants +-- permissions to all resource types. Identity and Access Management (IAM) +-- uses this parameter for CloudFormation-specific condition keys in IAM +-- policies. For more information, see +-- . +-- +-- 'roleARN', 'createStack_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to create the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation always uses this role for all future operations +-- on the stack. Provided that users have permission to operate on the +-- stack, CloudFormation uses this role even if the users don\'t have +-- permission to pass it. Ensure that the role grants least privilege. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that\'s generated from your user +-- credentials. +-- +-- 'rollbackConfiguration', 'createStack_rollbackConfiguration' - The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +-- +-- 'stackPolicyBody', 'createStack_stackPolicyBody' - Structure containing the stack policy body. For more information, go to +-- +-- in the /CloudFormation User Guide/. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +-- +-- 'stackPolicyURL', 'createStack_stackPolicyURL' - Location of a file containing the stack policy. The URL must point to a +-- policy (maximum size: 16 KB) located in an S3 bucket in the same Region +-- as the stack. You can specify either the @StackPolicyBody@ or the +-- @StackPolicyURL@ parameter, but not both. +-- +-- 'tags', 'createStack_tags' - Key-value pairs to associate with this stack. CloudFormation also +-- propagates these tags to the resources created in the stack. A maximum +-- number of 50 tags can be specified. +-- +-- 'templateBody', 'createStack_templateBody' - Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the @TemplateBody@ or the +-- @TemplateURL@ parameter, but not both. +-- +-- 'templateURL', 'createStack_templateURL' - Location of file containing the template body. The URL must point to a +-- template (max size: 460,800 bytes) that\'s located in an Amazon S3 +-- bucket or a Systems Manager document. For more information, go to the +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the @TemplateBody@ or the +-- @TemplateURL@ parameter, but not both. +-- +-- 'timeoutInMinutes', 'createStack_timeoutInMinutes' - The amount of time that can pass before the stack status becomes +-- CREATE_FAILED; if @DisableRollback@ is not set or is set to @false@, the +-- stack will be rolled back. +-- +-- 'stackName', 'createStack_stackName' - The name that\'s associated with the stack. The name must be unique in +-- the Region in which you are creating the stack. +-- +-- A stack name can contain only alphanumeric characters (case sensitive) +-- and hyphens. It must start with an alphabetical character and can\'t be +-- longer than 128 characters. +newCreateStack :: + -- | 'stackName' + Prelude.Text -> + CreateStack +newCreateStack pStackName_ = + CreateStack' + { capabilities = Prelude.Nothing, + clientRequestToken = Prelude.Nothing, + disableRollback = Prelude.Nothing, + enableTerminationProtection = Prelude.Nothing, + notificationARNs = Prelude.Nothing, + onFailure = Prelude.Nothing, + parameters = Prelude.Nothing, + resourceTypes = Prelude.Nothing, + roleARN = Prelude.Nothing, + rollbackConfiguration = Prelude.Nothing, + stackPolicyBody = Prelude.Nothing, + stackPolicyURL = Prelude.Nothing, + tags = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing, + timeoutInMinutes = Prelude.Nothing, + stackName = pStackName_ + } + +-- | In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to create the +-- stack. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks, you must explicitly acknowledge this by specifying one of +-- these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we recommend that +-- you review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some template contain macros. Macros perform custom processing on +-- templates; this can include simple actions like find-and-replace +-- operations, all the way to extensive transformations of entire +-- templates. Because of this, users typically create a change set from +-- the processed template, so that they can review the changes +-- resulting from the macros before actually creating the stack. If +-- your stack template contains one or more macros, and you choose to +-- create a stack directly from the processed template, without first +-- reviewing the resulting changes in a change set, you must +-- acknowledge this capability. This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation. +-- +-- If you want to create a stack from a stack template that contains +-- macros /and/ nested stacks, you must create the stack directly from +-- the template using this capability. +-- +-- You should only create stacks directly from a stack template that +-- contains macros if you know what processing the macro performs. +-- +-- Each macro relies on an underlying Lambda service function for +-- processing stack templates. Be aware that the Lambda function owner +-- can update the function operation without CloudFormation being +-- notified. +-- +-- For more information, see +-- . +createStack_capabilities :: Lens.Lens' CreateStack (Prelude.Maybe [Capability]) +createStack_capabilities = Lens.lens (\CreateStack' {capabilities} -> capabilities) (\s@CreateStack' {} a -> s {capabilities = a} :: CreateStack) Prelude.. Lens.mapping Lens.coerced + +-- | A unique identifier for this @CreateStack@ request. Specify this token +-- if you plan to retry requests so that CloudFormation knows that you\'re +-- not attempting to create a stack with the same name. You might retry +-- @CreateStack@ requests to ensure that CloudFormation successfully +-- received them. +-- +-- All events initiated by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +createStack_clientRequestToken :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text) +createStack_clientRequestToken = Lens.lens (\CreateStack' {clientRequestToken} -> clientRequestToken) (\s@CreateStack' {} a -> s {clientRequestToken = a} :: CreateStack) + +-- | Set to @true@ to disable rollback of the stack if stack creation failed. +-- You can specify either @DisableRollback@ or @OnFailure@, but not both. +-- +-- Default: @false@ +createStack_disableRollback :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Bool) +createStack_disableRollback = Lens.lens (\CreateStack' {disableRollback} -> disableRollback) (\s@CreateStack' {} a -> s {disableRollback = a} :: CreateStack) + +-- | Whether to enable termination protection on the specified stack. If a +-- user attempts to delete a stack with termination protection enabled, the +-- operation fails and the stack remains unchanged. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. Termination protection is +-- deactivated on stacks by default. +-- +-- For +-- , +-- termination protection is set on the root stack and can\'t be changed +-- directly on the nested stack. +createStack_enableTerminationProtection :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Bool) +createStack_enableTerminationProtection = Lens.lens (\CreateStack' {enableTerminationProtection} -> enableTerminationProtection) (\s@CreateStack' {} a -> s {enableTerminationProtection = a} :: CreateStack) + +-- | The Amazon Simple Notification Service (Amazon SNS) topic ARNs to +-- publish stack related events. You can find your Amazon SNS topic ARNs +-- using the Amazon SNS console or your Command Line Interface (CLI). +createStack_notificationARNs :: Lens.Lens' CreateStack (Prelude.Maybe [Prelude.Text]) +createStack_notificationARNs = Lens.lens (\CreateStack' {notificationARNs} -> notificationARNs) (\s@CreateStack' {} a -> s {notificationARNs = a} :: CreateStack) Prelude.. Lens.mapping Lens.coerced + +-- | Determines what action will be taken if stack creation fails. This must +-- be one of: @DO_NOTHING@, @ROLLBACK@, or @DELETE@. You can specify either +-- @OnFailure@ or @DisableRollback@, but not both. +-- +-- Default: @ROLLBACK@ +createStack_onFailure :: Lens.Lens' CreateStack (Prelude.Maybe OnFailure) +createStack_onFailure = Lens.lens (\CreateStack' {onFailure} -> onFailure) (\s@CreateStack' {} a -> s {onFailure = a} :: CreateStack) + +-- | A list of @Parameter@ structures that specify input parameters for the +-- stack. For more information, see the +-- +-- data type. +createStack_parameters :: Lens.Lens' CreateStack (Prelude.Maybe [Parameter]) +createStack_parameters = Lens.lens (\CreateStack' {parameters} -> parameters) (\s@CreateStack' {} a -> s {parameters = a} :: CreateStack) Prelude.. Lens.mapping Lens.coerced + +-- | The template resource types that you have permissions to work with for +-- this create stack action, such as @AWS::EC2::Instance@, @AWS::EC2::*@, +-- or @Custom::MyCustomInstance@. Use the following syntax to describe +-- template resource types: @AWS::*@ (for all Amazon Web Services +-- resources), @Custom::*@ (for all custom resources), +-- @Custom::@/@logical_ID@/@ @ (for a specific custom resource), +-- @AWS::@/@service_name@/@::*@ (for all resources of a particular Amazon +-- Web Services service), and +-- @AWS::@/@service_name@/@::@/@resource_logical_ID@/@ @ (for a specific +-- Amazon Web Services resource). +-- +-- If the list of resource types doesn\'t include a resource that you\'re +-- creating, the stack creation fails. By default, CloudFormation grants +-- permissions to all resource types. Identity and Access Management (IAM) +-- uses this parameter for CloudFormation-specific condition keys in IAM +-- policies. For more information, see +-- . +createStack_resourceTypes :: Lens.Lens' CreateStack (Prelude.Maybe [Prelude.Text]) +createStack_resourceTypes = Lens.lens (\CreateStack' {resourceTypes} -> resourceTypes) (\s@CreateStack' {} a -> s {resourceTypes = a} :: CreateStack) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to create the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation always uses this role for all future operations +-- on the stack. Provided that users have permission to operate on the +-- stack, CloudFormation uses this role even if the users don\'t have +-- permission to pass it. Ensure that the role grants least privilege. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that\'s generated from your user +-- credentials. +createStack_roleARN :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text) +createStack_roleARN = Lens.lens (\CreateStack' {roleARN} -> roleARN) (\s@CreateStack' {} a -> s {roleARN = a} :: CreateStack) + +-- | The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +createStack_rollbackConfiguration :: Lens.Lens' CreateStack (Prelude.Maybe RollbackConfiguration) +createStack_rollbackConfiguration = Lens.lens (\CreateStack' {rollbackConfiguration} -> rollbackConfiguration) (\s@CreateStack' {} a -> s {rollbackConfiguration = a} :: CreateStack) + +-- | Structure containing the stack policy body. For more information, go to +-- +-- in the /CloudFormation User Guide/. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +createStack_stackPolicyBody :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text) +createStack_stackPolicyBody = Lens.lens (\CreateStack' {stackPolicyBody} -> stackPolicyBody) (\s@CreateStack' {} a -> s {stackPolicyBody = a} :: CreateStack) + +-- | Location of a file containing the stack policy. The URL must point to a +-- policy (maximum size: 16 KB) located in an S3 bucket in the same Region +-- as the stack. You can specify either the @StackPolicyBody@ or the +-- @StackPolicyURL@ parameter, but not both. +createStack_stackPolicyURL :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text) +createStack_stackPolicyURL = Lens.lens (\CreateStack' {stackPolicyURL} -> stackPolicyURL) (\s@CreateStack' {} a -> s {stackPolicyURL = a} :: CreateStack) + +-- | Key-value pairs to associate with this stack. CloudFormation also +-- propagates these tags to the resources created in the stack. A maximum +-- number of 50 tags can be specified. +createStack_tags :: Lens.Lens' CreateStack (Prelude.Maybe [Tag]) +createStack_tags = Lens.lens (\CreateStack' {tags} -> tags) (\s@CreateStack' {} a -> s {tags = a} :: CreateStack) Prelude.. Lens.mapping Lens.coerced + +-- | Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the @TemplateBody@ or the +-- @TemplateURL@ parameter, but not both. +createStack_templateBody :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text) +createStack_templateBody = Lens.lens (\CreateStack' {templateBody} -> templateBody) (\s@CreateStack' {} a -> s {templateBody = a} :: CreateStack) + +-- | Location of file containing the template body. The URL must point to a +-- template (max size: 460,800 bytes) that\'s located in an Amazon S3 +-- bucket or a Systems Manager document. For more information, go to the +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the @TemplateBody@ or the +-- @TemplateURL@ parameter, but not both. +createStack_templateURL :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Text) +createStack_templateURL = Lens.lens (\CreateStack' {templateURL} -> templateURL) (\s@CreateStack' {} a -> s {templateURL = a} :: CreateStack) + +-- | The amount of time that can pass before the stack status becomes +-- CREATE_FAILED; if @DisableRollback@ is not set or is set to @false@, the +-- stack will be rolled back. +createStack_timeoutInMinutes :: Lens.Lens' CreateStack (Prelude.Maybe Prelude.Natural) +createStack_timeoutInMinutes = Lens.lens (\CreateStack' {timeoutInMinutes} -> timeoutInMinutes) (\s@CreateStack' {} a -> s {timeoutInMinutes = a} :: CreateStack) + +-- | The name that\'s associated with the stack. The name must be unique in +-- the Region in which you are creating the stack. +-- +-- A stack name can contain only alphanumeric characters (case sensitive) +-- and hyphens. It must start with an alphabetical character and can\'t be +-- longer than 128 characters. +createStack_stackName :: Lens.Lens' CreateStack Prelude.Text +createStack_stackName = Lens.lens (\CreateStack' {stackName} -> stackName) (\s@CreateStack' {} a -> s {stackName = a} :: CreateStack) + +instance Core.AWSRequest CreateStack where + type AWSResponse CreateStack = CreateStackResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "CreateStackResult" + ( \s h x -> + CreateStackResponse' + Prelude.<$> (x Data..@? "StackId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable CreateStack where + hashWithSalt _salt CreateStack' {..} = + _salt + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` disableRollback + `Prelude.hashWithSalt` enableTerminationProtection + `Prelude.hashWithSalt` notificationARNs + `Prelude.hashWithSalt` onFailure + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` resourceTypes + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` rollbackConfiguration + `Prelude.hashWithSalt` stackPolicyBody + `Prelude.hashWithSalt` stackPolicyURL + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + `Prelude.hashWithSalt` timeoutInMinutes + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData CreateStack where + rnf CreateStack' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf disableRollback + `Prelude.seq` Prelude.rnf enableTerminationProtection + `Prelude.seq` Prelude.rnf notificationARNs + `Prelude.seq` Prelude.rnf onFailure + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf resourceTypes + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf rollbackConfiguration + `Prelude.seq` Prelude.rnf stackPolicyBody + `Prelude.seq` Prelude.rnf stackPolicyURL + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + `Prelude.seq` Prelude.rnf timeoutInMinutes + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders CreateStack where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath CreateStack where + toPath = Prelude.const "/" + +instance Data.ToQuery CreateStack where + toQuery CreateStack' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("CreateStack" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Capabilities" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> capabilities), + "ClientRequestToken" Data.=: clientRequestToken, + "DisableRollback" Data.=: disableRollback, + "EnableTerminationProtection" + Data.=: enableTerminationProtection, + "NotificationARNs" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> notificationARNs + ), + "OnFailure" Data.=: onFailure, + "Parameters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> parameters), + "ResourceTypes" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> resourceTypes + ), + "RoleARN" Data.=: roleARN, + "RollbackConfiguration" + Data.=: rollbackConfiguration, + "StackPolicyBody" Data.=: stackPolicyBody, + "StackPolicyURL" Data.=: stackPolicyURL, + "Tags" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> tags), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL, + "TimeoutInMinutes" Data.=: timeoutInMinutes, + "StackName" Data.=: stackName + ] + +-- | The output for a CreateStack action. +-- +-- /See:/ 'newCreateStackResponse' smart constructor. +data CreateStackResponse = CreateStackResponse' + { -- | Unique identifier of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateStackResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackId', 'createStackResponse_stackId' - Unique identifier of the stack. +-- +-- 'httpStatus', 'createStackResponse_httpStatus' - The response's http status code. +newCreateStackResponse :: + -- | 'httpStatus' + Prelude.Int -> + CreateStackResponse +newCreateStackResponse pHttpStatus_ = + CreateStackResponse' + { stackId = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Unique identifier of the stack. +createStackResponse_stackId :: Lens.Lens' CreateStackResponse (Prelude.Maybe Prelude.Text) +createStackResponse_stackId = Lens.lens (\CreateStackResponse' {stackId} -> stackId) (\s@CreateStackResponse' {} a -> s {stackId = a} :: CreateStackResponse) + +-- | The response's http status code. +createStackResponse_httpStatus :: Lens.Lens' CreateStackResponse Prelude.Int +createStackResponse_httpStatus = Lens.lens (\CreateStackResponse' {httpStatus} -> httpStatus) (\s@CreateStackResponse' {} a -> s {httpStatus = a} :: CreateStackResponse) + +instance Prelude.NFData CreateStackResponse where + rnf CreateStackResponse' {..} = + Prelude.rnf stackId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/CreateStackInstances.hs b/gen/Amazonka/CloudFormation/CreateStackInstances.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/CreateStackInstances.hs @@ -0,0 +1,451 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.CreateStackInstances +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates stack instances for the specified accounts, within the specified +-- Amazon Web Services Regions. A stack instance refers to a stack in a +-- specific account and Region. You must specify at least one value for +-- either @Accounts@ or @DeploymentTargets@, and you must specify at least +-- one value for @Regions@. +module Amazonka.CloudFormation.CreateStackInstances + ( -- * Creating a Request + CreateStackInstances (..), + newCreateStackInstances, + + -- * Request Lenses + createStackInstances_accounts, + createStackInstances_callAs, + createStackInstances_deploymentTargets, + createStackInstances_operationId, + createStackInstances_operationPreferences, + createStackInstances_parameterOverrides, + createStackInstances_stackSetName, + createStackInstances_regions, + + -- * Destructuring the Response + CreateStackInstancesResponse (..), + newCreateStackInstancesResponse, + + -- * Response Lenses + createStackInstancesResponse_operationId, + createStackInstancesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newCreateStackInstances' smart constructor. +data CreateStackInstances = CreateStackInstances' + { -- | [Self-managed permissions] The names of one or more Amazon Web Services + -- accounts that you want to create stack instances in the specified + -- Region(s) for. + -- + -- You can specify @Accounts@ or @DeploymentTargets@, but not both. + accounts :: Prelude.Maybe [Prelude.Text], + -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | [Service-managed permissions] The Organizations accounts for which to + -- create stack instances in the specified Amazon Web Services Regions. + -- + -- You can specify @Accounts@ or @DeploymentTargets@, but not both. + deploymentTargets :: Prelude.Maybe DeploymentTargets, + -- | The unique identifier for this stack set operation. + -- + -- The operation ID also functions as an idempotency token, to ensure that + -- CloudFormation performs the stack set operation only once, even if you + -- retry the request multiple times. You might retry stack set operation + -- requests to ensure that CloudFormation successfully received them. + -- + -- If you don\'t specify an operation ID, the SDK generates one + -- automatically. + -- + -- Repeating this stack set operation with a new operation ID retries all + -- stack instances whose status is @OUTDATED@. + operationId :: Prelude.Maybe Prelude.Text, + -- | Preferences for how CloudFormation performs this stack set operation. + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | A list of stack set parameters whose values you want to override in the + -- selected stack instances. + -- + -- Any overridden parameter values will be applied to all stack instances + -- in the specified accounts and Amazon Web Services Regions. When + -- specifying parameters and their values, be aware of how CloudFormation + -- sets parameter values during stack instance operations: + -- + -- - To override the current value for a parameter, include the parameter + -- and specify its value. + -- + -- - To leave an overridden parameter set to its present value, include + -- the parameter and specify @UsePreviousValue@ as @true@. (You can\'t + -- specify both a value and set @UsePreviousValue@ to @true@.) + -- + -- - To set an overridden parameter back to the value specified in the + -- stack set, specify a parameter list but don\'t include the parameter + -- in the list. + -- + -- - To leave all parameters set to their present values, don\'t specify + -- this property at all. + -- + -- During stack set updates, any parameter values overridden for a stack + -- instance aren\'t updated, but retain their overridden value. + -- + -- You can only override the parameter /values/ that are specified in the + -- stack set; to add or delete a parameter itself, use + -- + -- to update the stack set template. + parameterOverrides :: Prelude.Maybe [Parameter], + -- | The name or unique ID of the stack set that you want to create stack + -- instances from. + stackSetName :: Prelude.Text, + -- | The names of one or more Amazon Web Services Regions where you want to + -- create stack instances using the specified Amazon Web Services accounts. + regions :: [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateStackInstances' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'accounts', 'createStackInstances_accounts' - [Self-managed permissions] The names of one or more Amazon Web Services +-- accounts that you want to create stack instances in the specified +-- Region(s) for. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +-- +-- 'callAs', 'createStackInstances_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'deploymentTargets', 'createStackInstances_deploymentTargets' - [Service-managed permissions] The Organizations accounts for which to +-- create stack instances in the specified Amazon Web Services Regions. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +-- +-- 'operationId', 'createStackInstances_operationId' - The unique identifier for this stack set operation. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You might retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +-- +-- Repeating this stack set operation with a new operation ID retries all +-- stack instances whose status is @OUTDATED@. +-- +-- 'operationPreferences', 'createStackInstances_operationPreferences' - Preferences for how CloudFormation performs this stack set operation. +-- +-- 'parameterOverrides', 'createStackInstances_parameterOverrides' - A list of stack set parameters whose values you want to override in the +-- selected stack instances. +-- +-- Any overridden parameter values will be applied to all stack instances +-- in the specified accounts and Amazon Web Services Regions. When +-- specifying parameters and their values, be aware of how CloudFormation +-- sets parameter values during stack instance operations: +-- +-- - To override the current value for a parameter, include the parameter +-- and specify its value. +-- +-- - To leave an overridden parameter set to its present value, include +-- the parameter and specify @UsePreviousValue@ as @true@. (You can\'t +-- specify both a value and set @UsePreviousValue@ to @true@.) +-- +-- - To set an overridden parameter back to the value specified in the +-- stack set, specify a parameter list but don\'t include the parameter +-- in the list. +-- +-- - To leave all parameters set to their present values, don\'t specify +-- this property at all. +-- +-- During stack set updates, any parameter values overridden for a stack +-- instance aren\'t updated, but retain their overridden value. +-- +-- You can only override the parameter /values/ that are specified in the +-- stack set; to add or delete a parameter itself, use +-- +-- to update the stack set template. +-- +-- 'stackSetName', 'createStackInstances_stackSetName' - The name or unique ID of the stack set that you want to create stack +-- instances from. +-- +-- 'regions', 'createStackInstances_regions' - The names of one or more Amazon Web Services Regions where you want to +-- create stack instances using the specified Amazon Web Services accounts. +newCreateStackInstances :: + -- | 'stackSetName' + Prelude.Text -> + CreateStackInstances +newCreateStackInstances pStackSetName_ = + CreateStackInstances' + { accounts = Prelude.Nothing, + callAs = Prelude.Nothing, + deploymentTargets = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + parameterOverrides = Prelude.Nothing, + stackSetName = pStackSetName_, + regions = Prelude.mempty + } + +-- | [Self-managed permissions] The names of one or more Amazon Web Services +-- accounts that you want to create stack instances in the specified +-- Region(s) for. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +createStackInstances_accounts :: Lens.Lens' CreateStackInstances (Prelude.Maybe [Prelude.Text]) +createStackInstances_accounts = Lens.lens (\CreateStackInstances' {accounts} -> accounts) (\s@CreateStackInstances' {} a -> s {accounts = a} :: CreateStackInstances) Prelude.. Lens.mapping Lens.coerced + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +createStackInstances_callAs :: Lens.Lens' CreateStackInstances (Prelude.Maybe CallAs) +createStackInstances_callAs = Lens.lens (\CreateStackInstances' {callAs} -> callAs) (\s@CreateStackInstances' {} a -> s {callAs = a} :: CreateStackInstances) + +-- | [Service-managed permissions] The Organizations accounts for which to +-- create stack instances in the specified Amazon Web Services Regions. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +createStackInstances_deploymentTargets :: Lens.Lens' CreateStackInstances (Prelude.Maybe DeploymentTargets) +createStackInstances_deploymentTargets = Lens.lens (\CreateStackInstances' {deploymentTargets} -> deploymentTargets) (\s@CreateStackInstances' {} a -> s {deploymentTargets = a} :: CreateStackInstances) + +-- | The unique identifier for this stack set operation. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You might retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +-- +-- Repeating this stack set operation with a new operation ID retries all +-- stack instances whose status is @OUTDATED@. +createStackInstances_operationId :: Lens.Lens' CreateStackInstances (Prelude.Maybe Prelude.Text) +createStackInstances_operationId = Lens.lens (\CreateStackInstances' {operationId} -> operationId) (\s@CreateStackInstances' {} a -> s {operationId = a} :: CreateStackInstances) + +-- | Preferences for how CloudFormation performs this stack set operation. +createStackInstances_operationPreferences :: Lens.Lens' CreateStackInstances (Prelude.Maybe StackSetOperationPreferences) +createStackInstances_operationPreferences = Lens.lens (\CreateStackInstances' {operationPreferences} -> operationPreferences) (\s@CreateStackInstances' {} a -> s {operationPreferences = a} :: CreateStackInstances) + +-- | A list of stack set parameters whose values you want to override in the +-- selected stack instances. +-- +-- Any overridden parameter values will be applied to all stack instances +-- in the specified accounts and Amazon Web Services Regions. When +-- specifying parameters and their values, be aware of how CloudFormation +-- sets parameter values during stack instance operations: +-- +-- - To override the current value for a parameter, include the parameter +-- and specify its value. +-- +-- - To leave an overridden parameter set to its present value, include +-- the parameter and specify @UsePreviousValue@ as @true@. (You can\'t +-- specify both a value and set @UsePreviousValue@ to @true@.) +-- +-- - To set an overridden parameter back to the value specified in the +-- stack set, specify a parameter list but don\'t include the parameter +-- in the list. +-- +-- - To leave all parameters set to their present values, don\'t specify +-- this property at all. +-- +-- During stack set updates, any parameter values overridden for a stack +-- instance aren\'t updated, but retain their overridden value. +-- +-- You can only override the parameter /values/ that are specified in the +-- stack set; to add or delete a parameter itself, use +-- +-- to update the stack set template. +createStackInstances_parameterOverrides :: Lens.Lens' CreateStackInstances (Prelude.Maybe [Parameter]) +createStackInstances_parameterOverrides = Lens.lens (\CreateStackInstances' {parameterOverrides} -> parameterOverrides) (\s@CreateStackInstances' {} a -> s {parameterOverrides = a} :: CreateStackInstances) Prelude.. Lens.mapping Lens.coerced + +-- | The name or unique ID of the stack set that you want to create stack +-- instances from. +createStackInstances_stackSetName :: Lens.Lens' CreateStackInstances Prelude.Text +createStackInstances_stackSetName = Lens.lens (\CreateStackInstances' {stackSetName} -> stackSetName) (\s@CreateStackInstances' {} a -> s {stackSetName = a} :: CreateStackInstances) + +-- | The names of one or more Amazon Web Services Regions where you want to +-- create stack instances using the specified Amazon Web Services accounts. +createStackInstances_regions :: Lens.Lens' CreateStackInstances [Prelude.Text] +createStackInstances_regions = Lens.lens (\CreateStackInstances' {regions} -> regions) (\s@CreateStackInstances' {} a -> s {regions = a} :: CreateStackInstances) Prelude.. Lens.coerced + +instance Core.AWSRequest CreateStackInstances where + type + AWSResponse CreateStackInstances = + CreateStackInstancesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "CreateStackInstancesResult" + ( \s h x -> + CreateStackInstancesResponse' + Prelude.<$> (x Data..@? "OperationId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable CreateStackInstances where + hashWithSalt _salt CreateStackInstances' {..} = + _salt + `Prelude.hashWithSalt` accounts + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` deploymentTargets + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` parameterOverrides + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` regions + +instance Prelude.NFData CreateStackInstances where + rnf CreateStackInstances' {..} = + Prelude.rnf accounts + `Prelude.seq` Prelude.rnf callAs + `Prelude.seq` Prelude.rnf deploymentTargets + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf parameterOverrides + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf regions + +instance Data.ToHeaders CreateStackInstances where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath CreateStackInstances where + toPath = Prelude.const "/" + +instance Data.ToQuery CreateStackInstances where + toQuery CreateStackInstances' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("CreateStackInstances" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Accounts" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> accounts), + "CallAs" Data.=: callAs, + "DeploymentTargets" Data.=: deploymentTargets, + "OperationId" Data.=: operationId, + "OperationPreferences" Data.=: operationPreferences, + "ParameterOverrides" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> parameterOverrides + ), + "StackSetName" Data.=: stackSetName, + "Regions" Data.=: Data.toQueryList "member" regions + ] + +-- | /See:/ 'newCreateStackInstancesResponse' smart constructor. +data CreateStackInstancesResponse = CreateStackInstancesResponse' + { -- | The unique identifier for this stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateStackInstancesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'operationId', 'createStackInstancesResponse_operationId' - The unique identifier for this stack set operation. +-- +-- 'httpStatus', 'createStackInstancesResponse_httpStatus' - The response's http status code. +newCreateStackInstancesResponse :: + -- | 'httpStatus' + Prelude.Int -> + CreateStackInstancesResponse +newCreateStackInstancesResponse pHttpStatus_ = + CreateStackInstancesResponse' + { operationId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The unique identifier for this stack set operation. +createStackInstancesResponse_operationId :: Lens.Lens' CreateStackInstancesResponse (Prelude.Maybe Prelude.Text) +createStackInstancesResponse_operationId = Lens.lens (\CreateStackInstancesResponse' {operationId} -> operationId) (\s@CreateStackInstancesResponse' {} a -> s {operationId = a} :: CreateStackInstancesResponse) + +-- | The response's http status code. +createStackInstancesResponse_httpStatus :: Lens.Lens' CreateStackInstancesResponse Prelude.Int +createStackInstancesResponse_httpStatus = Lens.lens (\CreateStackInstancesResponse' {httpStatus} -> httpStatus) (\s@CreateStackInstancesResponse' {} a -> s {httpStatus = a} :: CreateStackInstancesResponse) + +instance Prelude.NFData CreateStackInstancesResponse where + rnf CreateStackInstancesResponse' {..} = + Prelude.rnf operationId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/CreateStackSet.hs b/gen/Amazonka/CloudFormation/CreateStackSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/CreateStackSet.hs @@ -0,0 +1,786 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.CreateStackSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a stack set. +module Amazonka.CloudFormation.CreateStackSet + ( -- * Creating a Request + CreateStackSet (..), + newCreateStackSet, + + -- * Request Lenses + createStackSet_administrationRoleARN, + createStackSet_autoDeployment, + createStackSet_callAs, + createStackSet_capabilities, + createStackSet_clientRequestToken, + createStackSet_description, + createStackSet_executionRoleName, + createStackSet_managedExecution, + createStackSet_parameters, + createStackSet_permissionModel, + createStackSet_stackId, + createStackSet_tags, + createStackSet_templateBody, + createStackSet_templateURL, + createStackSet_stackSetName, + + -- * Destructuring the Response + CreateStackSetResponse (..), + newCreateStackSetResponse, + + -- * Response Lenses + createStackSetResponse_stackSetId, + createStackSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newCreateStackSet' smart constructor. +data CreateStackSet = CreateStackSet' + { -- | The Amazon Resource Name (ARN) of the IAM role to use to create this + -- stack set. + -- + -- Specify an IAM role only if you are using customized administrator roles + -- to control which users or groups can manage specific stack sets within + -- the same administrator account. For more information, see + -- + -- in the /CloudFormation User Guide/. + administrationRoleARN :: Prelude.Maybe Prelude.Text, + -- | Describes whether StackSets automatically deploys to Organizations + -- accounts that are added to the target organization or organizational + -- unit (OU). Specify only if @PermissionModel@ is @SERVICE_MANAGED@. + autoDeployment :: Prelude.Maybe AutoDeployment, + -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - To create a stack set with service-managed permissions while signed + -- in to the management account, specify @SELF@. + -- + -- - To create a stack set with service-managed permissions while signed + -- in to a delegated administrator account, specify @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- admin in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + -- + -- Stack sets with service-managed permissions are created in the + -- management account, including stack sets that are created by delegated + -- administrators. + callAs :: Prelude.Maybe CallAs, + -- | In some cases, you must explicitly acknowledge that your stack set + -- template contains certain capabilities in order for CloudFormation to + -- create the stack set and related stack instances. + -- + -- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ + -- + -- Some stack templates might include resources that can affect + -- permissions in your Amazon Web Services account; for example, by + -- creating new Identity and Access Management (IAM) users. For those + -- stack sets, you must explicitly acknowledge this by specifying one + -- of these capabilities. + -- + -- The following IAM resources require you to specify either the + -- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. + -- + -- - If you have IAM resources, you can specify either capability. + -- + -- - If you have IAM resources with custom names, you /must/ specify + -- @CAPABILITY_NAMED_IAM@. + -- + -- - If you don\'t specify either of these capabilities, + -- CloudFormation returns an @InsufficientCapabilities@ error. + -- + -- If your stack template contains these resources, we recommend that + -- you review all permissions associated with them and edit their + -- permissions if necessary. + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- For more information, see + -- . + -- + -- - @CAPABILITY_AUTO_EXPAND@ + -- + -- Some templates reference macros. If your stack set template + -- references one or more macros, you must create the stack set + -- directly from the processed template, without first reviewing the + -- resulting changes in a change set. To create the stack set directly, + -- you must acknowledge this capability. For more information, see + -- . + -- + -- Stack sets with service-managed permissions don\'t currently support + -- the use of macros in templates. (This includes the + -- + -- and + -- + -- transforms, which are macros hosted by CloudFormation.) Even if you + -- specify this capability for a stack set with service-managed + -- permissions, if you reference a macro in your template the stack set + -- operation will fail. + capabilities :: Prelude.Maybe [Capability], + -- | A unique identifier for this @CreateStackSet@ request. Specify this + -- token if you plan to retry requests so that CloudFormation knows that + -- you\'re not attempting to create another stack set with the same name. + -- You might retry @CreateStackSet@ requests to ensure that CloudFormation + -- successfully received them. + -- + -- If you don\'t specify an operation ID, the SDK generates one + -- automatically. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | A description of the stack set. You can use the description to identify + -- the stack set\'s purpose or other important information. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the IAM execution role to use to create the stack set. If + -- you do not specify an execution role, CloudFormation uses the + -- @AWSCloudFormationStackSetExecutionRole@ role for the stack set + -- operation. + -- + -- Specify an IAM role only if you are using customized execution roles to + -- control which stack resources users and groups can include in their + -- stack sets. + executionRoleName :: Prelude.Maybe Prelude.Text, + -- | Describes whether StackSets performs non-conflicting operations + -- concurrently and queues conflicting operations. + managedExecution :: Prelude.Maybe ManagedExecution, + -- | The input parameters for the stack set template. + parameters :: Prelude.Maybe [Parameter], + -- | Describes how the IAM roles required for stack set operations are + -- created. By default, @SELF-MANAGED@ is specified. + -- + -- - With @self-managed@ permissions, you must create the administrator + -- and execution roles required to deploy to target accounts. For more + -- information, see + -- . + -- + -- - With @service-managed@ permissions, StackSets automatically creates + -- the IAM roles required to deploy to accounts managed by + -- Organizations. For more information, see + -- . + permissionModel :: Prelude.Maybe PermissionModels, + -- | The stack ID you are importing into a new stack set. Specify the Amazon + -- Resource Name (ARN) of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The key-value pairs to associate with this stack set and the stacks + -- created from it. CloudFormation also propagates these tags to supported + -- resources that are created in the stacks. A maximum number of 50 tags + -- can be specified. + -- + -- If you specify tags as part of a @CreateStackSet@ action, CloudFormation + -- checks to see if you have the required IAM permission to tag resources. + -- If you don\'t, the entire @CreateStackSet@ action fails with an + -- @access denied@ error, and the stack set is not created. + tags :: Prelude.Maybe [Tag], + -- | The structure that contains the template body, with a minimum length of + -- 1 byte and a maximum length of 51,200 bytes. For more information, see + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify either the TemplateBody or the TemplateURL + -- parameter, but not both. + templateBody :: Prelude.Maybe Prelude.Text, + -- | The location of the file that contains the template body. The URL must + -- point to a template (maximum size: 460,800 bytes) that\'s located in an + -- Amazon S3 bucket or a Systems Manager document. For more information, + -- see + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify either the TemplateBody or the TemplateURL + -- parameter, but not both. + templateURL :: Prelude.Maybe Prelude.Text, + -- | The name to associate with the stack set. The name must be unique in the + -- Region where you create your stack set. + -- + -- A stack name can contain only alphanumeric characters (case-sensitive) + -- and hyphens. It must start with an alphabetic character and can\'t be + -- longer than 128 characters. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateStackSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'administrationRoleARN', 'createStackSet_administrationRoleARN' - The Amazon Resource Name (ARN) of the IAM role to use to create this +-- stack set. +-- +-- Specify an IAM role only if you are using customized administrator roles +-- to control which users or groups can manage specific stack sets within +-- the same administrator account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'autoDeployment', 'createStackSet_autoDeployment' - Describes whether StackSets automatically deploys to Organizations +-- accounts that are added to the target organization or organizational +-- unit (OU). Specify only if @PermissionModel@ is @SERVICE_MANAGED@. +-- +-- 'callAs', 'createStackSet_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - To create a stack set with service-managed permissions while signed +-- in to the management account, specify @SELF@. +-- +-- - To create a stack set with service-managed permissions while signed +-- in to a delegated administrator account, specify @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- admin in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- Stack sets with service-managed permissions are created in the +-- management account, including stack sets that are created by delegated +-- administrators. +-- +-- 'capabilities', 'createStackSet_capabilities' - In some cases, you must explicitly acknowledge that your stack set +-- template contains certain capabilities in order for CloudFormation to +-- create the stack set and related stack instances. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stack sets, you must explicitly acknowledge this by specifying one +-- of these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we recommend that +-- you review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some templates reference macros. If your stack set template +-- references one or more macros, you must create the stack set +-- directly from the processed template, without first reviewing the +-- resulting changes in a change set. To create the stack set directly, +-- you must acknowledge this capability. For more information, see +-- . +-- +-- Stack sets with service-managed permissions don\'t currently support +-- the use of macros in templates. (This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation.) Even if you +-- specify this capability for a stack set with service-managed +-- permissions, if you reference a macro in your template the stack set +-- operation will fail. +-- +-- 'clientRequestToken', 'createStackSet_clientRequestToken' - A unique identifier for this @CreateStackSet@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to create another stack set with the same name. +-- You might retry @CreateStackSet@ requests to ensure that CloudFormation +-- successfully received them. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +-- +-- 'description', 'createStackSet_description' - A description of the stack set. You can use the description to identify +-- the stack set\'s purpose or other important information. +-- +-- 'executionRoleName', 'createStackSet_executionRoleName' - The name of the IAM execution role to use to create the stack set. If +-- you do not specify an execution role, CloudFormation uses the +-- @AWSCloudFormationStackSetExecutionRole@ role for the stack set +-- operation. +-- +-- Specify an IAM role only if you are using customized execution roles to +-- control which stack resources users and groups can include in their +-- stack sets. +-- +-- 'managedExecution', 'createStackSet_managedExecution' - Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +-- +-- 'parameters', 'createStackSet_parameters' - The input parameters for the stack set template. +-- +-- 'permissionModel', 'createStackSet_permissionModel' - Describes how the IAM roles required for stack set operations are +-- created. By default, @SELF-MANAGED@ is specified. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +-- +-- 'stackId', 'createStackSet_stackId' - The stack ID you are importing into a new stack set. Specify the Amazon +-- Resource Name (ARN) of the stack. +-- +-- 'tags', 'createStackSet_tags' - The key-value pairs to associate with this stack set and the stacks +-- created from it. CloudFormation also propagates these tags to supported +-- resources that are created in the stacks. A maximum number of 50 tags +-- can be specified. +-- +-- If you specify tags as part of a @CreateStackSet@ action, CloudFormation +-- checks to see if you have the required IAM permission to tag resources. +-- If you don\'t, the entire @CreateStackSet@ action fails with an +-- @access denied@ error, and the stack set is not created. +-- +-- 'templateBody', 'createStackSet_templateBody' - The structure that contains the template body, with a minimum length of +-- 1 byte and a maximum length of 51,200 bytes. For more information, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the TemplateBody or the TemplateURL +-- parameter, but not both. +-- +-- 'templateURL', 'createStackSet_templateURL' - The location of the file that contains the template body. The URL must +-- point to a template (maximum size: 460,800 bytes) that\'s located in an +-- Amazon S3 bucket or a Systems Manager document. For more information, +-- see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the TemplateBody or the TemplateURL +-- parameter, but not both. +-- +-- 'stackSetName', 'createStackSet_stackSetName' - The name to associate with the stack set. The name must be unique in the +-- Region where you create your stack set. +-- +-- A stack name can contain only alphanumeric characters (case-sensitive) +-- and hyphens. It must start with an alphabetic character and can\'t be +-- longer than 128 characters. +newCreateStackSet :: + -- | 'stackSetName' + Prelude.Text -> + CreateStackSet +newCreateStackSet pStackSetName_ = + CreateStackSet' + { administrationRoleARN = + Prelude.Nothing, + autoDeployment = Prelude.Nothing, + callAs = Prelude.Nothing, + capabilities = Prelude.Nothing, + clientRequestToken = Prelude.Nothing, + description = Prelude.Nothing, + executionRoleName = Prelude.Nothing, + managedExecution = Prelude.Nothing, + parameters = Prelude.Nothing, + permissionModel = Prelude.Nothing, + stackId = Prelude.Nothing, + tags = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | The Amazon Resource Name (ARN) of the IAM role to use to create this +-- stack set. +-- +-- Specify an IAM role only if you are using customized administrator roles +-- to control which users or groups can manage specific stack sets within +-- the same administrator account. For more information, see +-- +-- in the /CloudFormation User Guide/. +createStackSet_administrationRoleARN :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_administrationRoleARN = Lens.lens (\CreateStackSet' {administrationRoleARN} -> administrationRoleARN) (\s@CreateStackSet' {} a -> s {administrationRoleARN = a} :: CreateStackSet) + +-- | Describes whether StackSets automatically deploys to Organizations +-- accounts that are added to the target organization or organizational +-- unit (OU). Specify only if @PermissionModel@ is @SERVICE_MANAGED@. +createStackSet_autoDeployment :: Lens.Lens' CreateStackSet (Prelude.Maybe AutoDeployment) +createStackSet_autoDeployment = Lens.lens (\CreateStackSet' {autoDeployment} -> autoDeployment) (\s@CreateStackSet' {} a -> s {autoDeployment = a} :: CreateStackSet) + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - To create a stack set with service-managed permissions while signed +-- in to the management account, specify @SELF@. +-- +-- - To create a stack set with service-managed permissions while signed +-- in to a delegated administrator account, specify @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- admin in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- Stack sets with service-managed permissions are created in the +-- management account, including stack sets that are created by delegated +-- administrators. +createStackSet_callAs :: Lens.Lens' CreateStackSet (Prelude.Maybe CallAs) +createStackSet_callAs = Lens.lens (\CreateStackSet' {callAs} -> callAs) (\s@CreateStackSet' {} a -> s {callAs = a} :: CreateStackSet) + +-- | In some cases, you must explicitly acknowledge that your stack set +-- template contains certain capabilities in order for CloudFormation to +-- create the stack set and related stack instances. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stack sets, you must explicitly acknowledge this by specifying one +-- of these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we recommend that +-- you review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some templates reference macros. If your stack set template +-- references one or more macros, you must create the stack set +-- directly from the processed template, without first reviewing the +-- resulting changes in a change set. To create the stack set directly, +-- you must acknowledge this capability. For more information, see +-- . +-- +-- Stack sets with service-managed permissions don\'t currently support +-- the use of macros in templates. (This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation.) Even if you +-- specify this capability for a stack set with service-managed +-- permissions, if you reference a macro in your template the stack set +-- operation will fail. +createStackSet_capabilities :: Lens.Lens' CreateStackSet (Prelude.Maybe [Capability]) +createStackSet_capabilities = Lens.lens (\CreateStackSet' {capabilities} -> capabilities) (\s@CreateStackSet' {} a -> s {capabilities = a} :: CreateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | A unique identifier for this @CreateStackSet@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to create another stack set with the same name. +-- You might retry @CreateStackSet@ requests to ensure that CloudFormation +-- successfully received them. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +createStackSet_clientRequestToken :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_clientRequestToken = Lens.lens (\CreateStackSet' {clientRequestToken} -> clientRequestToken) (\s@CreateStackSet' {} a -> s {clientRequestToken = a} :: CreateStackSet) + +-- | A description of the stack set. You can use the description to identify +-- the stack set\'s purpose or other important information. +createStackSet_description :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_description = Lens.lens (\CreateStackSet' {description} -> description) (\s@CreateStackSet' {} a -> s {description = a} :: CreateStackSet) + +-- | The name of the IAM execution role to use to create the stack set. If +-- you do not specify an execution role, CloudFormation uses the +-- @AWSCloudFormationStackSetExecutionRole@ role for the stack set +-- operation. +-- +-- Specify an IAM role only if you are using customized execution roles to +-- control which stack resources users and groups can include in their +-- stack sets. +createStackSet_executionRoleName :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_executionRoleName = Lens.lens (\CreateStackSet' {executionRoleName} -> executionRoleName) (\s@CreateStackSet' {} a -> s {executionRoleName = a} :: CreateStackSet) + +-- | Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +createStackSet_managedExecution :: Lens.Lens' CreateStackSet (Prelude.Maybe ManagedExecution) +createStackSet_managedExecution = Lens.lens (\CreateStackSet' {managedExecution} -> managedExecution) (\s@CreateStackSet' {} a -> s {managedExecution = a} :: CreateStackSet) + +-- | The input parameters for the stack set template. +createStackSet_parameters :: Lens.Lens' CreateStackSet (Prelude.Maybe [Parameter]) +createStackSet_parameters = Lens.lens (\CreateStackSet' {parameters} -> parameters) (\s@CreateStackSet' {} a -> s {parameters = a} :: CreateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | Describes how the IAM roles required for stack set operations are +-- created. By default, @SELF-MANAGED@ is specified. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +createStackSet_permissionModel :: Lens.Lens' CreateStackSet (Prelude.Maybe PermissionModels) +createStackSet_permissionModel = Lens.lens (\CreateStackSet' {permissionModel} -> permissionModel) (\s@CreateStackSet' {} a -> s {permissionModel = a} :: CreateStackSet) + +-- | The stack ID you are importing into a new stack set. Specify the Amazon +-- Resource Name (ARN) of the stack. +createStackSet_stackId :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_stackId = Lens.lens (\CreateStackSet' {stackId} -> stackId) (\s@CreateStackSet' {} a -> s {stackId = a} :: CreateStackSet) + +-- | The key-value pairs to associate with this stack set and the stacks +-- created from it. CloudFormation also propagates these tags to supported +-- resources that are created in the stacks. A maximum number of 50 tags +-- can be specified. +-- +-- If you specify tags as part of a @CreateStackSet@ action, CloudFormation +-- checks to see if you have the required IAM permission to tag resources. +-- If you don\'t, the entire @CreateStackSet@ action fails with an +-- @access denied@ error, and the stack set is not created. +createStackSet_tags :: Lens.Lens' CreateStackSet (Prelude.Maybe [Tag]) +createStackSet_tags = Lens.lens (\CreateStackSet' {tags} -> tags) (\s@CreateStackSet' {} a -> s {tags = a} :: CreateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The structure that contains the template body, with a minimum length of +-- 1 byte and a maximum length of 51,200 bytes. For more information, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the TemplateBody or the TemplateURL +-- parameter, but not both. +createStackSet_templateBody :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_templateBody = Lens.lens (\CreateStackSet' {templateBody} -> templateBody) (\s@CreateStackSet' {} a -> s {templateBody = a} :: CreateStackSet) + +-- | The location of the file that contains the template body. The URL must +-- point to a template (maximum size: 460,800 bytes) that\'s located in an +-- Amazon S3 bucket or a Systems Manager document. For more information, +-- see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify either the TemplateBody or the TemplateURL +-- parameter, but not both. +createStackSet_templateURL :: Lens.Lens' CreateStackSet (Prelude.Maybe Prelude.Text) +createStackSet_templateURL = Lens.lens (\CreateStackSet' {templateURL} -> templateURL) (\s@CreateStackSet' {} a -> s {templateURL = a} :: CreateStackSet) + +-- | The name to associate with the stack set. The name must be unique in the +-- Region where you create your stack set. +-- +-- A stack name can contain only alphanumeric characters (case-sensitive) +-- and hyphens. It must start with an alphabetic character and can\'t be +-- longer than 128 characters. +createStackSet_stackSetName :: Lens.Lens' CreateStackSet Prelude.Text +createStackSet_stackSetName = Lens.lens (\CreateStackSet' {stackSetName} -> stackSetName) (\s@CreateStackSet' {} a -> s {stackSetName = a} :: CreateStackSet) + +instance Core.AWSRequest CreateStackSet where + type + AWSResponse CreateStackSet = + CreateStackSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "CreateStackSetResult" + ( \s h x -> + CreateStackSetResponse' + Prelude.<$> (x Data..@? "StackSetId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable CreateStackSet where + hashWithSalt _salt CreateStackSet' {..} = + _salt + `Prelude.hashWithSalt` administrationRoleARN + `Prelude.hashWithSalt` autoDeployment + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` executionRoleName + `Prelude.hashWithSalt` managedExecution + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` permissionModel + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData CreateStackSet where + rnf CreateStackSet' {..} = + Prelude.rnf administrationRoleARN + `Prelude.seq` Prelude.rnf autoDeployment + `Prelude.seq` Prelude.rnf callAs + `Prelude.seq` Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf executionRoleName + `Prelude.seq` Prelude.rnf managedExecution + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf permissionModel + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders CreateStackSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath CreateStackSet where + toPath = Prelude.const "/" + +instance Data.ToQuery CreateStackSet where + toQuery CreateStackSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("CreateStackSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "AdministrationRoleARN" + Data.=: administrationRoleARN, + "AutoDeployment" Data.=: autoDeployment, + "CallAs" Data.=: callAs, + "Capabilities" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> capabilities), + "ClientRequestToken" Data.=: clientRequestToken, + "Description" Data.=: description, + "ExecutionRoleName" Data.=: executionRoleName, + "ManagedExecution" Data.=: managedExecution, + "Parameters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> parameters), + "PermissionModel" Data.=: permissionModel, + "StackId" Data.=: stackId, + "Tags" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> tags), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newCreateStackSetResponse' smart constructor. +data CreateStackSetResponse = CreateStackSetResponse' + { -- | The ID of the stack set that you\'re creating. + stackSetId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateStackSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackSetId', 'createStackSetResponse_stackSetId' - The ID of the stack set that you\'re creating. +-- +-- 'httpStatus', 'createStackSetResponse_httpStatus' - The response's http status code. +newCreateStackSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + CreateStackSetResponse +newCreateStackSetResponse pHttpStatus_ = + CreateStackSetResponse' + { stackSetId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The ID of the stack set that you\'re creating. +createStackSetResponse_stackSetId :: Lens.Lens' CreateStackSetResponse (Prelude.Maybe Prelude.Text) +createStackSetResponse_stackSetId = Lens.lens (\CreateStackSetResponse' {stackSetId} -> stackSetId) (\s@CreateStackSetResponse' {} a -> s {stackSetId = a} :: CreateStackSetResponse) + +-- | The response's http status code. +createStackSetResponse_httpStatus :: Lens.Lens' CreateStackSetResponse Prelude.Int +createStackSetResponse_httpStatus = Lens.lens (\CreateStackSetResponse' {httpStatus} -> httpStatus) (\s@CreateStackSetResponse' {} a -> s {httpStatus = a} :: CreateStackSetResponse) + +instance Prelude.NFData CreateStackSetResponse where + rnf CreateStackSetResponse' {..} = + Prelude.rnf stackSetId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DeactivateType.hs b/gen/Amazonka/CloudFormation/DeactivateType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DeactivateType.hs @@ -0,0 +1,204 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DeactivateType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deactivates a public extension that was previously activated in this +-- account and region. +-- +-- Once deactivated, an extension can\'t be used in any CloudFormation +-- operation. This includes stack update operations where the stack +-- template includes the extension, even if no updates are being made to +-- the extension. In addition, deactivated extensions aren\'t automatically +-- updated if a new version of the extension is released. +module Amazonka.CloudFormation.DeactivateType + ( -- * Creating a Request + DeactivateType (..), + newDeactivateType, + + -- * Request Lenses + deactivateType_arn, + deactivateType_type, + deactivateType_typeName, + + -- * Destructuring the Response + DeactivateTypeResponse (..), + newDeactivateTypeResponse, + + -- * Response Lenses + deactivateTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDeactivateType' smart constructor. +data DeactivateType = DeactivateType' + { -- | The Amazon Resource Name (ARN) for the extension, in this account and + -- region. + -- + -- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. + arn :: Prelude.Maybe Prelude.Text, + -- | The extension type. + -- + -- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. + type' :: Prelude.Maybe ThirdPartyType, + -- | The type name of the extension, in this account and region. If you + -- specified a type name alias when enabling the extension, use the type + -- name alias. + -- + -- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeactivateType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'deactivateType_arn' - The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. +-- +-- 'type'', 'deactivateType_type' - The extension type. +-- +-- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. +-- +-- 'typeName', 'deactivateType_typeName' - The type name of the extension, in this account and region. If you +-- specified a type name alias when enabling the extension, use the type +-- name alias. +-- +-- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. +newDeactivateType :: + DeactivateType +newDeactivateType = + DeactivateType' + { arn = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. +deactivateType_arn :: Lens.Lens' DeactivateType (Prelude.Maybe Prelude.Text) +deactivateType_arn = Lens.lens (\DeactivateType' {arn} -> arn) (\s@DeactivateType' {} a -> s {arn = a} :: DeactivateType) + +-- | The extension type. +-- +-- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. +deactivateType_type :: Lens.Lens' DeactivateType (Prelude.Maybe ThirdPartyType) +deactivateType_type = Lens.lens (\DeactivateType' {type'} -> type') (\s@DeactivateType' {} a -> s {type' = a} :: DeactivateType) + +-- | The type name of the extension, in this account and region. If you +-- specified a type name alias when enabling the extension, use the type +-- name alias. +-- +-- Conditional: You must specify either @Arn@, or @TypeName@ and @Type@. +deactivateType_typeName :: Lens.Lens' DeactivateType (Prelude.Maybe Prelude.Text) +deactivateType_typeName = Lens.lens (\DeactivateType' {typeName} -> typeName) (\s@DeactivateType' {} a -> s {typeName = a} :: DeactivateType) + +instance Core.AWSRequest DeactivateType where + type + AWSResponse DeactivateType = + DeactivateTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DeactivateTypeResult" + ( \s h x -> + DeactivateTypeResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DeactivateType where + hashWithSalt _salt DeactivateType' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData DeactivateType where + rnf DeactivateType' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + +instance Data.ToHeaders DeactivateType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DeactivateType where + toPath = Prelude.const "/" + +instance Data.ToQuery DeactivateType where + toQuery DeactivateType' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DeactivateType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "Type" Data.=: type', + "TypeName" Data.=: typeName + ] + +-- | /See:/ 'newDeactivateTypeResponse' smart constructor. +data DeactivateTypeResponse = DeactivateTypeResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeactivateTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'deactivateTypeResponse_httpStatus' - The response's http status code. +newDeactivateTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + DeactivateTypeResponse +newDeactivateTypeResponse pHttpStatus_ = + DeactivateTypeResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +deactivateTypeResponse_httpStatus :: Lens.Lens' DeactivateTypeResponse Prelude.Int +deactivateTypeResponse_httpStatus = Lens.lens (\DeactivateTypeResponse' {httpStatus} -> httpStatus) (\s@DeactivateTypeResponse' {} a -> s {httpStatus = a} :: DeactivateTypeResponse) + +instance Prelude.NFData DeactivateTypeResponse where + rnf DeactivateTypeResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DeleteChangeSet.hs b/gen/Amazonka/CloudFormation/DeleteChangeSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DeleteChangeSet.hs @@ -0,0 +1,178 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DeleteChangeSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified change set. Deleting change sets ensures that no +-- one executes the wrong change set. +-- +-- If the call successfully completes, CloudFormation successfully deleted +-- the change set. +-- +-- If @IncludeNestedStacks@ specifies @True@ during the creation of the +-- nested change set, then @DeleteChangeSet@ will delete all change sets +-- that belong to the stacks hierarchy and will also delete all change sets +-- for nested stacks with the status of @REVIEW_IN_PROGRESS@. +module Amazonka.CloudFormation.DeleteChangeSet + ( -- * Creating a Request + DeleteChangeSet (..), + newDeleteChangeSet, + + -- * Request Lenses + deleteChangeSet_stackName, + deleteChangeSet_changeSetName, + + -- * Destructuring the Response + DeleteChangeSetResponse (..), + newDeleteChangeSetResponse, + + -- * Response Lenses + deleteChangeSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the DeleteChangeSet action. +-- +-- /See:/ 'newDeleteChangeSet' smart constructor. +data DeleteChangeSet = DeleteChangeSet' + { -- | If you specified the name of a change set to delete, specify the stack + -- name or Amazon Resource Name (ARN) that\'s associated with it. + stackName :: Prelude.Maybe Prelude.Text, + -- | The name or Amazon Resource Name (ARN) of the change set that you want + -- to delete. + changeSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteChangeSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackName', 'deleteChangeSet_stackName' - If you specified the name of a change set to delete, specify the stack +-- name or Amazon Resource Name (ARN) that\'s associated with it. +-- +-- 'changeSetName', 'deleteChangeSet_changeSetName' - The name or Amazon Resource Name (ARN) of the change set that you want +-- to delete. +newDeleteChangeSet :: + -- | 'changeSetName' + Prelude.Text -> + DeleteChangeSet +newDeleteChangeSet pChangeSetName_ = + DeleteChangeSet' + { stackName = Prelude.Nothing, + changeSetName = pChangeSetName_ + } + +-- | If you specified the name of a change set to delete, specify the stack +-- name or Amazon Resource Name (ARN) that\'s associated with it. +deleteChangeSet_stackName :: Lens.Lens' DeleteChangeSet (Prelude.Maybe Prelude.Text) +deleteChangeSet_stackName = Lens.lens (\DeleteChangeSet' {stackName} -> stackName) (\s@DeleteChangeSet' {} a -> s {stackName = a} :: DeleteChangeSet) + +-- | The name or Amazon Resource Name (ARN) of the change set that you want +-- to delete. +deleteChangeSet_changeSetName :: Lens.Lens' DeleteChangeSet Prelude.Text +deleteChangeSet_changeSetName = Lens.lens (\DeleteChangeSet' {changeSetName} -> changeSetName) (\s@DeleteChangeSet' {} a -> s {changeSetName = a} :: DeleteChangeSet) + +instance Core.AWSRequest DeleteChangeSet where + type + AWSResponse DeleteChangeSet = + DeleteChangeSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DeleteChangeSetResult" + ( \s h x -> + DeleteChangeSetResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DeleteChangeSet where + hashWithSalt _salt DeleteChangeSet' {..} = + _salt + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` changeSetName + +instance Prelude.NFData DeleteChangeSet where + rnf DeleteChangeSet' {..} = + Prelude.rnf stackName + `Prelude.seq` Prelude.rnf changeSetName + +instance Data.ToHeaders DeleteChangeSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DeleteChangeSet where + toPath = Prelude.const "/" + +instance Data.ToQuery DeleteChangeSet where + toQuery DeleteChangeSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DeleteChangeSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackName" Data.=: stackName, + "ChangeSetName" Data.=: changeSetName + ] + +-- | The output for the DeleteChangeSet action. +-- +-- /See:/ 'newDeleteChangeSetResponse' smart constructor. +data DeleteChangeSetResponse = DeleteChangeSetResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteChangeSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'deleteChangeSetResponse_httpStatus' - The response's http status code. +newDeleteChangeSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + DeleteChangeSetResponse +newDeleteChangeSetResponse pHttpStatus_ = + DeleteChangeSetResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +deleteChangeSetResponse_httpStatus :: Lens.Lens' DeleteChangeSetResponse Prelude.Int +deleteChangeSetResponse_httpStatus = Lens.lens (\DeleteChangeSetResponse' {httpStatus} -> httpStatus) (\s@DeleteChangeSetResponse' {} a -> s {httpStatus = a} :: DeleteChangeSetResponse) + +instance Prelude.NFData DeleteChangeSetResponse where + rnf DeleteChangeSetResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DeleteStack.hs b/gen/Amazonka/CloudFormation/DeleteStack.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DeleteStack.hs @@ -0,0 +1,264 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DeleteStack +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a specified stack. Once the call completes successfully, stack +-- deletion starts. Deleted stacks don\'t show up in the DescribeStacks +-- operation if the deletion has been completed successfully. +module Amazonka.CloudFormation.DeleteStack + ( -- * Creating a Request + DeleteStack (..), + newDeleteStack, + + -- * Request Lenses + deleteStack_clientRequestToken, + deleteStack_retainResources, + deleteStack_roleARN, + deleteStack_stackName, + + -- * Destructuring the Response + DeleteStackResponse (..), + newDeleteStackResponse, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for DeleteStack action. +-- +-- /See:/ 'newDeleteStack' smart constructor. +data DeleteStack = DeleteStack' + { -- | A unique identifier for this @DeleteStack@ request. Specify this token + -- if you plan to retry requests so that CloudFormation knows that you\'re + -- not attempting to delete a stack with the same name. You might retry + -- @DeleteStack@ requests to ensure that CloudFormation successfully + -- received them. + -- + -- All events initiated by a given stack operation are assigned the same + -- client request token, which you can use to track operations. For + -- example, if you execute a @CreateStack@ operation with the token + -- @token1@, then all the @StackEvents@ generated by that operation will + -- have @ClientRequestToken@ set as @token1@. + -- + -- In the console, stack operations display the client request token on the + -- Events tab. Stack operations that are initiated from the console use the + -- token format /Console-StackOperation-ID/, which helps you easily + -- identify the stack operation . For example, if you create a stack using + -- the console, each stack event would be assigned the same token in the + -- following format: + -- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | For stacks in the @DELETE_FAILED@ state, a list of resource logical IDs + -- that are associated with the resources you want to retain. During + -- deletion, CloudFormation deletes the stack but doesn\'t delete the + -- retained resources. + -- + -- Retaining resources is useful when you can\'t delete a resource, such as + -- a non-empty S3 bucket, but you want to delete the stack. + retainResources :: Prelude.Maybe [Prelude.Text], + -- | The Amazon Resource Name (ARN) of an Identity and Access Management + -- (IAM) role that CloudFormation assumes to delete the stack. + -- CloudFormation uses the role\'s credentials to make calls on your + -- behalf. + -- + -- If you don\'t specify a value, CloudFormation uses the role that was + -- previously associated with the stack. If no role is available, + -- CloudFormation uses a temporary session that\'s generated from your user + -- credentials. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that\'s associated with the stack. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteStack' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'deleteStack_clientRequestToken' - A unique identifier for this @DeleteStack@ request. Specify this token +-- if you plan to retry requests so that CloudFormation knows that you\'re +-- not attempting to delete a stack with the same name. You might retry +-- @DeleteStack@ requests to ensure that CloudFormation successfully +-- received them. +-- +-- All events initiated by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +-- +-- 'retainResources', 'deleteStack_retainResources' - For stacks in the @DELETE_FAILED@ state, a list of resource logical IDs +-- that are associated with the resources you want to retain. During +-- deletion, CloudFormation deletes the stack but doesn\'t delete the +-- retained resources. +-- +-- Retaining resources is useful when you can\'t delete a resource, such as +-- a non-empty S3 bucket, but you want to delete the stack. +-- +-- 'roleARN', 'deleteStack_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to delete the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that\'s generated from your user +-- credentials. +-- +-- 'stackName', 'deleteStack_stackName' - The name or the unique stack ID that\'s associated with the stack. +newDeleteStack :: + -- | 'stackName' + Prelude.Text -> + DeleteStack +newDeleteStack pStackName_ = + DeleteStack' + { clientRequestToken = Prelude.Nothing, + retainResources = Prelude.Nothing, + roleARN = Prelude.Nothing, + stackName = pStackName_ + } + +-- | A unique identifier for this @DeleteStack@ request. Specify this token +-- if you plan to retry requests so that CloudFormation knows that you\'re +-- not attempting to delete a stack with the same name. You might retry +-- @DeleteStack@ requests to ensure that CloudFormation successfully +-- received them. +-- +-- All events initiated by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +deleteStack_clientRequestToken :: Lens.Lens' DeleteStack (Prelude.Maybe Prelude.Text) +deleteStack_clientRequestToken = Lens.lens (\DeleteStack' {clientRequestToken} -> clientRequestToken) (\s@DeleteStack' {} a -> s {clientRequestToken = a} :: DeleteStack) + +-- | For stacks in the @DELETE_FAILED@ state, a list of resource logical IDs +-- that are associated with the resources you want to retain. During +-- deletion, CloudFormation deletes the stack but doesn\'t delete the +-- retained resources. +-- +-- Retaining resources is useful when you can\'t delete a resource, such as +-- a non-empty S3 bucket, but you want to delete the stack. +deleteStack_retainResources :: Lens.Lens' DeleteStack (Prelude.Maybe [Prelude.Text]) +deleteStack_retainResources = Lens.lens (\DeleteStack' {retainResources} -> retainResources) (\s@DeleteStack' {} a -> s {retainResources = a} :: DeleteStack) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to delete the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that\'s generated from your user +-- credentials. +deleteStack_roleARN :: Lens.Lens' DeleteStack (Prelude.Maybe Prelude.Text) +deleteStack_roleARN = Lens.lens (\DeleteStack' {roleARN} -> roleARN) (\s@DeleteStack' {} a -> s {roleARN = a} :: DeleteStack) + +-- | The name or the unique stack ID that\'s associated with the stack. +deleteStack_stackName :: Lens.Lens' DeleteStack Prelude.Text +deleteStack_stackName = Lens.lens (\DeleteStack' {stackName} -> stackName) (\s@DeleteStack' {} a -> s {stackName = a} :: DeleteStack) + +instance Core.AWSRequest DeleteStack where + type AWSResponse DeleteStack = DeleteStackResponse + request overrides = + Request.postQuery (overrides defaultService) + response = Response.receiveNull DeleteStackResponse' + +instance Prelude.Hashable DeleteStack where + hashWithSalt _salt DeleteStack' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` retainResources + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData DeleteStack where + rnf DeleteStack' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf retainResources + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders DeleteStack where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DeleteStack where + toPath = Prelude.const "/" + +instance Data.ToQuery DeleteStack where + toQuery DeleteStack' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DeleteStack" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "RetainResources" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> retainResources + ), + "RoleARN" Data.=: roleARN, + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newDeleteStackResponse' smart constructor. +data DeleteStackResponse = DeleteStackResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteStackResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newDeleteStackResponse :: + DeleteStackResponse +newDeleteStackResponse = DeleteStackResponse' + +instance Prelude.NFData DeleteStackResponse where + rnf _ = () diff --git a/gen/Amazonka/CloudFormation/DeleteStackInstances.hs b/gen/Amazonka/CloudFormation/DeleteStackInstances.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DeleteStackInstances.hs @@ -0,0 +1,374 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DeleteStackInstances +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes stack instances for the specified accounts, in the specified +-- Amazon Web Services Regions. +module Amazonka.CloudFormation.DeleteStackInstances + ( -- * Creating a Request + DeleteStackInstances (..), + newDeleteStackInstances, + + -- * Request Lenses + deleteStackInstances_accounts, + deleteStackInstances_callAs, + deleteStackInstances_deploymentTargets, + deleteStackInstances_operationId, + deleteStackInstances_operationPreferences, + deleteStackInstances_stackSetName, + deleteStackInstances_regions, + deleteStackInstances_retainStacks, + + -- * Destructuring the Response + DeleteStackInstancesResponse (..), + newDeleteStackInstancesResponse, + + -- * Response Lenses + deleteStackInstancesResponse_operationId, + deleteStackInstancesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDeleteStackInstances' smart constructor. +data DeleteStackInstances = DeleteStackInstances' + { -- | [Self-managed permissions] The names of the Amazon Web Services accounts + -- that you want to delete stack instances for. + -- + -- You can specify @Accounts@ or @DeploymentTargets@, but not both. + accounts :: Prelude.Maybe [Prelude.Text], + -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | [Service-managed permissions] The Organizations accounts from which to + -- delete stack instances. + -- + -- You can specify @Accounts@ or @DeploymentTargets@, but not both. + deploymentTargets :: Prelude.Maybe DeploymentTargets, + -- | The unique identifier for this stack set operation. + -- + -- If you don\'t specify an operation ID, the SDK generates one + -- automatically. + -- + -- The operation ID also functions as an idempotency token, to ensure that + -- CloudFormation performs the stack set operation only once, even if you + -- retry the request multiple times. You can retry stack set operation + -- requests to ensure that CloudFormation successfully received them. + -- + -- Repeating this stack set operation with a new operation ID retries all + -- stack instances whose status is @OUTDATED@. + operationId :: Prelude.Maybe Prelude.Text, + -- | Preferences for how CloudFormation performs this stack set operation. + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | The name or unique ID of the stack set that you want to delete stack + -- instances for. + stackSetName :: Prelude.Text, + -- | The Amazon Web Services Regions where you want to delete stack set + -- instances. + regions :: [Prelude.Text], + -- | Removes the stack instances from the specified stack set, but doesn\'t + -- delete the stacks. You can\'t reassociate a retained stack or add an + -- existing, saved stack to a new stack set. + -- + -- For more information, see + -- . + retainStacks :: Prelude.Bool + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteStackInstances' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'accounts', 'deleteStackInstances_accounts' - [Self-managed permissions] The names of the Amazon Web Services accounts +-- that you want to delete stack instances for. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +-- +-- 'callAs', 'deleteStackInstances_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'deploymentTargets', 'deleteStackInstances_deploymentTargets' - [Service-managed permissions] The Organizations accounts from which to +-- delete stack instances. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +-- +-- 'operationId', 'deleteStackInstances_operationId' - The unique identifier for this stack set operation. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You can retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- Repeating this stack set operation with a new operation ID retries all +-- stack instances whose status is @OUTDATED@. +-- +-- 'operationPreferences', 'deleteStackInstances_operationPreferences' - Preferences for how CloudFormation performs this stack set operation. +-- +-- 'stackSetName', 'deleteStackInstances_stackSetName' - The name or unique ID of the stack set that you want to delete stack +-- instances for. +-- +-- 'regions', 'deleteStackInstances_regions' - The Amazon Web Services Regions where you want to delete stack set +-- instances. +-- +-- 'retainStacks', 'deleteStackInstances_retainStacks' - Removes the stack instances from the specified stack set, but doesn\'t +-- delete the stacks. You can\'t reassociate a retained stack or add an +-- existing, saved stack to a new stack set. +-- +-- For more information, see +-- . +newDeleteStackInstances :: + -- | 'stackSetName' + Prelude.Text -> + -- | 'retainStacks' + Prelude.Bool -> + DeleteStackInstances +newDeleteStackInstances pStackSetName_ pRetainStacks_ = + DeleteStackInstances' + { accounts = Prelude.Nothing, + callAs = Prelude.Nothing, + deploymentTargets = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + stackSetName = pStackSetName_, + regions = Prelude.mempty, + retainStacks = pRetainStacks_ + } + +-- | [Self-managed permissions] The names of the Amazon Web Services accounts +-- that you want to delete stack instances for. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +deleteStackInstances_accounts :: Lens.Lens' DeleteStackInstances (Prelude.Maybe [Prelude.Text]) +deleteStackInstances_accounts = Lens.lens (\DeleteStackInstances' {accounts} -> accounts) (\s@DeleteStackInstances' {} a -> s {accounts = a} :: DeleteStackInstances) Prelude.. Lens.mapping Lens.coerced + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +deleteStackInstances_callAs :: Lens.Lens' DeleteStackInstances (Prelude.Maybe CallAs) +deleteStackInstances_callAs = Lens.lens (\DeleteStackInstances' {callAs} -> callAs) (\s@DeleteStackInstances' {} a -> s {callAs = a} :: DeleteStackInstances) + +-- | [Service-managed permissions] The Organizations accounts from which to +-- delete stack instances. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +deleteStackInstances_deploymentTargets :: Lens.Lens' DeleteStackInstances (Prelude.Maybe DeploymentTargets) +deleteStackInstances_deploymentTargets = Lens.lens (\DeleteStackInstances' {deploymentTargets} -> deploymentTargets) (\s@DeleteStackInstances' {} a -> s {deploymentTargets = a} :: DeleteStackInstances) + +-- | The unique identifier for this stack set operation. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You can retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- Repeating this stack set operation with a new operation ID retries all +-- stack instances whose status is @OUTDATED@. +deleteStackInstances_operationId :: Lens.Lens' DeleteStackInstances (Prelude.Maybe Prelude.Text) +deleteStackInstances_operationId = Lens.lens (\DeleteStackInstances' {operationId} -> operationId) (\s@DeleteStackInstances' {} a -> s {operationId = a} :: DeleteStackInstances) + +-- | Preferences for how CloudFormation performs this stack set operation. +deleteStackInstances_operationPreferences :: Lens.Lens' DeleteStackInstances (Prelude.Maybe StackSetOperationPreferences) +deleteStackInstances_operationPreferences = Lens.lens (\DeleteStackInstances' {operationPreferences} -> operationPreferences) (\s@DeleteStackInstances' {} a -> s {operationPreferences = a} :: DeleteStackInstances) + +-- | The name or unique ID of the stack set that you want to delete stack +-- instances for. +deleteStackInstances_stackSetName :: Lens.Lens' DeleteStackInstances Prelude.Text +deleteStackInstances_stackSetName = Lens.lens (\DeleteStackInstances' {stackSetName} -> stackSetName) (\s@DeleteStackInstances' {} a -> s {stackSetName = a} :: DeleteStackInstances) + +-- | The Amazon Web Services Regions where you want to delete stack set +-- instances. +deleteStackInstances_regions :: Lens.Lens' DeleteStackInstances [Prelude.Text] +deleteStackInstances_regions = Lens.lens (\DeleteStackInstances' {regions} -> regions) (\s@DeleteStackInstances' {} a -> s {regions = a} :: DeleteStackInstances) Prelude.. Lens.coerced + +-- | Removes the stack instances from the specified stack set, but doesn\'t +-- delete the stacks. You can\'t reassociate a retained stack or add an +-- existing, saved stack to a new stack set. +-- +-- For more information, see +-- . +deleteStackInstances_retainStacks :: Lens.Lens' DeleteStackInstances Prelude.Bool +deleteStackInstances_retainStacks = Lens.lens (\DeleteStackInstances' {retainStacks} -> retainStacks) (\s@DeleteStackInstances' {} a -> s {retainStacks = a} :: DeleteStackInstances) + +instance Core.AWSRequest DeleteStackInstances where + type + AWSResponse DeleteStackInstances = + DeleteStackInstancesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DeleteStackInstancesResult" + ( \s h x -> + DeleteStackInstancesResponse' + Prelude.<$> (x Data..@? "OperationId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DeleteStackInstances where + hashWithSalt _salt DeleteStackInstances' {..} = + _salt + `Prelude.hashWithSalt` accounts + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` deploymentTargets + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` regions + `Prelude.hashWithSalt` retainStacks + +instance Prelude.NFData DeleteStackInstances where + rnf DeleteStackInstances' {..} = + Prelude.rnf accounts + `Prelude.seq` Prelude.rnf callAs + `Prelude.seq` Prelude.rnf deploymentTargets + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf regions + `Prelude.seq` Prelude.rnf retainStacks + +instance Data.ToHeaders DeleteStackInstances where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DeleteStackInstances where + toPath = Prelude.const "/" + +instance Data.ToQuery DeleteStackInstances where + toQuery DeleteStackInstances' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DeleteStackInstances" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Accounts" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> accounts), + "CallAs" Data.=: callAs, + "DeploymentTargets" Data.=: deploymentTargets, + "OperationId" Data.=: operationId, + "OperationPreferences" Data.=: operationPreferences, + "StackSetName" Data.=: stackSetName, + "Regions" Data.=: Data.toQueryList "member" regions, + "RetainStacks" Data.=: retainStacks + ] + +-- | /See:/ 'newDeleteStackInstancesResponse' smart constructor. +data DeleteStackInstancesResponse = DeleteStackInstancesResponse' + { -- | The unique identifier for this stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteStackInstancesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'operationId', 'deleteStackInstancesResponse_operationId' - The unique identifier for this stack set operation. +-- +-- 'httpStatus', 'deleteStackInstancesResponse_httpStatus' - The response's http status code. +newDeleteStackInstancesResponse :: + -- | 'httpStatus' + Prelude.Int -> + DeleteStackInstancesResponse +newDeleteStackInstancesResponse pHttpStatus_ = + DeleteStackInstancesResponse' + { operationId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The unique identifier for this stack set operation. +deleteStackInstancesResponse_operationId :: Lens.Lens' DeleteStackInstancesResponse (Prelude.Maybe Prelude.Text) +deleteStackInstancesResponse_operationId = Lens.lens (\DeleteStackInstancesResponse' {operationId} -> operationId) (\s@DeleteStackInstancesResponse' {} a -> s {operationId = a} :: DeleteStackInstancesResponse) + +-- | The response's http status code. +deleteStackInstancesResponse_httpStatus :: Lens.Lens' DeleteStackInstancesResponse Prelude.Int +deleteStackInstancesResponse_httpStatus = Lens.lens (\DeleteStackInstancesResponse' {httpStatus} -> httpStatus) (\s@DeleteStackInstancesResponse' {} a -> s {httpStatus = a} :: DeleteStackInstancesResponse) + +instance Prelude.NFData DeleteStackInstancesResponse where + rnf DeleteStackInstancesResponse' {..} = + Prelude.rnf operationId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DeleteStackSet.hs b/gen/Amazonka/CloudFormation/DeleteStackSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DeleteStackSet.hs @@ -0,0 +1,209 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DeleteStackSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a stack set. Before you can delete a stack set, all its member +-- stack instances must be deleted. For more information about how to +-- complete this, see DeleteStackInstances. +module Amazonka.CloudFormation.DeleteStackSet + ( -- * Creating a Request + DeleteStackSet (..), + newDeleteStackSet, + + -- * Request Lenses + deleteStackSet_callAs, + deleteStackSet_stackSetName, + + -- * Destructuring the Response + DeleteStackSetResponse (..), + newDeleteStackSetResponse, + + -- * Response Lenses + deleteStackSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDeleteStackSet' smart constructor. +data DeleteStackSet = DeleteStackSet' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The name or unique ID of the stack set that you\'re deleting. You can + -- obtain this value by running ListStackSets. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteStackSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'deleteStackSet_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackSetName', 'deleteStackSet_stackSetName' - The name or unique ID of the stack set that you\'re deleting. You can +-- obtain this value by running ListStackSets. +newDeleteStackSet :: + -- | 'stackSetName' + Prelude.Text -> + DeleteStackSet +newDeleteStackSet pStackSetName_ = + DeleteStackSet' + { callAs = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +deleteStackSet_callAs :: Lens.Lens' DeleteStackSet (Prelude.Maybe CallAs) +deleteStackSet_callAs = Lens.lens (\DeleteStackSet' {callAs} -> callAs) (\s@DeleteStackSet' {} a -> s {callAs = a} :: DeleteStackSet) + +-- | The name or unique ID of the stack set that you\'re deleting. You can +-- obtain this value by running ListStackSets. +deleteStackSet_stackSetName :: Lens.Lens' DeleteStackSet Prelude.Text +deleteStackSet_stackSetName = Lens.lens (\DeleteStackSet' {stackSetName} -> stackSetName) (\s@DeleteStackSet' {} a -> s {stackSetName = a} :: DeleteStackSet) + +instance Core.AWSRequest DeleteStackSet where + type + AWSResponse DeleteStackSet = + DeleteStackSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DeleteStackSetResult" + ( \s h x -> + DeleteStackSetResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DeleteStackSet where + hashWithSalt _salt DeleteStackSet' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData DeleteStackSet where + rnf DeleteStackSet' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders DeleteStackSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DeleteStackSet where + toPath = Prelude.const "/" + +instance Data.ToQuery DeleteStackSet where + toQuery DeleteStackSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DeleteStackSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newDeleteStackSetResponse' smart constructor. +data DeleteStackSetResponse = DeleteStackSetResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteStackSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'deleteStackSetResponse_httpStatus' - The response's http status code. +newDeleteStackSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + DeleteStackSetResponse +newDeleteStackSetResponse pHttpStatus_ = + DeleteStackSetResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +deleteStackSetResponse_httpStatus :: Lens.Lens' DeleteStackSetResponse Prelude.Int +deleteStackSetResponse_httpStatus = Lens.lens (\DeleteStackSetResponse' {httpStatus} -> httpStatus) (\s@DeleteStackSetResponse' {} a -> s {httpStatus = a} :: DeleteStackSetResponse) + +instance Prelude.NFData DeleteStackSetResponse where + rnf DeleteStackSetResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DeregisterType.hs b/gen/Amazonka/CloudFormation/DeregisterType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DeregisterType.hs @@ -0,0 +1,223 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DeregisterType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Marks an extension or extension version as @DEPRECATED@ in the +-- CloudFormation registry, removing it from active use. Deprecated +-- extensions or extension versions cannot be used in CloudFormation +-- operations. +-- +-- To deregister an entire extension, you must individually deregister all +-- active versions of that extension. If an extension has only a single +-- active version, deregistering that version results in the extension +-- itself being deregistered and marked as deprecated in the registry. +-- +-- You can\'t deregister the default version of an extension if there are +-- other active version of that extension. If you do deregister the default +-- version of an extension, the extension type itself is deregistered as +-- well and marked as deprecated. +-- +-- To view the deprecation status of an extension or extension version, use +-- . +module Amazonka.CloudFormation.DeregisterType + ( -- * Creating a Request + DeregisterType (..), + newDeregisterType, + + -- * Request Lenses + deregisterType_arn, + deregisterType_type, + deregisterType_typeName, + deregisterType_versionId, + + -- * Destructuring the Response + DeregisterTypeResponse (..), + newDeregisterTypeResponse, + + -- * Response Lenses + deregisterTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDeregisterType' smart constructor. +data DeregisterType = DeregisterType' + { -- | The Amazon Resource Name (ARN) of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + arn :: Prelude.Maybe Prelude.Text, + -- | The kind of extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + typeName :: Prelude.Maybe Prelude.Text, + -- | The ID of a specific version of the extension. The version ID is the + -- value at the end of the Amazon Resource Name (ARN) assigned to the + -- extension version when it is registered. + versionId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeregisterType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'deregisterType_arn' - The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'type'', 'deregisterType_type' - The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'typeName', 'deregisterType_typeName' - The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'versionId', 'deregisterType_versionId' - The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it is registered. +newDeregisterType :: + DeregisterType +newDeregisterType = + DeregisterType' + { arn = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + versionId = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +deregisterType_arn :: Lens.Lens' DeregisterType (Prelude.Maybe Prelude.Text) +deregisterType_arn = Lens.lens (\DeregisterType' {arn} -> arn) (\s@DeregisterType' {} a -> s {arn = a} :: DeregisterType) + +-- | The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +deregisterType_type :: Lens.Lens' DeregisterType (Prelude.Maybe RegistryType) +deregisterType_type = Lens.lens (\DeregisterType' {type'} -> type') (\s@DeregisterType' {} a -> s {type' = a} :: DeregisterType) + +-- | The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +deregisterType_typeName :: Lens.Lens' DeregisterType (Prelude.Maybe Prelude.Text) +deregisterType_typeName = Lens.lens (\DeregisterType' {typeName} -> typeName) (\s@DeregisterType' {} a -> s {typeName = a} :: DeregisterType) + +-- | The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it is registered. +deregisterType_versionId :: Lens.Lens' DeregisterType (Prelude.Maybe Prelude.Text) +deregisterType_versionId = Lens.lens (\DeregisterType' {versionId} -> versionId) (\s@DeregisterType' {} a -> s {versionId = a} :: DeregisterType) + +instance Core.AWSRequest DeregisterType where + type + AWSResponse DeregisterType = + DeregisterTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DeregisterTypeResult" + ( \s h x -> + DeregisterTypeResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DeregisterType where + hashWithSalt _salt DeregisterType' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` versionId + +instance Prelude.NFData DeregisterType where + rnf DeregisterType' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf versionId + +instance Data.ToHeaders DeregisterType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DeregisterType where + toPath = Prelude.const "/" + +instance Data.ToQuery DeregisterType where + toQuery DeregisterType' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DeregisterType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "Type" Data.=: type', + "TypeName" Data.=: typeName, + "VersionId" Data.=: versionId + ] + +-- | /See:/ 'newDeregisterTypeResponse' smart constructor. +data DeregisterTypeResponse = DeregisterTypeResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeregisterTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'deregisterTypeResponse_httpStatus' - The response's http status code. +newDeregisterTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + DeregisterTypeResponse +newDeregisterTypeResponse pHttpStatus_ = + DeregisterTypeResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +deregisterTypeResponse_httpStatus :: Lens.Lens' DeregisterTypeResponse Prelude.Int +deregisterTypeResponse_httpStatus = Lens.lens (\DeregisterTypeResponse' {httpStatus} -> httpStatus) (\s@DeregisterTypeResponse' {} a -> s {httpStatus = a} :: DeregisterTypeResponse) + +instance Prelude.NFData DeregisterTypeResponse where + rnf DeregisterTypeResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeAccountLimits.hs b/gen/Amazonka/CloudFormation/DescribeAccountLimits.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeAccountLimits.hs @@ -0,0 +1,213 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeAccountLimits +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves your account\'s CloudFormation limits, such as the maximum +-- number of stacks that you can create in your account. For more +-- information about account limits, see +-- +-- in the /CloudFormation User Guide/. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.DescribeAccountLimits + ( -- * Creating a Request + DescribeAccountLimits (..), + newDescribeAccountLimits, + + -- * Request Lenses + describeAccountLimits_nextToken, + + -- * Destructuring the Response + DescribeAccountLimitsResponse (..), + newDescribeAccountLimitsResponse, + + -- * Response Lenses + describeAccountLimitsResponse_accountLimits, + describeAccountLimitsResponse_nextToken, + describeAccountLimitsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the DescribeAccountLimits action. +-- +-- /See:/ 'newDescribeAccountLimits' smart constructor. +data DescribeAccountLimits = DescribeAccountLimits' + { -- | A string that identifies the next page of limits that you want to + -- retrieve. + nextToken :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeAccountLimits' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeAccountLimits_nextToken' - A string that identifies the next page of limits that you want to +-- retrieve. +newDescribeAccountLimits :: + DescribeAccountLimits +newDescribeAccountLimits = + DescribeAccountLimits' {nextToken = Prelude.Nothing} + +-- | A string that identifies the next page of limits that you want to +-- retrieve. +describeAccountLimits_nextToken :: Lens.Lens' DescribeAccountLimits (Prelude.Maybe Prelude.Text) +describeAccountLimits_nextToken = Lens.lens (\DescribeAccountLimits' {nextToken} -> nextToken) (\s@DescribeAccountLimits' {} a -> s {nextToken = a} :: DescribeAccountLimits) + +instance Core.AWSPager DescribeAccountLimits where + page rq rs + | Core.stop + ( rs + Lens.^? describeAccountLimitsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? describeAccountLimitsResponse_accountLimits + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& describeAccountLimits_nextToken + Lens..~ rs + Lens.^? describeAccountLimitsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest DescribeAccountLimits where + type + AWSResponse DescribeAccountLimits = + DescribeAccountLimitsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeAccountLimitsResult" + ( \s h x -> + DescribeAccountLimitsResponse' + Prelude.<$> ( x + Data..@? "AccountLimits" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "NextToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeAccountLimits where + hashWithSalt _salt DescribeAccountLimits' {..} = + _salt `Prelude.hashWithSalt` nextToken + +instance Prelude.NFData DescribeAccountLimits where + rnf DescribeAccountLimits' {..} = + Prelude.rnf nextToken + +instance Data.ToHeaders DescribeAccountLimits where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeAccountLimits where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeAccountLimits where + toQuery DescribeAccountLimits' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeAccountLimits" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken + ] + +-- | The output for the DescribeAccountLimits action. +-- +-- /See:/ 'newDescribeAccountLimitsResponse' smart constructor. +data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse' + { -- | An account limit structure that contain a list of CloudFormation account + -- limits and their values. + accountLimits :: Prelude.Maybe [AccountLimit], + -- | If the output exceeds 1 MB in size, a string that identifies the next + -- page of limits. If no additional page exists, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeAccountLimitsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'accountLimits', 'describeAccountLimitsResponse_accountLimits' - An account limit structure that contain a list of CloudFormation account +-- limits and their values. +-- +-- 'nextToken', 'describeAccountLimitsResponse_nextToken' - If the output exceeds 1 MB in size, a string that identifies the next +-- page of limits. If no additional page exists, this value is null. +-- +-- 'httpStatus', 'describeAccountLimitsResponse_httpStatus' - The response's http status code. +newDescribeAccountLimitsResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeAccountLimitsResponse +newDescribeAccountLimitsResponse pHttpStatus_ = + DescribeAccountLimitsResponse' + { accountLimits = + Prelude.Nothing, + nextToken = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | An account limit structure that contain a list of CloudFormation account +-- limits and their values. +describeAccountLimitsResponse_accountLimits :: Lens.Lens' DescribeAccountLimitsResponse (Prelude.Maybe [AccountLimit]) +describeAccountLimitsResponse_accountLimits = Lens.lens (\DescribeAccountLimitsResponse' {accountLimits} -> accountLimits) (\s@DescribeAccountLimitsResponse' {} a -> s {accountLimits = a} :: DescribeAccountLimitsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | If the output exceeds 1 MB in size, a string that identifies the next +-- page of limits. If no additional page exists, this value is null. +describeAccountLimitsResponse_nextToken :: Lens.Lens' DescribeAccountLimitsResponse (Prelude.Maybe Prelude.Text) +describeAccountLimitsResponse_nextToken = Lens.lens (\DescribeAccountLimitsResponse' {nextToken} -> nextToken) (\s@DescribeAccountLimitsResponse' {} a -> s {nextToken = a} :: DescribeAccountLimitsResponse) + +-- | The response's http status code. +describeAccountLimitsResponse_httpStatus :: Lens.Lens' DescribeAccountLimitsResponse Prelude.Int +describeAccountLimitsResponse_httpStatus = Lens.lens (\DescribeAccountLimitsResponse' {httpStatus} -> httpStatus) (\s@DescribeAccountLimitsResponse' {} a -> s {httpStatus = a} :: DescribeAccountLimitsResponse) + +instance Prelude.NFData DescribeAccountLimitsResponse where + rnf DescribeAccountLimitsResponse' {..} = + Prelude.rnf accountLimits + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeChangeSet.hs b/gen/Amazonka/CloudFormation/DescribeChangeSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeChangeSet.hs @@ -0,0 +1,526 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeChangeSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the inputs for the change set and a list of changes that +-- CloudFormation will make if you execute the change set. For more +-- information, see +-- +-- in the CloudFormation User Guide. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.DescribeChangeSet + ( -- * Creating a Request + DescribeChangeSet (..), + newDescribeChangeSet, + + -- * Request Lenses + describeChangeSet_nextToken, + describeChangeSet_stackName, + describeChangeSet_changeSetName, + + -- * Destructuring the Response + DescribeChangeSetResponse (..), + newDescribeChangeSetResponse, + + -- * Response Lenses + describeChangeSetResponse_capabilities, + describeChangeSetResponse_changeSetId, + describeChangeSetResponse_changeSetName, + describeChangeSetResponse_changes, + describeChangeSetResponse_creationTime, + describeChangeSetResponse_description, + describeChangeSetResponse_executionStatus, + describeChangeSetResponse_includeNestedStacks, + describeChangeSetResponse_nextToken, + describeChangeSetResponse_notificationARNs, + describeChangeSetResponse_parameters, + describeChangeSetResponse_parentChangeSetId, + describeChangeSetResponse_rollbackConfiguration, + describeChangeSetResponse_rootChangeSetId, + describeChangeSetResponse_stackId, + describeChangeSetResponse_stackName, + describeChangeSetResponse_statusReason, + describeChangeSetResponse_tags, + describeChangeSetResponse_httpStatus, + describeChangeSetResponse_status, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the DescribeChangeSet action. +-- +-- /See:/ 'newDescribeChangeSet' smart constructor. +data DescribeChangeSet = DescribeChangeSet' + { -- | A string (provided by the DescribeChangeSet response output) that + -- identifies the next page of information that you want to retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | If you specified the name of a change set, specify the stack name or ID + -- (ARN) of the change set you want to describe. + stackName :: Prelude.Maybe Prelude.Text, + -- | The name or Amazon Resource Name (ARN) of the change set that you want + -- to describe. + changeSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeChangeSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeChangeSet_nextToken' - A string (provided by the DescribeChangeSet response output) that +-- identifies the next page of information that you want to retrieve. +-- +-- 'stackName', 'describeChangeSet_stackName' - If you specified the name of a change set, specify the stack name or ID +-- (ARN) of the change set you want to describe. +-- +-- 'changeSetName', 'describeChangeSet_changeSetName' - The name or Amazon Resource Name (ARN) of the change set that you want +-- to describe. +newDescribeChangeSet :: + -- | 'changeSetName' + Prelude.Text -> + DescribeChangeSet +newDescribeChangeSet pChangeSetName_ = + DescribeChangeSet' + { nextToken = Prelude.Nothing, + stackName = Prelude.Nothing, + changeSetName = pChangeSetName_ + } + +-- | A string (provided by the DescribeChangeSet response output) that +-- identifies the next page of information that you want to retrieve. +describeChangeSet_nextToken :: Lens.Lens' DescribeChangeSet (Prelude.Maybe Prelude.Text) +describeChangeSet_nextToken = Lens.lens (\DescribeChangeSet' {nextToken} -> nextToken) (\s@DescribeChangeSet' {} a -> s {nextToken = a} :: DescribeChangeSet) + +-- | If you specified the name of a change set, specify the stack name or ID +-- (ARN) of the change set you want to describe. +describeChangeSet_stackName :: Lens.Lens' DescribeChangeSet (Prelude.Maybe Prelude.Text) +describeChangeSet_stackName = Lens.lens (\DescribeChangeSet' {stackName} -> stackName) (\s@DescribeChangeSet' {} a -> s {stackName = a} :: DescribeChangeSet) + +-- | The name or Amazon Resource Name (ARN) of the change set that you want +-- to describe. +describeChangeSet_changeSetName :: Lens.Lens' DescribeChangeSet Prelude.Text +describeChangeSet_changeSetName = Lens.lens (\DescribeChangeSet' {changeSetName} -> changeSetName) (\s@DescribeChangeSet' {} a -> s {changeSetName = a} :: DescribeChangeSet) + +instance Core.AWSPager DescribeChangeSet where + page rq rs + | Core.stop + ( rs + Lens.^? describeChangeSetResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? describeChangeSetResponse_changes + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& describeChangeSet_nextToken + Lens..~ rs + Lens.^? describeChangeSetResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest DescribeChangeSet where + type + AWSResponse DescribeChangeSet = + DescribeChangeSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeChangeSetResult" + ( \s h x -> + DescribeChangeSetResponse' + Prelude.<$> ( x + Data..@? "Capabilities" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "ChangeSetId") + Prelude.<*> (x Data..@? "ChangeSetName") + Prelude.<*> ( x + Data..@? "Changes" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "CreationTime") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "ExecutionStatus") + Prelude.<*> (x Data..@? "IncludeNestedStacks") + Prelude.<*> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "NotificationARNs" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "Parameters" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "ParentChangeSetId") + Prelude.<*> (x Data..@? "RollbackConfiguration") + Prelude.<*> (x Data..@? "RootChangeSetId") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackName") + Prelude.<*> (x Data..@? "StatusReason") + Prelude.<*> ( x + Data..@? "Tags" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..@ "Status") + ) + +instance Prelude.Hashable DescribeChangeSet where + hashWithSalt _salt DescribeChangeSet' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` changeSetName + +instance Prelude.NFData DescribeChangeSet where + rnf DescribeChangeSet' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf changeSetName + +instance Data.ToHeaders DescribeChangeSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeChangeSet where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeChangeSet where + toQuery DescribeChangeSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeChangeSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "StackName" Data.=: stackName, + "ChangeSetName" Data.=: changeSetName + ] + +-- | The output for the DescribeChangeSet action. +-- +-- /See:/ 'newDescribeChangeSetResponse' smart constructor. +data DescribeChangeSetResponse = DescribeChangeSetResponse' + { -- | If you execute the change set, the list of capabilities that were + -- explicitly acknowledged when the change set was created. + capabilities :: Prelude.Maybe [Capability], + -- | The Amazon Resource Name (ARN) of the change set. + changeSetId :: Prelude.Maybe Prelude.Text, + -- | The name of the change set. + changeSetName :: Prelude.Maybe Prelude.Text, + -- | A list of @Change@ structures that describes the resources + -- CloudFormation changes if you execute the change set. + changes :: Prelude.Maybe [Change], + -- | The start time when the change set was created, in UTC. + creationTime :: Prelude.Maybe Data.ISO8601, + -- | Information about the change set. + description :: Prelude.Maybe Prelude.Text, + -- | If the change set execution status is @AVAILABLE@, you can execute the + -- change set. If you can\'t execute the change set, the status indicates + -- why. For example, a change set might be in an @UNAVAILABLE@ state + -- because CloudFormation is still creating it or in an @OBSOLETE@ state + -- because the stack was already updated. + executionStatus :: Prelude.Maybe ExecutionStatus, + -- | Verifies if @IncludeNestedStacks@ is set to @True@. + includeNestedStacks :: Prelude.Maybe Prelude.Bool, + -- | If the output exceeds 1 MB, a string that identifies the next page of + -- changes. If there is no additional page, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The ARNs of the Amazon Simple Notification Service (Amazon SNS) topics + -- that will be associated with the stack if you execute the change set. + notificationARNs :: Prelude.Maybe [Prelude.Text], + -- | A list of @Parameter@ structures that describes the input parameters and + -- their values used to create the change set. For more information, see + -- the + -- + -- data type. + parameters :: Prelude.Maybe [Parameter], + -- | Specifies the change set ID of the parent change set in the current + -- nested change set hierarchy. + parentChangeSetId :: Prelude.Maybe Prelude.Text, + -- | The rollback triggers for CloudFormation to monitor during stack + -- creation and updating operations, and for the specified monitoring + -- period afterwards. + rollbackConfiguration :: Prelude.Maybe RollbackConfiguration, + -- | Specifies the change set ID of the root change set in the current nested + -- change set hierarchy. + rootChangeSetId :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) of the stack that\'s associated with the + -- change set. + stackId :: Prelude.Maybe Prelude.Text, + -- | The name of the stack that\'s associated with the change set. + stackName :: Prelude.Maybe Prelude.Text, + -- | A description of the change set\'s status. For example, if your attempt + -- to create a change set failed, CloudFormation shows the error message. + statusReason :: Prelude.Maybe Prelude.Text, + -- | If you execute the change set, the tags that will be associated with the + -- stack. + tags :: Prelude.Maybe [Tag], + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The current status of the change set, such as @CREATE_IN_PROGRESS@, + -- @CREATE_COMPLETE@, or @FAILED@. + status :: ChangeSetStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeChangeSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'describeChangeSetResponse_capabilities' - If you execute the change set, the list of capabilities that were +-- explicitly acknowledged when the change set was created. +-- +-- 'changeSetId', 'describeChangeSetResponse_changeSetId' - The Amazon Resource Name (ARN) of the change set. +-- +-- 'changeSetName', 'describeChangeSetResponse_changeSetName' - The name of the change set. +-- +-- 'changes', 'describeChangeSetResponse_changes' - A list of @Change@ structures that describes the resources +-- CloudFormation changes if you execute the change set. +-- +-- 'creationTime', 'describeChangeSetResponse_creationTime' - The start time when the change set was created, in UTC. +-- +-- 'description', 'describeChangeSetResponse_description' - Information about the change set. +-- +-- 'executionStatus', 'describeChangeSetResponse_executionStatus' - If the change set execution status is @AVAILABLE@, you can execute the +-- change set. If you can\'t execute the change set, the status indicates +-- why. For example, a change set might be in an @UNAVAILABLE@ state +-- because CloudFormation is still creating it or in an @OBSOLETE@ state +-- because the stack was already updated. +-- +-- 'includeNestedStacks', 'describeChangeSetResponse_includeNestedStacks' - Verifies if @IncludeNestedStacks@ is set to @True@. +-- +-- 'nextToken', 'describeChangeSetResponse_nextToken' - If the output exceeds 1 MB, a string that identifies the next page of +-- changes. If there is no additional page, this value is null. +-- +-- 'notificationARNs', 'describeChangeSetResponse_notificationARNs' - The ARNs of the Amazon Simple Notification Service (Amazon SNS) topics +-- that will be associated with the stack if you execute the change set. +-- +-- 'parameters', 'describeChangeSetResponse_parameters' - A list of @Parameter@ structures that describes the input parameters and +-- their values used to create the change set. For more information, see +-- the +-- +-- data type. +-- +-- 'parentChangeSetId', 'describeChangeSetResponse_parentChangeSetId' - Specifies the change set ID of the parent change set in the current +-- nested change set hierarchy. +-- +-- 'rollbackConfiguration', 'describeChangeSetResponse_rollbackConfiguration' - The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +-- +-- 'rootChangeSetId', 'describeChangeSetResponse_rootChangeSetId' - Specifies the change set ID of the root change set in the current nested +-- change set hierarchy. +-- +-- 'stackId', 'describeChangeSetResponse_stackId' - The Amazon Resource Name (ARN) of the stack that\'s associated with the +-- change set. +-- +-- 'stackName', 'describeChangeSetResponse_stackName' - The name of the stack that\'s associated with the change set. +-- +-- 'statusReason', 'describeChangeSetResponse_statusReason' - A description of the change set\'s status. For example, if your attempt +-- to create a change set failed, CloudFormation shows the error message. +-- +-- 'tags', 'describeChangeSetResponse_tags' - If you execute the change set, the tags that will be associated with the +-- stack. +-- +-- 'httpStatus', 'describeChangeSetResponse_httpStatus' - The response's http status code. +-- +-- 'status', 'describeChangeSetResponse_status' - The current status of the change set, such as @CREATE_IN_PROGRESS@, +-- @CREATE_COMPLETE@, or @FAILED@. +newDescribeChangeSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'status' + ChangeSetStatus -> + DescribeChangeSetResponse +newDescribeChangeSetResponse pHttpStatus_ pStatus_ = + DescribeChangeSetResponse' + { capabilities = + Prelude.Nothing, + changeSetId = Prelude.Nothing, + changeSetName = Prelude.Nothing, + changes = Prelude.Nothing, + creationTime = Prelude.Nothing, + description = Prelude.Nothing, + executionStatus = Prelude.Nothing, + includeNestedStacks = Prelude.Nothing, + nextToken = Prelude.Nothing, + notificationARNs = Prelude.Nothing, + parameters = Prelude.Nothing, + parentChangeSetId = Prelude.Nothing, + rollbackConfiguration = Prelude.Nothing, + rootChangeSetId = Prelude.Nothing, + stackId = Prelude.Nothing, + stackName = Prelude.Nothing, + statusReason = Prelude.Nothing, + tags = Prelude.Nothing, + httpStatus = pHttpStatus_, + status = pStatus_ + } + +-- | If you execute the change set, the list of capabilities that were +-- explicitly acknowledged when the change set was created. +describeChangeSetResponse_capabilities :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe [Capability]) +describeChangeSetResponse_capabilities = Lens.lens (\DescribeChangeSetResponse' {capabilities} -> capabilities) (\s@DescribeChangeSetResponse' {} a -> s {capabilities = a} :: DescribeChangeSetResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of the change set. +describeChangeSetResponse_changeSetId :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_changeSetId = Lens.lens (\DescribeChangeSetResponse' {changeSetId} -> changeSetId) (\s@DescribeChangeSetResponse' {} a -> s {changeSetId = a} :: DescribeChangeSetResponse) + +-- | The name of the change set. +describeChangeSetResponse_changeSetName :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_changeSetName = Lens.lens (\DescribeChangeSetResponse' {changeSetName} -> changeSetName) (\s@DescribeChangeSetResponse' {} a -> s {changeSetName = a} :: DescribeChangeSetResponse) + +-- | A list of @Change@ structures that describes the resources +-- CloudFormation changes if you execute the change set. +describeChangeSetResponse_changes :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe [Change]) +describeChangeSetResponse_changes = Lens.lens (\DescribeChangeSetResponse' {changes} -> changes) (\s@DescribeChangeSetResponse' {} a -> s {changes = a} :: DescribeChangeSetResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The start time when the change set was created, in UTC. +describeChangeSetResponse_creationTime :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.UTCTime) +describeChangeSetResponse_creationTime = Lens.lens (\DescribeChangeSetResponse' {creationTime} -> creationTime) (\s@DescribeChangeSetResponse' {} a -> s {creationTime = a} :: DescribeChangeSetResponse) Prelude.. Lens.mapping Data._Time + +-- | Information about the change set. +describeChangeSetResponse_description :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_description = Lens.lens (\DescribeChangeSetResponse' {description} -> description) (\s@DescribeChangeSetResponse' {} a -> s {description = a} :: DescribeChangeSetResponse) + +-- | If the change set execution status is @AVAILABLE@, you can execute the +-- change set. If you can\'t execute the change set, the status indicates +-- why. For example, a change set might be in an @UNAVAILABLE@ state +-- because CloudFormation is still creating it or in an @OBSOLETE@ state +-- because the stack was already updated. +describeChangeSetResponse_executionStatus :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe ExecutionStatus) +describeChangeSetResponse_executionStatus = Lens.lens (\DescribeChangeSetResponse' {executionStatus} -> executionStatus) (\s@DescribeChangeSetResponse' {} a -> s {executionStatus = a} :: DescribeChangeSetResponse) + +-- | Verifies if @IncludeNestedStacks@ is set to @True@. +describeChangeSetResponse_includeNestedStacks :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Bool) +describeChangeSetResponse_includeNestedStacks = Lens.lens (\DescribeChangeSetResponse' {includeNestedStacks} -> includeNestedStacks) (\s@DescribeChangeSetResponse' {} a -> s {includeNestedStacks = a} :: DescribeChangeSetResponse) + +-- | If the output exceeds 1 MB, a string that identifies the next page of +-- changes. If there is no additional page, this value is null. +describeChangeSetResponse_nextToken :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_nextToken = Lens.lens (\DescribeChangeSetResponse' {nextToken} -> nextToken) (\s@DescribeChangeSetResponse' {} a -> s {nextToken = a} :: DescribeChangeSetResponse) + +-- | The ARNs of the Amazon Simple Notification Service (Amazon SNS) topics +-- that will be associated with the stack if you execute the change set. +describeChangeSetResponse_notificationARNs :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe [Prelude.Text]) +describeChangeSetResponse_notificationARNs = Lens.lens (\DescribeChangeSetResponse' {notificationARNs} -> notificationARNs) (\s@DescribeChangeSetResponse' {} a -> s {notificationARNs = a} :: DescribeChangeSetResponse) Prelude.. Lens.mapping Lens.coerced + +-- | A list of @Parameter@ structures that describes the input parameters and +-- their values used to create the change set. For more information, see +-- the +-- +-- data type. +describeChangeSetResponse_parameters :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe [Parameter]) +describeChangeSetResponse_parameters = Lens.lens (\DescribeChangeSetResponse' {parameters} -> parameters) (\s@DescribeChangeSetResponse' {} a -> s {parameters = a} :: DescribeChangeSetResponse) Prelude.. Lens.mapping Lens.coerced + +-- | Specifies the change set ID of the parent change set in the current +-- nested change set hierarchy. +describeChangeSetResponse_parentChangeSetId :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_parentChangeSetId = Lens.lens (\DescribeChangeSetResponse' {parentChangeSetId} -> parentChangeSetId) (\s@DescribeChangeSetResponse' {} a -> s {parentChangeSetId = a} :: DescribeChangeSetResponse) + +-- | The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +describeChangeSetResponse_rollbackConfiguration :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe RollbackConfiguration) +describeChangeSetResponse_rollbackConfiguration = Lens.lens (\DescribeChangeSetResponse' {rollbackConfiguration} -> rollbackConfiguration) (\s@DescribeChangeSetResponse' {} a -> s {rollbackConfiguration = a} :: DescribeChangeSetResponse) + +-- | Specifies the change set ID of the root change set in the current nested +-- change set hierarchy. +describeChangeSetResponse_rootChangeSetId :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_rootChangeSetId = Lens.lens (\DescribeChangeSetResponse' {rootChangeSetId} -> rootChangeSetId) (\s@DescribeChangeSetResponse' {} a -> s {rootChangeSetId = a} :: DescribeChangeSetResponse) + +-- | The Amazon Resource Name (ARN) of the stack that\'s associated with the +-- change set. +describeChangeSetResponse_stackId :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_stackId = Lens.lens (\DescribeChangeSetResponse' {stackId} -> stackId) (\s@DescribeChangeSetResponse' {} a -> s {stackId = a} :: DescribeChangeSetResponse) + +-- | The name of the stack that\'s associated with the change set. +describeChangeSetResponse_stackName :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_stackName = Lens.lens (\DescribeChangeSetResponse' {stackName} -> stackName) (\s@DescribeChangeSetResponse' {} a -> s {stackName = a} :: DescribeChangeSetResponse) + +-- | A description of the change set\'s status. For example, if your attempt +-- to create a change set failed, CloudFormation shows the error message. +describeChangeSetResponse_statusReason :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe Prelude.Text) +describeChangeSetResponse_statusReason = Lens.lens (\DescribeChangeSetResponse' {statusReason} -> statusReason) (\s@DescribeChangeSetResponse' {} a -> s {statusReason = a} :: DescribeChangeSetResponse) + +-- | If you execute the change set, the tags that will be associated with the +-- stack. +describeChangeSetResponse_tags :: Lens.Lens' DescribeChangeSetResponse (Prelude.Maybe [Tag]) +describeChangeSetResponse_tags = Lens.lens (\DescribeChangeSetResponse' {tags} -> tags) (\s@DescribeChangeSetResponse' {} a -> s {tags = a} :: DescribeChangeSetResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +describeChangeSetResponse_httpStatus :: Lens.Lens' DescribeChangeSetResponse Prelude.Int +describeChangeSetResponse_httpStatus = Lens.lens (\DescribeChangeSetResponse' {httpStatus} -> httpStatus) (\s@DescribeChangeSetResponse' {} a -> s {httpStatus = a} :: DescribeChangeSetResponse) + +-- | The current status of the change set, such as @CREATE_IN_PROGRESS@, +-- @CREATE_COMPLETE@, or @FAILED@. +describeChangeSetResponse_status :: Lens.Lens' DescribeChangeSetResponse ChangeSetStatus +describeChangeSetResponse_status = Lens.lens (\DescribeChangeSetResponse' {status} -> status) (\s@DescribeChangeSetResponse' {} a -> s {status = a} :: DescribeChangeSetResponse) + +instance Prelude.NFData DescribeChangeSetResponse where + rnf DescribeChangeSetResponse' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf changeSetId + `Prelude.seq` Prelude.rnf changeSetName + `Prelude.seq` Prelude.rnf changes + `Prelude.seq` Prelude.rnf creationTime + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf executionStatus + `Prelude.seq` Prelude.rnf includeNestedStacks + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf notificationARNs + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf parentChangeSetId + `Prelude.seq` Prelude.rnf rollbackConfiguration + `Prelude.seq` Prelude.rnf rootChangeSetId + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf statusReason + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf status diff --git a/gen/Amazonka/CloudFormation/DescribeChangeSetHooks.hs b/gen/Amazonka/CloudFormation/DescribeChangeSetHooks.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeChangeSetHooks.hs @@ -0,0 +1,293 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeChangeSetHooks +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns hook-related information for the change set and a list of +-- changes that CloudFormation makes when you run the change set. +module Amazonka.CloudFormation.DescribeChangeSetHooks + ( -- * Creating a Request + DescribeChangeSetHooks (..), + newDescribeChangeSetHooks, + + -- * Request Lenses + describeChangeSetHooks_logicalResourceId, + describeChangeSetHooks_nextToken, + describeChangeSetHooks_stackName, + describeChangeSetHooks_changeSetName, + + -- * Destructuring the Response + DescribeChangeSetHooksResponse (..), + newDescribeChangeSetHooksResponse, + + -- * Response Lenses + describeChangeSetHooksResponse_changeSetId, + describeChangeSetHooksResponse_changeSetName, + describeChangeSetHooksResponse_hooks, + describeChangeSetHooksResponse_nextToken, + describeChangeSetHooksResponse_stackId, + describeChangeSetHooksResponse_stackName, + describeChangeSetHooksResponse_status, + describeChangeSetHooksResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeChangeSetHooks' smart constructor. +data DescribeChangeSetHooks = DescribeChangeSetHooks' + { -- | If specified, lists only the hooks related to the specified + -- @LogicalResourceId@. + logicalResourceId :: Prelude.Maybe Prelude.Text, + -- | A string, provided by the @DescribeChangeSetHooks@ response output, that + -- identifies the next page of information that you want to retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | If you specified the name of a change set, specify the stack name or + -- stack ID (ARN) of the change set you want to describe. + stackName :: Prelude.Maybe Prelude.Text, + -- | The name or Amazon Resource Name (ARN) of the change set that you want + -- to describe. + changeSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeChangeSetHooks' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logicalResourceId', 'describeChangeSetHooks_logicalResourceId' - If specified, lists only the hooks related to the specified +-- @LogicalResourceId@. +-- +-- 'nextToken', 'describeChangeSetHooks_nextToken' - A string, provided by the @DescribeChangeSetHooks@ response output, that +-- identifies the next page of information that you want to retrieve. +-- +-- 'stackName', 'describeChangeSetHooks_stackName' - If you specified the name of a change set, specify the stack name or +-- stack ID (ARN) of the change set you want to describe. +-- +-- 'changeSetName', 'describeChangeSetHooks_changeSetName' - The name or Amazon Resource Name (ARN) of the change set that you want +-- to describe. +newDescribeChangeSetHooks :: + -- | 'changeSetName' + Prelude.Text -> + DescribeChangeSetHooks +newDescribeChangeSetHooks pChangeSetName_ = + DescribeChangeSetHooks' + { logicalResourceId = + Prelude.Nothing, + nextToken = Prelude.Nothing, + stackName = Prelude.Nothing, + changeSetName = pChangeSetName_ + } + +-- | If specified, lists only the hooks related to the specified +-- @LogicalResourceId@. +describeChangeSetHooks_logicalResourceId :: Lens.Lens' DescribeChangeSetHooks (Prelude.Maybe Prelude.Text) +describeChangeSetHooks_logicalResourceId = Lens.lens (\DescribeChangeSetHooks' {logicalResourceId} -> logicalResourceId) (\s@DescribeChangeSetHooks' {} a -> s {logicalResourceId = a} :: DescribeChangeSetHooks) + +-- | A string, provided by the @DescribeChangeSetHooks@ response output, that +-- identifies the next page of information that you want to retrieve. +describeChangeSetHooks_nextToken :: Lens.Lens' DescribeChangeSetHooks (Prelude.Maybe Prelude.Text) +describeChangeSetHooks_nextToken = Lens.lens (\DescribeChangeSetHooks' {nextToken} -> nextToken) (\s@DescribeChangeSetHooks' {} a -> s {nextToken = a} :: DescribeChangeSetHooks) + +-- | If you specified the name of a change set, specify the stack name or +-- stack ID (ARN) of the change set you want to describe. +describeChangeSetHooks_stackName :: Lens.Lens' DescribeChangeSetHooks (Prelude.Maybe Prelude.Text) +describeChangeSetHooks_stackName = Lens.lens (\DescribeChangeSetHooks' {stackName} -> stackName) (\s@DescribeChangeSetHooks' {} a -> s {stackName = a} :: DescribeChangeSetHooks) + +-- | The name or Amazon Resource Name (ARN) of the change set that you want +-- to describe. +describeChangeSetHooks_changeSetName :: Lens.Lens' DescribeChangeSetHooks Prelude.Text +describeChangeSetHooks_changeSetName = Lens.lens (\DescribeChangeSetHooks' {changeSetName} -> changeSetName) (\s@DescribeChangeSetHooks' {} a -> s {changeSetName = a} :: DescribeChangeSetHooks) + +instance Core.AWSRequest DescribeChangeSetHooks where + type + AWSResponse DescribeChangeSetHooks = + DescribeChangeSetHooksResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeChangeSetHooksResult" + ( \s h x -> + DescribeChangeSetHooksResponse' + Prelude.<$> (x Data..@? "ChangeSetId") + Prelude.<*> (x Data..@? "ChangeSetName") + Prelude.<*> ( x + Data..@? "Hooks" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "NextToken") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackName") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeChangeSetHooks where + hashWithSalt _salt DescribeChangeSetHooks' {..} = + _salt + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` changeSetName + +instance Prelude.NFData DescribeChangeSetHooks where + rnf DescribeChangeSetHooks' {..} = + Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf changeSetName + +instance Data.ToHeaders DescribeChangeSetHooks where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeChangeSetHooks where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeChangeSetHooks where + toQuery DescribeChangeSetHooks' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeChangeSetHooks" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "LogicalResourceId" Data.=: logicalResourceId, + "NextToken" Data.=: nextToken, + "StackName" Data.=: stackName, + "ChangeSetName" Data.=: changeSetName + ] + +-- | /See:/ 'newDescribeChangeSetHooksResponse' smart constructor. +data DescribeChangeSetHooksResponse = DescribeChangeSetHooksResponse' + { -- | The change set identifier (stack ID). + changeSetId :: Prelude.Maybe Prelude.Text, + -- | The change set name. + changeSetName :: Prelude.Maybe Prelude.Text, + -- | List of hook objects. + hooks :: Prelude.Maybe [ChangeSetHook], + -- | Pagination token, @null@ or empty if no more results. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The stack identifier (stack ID). + stackId :: Prelude.Maybe Prelude.Text, + -- | The stack name. + stackName :: Prelude.Maybe Prelude.Text, + -- | Provides the status of the change set hook. + status :: Prelude.Maybe ChangeSetHooksStatus, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeChangeSetHooksResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'changeSetId', 'describeChangeSetHooksResponse_changeSetId' - The change set identifier (stack ID). +-- +-- 'changeSetName', 'describeChangeSetHooksResponse_changeSetName' - The change set name. +-- +-- 'hooks', 'describeChangeSetHooksResponse_hooks' - List of hook objects. +-- +-- 'nextToken', 'describeChangeSetHooksResponse_nextToken' - Pagination token, @null@ or empty if no more results. +-- +-- 'stackId', 'describeChangeSetHooksResponse_stackId' - The stack identifier (stack ID). +-- +-- 'stackName', 'describeChangeSetHooksResponse_stackName' - The stack name. +-- +-- 'status', 'describeChangeSetHooksResponse_status' - Provides the status of the change set hook. +-- +-- 'httpStatus', 'describeChangeSetHooksResponse_httpStatus' - The response's http status code. +newDescribeChangeSetHooksResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeChangeSetHooksResponse +newDescribeChangeSetHooksResponse pHttpStatus_ = + DescribeChangeSetHooksResponse' + { changeSetId = + Prelude.Nothing, + changeSetName = Prelude.Nothing, + hooks = Prelude.Nothing, + nextToken = Prelude.Nothing, + stackId = Prelude.Nothing, + stackName = Prelude.Nothing, + status = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The change set identifier (stack ID). +describeChangeSetHooksResponse_changeSetId :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe Prelude.Text) +describeChangeSetHooksResponse_changeSetId = Lens.lens (\DescribeChangeSetHooksResponse' {changeSetId} -> changeSetId) (\s@DescribeChangeSetHooksResponse' {} a -> s {changeSetId = a} :: DescribeChangeSetHooksResponse) + +-- | The change set name. +describeChangeSetHooksResponse_changeSetName :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe Prelude.Text) +describeChangeSetHooksResponse_changeSetName = Lens.lens (\DescribeChangeSetHooksResponse' {changeSetName} -> changeSetName) (\s@DescribeChangeSetHooksResponse' {} a -> s {changeSetName = a} :: DescribeChangeSetHooksResponse) + +-- | List of hook objects. +describeChangeSetHooksResponse_hooks :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe [ChangeSetHook]) +describeChangeSetHooksResponse_hooks = Lens.lens (\DescribeChangeSetHooksResponse' {hooks} -> hooks) (\s@DescribeChangeSetHooksResponse' {} a -> s {hooks = a} :: DescribeChangeSetHooksResponse) Prelude.. Lens.mapping Lens.coerced + +-- | Pagination token, @null@ or empty if no more results. +describeChangeSetHooksResponse_nextToken :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe Prelude.Text) +describeChangeSetHooksResponse_nextToken = Lens.lens (\DescribeChangeSetHooksResponse' {nextToken} -> nextToken) (\s@DescribeChangeSetHooksResponse' {} a -> s {nextToken = a} :: DescribeChangeSetHooksResponse) + +-- | The stack identifier (stack ID). +describeChangeSetHooksResponse_stackId :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe Prelude.Text) +describeChangeSetHooksResponse_stackId = Lens.lens (\DescribeChangeSetHooksResponse' {stackId} -> stackId) (\s@DescribeChangeSetHooksResponse' {} a -> s {stackId = a} :: DescribeChangeSetHooksResponse) + +-- | The stack name. +describeChangeSetHooksResponse_stackName :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe Prelude.Text) +describeChangeSetHooksResponse_stackName = Lens.lens (\DescribeChangeSetHooksResponse' {stackName} -> stackName) (\s@DescribeChangeSetHooksResponse' {} a -> s {stackName = a} :: DescribeChangeSetHooksResponse) + +-- | Provides the status of the change set hook. +describeChangeSetHooksResponse_status :: Lens.Lens' DescribeChangeSetHooksResponse (Prelude.Maybe ChangeSetHooksStatus) +describeChangeSetHooksResponse_status = Lens.lens (\DescribeChangeSetHooksResponse' {status} -> status) (\s@DescribeChangeSetHooksResponse' {} a -> s {status = a} :: DescribeChangeSetHooksResponse) + +-- | The response's http status code. +describeChangeSetHooksResponse_httpStatus :: Lens.Lens' DescribeChangeSetHooksResponse Prelude.Int +describeChangeSetHooksResponse_httpStatus = Lens.lens (\DescribeChangeSetHooksResponse' {httpStatus} -> httpStatus) (\s@DescribeChangeSetHooksResponse' {} a -> s {httpStatus = a} :: DescribeChangeSetHooksResponse) + +instance + Prelude.NFData + DescribeChangeSetHooksResponse + where + rnf DescribeChangeSetHooksResponse' {..} = + Prelude.rnf changeSetId + `Prelude.seq` Prelude.rnf changeSetName + `Prelude.seq` Prelude.rnf hooks + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribePublisher.hs b/gen/Amazonka/CloudFormation/DescribePublisher.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribePublisher.hs @@ -0,0 +1,220 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribePublisher +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns information about a CloudFormation extension publisher. +-- +-- If you don\'t supply a @PublisherId@, and you have registered as an +-- extension publisher, @DescribePublisher@ returns information about your +-- own publisher account. +-- +-- For more information about registering as a publisher, see: +-- +-- - +-- +-- - +-- in the /CloudFormation CLI User Guide/ +module Amazonka.CloudFormation.DescribePublisher + ( -- * Creating a Request + DescribePublisher (..), + newDescribePublisher, + + -- * Request Lenses + describePublisher_publisherId, + + -- * Destructuring the Response + DescribePublisherResponse (..), + newDescribePublisherResponse, + + -- * Response Lenses + describePublisherResponse_identityProvider, + describePublisherResponse_publisherId, + describePublisherResponse_publisherProfile, + describePublisherResponse_publisherStatus, + describePublisherResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribePublisher' smart constructor. +data DescribePublisher = DescribePublisher' + { -- | The ID of the extension publisher. + -- + -- If you don\'t supply a @PublisherId@, and you have registered as an + -- extension publisher, @DescribePublisher@ returns information about your + -- own publisher account. + publisherId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribePublisher' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'publisherId', 'describePublisher_publisherId' - The ID of the extension publisher. +-- +-- If you don\'t supply a @PublisherId@, and you have registered as an +-- extension publisher, @DescribePublisher@ returns information about your +-- own publisher account. +newDescribePublisher :: + DescribePublisher +newDescribePublisher = + DescribePublisher' {publisherId = Prelude.Nothing} + +-- | The ID of the extension publisher. +-- +-- If you don\'t supply a @PublisherId@, and you have registered as an +-- extension publisher, @DescribePublisher@ returns information about your +-- own publisher account. +describePublisher_publisherId :: Lens.Lens' DescribePublisher (Prelude.Maybe Prelude.Text) +describePublisher_publisherId = Lens.lens (\DescribePublisher' {publisherId} -> publisherId) (\s@DescribePublisher' {} a -> s {publisherId = a} :: DescribePublisher) + +instance Core.AWSRequest DescribePublisher where + type + AWSResponse DescribePublisher = + DescribePublisherResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribePublisherResult" + ( \s h x -> + DescribePublisherResponse' + Prelude.<$> (x Data..@? "IdentityProvider") + Prelude.<*> (x Data..@? "PublisherId") + Prelude.<*> (x Data..@? "PublisherProfile") + Prelude.<*> (x Data..@? "PublisherStatus") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribePublisher where + hashWithSalt _salt DescribePublisher' {..} = + _salt `Prelude.hashWithSalt` publisherId + +instance Prelude.NFData DescribePublisher where + rnf DescribePublisher' {..} = Prelude.rnf publisherId + +instance Data.ToHeaders DescribePublisher where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribePublisher where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribePublisher where + toQuery DescribePublisher' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribePublisher" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "PublisherId" Data.=: publisherId + ] + +-- | /See:/ 'newDescribePublisherResponse' smart constructor. +data DescribePublisherResponse = DescribePublisherResponse' + { -- | The type of account used as the identity provider when registering this + -- publisher with CloudFormation. + identityProvider :: Prelude.Maybe IdentityProvider, + -- | The ID of the extension publisher. + publisherId :: Prelude.Maybe Prelude.Text, + -- | The URL to the publisher\'s profile with the identity provider. + publisherProfile :: Prelude.Maybe Prelude.Text, + -- | Whether the publisher is verified. Currently, all registered publishers + -- are verified. + publisherStatus :: Prelude.Maybe PublisherStatus, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribePublisherResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'identityProvider', 'describePublisherResponse_identityProvider' - The type of account used as the identity provider when registering this +-- publisher with CloudFormation. +-- +-- 'publisherId', 'describePublisherResponse_publisherId' - The ID of the extension publisher. +-- +-- 'publisherProfile', 'describePublisherResponse_publisherProfile' - The URL to the publisher\'s profile with the identity provider. +-- +-- 'publisherStatus', 'describePublisherResponse_publisherStatus' - Whether the publisher is verified. Currently, all registered publishers +-- are verified. +-- +-- 'httpStatus', 'describePublisherResponse_httpStatus' - The response's http status code. +newDescribePublisherResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribePublisherResponse +newDescribePublisherResponse pHttpStatus_ = + DescribePublisherResponse' + { identityProvider = + Prelude.Nothing, + publisherId = Prelude.Nothing, + publisherProfile = Prelude.Nothing, + publisherStatus = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The type of account used as the identity provider when registering this +-- publisher with CloudFormation. +describePublisherResponse_identityProvider :: Lens.Lens' DescribePublisherResponse (Prelude.Maybe IdentityProvider) +describePublisherResponse_identityProvider = Lens.lens (\DescribePublisherResponse' {identityProvider} -> identityProvider) (\s@DescribePublisherResponse' {} a -> s {identityProvider = a} :: DescribePublisherResponse) + +-- | The ID of the extension publisher. +describePublisherResponse_publisherId :: Lens.Lens' DescribePublisherResponse (Prelude.Maybe Prelude.Text) +describePublisherResponse_publisherId = Lens.lens (\DescribePublisherResponse' {publisherId} -> publisherId) (\s@DescribePublisherResponse' {} a -> s {publisherId = a} :: DescribePublisherResponse) + +-- | The URL to the publisher\'s profile with the identity provider. +describePublisherResponse_publisherProfile :: Lens.Lens' DescribePublisherResponse (Prelude.Maybe Prelude.Text) +describePublisherResponse_publisherProfile = Lens.lens (\DescribePublisherResponse' {publisherProfile} -> publisherProfile) (\s@DescribePublisherResponse' {} a -> s {publisherProfile = a} :: DescribePublisherResponse) + +-- | Whether the publisher is verified. Currently, all registered publishers +-- are verified. +describePublisherResponse_publisherStatus :: Lens.Lens' DescribePublisherResponse (Prelude.Maybe PublisherStatus) +describePublisherResponse_publisherStatus = Lens.lens (\DescribePublisherResponse' {publisherStatus} -> publisherStatus) (\s@DescribePublisherResponse' {} a -> s {publisherStatus = a} :: DescribePublisherResponse) + +-- | The response's http status code. +describePublisherResponse_httpStatus :: Lens.Lens' DescribePublisherResponse Prelude.Int +describePublisherResponse_httpStatus = Lens.lens (\DescribePublisherResponse' {httpStatus} -> httpStatus) (\s@DescribePublisherResponse' {} a -> s {httpStatus = a} :: DescribePublisherResponse) + +instance Prelude.NFData DescribePublisherResponse where + rnf DescribePublisherResponse' {..} = + Prelude.rnf identityProvider + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf publisherProfile + `Prelude.seq` Prelude.rnf publisherStatus + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStackDriftDetectionStatus.hs b/gen/Amazonka/CloudFormation/DescribeStackDriftDetectionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackDriftDetectionStatus.hs @@ -0,0 +1,412 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackDriftDetectionStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns information about a stack drift detection operation. A stack +-- drift detection operation detects whether a stack\'s actual +-- configuration differs, or has /drifted/, from it\'s expected +-- configuration, as defined in the stack template and any values specified +-- as template parameters. A stack is considered to have drifted if one or +-- more of its resources have drifted. For more information about stack and +-- resource drift, see +-- . +-- +-- Use DetectStackDrift to initiate a stack drift detection operation. +-- @DetectStackDrift@ returns a @StackDriftDetectionId@ you can use to +-- monitor the progress of the operation using +-- @DescribeStackDriftDetectionStatus@. Once the drift detection operation +-- has completed, use DescribeStackResourceDrifts to return drift +-- information about the stack and its resources. +module Amazonka.CloudFormation.DescribeStackDriftDetectionStatus + ( -- * Creating a Request + DescribeStackDriftDetectionStatus (..), + newDescribeStackDriftDetectionStatus, + + -- * Request Lenses + describeStackDriftDetectionStatus_stackDriftDetectionId, + + -- * Destructuring the Response + DescribeStackDriftDetectionStatusResponse (..), + newDescribeStackDriftDetectionStatusResponse, + + -- * Response Lenses + describeStackDriftDetectionStatusResponse_detectionStatusReason, + describeStackDriftDetectionStatusResponse_driftedStackResourceCount, + describeStackDriftDetectionStatusResponse_stackDriftStatus, + describeStackDriftDetectionStatusResponse_httpStatus, + describeStackDriftDetectionStatusResponse_stackId, + describeStackDriftDetectionStatusResponse_stackDriftDetectionId, + describeStackDriftDetectionStatusResponse_detectionStatus, + describeStackDriftDetectionStatusResponse_timestamp, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeStackDriftDetectionStatus' smart constructor. +data DescribeStackDriftDetectionStatus = DescribeStackDriftDetectionStatus' + { -- | The ID of the drift detection results of this operation. + -- + -- CloudFormation generates new results, with a new drift detection ID, + -- each time this operation is run. However, the number of drift results + -- CloudFormation retains for any given stack, and for how long, may vary. + stackDriftDetectionId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackDriftDetectionStatus' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackDriftDetectionId', 'describeStackDriftDetectionStatus_stackDriftDetectionId' - The ID of the drift detection results of this operation. +-- +-- CloudFormation generates new results, with a new drift detection ID, +-- each time this operation is run. However, the number of drift results +-- CloudFormation retains for any given stack, and for how long, may vary. +newDescribeStackDriftDetectionStatus :: + -- | 'stackDriftDetectionId' + Prelude.Text -> + DescribeStackDriftDetectionStatus +newDescribeStackDriftDetectionStatus + pStackDriftDetectionId_ = + DescribeStackDriftDetectionStatus' + { stackDriftDetectionId = + pStackDriftDetectionId_ + } + +-- | The ID of the drift detection results of this operation. +-- +-- CloudFormation generates new results, with a new drift detection ID, +-- each time this operation is run. However, the number of drift results +-- CloudFormation retains for any given stack, and for how long, may vary. +describeStackDriftDetectionStatus_stackDriftDetectionId :: Lens.Lens' DescribeStackDriftDetectionStatus Prelude.Text +describeStackDriftDetectionStatus_stackDriftDetectionId = Lens.lens (\DescribeStackDriftDetectionStatus' {stackDriftDetectionId} -> stackDriftDetectionId) (\s@DescribeStackDriftDetectionStatus' {} a -> s {stackDriftDetectionId = a} :: DescribeStackDriftDetectionStatus) + +instance + Core.AWSRequest + DescribeStackDriftDetectionStatus + where + type + AWSResponse DescribeStackDriftDetectionStatus = + DescribeStackDriftDetectionStatusResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackDriftDetectionStatusResult" + ( \s h x -> + DescribeStackDriftDetectionStatusResponse' + Prelude.<$> (x Data..@? "DetectionStatusReason") + Prelude.<*> (x Data..@? "DriftedStackResourceCount") + Prelude.<*> (x Data..@? "StackDriftStatus") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..@ "StackId") + Prelude.<*> (x Data..@ "StackDriftDetectionId") + Prelude.<*> (x Data..@ "DetectionStatus") + Prelude.<*> (x Data..@ "Timestamp") + ) + +instance + Prelude.Hashable + DescribeStackDriftDetectionStatus + where + hashWithSalt + _salt + DescribeStackDriftDetectionStatus' {..} = + _salt `Prelude.hashWithSalt` stackDriftDetectionId + +instance + Prelude.NFData + DescribeStackDriftDetectionStatus + where + rnf DescribeStackDriftDetectionStatus' {..} = + Prelude.rnf stackDriftDetectionId + +instance + Data.ToHeaders + DescribeStackDriftDetectionStatus + where + toHeaders = Prelude.const Prelude.mempty + +instance + Data.ToPath + DescribeStackDriftDetectionStatus + where + toPath = Prelude.const "/" + +instance + Data.ToQuery + DescribeStackDriftDetectionStatus + where + toQuery DescribeStackDriftDetectionStatus' {..} = + Prelude.mconcat + [ "Action" + Data.=: ( "DescribeStackDriftDetectionStatus" :: + Prelude.ByteString + ), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackDriftDetectionId" + Data.=: stackDriftDetectionId + ] + +-- | /See:/ 'newDescribeStackDriftDetectionStatusResponse' smart constructor. +data DescribeStackDriftDetectionStatusResponse = DescribeStackDriftDetectionStatusResponse' + { -- | The reason the stack drift detection operation has its current status. + detectionStatusReason :: Prelude.Maybe Prelude.Text, + -- | Total number of stack resources that have drifted. This is NULL until + -- the drift detection operation reaches a status of @DETECTION_COMPLETE@. + -- This value will be 0 for stacks whose drift status is @IN_SYNC@. + driftedStackResourceCount :: Prelude.Maybe Prelude.Int, + -- | Status of the stack\'s actual configuration compared to its expected + -- configuration. + -- + -- - @DRIFTED@: The stack differs from its expected template + -- configuration. A stack is considered to have drifted if one or more + -- of its resources have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs + -- from its expected template configuration. + -- + -- - @IN_SYNC@: The stack\'s actual configuration matches its expected + -- template configuration. + -- + -- - @UNKNOWN@: This value is reserved for future use. + stackDriftStatus :: Prelude.Maybe StackDriftStatus, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The ID of the stack. + stackId :: Prelude.Text, + -- | The ID of the drift detection results of this operation. + -- + -- CloudFormation generates new results, with a new drift detection ID, + -- each time this operation is run. However, the number of reports + -- CloudFormation retains for any given stack, and for how long, may vary. + stackDriftDetectionId :: Prelude.Text, + -- | The status of the stack drift detection operation. + -- + -- - @DETECTION_COMPLETE@: The stack drift detection operation has + -- successfully completed for all resources in the stack that support + -- drift detection. (Resources that don\'t currently support stack + -- detection remain unchecked.) + -- + -- If you specified logical resource IDs for CloudFormation to use as a + -- filter for the stack drift detection operation, only the resources + -- with those logical IDs are checked for drift. + -- + -- - @DETECTION_FAILED@: The stack drift detection operation has failed + -- for at least one resource in the stack. Results will be available + -- for resources on which CloudFormation successfully completed drift + -- detection. + -- + -- - @DETECTION_IN_PROGRESS@: The stack drift detection operation is + -- currently in progress. + detectionStatus :: StackDriftDetectionStatus, + -- | Time at which the stack drift detection operation was initiated. + timestamp :: Data.ISO8601 + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackDriftDetectionStatusResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'detectionStatusReason', 'describeStackDriftDetectionStatusResponse_detectionStatusReason' - The reason the stack drift detection operation has its current status. +-- +-- 'driftedStackResourceCount', 'describeStackDriftDetectionStatusResponse_driftedStackResourceCount' - Total number of stack resources that have drifted. This is NULL until +-- the drift detection operation reaches a status of @DETECTION_COMPLETE@. +-- This value will be 0 for stacks whose drift status is @IN_SYNC@. +-- +-- 'stackDriftStatus', 'describeStackDriftDetectionStatusResponse_stackDriftStatus' - Status of the stack\'s actual configuration compared to its expected +-- configuration. +-- +-- - @DRIFTED@: The stack differs from its expected template +-- configuration. A stack is considered to have drifted if one or more +-- of its resources have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs +-- from its expected template configuration. +-- +-- - @IN_SYNC@: The stack\'s actual configuration matches its expected +-- template configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +-- +-- 'httpStatus', 'describeStackDriftDetectionStatusResponse_httpStatus' - The response's http status code. +-- +-- 'stackId', 'describeStackDriftDetectionStatusResponse_stackId' - The ID of the stack. +-- +-- 'stackDriftDetectionId', 'describeStackDriftDetectionStatusResponse_stackDriftDetectionId' - The ID of the drift detection results of this operation. +-- +-- CloudFormation generates new results, with a new drift detection ID, +-- each time this operation is run. However, the number of reports +-- CloudFormation retains for any given stack, and for how long, may vary. +-- +-- 'detectionStatus', 'describeStackDriftDetectionStatusResponse_detectionStatus' - The status of the stack drift detection operation. +-- +-- - @DETECTION_COMPLETE@: The stack drift detection operation has +-- successfully completed for all resources in the stack that support +-- drift detection. (Resources that don\'t currently support stack +-- detection remain unchecked.) +-- +-- If you specified logical resource IDs for CloudFormation to use as a +-- filter for the stack drift detection operation, only the resources +-- with those logical IDs are checked for drift. +-- +-- - @DETECTION_FAILED@: The stack drift detection operation has failed +-- for at least one resource in the stack. Results will be available +-- for resources on which CloudFormation successfully completed drift +-- detection. +-- +-- - @DETECTION_IN_PROGRESS@: The stack drift detection operation is +-- currently in progress. +-- +-- 'timestamp', 'describeStackDriftDetectionStatusResponse_timestamp' - Time at which the stack drift detection operation was initiated. +newDescribeStackDriftDetectionStatusResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'stackId' + Prelude.Text -> + -- | 'stackDriftDetectionId' + Prelude.Text -> + -- | 'detectionStatus' + StackDriftDetectionStatus -> + -- | 'timestamp' + Prelude.UTCTime -> + DescribeStackDriftDetectionStatusResponse +newDescribeStackDriftDetectionStatusResponse + pHttpStatus_ + pStackId_ + pStackDriftDetectionId_ + pDetectionStatus_ + pTimestamp_ = + DescribeStackDriftDetectionStatusResponse' + { detectionStatusReason = + Prelude.Nothing, + driftedStackResourceCount = + Prelude.Nothing, + stackDriftStatus = + Prelude.Nothing, + httpStatus = pHttpStatus_, + stackId = pStackId_, + stackDriftDetectionId = + pStackDriftDetectionId_, + detectionStatus = + pDetectionStatus_, + timestamp = + Data._Time Lens.# pTimestamp_ + } + +-- | The reason the stack drift detection operation has its current status. +describeStackDriftDetectionStatusResponse_detectionStatusReason :: Lens.Lens' DescribeStackDriftDetectionStatusResponse (Prelude.Maybe Prelude.Text) +describeStackDriftDetectionStatusResponse_detectionStatusReason = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {detectionStatusReason} -> detectionStatusReason) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {detectionStatusReason = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | Total number of stack resources that have drifted. This is NULL until +-- the drift detection operation reaches a status of @DETECTION_COMPLETE@. +-- This value will be 0 for stacks whose drift status is @IN_SYNC@. +describeStackDriftDetectionStatusResponse_driftedStackResourceCount :: Lens.Lens' DescribeStackDriftDetectionStatusResponse (Prelude.Maybe Prelude.Int) +describeStackDriftDetectionStatusResponse_driftedStackResourceCount = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {driftedStackResourceCount} -> driftedStackResourceCount) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {driftedStackResourceCount = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | Status of the stack\'s actual configuration compared to its expected +-- configuration. +-- +-- - @DRIFTED@: The stack differs from its expected template +-- configuration. A stack is considered to have drifted if one or more +-- of its resources have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs +-- from its expected template configuration. +-- +-- - @IN_SYNC@: The stack\'s actual configuration matches its expected +-- template configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +describeStackDriftDetectionStatusResponse_stackDriftStatus :: Lens.Lens' DescribeStackDriftDetectionStatusResponse (Prelude.Maybe StackDriftStatus) +describeStackDriftDetectionStatusResponse_stackDriftStatus = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {stackDriftStatus} -> stackDriftStatus) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {stackDriftStatus = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | The response's http status code. +describeStackDriftDetectionStatusResponse_httpStatus :: Lens.Lens' DescribeStackDriftDetectionStatusResponse Prelude.Int +describeStackDriftDetectionStatusResponse_httpStatus = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {httpStatus} -> httpStatus) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {httpStatus = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | The ID of the stack. +describeStackDriftDetectionStatusResponse_stackId :: Lens.Lens' DescribeStackDriftDetectionStatusResponse Prelude.Text +describeStackDriftDetectionStatusResponse_stackId = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {stackId} -> stackId) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {stackId = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | The ID of the drift detection results of this operation. +-- +-- CloudFormation generates new results, with a new drift detection ID, +-- each time this operation is run. However, the number of reports +-- CloudFormation retains for any given stack, and for how long, may vary. +describeStackDriftDetectionStatusResponse_stackDriftDetectionId :: Lens.Lens' DescribeStackDriftDetectionStatusResponse Prelude.Text +describeStackDriftDetectionStatusResponse_stackDriftDetectionId = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {stackDriftDetectionId} -> stackDriftDetectionId) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {stackDriftDetectionId = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | The status of the stack drift detection operation. +-- +-- - @DETECTION_COMPLETE@: The stack drift detection operation has +-- successfully completed for all resources in the stack that support +-- drift detection. (Resources that don\'t currently support stack +-- detection remain unchecked.) +-- +-- If you specified logical resource IDs for CloudFormation to use as a +-- filter for the stack drift detection operation, only the resources +-- with those logical IDs are checked for drift. +-- +-- - @DETECTION_FAILED@: The stack drift detection operation has failed +-- for at least one resource in the stack. Results will be available +-- for resources on which CloudFormation successfully completed drift +-- detection. +-- +-- - @DETECTION_IN_PROGRESS@: The stack drift detection operation is +-- currently in progress. +describeStackDriftDetectionStatusResponse_detectionStatus :: Lens.Lens' DescribeStackDriftDetectionStatusResponse StackDriftDetectionStatus +describeStackDriftDetectionStatusResponse_detectionStatus = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {detectionStatus} -> detectionStatus) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {detectionStatus = a} :: DescribeStackDriftDetectionStatusResponse) + +-- | Time at which the stack drift detection operation was initiated. +describeStackDriftDetectionStatusResponse_timestamp :: Lens.Lens' DescribeStackDriftDetectionStatusResponse Prelude.UTCTime +describeStackDriftDetectionStatusResponse_timestamp = Lens.lens (\DescribeStackDriftDetectionStatusResponse' {timestamp} -> timestamp) (\s@DescribeStackDriftDetectionStatusResponse' {} a -> s {timestamp = a} :: DescribeStackDriftDetectionStatusResponse) Prelude.. Data._Time + +instance + Prelude.NFData + DescribeStackDriftDetectionStatusResponse + where + rnf DescribeStackDriftDetectionStatusResponse' {..} = + Prelude.rnf detectionStatusReason + `Prelude.seq` Prelude.rnf driftedStackResourceCount + `Prelude.seq` Prelude.rnf stackDriftStatus + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackDriftDetectionId + `Prelude.seq` Prelude.rnf detectionStatus + `Prelude.seq` Prelude.rnf timestamp diff --git a/gen/Amazonka/CloudFormation/DescribeStackEvents.hs b/gen/Amazonka/CloudFormation/DescribeStackEvents.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackEvents.hs @@ -0,0 +1,253 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackEvents +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns all stack related events for a specified stack in reverse +-- chronological order. For more information about a stack\'s event +-- history, go to +-- +-- in the CloudFormation User Guide. +-- +-- You can list events for stacks that have failed to create or have been +-- deleted by specifying the unique stack identifier (stack ID). +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.DescribeStackEvents + ( -- * Creating a Request + DescribeStackEvents (..), + newDescribeStackEvents, + + -- * Request Lenses + describeStackEvents_nextToken, + describeStackEvents_stackName, + + -- * Destructuring the Response + DescribeStackEventsResponse (..), + newDescribeStackEventsResponse, + + -- * Response Lenses + describeStackEventsResponse_nextToken, + describeStackEventsResponse_stackEvents, + describeStackEventsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for DescribeStackEvents action. +-- +-- /See:/ 'newDescribeStackEvents' smart constructor. +data DescribeStackEvents = DescribeStackEvents' + { -- | A string that identifies the next page of events that you want to + -- retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that\'s associated with the stack, which + -- aren\'t always interchangeable: + -- + -- - Running stacks: You can specify either the stack\'s name or its + -- unique stack ID. + -- + -- - Deleted stacks: You must specify the unique stack ID. + -- + -- Default: There is no default value. + stackName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackEvents' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeStackEvents_nextToken' - A string that identifies the next page of events that you want to +-- retrieve. +-- +-- 'stackName', 'describeStackEvents_stackName' - The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +newDescribeStackEvents :: + DescribeStackEvents +newDescribeStackEvents = + DescribeStackEvents' + { nextToken = Prelude.Nothing, + stackName = Prelude.Nothing + } + +-- | A string that identifies the next page of events that you want to +-- retrieve. +describeStackEvents_nextToken :: Lens.Lens' DescribeStackEvents (Prelude.Maybe Prelude.Text) +describeStackEvents_nextToken = Lens.lens (\DescribeStackEvents' {nextToken} -> nextToken) (\s@DescribeStackEvents' {} a -> s {nextToken = a} :: DescribeStackEvents) + +-- | The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +describeStackEvents_stackName :: Lens.Lens' DescribeStackEvents (Prelude.Maybe Prelude.Text) +describeStackEvents_stackName = Lens.lens (\DescribeStackEvents' {stackName} -> stackName) (\s@DescribeStackEvents' {} a -> s {stackName = a} :: DescribeStackEvents) + +instance Core.AWSPager DescribeStackEvents where + page rq rs + | Core.stop + ( rs + Lens.^? describeStackEventsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? describeStackEventsResponse_stackEvents + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& describeStackEvents_nextToken + Lens..~ rs + Lens.^? describeStackEventsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest DescribeStackEvents where + type + AWSResponse DescribeStackEvents = + DescribeStackEventsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackEventsResult" + ( \s h x -> + DescribeStackEventsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "StackEvents" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStackEvents where + hashWithSalt _salt DescribeStackEvents' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData DescribeStackEvents where + rnf DescribeStackEvents' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders DescribeStackEvents where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackEvents where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackEvents where + toQuery DescribeStackEvents' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStackEvents" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "StackName" Data.=: stackName + ] + +-- | The output for a DescribeStackEvents action. +-- +-- /See:/ 'newDescribeStackEventsResponse' smart constructor. +data DescribeStackEventsResponse = DescribeStackEventsResponse' + { -- | If the output exceeds 1 MB in size, a string that identifies the next + -- page of events. If no additional page exists, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackEvents@ structures. + stackEvents :: Prelude.Maybe [StackEvent], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackEventsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeStackEventsResponse_nextToken' - If the output exceeds 1 MB in size, a string that identifies the next +-- page of events. If no additional page exists, this value is null. +-- +-- 'stackEvents', 'describeStackEventsResponse_stackEvents' - A list of @StackEvents@ structures. +-- +-- 'httpStatus', 'describeStackEventsResponse_httpStatus' - The response's http status code. +newDescribeStackEventsResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackEventsResponse +newDescribeStackEventsResponse pHttpStatus_ = + DescribeStackEventsResponse' + { nextToken = + Prelude.Nothing, + stackEvents = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the output exceeds 1 MB in size, a string that identifies the next +-- page of events. If no additional page exists, this value is null. +describeStackEventsResponse_nextToken :: Lens.Lens' DescribeStackEventsResponse (Prelude.Maybe Prelude.Text) +describeStackEventsResponse_nextToken = Lens.lens (\DescribeStackEventsResponse' {nextToken} -> nextToken) (\s@DescribeStackEventsResponse' {} a -> s {nextToken = a} :: DescribeStackEventsResponse) + +-- | A list of @StackEvents@ structures. +describeStackEventsResponse_stackEvents :: Lens.Lens' DescribeStackEventsResponse (Prelude.Maybe [StackEvent]) +describeStackEventsResponse_stackEvents = Lens.lens (\DescribeStackEventsResponse' {stackEvents} -> stackEvents) (\s@DescribeStackEventsResponse' {} a -> s {stackEvents = a} :: DescribeStackEventsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +describeStackEventsResponse_httpStatus :: Lens.Lens' DescribeStackEventsResponse Prelude.Int +describeStackEventsResponse_httpStatus = Lens.lens (\DescribeStackEventsResponse' {httpStatus} -> httpStatus) (\s@DescribeStackEventsResponse' {} a -> s {httpStatus = a} :: DescribeStackEventsResponse) + +instance Prelude.NFData DescribeStackEventsResponse where + rnf DescribeStackEventsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackEvents + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStackInstance.hs b/gen/Amazonka/CloudFormation/DescribeStackInstance.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackInstance.hs @@ -0,0 +1,262 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackInstance +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the stack instance that\'s associated with the specified stack +-- set, Amazon Web Services account, and Region. +-- +-- For a list of stack instances that are associated with a specific stack +-- set, use ListStackInstances. +module Amazonka.CloudFormation.DescribeStackInstance + ( -- * Creating a Request + DescribeStackInstance (..), + newDescribeStackInstance, + + -- * Request Lenses + describeStackInstance_callAs, + describeStackInstance_stackSetName, + describeStackInstance_stackInstanceAccount, + describeStackInstance_stackInstanceRegion, + + -- * Destructuring the Response + DescribeStackInstanceResponse (..), + newDescribeStackInstanceResponse, + + -- * Response Lenses + describeStackInstanceResponse_stackInstance, + describeStackInstanceResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeStackInstance' smart constructor. +data DescribeStackInstance = DescribeStackInstance' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The name or the unique stack ID of the stack set that you want to get + -- stack instance information for. + stackSetName :: Prelude.Text, + -- | The ID of an Amazon Web Services account that\'s associated with this + -- stack instance. + stackInstanceAccount :: Prelude.Text, + -- | The name of a Region that\'s associated with this stack instance. + stackInstanceRegion :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackInstance' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'describeStackInstance_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackSetName', 'describeStackInstance_stackSetName' - The name or the unique stack ID of the stack set that you want to get +-- stack instance information for. +-- +-- 'stackInstanceAccount', 'describeStackInstance_stackInstanceAccount' - The ID of an Amazon Web Services account that\'s associated with this +-- stack instance. +-- +-- 'stackInstanceRegion', 'describeStackInstance_stackInstanceRegion' - The name of a Region that\'s associated with this stack instance. +newDescribeStackInstance :: + -- | 'stackSetName' + Prelude.Text -> + -- | 'stackInstanceAccount' + Prelude.Text -> + -- | 'stackInstanceRegion' + Prelude.Text -> + DescribeStackInstance +newDescribeStackInstance + pStackSetName_ + pStackInstanceAccount_ + pStackInstanceRegion_ = + DescribeStackInstance' + { callAs = Prelude.Nothing, + stackSetName = pStackSetName_, + stackInstanceAccount = pStackInstanceAccount_, + stackInstanceRegion = pStackInstanceRegion_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +describeStackInstance_callAs :: Lens.Lens' DescribeStackInstance (Prelude.Maybe CallAs) +describeStackInstance_callAs = Lens.lens (\DescribeStackInstance' {callAs} -> callAs) (\s@DescribeStackInstance' {} a -> s {callAs = a} :: DescribeStackInstance) + +-- | The name or the unique stack ID of the stack set that you want to get +-- stack instance information for. +describeStackInstance_stackSetName :: Lens.Lens' DescribeStackInstance Prelude.Text +describeStackInstance_stackSetName = Lens.lens (\DescribeStackInstance' {stackSetName} -> stackSetName) (\s@DescribeStackInstance' {} a -> s {stackSetName = a} :: DescribeStackInstance) + +-- | The ID of an Amazon Web Services account that\'s associated with this +-- stack instance. +describeStackInstance_stackInstanceAccount :: Lens.Lens' DescribeStackInstance Prelude.Text +describeStackInstance_stackInstanceAccount = Lens.lens (\DescribeStackInstance' {stackInstanceAccount} -> stackInstanceAccount) (\s@DescribeStackInstance' {} a -> s {stackInstanceAccount = a} :: DescribeStackInstance) + +-- | The name of a Region that\'s associated with this stack instance. +describeStackInstance_stackInstanceRegion :: Lens.Lens' DescribeStackInstance Prelude.Text +describeStackInstance_stackInstanceRegion = Lens.lens (\DescribeStackInstance' {stackInstanceRegion} -> stackInstanceRegion) (\s@DescribeStackInstance' {} a -> s {stackInstanceRegion = a} :: DescribeStackInstance) + +instance Core.AWSRequest DescribeStackInstance where + type + AWSResponse DescribeStackInstance = + DescribeStackInstanceResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackInstanceResult" + ( \s h x -> + DescribeStackInstanceResponse' + Prelude.<$> (x Data..@? "StackInstance") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStackInstance where + hashWithSalt _salt DescribeStackInstance' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` stackInstanceAccount + `Prelude.hashWithSalt` stackInstanceRegion + +instance Prelude.NFData DescribeStackInstance where + rnf DescribeStackInstance' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf stackInstanceAccount + `Prelude.seq` Prelude.rnf stackInstanceRegion + +instance Data.ToHeaders DescribeStackInstance where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackInstance where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackInstance where + toQuery DescribeStackInstance' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStackInstance" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "StackSetName" Data.=: stackSetName, + "StackInstanceAccount" Data.=: stackInstanceAccount, + "StackInstanceRegion" Data.=: stackInstanceRegion + ] + +-- | /See:/ 'newDescribeStackInstanceResponse' smart constructor. +data DescribeStackInstanceResponse = DescribeStackInstanceResponse' + { -- | The stack instance that matches the specified request parameters. + stackInstance :: Prelude.Maybe StackInstance, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackInstanceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackInstance', 'describeStackInstanceResponse_stackInstance' - The stack instance that matches the specified request parameters. +-- +-- 'httpStatus', 'describeStackInstanceResponse_httpStatus' - The response's http status code. +newDescribeStackInstanceResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackInstanceResponse +newDescribeStackInstanceResponse pHttpStatus_ = + DescribeStackInstanceResponse' + { stackInstance = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The stack instance that matches the specified request parameters. +describeStackInstanceResponse_stackInstance :: Lens.Lens' DescribeStackInstanceResponse (Prelude.Maybe StackInstance) +describeStackInstanceResponse_stackInstance = Lens.lens (\DescribeStackInstanceResponse' {stackInstance} -> stackInstance) (\s@DescribeStackInstanceResponse' {} a -> s {stackInstance = a} :: DescribeStackInstanceResponse) + +-- | The response's http status code. +describeStackInstanceResponse_httpStatus :: Lens.Lens' DescribeStackInstanceResponse Prelude.Int +describeStackInstanceResponse_httpStatus = Lens.lens (\DescribeStackInstanceResponse' {httpStatus} -> httpStatus) (\s@DescribeStackInstanceResponse' {} a -> s {httpStatus = a} :: DescribeStackInstanceResponse) + +instance Prelude.NFData DescribeStackInstanceResponse where + rnf DescribeStackInstanceResponse' {..} = + Prelude.rnf stackInstance + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStackResource.hs b/gen/Amazonka/CloudFormation/DescribeStackResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackResource.hs @@ -0,0 +1,218 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns a description of the specified resource in the specified stack. +-- +-- For deleted stacks, DescribeStackResource returns resource information +-- for up to 90 days after the stack has been deleted. +module Amazonka.CloudFormation.DescribeStackResource + ( -- * Creating a Request + DescribeStackResource (..), + newDescribeStackResource, + + -- * Request Lenses + describeStackResource_stackName, + describeStackResource_logicalResourceId, + + -- * Destructuring the Response + DescribeStackResourceResponse (..), + newDescribeStackResourceResponse, + + -- * Response Lenses + describeStackResourceResponse_stackResourceDetail, + describeStackResourceResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for DescribeStackResource action. +-- +-- /See:/ 'newDescribeStackResource' smart constructor. +data DescribeStackResource = DescribeStackResource' + { -- | The name or the unique stack ID that\'s associated with the stack, which + -- aren\'t always interchangeable: + -- + -- - Running stacks: You can specify either the stack\'s name or its + -- unique stack ID. + -- + -- - Deleted stacks: You must specify the unique stack ID. + -- + -- Default: There is no default value. + stackName :: Prelude.Text, + -- | The logical name of the resource as specified in the template. + -- + -- Default: There is no default value. + logicalResourceId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackResource' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackName', 'describeStackResource_stackName' - The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +-- +-- 'logicalResourceId', 'describeStackResource_logicalResourceId' - The logical name of the resource as specified in the template. +-- +-- Default: There is no default value. +newDescribeStackResource :: + -- | 'stackName' + Prelude.Text -> + -- | 'logicalResourceId' + Prelude.Text -> + DescribeStackResource +newDescribeStackResource + pStackName_ + pLogicalResourceId_ = + DescribeStackResource' + { stackName = pStackName_, + logicalResourceId = pLogicalResourceId_ + } + +-- | The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +describeStackResource_stackName :: Lens.Lens' DescribeStackResource Prelude.Text +describeStackResource_stackName = Lens.lens (\DescribeStackResource' {stackName} -> stackName) (\s@DescribeStackResource' {} a -> s {stackName = a} :: DescribeStackResource) + +-- | The logical name of the resource as specified in the template. +-- +-- Default: There is no default value. +describeStackResource_logicalResourceId :: Lens.Lens' DescribeStackResource Prelude.Text +describeStackResource_logicalResourceId = Lens.lens (\DescribeStackResource' {logicalResourceId} -> logicalResourceId) (\s@DescribeStackResource' {} a -> s {logicalResourceId = a} :: DescribeStackResource) + +instance Core.AWSRequest DescribeStackResource where + type + AWSResponse DescribeStackResource = + DescribeStackResourceResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackResourceResult" + ( \s h x -> + DescribeStackResourceResponse' + Prelude.<$> (x Data..@? "StackResourceDetail") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStackResource where + hashWithSalt _salt DescribeStackResource' {..} = + _salt + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` logicalResourceId + +instance Prelude.NFData DescribeStackResource where + rnf DescribeStackResource' {..} = + Prelude.rnf stackName + `Prelude.seq` Prelude.rnf logicalResourceId + +instance Data.ToHeaders DescribeStackResource where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackResource where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackResource where + toQuery DescribeStackResource' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStackResource" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackName" Data.=: stackName, + "LogicalResourceId" Data.=: logicalResourceId + ] + +-- | The output for a DescribeStackResource action. +-- +-- /See:/ 'newDescribeStackResourceResponse' smart constructor. +data DescribeStackResourceResponse = DescribeStackResourceResponse' + { -- | A @StackResourceDetail@ structure containing the description of the + -- specified resource in the specified stack. + stackResourceDetail :: Prelude.Maybe StackResourceDetail, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackResourceDetail', 'describeStackResourceResponse_stackResourceDetail' - A @StackResourceDetail@ structure containing the description of the +-- specified resource in the specified stack. +-- +-- 'httpStatus', 'describeStackResourceResponse_httpStatus' - The response's http status code. +newDescribeStackResourceResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackResourceResponse +newDescribeStackResourceResponse pHttpStatus_ = + DescribeStackResourceResponse' + { stackResourceDetail = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | A @StackResourceDetail@ structure containing the description of the +-- specified resource in the specified stack. +describeStackResourceResponse_stackResourceDetail :: Lens.Lens' DescribeStackResourceResponse (Prelude.Maybe StackResourceDetail) +describeStackResourceResponse_stackResourceDetail = Lens.lens (\DescribeStackResourceResponse' {stackResourceDetail} -> stackResourceDetail) (\s@DescribeStackResourceResponse' {} a -> s {stackResourceDetail = a} :: DescribeStackResourceResponse) + +-- | The response's http status code. +describeStackResourceResponse_httpStatus :: Lens.Lens' DescribeStackResourceResponse Prelude.Int +describeStackResourceResponse_httpStatus = Lens.lens (\DescribeStackResourceResponse' {httpStatus} -> httpStatus) (\s@DescribeStackResourceResponse' {} a -> s {httpStatus = a} :: DescribeStackResourceResponse) + +instance Prelude.NFData DescribeStackResourceResponse where + rnf DescribeStackResourceResponse' {..} = + Prelude.rnf stackResourceDetail + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStackResourceDrifts.hs b/gen/Amazonka/CloudFormation/DescribeStackResourceDrifts.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackResourceDrifts.hs @@ -0,0 +1,325 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackResourceDrifts +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns drift information for the resources that have been checked for +-- drift in the specified stack. This includes actual and expected +-- configuration values for resources where CloudFormation detects +-- configuration drift. +-- +-- For a given stack, there will be one @StackResourceDrift@ for each stack +-- resource that has been checked for drift. Resources that haven\'t yet +-- been checked for drift aren\'t included. Resources that don\'t currently +-- support drift detection aren\'t checked, and so not included. For a list +-- of resources that support drift detection, see +-- . +-- +-- Use DetectStackResourceDrift to detect drift on individual resources, or +-- DetectStackDrift to detect drift on all supported resources for a given +-- stack. +module Amazonka.CloudFormation.DescribeStackResourceDrifts + ( -- * Creating a Request + DescribeStackResourceDrifts (..), + newDescribeStackResourceDrifts, + + -- * Request Lenses + describeStackResourceDrifts_maxResults, + describeStackResourceDrifts_nextToken, + describeStackResourceDrifts_stackResourceDriftStatusFilters, + describeStackResourceDrifts_stackName, + + -- * Destructuring the Response + DescribeStackResourceDriftsResponse (..), + newDescribeStackResourceDriftsResponse, + + -- * Response Lenses + describeStackResourceDriftsResponse_nextToken, + describeStackResourceDriftsResponse_httpStatus, + describeStackResourceDriftsResponse_stackResourceDrifts, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeStackResourceDrifts' smart constructor. +data DescribeStackResourceDrifts = DescribeStackResourceDrifts' + { -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | A string that identifies the next page of stack resource drift results. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The resource drift status values to use as filters for the resource + -- drift results returned. + -- + -- - @DELETED@: The resource differs from its expected template + -- configuration in that the resource has been deleted. + -- + -- - @MODIFIED@: One or more resource properties differ from their + -- expected template values. + -- + -- - @IN_SYNC@: The resource\'s actual configuration matches its expected + -- template configuration. + -- + -- - @NOT_CHECKED@: CloudFormation doesn\'t currently return this value. + stackResourceDriftStatusFilters :: Prelude.Maybe (Prelude.NonEmpty StackResourceDriftStatus), + -- | The name of the stack for which you want drift information. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackResourceDrifts' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'maxResults', 'describeStackResourceDrifts_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'describeStackResourceDrifts_nextToken' - A string that identifies the next page of stack resource drift results. +-- +-- 'stackResourceDriftStatusFilters', 'describeStackResourceDrifts_stackResourceDriftStatusFilters' - The resource drift status values to use as filters for the resource +-- drift results returned. +-- +-- - @DELETED@: The resource differs from its expected template +-- configuration in that the resource has been deleted. +-- +-- - @MODIFIED@: One or more resource properties differ from their +-- expected template values. +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- template configuration. +-- +-- - @NOT_CHECKED@: CloudFormation doesn\'t currently return this value. +-- +-- 'stackName', 'describeStackResourceDrifts_stackName' - The name of the stack for which you want drift information. +newDescribeStackResourceDrifts :: + -- | 'stackName' + Prelude.Text -> + DescribeStackResourceDrifts +newDescribeStackResourceDrifts pStackName_ = + DescribeStackResourceDrifts' + { maxResults = + Prelude.Nothing, + nextToken = Prelude.Nothing, + stackResourceDriftStatusFilters = + Prelude.Nothing, + stackName = pStackName_ + } + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +describeStackResourceDrifts_maxResults :: Lens.Lens' DescribeStackResourceDrifts (Prelude.Maybe Prelude.Natural) +describeStackResourceDrifts_maxResults = Lens.lens (\DescribeStackResourceDrifts' {maxResults} -> maxResults) (\s@DescribeStackResourceDrifts' {} a -> s {maxResults = a} :: DescribeStackResourceDrifts) + +-- | A string that identifies the next page of stack resource drift results. +describeStackResourceDrifts_nextToken :: Lens.Lens' DescribeStackResourceDrifts (Prelude.Maybe Prelude.Text) +describeStackResourceDrifts_nextToken = Lens.lens (\DescribeStackResourceDrifts' {nextToken} -> nextToken) (\s@DescribeStackResourceDrifts' {} a -> s {nextToken = a} :: DescribeStackResourceDrifts) + +-- | The resource drift status values to use as filters for the resource +-- drift results returned. +-- +-- - @DELETED@: The resource differs from its expected template +-- configuration in that the resource has been deleted. +-- +-- - @MODIFIED@: One or more resource properties differ from their +-- expected template values. +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- template configuration. +-- +-- - @NOT_CHECKED@: CloudFormation doesn\'t currently return this value. +describeStackResourceDrifts_stackResourceDriftStatusFilters :: Lens.Lens' DescribeStackResourceDrifts (Prelude.Maybe (Prelude.NonEmpty StackResourceDriftStatus)) +describeStackResourceDrifts_stackResourceDriftStatusFilters = Lens.lens (\DescribeStackResourceDrifts' {stackResourceDriftStatusFilters} -> stackResourceDriftStatusFilters) (\s@DescribeStackResourceDrifts' {} a -> s {stackResourceDriftStatusFilters = a} :: DescribeStackResourceDrifts) Prelude.. Lens.mapping Lens.coerced + +-- | The name of the stack for which you want drift information. +describeStackResourceDrifts_stackName :: Lens.Lens' DescribeStackResourceDrifts Prelude.Text +describeStackResourceDrifts_stackName = Lens.lens (\DescribeStackResourceDrifts' {stackName} -> stackName) (\s@DescribeStackResourceDrifts' {} a -> s {stackName = a} :: DescribeStackResourceDrifts) + +instance Core.AWSRequest DescribeStackResourceDrifts where + type + AWSResponse DescribeStackResourceDrifts = + DescribeStackResourceDriftsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackResourceDriftsResult" + ( \s h x -> + DescribeStackResourceDriftsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> ( x + Data..@? "StackResourceDrifts" + Core..!@ Prelude.mempty + Prelude.>>= Data.parseXMLList "member" + ) + ) + +instance Prelude.Hashable DescribeStackResourceDrifts where + hashWithSalt _salt DescribeStackResourceDrifts' {..} = + _salt + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackResourceDriftStatusFilters + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData DescribeStackResourceDrifts where + rnf DescribeStackResourceDrifts' {..} = + Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackResourceDriftStatusFilters + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders DescribeStackResourceDrifts where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackResourceDrifts where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackResourceDrifts where + toQuery DescribeStackResourceDrifts' {..} = + Prelude.mconcat + [ "Action" + Data.=: ( "DescribeStackResourceDrifts" :: + Prelude.ByteString + ), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "StackResourceDriftStatusFilters" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> stackResourceDriftStatusFilters + ), + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newDescribeStackResourceDriftsResponse' smart constructor. +data DescribeStackResourceDriftsResponse = DescribeStackResourceDriftsResponse' + { -- | If the request doesn\'t return all the remaining results, @NextToken@ is + -- set to a token. To retrieve the next set of results, call + -- @DescribeStackResourceDrifts@ again and assign that token to the request + -- object\'s @NextToken@ parameter. If the request returns all results, + -- @NextToken@ is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | Drift information for the resources that have been checked for drift in + -- the specified stack. This includes actual and expected configuration + -- values for resources where CloudFormation detects drift. + -- + -- For a given stack, there will be one @StackResourceDrift@ for each stack + -- resource that has been checked for drift. Resources that haven\'t yet + -- been checked for drift aren\'t included. Resources that do not currently + -- support drift detection aren\'t checked, and so not included. For a list + -- of resources that support drift detection, see + -- . + stackResourceDrifts :: [StackResourceDrift] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackResourceDriftsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeStackResourceDriftsResponse_nextToken' - If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call +-- @DescribeStackResourceDrifts@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If the request returns all results, +-- @NextToken@ is set to @null@. +-- +-- 'httpStatus', 'describeStackResourceDriftsResponse_httpStatus' - The response's http status code. +-- +-- 'stackResourceDrifts', 'describeStackResourceDriftsResponse_stackResourceDrifts' - Drift information for the resources that have been checked for drift in +-- the specified stack. This includes actual and expected configuration +-- values for resources where CloudFormation detects drift. +-- +-- For a given stack, there will be one @StackResourceDrift@ for each stack +-- resource that has been checked for drift. Resources that haven\'t yet +-- been checked for drift aren\'t included. Resources that do not currently +-- support drift detection aren\'t checked, and so not included. For a list +-- of resources that support drift detection, see +-- . +newDescribeStackResourceDriftsResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackResourceDriftsResponse +newDescribeStackResourceDriftsResponse pHttpStatus_ = + DescribeStackResourceDriftsResponse' + { nextToken = + Prelude.Nothing, + httpStatus = pHttpStatus_, + stackResourceDrifts = Prelude.mempty + } + +-- | If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call +-- @DescribeStackResourceDrifts@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If the request returns all results, +-- @NextToken@ is set to @null@. +describeStackResourceDriftsResponse_nextToken :: Lens.Lens' DescribeStackResourceDriftsResponse (Prelude.Maybe Prelude.Text) +describeStackResourceDriftsResponse_nextToken = Lens.lens (\DescribeStackResourceDriftsResponse' {nextToken} -> nextToken) (\s@DescribeStackResourceDriftsResponse' {} a -> s {nextToken = a} :: DescribeStackResourceDriftsResponse) + +-- | The response's http status code. +describeStackResourceDriftsResponse_httpStatus :: Lens.Lens' DescribeStackResourceDriftsResponse Prelude.Int +describeStackResourceDriftsResponse_httpStatus = Lens.lens (\DescribeStackResourceDriftsResponse' {httpStatus} -> httpStatus) (\s@DescribeStackResourceDriftsResponse' {} a -> s {httpStatus = a} :: DescribeStackResourceDriftsResponse) + +-- | Drift information for the resources that have been checked for drift in +-- the specified stack. This includes actual and expected configuration +-- values for resources where CloudFormation detects drift. +-- +-- For a given stack, there will be one @StackResourceDrift@ for each stack +-- resource that has been checked for drift. Resources that haven\'t yet +-- been checked for drift aren\'t included. Resources that do not currently +-- support drift detection aren\'t checked, and so not included. For a list +-- of resources that support drift detection, see +-- . +describeStackResourceDriftsResponse_stackResourceDrifts :: Lens.Lens' DescribeStackResourceDriftsResponse [StackResourceDrift] +describeStackResourceDriftsResponse_stackResourceDrifts = Lens.lens (\DescribeStackResourceDriftsResponse' {stackResourceDrifts} -> stackResourceDrifts) (\s@DescribeStackResourceDriftsResponse' {} a -> s {stackResourceDrifts = a} :: DescribeStackResourceDriftsResponse) Prelude.. Lens.coerced + +instance + Prelude.NFData + DescribeStackResourceDriftsResponse + where + rnf DescribeStackResourceDriftsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf stackResourceDrifts diff --git a/gen/Amazonka/CloudFormation/DescribeStackResources.hs b/gen/Amazonka/CloudFormation/DescribeStackResources.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackResources.hs @@ -0,0 +1,288 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackResources +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns Amazon Web Services resource descriptions for running and +-- deleted stacks. If @StackName@ is specified, all the associated +-- resources that are part of the stack are returned. If +-- @PhysicalResourceId@ is specified, the associated resources of the stack +-- that the resource belongs to are returned. +-- +-- Only the first 100 resources will be returned. If your stack has more +-- resources than this, you should use @ListStackResources@ instead. +-- +-- For deleted stacks, @DescribeStackResources@ returns resource +-- information for up to 90 days after the stack has been deleted. +-- +-- You must specify either @StackName@ or @PhysicalResourceId@, but not +-- both. In addition, you can specify @LogicalResourceId@ to filter the +-- returned result. For more information about resources, the +-- @LogicalResourceId@ and @PhysicalResourceId@, go to the +-- . +-- +-- A @ValidationError@ is returned if you specify both @StackName@ and +-- @PhysicalResourceId@ in the same request. +module Amazonka.CloudFormation.DescribeStackResources + ( -- * Creating a Request + DescribeStackResources (..), + newDescribeStackResources, + + -- * Request Lenses + describeStackResources_logicalResourceId, + describeStackResources_physicalResourceId, + describeStackResources_stackName, + + -- * Destructuring the Response + DescribeStackResourcesResponse (..), + newDescribeStackResourcesResponse, + + -- * Response Lenses + describeStackResourcesResponse_stackResources, + describeStackResourcesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for DescribeStackResources action. +-- +-- /See:/ 'newDescribeStackResources' smart constructor. +data DescribeStackResources = DescribeStackResources' + { -- | The logical name of the resource as specified in the template. + -- + -- Default: There is no default value. + logicalResourceId :: Prelude.Maybe Prelude.Text, + -- | The name or unique identifier that corresponds to a physical instance ID + -- of a resource supported by CloudFormation. + -- + -- For example, for an Amazon Elastic Compute Cloud (EC2) instance, + -- @PhysicalResourceId@ corresponds to the @InstanceId@. You can pass the + -- EC2 @InstanceId@ to @DescribeStackResources@ to find which stack the + -- instance belongs to and what other resources are part of the stack. + -- + -- Required: Conditional. If you don\'t specify @PhysicalResourceId@, you + -- must specify @StackName@. + -- + -- Default: There is no default value. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that is associated with the stack, which + -- aren\'t always interchangeable: + -- + -- - Running stacks: You can specify either the stack\'s name or its + -- unique stack ID. + -- + -- - Deleted stacks: You must specify the unique stack ID. + -- + -- Default: There is no default value. + -- + -- Required: Conditional. If you don\'t specify @StackName@, you must + -- specify @PhysicalResourceId@. + stackName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackResources' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logicalResourceId', 'describeStackResources_logicalResourceId' - The logical name of the resource as specified in the template. +-- +-- Default: There is no default value. +-- +-- 'physicalResourceId', 'describeStackResources_physicalResourceId' - The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +-- +-- For example, for an Amazon Elastic Compute Cloud (EC2) instance, +-- @PhysicalResourceId@ corresponds to the @InstanceId@. You can pass the +-- EC2 @InstanceId@ to @DescribeStackResources@ to find which stack the +-- instance belongs to and what other resources are part of the stack. +-- +-- Required: Conditional. If you don\'t specify @PhysicalResourceId@, you +-- must specify @StackName@. +-- +-- Default: There is no default value. +-- +-- 'stackName', 'describeStackResources_stackName' - The name or the unique stack ID that is associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +-- +-- Required: Conditional. If you don\'t specify @StackName@, you must +-- specify @PhysicalResourceId@. +newDescribeStackResources :: + DescribeStackResources +newDescribeStackResources = + DescribeStackResources' + { logicalResourceId = + Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + stackName = Prelude.Nothing + } + +-- | The logical name of the resource as specified in the template. +-- +-- Default: There is no default value. +describeStackResources_logicalResourceId :: Lens.Lens' DescribeStackResources (Prelude.Maybe Prelude.Text) +describeStackResources_logicalResourceId = Lens.lens (\DescribeStackResources' {logicalResourceId} -> logicalResourceId) (\s@DescribeStackResources' {} a -> s {logicalResourceId = a} :: DescribeStackResources) + +-- | The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +-- +-- For example, for an Amazon Elastic Compute Cloud (EC2) instance, +-- @PhysicalResourceId@ corresponds to the @InstanceId@. You can pass the +-- EC2 @InstanceId@ to @DescribeStackResources@ to find which stack the +-- instance belongs to and what other resources are part of the stack. +-- +-- Required: Conditional. If you don\'t specify @PhysicalResourceId@, you +-- must specify @StackName@. +-- +-- Default: There is no default value. +describeStackResources_physicalResourceId :: Lens.Lens' DescribeStackResources (Prelude.Maybe Prelude.Text) +describeStackResources_physicalResourceId = Lens.lens (\DescribeStackResources' {physicalResourceId} -> physicalResourceId) (\s@DescribeStackResources' {} a -> s {physicalResourceId = a} :: DescribeStackResources) + +-- | The name or the unique stack ID that is associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +-- +-- Required: Conditional. If you don\'t specify @StackName@, you must +-- specify @PhysicalResourceId@. +describeStackResources_stackName :: Lens.Lens' DescribeStackResources (Prelude.Maybe Prelude.Text) +describeStackResources_stackName = Lens.lens (\DescribeStackResources' {stackName} -> stackName) (\s@DescribeStackResources' {} a -> s {stackName = a} :: DescribeStackResources) + +instance Core.AWSRequest DescribeStackResources where + type + AWSResponse DescribeStackResources = + DescribeStackResourcesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackResourcesResult" + ( \s h x -> + DescribeStackResourcesResponse' + Prelude.<$> ( x + Data..@? "StackResources" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStackResources where + hashWithSalt _salt DescribeStackResources' {..} = + _salt + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData DescribeStackResources where + rnf DescribeStackResources' {..} = + Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders DescribeStackResources where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackResources where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackResources where + toQuery DescribeStackResources' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStackResources" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "LogicalResourceId" Data.=: logicalResourceId, + "PhysicalResourceId" Data.=: physicalResourceId, + "StackName" Data.=: stackName + ] + +-- | The output for a DescribeStackResources action. +-- +-- /See:/ 'newDescribeStackResourcesResponse' smart constructor. +data DescribeStackResourcesResponse = DescribeStackResourcesResponse' + { -- | A list of @StackResource@ structures. + stackResources :: Prelude.Maybe [StackResource], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackResourcesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackResources', 'describeStackResourcesResponse_stackResources' - A list of @StackResource@ structures. +-- +-- 'httpStatus', 'describeStackResourcesResponse_httpStatus' - The response's http status code. +newDescribeStackResourcesResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackResourcesResponse +newDescribeStackResourcesResponse pHttpStatus_ = + DescribeStackResourcesResponse' + { stackResources = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | A list of @StackResource@ structures. +describeStackResourcesResponse_stackResources :: Lens.Lens' DescribeStackResourcesResponse (Prelude.Maybe [StackResource]) +describeStackResourcesResponse_stackResources = Lens.lens (\DescribeStackResourcesResponse' {stackResources} -> stackResources) (\s@DescribeStackResourcesResponse' {} a -> s {stackResources = a} :: DescribeStackResourcesResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +describeStackResourcesResponse_httpStatus :: Lens.Lens' DescribeStackResourcesResponse Prelude.Int +describeStackResourcesResponse_httpStatus = Lens.lens (\DescribeStackResourcesResponse' {httpStatus} -> httpStatus) (\s@DescribeStackResourcesResponse' {} a -> s {httpStatus = a} :: DescribeStackResourcesResponse) + +instance + Prelude.NFData + DescribeStackResourcesResponse + where + rnf DescribeStackResourcesResponse' {..} = + Prelude.rnf stackResources + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStackSet.hs b/gen/Amazonka/CloudFormation/DescribeStackSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackSet.hs @@ -0,0 +1,219 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the description of the specified stack set. +module Amazonka.CloudFormation.DescribeStackSet + ( -- * Creating a Request + DescribeStackSet (..), + newDescribeStackSet, + + -- * Request Lenses + describeStackSet_callAs, + describeStackSet_stackSetName, + + -- * Destructuring the Response + DescribeStackSetResponse (..), + newDescribeStackSetResponse, + + -- * Response Lenses + describeStackSetResponse_stackSet, + describeStackSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeStackSet' smart constructor. +data DescribeStackSet = DescribeStackSet' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The name or unique ID of the stack set whose description you want. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'describeStackSet_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackSetName', 'describeStackSet_stackSetName' - The name or unique ID of the stack set whose description you want. +newDescribeStackSet :: + -- | 'stackSetName' + Prelude.Text -> + DescribeStackSet +newDescribeStackSet pStackSetName_ = + DescribeStackSet' + { callAs = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +describeStackSet_callAs :: Lens.Lens' DescribeStackSet (Prelude.Maybe CallAs) +describeStackSet_callAs = Lens.lens (\DescribeStackSet' {callAs} -> callAs) (\s@DescribeStackSet' {} a -> s {callAs = a} :: DescribeStackSet) + +-- | The name or unique ID of the stack set whose description you want. +describeStackSet_stackSetName :: Lens.Lens' DescribeStackSet Prelude.Text +describeStackSet_stackSetName = Lens.lens (\DescribeStackSet' {stackSetName} -> stackSetName) (\s@DescribeStackSet' {} a -> s {stackSetName = a} :: DescribeStackSet) + +instance Core.AWSRequest DescribeStackSet where + type + AWSResponse DescribeStackSet = + DescribeStackSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackSetResult" + ( \s h x -> + DescribeStackSetResponse' + Prelude.<$> (x Data..@? "StackSet") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStackSet where + hashWithSalt _salt DescribeStackSet' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData DescribeStackSet where + rnf DescribeStackSet' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders DescribeStackSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackSet where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackSet where + toQuery DescribeStackSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStackSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newDescribeStackSetResponse' smart constructor. +data DescribeStackSetResponse = DescribeStackSetResponse' + { -- | The specified stack set. + stackSet :: Prelude.Maybe StackSet, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackSet', 'describeStackSetResponse_stackSet' - The specified stack set. +-- +-- 'httpStatus', 'describeStackSetResponse_httpStatus' - The response's http status code. +newDescribeStackSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackSetResponse +newDescribeStackSetResponse pHttpStatus_ = + DescribeStackSetResponse' + { stackSet = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The specified stack set. +describeStackSetResponse_stackSet :: Lens.Lens' DescribeStackSetResponse (Prelude.Maybe StackSet) +describeStackSetResponse_stackSet = Lens.lens (\DescribeStackSetResponse' {stackSet} -> stackSet) (\s@DescribeStackSetResponse' {} a -> s {stackSet = a} :: DescribeStackSetResponse) + +-- | The response's http status code. +describeStackSetResponse_httpStatus :: Lens.Lens' DescribeStackSetResponse Prelude.Int +describeStackSetResponse_httpStatus = Lens.lens (\DescribeStackSetResponse' {httpStatus} -> httpStatus) (\s@DescribeStackSetResponse' {} a -> s {httpStatus = a} :: DescribeStackSetResponse) + +instance Prelude.NFData DescribeStackSetResponse where + rnf DescribeStackSetResponse' {..} = + Prelude.rnf stackSet + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStackSetOperation.hs b/gen/Amazonka/CloudFormation/DescribeStackSetOperation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStackSetOperation.hs @@ -0,0 +1,243 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStackSetOperation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the description of the specified stack set operation. +module Amazonka.CloudFormation.DescribeStackSetOperation + ( -- * Creating a Request + DescribeStackSetOperation (..), + newDescribeStackSetOperation, + + -- * Request Lenses + describeStackSetOperation_callAs, + describeStackSetOperation_stackSetName, + describeStackSetOperation_operationId, + + -- * Destructuring the Response + DescribeStackSetOperationResponse (..), + newDescribeStackSetOperationResponse, + + -- * Response Lenses + describeStackSetOperationResponse_stackSetOperation, + describeStackSetOperationResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeStackSetOperation' smart constructor. +data DescribeStackSetOperation = DescribeStackSetOperation' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The name or the unique stack ID of the stack set for the stack + -- operation. + stackSetName :: Prelude.Text, + -- | The unique ID of the stack set operation. + operationId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackSetOperation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'describeStackSetOperation_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackSetName', 'describeStackSetOperation_stackSetName' - The name or the unique stack ID of the stack set for the stack +-- operation. +-- +-- 'operationId', 'describeStackSetOperation_operationId' - The unique ID of the stack set operation. +newDescribeStackSetOperation :: + -- | 'stackSetName' + Prelude.Text -> + -- | 'operationId' + Prelude.Text -> + DescribeStackSetOperation +newDescribeStackSetOperation + pStackSetName_ + pOperationId_ = + DescribeStackSetOperation' + { callAs = + Prelude.Nothing, + stackSetName = pStackSetName_, + operationId = pOperationId_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +describeStackSetOperation_callAs :: Lens.Lens' DescribeStackSetOperation (Prelude.Maybe CallAs) +describeStackSetOperation_callAs = Lens.lens (\DescribeStackSetOperation' {callAs} -> callAs) (\s@DescribeStackSetOperation' {} a -> s {callAs = a} :: DescribeStackSetOperation) + +-- | The name or the unique stack ID of the stack set for the stack +-- operation. +describeStackSetOperation_stackSetName :: Lens.Lens' DescribeStackSetOperation Prelude.Text +describeStackSetOperation_stackSetName = Lens.lens (\DescribeStackSetOperation' {stackSetName} -> stackSetName) (\s@DescribeStackSetOperation' {} a -> s {stackSetName = a} :: DescribeStackSetOperation) + +-- | The unique ID of the stack set operation. +describeStackSetOperation_operationId :: Lens.Lens' DescribeStackSetOperation Prelude.Text +describeStackSetOperation_operationId = Lens.lens (\DescribeStackSetOperation' {operationId} -> operationId) (\s@DescribeStackSetOperation' {} a -> s {operationId = a} :: DescribeStackSetOperation) + +instance Core.AWSRequest DescribeStackSetOperation where + type + AWSResponse DescribeStackSetOperation = + DescribeStackSetOperationResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStackSetOperationResult" + ( \s h x -> + DescribeStackSetOperationResponse' + Prelude.<$> (x Data..@? "StackSetOperation") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStackSetOperation where + hashWithSalt _salt DescribeStackSetOperation' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` operationId + +instance Prelude.NFData DescribeStackSetOperation where + rnf DescribeStackSetOperation' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf operationId + +instance Data.ToHeaders DescribeStackSetOperation where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStackSetOperation where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStackSetOperation where + toQuery DescribeStackSetOperation' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStackSetOperation" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "StackSetName" Data.=: stackSetName, + "OperationId" Data.=: operationId + ] + +-- | /See:/ 'newDescribeStackSetOperationResponse' smart constructor. +data DescribeStackSetOperationResponse = DescribeStackSetOperationResponse' + { -- | The specified stack set operation. + stackSetOperation :: Prelude.Maybe StackSetOperation, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStackSetOperationResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackSetOperation', 'describeStackSetOperationResponse_stackSetOperation' - The specified stack set operation. +-- +-- 'httpStatus', 'describeStackSetOperationResponse_httpStatus' - The response's http status code. +newDescribeStackSetOperationResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStackSetOperationResponse +newDescribeStackSetOperationResponse pHttpStatus_ = + DescribeStackSetOperationResponse' + { stackSetOperation = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The specified stack set operation. +describeStackSetOperationResponse_stackSetOperation :: Lens.Lens' DescribeStackSetOperationResponse (Prelude.Maybe StackSetOperation) +describeStackSetOperationResponse_stackSetOperation = Lens.lens (\DescribeStackSetOperationResponse' {stackSetOperation} -> stackSetOperation) (\s@DescribeStackSetOperationResponse' {} a -> s {stackSetOperation = a} :: DescribeStackSetOperationResponse) + +-- | The response's http status code. +describeStackSetOperationResponse_httpStatus :: Lens.Lens' DescribeStackSetOperationResponse Prelude.Int +describeStackSetOperationResponse_httpStatus = Lens.lens (\DescribeStackSetOperationResponse' {httpStatus} -> httpStatus) (\s@DescribeStackSetOperationResponse' {} a -> s {httpStatus = a} :: DescribeStackSetOperationResponse) + +instance + Prelude.NFData + DescribeStackSetOperationResponse + where + rnf DescribeStackSetOperationResponse' {..} = + Prelude.rnf stackSetOperation + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeStacks.hs b/gen/Amazonka/CloudFormation/DescribeStacks.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeStacks.hs @@ -0,0 +1,249 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeStacks +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the description for the specified stack; if no stack name was +-- specified, then it returns the description for all the stacks created. +-- +-- If the stack doesn\'t exist, an @ValidationError@ is returned. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.DescribeStacks + ( -- * Creating a Request + DescribeStacks (..), + newDescribeStacks, + + -- * Request Lenses + describeStacks_nextToken, + describeStacks_stackName, + + -- * Destructuring the Response + DescribeStacksResponse (..), + newDescribeStacksResponse, + + -- * Response Lenses + describeStacksResponse_nextToken, + describeStacksResponse_stacks, + describeStacksResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for DescribeStacks action. +-- +-- /See:/ 'newDescribeStacks' smart constructor. +data DescribeStacks = DescribeStacks' + { -- | A string that identifies the next page of stacks that you want to + -- retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that\'s associated with the stack, which + -- aren\'t always interchangeable: + -- + -- - Running stacks: You can specify either the stack\'s name or its + -- unique stack ID. + -- + -- - Deleted stacks: You must specify the unique stack ID. + -- + -- Default: There is no default value. + stackName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStacks' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeStacks_nextToken' - A string that identifies the next page of stacks that you want to +-- retrieve. +-- +-- 'stackName', 'describeStacks_stackName' - The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +newDescribeStacks :: + DescribeStacks +newDescribeStacks = + DescribeStacks' + { nextToken = Prelude.Nothing, + stackName = Prelude.Nothing + } + +-- | A string that identifies the next page of stacks that you want to +-- retrieve. +describeStacks_nextToken :: Lens.Lens' DescribeStacks (Prelude.Maybe Prelude.Text) +describeStacks_nextToken = Lens.lens (\DescribeStacks' {nextToken} -> nextToken) (\s@DescribeStacks' {} a -> s {nextToken = a} :: DescribeStacks) + +-- | The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +describeStacks_stackName :: Lens.Lens' DescribeStacks (Prelude.Maybe Prelude.Text) +describeStacks_stackName = Lens.lens (\DescribeStacks' {stackName} -> stackName) (\s@DescribeStacks' {} a -> s {stackName = a} :: DescribeStacks) + +instance Core.AWSPager DescribeStacks where + page rq rs + | Core.stop + ( rs + Lens.^? describeStacksResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? describeStacksResponse_stacks + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& describeStacks_nextToken + Lens..~ rs + Lens.^? describeStacksResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest DescribeStacks where + type + AWSResponse DescribeStacks = + DescribeStacksResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeStacksResult" + ( \s h x -> + DescribeStacksResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "Stacks" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeStacks where + hashWithSalt _salt DescribeStacks' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData DescribeStacks where + rnf DescribeStacks' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders DescribeStacks where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeStacks where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeStacks where + toQuery DescribeStacks' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeStacks" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "StackName" Data.=: stackName + ] + +-- | The output for a DescribeStacks action. +-- +-- /See:/ 'newDescribeStacksResponse' smart constructor. +data DescribeStacksResponse = DescribeStacksResponse' + { -- | If the output exceeds 1 MB in size, a string that identifies the next + -- page of stacks. If no additional page exists, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of stack structures. + stacks :: Prelude.Maybe [Stack], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeStacksResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'describeStacksResponse_nextToken' - If the output exceeds 1 MB in size, a string that identifies the next +-- page of stacks. If no additional page exists, this value is null. +-- +-- 'stacks', 'describeStacksResponse_stacks' - A list of stack structures. +-- +-- 'httpStatus', 'describeStacksResponse_httpStatus' - The response's http status code. +newDescribeStacksResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeStacksResponse +newDescribeStacksResponse pHttpStatus_ = + DescribeStacksResponse' + { nextToken = + Prelude.Nothing, + stacks = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the output exceeds 1 MB in size, a string that identifies the next +-- page of stacks. If no additional page exists, this value is null. +describeStacksResponse_nextToken :: Lens.Lens' DescribeStacksResponse (Prelude.Maybe Prelude.Text) +describeStacksResponse_nextToken = Lens.lens (\DescribeStacksResponse' {nextToken} -> nextToken) (\s@DescribeStacksResponse' {} a -> s {nextToken = a} :: DescribeStacksResponse) + +-- | A list of stack structures. +describeStacksResponse_stacks :: Lens.Lens' DescribeStacksResponse (Prelude.Maybe [Stack]) +describeStacksResponse_stacks = Lens.lens (\DescribeStacksResponse' {stacks} -> stacks) (\s@DescribeStacksResponse' {} a -> s {stacks = a} :: DescribeStacksResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +describeStacksResponse_httpStatus :: Lens.Lens' DescribeStacksResponse Prelude.Int +describeStacksResponse_httpStatus = Lens.lens (\DescribeStacksResponse' {httpStatus} -> httpStatus) (\s@DescribeStacksResponse' {} a -> s {httpStatus = a} :: DescribeStacksResponse) + +instance Prelude.NFData DescribeStacksResponse where + rnf DescribeStacksResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stacks + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeType.hs b/gen/Amazonka/CloudFormation/DescribeType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeType.hs @@ -0,0 +1,1060 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns detailed information about an extension that has been +-- registered. +-- +-- If you specify a @VersionId@, @DescribeType@ returns information about +-- that specific extension version. Otherwise, it returns information about +-- the default extension version. +module Amazonka.CloudFormation.DescribeType + ( -- * Creating a Request + DescribeType (..), + newDescribeType, + + -- * Request Lenses + describeType_arn, + describeType_publicVersionNumber, + describeType_publisherId, + describeType_type, + describeType_typeName, + describeType_versionId, + + -- * Destructuring the Response + DescribeTypeResponse (..), + newDescribeTypeResponse, + + -- * Response Lenses + describeTypeResponse_arn, + describeTypeResponse_autoUpdate, + describeTypeResponse_configurationSchema, + describeTypeResponse_defaultVersionId, + describeTypeResponse_deprecatedStatus, + describeTypeResponse_description, + describeTypeResponse_documentationUrl, + describeTypeResponse_executionRoleArn, + describeTypeResponse_isActivated, + describeTypeResponse_isDefaultVersion, + describeTypeResponse_lastUpdated, + describeTypeResponse_latestPublicVersion, + describeTypeResponse_loggingConfig, + describeTypeResponse_originalTypeArn, + describeTypeResponse_originalTypeName, + describeTypeResponse_provisioningType, + describeTypeResponse_publicVersionNumber, + describeTypeResponse_publisherId, + describeTypeResponse_requiredActivatedTypes, + describeTypeResponse_schema, + describeTypeResponse_sourceUrl, + describeTypeResponse_timeCreated, + describeTypeResponse_type, + describeTypeResponse_typeName, + describeTypeResponse_typeTestsStatus, + describeTypeResponse_typeTestsStatusDescription, + describeTypeResponse_visibility, + describeTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeType' smart constructor. +data DescribeType = DescribeType' + { -- | The Amazon Resource Name (ARN) of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + arn :: Prelude.Maybe Prelude.Text, + -- | The version number of a public third-party extension. + publicVersionNumber :: Prelude.Maybe Prelude.Text, + -- | The publisher ID of the extension publisher. + -- + -- Extensions provided by Amazon Web Services are not assigned a publisher + -- ID. + publisherId :: Prelude.Maybe Prelude.Text, + -- | The kind of extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + typeName :: Prelude.Maybe Prelude.Text, + -- | The ID of a specific version of the extension. The version ID is the + -- value at the end of the Amazon Resource Name (ARN) assigned to the + -- extension version when it is registered. + -- + -- If you specify a @VersionId@, @DescribeType@ returns information about + -- that specific extension version. Otherwise, it returns information about + -- the default extension version. + versionId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'describeType_arn' - The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'publicVersionNumber', 'describeType_publicVersionNumber' - The version number of a public third-party extension. +-- +-- 'publisherId', 'describeType_publisherId' - The publisher ID of the extension publisher. +-- +-- Extensions provided by Amazon Web Services are not assigned a publisher +-- ID. +-- +-- 'type'', 'describeType_type' - The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'typeName', 'describeType_typeName' - The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'versionId', 'describeType_versionId' - The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it is registered. +-- +-- If you specify a @VersionId@, @DescribeType@ returns information about +-- that specific extension version. Otherwise, it returns information about +-- the default extension version. +newDescribeType :: + DescribeType +newDescribeType = + DescribeType' + { arn = Prelude.Nothing, + publicVersionNumber = Prelude.Nothing, + publisherId = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + versionId = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +describeType_arn :: Lens.Lens' DescribeType (Prelude.Maybe Prelude.Text) +describeType_arn = Lens.lens (\DescribeType' {arn} -> arn) (\s@DescribeType' {} a -> s {arn = a} :: DescribeType) + +-- | The version number of a public third-party extension. +describeType_publicVersionNumber :: Lens.Lens' DescribeType (Prelude.Maybe Prelude.Text) +describeType_publicVersionNumber = Lens.lens (\DescribeType' {publicVersionNumber} -> publicVersionNumber) (\s@DescribeType' {} a -> s {publicVersionNumber = a} :: DescribeType) + +-- | The publisher ID of the extension publisher. +-- +-- Extensions provided by Amazon Web Services are not assigned a publisher +-- ID. +describeType_publisherId :: Lens.Lens' DescribeType (Prelude.Maybe Prelude.Text) +describeType_publisherId = Lens.lens (\DescribeType' {publisherId} -> publisherId) (\s@DescribeType' {} a -> s {publisherId = a} :: DescribeType) + +-- | The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +describeType_type :: Lens.Lens' DescribeType (Prelude.Maybe RegistryType) +describeType_type = Lens.lens (\DescribeType' {type'} -> type') (\s@DescribeType' {} a -> s {type' = a} :: DescribeType) + +-- | The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +describeType_typeName :: Lens.Lens' DescribeType (Prelude.Maybe Prelude.Text) +describeType_typeName = Lens.lens (\DescribeType' {typeName} -> typeName) (\s@DescribeType' {} a -> s {typeName = a} :: DescribeType) + +-- | The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it is registered. +-- +-- If you specify a @VersionId@, @DescribeType@ returns information about +-- that specific extension version. Otherwise, it returns information about +-- the default extension version. +describeType_versionId :: Lens.Lens' DescribeType (Prelude.Maybe Prelude.Text) +describeType_versionId = Lens.lens (\DescribeType' {versionId} -> versionId) (\s@DescribeType' {} a -> s {versionId = a} :: DescribeType) + +instance Core.AWSRequest DescribeType where + type AWSResponse DescribeType = DescribeTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeTypeResult" + ( \s h x -> + DescribeTypeResponse' + Prelude.<$> (x Data..@? "Arn") + Prelude.<*> (x Data..@? "AutoUpdate") + Prelude.<*> (x Data..@? "ConfigurationSchema") + Prelude.<*> (x Data..@? "DefaultVersionId") + Prelude.<*> (x Data..@? "DeprecatedStatus") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "DocumentationUrl") + Prelude.<*> (x Data..@? "ExecutionRoleArn") + Prelude.<*> (x Data..@? "IsActivated") + Prelude.<*> (x Data..@? "IsDefaultVersion") + Prelude.<*> (x Data..@? "LastUpdated") + Prelude.<*> (x Data..@? "LatestPublicVersion") + Prelude.<*> (x Data..@? "LoggingConfig") + Prelude.<*> (x Data..@? "OriginalTypeArn") + Prelude.<*> (x Data..@? "OriginalTypeName") + Prelude.<*> (x Data..@? "ProvisioningType") + Prelude.<*> (x Data..@? "PublicVersionNumber") + Prelude.<*> (x Data..@? "PublisherId") + Prelude.<*> ( x + Data..@? "RequiredActivatedTypes" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "Schema") + Prelude.<*> (x Data..@? "SourceUrl") + Prelude.<*> (x Data..@? "TimeCreated") + Prelude.<*> (x Data..@? "Type") + Prelude.<*> (x Data..@? "TypeName") + Prelude.<*> (x Data..@? "TypeTestsStatus") + Prelude.<*> (x Data..@? "TypeTestsStatusDescription") + Prelude.<*> (x Data..@? "Visibility") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeType where + hashWithSalt _salt DescribeType' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` publicVersionNumber + `Prelude.hashWithSalt` publisherId + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` versionId + +instance Prelude.NFData DescribeType where + rnf DescribeType' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf publicVersionNumber + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf versionId + +instance Data.ToHeaders DescribeType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeType where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeType where + toQuery DescribeType' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "PublicVersionNumber" Data.=: publicVersionNumber, + "PublisherId" Data.=: publisherId, + "Type" Data.=: type', + "TypeName" Data.=: typeName, + "VersionId" Data.=: versionId + ] + +-- | /See:/ 'newDescribeTypeResponse' smart constructor. +data DescribeTypeResponse = DescribeTypeResponse' + { -- | The Amazon Resource Name (ARN) of the extension. + arn :: Prelude.Maybe Prelude.Text, + -- | Whether CloudFormation automatically updates the extension in this + -- account and region when a new /minor/ version is published by the + -- extension publisher. Major versions released by the publisher must be + -- manually updated. For more information, see + -- + -- in the /CloudFormation User Guide/. + autoUpdate :: Prelude.Maybe Prelude.Bool, + -- | A JSON string that represent the current configuration data for the + -- extension in this account and region. + -- + -- To set the configuration data for an extension, use + -- . + -- For more information, see + -- + -- in the /CloudFormation User Guide/. + configurationSchema :: Prelude.Maybe Prelude.Text, + -- | The ID of the default version of the extension. The default version is + -- used when the extension version isn\'t specified. + -- + -- This applies only to private extensions you have registered in your + -- account. For public extensions, both those provided by Amazon Web + -- Services and published by third parties, CloudFormation returns @null@. + -- For more information, see + -- . + -- + -- To set the default version of an extension, use + -- @ @@SetTypeDefaultVersion@@ @. + defaultVersionId :: Prelude.Maybe Prelude.Text, + -- | The deprecation status of the extension version. + -- + -- Valid values include: + -- + -- - @LIVE@: The extension is activated or registered and can be used in + -- CloudFormation operations, dependent on its provisioning behavior + -- and visibility scope. + -- + -- - @DEPRECATED@: The extension has been deactivated or deregistered and + -- can no longer be used in CloudFormation operations. + -- + -- For public third-party extensions, CloudFormation returns @null@. + deprecatedStatus :: Prelude.Maybe DeprecatedStatus, + -- | The description of the extension. + description :: Prelude.Maybe Prelude.Text, + -- | The URL of a page providing detailed documentation for this extension. + documentationUrl :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) of the IAM execution role used to + -- register the extension. This applies only to private extensions you have + -- registered in your account. For more information, see + -- . + -- + -- If the registered extension calls any Amazon Web Services APIs, you must + -- create an + -- // + -- that includes the necessary permissions to call those Amazon Web + -- Services APIs, and provision that execution role in your account. + -- CloudFormation then assumes that execution role to provide your + -- extension with the appropriate credentials. + executionRoleArn :: Prelude.Maybe Prelude.Text, + -- | Whether the extension is activated in the account and region. + -- + -- This only applies to public third-party extensions. For all other + -- extensions, CloudFormation returns @null@. + isActivated :: Prelude.Maybe Prelude.Bool, + -- | Whether the specified extension version is set as the default version. + -- + -- This applies only to private extensions you have registered in your + -- account, and extensions published by Amazon Web Services. For public + -- third-party extensions, whether they are activated in your account, + -- CloudFormation returns @null@. + isDefaultVersion :: Prelude.Maybe Prelude.Bool, + -- | When the specified extension version was registered. This applies only + -- to: + -- + -- - Private extensions you have registered in your account. For more + -- information, see + -- . + -- + -- - Public extensions you have activated in your account with + -- auto-update specified. For more information, see + -- . + lastUpdated :: Prelude.Maybe Data.ISO8601, + -- | The latest version of a public extension /that is available/ for use. + -- + -- This only applies if you specify a public extension, and you don\'t + -- specify a version. For all other requests, CloudFormation returns + -- @null@. + latestPublicVersion :: Prelude.Maybe Prelude.Text, + -- | Contains logging configuration information for private extensions. This + -- applies only to private extensions you have registered in your account. + -- For public extensions, both those provided by Amazon Web Services and + -- published by third parties, CloudFormation returns @null@. For more + -- information, see + -- . + loggingConfig :: Prelude.Maybe LoggingConfig, + -- | For public extensions that have been activated for this account and + -- region, the Amazon Resource Name (ARN) of the public extension. + originalTypeArn :: Prelude.Maybe Prelude.Text, + -- | For public extensions that have been activated for this account and + -- region, the type name of the public extension. + -- + -- If you specified a @TypeNameAlias@ when enabling the extension in this + -- account and region, CloudFormation treats that alias as the extension\'s + -- type name within the account and region, not the type name of the public + -- extension. For more information, see + -- + -- in the /CloudFormation User Guide/. + originalTypeName :: Prelude.Maybe Prelude.Text, + -- | For resource type extensions, the provisioning behavior of the resource + -- type. CloudFormation determines the provisioning type during + -- registration, based on the types of handlers in the schema handler + -- package submitted. + -- + -- Valid values include: + -- + -- - @FULLY_MUTABLE@: The resource type includes an update handler to + -- process updates to the type during stack update operations. + -- + -- - @IMMUTABLE@: The resource type doesn\'t include an update handler, + -- so the type can\'t be updated and must instead be replaced during + -- stack update operations. + -- + -- - @NON_PROVISIONABLE@: The resource type doesn\'t include all the + -- following handlers, and therefore can\'t actually be provisioned. + -- + -- - create + -- + -- - read + -- + -- - delete + provisioningType :: Prelude.Maybe ProvisioningType, + -- | The version number of a public third-party extension. + -- + -- This applies only if you specify a public extension you have activated + -- in your account, or specify a public extension without specifying a + -- version. For all other extensions, CloudFormation returns @null@. + publicVersionNumber :: Prelude.Maybe Prelude.Text, + -- | The publisher ID of the extension publisher. + -- + -- This applies only to public third-party extensions. For private + -- registered extensions, and extensions provided by Amazon Web Services, + -- CloudFormation returns @null@. + publisherId :: Prelude.Maybe Prelude.Text, + -- | For extensions that are modules, the public third-party extensions that + -- must be activated in your account in order for the module itself to be + -- activated. + requiredActivatedTypes :: Prelude.Maybe [RequiredActivatedType], + -- | The schema that defines the extension. + -- + -- For more information about extension schemas, see + -- + -- in the /CloudFormation CLI User Guide/. + schema :: Prelude.Maybe Prelude.Text, + -- | The URL of the source code for the extension. + sourceUrl :: Prelude.Maybe Prelude.Text, + -- | When the specified private extension version was registered or activated + -- in your account. + timeCreated :: Prelude.Maybe Data.ISO8601, + -- | The kind of extension. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension. + -- + -- If the extension is a public third-party type you have activated with a + -- type name alias, CloudFormation returns the type name alias. For more + -- information, see + -- . + typeName :: Prelude.Maybe Prelude.Text, + -- | The contract test status of the registered extension version. To return + -- the extension test status of a specific extension version, you must + -- specify @VersionId@. + -- + -- This applies only to registered private extension versions. + -- CloudFormation doesn\'t return this information for public extensions, + -- whether they are activated in your account. + -- + -- - @PASSED@: The extension has passed all its contract tests. + -- + -- An extension must have a test status of @PASSED@ before it can be + -- published. For more information, see + -- + -- in the /CloudFormation Command Line Interface User Guide/. + -- + -- - @FAILED@: The extension has failed one or more contract tests. + -- + -- - @IN_PROGRESS@: Contract tests are currently being performed on the + -- extension. + -- + -- - @NOT_TESTED@: Contract tests haven\'t been performed on the + -- extension. + typeTestsStatus :: Prelude.Maybe TypeTestsStatus, + -- | The description of the test status. To return the extension test status + -- of a specific extension version, you must specify @VersionId@. + -- + -- This applies only to registered private extension versions. + -- CloudFormation doesn\'t return this information for public extensions, + -- whether they are activated in your account. + typeTestsStatusDescription :: Prelude.Maybe Prelude.Text, + -- | The scope at which the extension is visible and usable in CloudFormation + -- operations. + -- + -- Valid values include: + -- + -- - @PRIVATE@: The extension is only visible and usable within the + -- account in which it is registered. CloudFormation marks any + -- extensions you register as @PRIVATE@. + -- + -- - @PUBLIC@: The extension is publicly visible and usable within any + -- Amazon Web Services account. + visibility :: Prelude.Maybe Visibility, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'describeTypeResponse_arn' - The Amazon Resource Name (ARN) of the extension. +-- +-- 'autoUpdate', 'describeTypeResponse_autoUpdate' - Whether CloudFormation automatically updates the extension in this +-- account and region when a new /minor/ version is published by the +-- extension publisher. Major versions released by the publisher must be +-- manually updated. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'configurationSchema', 'describeTypeResponse_configurationSchema' - A JSON string that represent the current configuration data for the +-- extension in this account and region. +-- +-- To set the configuration data for an extension, use +-- . +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'defaultVersionId', 'describeTypeResponse_defaultVersionId' - The ID of the default version of the extension. The default version is +-- used when the extension version isn\'t specified. +-- +-- This applies only to private extensions you have registered in your +-- account. For public extensions, both those provided by Amazon Web +-- Services and published by third parties, CloudFormation returns @null@. +-- For more information, see +-- . +-- +-- To set the default version of an extension, use +-- @ @@SetTypeDefaultVersion@@ @. +-- +-- 'deprecatedStatus', 'describeTypeResponse_deprecatedStatus' - The deprecation status of the extension version. +-- +-- Valid values include: +-- +-- - @LIVE@: The extension is activated or registered and can be used in +-- CloudFormation operations, dependent on its provisioning behavior +-- and visibility scope. +-- +-- - @DEPRECATED@: The extension has been deactivated or deregistered and +-- can no longer be used in CloudFormation operations. +-- +-- For public third-party extensions, CloudFormation returns @null@. +-- +-- 'description', 'describeTypeResponse_description' - The description of the extension. +-- +-- 'documentationUrl', 'describeTypeResponse_documentationUrl' - The URL of a page providing detailed documentation for this extension. +-- +-- 'executionRoleArn', 'describeTypeResponse_executionRoleArn' - The Amazon Resource Name (ARN) of the IAM execution role used to +-- register the extension. This applies only to private extensions you have +-- registered in your account. For more information, see +-- . +-- +-- If the registered extension calls any Amazon Web Services APIs, you must +-- create an +-- // +-- that includes the necessary permissions to call those Amazon Web +-- Services APIs, and provision that execution role in your account. +-- CloudFormation then assumes that execution role to provide your +-- extension with the appropriate credentials. +-- +-- 'isActivated', 'describeTypeResponse_isActivated' - Whether the extension is activated in the account and region. +-- +-- This only applies to public third-party extensions. For all other +-- extensions, CloudFormation returns @null@. +-- +-- 'isDefaultVersion', 'describeTypeResponse_isDefaultVersion' - Whether the specified extension version is set as the default version. +-- +-- This applies only to private extensions you have registered in your +-- account, and extensions published by Amazon Web Services. For public +-- third-party extensions, whether they are activated in your account, +-- CloudFormation returns @null@. +-- +-- 'lastUpdated', 'describeTypeResponse_lastUpdated' - When the specified extension version was registered. This applies only +-- to: +-- +-- - Private extensions you have registered in your account. For more +-- information, see +-- . +-- +-- - Public extensions you have activated in your account with +-- auto-update specified. For more information, see +-- . +-- +-- 'latestPublicVersion', 'describeTypeResponse_latestPublicVersion' - The latest version of a public extension /that is available/ for use. +-- +-- This only applies if you specify a public extension, and you don\'t +-- specify a version. For all other requests, CloudFormation returns +-- @null@. +-- +-- 'loggingConfig', 'describeTypeResponse_loggingConfig' - Contains logging configuration information for private extensions. This +-- applies only to private extensions you have registered in your account. +-- For public extensions, both those provided by Amazon Web Services and +-- published by third parties, CloudFormation returns @null@. For more +-- information, see +-- . +-- +-- 'originalTypeArn', 'describeTypeResponse_originalTypeArn' - For public extensions that have been activated for this account and +-- region, the Amazon Resource Name (ARN) of the public extension. +-- +-- 'originalTypeName', 'describeTypeResponse_originalTypeName' - For public extensions that have been activated for this account and +-- region, the type name of the public extension. +-- +-- If you specified a @TypeNameAlias@ when enabling the extension in this +-- account and region, CloudFormation treats that alias as the extension\'s +-- type name within the account and region, not the type name of the public +-- extension. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'provisioningType', 'describeTypeResponse_provisioningType' - For resource type extensions, the provisioning behavior of the resource +-- type. CloudFormation determines the provisioning type during +-- registration, based on the types of handlers in the schema handler +-- package submitted. +-- +-- Valid values include: +-- +-- - @FULLY_MUTABLE@: The resource type includes an update handler to +-- process updates to the type during stack update operations. +-- +-- - @IMMUTABLE@: The resource type doesn\'t include an update handler, +-- so the type can\'t be updated and must instead be replaced during +-- stack update operations. +-- +-- - @NON_PROVISIONABLE@: The resource type doesn\'t include all the +-- following handlers, and therefore can\'t actually be provisioned. +-- +-- - create +-- +-- - read +-- +-- - delete +-- +-- 'publicVersionNumber', 'describeTypeResponse_publicVersionNumber' - The version number of a public third-party extension. +-- +-- This applies only if you specify a public extension you have activated +-- in your account, or specify a public extension without specifying a +-- version. For all other extensions, CloudFormation returns @null@. +-- +-- 'publisherId', 'describeTypeResponse_publisherId' - The publisher ID of the extension publisher. +-- +-- This applies only to public third-party extensions. For private +-- registered extensions, and extensions provided by Amazon Web Services, +-- CloudFormation returns @null@. +-- +-- 'requiredActivatedTypes', 'describeTypeResponse_requiredActivatedTypes' - For extensions that are modules, the public third-party extensions that +-- must be activated in your account in order for the module itself to be +-- activated. +-- +-- 'schema', 'describeTypeResponse_schema' - The schema that defines the extension. +-- +-- For more information about extension schemas, see +-- +-- in the /CloudFormation CLI User Guide/. +-- +-- 'sourceUrl', 'describeTypeResponse_sourceUrl' - The URL of the source code for the extension. +-- +-- 'timeCreated', 'describeTypeResponse_timeCreated' - When the specified private extension version was registered or activated +-- in your account. +-- +-- 'type'', 'describeTypeResponse_type' - The kind of extension. +-- +-- 'typeName', 'describeTypeResponse_typeName' - The name of the extension. +-- +-- If the extension is a public third-party type you have activated with a +-- type name alias, CloudFormation returns the type name alias. For more +-- information, see +-- . +-- +-- 'typeTestsStatus', 'describeTypeResponse_typeTestsStatus' - The contract test status of the registered extension version. To return +-- the extension test status of a specific extension version, you must +-- specify @VersionId@. +-- +-- This applies only to registered private extension versions. +-- CloudFormation doesn\'t return this information for public extensions, +-- whether they are activated in your account. +-- +-- - @PASSED@: The extension has passed all its contract tests. +-- +-- An extension must have a test status of @PASSED@ before it can be +-- published. For more information, see +-- +-- in the /CloudFormation Command Line Interface User Guide/. +-- +-- - @FAILED@: The extension has failed one or more contract tests. +-- +-- - @IN_PROGRESS@: Contract tests are currently being performed on the +-- extension. +-- +-- - @NOT_TESTED@: Contract tests haven\'t been performed on the +-- extension. +-- +-- 'typeTestsStatusDescription', 'describeTypeResponse_typeTestsStatusDescription' - The description of the test status. To return the extension test status +-- of a specific extension version, you must specify @VersionId@. +-- +-- This applies only to registered private extension versions. +-- CloudFormation doesn\'t return this information for public extensions, +-- whether they are activated in your account. +-- +-- 'visibility', 'describeTypeResponse_visibility' - The scope at which the extension is visible and usable in CloudFormation +-- operations. +-- +-- Valid values include: +-- +-- - @PRIVATE@: The extension is only visible and usable within the +-- account in which it is registered. CloudFormation marks any +-- extensions you register as @PRIVATE@. +-- +-- - @PUBLIC@: The extension is publicly visible and usable within any +-- Amazon Web Services account. +-- +-- 'httpStatus', 'describeTypeResponse_httpStatus' - The response's http status code. +newDescribeTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeTypeResponse +newDescribeTypeResponse pHttpStatus_ = + DescribeTypeResponse' + { arn = Prelude.Nothing, + autoUpdate = Prelude.Nothing, + configurationSchema = Prelude.Nothing, + defaultVersionId = Prelude.Nothing, + deprecatedStatus = Prelude.Nothing, + description = Prelude.Nothing, + documentationUrl = Prelude.Nothing, + executionRoleArn = Prelude.Nothing, + isActivated = Prelude.Nothing, + isDefaultVersion = Prelude.Nothing, + lastUpdated = Prelude.Nothing, + latestPublicVersion = Prelude.Nothing, + loggingConfig = Prelude.Nothing, + originalTypeArn = Prelude.Nothing, + originalTypeName = Prelude.Nothing, + provisioningType = Prelude.Nothing, + publicVersionNumber = Prelude.Nothing, + publisherId = Prelude.Nothing, + requiredActivatedTypes = Prelude.Nothing, + schema = Prelude.Nothing, + sourceUrl = Prelude.Nothing, + timeCreated = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + typeTestsStatus = Prelude.Nothing, + typeTestsStatusDescription = Prelude.Nothing, + visibility = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The Amazon Resource Name (ARN) of the extension. +describeTypeResponse_arn :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_arn = Lens.lens (\DescribeTypeResponse' {arn} -> arn) (\s@DescribeTypeResponse' {} a -> s {arn = a} :: DescribeTypeResponse) + +-- | Whether CloudFormation automatically updates the extension in this +-- account and region when a new /minor/ version is published by the +-- extension publisher. Major versions released by the publisher must be +-- manually updated. For more information, see +-- +-- in the /CloudFormation User Guide/. +describeTypeResponse_autoUpdate :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Bool) +describeTypeResponse_autoUpdate = Lens.lens (\DescribeTypeResponse' {autoUpdate} -> autoUpdate) (\s@DescribeTypeResponse' {} a -> s {autoUpdate = a} :: DescribeTypeResponse) + +-- | A JSON string that represent the current configuration data for the +-- extension in this account and region. +-- +-- To set the configuration data for an extension, use +-- . +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +describeTypeResponse_configurationSchema :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_configurationSchema = Lens.lens (\DescribeTypeResponse' {configurationSchema} -> configurationSchema) (\s@DescribeTypeResponse' {} a -> s {configurationSchema = a} :: DescribeTypeResponse) + +-- | The ID of the default version of the extension. The default version is +-- used when the extension version isn\'t specified. +-- +-- This applies only to private extensions you have registered in your +-- account. For public extensions, both those provided by Amazon Web +-- Services and published by third parties, CloudFormation returns @null@. +-- For more information, see +-- . +-- +-- To set the default version of an extension, use +-- @ @@SetTypeDefaultVersion@@ @. +describeTypeResponse_defaultVersionId :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_defaultVersionId = Lens.lens (\DescribeTypeResponse' {defaultVersionId} -> defaultVersionId) (\s@DescribeTypeResponse' {} a -> s {defaultVersionId = a} :: DescribeTypeResponse) + +-- | The deprecation status of the extension version. +-- +-- Valid values include: +-- +-- - @LIVE@: The extension is activated or registered and can be used in +-- CloudFormation operations, dependent on its provisioning behavior +-- and visibility scope. +-- +-- - @DEPRECATED@: The extension has been deactivated or deregistered and +-- can no longer be used in CloudFormation operations. +-- +-- For public third-party extensions, CloudFormation returns @null@. +describeTypeResponse_deprecatedStatus :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe DeprecatedStatus) +describeTypeResponse_deprecatedStatus = Lens.lens (\DescribeTypeResponse' {deprecatedStatus} -> deprecatedStatus) (\s@DescribeTypeResponse' {} a -> s {deprecatedStatus = a} :: DescribeTypeResponse) + +-- | The description of the extension. +describeTypeResponse_description :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_description = Lens.lens (\DescribeTypeResponse' {description} -> description) (\s@DescribeTypeResponse' {} a -> s {description = a} :: DescribeTypeResponse) + +-- | The URL of a page providing detailed documentation for this extension. +describeTypeResponse_documentationUrl :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_documentationUrl = Lens.lens (\DescribeTypeResponse' {documentationUrl} -> documentationUrl) (\s@DescribeTypeResponse' {} a -> s {documentationUrl = a} :: DescribeTypeResponse) + +-- | The Amazon Resource Name (ARN) of the IAM execution role used to +-- register the extension. This applies only to private extensions you have +-- registered in your account. For more information, see +-- . +-- +-- If the registered extension calls any Amazon Web Services APIs, you must +-- create an +-- // +-- that includes the necessary permissions to call those Amazon Web +-- Services APIs, and provision that execution role in your account. +-- CloudFormation then assumes that execution role to provide your +-- extension with the appropriate credentials. +describeTypeResponse_executionRoleArn :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_executionRoleArn = Lens.lens (\DescribeTypeResponse' {executionRoleArn} -> executionRoleArn) (\s@DescribeTypeResponse' {} a -> s {executionRoleArn = a} :: DescribeTypeResponse) + +-- | Whether the extension is activated in the account and region. +-- +-- This only applies to public third-party extensions. For all other +-- extensions, CloudFormation returns @null@. +describeTypeResponse_isActivated :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Bool) +describeTypeResponse_isActivated = Lens.lens (\DescribeTypeResponse' {isActivated} -> isActivated) (\s@DescribeTypeResponse' {} a -> s {isActivated = a} :: DescribeTypeResponse) + +-- | Whether the specified extension version is set as the default version. +-- +-- This applies only to private extensions you have registered in your +-- account, and extensions published by Amazon Web Services. For public +-- third-party extensions, whether they are activated in your account, +-- CloudFormation returns @null@. +describeTypeResponse_isDefaultVersion :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Bool) +describeTypeResponse_isDefaultVersion = Lens.lens (\DescribeTypeResponse' {isDefaultVersion} -> isDefaultVersion) (\s@DescribeTypeResponse' {} a -> s {isDefaultVersion = a} :: DescribeTypeResponse) + +-- | When the specified extension version was registered. This applies only +-- to: +-- +-- - Private extensions you have registered in your account. For more +-- information, see +-- . +-- +-- - Public extensions you have activated in your account with +-- auto-update specified. For more information, see +-- . +describeTypeResponse_lastUpdated :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.UTCTime) +describeTypeResponse_lastUpdated = Lens.lens (\DescribeTypeResponse' {lastUpdated} -> lastUpdated) (\s@DescribeTypeResponse' {} a -> s {lastUpdated = a} :: DescribeTypeResponse) Prelude.. Lens.mapping Data._Time + +-- | The latest version of a public extension /that is available/ for use. +-- +-- This only applies if you specify a public extension, and you don\'t +-- specify a version. For all other requests, CloudFormation returns +-- @null@. +describeTypeResponse_latestPublicVersion :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_latestPublicVersion = Lens.lens (\DescribeTypeResponse' {latestPublicVersion} -> latestPublicVersion) (\s@DescribeTypeResponse' {} a -> s {latestPublicVersion = a} :: DescribeTypeResponse) + +-- | Contains logging configuration information for private extensions. This +-- applies only to private extensions you have registered in your account. +-- For public extensions, both those provided by Amazon Web Services and +-- published by third parties, CloudFormation returns @null@. For more +-- information, see +-- . +describeTypeResponse_loggingConfig :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe LoggingConfig) +describeTypeResponse_loggingConfig = Lens.lens (\DescribeTypeResponse' {loggingConfig} -> loggingConfig) (\s@DescribeTypeResponse' {} a -> s {loggingConfig = a} :: DescribeTypeResponse) + +-- | For public extensions that have been activated for this account and +-- region, the Amazon Resource Name (ARN) of the public extension. +describeTypeResponse_originalTypeArn :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_originalTypeArn = Lens.lens (\DescribeTypeResponse' {originalTypeArn} -> originalTypeArn) (\s@DescribeTypeResponse' {} a -> s {originalTypeArn = a} :: DescribeTypeResponse) + +-- | For public extensions that have been activated for this account and +-- region, the type name of the public extension. +-- +-- If you specified a @TypeNameAlias@ when enabling the extension in this +-- account and region, CloudFormation treats that alias as the extension\'s +-- type name within the account and region, not the type name of the public +-- extension. For more information, see +-- +-- in the /CloudFormation User Guide/. +describeTypeResponse_originalTypeName :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_originalTypeName = Lens.lens (\DescribeTypeResponse' {originalTypeName} -> originalTypeName) (\s@DescribeTypeResponse' {} a -> s {originalTypeName = a} :: DescribeTypeResponse) + +-- | For resource type extensions, the provisioning behavior of the resource +-- type. CloudFormation determines the provisioning type during +-- registration, based on the types of handlers in the schema handler +-- package submitted. +-- +-- Valid values include: +-- +-- - @FULLY_MUTABLE@: The resource type includes an update handler to +-- process updates to the type during stack update operations. +-- +-- - @IMMUTABLE@: The resource type doesn\'t include an update handler, +-- so the type can\'t be updated and must instead be replaced during +-- stack update operations. +-- +-- - @NON_PROVISIONABLE@: The resource type doesn\'t include all the +-- following handlers, and therefore can\'t actually be provisioned. +-- +-- - create +-- +-- - read +-- +-- - delete +describeTypeResponse_provisioningType :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe ProvisioningType) +describeTypeResponse_provisioningType = Lens.lens (\DescribeTypeResponse' {provisioningType} -> provisioningType) (\s@DescribeTypeResponse' {} a -> s {provisioningType = a} :: DescribeTypeResponse) + +-- | The version number of a public third-party extension. +-- +-- This applies only if you specify a public extension you have activated +-- in your account, or specify a public extension without specifying a +-- version. For all other extensions, CloudFormation returns @null@. +describeTypeResponse_publicVersionNumber :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_publicVersionNumber = Lens.lens (\DescribeTypeResponse' {publicVersionNumber} -> publicVersionNumber) (\s@DescribeTypeResponse' {} a -> s {publicVersionNumber = a} :: DescribeTypeResponse) + +-- | The publisher ID of the extension publisher. +-- +-- This applies only to public third-party extensions. For private +-- registered extensions, and extensions provided by Amazon Web Services, +-- CloudFormation returns @null@. +describeTypeResponse_publisherId :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_publisherId = Lens.lens (\DescribeTypeResponse' {publisherId} -> publisherId) (\s@DescribeTypeResponse' {} a -> s {publisherId = a} :: DescribeTypeResponse) + +-- | For extensions that are modules, the public third-party extensions that +-- must be activated in your account in order for the module itself to be +-- activated. +describeTypeResponse_requiredActivatedTypes :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe [RequiredActivatedType]) +describeTypeResponse_requiredActivatedTypes = Lens.lens (\DescribeTypeResponse' {requiredActivatedTypes} -> requiredActivatedTypes) (\s@DescribeTypeResponse' {} a -> s {requiredActivatedTypes = a} :: DescribeTypeResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The schema that defines the extension. +-- +-- For more information about extension schemas, see +-- +-- in the /CloudFormation CLI User Guide/. +describeTypeResponse_schema :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_schema = Lens.lens (\DescribeTypeResponse' {schema} -> schema) (\s@DescribeTypeResponse' {} a -> s {schema = a} :: DescribeTypeResponse) + +-- | The URL of the source code for the extension. +describeTypeResponse_sourceUrl :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_sourceUrl = Lens.lens (\DescribeTypeResponse' {sourceUrl} -> sourceUrl) (\s@DescribeTypeResponse' {} a -> s {sourceUrl = a} :: DescribeTypeResponse) + +-- | When the specified private extension version was registered or activated +-- in your account. +describeTypeResponse_timeCreated :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.UTCTime) +describeTypeResponse_timeCreated = Lens.lens (\DescribeTypeResponse' {timeCreated} -> timeCreated) (\s@DescribeTypeResponse' {} a -> s {timeCreated = a} :: DescribeTypeResponse) Prelude.. Lens.mapping Data._Time + +-- | The kind of extension. +describeTypeResponse_type :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe RegistryType) +describeTypeResponse_type = Lens.lens (\DescribeTypeResponse' {type'} -> type') (\s@DescribeTypeResponse' {} a -> s {type' = a} :: DescribeTypeResponse) + +-- | The name of the extension. +-- +-- If the extension is a public third-party type you have activated with a +-- type name alias, CloudFormation returns the type name alias. For more +-- information, see +-- . +describeTypeResponse_typeName :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_typeName = Lens.lens (\DescribeTypeResponse' {typeName} -> typeName) (\s@DescribeTypeResponse' {} a -> s {typeName = a} :: DescribeTypeResponse) + +-- | The contract test status of the registered extension version. To return +-- the extension test status of a specific extension version, you must +-- specify @VersionId@. +-- +-- This applies only to registered private extension versions. +-- CloudFormation doesn\'t return this information for public extensions, +-- whether they are activated in your account. +-- +-- - @PASSED@: The extension has passed all its contract tests. +-- +-- An extension must have a test status of @PASSED@ before it can be +-- published. For more information, see +-- +-- in the /CloudFormation Command Line Interface User Guide/. +-- +-- - @FAILED@: The extension has failed one or more contract tests. +-- +-- - @IN_PROGRESS@: Contract tests are currently being performed on the +-- extension. +-- +-- - @NOT_TESTED@: Contract tests haven\'t been performed on the +-- extension. +describeTypeResponse_typeTestsStatus :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe TypeTestsStatus) +describeTypeResponse_typeTestsStatus = Lens.lens (\DescribeTypeResponse' {typeTestsStatus} -> typeTestsStatus) (\s@DescribeTypeResponse' {} a -> s {typeTestsStatus = a} :: DescribeTypeResponse) + +-- | The description of the test status. To return the extension test status +-- of a specific extension version, you must specify @VersionId@. +-- +-- This applies only to registered private extension versions. +-- CloudFormation doesn\'t return this information for public extensions, +-- whether they are activated in your account. +describeTypeResponse_typeTestsStatusDescription :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Prelude.Text) +describeTypeResponse_typeTestsStatusDescription = Lens.lens (\DescribeTypeResponse' {typeTestsStatusDescription} -> typeTestsStatusDescription) (\s@DescribeTypeResponse' {} a -> s {typeTestsStatusDescription = a} :: DescribeTypeResponse) + +-- | The scope at which the extension is visible and usable in CloudFormation +-- operations. +-- +-- Valid values include: +-- +-- - @PRIVATE@: The extension is only visible and usable within the +-- account in which it is registered. CloudFormation marks any +-- extensions you register as @PRIVATE@. +-- +-- - @PUBLIC@: The extension is publicly visible and usable within any +-- Amazon Web Services account. +describeTypeResponse_visibility :: Lens.Lens' DescribeTypeResponse (Prelude.Maybe Visibility) +describeTypeResponse_visibility = Lens.lens (\DescribeTypeResponse' {visibility} -> visibility) (\s@DescribeTypeResponse' {} a -> s {visibility = a} :: DescribeTypeResponse) + +-- | The response's http status code. +describeTypeResponse_httpStatus :: Lens.Lens' DescribeTypeResponse Prelude.Int +describeTypeResponse_httpStatus = Lens.lens (\DescribeTypeResponse' {httpStatus} -> httpStatus) (\s@DescribeTypeResponse' {} a -> s {httpStatus = a} :: DescribeTypeResponse) + +instance Prelude.NFData DescribeTypeResponse where + rnf DescribeTypeResponse' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf autoUpdate + `Prelude.seq` Prelude.rnf configurationSchema + `Prelude.seq` Prelude.rnf defaultVersionId + `Prelude.seq` Prelude.rnf deprecatedStatus + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf documentationUrl + `Prelude.seq` Prelude.rnf executionRoleArn + `Prelude.seq` Prelude.rnf isActivated + `Prelude.seq` Prelude.rnf isDefaultVersion + `Prelude.seq` Prelude.rnf lastUpdated + `Prelude.seq` Prelude.rnf latestPublicVersion + `Prelude.seq` Prelude.rnf loggingConfig + `Prelude.seq` Prelude.rnf originalTypeArn + `Prelude.seq` Prelude.rnf originalTypeName + `Prelude.seq` Prelude.rnf provisioningType + `Prelude.seq` Prelude.rnf publicVersionNumber + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf + requiredActivatedTypes + `Prelude.seq` Prelude.rnf schema + `Prelude.seq` Prelude.rnf sourceUrl + `Prelude.seq` Prelude.rnf timeCreated + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf + typeTestsStatus + `Prelude.seq` Prelude.rnf + typeTestsStatusDescription + `Prelude.seq` Prelude.rnf + visibility + `Prelude.seq` Prelude.rnf + httpStatus diff --git a/gen/Amazonka/CloudFormation/DescribeTypeRegistration.hs b/gen/Amazonka/CloudFormation/DescribeTypeRegistration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DescribeTypeRegistration.hs @@ -0,0 +1,238 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DescribeTypeRegistration +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns information about an extension\'s registration, including its +-- current status and type and version identifiers. +-- +-- When you initiate a registration request using @ @@RegisterType@@ @, you +-- can then use @ @@DescribeTypeRegistration@@ @ to monitor the progress of +-- that registration request. +-- +-- Once the registration request has completed, use @ @@DescribeType@@ @ to +-- return detailed information about an extension. +module Amazonka.CloudFormation.DescribeTypeRegistration + ( -- * Creating a Request + DescribeTypeRegistration (..), + newDescribeTypeRegistration, + + -- * Request Lenses + describeTypeRegistration_registrationToken, + + -- * Destructuring the Response + DescribeTypeRegistrationResponse (..), + newDescribeTypeRegistrationResponse, + + -- * Response Lenses + describeTypeRegistrationResponse_description, + describeTypeRegistrationResponse_progressStatus, + describeTypeRegistrationResponse_typeArn, + describeTypeRegistrationResponse_typeVersionArn, + describeTypeRegistrationResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDescribeTypeRegistration' smart constructor. +data DescribeTypeRegistration = DescribeTypeRegistration' + { -- | The identifier for this registration request. + -- + -- This registration token is generated by CloudFormation when you initiate + -- a registration request using @ @@RegisterType@@ @. + registrationToken :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeTypeRegistration' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'registrationToken', 'describeTypeRegistration_registrationToken' - The identifier for this registration request. +-- +-- This registration token is generated by CloudFormation when you initiate +-- a registration request using @ @@RegisterType@@ @. +newDescribeTypeRegistration :: + -- | 'registrationToken' + Prelude.Text -> + DescribeTypeRegistration +newDescribeTypeRegistration pRegistrationToken_ = + DescribeTypeRegistration' + { registrationToken = + pRegistrationToken_ + } + +-- | The identifier for this registration request. +-- +-- This registration token is generated by CloudFormation when you initiate +-- a registration request using @ @@RegisterType@@ @. +describeTypeRegistration_registrationToken :: Lens.Lens' DescribeTypeRegistration Prelude.Text +describeTypeRegistration_registrationToken = Lens.lens (\DescribeTypeRegistration' {registrationToken} -> registrationToken) (\s@DescribeTypeRegistration' {} a -> s {registrationToken = a} :: DescribeTypeRegistration) + +instance Core.AWSRequest DescribeTypeRegistration where + type + AWSResponse DescribeTypeRegistration = + DescribeTypeRegistrationResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DescribeTypeRegistrationResult" + ( \s h x -> + DescribeTypeRegistrationResponse' + Prelude.<$> (x Data..@? "Description") + Prelude.<*> (x Data..@? "ProgressStatus") + Prelude.<*> (x Data..@? "TypeArn") + Prelude.<*> (x Data..@? "TypeVersionArn") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DescribeTypeRegistration where + hashWithSalt _salt DescribeTypeRegistration' {..} = + _salt `Prelude.hashWithSalt` registrationToken + +instance Prelude.NFData DescribeTypeRegistration where + rnf DescribeTypeRegistration' {..} = + Prelude.rnf registrationToken + +instance Data.ToHeaders DescribeTypeRegistration where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DescribeTypeRegistration where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeTypeRegistration where + toQuery DescribeTypeRegistration' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DescribeTypeRegistration" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "RegistrationToken" Data.=: registrationToken + ] + +-- | /See:/ 'newDescribeTypeRegistrationResponse' smart constructor. +data DescribeTypeRegistrationResponse = DescribeTypeRegistrationResponse' + { -- | The description of the extension registration request. + description :: Prelude.Maybe Prelude.Text, + -- | The current status of the extension registration request. + progressStatus :: Prelude.Maybe RegistrationStatus, + -- | The Amazon Resource Name (ARN) of the extension being registered. + -- + -- For registration requests with a @ProgressStatus@ of other than + -- @COMPLETE@, this will be @null@. + typeArn :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) of this specific version of the extension + -- being registered. + -- + -- For registration requests with a @ProgressStatus@ of other than + -- @COMPLETE@, this will be @null@. + typeVersionArn :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeTypeRegistrationResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'description', 'describeTypeRegistrationResponse_description' - The description of the extension registration request. +-- +-- 'progressStatus', 'describeTypeRegistrationResponse_progressStatus' - The current status of the extension registration request. +-- +-- 'typeArn', 'describeTypeRegistrationResponse_typeArn' - The Amazon Resource Name (ARN) of the extension being registered. +-- +-- For registration requests with a @ProgressStatus@ of other than +-- @COMPLETE@, this will be @null@. +-- +-- 'typeVersionArn', 'describeTypeRegistrationResponse_typeVersionArn' - The Amazon Resource Name (ARN) of this specific version of the extension +-- being registered. +-- +-- For registration requests with a @ProgressStatus@ of other than +-- @COMPLETE@, this will be @null@. +-- +-- 'httpStatus', 'describeTypeRegistrationResponse_httpStatus' - The response's http status code. +newDescribeTypeRegistrationResponse :: + -- | 'httpStatus' + Prelude.Int -> + DescribeTypeRegistrationResponse +newDescribeTypeRegistrationResponse pHttpStatus_ = + DescribeTypeRegistrationResponse' + { description = + Prelude.Nothing, + progressStatus = Prelude.Nothing, + typeArn = Prelude.Nothing, + typeVersionArn = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The description of the extension registration request. +describeTypeRegistrationResponse_description :: Lens.Lens' DescribeTypeRegistrationResponse (Prelude.Maybe Prelude.Text) +describeTypeRegistrationResponse_description = Lens.lens (\DescribeTypeRegistrationResponse' {description} -> description) (\s@DescribeTypeRegistrationResponse' {} a -> s {description = a} :: DescribeTypeRegistrationResponse) + +-- | The current status of the extension registration request. +describeTypeRegistrationResponse_progressStatus :: Lens.Lens' DescribeTypeRegistrationResponse (Prelude.Maybe RegistrationStatus) +describeTypeRegistrationResponse_progressStatus = Lens.lens (\DescribeTypeRegistrationResponse' {progressStatus} -> progressStatus) (\s@DescribeTypeRegistrationResponse' {} a -> s {progressStatus = a} :: DescribeTypeRegistrationResponse) + +-- | The Amazon Resource Name (ARN) of the extension being registered. +-- +-- For registration requests with a @ProgressStatus@ of other than +-- @COMPLETE@, this will be @null@. +describeTypeRegistrationResponse_typeArn :: Lens.Lens' DescribeTypeRegistrationResponse (Prelude.Maybe Prelude.Text) +describeTypeRegistrationResponse_typeArn = Lens.lens (\DescribeTypeRegistrationResponse' {typeArn} -> typeArn) (\s@DescribeTypeRegistrationResponse' {} a -> s {typeArn = a} :: DescribeTypeRegistrationResponse) + +-- | The Amazon Resource Name (ARN) of this specific version of the extension +-- being registered. +-- +-- For registration requests with a @ProgressStatus@ of other than +-- @COMPLETE@, this will be @null@. +describeTypeRegistrationResponse_typeVersionArn :: Lens.Lens' DescribeTypeRegistrationResponse (Prelude.Maybe Prelude.Text) +describeTypeRegistrationResponse_typeVersionArn = Lens.lens (\DescribeTypeRegistrationResponse' {typeVersionArn} -> typeVersionArn) (\s@DescribeTypeRegistrationResponse' {} a -> s {typeVersionArn = a} :: DescribeTypeRegistrationResponse) + +-- | The response's http status code. +describeTypeRegistrationResponse_httpStatus :: Lens.Lens' DescribeTypeRegistrationResponse Prelude.Int +describeTypeRegistrationResponse_httpStatus = Lens.lens (\DescribeTypeRegistrationResponse' {httpStatus} -> httpStatus) (\s@DescribeTypeRegistrationResponse' {} a -> s {httpStatus = a} :: DescribeTypeRegistrationResponse) + +instance + Prelude.NFData + DescribeTypeRegistrationResponse + where + rnf DescribeTypeRegistrationResponse' {..} = + Prelude.rnf description + `Prelude.seq` Prelude.rnf progressStatus + `Prelude.seq` Prelude.rnf typeArn + `Prelude.seq` Prelude.rnf typeVersionArn + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/DetectStackDrift.hs b/gen/Amazonka/CloudFormation/DetectStackDrift.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DetectStackDrift.hs @@ -0,0 +1,223 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DetectStackDrift +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Detects whether a stack\'s actual configuration differs, or has +-- /drifted/, from it\'s expected configuration, as defined in the stack +-- template and any values specified as template parameters. For each +-- resource in the stack that supports drift detection, CloudFormation +-- compares the actual configuration of the resource with its expected +-- template configuration. Only resource properties explicitly defined in +-- the stack template are checked for drift. A stack is considered to have +-- drifted if one or more of its resources differ from their expected +-- template configurations. For more information, see +-- . +-- +-- Use @DetectStackDrift@ to detect drift on all supported resources for a +-- given stack, or DetectStackResourceDrift to detect drift on individual +-- resources. +-- +-- For a list of stack resources that currently support drift detection, +-- see +-- . +-- +-- @DetectStackDrift@ can take up to several minutes, depending on the +-- number of resources contained within the stack. Use +-- DescribeStackDriftDetectionStatus to monitor the progress of a detect +-- stack drift operation. Once the drift detection operation has completed, +-- use DescribeStackResourceDrifts to return drift information about the +-- stack and its resources. +-- +-- When detecting drift on a stack, CloudFormation doesn\'t detect drift on +-- any nested stacks belonging to that stack. Perform @DetectStackDrift@ +-- directly on the nested stack itself. +module Amazonka.CloudFormation.DetectStackDrift + ( -- * Creating a Request + DetectStackDrift (..), + newDetectStackDrift, + + -- * Request Lenses + detectStackDrift_logicalResourceIds, + detectStackDrift_stackName, + + -- * Destructuring the Response + DetectStackDriftResponse (..), + newDetectStackDriftResponse, + + -- * Response Lenses + detectStackDriftResponse_httpStatus, + detectStackDriftResponse_stackDriftDetectionId, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDetectStackDrift' smart constructor. +data DetectStackDrift = DetectStackDrift' + { -- | The logical names of any resources you want to use as filters. + logicalResourceIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text), + -- | The name of the stack for which you want to detect drift. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DetectStackDrift' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logicalResourceIds', 'detectStackDrift_logicalResourceIds' - The logical names of any resources you want to use as filters. +-- +-- 'stackName', 'detectStackDrift_stackName' - The name of the stack for which you want to detect drift. +newDetectStackDrift :: + -- | 'stackName' + Prelude.Text -> + DetectStackDrift +newDetectStackDrift pStackName_ = + DetectStackDrift' + { logicalResourceIds = + Prelude.Nothing, + stackName = pStackName_ + } + +-- | The logical names of any resources you want to use as filters. +detectStackDrift_logicalResourceIds :: Lens.Lens' DetectStackDrift (Prelude.Maybe (Prelude.NonEmpty Prelude.Text)) +detectStackDrift_logicalResourceIds = Lens.lens (\DetectStackDrift' {logicalResourceIds} -> logicalResourceIds) (\s@DetectStackDrift' {} a -> s {logicalResourceIds = a} :: DetectStackDrift) Prelude.. Lens.mapping Lens.coerced + +-- | The name of the stack for which you want to detect drift. +detectStackDrift_stackName :: Lens.Lens' DetectStackDrift Prelude.Text +detectStackDrift_stackName = Lens.lens (\DetectStackDrift' {stackName} -> stackName) (\s@DetectStackDrift' {} a -> s {stackName = a} :: DetectStackDrift) + +instance Core.AWSRequest DetectStackDrift where + type + AWSResponse DetectStackDrift = + DetectStackDriftResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DetectStackDriftResult" + ( \s h x -> + DetectStackDriftResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..@ "StackDriftDetectionId") + ) + +instance Prelude.Hashable DetectStackDrift where + hashWithSalt _salt DetectStackDrift' {..} = + _salt + `Prelude.hashWithSalt` logicalResourceIds + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData DetectStackDrift where + rnf DetectStackDrift' {..} = + Prelude.rnf logicalResourceIds + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders DetectStackDrift where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DetectStackDrift where + toPath = Prelude.const "/" + +instance Data.ToQuery DetectStackDrift where + toQuery DetectStackDrift' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DetectStackDrift" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "LogicalResourceIds" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> logicalResourceIds + ), + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newDetectStackDriftResponse' smart constructor. +data DetectStackDriftResponse = DetectStackDriftResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The ID of the drift detection results of this operation. + -- + -- CloudFormation generates new results, with a new drift detection ID, + -- each time this operation is run. However, the number of drift results + -- CloudFormation retains for any given stack, and for how long, may vary. + stackDriftDetectionId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DetectStackDriftResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'detectStackDriftResponse_httpStatus' - The response's http status code. +-- +-- 'stackDriftDetectionId', 'detectStackDriftResponse_stackDriftDetectionId' - The ID of the drift detection results of this operation. +-- +-- CloudFormation generates new results, with a new drift detection ID, +-- each time this operation is run. However, the number of drift results +-- CloudFormation retains for any given stack, and for how long, may vary. +newDetectStackDriftResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'stackDriftDetectionId' + Prelude.Text -> + DetectStackDriftResponse +newDetectStackDriftResponse + pHttpStatus_ + pStackDriftDetectionId_ = + DetectStackDriftResponse' + { httpStatus = + pHttpStatus_, + stackDriftDetectionId = pStackDriftDetectionId_ + } + +-- | The response's http status code. +detectStackDriftResponse_httpStatus :: Lens.Lens' DetectStackDriftResponse Prelude.Int +detectStackDriftResponse_httpStatus = Lens.lens (\DetectStackDriftResponse' {httpStatus} -> httpStatus) (\s@DetectStackDriftResponse' {} a -> s {httpStatus = a} :: DetectStackDriftResponse) + +-- | The ID of the drift detection results of this operation. +-- +-- CloudFormation generates new results, with a new drift detection ID, +-- each time this operation is run. However, the number of drift results +-- CloudFormation retains for any given stack, and for how long, may vary. +detectStackDriftResponse_stackDriftDetectionId :: Lens.Lens' DetectStackDriftResponse Prelude.Text +detectStackDriftResponse_stackDriftDetectionId = Lens.lens (\DetectStackDriftResponse' {stackDriftDetectionId} -> stackDriftDetectionId) (\s@DetectStackDriftResponse' {} a -> s {stackDriftDetectionId = a} :: DetectStackDriftResponse) + +instance Prelude.NFData DetectStackDriftResponse where + rnf DetectStackDriftResponse' {..} = + Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf stackDriftDetectionId diff --git a/gen/Amazonka/CloudFormation/DetectStackResourceDrift.hs b/gen/Amazonka/CloudFormation/DetectStackResourceDrift.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DetectStackResourceDrift.hs @@ -0,0 +1,206 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DetectStackResourceDrift +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns information about whether a resource\'s actual configuration +-- differs, or has /drifted/, from it\'s expected configuration, as defined +-- in the stack template and any values specified as template parameters. +-- This information includes actual and expected property values for +-- resources in which CloudFormation detects drift. Only resource +-- properties explicitly defined in the stack template are checked for +-- drift. For more information about stack and resource drift, see +-- . +-- +-- Use @DetectStackResourceDrift@ to detect drift on individual resources, +-- or DetectStackDrift to detect drift on all resources in a given stack +-- that support drift detection. +-- +-- Resources that don\'t currently support drift detection can\'t be +-- checked. For a list of resources that support drift detection, see +-- . +module Amazonka.CloudFormation.DetectStackResourceDrift + ( -- * Creating a Request + DetectStackResourceDrift (..), + newDetectStackResourceDrift, + + -- * Request Lenses + detectStackResourceDrift_stackName, + detectStackResourceDrift_logicalResourceId, + + -- * Destructuring the Response + DetectStackResourceDriftResponse (..), + newDetectStackResourceDriftResponse, + + -- * Response Lenses + detectStackResourceDriftResponse_httpStatus, + detectStackResourceDriftResponse_stackResourceDrift, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDetectStackResourceDrift' smart constructor. +data DetectStackResourceDrift = DetectStackResourceDrift' + { -- | The name of the stack to which the resource belongs. + stackName :: Prelude.Text, + -- | The logical name of the resource for which to return drift information. + logicalResourceId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DetectStackResourceDrift' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackName', 'detectStackResourceDrift_stackName' - The name of the stack to which the resource belongs. +-- +-- 'logicalResourceId', 'detectStackResourceDrift_logicalResourceId' - The logical name of the resource for which to return drift information. +newDetectStackResourceDrift :: + -- | 'stackName' + Prelude.Text -> + -- | 'logicalResourceId' + Prelude.Text -> + DetectStackResourceDrift +newDetectStackResourceDrift + pStackName_ + pLogicalResourceId_ = + DetectStackResourceDrift' + { stackName = pStackName_, + logicalResourceId = pLogicalResourceId_ + } + +-- | The name of the stack to which the resource belongs. +detectStackResourceDrift_stackName :: Lens.Lens' DetectStackResourceDrift Prelude.Text +detectStackResourceDrift_stackName = Lens.lens (\DetectStackResourceDrift' {stackName} -> stackName) (\s@DetectStackResourceDrift' {} a -> s {stackName = a} :: DetectStackResourceDrift) + +-- | The logical name of the resource for which to return drift information. +detectStackResourceDrift_logicalResourceId :: Lens.Lens' DetectStackResourceDrift Prelude.Text +detectStackResourceDrift_logicalResourceId = Lens.lens (\DetectStackResourceDrift' {logicalResourceId} -> logicalResourceId) (\s@DetectStackResourceDrift' {} a -> s {logicalResourceId = a} :: DetectStackResourceDrift) + +instance Core.AWSRequest DetectStackResourceDrift where + type + AWSResponse DetectStackResourceDrift = + DetectStackResourceDriftResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DetectStackResourceDriftResult" + ( \s h x -> + DetectStackResourceDriftResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..@ "StackResourceDrift") + ) + +instance Prelude.Hashable DetectStackResourceDrift where + hashWithSalt _salt DetectStackResourceDrift' {..} = + _salt + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` logicalResourceId + +instance Prelude.NFData DetectStackResourceDrift where + rnf DetectStackResourceDrift' {..} = + Prelude.rnf stackName + `Prelude.seq` Prelude.rnf logicalResourceId + +instance Data.ToHeaders DetectStackResourceDrift where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DetectStackResourceDrift where + toPath = Prelude.const "/" + +instance Data.ToQuery DetectStackResourceDrift where + toQuery DetectStackResourceDrift' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DetectStackResourceDrift" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackName" Data.=: stackName, + "LogicalResourceId" Data.=: logicalResourceId + ] + +-- | /See:/ 'newDetectStackResourceDriftResponse' smart constructor. +data DetectStackResourceDriftResponse = DetectStackResourceDriftResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | Information about whether the resource\'s actual configuration has + -- drifted from its expected template configuration, including actual and + -- expected property values and any differences detected. + stackResourceDrift :: StackResourceDrift + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DetectStackResourceDriftResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'detectStackResourceDriftResponse_httpStatus' - The response's http status code. +-- +-- 'stackResourceDrift', 'detectStackResourceDriftResponse_stackResourceDrift' - Information about whether the resource\'s actual configuration has +-- drifted from its expected template configuration, including actual and +-- expected property values and any differences detected. +newDetectStackResourceDriftResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'stackResourceDrift' + StackResourceDrift -> + DetectStackResourceDriftResponse +newDetectStackResourceDriftResponse + pHttpStatus_ + pStackResourceDrift_ = + DetectStackResourceDriftResponse' + { httpStatus = + pHttpStatus_, + stackResourceDrift = pStackResourceDrift_ + } + +-- | The response's http status code. +detectStackResourceDriftResponse_httpStatus :: Lens.Lens' DetectStackResourceDriftResponse Prelude.Int +detectStackResourceDriftResponse_httpStatus = Lens.lens (\DetectStackResourceDriftResponse' {httpStatus} -> httpStatus) (\s@DetectStackResourceDriftResponse' {} a -> s {httpStatus = a} :: DetectStackResourceDriftResponse) + +-- | Information about whether the resource\'s actual configuration has +-- drifted from its expected template configuration, including actual and +-- expected property values and any differences detected. +detectStackResourceDriftResponse_stackResourceDrift :: Lens.Lens' DetectStackResourceDriftResponse StackResourceDrift +detectStackResourceDriftResponse_stackResourceDrift = Lens.lens (\DetectStackResourceDriftResponse' {stackResourceDrift} -> stackResourceDrift) (\s@DetectStackResourceDriftResponse' {} a -> s {stackResourceDrift = a} :: DetectStackResourceDriftResponse) + +instance + Prelude.NFData + DetectStackResourceDriftResponse + where + rnf DetectStackResourceDriftResponse' {..} = + Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf stackResourceDrift diff --git a/gen/Amazonka/CloudFormation/DetectStackSetDrift.hs b/gen/Amazonka/CloudFormation/DetectStackSetDrift.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/DetectStackSetDrift.hs @@ -0,0 +1,293 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.DetectStackSetDrift +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Detect drift on a stack set. When CloudFormation performs drift +-- detection on a stack set, it performs drift detection on the stack +-- associated with each stack instance in the stack set. For more +-- information, see +-- . +-- +-- @DetectStackSetDrift@ returns the @OperationId@ of the stack set drift +-- detection operation. Use this operation id with +-- @ @@DescribeStackSetOperation@@ @ to monitor the progress of the drift +-- detection operation. The drift detection operation may take some time, +-- depending on the number of stack instances included in the stack set, in +-- addition to the number of resources included in each stack. +-- +-- Once the operation has completed, use the following actions to return +-- drift information: +-- +-- - Use @ @@DescribeStackSet@@ @ to return detailed information about +-- the stack set, including detailed information about the last +-- /completed/ drift operation performed on the stack set. (Information +-- about drift operations that are in progress isn\'t included.) +-- +-- - Use @ @@ListStackInstances@@ @ to return a list of stack instances +-- belonging to the stack set, including the drift status and last +-- drift time checked of each instance. +-- +-- - Use @ @@DescribeStackInstance@@ @ to return detailed information +-- about a specific stack instance, including its drift status and last +-- drift time checked. +-- +-- For more information about performing a drift detection operation on a +-- stack set, see +-- . +-- +-- You can only run a single drift detection operation on a given stack set +-- at one time. +-- +-- To stop a drift detection stack set operation, use +-- @ @@StopStackSetOperation@@ @. +module Amazonka.CloudFormation.DetectStackSetDrift + ( -- * Creating a Request + DetectStackSetDrift (..), + newDetectStackSetDrift, + + -- * Request Lenses + detectStackSetDrift_callAs, + detectStackSetDrift_operationId, + detectStackSetDrift_operationPreferences, + detectStackSetDrift_stackSetName, + + -- * Destructuring the Response + DetectStackSetDriftResponse (..), + newDetectStackSetDriftResponse, + + -- * Response Lenses + detectStackSetDriftResponse_operationId, + detectStackSetDriftResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDetectStackSetDrift' smart constructor. +data DetectStackSetDrift = DetectStackSetDrift' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | /The ID of the stack set operation./ + operationId :: Prelude.Maybe Prelude.Text, + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | The name of the stack set on which to perform the drift detection + -- operation. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DetectStackSetDrift' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'detectStackSetDrift_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'operationId', 'detectStackSetDrift_operationId' - /The ID of the stack set operation./ +-- +-- 'operationPreferences', 'detectStackSetDrift_operationPreferences' - Undocumented member. +-- +-- 'stackSetName', 'detectStackSetDrift_stackSetName' - The name of the stack set on which to perform the drift detection +-- operation. +newDetectStackSetDrift :: + -- | 'stackSetName' + Prelude.Text -> + DetectStackSetDrift +newDetectStackSetDrift pStackSetName_ = + DetectStackSetDrift' + { callAs = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +detectStackSetDrift_callAs :: Lens.Lens' DetectStackSetDrift (Prelude.Maybe CallAs) +detectStackSetDrift_callAs = Lens.lens (\DetectStackSetDrift' {callAs} -> callAs) (\s@DetectStackSetDrift' {} a -> s {callAs = a} :: DetectStackSetDrift) + +-- | /The ID of the stack set operation./ +detectStackSetDrift_operationId :: Lens.Lens' DetectStackSetDrift (Prelude.Maybe Prelude.Text) +detectStackSetDrift_operationId = Lens.lens (\DetectStackSetDrift' {operationId} -> operationId) (\s@DetectStackSetDrift' {} a -> s {operationId = a} :: DetectStackSetDrift) + +-- | Undocumented member. +detectStackSetDrift_operationPreferences :: Lens.Lens' DetectStackSetDrift (Prelude.Maybe StackSetOperationPreferences) +detectStackSetDrift_operationPreferences = Lens.lens (\DetectStackSetDrift' {operationPreferences} -> operationPreferences) (\s@DetectStackSetDrift' {} a -> s {operationPreferences = a} :: DetectStackSetDrift) + +-- | The name of the stack set on which to perform the drift detection +-- operation. +detectStackSetDrift_stackSetName :: Lens.Lens' DetectStackSetDrift Prelude.Text +detectStackSetDrift_stackSetName = Lens.lens (\DetectStackSetDrift' {stackSetName} -> stackSetName) (\s@DetectStackSetDrift' {} a -> s {stackSetName = a} :: DetectStackSetDrift) + +instance Core.AWSRequest DetectStackSetDrift where + type + AWSResponse DetectStackSetDrift = + DetectStackSetDriftResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "DetectStackSetDriftResult" + ( \s h x -> + DetectStackSetDriftResponse' + Prelude.<$> (x Data..@? "OperationId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DetectStackSetDrift where + hashWithSalt _salt DetectStackSetDrift' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData DetectStackSetDrift where + rnf DetectStackSetDrift' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders DetectStackSetDrift where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath DetectStackSetDrift where + toPath = Prelude.const "/" + +instance Data.ToQuery DetectStackSetDrift where + toQuery DetectStackSetDrift' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("DetectStackSetDrift" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "OperationId" Data.=: operationId, + "OperationPreferences" Data.=: operationPreferences, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newDetectStackSetDriftResponse' smart constructor. +data DetectStackSetDriftResponse = DetectStackSetDriftResponse' + { -- | The ID of the drift detection stack set operation. + -- + -- You can use this operation ID with @ @@DescribeStackSetOperation@@ @ to + -- monitor the progress of the drift detection operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DetectStackSetDriftResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'operationId', 'detectStackSetDriftResponse_operationId' - The ID of the drift detection stack set operation. +-- +-- You can use this operation ID with @ @@DescribeStackSetOperation@@ @ to +-- monitor the progress of the drift detection operation. +-- +-- 'httpStatus', 'detectStackSetDriftResponse_httpStatus' - The response's http status code. +newDetectStackSetDriftResponse :: + -- | 'httpStatus' + Prelude.Int -> + DetectStackSetDriftResponse +newDetectStackSetDriftResponse pHttpStatus_ = + DetectStackSetDriftResponse' + { operationId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The ID of the drift detection stack set operation. +-- +-- You can use this operation ID with @ @@DescribeStackSetOperation@@ @ to +-- monitor the progress of the drift detection operation. +detectStackSetDriftResponse_operationId :: Lens.Lens' DetectStackSetDriftResponse (Prelude.Maybe Prelude.Text) +detectStackSetDriftResponse_operationId = Lens.lens (\DetectStackSetDriftResponse' {operationId} -> operationId) (\s@DetectStackSetDriftResponse' {} a -> s {operationId = a} :: DetectStackSetDriftResponse) + +-- | The response's http status code. +detectStackSetDriftResponse_httpStatus :: Lens.Lens' DetectStackSetDriftResponse Prelude.Int +detectStackSetDriftResponse_httpStatus = Lens.lens (\DetectStackSetDriftResponse' {httpStatus} -> httpStatus) (\s@DetectStackSetDriftResponse' {} a -> s {httpStatus = a} :: DetectStackSetDriftResponse) + +instance Prelude.NFData DetectStackSetDriftResponse where + rnf DetectStackSetDriftResponse' {..} = + Prelude.rnf operationId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/EstimateTemplateCost.hs b/gen/Amazonka/CloudFormation/EstimateTemplateCost.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/EstimateTemplateCost.hs @@ -0,0 +1,235 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.EstimateTemplateCost +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the estimated monthly cost of a template. The return value is an +-- Amazon Web Services Simple Monthly Calculator URL with a query string +-- that describes the resources required to run the template. +module Amazonka.CloudFormation.EstimateTemplateCost + ( -- * Creating a Request + EstimateTemplateCost (..), + newEstimateTemplateCost, + + -- * Request Lenses + estimateTemplateCost_parameters, + estimateTemplateCost_templateBody, + estimateTemplateCost_templateURL, + + -- * Destructuring the Response + EstimateTemplateCostResponse (..), + newEstimateTemplateCostResponse, + + -- * Response Lenses + estimateTemplateCostResponse_url, + estimateTemplateCostResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for an EstimateTemplateCost action. +-- +-- /See:/ 'newEstimateTemplateCost' smart constructor. +data EstimateTemplateCost = EstimateTemplateCost' + { -- | A list of @Parameter@ structures that specify input parameters. + parameters :: Prelude.Maybe [Parameter], + -- | Structure containing the template body with a minimum length of 1 byte + -- and a maximum length of 51,200 bytes. (For more information, go to + -- + -- in the CloudFormation User Guide.) + -- + -- Conditional: You must pass @TemplateBody@ or @TemplateURL@. If both are + -- passed, only @TemplateBody@ is used. + templateBody :: Prelude.Maybe Prelude.Text, + -- | Location of file containing the template body. The URL must point to a + -- template that\'s located in an Amazon S3 bucket or a Systems Manager + -- document. For more information, go to + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are + -- passed, only @TemplateBody@ is used. + templateURL :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'EstimateTemplateCost' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'parameters', 'estimateTemplateCost_parameters' - A list of @Parameter@ structures that specify input parameters. +-- +-- 'templateBody', 'estimateTemplateCost_templateBody' - Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- Conditional: You must pass @TemplateBody@ or @TemplateURL@. If both are +-- passed, only @TemplateBody@ is used. +-- +-- 'templateURL', 'estimateTemplateCost_templateURL' - Location of file containing the template body. The URL must point to a +-- template that\'s located in an Amazon S3 bucket or a Systems Manager +-- document. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are +-- passed, only @TemplateBody@ is used. +newEstimateTemplateCost :: + EstimateTemplateCost +newEstimateTemplateCost = + EstimateTemplateCost' + { parameters = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing + } + +-- | A list of @Parameter@ structures that specify input parameters. +estimateTemplateCost_parameters :: Lens.Lens' EstimateTemplateCost (Prelude.Maybe [Parameter]) +estimateTemplateCost_parameters = Lens.lens (\EstimateTemplateCost' {parameters} -> parameters) (\s@EstimateTemplateCost' {} a -> s {parameters = a} :: EstimateTemplateCost) Prelude.. Lens.mapping Lens.coerced + +-- | Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- Conditional: You must pass @TemplateBody@ or @TemplateURL@. If both are +-- passed, only @TemplateBody@ is used. +estimateTemplateCost_templateBody :: Lens.Lens' EstimateTemplateCost (Prelude.Maybe Prelude.Text) +estimateTemplateCost_templateBody = Lens.lens (\EstimateTemplateCost' {templateBody} -> templateBody) (\s@EstimateTemplateCost' {} a -> s {templateBody = a} :: EstimateTemplateCost) + +-- | Location of file containing the template body. The URL must point to a +-- template that\'s located in an Amazon S3 bucket or a Systems Manager +-- document. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are +-- passed, only @TemplateBody@ is used. +estimateTemplateCost_templateURL :: Lens.Lens' EstimateTemplateCost (Prelude.Maybe Prelude.Text) +estimateTemplateCost_templateURL = Lens.lens (\EstimateTemplateCost' {templateURL} -> templateURL) (\s@EstimateTemplateCost' {} a -> s {templateURL = a} :: EstimateTemplateCost) + +instance Core.AWSRequest EstimateTemplateCost where + type + AWSResponse EstimateTemplateCost = + EstimateTemplateCostResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "EstimateTemplateCostResult" + ( \s h x -> + EstimateTemplateCostResponse' + Prelude.<$> (x Data..@? "Url") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable EstimateTemplateCost where + hashWithSalt _salt EstimateTemplateCost' {..} = + _salt + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + +instance Prelude.NFData EstimateTemplateCost where + rnf EstimateTemplateCost' {..} = + Prelude.rnf parameters + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + +instance Data.ToHeaders EstimateTemplateCost where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath EstimateTemplateCost where + toPath = Prelude.const "/" + +instance Data.ToQuery EstimateTemplateCost where + toQuery EstimateTemplateCost' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("EstimateTemplateCost" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Parameters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> parameters), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL + ] + +-- | The output for a EstimateTemplateCost action. +-- +-- /See:/ 'newEstimateTemplateCostResponse' smart constructor. +data EstimateTemplateCostResponse = EstimateTemplateCostResponse' + { -- | An Amazon Web Services Simple Monthly Calculator URL with a query string + -- that describes the resources required to run the template. + url :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'EstimateTemplateCostResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'url', 'estimateTemplateCostResponse_url' - An Amazon Web Services Simple Monthly Calculator URL with a query string +-- that describes the resources required to run the template. +-- +-- 'httpStatus', 'estimateTemplateCostResponse_httpStatus' - The response's http status code. +newEstimateTemplateCostResponse :: + -- | 'httpStatus' + Prelude.Int -> + EstimateTemplateCostResponse +newEstimateTemplateCostResponse pHttpStatus_ = + EstimateTemplateCostResponse' + { url = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | An Amazon Web Services Simple Monthly Calculator URL with a query string +-- that describes the resources required to run the template. +estimateTemplateCostResponse_url :: Lens.Lens' EstimateTemplateCostResponse (Prelude.Maybe Prelude.Text) +estimateTemplateCostResponse_url = Lens.lens (\EstimateTemplateCostResponse' {url} -> url) (\s@EstimateTemplateCostResponse' {} a -> s {url = a} :: EstimateTemplateCostResponse) + +-- | The response's http status code. +estimateTemplateCostResponse_httpStatus :: Lens.Lens' EstimateTemplateCostResponse Prelude.Int +estimateTemplateCostResponse_httpStatus = Lens.lens (\EstimateTemplateCostResponse' {httpStatus} -> httpStatus) (\s@EstimateTemplateCostResponse' {} a -> s {httpStatus = a} :: EstimateTemplateCostResponse) + +instance Prelude.NFData EstimateTemplateCostResponse where + rnf EstimateTemplateCostResponse' {..} = + Prelude.rnf url + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ExecuteChangeSet.hs b/gen/Amazonka/CloudFormation/ExecuteChangeSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ExecuteChangeSet.hs @@ -0,0 +1,237 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ExecuteChangeSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates a stack using the input information that was provided when the +-- specified change set was created. After the call successfully completes, +-- CloudFormation starts updating the stack. Use the DescribeStacks action +-- to view the status of the update. +-- +-- When you execute a change set, CloudFormation deletes all other change +-- sets associated with the stack because they aren\'t valid for the +-- updated stack. +-- +-- If a stack policy is associated with the stack, CloudFormation enforces +-- the policy during the update. You can\'t specify a temporary stack +-- policy that overrides the current policy. +-- +-- To create a change set for the entire stack hierarchy, +-- @IncludeNestedStacks@ must have been set to @True@. +module Amazonka.CloudFormation.ExecuteChangeSet + ( -- * Creating a Request + ExecuteChangeSet (..), + newExecuteChangeSet, + + -- * Request Lenses + executeChangeSet_clientRequestToken, + executeChangeSet_disableRollback, + executeChangeSet_stackName, + executeChangeSet_changeSetName, + + -- * Destructuring the Response + ExecuteChangeSetResponse (..), + newExecuteChangeSetResponse, + + -- * Response Lenses + executeChangeSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the ExecuteChangeSet action. +-- +-- /See:/ 'newExecuteChangeSet' smart constructor. +data ExecuteChangeSet = ExecuteChangeSet' + { -- | A unique identifier for this @ExecuteChangeSet@ request. Specify this + -- token if you plan to retry requests so that CloudFormation knows that + -- you\'re not attempting to execute a change set to update a stack with + -- the same name. You might retry @ExecuteChangeSet@ requests to ensure + -- that CloudFormation successfully received them. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | Preserves the state of previously provisioned resources when an + -- operation fails. + -- + -- Default: @True@ + disableRollback :: Prelude.Maybe Prelude.Bool, + -- | If you specified the name of a change set, specify the stack name or + -- Amazon Resource Name (ARN) that\'s associated with the change set you + -- want to execute. + stackName :: Prelude.Maybe Prelude.Text, + -- | The name or Amazon Resource Name (ARN) of the change set that you want + -- use to update the specified stack. + changeSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ExecuteChangeSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'executeChangeSet_clientRequestToken' - A unique identifier for this @ExecuteChangeSet@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to execute a change set to update a stack with +-- the same name. You might retry @ExecuteChangeSet@ requests to ensure +-- that CloudFormation successfully received them. +-- +-- 'disableRollback', 'executeChangeSet_disableRollback' - Preserves the state of previously provisioned resources when an +-- operation fails. +-- +-- Default: @True@ +-- +-- 'stackName', 'executeChangeSet_stackName' - If you specified the name of a change set, specify the stack name or +-- Amazon Resource Name (ARN) that\'s associated with the change set you +-- want to execute. +-- +-- 'changeSetName', 'executeChangeSet_changeSetName' - The name or Amazon Resource Name (ARN) of the change set that you want +-- use to update the specified stack. +newExecuteChangeSet :: + -- | 'changeSetName' + Prelude.Text -> + ExecuteChangeSet +newExecuteChangeSet pChangeSetName_ = + ExecuteChangeSet' + { clientRequestToken = + Prelude.Nothing, + disableRollback = Prelude.Nothing, + stackName = Prelude.Nothing, + changeSetName = pChangeSetName_ + } + +-- | A unique identifier for this @ExecuteChangeSet@ request. Specify this +-- token if you plan to retry requests so that CloudFormation knows that +-- you\'re not attempting to execute a change set to update a stack with +-- the same name. You might retry @ExecuteChangeSet@ requests to ensure +-- that CloudFormation successfully received them. +executeChangeSet_clientRequestToken :: Lens.Lens' ExecuteChangeSet (Prelude.Maybe Prelude.Text) +executeChangeSet_clientRequestToken = Lens.lens (\ExecuteChangeSet' {clientRequestToken} -> clientRequestToken) (\s@ExecuteChangeSet' {} a -> s {clientRequestToken = a} :: ExecuteChangeSet) + +-- | Preserves the state of previously provisioned resources when an +-- operation fails. +-- +-- Default: @True@ +executeChangeSet_disableRollback :: Lens.Lens' ExecuteChangeSet (Prelude.Maybe Prelude.Bool) +executeChangeSet_disableRollback = Lens.lens (\ExecuteChangeSet' {disableRollback} -> disableRollback) (\s@ExecuteChangeSet' {} a -> s {disableRollback = a} :: ExecuteChangeSet) + +-- | If you specified the name of a change set, specify the stack name or +-- Amazon Resource Name (ARN) that\'s associated with the change set you +-- want to execute. +executeChangeSet_stackName :: Lens.Lens' ExecuteChangeSet (Prelude.Maybe Prelude.Text) +executeChangeSet_stackName = Lens.lens (\ExecuteChangeSet' {stackName} -> stackName) (\s@ExecuteChangeSet' {} a -> s {stackName = a} :: ExecuteChangeSet) + +-- | The name or Amazon Resource Name (ARN) of the change set that you want +-- use to update the specified stack. +executeChangeSet_changeSetName :: Lens.Lens' ExecuteChangeSet Prelude.Text +executeChangeSet_changeSetName = Lens.lens (\ExecuteChangeSet' {changeSetName} -> changeSetName) (\s@ExecuteChangeSet' {} a -> s {changeSetName = a} :: ExecuteChangeSet) + +instance Core.AWSRequest ExecuteChangeSet where + type + AWSResponse ExecuteChangeSet = + ExecuteChangeSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ExecuteChangeSetResult" + ( \s h x -> + ExecuteChangeSetResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ExecuteChangeSet where + hashWithSalt _salt ExecuteChangeSet' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` disableRollback + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` changeSetName + +instance Prelude.NFData ExecuteChangeSet where + rnf ExecuteChangeSet' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf disableRollback + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf changeSetName + +instance Data.ToHeaders ExecuteChangeSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ExecuteChangeSet where + toPath = Prelude.const "/" + +instance Data.ToQuery ExecuteChangeSet where + toQuery ExecuteChangeSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ExecuteChangeSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "DisableRollback" Data.=: disableRollback, + "StackName" Data.=: stackName, + "ChangeSetName" Data.=: changeSetName + ] + +-- | The output for the ExecuteChangeSet action. +-- +-- /See:/ 'newExecuteChangeSetResponse' smart constructor. +data ExecuteChangeSetResponse = ExecuteChangeSetResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ExecuteChangeSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'executeChangeSetResponse_httpStatus' - The response's http status code. +newExecuteChangeSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + ExecuteChangeSetResponse +newExecuteChangeSetResponse pHttpStatus_ = + ExecuteChangeSetResponse' + { httpStatus = + pHttpStatus_ + } + +-- | The response's http status code. +executeChangeSetResponse_httpStatus :: Lens.Lens' ExecuteChangeSetResponse Prelude.Int +executeChangeSetResponse_httpStatus = Lens.lens (\ExecuteChangeSetResponse' {httpStatus} -> httpStatus) (\s@ExecuteChangeSetResponse' {} a -> s {httpStatus = a} :: ExecuteChangeSetResponse) + +instance Prelude.NFData ExecuteChangeSetResponse where + rnf ExecuteChangeSetResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/GetStackPolicy.hs b/gen/Amazonka/CloudFormation/GetStackPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/GetStackPolicy.hs @@ -0,0 +1,171 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.GetStackPolicy +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the stack policy for a specified stack. If a stack doesn\'t have +-- a policy, a null value is returned. +module Amazonka.CloudFormation.GetStackPolicy + ( -- * Creating a Request + GetStackPolicy (..), + newGetStackPolicy, + + -- * Request Lenses + getStackPolicy_stackName, + + -- * Destructuring the Response + GetStackPolicyResponse (..), + newGetStackPolicyResponse, + + -- * Response Lenses + getStackPolicyResponse_stackPolicyBody, + getStackPolicyResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the GetStackPolicy action. +-- +-- /See:/ 'newGetStackPolicy' smart constructor. +data GetStackPolicy = GetStackPolicy' + { -- | The name or unique stack ID that\'s associated with the stack whose + -- policy you want to get. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetStackPolicy' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackName', 'getStackPolicy_stackName' - The name or unique stack ID that\'s associated with the stack whose +-- policy you want to get. +newGetStackPolicy :: + -- | 'stackName' + Prelude.Text -> + GetStackPolicy +newGetStackPolicy pStackName_ = + GetStackPolicy' {stackName = pStackName_} + +-- | The name or unique stack ID that\'s associated with the stack whose +-- policy you want to get. +getStackPolicy_stackName :: Lens.Lens' GetStackPolicy Prelude.Text +getStackPolicy_stackName = Lens.lens (\GetStackPolicy' {stackName} -> stackName) (\s@GetStackPolicy' {} a -> s {stackName = a} :: GetStackPolicy) + +instance Core.AWSRequest GetStackPolicy where + type + AWSResponse GetStackPolicy = + GetStackPolicyResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "GetStackPolicyResult" + ( \s h x -> + GetStackPolicyResponse' + Prelude.<$> (x Data..@? "StackPolicyBody") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetStackPolicy where + hashWithSalt _salt GetStackPolicy' {..} = + _salt `Prelude.hashWithSalt` stackName + +instance Prelude.NFData GetStackPolicy where + rnf GetStackPolicy' {..} = Prelude.rnf stackName + +instance Data.ToHeaders GetStackPolicy where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath GetStackPolicy where + toPath = Prelude.const "/" + +instance Data.ToQuery GetStackPolicy where + toQuery GetStackPolicy' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("GetStackPolicy" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackName" Data.=: stackName + ] + +-- | The output for the GetStackPolicy action. +-- +-- /See:/ 'newGetStackPolicyResponse' smart constructor. +data GetStackPolicyResponse = GetStackPolicyResponse' + { -- | Structure containing the stack policy body. (For more information, go to + -- + -- in the CloudFormation User Guide.) + stackPolicyBody :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetStackPolicyResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackPolicyBody', 'getStackPolicyResponse_stackPolicyBody' - Structure containing the stack policy body. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- 'httpStatus', 'getStackPolicyResponse_httpStatus' - The response's http status code. +newGetStackPolicyResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetStackPolicyResponse +newGetStackPolicyResponse pHttpStatus_ = + GetStackPolicyResponse' + { stackPolicyBody = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Structure containing the stack policy body. (For more information, go to +-- +-- in the CloudFormation User Guide.) +getStackPolicyResponse_stackPolicyBody :: Lens.Lens' GetStackPolicyResponse (Prelude.Maybe Prelude.Text) +getStackPolicyResponse_stackPolicyBody = Lens.lens (\GetStackPolicyResponse' {stackPolicyBody} -> stackPolicyBody) (\s@GetStackPolicyResponse' {} a -> s {stackPolicyBody = a} :: GetStackPolicyResponse) + +-- | The response's http status code. +getStackPolicyResponse_httpStatus :: Lens.Lens' GetStackPolicyResponse Prelude.Int +getStackPolicyResponse_httpStatus = Lens.lens (\GetStackPolicyResponse' {httpStatus} -> httpStatus) (\s@GetStackPolicyResponse' {} a -> s {httpStatus = a} :: GetStackPolicyResponse) + +instance Prelude.NFData GetStackPolicyResponse where + rnf GetStackPolicyResponse' {..} = + Prelude.rnf stackPolicyBody + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/GetTemplate.hs b/gen/Amazonka/CloudFormation/GetTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/GetTemplate.hs @@ -0,0 +1,287 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.GetTemplate +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the template body for a specified stack. You can get the +-- template for running or deleted stacks. +-- +-- For deleted stacks, @GetTemplate@ returns the template for up to 90 days +-- after the stack has been deleted. +-- +-- If the template doesn\'t exist, a @ValidationError@ is returned. +module Amazonka.CloudFormation.GetTemplate + ( -- * Creating a Request + GetTemplate (..), + newGetTemplate, + + -- * Request Lenses + getTemplate_changeSetName, + getTemplate_stackName, + getTemplate_templateStage, + + -- * Destructuring the Response + GetTemplateResponse (..), + newGetTemplateResponse, + + -- * Response Lenses + getTemplateResponse_stagesAvailable, + getTemplateResponse_templateBody, + getTemplateResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for a GetTemplate action. +-- +-- /See:/ 'newGetTemplate' smart constructor. +data GetTemplate = GetTemplate' + { -- | The name or Amazon Resource Name (ARN) of a change set for which + -- CloudFormation returns the associated template. If you specify a name, + -- you must also specify the @StackName@. + changeSetName :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that\'s associated with the stack, which + -- aren\'t always interchangeable: + -- + -- - Running stacks: You can specify either the stack\'s name or its + -- unique stack ID. + -- + -- - Deleted stacks: You must specify the unique stack ID. + -- + -- Default: There is no default value. + stackName :: Prelude.Maybe Prelude.Text, + -- | For templates that include transforms, the stage of the template that + -- CloudFormation returns. To get the user-submitted template, specify + -- @Original@. To get the template after CloudFormation has processed all + -- transforms, specify @Processed@. + -- + -- If the template doesn\'t include transforms, @Original@ and @Processed@ + -- return the same template. By default, CloudFormation specifies + -- @Processed@. + templateStage :: Prelude.Maybe TemplateStage + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetTemplate' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'changeSetName', 'getTemplate_changeSetName' - The name or Amazon Resource Name (ARN) of a change set for which +-- CloudFormation returns the associated template. If you specify a name, +-- you must also specify the @StackName@. +-- +-- 'stackName', 'getTemplate_stackName' - The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +-- +-- 'templateStage', 'getTemplate_templateStage' - For templates that include transforms, the stage of the template that +-- CloudFormation returns. To get the user-submitted template, specify +-- @Original@. To get the template after CloudFormation has processed all +-- transforms, specify @Processed@. +-- +-- If the template doesn\'t include transforms, @Original@ and @Processed@ +-- return the same template. By default, CloudFormation specifies +-- @Processed@. +newGetTemplate :: + GetTemplate +newGetTemplate = + GetTemplate' + { changeSetName = Prelude.Nothing, + stackName = Prelude.Nothing, + templateStage = Prelude.Nothing + } + +-- | The name or Amazon Resource Name (ARN) of a change set for which +-- CloudFormation returns the associated template. If you specify a name, +-- you must also specify the @StackName@. +getTemplate_changeSetName :: Lens.Lens' GetTemplate (Prelude.Maybe Prelude.Text) +getTemplate_changeSetName = Lens.lens (\GetTemplate' {changeSetName} -> changeSetName) (\s@GetTemplate' {} a -> s {changeSetName = a} :: GetTemplate) + +-- | The name or the unique stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +getTemplate_stackName :: Lens.Lens' GetTemplate (Prelude.Maybe Prelude.Text) +getTemplate_stackName = Lens.lens (\GetTemplate' {stackName} -> stackName) (\s@GetTemplate' {} a -> s {stackName = a} :: GetTemplate) + +-- | For templates that include transforms, the stage of the template that +-- CloudFormation returns. To get the user-submitted template, specify +-- @Original@. To get the template after CloudFormation has processed all +-- transforms, specify @Processed@. +-- +-- If the template doesn\'t include transforms, @Original@ and @Processed@ +-- return the same template. By default, CloudFormation specifies +-- @Processed@. +getTemplate_templateStage :: Lens.Lens' GetTemplate (Prelude.Maybe TemplateStage) +getTemplate_templateStage = Lens.lens (\GetTemplate' {templateStage} -> templateStage) (\s@GetTemplate' {} a -> s {templateStage = a} :: GetTemplate) + +instance Core.AWSRequest GetTemplate where + type AWSResponse GetTemplate = GetTemplateResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "GetTemplateResult" + ( \s h x -> + GetTemplateResponse' + Prelude.<$> ( x + Data..@? "StagesAvailable" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "TemplateBody") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetTemplate where + hashWithSalt _salt GetTemplate' {..} = + _salt + `Prelude.hashWithSalt` changeSetName + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` templateStage + +instance Prelude.NFData GetTemplate where + rnf GetTemplate' {..} = + Prelude.rnf changeSetName + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf templateStage + +instance Data.ToHeaders GetTemplate where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath GetTemplate where + toPath = Prelude.const "/" + +instance Data.ToQuery GetTemplate where + toQuery GetTemplate' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("GetTemplate" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ChangeSetName" Data.=: changeSetName, + "StackName" Data.=: stackName, + "TemplateStage" Data.=: templateStage + ] + +-- | The output for GetTemplate action. +-- +-- /See:/ 'newGetTemplateResponse' smart constructor. +data GetTemplateResponse = GetTemplateResponse' + { -- | The stage of the template that you can retrieve. For stacks, the + -- @Original@ and @Processed@ templates are always available. For change + -- sets, the @Original@ template is always available. After CloudFormation + -- finishes creating the change set, the @Processed@ template becomes + -- available. + stagesAvailable :: Prelude.Maybe [TemplateStage], + -- | Structure containing the template body. (For more information, go to + -- + -- in the CloudFormation User Guide.) + -- + -- CloudFormation returns the same template that was used when the stack + -- was created. + templateBody :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetTemplateResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stagesAvailable', 'getTemplateResponse_stagesAvailable' - The stage of the template that you can retrieve. For stacks, the +-- @Original@ and @Processed@ templates are always available. For change +-- sets, the @Original@ template is always available. After CloudFormation +-- finishes creating the change set, the @Processed@ template becomes +-- available. +-- +-- 'templateBody', 'getTemplateResponse_templateBody' - Structure containing the template body. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- CloudFormation returns the same template that was used when the stack +-- was created. +-- +-- 'httpStatus', 'getTemplateResponse_httpStatus' - The response's http status code. +newGetTemplateResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetTemplateResponse +newGetTemplateResponse pHttpStatus_ = + GetTemplateResponse' + { stagesAvailable = + Prelude.Nothing, + templateBody = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The stage of the template that you can retrieve. For stacks, the +-- @Original@ and @Processed@ templates are always available. For change +-- sets, the @Original@ template is always available. After CloudFormation +-- finishes creating the change set, the @Processed@ template becomes +-- available. +getTemplateResponse_stagesAvailable :: Lens.Lens' GetTemplateResponse (Prelude.Maybe [TemplateStage]) +getTemplateResponse_stagesAvailable = Lens.lens (\GetTemplateResponse' {stagesAvailable} -> stagesAvailable) (\s@GetTemplateResponse' {} a -> s {stagesAvailable = a} :: GetTemplateResponse) Prelude.. Lens.mapping Lens.coerced + +-- | Structure containing the template body. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- CloudFormation returns the same template that was used when the stack +-- was created. +getTemplateResponse_templateBody :: Lens.Lens' GetTemplateResponse (Prelude.Maybe Prelude.Text) +getTemplateResponse_templateBody = Lens.lens (\GetTemplateResponse' {templateBody} -> templateBody) (\s@GetTemplateResponse' {} a -> s {templateBody = a} :: GetTemplateResponse) + +-- | The response's http status code. +getTemplateResponse_httpStatus :: Lens.Lens' GetTemplateResponse Prelude.Int +getTemplateResponse_httpStatus = Lens.lens (\GetTemplateResponse' {httpStatus} -> httpStatus) (\s@GetTemplateResponse' {} a -> s {httpStatus = a} :: GetTemplateResponse) + +instance Prelude.NFData GetTemplateResponse where + rnf GetTemplateResponse' {..} = + Prelude.rnf stagesAvailable + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/GetTemplateSummary.hs b/gen/Amazonka/CloudFormation/GetTemplateSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/GetTemplateSummary.hs @@ -0,0 +1,507 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.GetTemplateSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns information about a new or existing template. The +-- @GetTemplateSummary@ action is useful for viewing parameter information, +-- such as default parameter values and parameter types, before you create +-- or update a stack or stack set. +-- +-- You can use the @GetTemplateSummary@ action when you submit a template, +-- or you can get template information for a stack set, or a running or +-- deleted stack. +-- +-- For deleted stacks, @GetTemplateSummary@ returns the template +-- information for up to 90 days after the stack has been deleted. If the +-- template doesn\'t exist, a @ValidationError@ is returned. +module Amazonka.CloudFormation.GetTemplateSummary + ( -- * Creating a Request + GetTemplateSummary (..), + newGetTemplateSummary, + + -- * Request Lenses + getTemplateSummary_callAs, + getTemplateSummary_stackName, + getTemplateSummary_stackSetName, + getTemplateSummary_templateBody, + getTemplateSummary_templateURL, + + -- * Destructuring the Response + GetTemplateSummaryResponse (..), + newGetTemplateSummaryResponse, + + -- * Response Lenses + getTemplateSummaryResponse_capabilities, + getTemplateSummaryResponse_capabilitiesReason, + getTemplateSummaryResponse_declaredTransforms, + getTemplateSummaryResponse_description, + getTemplateSummaryResponse_metadata, + getTemplateSummaryResponse_parameters, + getTemplateSummaryResponse_resourceIdentifierSummaries, + getTemplateSummaryResponse_resourceTypes, + getTemplateSummaryResponse_version, + getTemplateSummaryResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the GetTemplateSummary action. +-- +-- /See:/ 'newGetTemplateSummary' smart constructor. +data GetTemplateSummary = GetTemplateSummary' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The name or the stack ID that\'s associated with the stack, which + -- aren\'t always interchangeable. For running stacks, you can specify + -- either the stack\'s name or its unique stack ID. For deleted stack, you + -- must specify the unique stack ID. + -- + -- Conditional: You must specify only one of the following parameters: + -- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. + stackName :: Prelude.Maybe Prelude.Text, + -- | The name or unique ID of the stack set from which the stack was created. + -- + -- Conditional: You must specify only one of the following parameters: + -- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. + stackSetName :: Prelude.Maybe Prelude.Text, + -- | Structure containing the template body with a minimum length of 1 byte + -- and a maximum length of 51,200 bytes. For more information about + -- templates, see + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify only one of the following parameters: + -- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. + templateBody :: Prelude.Maybe Prelude.Text, + -- | Location of file containing the template body. The URL must point to a + -- template (max size: 460,800 bytes) that\'s located in an Amazon S3 + -- bucket or a Systems Manager document. For more information about + -- templates, see + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify only one of the following parameters: + -- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. + templateURL :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetTemplateSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'getTemplateSummary_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackName', 'getTemplateSummary_stackName' - The name or the stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable. For running stacks, you can specify +-- either the stack\'s name or its unique stack ID. For deleted stack, you +-- must specify the unique stack ID. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +-- +-- 'stackSetName', 'getTemplateSummary_stackSetName' - The name or unique ID of the stack set from which the stack was created. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +-- +-- 'templateBody', 'getTemplateSummary_templateBody' - Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. For more information about +-- templates, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +-- +-- 'templateURL', 'getTemplateSummary_templateURL' - Location of file containing the template body. The URL must point to a +-- template (max size: 460,800 bytes) that\'s located in an Amazon S3 +-- bucket or a Systems Manager document. For more information about +-- templates, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +newGetTemplateSummary :: + GetTemplateSummary +newGetTemplateSummary = + GetTemplateSummary' + { callAs = Prelude.Nothing, + stackName = Prelude.Nothing, + stackSetName = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +getTemplateSummary_callAs :: Lens.Lens' GetTemplateSummary (Prelude.Maybe CallAs) +getTemplateSummary_callAs = Lens.lens (\GetTemplateSummary' {callAs} -> callAs) (\s@GetTemplateSummary' {} a -> s {callAs = a} :: GetTemplateSummary) + +-- | The name or the stack ID that\'s associated with the stack, which +-- aren\'t always interchangeable. For running stacks, you can specify +-- either the stack\'s name or its unique stack ID. For deleted stack, you +-- must specify the unique stack ID. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +getTemplateSummary_stackName :: Lens.Lens' GetTemplateSummary (Prelude.Maybe Prelude.Text) +getTemplateSummary_stackName = Lens.lens (\GetTemplateSummary' {stackName} -> stackName) (\s@GetTemplateSummary' {} a -> s {stackName = a} :: GetTemplateSummary) + +-- | The name or unique ID of the stack set from which the stack was created. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +getTemplateSummary_stackSetName :: Lens.Lens' GetTemplateSummary (Prelude.Maybe Prelude.Text) +getTemplateSummary_stackSetName = Lens.lens (\GetTemplateSummary' {stackSetName} -> stackSetName) (\s@GetTemplateSummary' {} a -> s {stackSetName = a} :: GetTemplateSummary) + +-- | Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. For more information about +-- templates, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +getTemplateSummary_templateBody :: Lens.Lens' GetTemplateSummary (Prelude.Maybe Prelude.Text) +getTemplateSummary_templateBody = Lens.lens (\GetTemplateSummary' {templateBody} -> templateBody) (\s@GetTemplateSummary' {} a -> s {templateBody = a} :: GetTemplateSummary) + +-- | Location of file containing the template body. The URL must point to a +-- template (max size: 460,800 bytes) that\'s located in an Amazon S3 +-- bucket or a Systems Manager document. For more information about +-- templates, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @StackName@, @StackSetName@, @TemplateBody@, or @TemplateURL@. +getTemplateSummary_templateURL :: Lens.Lens' GetTemplateSummary (Prelude.Maybe Prelude.Text) +getTemplateSummary_templateURL = Lens.lens (\GetTemplateSummary' {templateURL} -> templateURL) (\s@GetTemplateSummary' {} a -> s {templateURL = a} :: GetTemplateSummary) + +instance Core.AWSRequest GetTemplateSummary where + type + AWSResponse GetTemplateSummary = + GetTemplateSummaryResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "GetTemplateSummaryResult" + ( \s h x -> + GetTemplateSummaryResponse' + Prelude.<$> ( x + Data..@? "Capabilities" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "CapabilitiesReason") + Prelude.<*> ( x + Data..@? "DeclaredTransforms" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "Metadata") + Prelude.<*> ( x + Data..@? "Parameters" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "ResourceIdentifierSummaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "ResourceTypes" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "Version") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetTemplateSummary where + hashWithSalt _salt GetTemplateSummary' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + +instance Prelude.NFData GetTemplateSummary where + rnf GetTemplateSummary' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + +instance Data.ToHeaders GetTemplateSummary where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath GetTemplateSummary where + toPath = Prelude.const "/" + +instance Data.ToQuery GetTemplateSummary where + toQuery GetTemplateSummary' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("GetTemplateSummary" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "StackName" Data.=: stackName, + "StackSetName" Data.=: stackSetName, + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL + ] + +-- | The output for the GetTemplateSummary action. +-- +-- /See:/ 'newGetTemplateSummaryResponse' smart constructor. +data GetTemplateSummaryResponse = GetTemplateSummaryResponse' + { -- | The capabilities found within the template. If your template contains + -- IAM resources, you must specify the @CAPABILITY_IAM@ or + -- @CAPABILITY_NAMED_IAM@ value for this parameter when you use the + -- CreateStack or UpdateStack actions with your template; otherwise, those + -- actions return an @InsufficientCapabilities@ error. + -- + -- For more information, see + -- . + capabilities :: Prelude.Maybe [Capability], + -- | The list of resources that generated the values in the @Capabilities@ + -- response element. + capabilitiesReason :: Prelude.Maybe Prelude.Text, + -- | A list of the transforms that are declared in the template. + declaredTransforms :: Prelude.Maybe [Prelude.Text], + -- | The value that\'s defined in the @Description@ property of the template. + description :: Prelude.Maybe Prelude.Text, + -- | The value that\'s defined for the @Metadata@ property of the template. + metadata :: Prelude.Maybe Prelude.Text, + -- | A list of parameter declarations that describe various properties for + -- each parameter. + parameters :: Prelude.Maybe [ParameterDeclaration], + -- | A list of resource identifier summaries that describe the target + -- resources of an import operation and the properties you can provide + -- during the import to identify the target resources. For example, + -- @BucketName@ is a possible identifier property for an @AWS::S3::Bucket@ + -- resource. + resourceIdentifierSummaries :: Prelude.Maybe [ResourceIdentifierSummary], + -- | A list of all the template resource types that are defined in the + -- template, such as @AWS::EC2::Instance@, @AWS::Dynamo::Table@, and + -- @Custom::MyCustomInstance@. + resourceTypes :: Prelude.Maybe [Prelude.Text], + -- | The Amazon Web Services template format version, which identifies the + -- capabilities of the template. + version :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetTemplateSummaryResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'getTemplateSummaryResponse_capabilities' - The capabilities found within the template. If your template contains +-- IAM resources, you must specify the @CAPABILITY_IAM@ or +-- @CAPABILITY_NAMED_IAM@ value for this parameter when you use the +-- CreateStack or UpdateStack actions with your template; otherwise, those +-- actions return an @InsufficientCapabilities@ error. +-- +-- For more information, see +-- . +-- +-- 'capabilitiesReason', 'getTemplateSummaryResponse_capabilitiesReason' - The list of resources that generated the values in the @Capabilities@ +-- response element. +-- +-- 'declaredTransforms', 'getTemplateSummaryResponse_declaredTransforms' - A list of the transforms that are declared in the template. +-- +-- 'description', 'getTemplateSummaryResponse_description' - The value that\'s defined in the @Description@ property of the template. +-- +-- 'metadata', 'getTemplateSummaryResponse_metadata' - The value that\'s defined for the @Metadata@ property of the template. +-- +-- 'parameters', 'getTemplateSummaryResponse_parameters' - A list of parameter declarations that describe various properties for +-- each parameter. +-- +-- 'resourceIdentifierSummaries', 'getTemplateSummaryResponse_resourceIdentifierSummaries' - A list of resource identifier summaries that describe the target +-- resources of an import operation and the properties you can provide +-- during the import to identify the target resources. For example, +-- @BucketName@ is a possible identifier property for an @AWS::S3::Bucket@ +-- resource. +-- +-- 'resourceTypes', 'getTemplateSummaryResponse_resourceTypes' - A list of all the template resource types that are defined in the +-- template, such as @AWS::EC2::Instance@, @AWS::Dynamo::Table@, and +-- @Custom::MyCustomInstance@. +-- +-- 'version', 'getTemplateSummaryResponse_version' - The Amazon Web Services template format version, which identifies the +-- capabilities of the template. +-- +-- 'httpStatus', 'getTemplateSummaryResponse_httpStatus' - The response's http status code. +newGetTemplateSummaryResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetTemplateSummaryResponse +newGetTemplateSummaryResponse pHttpStatus_ = + GetTemplateSummaryResponse' + { capabilities = + Prelude.Nothing, + capabilitiesReason = Prelude.Nothing, + declaredTransforms = Prelude.Nothing, + description = Prelude.Nothing, + metadata = Prelude.Nothing, + parameters = Prelude.Nothing, + resourceIdentifierSummaries = Prelude.Nothing, + resourceTypes = Prelude.Nothing, + version = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The capabilities found within the template. If your template contains +-- IAM resources, you must specify the @CAPABILITY_IAM@ or +-- @CAPABILITY_NAMED_IAM@ value for this parameter when you use the +-- CreateStack or UpdateStack actions with your template; otherwise, those +-- actions return an @InsufficientCapabilities@ error. +-- +-- For more information, see +-- . +getTemplateSummaryResponse_capabilities :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe [Capability]) +getTemplateSummaryResponse_capabilities = Lens.lens (\GetTemplateSummaryResponse' {capabilities} -> capabilities) (\s@GetTemplateSummaryResponse' {} a -> s {capabilities = a} :: GetTemplateSummaryResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The list of resources that generated the values in the @Capabilities@ +-- response element. +getTemplateSummaryResponse_capabilitiesReason :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe Prelude.Text) +getTemplateSummaryResponse_capabilitiesReason = Lens.lens (\GetTemplateSummaryResponse' {capabilitiesReason} -> capabilitiesReason) (\s@GetTemplateSummaryResponse' {} a -> s {capabilitiesReason = a} :: GetTemplateSummaryResponse) + +-- | A list of the transforms that are declared in the template. +getTemplateSummaryResponse_declaredTransforms :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe [Prelude.Text]) +getTemplateSummaryResponse_declaredTransforms = Lens.lens (\GetTemplateSummaryResponse' {declaredTransforms} -> declaredTransforms) (\s@GetTemplateSummaryResponse' {} a -> s {declaredTransforms = a} :: GetTemplateSummaryResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The value that\'s defined in the @Description@ property of the template. +getTemplateSummaryResponse_description :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe Prelude.Text) +getTemplateSummaryResponse_description = Lens.lens (\GetTemplateSummaryResponse' {description} -> description) (\s@GetTemplateSummaryResponse' {} a -> s {description = a} :: GetTemplateSummaryResponse) + +-- | The value that\'s defined for the @Metadata@ property of the template. +getTemplateSummaryResponse_metadata :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe Prelude.Text) +getTemplateSummaryResponse_metadata = Lens.lens (\GetTemplateSummaryResponse' {metadata} -> metadata) (\s@GetTemplateSummaryResponse' {} a -> s {metadata = a} :: GetTemplateSummaryResponse) + +-- | A list of parameter declarations that describe various properties for +-- each parameter. +getTemplateSummaryResponse_parameters :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe [ParameterDeclaration]) +getTemplateSummaryResponse_parameters = Lens.lens (\GetTemplateSummaryResponse' {parameters} -> parameters) (\s@GetTemplateSummaryResponse' {} a -> s {parameters = a} :: GetTemplateSummaryResponse) Prelude.. Lens.mapping Lens.coerced + +-- | A list of resource identifier summaries that describe the target +-- resources of an import operation and the properties you can provide +-- during the import to identify the target resources. For example, +-- @BucketName@ is a possible identifier property for an @AWS::S3::Bucket@ +-- resource. +getTemplateSummaryResponse_resourceIdentifierSummaries :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe [ResourceIdentifierSummary]) +getTemplateSummaryResponse_resourceIdentifierSummaries = Lens.lens (\GetTemplateSummaryResponse' {resourceIdentifierSummaries} -> resourceIdentifierSummaries) (\s@GetTemplateSummaryResponse' {} a -> s {resourceIdentifierSummaries = a} :: GetTemplateSummaryResponse) Prelude.. Lens.mapping Lens.coerced + +-- | A list of all the template resource types that are defined in the +-- template, such as @AWS::EC2::Instance@, @AWS::Dynamo::Table@, and +-- @Custom::MyCustomInstance@. +getTemplateSummaryResponse_resourceTypes :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe [Prelude.Text]) +getTemplateSummaryResponse_resourceTypes = Lens.lens (\GetTemplateSummaryResponse' {resourceTypes} -> resourceTypes) (\s@GetTemplateSummaryResponse' {} a -> s {resourceTypes = a} :: GetTemplateSummaryResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Web Services template format version, which identifies the +-- capabilities of the template. +getTemplateSummaryResponse_version :: Lens.Lens' GetTemplateSummaryResponse (Prelude.Maybe Prelude.Text) +getTemplateSummaryResponse_version = Lens.lens (\GetTemplateSummaryResponse' {version} -> version) (\s@GetTemplateSummaryResponse' {} a -> s {version = a} :: GetTemplateSummaryResponse) + +-- | The response's http status code. +getTemplateSummaryResponse_httpStatus :: Lens.Lens' GetTemplateSummaryResponse Prelude.Int +getTemplateSummaryResponse_httpStatus = Lens.lens (\GetTemplateSummaryResponse' {httpStatus} -> httpStatus) (\s@GetTemplateSummaryResponse' {} a -> s {httpStatus = a} :: GetTemplateSummaryResponse) + +instance Prelude.NFData GetTemplateSummaryResponse where + rnf GetTemplateSummaryResponse' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf capabilitiesReason + `Prelude.seq` Prelude.rnf declaredTransforms + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf metadata + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf resourceIdentifierSummaries + `Prelude.seq` Prelude.rnf resourceTypes + `Prelude.seq` Prelude.rnf version + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ImportStacksToStackSet.hs b/gen/Amazonka/CloudFormation/ImportStacksToStackSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ImportStacksToStackSet.hs @@ -0,0 +1,288 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ImportStacksToStackSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Import existing stacks into a new stack sets. Use the stack import +-- operation to import up to 10 stacks into a new stack set in the same +-- account as the source stack or in a different administrator account and +-- Region, by specifying the stack ID of the stack you intend to import. +-- +-- @ImportStacksToStackSet@ is only supported by self-managed permissions. +module Amazonka.CloudFormation.ImportStacksToStackSet + ( -- * Creating a Request + ImportStacksToStackSet (..), + newImportStacksToStackSet, + + -- * Request Lenses + importStacksToStackSet_callAs, + importStacksToStackSet_operationId, + importStacksToStackSet_operationPreferences, + importStacksToStackSet_organizationalUnitIds, + importStacksToStackSet_stackIds, + importStacksToStackSet_stackIdsUrl, + importStacksToStackSet_stackSetName, + + -- * Destructuring the Response + ImportStacksToStackSetResponse (..), + newImportStacksToStackSetResponse, + + -- * Response Lenses + importStacksToStackSetResponse_operationId, + importStacksToStackSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newImportStacksToStackSet' smart constructor. +data ImportStacksToStackSet = ImportStacksToStackSet' + { -- | By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - For service managed stack sets, specify @DELEGATED_ADMIN@. + callAs :: Prelude.Maybe CallAs, + -- | A unique, user defined, identifier for the stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | The list of OU ID\'s to which the stacks being imported has to be mapped + -- as deployment target. + organizationalUnitIds :: Prelude.Maybe [Prelude.Text], + -- | The IDs of the stacks you are importing into a stack set. You import up + -- to 10 stacks per stack set at a time. + -- + -- Specify either @StackIds@ or @StackIdsUrl@. + stackIds :: Prelude.Maybe [Prelude.Text], + -- | The Amazon S3 URL which contains list of stack ids to be inputted. + -- + -- Specify either @StackIds@ or @StackIdsUrl@. + stackIdsUrl :: Prelude.Maybe Prelude.Text, + -- | The name of the stack set. The name must be unique in the Region where + -- you create your stack set. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ImportStacksToStackSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'importStacksToStackSet_callAs' - By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - For service managed stack sets, specify @DELEGATED_ADMIN@. +-- +-- 'operationId', 'importStacksToStackSet_operationId' - A unique, user defined, identifier for the stack set operation. +-- +-- 'operationPreferences', 'importStacksToStackSet_operationPreferences' - Undocumented member. +-- +-- 'organizationalUnitIds', 'importStacksToStackSet_organizationalUnitIds' - The list of OU ID\'s to which the stacks being imported has to be mapped +-- as deployment target. +-- +-- 'stackIds', 'importStacksToStackSet_stackIds' - The IDs of the stacks you are importing into a stack set. You import up +-- to 10 stacks per stack set at a time. +-- +-- Specify either @StackIds@ or @StackIdsUrl@. +-- +-- 'stackIdsUrl', 'importStacksToStackSet_stackIdsUrl' - The Amazon S3 URL which contains list of stack ids to be inputted. +-- +-- Specify either @StackIds@ or @StackIdsUrl@. +-- +-- 'stackSetName', 'importStacksToStackSet_stackSetName' - The name of the stack set. The name must be unique in the Region where +-- you create your stack set. +newImportStacksToStackSet :: + -- | 'stackSetName' + Prelude.Text -> + ImportStacksToStackSet +newImportStacksToStackSet pStackSetName_ = + ImportStacksToStackSet' + { callAs = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + organizationalUnitIds = Prelude.Nothing, + stackIds = Prelude.Nothing, + stackIdsUrl = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - For service managed stack sets, specify @DELEGATED_ADMIN@. +importStacksToStackSet_callAs :: Lens.Lens' ImportStacksToStackSet (Prelude.Maybe CallAs) +importStacksToStackSet_callAs = Lens.lens (\ImportStacksToStackSet' {callAs} -> callAs) (\s@ImportStacksToStackSet' {} a -> s {callAs = a} :: ImportStacksToStackSet) + +-- | A unique, user defined, identifier for the stack set operation. +importStacksToStackSet_operationId :: Lens.Lens' ImportStacksToStackSet (Prelude.Maybe Prelude.Text) +importStacksToStackSet_operationId = Lens.lens (\ImportStacksToStackSet' {operationId} -> operationId) (\s@ImportStacksToStackSet' {} a -> s {operationId = a} :: ImportStacksToStackSet) + +-- | Undocumented member. +importStacksToStackSet_operationPreferences :: Lens.Lens' ImportStacksToStackSet (Prelude.Maybe StackSetOperationPreferences) +importStacksToStackSet_operationPreferences = Lens.lens (\ImportStacksToStackSet' {operationPreferences} -> operationPreferences) (\s@ImportStacksToStackSet' {} a -> s {operationPreferences = a} :: ImportStacksToStackSet) + +-- | The list of OU ID\'s to which the stacks being imported has to be mapped +-- as deployment target. +importStacksToStackSet_organizationalUnitIds :: Lens.Lens' ImportStacksToStackSet (Prelude.Maybe [Prelude.Text]) +importStacksToStackSet_organizationalUnitIds = Lens.lens (\ImportStacksToStackSet' {organizationalUnitIds} -> organizationalUnitIds) (\s@ImportStacksToStackSet' {} a -> s {organizationalUnitIds = a} :: ImportStacksToStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The IDs of the stacks you are importing into a stack set. You import up +-- to 10 stacks per stack set at a time. +-- +-- Specify either @StackIds@ or @StackIdsUrl@. +importStacksToStackSet_stackIds :: Lens.Lens' ImportStacksToStackSet (Prelude.Maybe [Prelude.Text]) +importStacksToStackSet_stackIds = Lens.lens (\ImportStacksToStackSet' {stackIds} -> stackIds) (\s@ImportStacksToStackSet' {} a -> s {stackIds = a} :: ImportStacksToStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon S3 URL which contains list of stack ids to be inputted. +-- +-- Specify either @StackIds@ or @StackIdsUrl@. +importStacksToStackSet_stackIdsUrl :: Lens.Lens' ImportStacksToStackSet (Prelude.Maybe Prelude.Text) +importStacksToStackSet_stackIdsUrl = Lens.lens (\ImportStacksToStackSet' {stackIdsUrl} -> stackIdsUrl) (\s@ImportStacksToStackSet' {} a -> s {stackIdsUrl = a} :: ImportStacksToStackSet) + +-- | The name of the stack set. The name must be unique in the Region where +-- you create your stack set. +importStacksToStackSet_stackSetName :: Lens.Lens' ImportStacksToStackSet Prelude.Text +importStacksToStackSet_stackSetName = Lens.lens (\ImportStacksToStackSet' {stackSetName} -> stackSetName) (\s@ImportStacksToStackSet' {} a -> s {stackSetName = a} :: ImportStacksToStackSet) + +instance Core.AWSRequest ImportStacksToStackSet where + type + AWSResponse ImportStacksToStackSet = + ImportStacksToStackSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ImportStacksToStackSetResult" + ( \s h x -> + ImportStacksToStackSetResponse' + Prelude.<$> (x Data..@? "OperationId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ImportStacksToStackSet where + hashWithSalt _salt ImportStacksToStackSet' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` organizationalUnitIds + `Prelude.hashWithSalt` stackIds + `Prelude.hashWithSalt` stackIdsUrl + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData ImportStacksToStackSet where + rnf ImportStacksToStackSet' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf organizationalUnitIds + `Prelude.seq` Prelude.rnf stackIds + `Prelude.seq` Prelude.rnf stackIdsUrl + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders ImportStacksToStackSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ImportStacksToStackSet where + toPath = Prelude.const "/" + +instance Data.ToQuery ImportStacksToStackSet where + toQuery ImportStacksToStackSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ImportStacksToStackSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "OperationId" Data.=: operationId, + "OperationPreferences" Data.=: operationPreferences, + "OrganizationalUnitIds" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> organizationalUnitIds + ), + "StackIds" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> stackIds), + "StackIdsUrl" Data.=: stackIdsUrl, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newImportStacksToStackSetResponse' smart constructor. +data ImportStacksToStackSetResponse = ImportStacksToStackSetResponse' + { -- | The unique identifier for the stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ImportStacksToStackSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'operationId', 'importStacksToStackSetResponse_operationId' - The unique identifier for the stack set operation. +-- +-- 'httpStatus', 'importStacksToStackSetResponse_httpStatus' - The response's http status code. +newImportStacksToStackSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + ImportStacksToStackSetResponse +newImportStacksToStackSetResponse pHttpStatus_ = + ImportStacksToStackSetResponse' + { operationId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The unique identifier for the stack set operation. +importStacksToStackSetResponse_operationId :: Lens.Lens' ImportStacksToStackSetResponse (Prelude.Maybe Prelude.Text) +importStacksToStackSetResponse_operationId = Lens.lens (\ImportStacksToStackSetResponse' {operationId} -> operationId) (\s@ImportStacksToStackSetResponse' {} a -> s {operationId = a} :: ImportStacksToStackSetResponse) + +-- | The response's http status code. +importStacksToStackSetResponse_httpStatus :: Lens.Lens' ImportStacksToStackSetResponse Prelude.Int +importStacksToStackSetResponse_httpStatus = Lens.lens (\ImportStacksToStackSetResponse' {httpStatus} -> httpStatus) (\s@ImportStacksToStackSetResponse' {} a -> s {httpStatus = a} :: ImportStacksToStackSetResponse) + +instance + Prelude.NFData + ImportStacksToStackSetResponse + where + rnf ImportStacksToStackSetResponse' {..} = + Prelude.rnf operationId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/Lens.hs b/gen/Amazonka/CloudFormation/Lens.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Lens.hs @@ -0,0 +1,1250 @@ +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Lens +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Lens + ( -- * Operations + + -- ** ActivateType + activateType_autoUpdate, + activateType_executionRoleArn, + activateType_loggingConfig, + activateType_majorVersion, + activateType_publicTypeArn, + activateType_publisherId, + activateType_type, + activateType_typeName, + activateType_typeNameAlias, + activateType_versionBump, + activateTypeResponse_arn, + activateTypeResponse_httpStatus, + + -- ** BatchDescribeTypeConfigurations + batchDescribeTypeConfigurations_typeConfigurationIdentifiers, + batchDescribeTypeConfigurationsResponse_errors, + batchDescribeTypeConfigurationsResponse_typeConfigurations, + batchDescribeTypeConfigurationsResponse_unprocessedTypeConfigurations, + batchDescribeTypeConfigurationsResponse_httpStatus, + + -- ** CancelUpdateStack + cancelUpdateStack_clientRequestToken, + cancelUpdateStack_stackName, + + -- ** ContinueUpdateRollback + continueUpdateRollback_clientRequestToken, + continueUpdateRollback_resourcesToSkip, + continueUpdateRollback_roleARN, + continueUpdateRollback_stackName, + continueUpdateRollbackResponse_httpStatus, + + -- ** CreateChangeSet + createChangeSet_capabilities, + createChangeSet_changeSetType, + createChangeSet_clientToken, + createChangeSet_description, + createChangeSet_includeNestedStacks, + createChangeSet_notificationARNs, + createChangeSet_parameters, + createChangeSet_resourceTypes, + createChangeSet_resourcesToImport, + createChangeSet_roleARN, + createChangeSet_rollbackConfiguration, + createChangeSet_tags, + createChangeSet_templateBody, + createChangeSet_templateURL, + createChangeSet_usePreviousTemplate, + createChangeSet_stackName, + createChangeSet_changeSetName, + createChangeSetResponse_id, + createChangeSetResponse_stackId, + createChangeSetResponse_httpStatus, + + -- ** CreateStack + createStack_capabilities, + createStack_clientRequestToken, + createStack_disableRollback, + createStack_enableTerminationProtection, + createStack_notificationARNs, + createStack_onFailure, + createStack_parameters, + createStack_resourceTypes, + createStack_roleARN, + createStack_rollbackConfiguration, + createStack_stackPolicyBody, + createStack_stackPolicyURL, + createStack_tags, + createStack_templateBody, + createStack_templateURL, + createStack_timeoutInMinutes, + createStack_stackName, + createStackResponse_stackId, + createStackResponse_httpStatus, + + -- ** CreateStackInstances + createStackInstances_accounts, + createStackInstances_callAs, + createStackInstances_deploymentTargets, + createStackInstances_operationId, + createStackInstances_operationPreferences, + createStackInstances_parameterOverrides, + createStackInstances_stackSetName, + createStackInstances_regions, + createStackInstancesResponse_operationId, + createStackInstancesResponse_httpStatus, + + -- ** CreateStackSet + createStackSet_administrationRoleARN, + createStackSet_autoDeployment, + createStackSet_callAs, + createStackSet_capabilities, + createStackSet_clientRequestToken, + createStackSet_description, + createStackSet_executionRoleName, + createStackSet_managedExecution, + createStackSet_parameters, + createStackSet_permissionModel, + createStackSet_stackId, + createStackSet_tags, + createStackSet_templateBody, + createStackSet_templateURL, + createStackSet_stackSetName, + createStackSetResponse_stackSetId, + createStackSetResponse_httpStatus, + + -- ** DeactivateType + deactivateType_arn, + deactivateType_type, + deactivateType_typeName, + deactivateTypeResponse_httpStatus, + + -- ** DeleteChangeSet + deleteChangeSet_stackName, + deleteChangeSet_changeSetName, + deleteChangeSetResponse_httpStatus, + + -- ** DeleteStack + deleteStack_clientRequestToken, + deleteStack_retainResources, + deleteStack_roleARN, + deleteStack_stackName, + + -- ** DeleteStackInstances + deleteStackInstances_accounts, + deleteStackInstances_callAs, + deleteStackInstances_deploymentTargets, + deleteStackInstances_operationId, + deleteStackInstances_operationPreferences, + deleteStackInstances_stackSetName, + deleteStackInstances_regions, + deleteStackInstances_retainStacks, + deleteStackInstancesResponse_operationId, + deleteStackInstancesResponse_httpStatus, + + -- ** DeleteStackSet + deleteStackSet_callAs, + deleteStackSet_stackSetName, + deleteStackSetResponse_httpStatus, + + -- ** DeregisterType + deregisterType_arn, + deregisterType_type, + deregisterType_typeName, + deregisterType_versionId, + deregisterTypeResponse_httpStatus, + + -- ** DescribeAccountLimits + describeAccountLimits_nextToken, + describeAccountLimitsResponse_accountLimits, + describeAccountLimitsResponse_nextToken, + describeAccountLimitsResponse_httpStatus, + + -- ** DescribeChangeSet + describeChangeSet_nextToken, + describeChangeSet_stackName, + describeChangeSet_changeSetName, + describeChangeSetResponse_capabilities, + describeChangeSetResponse_changeSetId, + describeChangeSetResponse_changeSetName, + describeChangeSetResponse_changes, + describeChangeSetResponse_creationTime, + describeChangeSetResponse_description, + describeChangeSetResponse_executionStatus, + describeChangeSetResponse_includeNestedStacks, + describeChangeSetResponse_nextToken, + describeChangeSetResponse_notificationARNs, + describeChangeSetResponse_parameters, + describeChangeSetResponse_parentChangeSetId, + describeChangeSetResponse_rollbackConfiguration, + describeChangeSetResponse_rootChangeSetId, + describeChangeSetResponse_stackId, + describeChangeSetResponse_stackName, + describeChangeSetResponse_statusReason, + describeChangeSetResponse_tags, + describeChangeSetResponse_httpStatus, + describeChangeSetResponse_status, + + -- ** DescribeChangeSetHooks + describeChangeSetHooks_logicalResourceId, + describeChangeSetHooks_nextToken, + describeChangeSetHooks_stackName, + describeChangeSetHooks_changeSetName, + describeChangeSetHooksResponse_changeSetId, + describeChangeSetHooksResponse_changeSetName, + describeChangeSetHooksResponse_hooks, + describeChangeSetHooksResponse_nextToken, + describeChangeSetHooksResponse_stackId, + describeChangeSetHooksResponse_stackName, + describeChangeSetHooksResponse_status, + describeChangeSetHooksResponse_httpStatus, + + -- ** DescribePublisher + describePublisher_publisherId, + describePublisherResponse_identityProvider, + describePublisherResponse_publisherId, + describePublisherResponse_publisherProfile, + describePublisherResponse_publisherStatus, + describePublisherResponse_httpStatus, + + -- ** DescribeStackDriftDetectionStatus + describeStackDriftDetectionStatus_stackDriftDetectionId, + describeStackDriftDetectionStatusResponse_detectionStatusReason, + describeStackDriftDetectionStatusResponse_driftedStackResourceCount, + describeStackDriftDetectionStatusResponse_stackDriftStatus, + describeStackDriftDetectionStatusResponse_httpStatus, + describeStackDriftDetectionStatusResponse_stackId, + describeStackDriftDetectionStatusResponse_stackDriftDetectionId, + describeStackDriftDetectionStatusResponse_detectionStatus, + describeStackDriftDetectionStatusResponse_timestamp, + + -- ** DescribeStackEvents + describeStackEvents_nextToken, + describeStackEvents_stackName, + describeStackEventsResponse_nextToken, + describeStackEventsResponse_stackEvents, + describeStackEventsResponse_httpStatus, + + -- ** DescribeStackInstance + describeStackInstance_callAs, + describeStackInstance_stackSetName, + describeStackInstance_stackInstanceAccount, + describeStackInstance_stackInstanceRegion, + describeStackInstanceResponse_stackInstance, + describeStackInstanceResponse_httpStatus, + + -- ** DescribeStackResource + describeStackResource_stackName, + describeStackResource_logicalResourceId, + describeStackResourceResponse_stackResourceDetail, + describeStackResourceResponse_httpStatus, + + -- ** DescribeStackResourceDrifts + describeStackResourceDrifts_maxResults, + describeStackResourceDrifts_nextToken, + describeStackResourceDrifts_stackResourceDriftStatusFilters, + describeStackResourceDrifts_stackName, + describeStackResourceDriftsResponse_nextToken, + describeStackResourceDriftsResponse_httpStatus, + describeStackResourceDriftsResponse_stackResourceDrifts, + + -- ** DescribeStackResources + describeStackResources_logicalResourceId, + describeStackResources_physicalResourceId, + describeStackResources_stackName, + describeStackResourcesResponse_stackResources, + describeStackResourcesResponse_httpStatus, + + -- ** DescribeStackSet + describeStackSet_callAs, + describeStackSet_stackSetName, + describeStackSetResponse_stackSet, + describeStackSetResponse_httpStatus, + + -- ** DescribeStackSetOperation + describeStackSetOperation_callAs, + describeStackSetOperation_stackSetName, + describeStackSetOperation_operationId, + describeStackSetOperationResponse_stackSetOperation, + describeStackSetOperationResponse_httpStatus, + + -- ** DescribeStacks + describeStacks_nextToken, + describeStacks_stackName, + describeStacksResponse_nextToken, + describeStacksResponse_stacks, + describeStacksResponse_httpStatus, + + -- ** DescribeType + describeType_arn, + describeType_publicVersionNumber, + describeType_publisherId, + describeType_type, + describeType_typeName, + describeType_versionId, + describeTypeResponse_arn, + describeTypeResponse_autoUpdate, + describeTypeResponse_configurationSchema, + describeTypeResponse_defaultVersionId, + describeTypeResponse_deprecatedStatus, + describeTypeResponse_description, + describeTypeResponse_documentationUrl, + describeTypeResponse_executionRoleArn, + describeTypeResponse_isActivated, + describeTypeResponse_isDefaultVersion, + describeTypeResponse_lastUpdated, + describeTypeResponse_latestPublicVersion, + describeTypeResponse_loggingConfig, + describeTypeResponse_originalTypeArn, + describeTypeResponse_originalTypeName, + describeTypeResponse_provisioningType, + describeTypeResponse_publicVersionNumber, + describeTypeResponse_publisherId, + describeTypeResponse_requiredActivatedTypes, + describeTypeResponse_schema, + describeTypeResponse_sourceUrl, + describeTypeResponse_timeCreated, + describeTypeResponse_type, + describeTypeResponse_typeName, + describeTypeResponse_typeTestsStatus, + describeTypeResponse_typeTestsStatusDescription, + describeTypeResponse_visibility, + describeTypeResponse_httpStatus, + + -- ** DescribeTypeRegistration + describeTypeRegistration_registrationToken, + describeTypeRegistrationResponse_description, + describeTypeRegistrationResponse_progressStatus, + describeTypeRegistrationResponse_typeArn, + describeTypeRegistrationResponse_typeVersionArn, + describeTypeRegistrationResponse_httpStatus, + + -- ** DetectStackDrift + detectStackDrift_logicalResourceIds, + detectStackDrift_stackName, + detectStackDriftResponse_httpStatus, + detectStackDriftResponse_stackDriftDetectionId, + + -- ** DetectStackResourceDrift + detectStackResourceDrift_stackName, + detectStackResourceDrift_logicalResourceId, + detectStackResourceDriftResponse_httpStatus, + detectStackResourceDriftResponse_stackResourceDrift, + + -- ** DetectStackSetDrift + detectStackSetDrift_callAs, + detectStackSetDrift_operationId, + detectStackSetDrift_operationPreferences, + detectStackSetDrift_stackSetName, + detectStackSetDriftResponse_operationId, + detectStackSetDriftResponse_httpStatus, + + -- ** EstimateTemplateCost + estimateTemplateCost_parameters, + estimateTemplateCost_templateBody, + estimateTemplateCost_templateURL, + estimateTemplateCostResponse_url, + estimateTemplateCostResponse_httpStatus, + + -- ** ExecuteChangeSet + executeChangeSet_clientRequestToken, + executeChangeSet_disableRollback, + executeChangeSet_stackName, + executeChangeSet_changeSetName, + executeChangeSetResponse_httpStatus, + + -- ** GetStackPolicy + getStackPolicy_stackName, + getStackPolicyResponse_stackPolicyBody, + getStackPolicyResponse_httpStatus, + + -- ** GetTemplate + getTemplate_changeSetName, + getTemplate_stackName, + getTemplate_templateStage, + getTemplateResponse_stagesAvailable, + getTemplateResponse_templateBody, + getTemplateResponse_httpStatus, + + -- ** GetTemplateSummary + getTemplateSummary_callAs, + getTemplateSummary_stackName, + getTemplateSummary_stackSetName, + getTemplateSummary_templateBody, + getTemplateSummary_templateURL, + getTemplateSummaryResponse_capabilities, + getTemplateSummaryResponse_capabilitiesReason, + getTemplateSummaryResponse_declaredTransforms, + getTemplateSummaryResponse_description, + getTemplateSummaryResponse_metadata, + getTemplateSummaryResponse_parameters, + getTemplateSummaryResponse_resourceIdentifierSummaries, + getTemplateSummaryResponse_resourceTypes, + getTemplateSummaryResponse_version, + getTemplateSummaryResponse_httpStatus, + + -- ** ImportStacksToStackSet + importStacksToStackSet_callAs, + importStacksToStackSet_operationId, + importStacksToStackSet_operationPreferences, + importStacksToStackSet_organizationalUnitIds, + importStacksToStackSet_stackIds, + importStacksToStackSet_stackIdsUrl, + importStacksToStackSet_stackSetName, + importStacksToStackSetResponse_operationId, + importStacksToStackSetResponse_httpStatus, + + -- ** ListChangeSets + listChangeSets_nextToken, + listChangeSets_stackName, + listChangeSetsResponse_nextToken, + listChangeSetsResponse_summaries, + listChangeSetsResponse_httpStatus, + + -- ** ListExports + listExports_nextToken, + listExportsResponse_exports, + listExportsResponse_nextToken, + listExportsResponse_httpStatus, + + -- ** ListImports + listImports_nextToken, + listImports_exportName, + listImportsResponse_imports, + listImportsResponse_nextToken, + listImportsResponse_httpStatus, + + -- ** ListStackInstances + listStackInstances_callAs, + listStackInstances_filters, + listStackInstances_maxResults, + listStackInstances_nextToken, + listStackInstances_stackInstanceAccount, + listStackInstances_stackInstanceRegion, + listStackInstances_stackSetName, + listStackInstancesResponse_nextToken, + listStackInstancesResponse_summaries, + listStackInstancesResponse_httpStatus, + + -- ** ListStackResources + listStackResources_nextToken, + listStackResources_stackName, + listStackResourcesResponse_nextToken, + listStackResourcesResponse_stackResourceSummaries, + listStackResourcesResponse_httpStatus, + + -- ** ListStackSetOperationResults + listStackSetOperationResults_callAs, + listStackSetOperationResults_filters, + listStackSetOperationResults_maxResults, + listStackSetOperationResults_nextToken, + listStackSetOperationResults_stackSetName, + listStackSetOperationResults_operationId, + listStackSetOperationResultsResponse_nextToken, + listStackSetOperationResultsResponse_summaries, + listStackSetOperationResultsResponse_httpStatus, + + -- ** ListStackSetOperations + listStackSetOperations_callAs, + listStackSetOperations_maxResults, + listStackSetOperations_nextToken, + listStackSetOperations_stackSetName, + listStackSetOperationsResponse_nextToken, + listStackSetOperationsResponse_summaries, + listStackSetOperationsResponse_httpStatus, + + -- ** ListStackSets + listStackSets_callAs, + listStackSets_maxResults, + listStackSets_nextToken, + listStackSets_status, + listStackSetsResponse_nextToken, + listStackSetsResponse_summaries, + listStackSetsResponse_httpStatus, + + -- ** ListStacks + listStacks_nextToken, + listStacks_stackStatusFilter, + listStacksResponse_nextToken, + listStacksResponse_stackSummaries, + listStacksResponse_httpStatus, + + -- ** ListTypeRegistrations + listTypeRegistrations_maxResults, + listTypeRegistrations_nextToken, + listTypeRegistrations_registrationStatusFilter, + listTypeRegistrations_type, + listTypeRegistrations_typeArn, + listTypeRegistrations_typeName, + listTypeRegistrationsResponse_nextToken, + listTypeRegistrationsResponse_registrationTokenList, + listTypeRegistrationsResponse_httpStatus, + + -- ** ListTypeVersions + listTypeVersions_arn, + listTypeVersions_deprecatedStatus, + listTypeVersions_maxResults, + listTypeVersions_nextToken, + listTypeVersions_publisherId, + listTypeVersions_type, + listTypeVersions_typeName, + listTypeVersionsResponse_nextToken, + listTypeVersionsResponse_typeVersionSummaries, + listTypeVersionsResponse_httpStatus, + + -- ** ListTypes + listTypes_deprecatedStatus, + listTypes_filters, + listTypes_maxResults, + listTypes_nextToken, + listTypes_provisioningType, + listTypes_type, + listTypes_visibility, + listTypesResponse_nextToken, + listTypesResponse_typeSummaries, + listTypesResponse_httpStatus, + + -- ** PublishType + publishType_arn, + publishType_publicVersionNumber, + publishType_type, + publishType_typeName, + publishTypeResponse_publicTypeArn, + publishTypeResponse_httpStatus, + + -- ** RecordHandlerProgress + recordHandlerProgress_clientRequestToken, + recordHandlerProgress_currentOperationStatus, + recordHandlerProgress_errorCode, + recordHandlerProgress_resourceModel, + recordHandlerProgress_statusMessage, + recordHandlerProgress_bearerToken, + recordHandlerProgress_operationStatus, + recordHandlerProgressResponse_httpStatus, + + -- ** RegisterPublisher + registerPublisher_acceptTermsAndConditions, + registerPublisher_connectionArn, + registerPublisherResponse_publisherId, + registerPublisherResponse_httpStatus, + + -- ** RegisterType + registerType_clientRequestToken, + registerType_executionRoleArn, + registerType_loggingConfig, + registerType_type, + registerType_typeName, + registerType_schemaHandlerPackage, + registerTypeResponse_registrationToken, + registerTypeResponse_httpStatus, + + -- ** RollbackStack + rollbackStack_clientRequestToken, + rollbackStack_roleARN, + rollbackStack_stackName, + rollbackStackResponse_stackId, + rollbackStackResponse_httpStatus, + + -- ** SetStackPolicy + setStackPolicy_stackPolicyBody, + setStackPolicy_stackPolicyURL, + setStackPolicy_stackName, + + -- ** SetTypeConfiguration + setTypeConfiguration_configurationAlias, + setTypeConfiguration_type, + setTypeConfiguration_typeArn, + setTypeConfiguration_typeName, + setTypeConfiguration_configuration, + setTypeConfigurationResponse_configurationArn, + setTypeConfigurationResponse_httpStatus, + + -- ** SetTypeDefaultVersion + setTypeDefaultVersion_arn, + setTypeDefaultVersion_type, + setTypeDefaultVersion_typeName, + setTypeDefaultVersion_versionId, + setTypeDefaultVersionResponse_httpStatus, + + -- ** SignalResource + signalResource_stackName, + signalResource_logicalResourceId, + signalResource_uniqueId, + signalResource_status, + + -- ** StopStackSetOperation + stopStackSetOperation_callAs, + stopStackSetOperation_stackSetName, + stopStackSetOperation_operationId, + stopStackSetOperationResponse_httpStatus, + + -- ** TestType + testType_arn, + testType_logDeliveryBucket, + testType_type, + testType_typeName, + testType_versionId, + testTypeResponse_typeVersionArn, + testTypeResponse_httpStatus, + + -- ** UpdateStack + updateStack_capabilities, + updateStack_clientRequestToken, + updateStack_disableRollback, + updateStack_notificationARNs, + updateStack_parameters, + updateStack_resourceTypes, + updateStack_roleARN, + updateStack_rollbackConfiguration, + updateStack_stackPolicyBody, + updateStack_stackPolicyDuringUpdateBody, + updateStack_stackPolicyDuringUpdateURL, + updateStack_stackPolicyURL, + updateStack_tags, + updateStack_templateBody, + updateStack_templateURL, + updateStack_usePreviousTemplate, + updateStack_stackName, + updateStackResponse_stackId, + updateStackResponse_httpStatus, + + -- ** UpdateStackInstances + updateStackInstances_accounts, + updateStackInstances_callAs, + updateStackInstances_deploymentTargets, + updateStackInstances_operationId, + updateStackInstances_operationPreferences, + updateStackInstances_parameterOverrides, + updateStackInstances_stackSetName, + updateStackInstances_regions, + updateStackInstancesResponse_operationId, + updateStackInstancesResponse_httpStatus, + + -- ** UpdateStackSet + updateStackSet_accounts, + updateStackSet_administrationRoleARN, + updateStackSet_autoDeployment, + updateStackSet_callAs, + updateStackSet_capabilities, + updateStackSet_deploymentTargets, + updateStackSet_description, + updateStackSet_executionRoleName, + updateStackSet_managedExecution, + updateStackSet_operationId, + updateStackSet_operationPreferences, + updateStackSet_parameters, + updateStackSet_permissionModel, + updateStackSet_regions, + updateStackSet_tags, + updateStackSet_templateBody, + updateStackSet_templateURL, + updateStackSet_usePreviousTemplate, + updateStackSet_stackSetName, + updateStackSetResponse_operationId, + updateStackSetResponse_httpStatus, + + -- ** UpdateTerminationProtection + updateTerminationProtection_enableTerminationProtection, + updateTerminationProtection_stackName, + updateTerminationProtectionResponse_stackId, + updateTerminationProtectionResponse_httpStatus, + + -- ** ValidateTemplate + validateTemplate_templateBody, + validateTemplate_templateURL, + validateTemplateResponse_capabilities, + validateTemplateResponse_capabilitiesReason, + validateTemplateResponse_declaredTransforms, + validateTemplateResponse_description, + validateTemplateResponse_parameters, + validateTemplateResponse_httpStatus, + + -- * Types + + -- ** AccountGateResult + accountGateResult_status, + accountGateResult_statusReason, + + -- ** AccountLimit + accountLimit_name, + accountLimit_value, + + -- ** AutoDeployment + autoDeployment_enabled, + autoDeployment_retainStacksOnAccountRemoval, + + -- ** BatchDescribeTypeConfigurationsError + batchDescribeTypeConfigurationsError_errorCode, + batchDescribeTypeConfigurationsError_errorMessage, + batchDescribeTypeConfigurationsError_typeConfigurationIdentifier, + + -- ** Change + change_hookInvocationCount, + change_resourceChange, + change_type, + + -- ** ChangeSetHook + changeSetHook_failureMode, + changeSetHook_invocationPoint, + changeSetHook_targetDetails, + changeSetHook_typeConfigurationVersionId, + changeSetHook_typeName, + changeSetHook_typeVersionId, + + -- ** ChangeSetHookResourceTargetDetails + changeSetHookResourceTargetDetails_logicalResourceId, + changeSetHookResourceTargetDetails_resourceAction, + changeSetHookResourceTargetDetails_resourceType, + + -- ** ChangeSetHookTargetDetails + changeSetHookTargetDetails_resourceTargetDetails, + changeSetHookTargetDetails_targetType, + + -- ** ChangeSetSummary + changeSetSummary_changeSetId, + changeSetSummary_changeSetName, + changeSetSummary_creationTime, + changeSetSummary_description, + changeSetSummary_executionStatus, + changeSetSummary_includeNestedStacks, + changeSetSummary_parentChangeSetId, + changeSetSummary_rootChangeSetId, + changeSetSummary_stackId, + changeSetSummary_stackName, + changeSetSummary_status, + changeSetSummary_statusReason, + + -- ** DeploymentTargets + deploymentTargets_accountFilterType, + deploymentTargets_accounts, + deploymentTargets_accountsUrl, + deploymentTargets_organizationalUnitIds, + + -- ** Export + export_exportingStackId, + export_name, + export_value, + + -- ** LoggingConfig + loggingConfig_logRoleArn, + loggingConfig_logGroupName, + + -- ** ManagedExecution + managedExecution_active, + + -- ** ModuleInfo + moduleInfo_logicalIdHierarchy, + moduleInfo_typeHierarchy, + + -- ** OperationResultFilter + operationResultFilter_name, + operationResultFilter_values, + + -- ** Output + output_description, + output_exportName, + output_outputKey, + output_outputValue, + + -- ** Parameter + parameter_parameterKey, + parameter_parameterValue, + parameter_resolvedValue, + parameter_usePreviousValue, + + -- ** ParameterConstraints + parameterConstraints_allowedValues, + + -- ** ParameterDeclaration + parameterDeclaration_defaultValue, + parameterDeclaration_description, + parameterDeclaration_noEcho, + parameterDeclaration_parameterConstraints, + parameterDeclaration_parameterKey, + parameterDeclaration_parameterType, + + -- ** PhysicalResourceIdContextKeyValuePair + physicalResourceIdContextKeyValuePair_key, + physicalResourceIdContextKeyValuePair_value, + + -- ** PropertyDifference + propertyDifference_propertyPath, + propertyDifference_expectedValue, + propertyDifference_actualValue, + propertyDifference_differenceType, + + -- ** RequiredActivatedType + requiredActivatedType_originalTypeName, + requiredActivatedType_publisherId, + requiredActivatedType_supportedMajorVersions, + requiredActivatedType_typeNameAlias, + + -- ** ResourceChange + resourceChange_action, + resourceChange_changeSetId, + resourceChange_details, + resourceChange_logicalResourceId, + resourceChange_moduleInfo, + resourceChange_physicalResourceId, + resourceChange_replacement, + resourceChange_resourceType, + resourceChange_scope, + + -- ** ResourceChangeDetail + resourceChangeDetail_causingEntity, + resourceChangeDetail_changeSource, + resourceChangeDetail_evaluation, + resourceChangeDetail_target, + + -- ** ResourceIdentifierSummary + resourceIdentifierSummary_logicalResourceIds, + resourceIdentifierSummary_resourceIdentifiers, + resourceIdentifierSummary_resourceType, + + -- ** ResourceTargetDefinition + resourceTargetDefinition_attribute, + resourceTargetDefinition_name, + resourceTargetDefinition_requiresRecreation, + + -- ** ResourceToImport + resourceToImport_resourceType, + resourceToImport_logicalResourceId, + resourceToImport_resourceIdentifier, + + -- ** RollbackConfiguration + rollbackConfiguration_monitoringTimeInMinutes, + rollbackConfiguration_rollbackTriggers, + + -- ** RollbackTrigger + rollbackTrigger_arn, + rollbackTrigger_type, + + -- ** Stack + stack_capabilities, + stack_changeSetId, + stack_deletionTime, + stack_description, + stack_disableRollback, + stack_driftInformation, + stack_enableTerminationProtection, + stack_lastUpdatedTime, + stack_notificationARNs, + stack_outputs, + stack_parameters, + stack_parentId, + stack_roleARN, + stack_rollbackConfiguration, + stack_rootId, + stack_stackId, + stack_stackStatusReason, + stack_tags, + stack_timeoutInMinutes, + stack_stackName, + stack_creationTime, + stack_stackStatus, + + -- ** StackDriftInformation + stackDriftInformation_lastCheckTimestamp, + stackDriftInformation_stackDriftStatus, + + -- ** StackDriftInformationSummary + stackDriftInformationSummary_lastCheckTimestamp, + stackDriftInformationSummary_stackDriftStatus, + + -- ** StackEvent + stackEvent_clientRequestToken, + stackEvent_hookFailureMode, + stackEvent_hookInvocationPoint, + stackEvent_hookStatus, + stackEvent_hookStatusReason, + stackEvent_hookType, + stackEvent_logicalResourceId, + stackEvent_physicalResourceId, + stackEvent_resourceProperties, + stackEvent_resourceStatus, + stackEvent_resourceStatusReason, + stackEvent_resourceType, + stackEvent_stackId, + stackEvent_eventId, + stackEvent_stackName, + stackEvent_timestamp, + + -- ** StackInstance + stackInstance_account, + stackInstance_driftStatus, + stackInstance_lastDriftCheckTimestamp, + stackInstance_lastOperationId, + stackInstance_organizationalUnitId, + stackInstance_parameterOverrides, + stackInstance_region, + stackInstance_stackId, + stackInstance_stackInstanceStatus, + stackInstance_stackSetId, + stackInstance_status, + stackInstance_statusReason, + + -- ** StackInstanceComprehensiveStatus + stackInstanceComprehensiveStatus_detailedStatus, + + -- ** StackInstanceFilter + stackInstanceFilter_name, + stackInstanceFilter_values, + + -- ** StackInstanceSummary + stackInstanceSummary_account, + stackInstanceSummary_driftStatus, + stackInstanceSummary_lastDriftCheckTimestamp, + stackInstanceSummary_lastOperationId, + stackInstanceSummary_organizationalUnitId, + stackInstanceSummary_region, + stackInstanceSummary_stackId, + stackInstanceSummary_stackInstanceStatus, + stackInstanceSummary_stackSetId, + stackInstanceSummary_status, + stackInstanceSummary_statusReason, + + -- ** StackResource + stackResource_description, + stackResource_driftInformation, + stackResource_moduleInfo, + stackResource_physicalResourceId, + stackResource_resourceStatusReason, + stackResource_stackId, + stackResource_stackName, + stackResource_logicalResourceId, + stackResource_resourceType, + stackResource_timestamp, + stackResource_resourceStatus, + + -- ** StackResourceDetail + stackResourceDetail_description, + stackResourceDetail_driftInformation, + stackResourceDetail_metadata, + stackResourceDetail_moduleInfo, + stackResourceDetail_physicalResourceId, + stackResourceDetail_resourceStatusReason, + stackResourceDetail_stackId, + stackResourceDetail_stackName, + stackResourceDetail_logicalResourceId, + stackResourceDetail_resourceType, + stackResourceDetail_lastUpdatedTimestamp, + stackResourceDetail_resourceStatus, + + -- ** StackResourceDrift + stackResourceDrift_actualProperties, + stackResourceDrift_expectedProperties, + stackResourceDrift_moduleInfo, + stackResourceDrift_physicalResourceId, + stackResourceDrift_physicalResourceIdContext, + stackResourceDrift_propertyDifferences, + stackResourceDrift_stackId, + stackResourceDrift_logicalResourceId, + stackResourceDrift_resourceType, + stackResourceDrift_stackResourceDriftStatus, + stackResourceDrift_timestamp, + + -- ** StackResourceDriftInformation + stackResourceDriftInformation_lastCheckTimestamp, + stackResourceDriftInformation_stackResourceDriftStatus, + + -- ** StackResourceDriftInformationSummary + stackResourceDriftInformationSummary_lastCheckTimestamp, + stackResourceDriftInformationSummary_stackResourceDriftStatus, + + -- ** StackResourceSummary + stackResourceSummary_driftInformation, + stackResourceSummary_moduleInfo, + stackResourceSummary_physicalResourceId, + stackResourceSummary_resourceStatusReason, + stackResourceSummary_logicalResourceId, + stackResourceSummary_resourceType, + stackResourceSummary_lastUpdatedTimestamp, + stackResourceSummary_resourceStatus, + + -- ** StackSet + stackSet_administrationRoleARN, + stackSet_autoDeployment, + stackSet_capabilities, + stackSet_description, + stackSet_executionRoleName, + stackSet_managedExecution, + stackSet_organizationalUnitIds, + stackSet_parameters, + stackSet_permissionModel, + stackSet_stackSetARN, + stackSet_stackSetDriftDetectionDetails, + stackSet_stackSetId, + stackSet_stackSetName, + stackSet_status, + stackSet_tags, + stackSet_templateBody, + + -- ** StackSetDriftDetectionDetails + stackSetDriftDetectionDetails_driftDetectionStatus, + stackSetDriftDetectionDetails_driftStatus, + stackSetDriftDetectionDetails_driftedStackInstancesCount, + stackSetDriftDetectionDetails_failedStackInstancesCount, + stackSetDriftDetectionDetails_inProgressStackInstancesCount, + stackSetDriftDetectionDetails_inSyncStackInstancesCount, + stackSetDriftDetectionDetails_lastDriftCheckTimestamp, + stackSetDriftDetectionDetails_totalStackInstancesCount, + + -- ** StackSetOperation + stackSetOperation_action, + stackSetOperation_administrationRoleARN, + stackSetOperation_creationTimestamp, + stackSetOperation_deploymentTargets, + stackSetOperation_endTimestamp, + stackSetOperation_executionRoleName, + stackSetOperation_operationId, + stackSetOperation_operationPreferences, + stackSetOperation_retainStacks, + stackSetOperation_stackSetDriftDetectionDetails, + stackSetOperation_stackSetId, + stackSetOperation_status, + stackSetOperation_statusDetails, + stackSetOperation_statusReason, + + -- ** StackSetOperationPreferences + stackSetOperationPreferences_failureToleranceCount, + stackSetOperationPreferences_failureTolerancePercentage, + stackSetOperationPreferences_maxConcurrentCount, + stackSetOperationPreferences_maxConcurrentPercentage, + stackSetOperationPreferences_regionConcurrencyType, + stackSetOperationPreferences_regionOrder, + + -- ** StackSetOperationResultSummary + stackSetOperationResultSummary_account, + stackSetOperationResultSummary_accountGateResult, + stackSetOperationResultSummary_organizationalUnitId, + stackSetOperationResultSummary_region, + stackSetOperationResultSummary_status, + stackSetOperationResultSummary_statusReason, + + -- ** StackSetOperationStatusDetails + stackSetOperationStatusDetails_failedStackInstancesCount, + + -- ** StackSetOperationSummary + stackSetOperationSummary_action, + stackSetOperationSummary_creationTimestamp, + stackSetOperationSummary_endTimestamp, + stackSetOperationSummary_operationId, + stackSetOperationSummary_operationPreferences, + stackSetOperationSummary_status, + stackSetOperationSummary_statusDetails, + stackSetOperationSummary_statusReason, + + -- ** StackSetSummary + stackSetSummary_autoDeployment, + stackSetSummary_description, + stackSetSummary_driftStatus, + stackSetSummary_lastDriftCheckTimestamp, + stackSetSummary_managedExecution, + stackSetSummary_permissionModel, + stackSetSummary_stackSetId, + stackSetSummary_stackSetName, + stackSetSummary_status, + + -- ** StackSummary + stackSummary_deletionTime, + stackSummary_driftInformation, + stackSummary_lastUpdatedTime, + stackSummary_parentId, + stackSummary_rootId, + stackSummary_stackId, + stackSummary_stackStatusReason, + stackSummary_templateDescription, + stackSummary_stackName, + stackSummary_creationTime, + stackSummary_stackStatus, + + -- ** Tag + tag_key, + tag_value, + + -- ** TemplateParameter + templateParameter_defaultValue, + templateParameter_description, + templateParameter_noEcho, + templateParameter_parameterKey, + + -- ** TypeConfigurationDetails + typeConfigurationDetails_alias, + typeConfigurationDetails_arn, + typeConfigurationDetails_configuration, + typeConfigurationDetails_isDefaultConfiguration, + typeConfigurationDetails_lastUpdated, + typeConfigurationDetails_typeArn, + typeConfigurationDetails_typeName, + + -- ** TypeConfigurationIdentifier + typeConfigurationIdentifier_type, + typeConfigurationIdentifier_typeArn, + typeConfigurationIdentifier_typeConfigurationAlias, + typeConfigurationIdentifier_typeConfigurationArn, + typeConfigurationIdentifier_typeName, + + -- ** TypeFilters + typeFilters_category, + typeFilters_publisherId, + typeFilters_typeNamePrefix, + + -- ** TypeSummary + typeSummary_defaultVersionId, + typeSummary_description, + typeSummary_isActivated, + typeSummary_lastUpdated, + typeSummary_latestPublicVersion, + typeSummary_originalTypeName, + typeSummary_publicVersionNumber, + typeSummary_publisherId, + typeSummary_publisherIdentity, + typeSummary_publisherName, + typeSummary_type, + typeSummary_typeArn, + typeSummary_typeName, + + -- ** TypeVersionSummary + typeVersionSummary_arn, + typeVersionSummary_description, + typeVersionSummary_isDefaultVersion, + typeVersionSummary_publicVersionNumber, + typeVersionSummary_timeCreated, + typeVersionSummary_type, + typeVersionSummary_typeName, + typeVersionSummary_versionId, + ) +where + +import Amazonka.CloudFormation.ActivateType +import Amazonka.CloudFormation.BatchDescribeTypeConfigurations +import Amazonka.CloudFormation.CancelUpdateStack +import Amazonka.CloudFormation.ContinueUpdateRollback +import Amazonka.CloudFormation.CreateChangeSet +import Amazonka.CloudFormation.CreateStack +import Amazonka.CloudFormation.CreateStackInstances +import Amazonka.CloudFormation.CreateStackSet +import Amazonka.CloudFormation.DeactivateType +import Amazonka.CloudFormation.DeleteChangeSet +import Amazonka.CloudFormation.DeleteStack +import Amazonka.CloudFormation.DeleteStackInstances +import Amazonka.CloudFormation.DeleteStackSet +import Amazonka.CloudFormation.DeregisterType +import Amazonka.CloudFormation.DescribeAccountLimits +import Amazonka.CloudFormation.DescribeChangeSet +import Amazonka.CloudFormation.DescribeChangeSetHooks +import Amazonka.CloudFormation.DescribePublisher +import Amazonka.CloudFormation.DescribeStackDriftDetectionStatus +import Amazonka.CloudFormation.DescribeStackEvents +import Amazonka.CloudFormation.DescribeStackInstance +import Amazonka.CloudFormation.DescribeStackResource +import Amazonka.CloudFormation.DescribeStackResourceDrifts +import Amazonka.CloudFormation.DescribeStackResources +import Amazonka.CloudFormation.DescribeStackSet +import Amazonka.CloudFormation.DescribeStackSetOperation +import Amazonka.CloudFormation.DescribeStacks +import Amazonka.CloudFormation.DescribeType +import Amazonka.CloudFormation.DescribeTypeRegistration +import Amazonka.CloudFormation.DetectStackDrift +import Amazonka.CloudFormation.DetectStackResourceDrift +import Amazonka.CloudFormation.DetectStackSetDrift +import Amazonka.CloudFormation.EstimateTemplateCost +import Amazonka.CloudFormation.ExecuteChangeSet +import Amazonka.CloudFormation.GetStackPolicy +import Amazonka.CloudFormation.GetTemplate +import Amazonka.CloudFormation.GetTemplateSummary +import Amazonka.CloudFormation.ImportStacksToStackSet +import Amazonka.CloudFormation.ListChangeSets +import Amazonka.CloudFormation.ListExports +import Amazonka.CloudFormation.ListImports +import Amazonka.CloudFormation.ListStackInstances +import Amazonka.CloudFormation.ListStackResources +import Amazonka.CloudFormation.ListStackSetOperationResults +import Amazonka.CloudFormation.ListStackSetOperations +import Amazonka.CloudFormation.ListStackSets +import Amazonka.CloudFormation.ListStacks +import Amazonka.CloudFormation.ListTypeRegistrations +import Amazonka.CloudFormation.ListTypeVersions +import Amazonka.CloudFormation.ListTypes +import Amazonka.CloudFormation.PublishType +import Amazonka.CloudFormation.RecordHandlerProgress +import Amazonka.CloudFormation.RegisterPublisher +import Amazonka.CloudFormation.RegisterType +import Amazonka.CloudFormation.RollbackStack +import Amazonka.CloudFormation.SetStackPolicy +import Amazonka.CloudFormation.SetTypeConfiguration +import Amazonka.CloudFormation.SetTypeDefaultVersion +import Amazonka.CloudFormation.SignalResource +import Amazonka.CloudFormation.StopStackSetOperation +import Amazonka.CloudFormation.TestType +import Amazonka.CloudFormation.Types.AccountGateResult +import Amazonka.CloudFormation.Types.AccountLimit +import Amazonka.CloudFormation.Types.AutoDeployment +import Amazonka.CloudFormation.Types.BatchDescribeTypeConfigurationsError +import Amazonka.CloudFormation.Types.Change +import Amazonka.CloudFormation.Types.ChangeSetHook +import Amazonka.CloudFormation.Types.ChangeSetHookResourceTargetDetails +import Amazonka.CloudFormation.Types.ChangeSetHookTargetDetails +import Amazonka.CloudFormation.Types.ChangeSetSummary +import Amazonka.CloudFormation.Types.DeploymentTargets +import Amazonka.CloudFormation.Types.Export +import Amazonka.CloudFormation.Types.LoggingConfig +import Amazonka.CloudFormation.Types.ManagedExecution +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.OperationResultFilter +import Amazonka.CloudFormation.Types.Output +import Amazonka.CloudFormation.Types.Parameter +import Amazonka.CloudFormation.Types.ParameterConstraints +import Amazonka.CloudFormation.Types.ParameterDeclaration +import Amazonka.CloudFormation.Types.PhysicalResourceIdContextKeyValuePair +import Amazonka.CloudFormation.Types.PropertyDifference +import Amazonka.CloudFormation.Types.RequiredActivatedType +import Amazonka.CloudFormation.Types.ResourceChange +import Amazonka.CloudFormation.Types.ResourceChangeDetail +import Amazonka.CloudFormation.Types.ResourceIdentifierSummary +import Amazonka.CloudFormation.Types.ResourceTargetDefinition +import Amazonka.CloudFormation.Types.ResourceToImport +import Amazonka.CloudFormation.Types.RollbackConfiguration +import Amazonka.CloudFormation.Types.RollbackTrigger +import Amazonka.CloudFormation.Types.Stack +import Amazonka.CloudFormation.Types.StackDriftInformation +import Amazonka.CloudFormation.Types.StackDriftInformationSummary +import Amazonka.CloudFormation.Types.StackEvent +import Amazonka.CloudFormation.Types.StackInstance +import Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus +import Amazonka.CloudFormation.Types.StackInstanceFilter +import Amazonka.CloudFormation.Types.StackInstanceSummary +import Amazonka.CloudFormation.Types.StackResource +import Amazonka.CloudFormation.Types.StackResourceDetail +import Amazonka.CloudFormation.Types.StackResourceDrift +import Amazonka.CloudFormation.Types.StackResourceDriftInformation +import Amazonka.CloudFormation.Types.StackResourceDriftInformationSummary +import Amazonka.CloudFormation.Types.StackResourceSummary +import Amazonka.CloudFormation.Types.StackSet +import Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails +import Amazonka.CloudFormation.Types.StackSetOperation +import Amazonka.CloudFormation.Types.StackSetOperationPreferences +import Amazonka.CloudFormation.Types.StackSetOperationResultSummary +import Amazonka.CloudFormation.Types.StackSetOperationStatusDetails +import Amazonka.CloudFormation.Types.StackSetOperationSummary +import Amazonka.CloudFormation.Types.StackSetSummary +import Amazonka.CloudFormation.Types.StackSummary +import Amazonka.CloudFormation.Types.Tag +import Amazonka.CloudFormation.Types.TemplateParameter +import Amazonka.CloudFormation.Types.TypeConfigurationDetails +import Amazonka.CloudFormation.Types.TypeConfigurationIdentifier +import Amazonka.CloudFormation.Types.TypeFilters +import Amazonka.CloudFormation.Types.TypeSummary +import Amazonka.CloudFormation.Types.TypeVersionSummary +import Amazonka.CloudFormation.UpdateStack +import Amazonka.CloudFormation.UpdateStackInstances +import Amazonka.CloudFormation.UpdateStackSet +import Amazonka.CloudFormation.UpdateTerminationProtection +import Amazonka.CloudFormation.ValidateTemplate diff --git a/gen/Amazonka/CloudFormation/ListChangeSets.hs b/gen/Amazonka/CloudFormation/ListChangeSets.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListChangeSets.hs @@ -0,0 +1,232 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListChangeSets +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the ID and status of each active change set for a stack. For +-- example, CloudFormation lists change sets that are in the +-- @CREATE_IN_PROGRESS@ or @CREATE_PENDING@ state. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListChangeSets + ( -- * Creating a Request + ListChangeSets (..), + newListChangeSets, + + -- * Request Lenses + listChangeSets_nextToken, + listChangeSets_stackName, + + -- * Destructuring the Response + ListChangeSetsResponse (..), + newListChangeSetsResponse, + + -- * Response Lenses + listChangeSetsResponse_nextToken, + listChangeSetsResponse_summaries, + listChangeSetsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the ListChangeSets action. +-- +-- /See:/ 'newListChangeSets' smart constructor. +data ListChangeSets = ListChangeSets' + { -- | A string (provided by the ListChangeSets response output) that + -- identifies the next page of change sets that you want to retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name or the Amazon Resource Name (ARN) of the stack for which you + -- want to list change sets. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListChangeSets' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listChangeSets_nextToken' - A string (provided by the ListChangeSets response output) that +-- identifies the next page of change sets that you want to retrieve. +-- +-- 'stackName', 'listChangeSets_stackName' - The name or the Amazon Resource Name (ARN) of the stack for which you +-- want to list change sets. +newListChangeSets :: + -- | 'stackName' + Prelude.Text -> + ListChangeSets +newListChangeSets pStackName_ = + ListChangeSets' + { nextToken = Prelude.Nothing, + stackName = pStackName_ + } + +-- | A string (provided by the ListChangeSets response output) that +-- identifies the next page of change sets that you want to retrieve. +listChangeSets_nextToken :: Lens.Lens' ListChangeSets (Prelude.Maybe Prelude.Text) +listChangeSets_nextToken = Lens.lens (\ListChangeSets' {nextToken} -> nextToken) (\s@ListChangeSets' {} a -> s {nextToken = a} :: ListChangeSets) + +-- | The name or the Amazon Resource Name (ARN) of the stack for which you +-- want to list change sets. +listChangeSets_stackName :: Lens.Lens' ListChangeSets Prelude.Text +listChangeSets_stackName = Lens.lens (\ListChangeSets' {stackName} -> stackName) (\s@ListChangeSets' {} a -> s {stackName = a} :: ListChangeSets) + +instance Core.AWSPager ListChangeSets where + page rq rs + | Core.stop + ( rs + Lens.^? listChangeSetsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listChangeSetsResponse_summaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listChangeSets_nextToken + Lens..~ rs + Lens.^? listChangeSetsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListChangeSets where + type + AWSResponse ListChangeSets = + ListChangeSetsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListChangeSetsResult" + ( \s h x -> + ListChangeSetsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "Summaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListChangeSets where + hashWithSalt _salt ListChangeSets' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData ListChangeSets where + rnf ListChangeSets' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders ListChangeSets where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListChangeSets where + toPath = Prelude.const "/" + +instance Data.ToQuery ListChangeSets where + toQuery ListChangeSets' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListChangeSets" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "StackName" Data.=: stackName + ] + +-- | The output for the ListChangeSets action. +-- +-- /See:/ 'newListChangeSetsResponse' smart constructor. +data ListChangeSetsResponse = ListChangeSetsResponse' + { -- | If the output exceeds 1 MB, a string that identifies the next page of + -- change sets. If there is no additional page, this value is @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @ChangeSetSummary@ structures that provides the ID and status + -- of each change set for the specified stack. + summaries :: Prelude.Maybe [ChangeSetSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListChangeSetsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listChangeSetsResponse_nextToken' - If the output exceeds 1 MB, a string that identifies the next page of +-- change sets. If there is no additional page, this value is @null@. +-- +-- 'summaries', 'listChangeSetsResponse_summaries' - A list of @ChangeSetSummary@ structures that provides the ID and status +-- of each change set for the specified stack. +-- +-- 'httpStatus', 'listChangeSetsResponse_httpStatus' - The response's http status code. +newListChangeSetsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListChangeSetsResponse +newListChangeSetsResponse pHttpStatus_ = + ListChangeSetsResponse' + { nextToken = + Prelude.Nothing, + summaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the output exceeds 1 MB, a string that identifies the next page of +-- change sets. If there is no additional page, this value is @null@. +listChangeSetsResponse_nextToken :: Lens.Lens' ListChangeSetsResponse (Prelude.Maybe Prelude.Text) +listChangeSetsResponse_nextToken = Lens.lens (\ListChangeSetsResponse' {nextToken} -> nextToken) (\s@ListChangeSetsResponse' {} a -> s {nextToken = a} :: ListChangeSetsResponse) + +-- | A list of @ChangeSetSummary@ structures that provides the ID and status +-- of each change set for the specified stack. +listChangeSetsResponse_summaries :: Lens.Lens' ListChangeSetsResponse (Prelude.Maybe [ChangeSetSummary]) +listChangeSetsResponse_summaries = Lens.lens (\ListChangeSetsResponse' {summaries} -> summaries) (\s@ListChangeSetsResponse' {} a -> s {summaries = a} :: ListChangeSetsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listChangeSetsResponse_httpStatus :: Lens.Lens' ListChangeSetsResponse Prelude.Int +listChangeSetsResponse_httpStatus = Lens.lens (\ListChangeSetsResponse' {httpStatus} -> httpStatus) (\s@ListChangeSetsResponse' {} a -> s {httpStatus = a} :: ListChangeSetsResponse) + +instance Prelude.NFData ListChangeSetsResponse where + rnf ListChangeSetsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf summaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListExports.hs b/gen/Amazonka/CloudFormation/ListExports.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListExports.hs @@ -0,0 +1,208 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListExports +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists all exported output values in the account and Region in which you +-- call this action. Use this action to see the exported output values that +-- you can import into other stacks. To import values, use the +-- +-- function. +-- +-- For more information, see +-- . +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListExports + ( -- * Creating a Request + ListExports (..), + newListExports, + + -- * Request Lenses + listExports_nextToken, + + -- * Destructuring the Response + ListExportsResponse (..), + newListExportsResponse, + + -- * Response Lenses + listExportsResponse_exports, + listExportsResponse_nextToken, + listExportsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListExports' smart constructor. +data ListExports = ListExports' + { -- | A string (provided by the ListExports response output) that identifies + -- the next page of exported output values that you asked to retrieve. + nextToken :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListExports' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listExports_nextToken' - A string (provided by the ListExports response output) that identifies +-- the next page of exported output values that you asked to retrieve. +newListExports :: + ListExports +newListExports = + ListExports' {nextToken = Prelude.Nothing} + +-- | A string (provided by the ListExports response output) that identifies +-- the next page of exported output values that you asked to retrieve. +listExports_nextToken :: Lens.Lens' ListExports (Prelude.Maybe Prelude.Text) +listExports_nextToken = Lens.lens (\ListExports' {nextToken} -> nextToken) (\s@ListExports' {} a -> s {nextToken = a} :: ListExports) + +instance Core.AWSPager ListExports where + page rq rs + | Core.stop + ( rs + Lens.^? listExportsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listExportsResponse_exports + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listExports_nextToken + Lens..~ rs + Lens.^? listExportsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListExports where + type AWSResponse ListExports = ListExportsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListExportsResult" + ( \s h x -> + ListExportsResponse' + Prelude.<$> ( x + Data..@? "Exports" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "NextToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListExports where + hashWithSalt _salt ListExports' {..} = + _salt `Prelude.hashWithSalt` nextToken + +instance Prelude.NFData ListExports where + rnf ListExports' {..} = Prelude.rnf nextToken + +instance Data.ToHeaders ListExports where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListExports where + toPath = Prelude.const "/" + +instance Data.ToQuery ListExports where + toQuery ListExports' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListExports" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken + ] + +-- | /See:/ 'newListExportsResponse' smart constructor. +data ListExportsResponse = ListExportsResponse' + { -- | The output for the ListExports action. + exports :: Prelude.Maybe [Export], + -- | If the output exceeds 100 exported output values, a string that + -- identifies the next page of exports. If there is no additional page, + -- this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListExportsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'exports', 'listExportsResponse_exports' - The output for the ListExports action. +-- +-- 'nextToken', 'listExportsResponse_nextToken' - If the output exceeds 100 exported output values, a string that +-- identifies the next page of exports. If there is no additional page, +-- this value is null. +-- +-- 'httpStatus', 'listExportsResponse_httpStatus' - The response's http status code. +newListExportsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListExportsResponse +newListExportsResponse pHttpStatus_ = + ListExportsResponse' + { exports = Prelude.Nothing, + nextToken = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The output for the ListExports action. +listExportsResponse_exports :: Lens.Lens' ListExportsResponse (Prelude.Maybe [Export]) +listExportsResponse_exports = Lens.lens (\ListExportsResponse' {exports} -> exports) (\s@ListExportsResponse' {} a -> s {exports = a} :: ListExportsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | If the output exceeds 100 exported output values, a string that +-- identifies the next page of exports. If there is no additional page, +-- this value is null. +listExportsResponse_nextToken :: Lens.Lens' ListExportsResponse (Prelude.Maybe Prelude.Text) +listExportsResponse_nextToken = Lens.lens (\ListExportsResponse' {nextToken} -> nextToken) (\s@ListExportsResponse' {} a -> s {nextToken = a} :: ListExportsResponse) + +-- | The response's http status code. +listExportsResponse_httpStatus :: Lens.Lens' ListExportsResponse Prelude.Int +listExportsResponse_httpStatus = Lens.lens (\ListExportsResponse' {httpStatus} -> httpStatus) (\s@ListExportsResponse' {} a -> s {httpStatus = a} :: ListExportsResponse) + +instance Prelude.NFData ListExportsResponse where + rnf ListExportsResponse' {..} = + Prelude.rnf exports + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListImports.hs b/gen/Amazonka/CloudFormation/ListImports.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListImports.hs @@ -0,0 +1,233 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListImports +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists all stacks that are importing an exported output value. To modify +-- or remove an exported output value, first use this action to see which +-- stacks are using it. To see the exported output values in your account, +-- see ListExports. +-- +-- For more information about importing an exported output value, see the +-- +-- function. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListImports + ( -- * Creating a Request + ListImports (..), + newListImports, + + -- * Request Lenses + listImports_nextToken, + listImports_exportName, + + -- * Destructuring the Response + ListImportsResponse (..), + newListImportsResponse, + + -- * Response Lenses + listImportsResponse_imports, + listImportsResponse_nextToken, + listImportsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListImports' smart constructor. +data ListImports = ListImports' + { -- | A string (provided by the ListImports response output) that identifies + -- the next page of stacks that are importing the specified exported output + -- value. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name of the exported output value. CloudFormation returns the stack + -- names that are importing this value. + exportName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListImports' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listImports_nextToken' - A string (provided by the ListImports response output) that identifies +-- the next page of stacks that are importing the specified exported output +-- value. +-- +-- 'exportName', 'listImports_exportName' - The name of the exported output value. CloudFormation returns the stack +-- names that are importing this value. +newListImports :: + -- | 'exportName' + Prelude.Text -> + ListImports +newListImports pExportName_ = + ListImports' + { nextToken = Prelude.Nothing, + exportName = pExportName_ + } + +-- | A string (provided by the ListImports response output) that identifies +-- the next page of stacks that are importing the specified exported output +-- value. +listImports_nextToken :: Lens.Lens' ListImports (Prelude.Maybe Prelude.Text) +listImports_nextToken = Lens.lens (\ListImports' {nextToken} -> nextToken) (\s@ListImports' {} a -> s {nextToken = a} :: ListImports) + +-- | The name of the exported output value. CloudFormation returns the stack +-- names that are importing this value. +listImports_exportName :: Lens.Lens' ListImports Prelude.Text +listImports_exportName = Lens.lens (\ListImports' {exportName} -> exportName) (\s@ListImports' {} a -> s {exportName = a} :: ListImports) + +instance Core.AWSPager ListImports where + page rq rs + | Core.stop + ( rs + Lens.^? listImportsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listImportsResponse_imports + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listImports_nextToken + Lens..~ rs + Lens.^? listImportsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListImports where + type AWSResponse ListImports = ListImportsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListImportsResult" + ( \s h x -> + ListImportsResponse' + Prelude.<$> ( x + Data..@? "Imports" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "NextToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListImports where + hashWithSalt _salt ListImports' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` exportName + +instance Prelude.NFData ListImports where + rnf ListImports' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf exportName + +instance Data.ToHeaders ListImports where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListImports where + toPath = Prelude.const "/" + +instance Data.ToQuery ListImports where + toQuery ListImports' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListImports" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "ExportName" Data.=: exportName + ] + +-- | /See:/ 'newListImportsResponse' smart constructor. +data ListImportsResponse = ListImportsResponse' + { -- | A list of stack names that are importing the specified exported output + -- value. + imports :: Prelude.Maybe [Prelude.Text], + -- | A string that identifies the next page of exports. If there is no + -- additional page, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListImportsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'imports', 'listImportsResponse_imports' - A list of stack names that are importing the specified exported output +-- value. +-- +-- 'nextToken', 'listImportsResponse_nextToken' - A string that identifies the next page of exports. If there is no +-- additional page, this value is null. +-- +-- 'httpStatus', 'listImportsResponse_httpStatus' - The response's http status code. +newListImportsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListImportsResponse +newListImportsResponse pHttpStatus_ = + ListImportsResponse' + { imports = Prelude.Nothing, + nextToken = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | A list of stack names that are importing the specified exported output +-- value. +listImportsResponse_imports :: Lens.Lens' ListImportsResponse (Prelude.Maybe [Prelude.Text]) +listImportsResponse_imports = Lens.lens (\ListImportsResponse' {imports} -> imports) (\s@ListImportsResponse' {} a -> s {imports = a} :: ListImportsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | A string that identifies the next page of exports. If there is no +-- additional page, this value is null. +listImportsResponse_nextToken :: Lens.Lens' ListImportsResponse (Prelude.Maybe Prelude.Text) +listImportsResponse_nextToken = Lens.lens (\ListImportsResponse' {nextToken} -> nextToken) (\s@ListImportsResponse' {} a -> s {nextToken = a} :: ListImportsResponse) + +-- | The response's http status code. +listImportsResponse_httpStatus :: Lens.Lens' ListImportsResponse Prelude.Int +listImportsResponse_httpStatus = Lens.lens (\ListImportsResponse' {httpStatus} -> httpStatus) (\s@ListImportsResponse' {} a -> s {httpStatus = a} :: ListImportsResponse) + +instance Prelude.NFData ListImportsResponse where + rnf ListImportsResponse' {..} = + Prelude.rnf imports + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListStackInstances.hs b/gen/Amazonka/CloudFormation/ListStackInstances.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListStackInstances.hs @@ -0,0 +1,374 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListStackInstances +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns summary information about stack instances that are associated +-- with the specified stack set. You can filter for stack instances that +-- are associated with a specific Amazon Web Services account name or +-- Region, or that have a specific status. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListStackInstances + ( -- * Creating a Request + ListStackInstances (..), + newListStackInstances, + + -- * Request Lenses + listStackInstances_callAs, + listStackInstances_filters, + listStackInstances_maxResults, + listStackInstances_nextToken, + listStackInstances_stackInstanceAccount, + listStackInstances_stackInstanceRegion, + listStackInstances_stackSetName, + + -- * Destructuring the Response + ListStackInstancesResponse (..), + newListStackInstancesResponse, + + -- * Response Lenses + listStackInstancesResponse_nextToken, + listStackInstancesResponse_summaries, + listStackInstancesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListStackInstances' smart constructor. +data ListStackInstances = ListStackInstances' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The filter to apply to stack instances + filters :: Prelude.Maybe [StackInstanceFilter], + -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous request didn\'t return all the remaining results, the + -- response\'s @NextToken@ parameter value is set to a token. To retrieve + -- the next set of results, call @ListStackInstances@ again and assign that + -- token to the request object\'s @NextToken@ parameter. If there are no + -- remaining results, the previous response object\'s @NextToken@ parameter + -- is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name of the Amazon Web Services account that you want to list stack + -- instances for. + stackInstanceAccount :: Prelude.Maybe Prelude.Text, + -- | The name of the Region where you want to list stack instances. + stackInstanceRegion :: Prelude.Maybe Prelude.Text, + -- | The name or unique ID of the stack set that you want to list stack + -- instances for. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackInstances' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'listStackInstances_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'filters', 'listStackInstances_filters' - The filter to apply to stack instances +-- +-- 'maxResults', 'listStackInstances_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listStackInstances_nextToken' - If the previous request didn\'t return all the remaining results, the +-- response\'s @NextToken@ parameter value is set to a token. To retrieve +-- the next set of results, call @ListStackInstances@ again and assign that +-- token to the request object\'s @NextToken@ parameter. If there are no +-- remaining results, the previous response object\'s @NextToken@ parameter +-- is set to @null@. +-- +-- 'stackInstanceAccount', 'listStackInstances_stackInstanceAccount' - The name of the Amazon Web Services account that you want to list stack +-- instances for. +-- +-- 'stackInstanceRegion', 'listStackInstances_stackInstanceRegion' - The name of the Region where you want to list stack instances. +-- +-- 'stackSetName', 'listStackInstances_stackSetName' - The name or unique ID of the stack set that you want to list stack +-- instances for. +newListStackInstances :: + -- | 'stackSetName' + Prelude.Text -> + ListStackInstances +newListStackInstances pStackSetName_ = + ListStackInstances' + { callAs = Prelude.Nothing, + filters = Prelude.Nothing, + maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + stackInstanceAccount = Prelude.Nothing, + stackInstanceRegion = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +listStackInstances_callAs :: Lens.Lens' ListStackInstances (Prelude.Maybe CallAs) +listStackInstances_callAs = Lens.lens (\ListStackInstances' {callAs} -> callAs) (\s@ListStackInstances' {} a -> s {callAs = a} :: ListStackInstances) + +-- | The filter to apply to stack instances +listStackInstances_filters :: Lens.Lens' ListStackInstances (Prelude.Maybe [StackInstanceFilter]) +listStackInstances_filters = Lens.lens (\ListStackInstances' {filters} -> filters) (\s@ListStackInstances' {} a -> s {filters = a} :: ListStackInstances) Prelude.. Lens.mapping Lens.coerced + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listStackInstances_maxResults :: Lens.Lens' ListStackInstances (Prelude.Maybe Prelude.Natural) +listStackInstances_maxResults = Lens.lens (\ListStackInstances' {maxResults} -> maxResults) (\s@ListStackInstances' {} a -> s {maxResults = a} :: ListStackInstances) + +-- | If the previous request didn\'t return all the remaining results, the +-- response\'s @NextToken@ parameter value is set to a token. To retrieve +-- the next set of results, call @ListStackInstances@ again and assign that +-- token to the request object\'s @NextToken@ parameter. If there are no +-- remaining results, the previous response object\'s @NextToken@ parameter +-- is set to @null@. +listStackInstances_nextToken :: Lens.Lens' ListStackInstances (Prelude.Maybe Prelude.Text) +listStackInstances_nextToken = Lens.lens (\ListStackInstances' {nextToken} -> nextToken) (\s@ListStackInstances' {} a -> s {nextToken = a} :: ListStackInstances) + +-- | The name of the Amazon Web Services account that you want to list stack +-- instances for. +listStackInstances_stackInstanceAccount :: Lens.Lens' ListStackInstances (Prelude.Maybe Prelude.Text) +listStackInstances_stackInstanceAccount = Lens.lens (\ListStackInstances' {stackInstanceAccount} -> stackInstanceAccount) (\s@ListStackInstances' {} a -> s {stackInstanceAccount = a} :: ListStackInstances) + +-- | The name of the Region where you want to list stack instances. +listStackInstances_stackInstanceRegion :: Lens.Lens' ListStackInstances (Prelude.Maybe Prelude.Text) +listStackInstances_stackInstanceRegion = Lens.lens (\ListStackInstances' {stackInstanceRegion} -> stackInstanceRegion) (\s@ListStackInstances' {} a -> s {stackInstanceRegion = a} :: ListStackInstances) + +-- | The name or unique ID of the stack set that you want to list stack +-- instances for. +listStackInstances_stackSetName :: Lens.Lens' ListStackInstances Prelude.Text +listStackInstances_stackSetName = Lens.lens (\ListStackInstances' {stackSetName} -> stackSetName) (\s@ListStackInstances' {} a -> s {stackSetName = a} :: ListStackInstances) + +instance Core.AWSPager ListStackInstances where + page rq rs + | Core.stop + ( rs + Lens.^? listStackInstancesResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listStackInstancesResponse_summaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listStackInstances_nextToken + Lens..~ rs + Lens.^? listStackInstancesResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListStackInstances where + type + AWSResponse ListStackInstances = + ListStackInstancesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListStackInstancesResult" + ( \s h x -> + ListStackInstancesResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "Summaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListStackInstances where + hashWithSalt _salt ListStackInstances' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` filters + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackInstanceAccount + `Prelude.hashWithSalt` stackInstanceRegion + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData ListStackInstances where + rnf ListStackInstances' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf filters + `Prelude.seq` Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackInstanceAccount + `Prelude.seq` Prelude.rnf stackInstanceRegion + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders ListStackInstances where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListStackInstances where + toPath = Prelude.const "/" + +instance Data.ToQuery ListStackInstances where + toQuery ListStackInstances' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListStackInstances" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "Filters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> filters), + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "StackInstanceAccount" Data.=: stackInstanceAccount, + "StackInstanceRegion" Data.=: stackInstanceRegion, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newListStackInstancesResponse' smart constructor. +data ListStackInstancesResponse = ListStackInstancesResponse' + { -- | If the request doesn\'t return all the remaining results, @NextToken@ is + -- set to a token. To retrieve the next set of results, call + -- @ListStackInstances@ again and assign that token to the request + -- object\'s @NextToken@ parameter. If the request returns all results, + -- @NextToken@ is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackInstanceSummary@ structures that contain information + -- about the specified stack instances. + summaries :: Prelude.Maybe [StackInstanceSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackInstancesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStackInstancesResponse_nextToken' - If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call +-- @ListStackInstances@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If the request returns all results, +-- @NextToken@ is set to @null@. +-- +-- 'summaries', 'listStackInstancesResponse_summaries' - A list of @StackInstanceSummary@ structures that contain information +-- about the specified stack instances. +-- +-- 'httpStatus', 'listStackInstancesResponse_httpStatus' - The response's http status code. +newListStackInstancesResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListStackInstancesResponse +newListStackInstancesResponse pHttpStatus_ = + ListStackInstancesResponse' + { nextToken = + Prelude.Nothing, + summaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call +-- @ListStackInstances@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If the request returns all results, +-- @NextToken@ is set to @null@. +listStackInstancesResponse_nextToken :: Lens.Lens' ListStackInstancesResponse (Prelude.Maybe Prelude.Text) +listStackInstancesResponse_nextToken = Lens.lens (\ListStackInstancesResponse' {nextToken} -> nextToken) (\s@ListStackInstancesResponse' {} a -> s {nextToken = a} :: ListStackInstancesResponse) + +-- | A list of @StackInstanceSummary@ structures that contain information +-- about the specified stack instances. +listStackInstancesResponse_summaries :: Lens.Lens' ListStackInstancesResponse (Prelude.Maybe [StackInstanceSummary]) +listStackInstancesResponse_summaries = Lens.lens (\ListStackInstancesResponse' {summaries} -> summaries) (\s@ListStackInstancesResponse' {} a -> s {summaries = a} :: ListStackInstancesResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listStackInstancesResponse_httpStatus :: Lens.Lens' ListStackInstancesResponse Prelude.Int +listStackInstancesResponse_httpStatus = Lens.lens (\ListStackInstancesResponse' {httpStatus} -> httpStatus) (\s@ListStackInstancesResponse' {} a -> s {httpStatus = a} :: ListStackInstancesResponse) + +instance Prelude.NFData ListStackInstancesResponse where + rnf ListStackInstancesResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf summaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListStackResources.hs b/gen/Amazonka/CloudFormation/ListStackResources.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListStackResources.hs @@ -0,0 +1,251 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListStackResources +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns descriptions of all resources of the specified stack. +-- +-- For deleted stacks, ListStackResources returns resource information for +-- up to 90 days after the stack has been deleted. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListStackResources + ( -- * Creating a Request + ListStackResources (..), + newListStackResources, + + -- * Request Lenses + listStackResources_nextToken, + listStackResources_stackName, + + -- * Destructuring the Response + ListStackResourcesResponse (..), + newListStackResourcesResponse, + + -- * Response Lenses + listStackResourcesResponse_nextToken, + listStackResourcesResponse_stackResourceSummaries, + listStackResourcesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the ListStackResource action. +-- +-- /See:/ 'newListStackResources' smart constructor. +data ListStackResources = ListStackResources' + { -- | A string that identifies the next page of stack resources that you want + -- to retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name or the unique stack ID that is associated with the stack, which + -- aren\'t always interchangeable: + -- + -- - Running stacks: You can specify either the stack\'s name or its + -- unique stack ID. + -- + -- - Deleted stacks: You must specify the unique stack ID. + -- + -- Default: There is no default value. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackResources' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStackResources_nextToken' - A string that identifies the next page of stack resources that you want +-- to retrieve. +-- +-- 'stackName', 'listStackResources_stackName' - The name or the unique stack ID that is associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +newListStackResources :: + -- | 'stackName' + Prelude.Text -> + ListStackResources +newListStackResources pStackName_ = + ListStackResources' + { nextToken = Prelude.Nothing, + stackName = pStackName_ + } + +-- | A string that identifies the next page of stack resources that you want +-- to retrieve. +listStackResources_nextToken :: Lens.Lens' ListStackResources (Prelude.Maybe Prelude.Text) +listStackResources_nextToken = Lens.lens (\ListStackResources' {nextToken} -> nextToken) (\s@ListStackResources' {} a -> s {nextToken = a} :: ListStackResources) + +-- | The name or the unique stack ID that is associated with the stack, which +-- aren\'t always interchangeable: +-- +-- - Running stacks: You can specify either the stack\'s name or its +-- unique stack ID. +-- +-- - Deleted stacks: You must specify the unique stack ID. +-- +-- Default: There is no default value. +listStackResources_stackName :: Lens.Lens' ListStackResources Prelude.Text +listStackResources_stackName = Lens.lens (\ListStackResources' {stackName} -> stackName) (\s@ListStackResources' {} a -> s {stackName = a} :: ListStackResources) + +instance Core.AWSPager ListStackResources where + page rq rs + | Core.stop + ( rs + Lens.^? listStackResourcesResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listStackResourcesResponse_stackResourceSummaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listStackResources_nextToken + Lens..~ rs + Lens.^? listStackResourcesResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListStackResources where + type + AWSResponse ListStackResources = + ListStackResourcesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListStackResourcesResult" + ( \s h x -> + ListStackResourcesResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "StackResourceSummaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListStackResources where + hashWithSalt _salt ListStackResources' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData ListStackResources where + rnf ListStackResources' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders ListStackResources where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListStackResources where + toPath = Prelude.const "/" + +instance Data.ToQuery ListStackResources where + toQuery ListStackResources' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListStackResources" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "StackName" Data.=: stackName + ] + +-- | The output for a ListStackResources action. +-- +-- /See:/ 'newListStackResourcesResponse' smart constructor. +data ListStackResourcesResponse = ListStackResourcesResponse' + { -- | If the output exceeds 1 MB, a string that identifies the next page of + -- stack resources. If no additional page exists, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackResourceSummary@ structures. + stackResourceSummaries :: Prelude.Maybe [StackResourceSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackResourcesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStackResourcesResponse_nextToken' - If the output exceeds 1 MB, a string that identifies the next page of +-- stack resources. If no additional page exists, this value is null. +-- +-- 'stackResourceSummaries', 'listStackResourcesResponse_stackResourceSummaries' - A list of @StackResourceSummary@ structures. +-- +-- 'httpStatus', 'listStackResourcesResponse_httpStatus' - The response's http status code. +newListStackResourcesResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListStackResourcesResponse +newListStackResourcesResponse pHttpStatus_ = + ListStackResourcesResponse' + { nextToken = + Prelude.Nothing, + stackResourceSummaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the output exceeds 1 MB, a string that identifies the next page of +-- stack resources. If no additional page exists, this value is null. +listStackResourcesResponse_nextToken :: Lens.Lens' ListStackResourcesResponse (Prelude.Maybe Prelude.Text) +listStackResourcesResponse_nextToken = Lens.lens (\ListStackResourcesResponse' {nextToken} -> nextToken) (\s@ListStackResourcesResponse' {} a -> s {nextToken = a} :: ListStackResourcesResponse) + +-- | A list of @StackResourceSummary@ structures. +listStackResourcesResponse_stackResourceSummaries :: Lens.Lens' ListStackResourcesResponse (Prelude.Maybe [StackResourceSummary]) +listStackResourcesResponse_stackResourceSummaries = Lens.lens (\ListStackResourcesResponse' {stackResourceSummaries} -> stackResourceSummaries) (\s@ListStackResourcesResponse' {} a -> s {stackResourceSummaries = a} :: ListStackResourcesResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listStackResourcesResponse_httpStatus :: Lens.Lens' ListStackResourcesResponse Prelude.Int +listStackResourcesResponse_httpStatus = Lens.lens (\ListStackResourcesResponse' {httpStatus} -> httpStatus) (\s@ListStackResourcesResponse' {} a -> s {httpStatus = a} :: ListStackResourcesResponse) + +instance Prelude.NFData ListStackResourcesResponse where + rnf ListStackResourcesResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackResourceSummaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListStackSetOperationResults.hs b/gen/Amazonka/CloudFormation/ListStackSetOperationResults.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListStackSetOperationResults.hs @@ -0,0 +1,371 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListStackSetOperationResults +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns summary information about the results of a stack set operation. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListStackSetOperationResults + ( -- * Creating a Request + ListStackSetOperationResults (..), + newListStackSetOperationResults, + + -- * Request Lenses + listStackSetOperationResults_callAs, + listStackSetOperationResults_filters, + listStackSetOperationResults_maxResults, + listStackSetOperationResults_nextToken, + listStackSetOperationResults_stackSetName, + listStackSetOperationResults_operationId, + + -- * Destructuring the Response + ListStackSetOperationResultsResponse (..), + newListStackSetOperationResultsResponse, + + -- * Response Lenses + listStackSetOperationResultsResponse_nextToken, + listStackSetOperationResultsResponse_summaries, + listStackSetOperationResultsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListStackSetOperationResults' smart constructor. +data ListStackSetOperationResults = ListStackSetOperationResults' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The filter to apply to operation results. + filters :: Prelude.Maybe [OperationResultFilter], + -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous request didn\'t return all the remaining results, the + -- response object\'s @NextToken@ parameter value is set to a token. To + -- retrieve the next set of results, call @ListStackSetOperationResults@ + -- again and assign that token to the request object\'s @NextToken@ + -- parameter. If there are no remaining results, the previous response + -- object\'s @NextToken@ parameter is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name or unique ID of the stack set that you want to get operation + -- results for. + stackSetName :: Prelude.Text, + -- | The ID of the stack set operation. + operationId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackSetOperationResults' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'listStackSetOperationResults_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'filters', 'listStackSetOperationResults_filters' - The filter to apply to operation results. +-- +-- 'maxResults', 'listStackSetOperationResults_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listStackSetOperationResults_nextToken' - If the previous request didn\'t return all the remaining results, the +-- response object\'s @NextToken@ parameter value is set to a token. To +-- retrieve the next set of results, call @ListStackSetOperationResults@ +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If there are no remaining results, the previous response +-- object\'s @NextToken@ parameter is set to @null@. +-- +-- 'stackSetName', 'listStackSetOperationResults_stackSetName' - The name or unique ID of the stack set that you want to get operation +-- results for. +-- +-- 'operationId', 'listStackSetOperationResults_operationId' - The ID of the stack set operation. +newListStackSetOperationResults :: + -- | 'stackSetName' + Prelude.Text -> + -- | 'operationId' + Prelude.Text -> + ListStackSetOperationResults +newListStackSetOperationResults + pStackSetName_ + pOperationId_ = + ListStackSetOperationResults' + { callAs = + Prelude.Nothing, + filters = Prelude.Nothing, + maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + stackSetName = pStackSetName_, + operationId = pOperationId_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +listStackSetOperationResults_callAs :: Lens.Lens' ListStackSetOperationResults (Prelude.Maybe CallAs) +listStackSetOperationResults_callAs = Lens.lens (\ListStackSetOperationResults' {callAs} -> callAs) (\s@ListStackSetOperationResults' {} a -> s {callAs = a} :: ListStackSetOperationResults) + +-- | The filter to apply to operation results. +listStackSetOperationResults_filters :: Lens.Lens' ListStackSetOperationResults (Prelude.Maybe [OperationResultFilter]) +listStackSetOperationResults_filters = Lens.lens (\ListStackSetOperationResults' {filters} -> filters) (\s@ListStackSetOperationResults' {} a -> s {filters = a} :: ListStackSetOperationResults) Prelude.. Lens.mapping Lens.coerced + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listStackSetOperationResults_maxResults :: Lens.Lens' ListStackSetOperationResults (Prelude.Maybe Prelude.Natural) +listStackSetOperationResults_maxResults = Lens.lens (\ListStackSetOperationResults' {maxResults} -> maxResults) (\s@ListStackSetOperationResults' {} a -> s {maxResults = a} :: ListStackSetOperationResults) + +-- | If the previous request didn\'t return all the remaining results, the +-- response object\'s @NextToken@ parameter value is set to a token. To +-- retrieve the next set of results, call @ListStackSetOperationResults@ +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If there are no remaining results, the previous response +-- object\'s @NextToken@ parameter is set to @null@. +listStackSetOperationResults_nextToken :: Lens.Lens' ListStackSetOperationResults (Prelude.Maybe Prelude.Text) +listStackSetOperationResults_nextToken = Lens.lens (\ListStackSetOperationResults' {nextToken} -> nextToken) (\s@ListStackSetOperationResults' {} a -> s {nextToken = a} :: ListStackSetOperationResults) + +-- | The name or unique ID of the stack set that you want to get operation +-- results for. +listStackSetOperationResults_stackSetName :: Lens.Lens' ListStackSetOperationResults Prelude.Text +listStackSetOperationResults_stackSetName = Lens.lens (\ListStackSetOperationResults' {stackSetName} -> stackSetName) (\s@ListStackSetOperationResults' {} a -> s {stackSetName = a} :: ListStackSetOperationResults) + +-- | The ID of the stack set operation. +listStackSetOperationResults_operationId :: Lens.Lens' ListStackSetOperationResults Prelude.Text +listStackSetOperationResults_operationId = Lens.lens (\ListStackSetOperationResults' {operationId} -> operationId) (\s@ListStackSetOperationResults' {} a -> s {operationId = a} :: ListStackSetOperationResults) + +instance Core.AWSPager ListStackSetOperationResults where + page rq rs + | Core.stop + ( rs + Lens.^? listStackSetOperationResultsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listStackSetOperationResultsResponse_summaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listStackSetOperationResults_nextToken + Lens..~ rs + Lens.^? listStackSetOperationResultsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListStackSetOperationResults where + type + AWSResponse ListStackSetOperationResults = + ListStackSetOperationResultsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListStackSetOperationResultsResult" + ( \s h x -> + ListStackSetOperationResultsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "Summaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance + Prelude.Hashable + ListStackSetOperationResults + where + hashWithSalt _salt ListStackSetOperationResults' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` filters + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` operationId + +instance Prelude.NFData ListStackSetOperationResults where + rnf ListStackSetOperationResults' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf filters + `Prelude.seq` Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf operationId + +instance Data.ToHeaders ListStackSetOperationResults where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListStackSetOperationResults where + toPath = Prelude.const "/" + +instance Data.ToQuery ListStackSetOperationResults where + toQuery ListStackSetOperationResults' {..} = + Prelude.mconcat + [ "Action" + Data.=: ( "ListStackSetOperationResults" :: + Prelude.ByteString + ), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "Filters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> filters), + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "StackSetName" Data.=: stackSetName, + "OperationId" Data.=: operationId + ] + +-- | /See:/ 'newListStackSetOperationResultsResponse' smart constructor. +data ListStackSetOperationResultsResponse = ListStackSetOperationResultsResponse' + { -- | If the request doesn\'t return all results, @NextToken@ is set to a + -- token. To retrieve the next set of results, call @ListOperationResults@ + -- again and assign that token to the request object\'s @NextToken@ + -- parameter. If there are no remaining results, @NextToken@ is set to + -- @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackSetOperationResultSummary@ structures that contain + -- information about the specified operation results, for accounts and + -- Amazon Web Services Regions that are included in the operation. + summaries :: Prelude.Maybe [StackSetOperationResultSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackSetOperationResultsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStackSetOperationResultsResponse_nextToken' - If the request doesn\'t return all results, @NextToken@ is set to a +-- token. To retrieve the next set of results, call @ListOperationResults@ +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If there are no remaining results, @NextToken@ is set to +-- @null@. +-- +-- 'summaries', 'listStackSetOperationResultsResponse_summaries' - A list of @StackSetOperationResultSummary@ structures that contain +-- information about the specified operation results, for accounts and +-- Amazon Web Services Regions that are included in the operation. +-- +-- 'httpStatus', 'listStackSetOperationResultsResponse_httpStatus' - The response's http status code. +newListStackSetOperationResultsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListStackSetOperationResultsResponse +newListStackSetOperationResultsResponse pHttpStatus_ = + ListStackSetOperationResultsResponse' + { nextToken = + Prelude.Nothing, + summaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all results, @NextToken@ is set to a +-- token. To retrieve the next set of results, call @ListOperationResults@ +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If there are no remaining results, @NextToken@ is set to +-- @null@. +listStackSetOperationResultsResponse_nextToken :: Lens.Lens' ListStackSetOperationResultsResponse (Prelude.Maybe Prelude.Text) +listStackSetOperationResultsResponse_nextToken = Lens.lens (\ListStackSetOperationResultsResponse' {nextToken} -> nextToken) (\s@ListStackSetOperationResultsResponse' {} a -> s {nextToken = a} :: ListStackSetOperationResultsResponse) + +-- | A list of @StackSetOperationResultSummary@ structures that contain +-- information about the specified operation results, for accounts and +-- Amazon Web Services Regions that are included in the operation. +listStackSetOperationResultsResponse_summaries :: Lens.Lens' ListStackSetOperationResultsResponse (Prelude.Maybe [StackSetOperationResultSummary]) +listStackSetOperationResultsResponse_summaries = Lens.lens (\ListStackSetOperationResultsResponse' {summaries} -> summaries) (\s@ListStackSetOperationResultsResponse' {} a -> s {summaries = a} :: ListStackSetOperationResultsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listStackSetOperationResultsResponse_httpStatus :: Lens.Lens' ListStackSetOperationResultsResponse Prelude.Int +listStackSetOperationResultsResponse_httpStatus = Lens.lens (\ListStackSetOperationResultsResponse' {httpStatus} -> httpStatus) (\s@ListStackSetOperationResultsResponse' {} a -> s {httpStatus = a} :: ListStackSetOperationResultsResponse) + +instance + Prelude.NFData + ListStackSetOperationResultsResponse + where + rnf ListStackSetOperationResultsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf summaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListStackSetOperations.hs b/gen/Amazonka/CloudFormation/ListStackSetOperations.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListStackSetOperations.hs @@ -0,0 +1,330 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListStackSetOperations +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns summary information about operations performed on a stack set. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListStackSetOperations + ( -- * Creating a Request + ListStackSetOperations (..), + newListStackSetOperations, + + -- * Request Lenses + listStackSetOperations_callAs, + listStackSetOperations_maxResults, + listStackSetOperations_nextToken, + listStackSetOperations_stackSetName, + + -- * Destructuring the Response + ListStackSetOperationsResponse (..), + newListStackSetOperationsResponse, + + -- * Response Lenses + listStackSetOperationsResponse_nextToken, + listStackSetOperationsResponse_summaries, + listStackSetOperationsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListStackSetOperations' smart constructor. +data ListStackSetOperations = ListStackSetOperations' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous paginated request didn\'t return all of the remaining + -- results, the response object\'s @NextToken@ parameter value is set to a + -- token. To retrieve the next set of results, call + -- @ListStackSetOperations@ again and assign that token to the request + -- object\'s @NextToken@ parameter. If there are no remaining results, the + -- previous response object\'s @NextToken@ parameter is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The name or unique ID of the stack set that you want to get operation + -- summaries for. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackSetOperations' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'listStackSetOperations_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'maxResults', 'listStackSetOperations_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listStackSetOperations_nextToken' - If the previous paginated request didn\'t return all of the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call +-- @ListStackSetOperations@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If there are no remaining results, the +-- previous response object\'s @NextToken@ parameter is set to @null@. +-- +-- 'stackSetName', 'listStackSetOperations_stackSetName' - The name or unique ID of the stack set that you want to get operation +-- summaries for. +newListStackSetOperations :: + -- | 'stackSetName' + Prelude.Text -> + ListStackSetOperations +newListStackSetOperations pStackSetName_ = + ListStackSetOperations' + { callAs = Prelude.Nothing, + maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +listStackSetOperations_callAs :: Lens.Lens' ListStackSetOperations (Prelude.Maybe CallAs) +listStackSetOperations_callAs = Lens.lens (\ListStackSetOperations' {callAs} -> callAs) (\s@ListStackSetOperations' {} a -> s {callAs = a} :: ListStackSetOperations) + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listStackSetOperations_maxResults :: Lens.Lens' ListStackSetOperations (Prelude.Maybe Prelude.Natural) +listStackSetOperations_maxResults = Lens.lens (\ListStackSetOperations' {maxResults} -> maxResults) (\s@ListStackSetOperations' {} a -> s {maxResults = a} :: ListStackSetOperations) + +-- | If the previous paginated request didn\'t return all of the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call +-- @ListStackSetOperations@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If there are no remaining results, the +-- previous response object\'s @NextToken@ parameter is set to @null@. +listStackSetOperations_nextToken :: Lens.Lens' ListStackSetOperations (Prelude.Maybe Prelude.Text) +listStackSetOperations_nextToken = Lens.lens (\ListStackSetOperations' {nextToken} -> nextToken) (\s@ListStackSetOperations' {} a -> s {nextToken = a} :: ListStackSetOperations) + +-- | The name or unique ID of the stack set that you want to get operation +-- summaries for. +listStackSetOperations_stackSetName :: Lens.Lens' ListStackSetOperations Prelude.Text +listStackSetOperations_stackSetName = Lens.lens (\ListStackSetOperations' {stackSetName} -> stackSetName) (\s@ListStackSetOperations' {} a -> s {stackSetName = a} :: ListStackSetOperations) + +instance Core.AWSPager ListStackSetOperations where + page rq rs + | Core.stop + ( rs + Lens.^? listStackSetOperationsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listStackSetOperationsResponse_summaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listStackSetOperations_nextToken + Lens..~ rs + Lens.^? listStackSetOperationsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListStackSetOperations where + type + AWSResponse ListStackSetOperations = + ListStackSetOperationsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListStackSetOperationsResult" + ( \s h x -> + ListStackSetOperationsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "Summaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListStackSetOperations where + hashWithSalt _salt ListStackSetOperations' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData ListStackSetOperations where + rnf ListStackSetOperations' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders ListStackSetOperations where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListStackSetOperations where + toPath = Prelude.const "/" + +instance Data.ToQuery ListStackSetOperations where + toQuery ListStackSetOperations' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListStackSetOperations" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newListStackSetOperationsResponse' smart constructor. +data ListStackSetOperationsResponse = ListStackSetOperationsResponse' + { -- | If the request doesn\'t return all results, @NextToken@ is set to a + -- token. To retrieve the next set of results, call @ListOperationResults@ + -- again and assign that token to the request object\'s @NextToken@ + -- parameter. If there are no remaining results, @NextToken@ is set to + -- @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackSetOperationSummary@ structures that contain summary + -- information about operations for the specified stack set. + summaries :: Prelude.Maybe [StackSetOperationSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackSetOperationsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStackSetOperationsResponse_nextToken' - If the request doesn\'t return all results, @NextToken@ is set to a +-- token. To retrieve the next set of results, call @ListOperationResults@ +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If there are no remaining results, @NextToken@ is set to +-- @null@. +-- +-- 'summaries', 'listStackSetOperationsResponse_summaries' - A list of @StackSetOperationSummary@ structures that contain summary +-- information about operations for the specified stack set. +-- +-- 'httpStatus', 'listStackSetOperationsResponse_httpStatus' - The response's http status code. +newListStackSetOperationsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListStackSetOperationsResponse +newListStackSetOperationsResponse pHttpStatus_ = + ListStackSetOperationsResponse' + { nextToken = + Prelude.Nothing, + summaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all results, @NextToken@ is set to a +-- token. To retrieve the next set of results, call @ListOperationResults@ +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If there are no remaining results, @NextToken@ is set to +-- @null@. +listStackSetOperationsResponse_nextToken :: Lens.Lens' ListStackSetOperationsResponse (Prelude.Maybe Prelude.Text) +listStackSetOperationsResponse_nextToken = Lens.lens (\ListStackSetOperationsResponse' {nextToken} -> nextToken) (\s@ListStackSetOperationsResponse' {} a -> s {nextToken = a} :: ListStackSetOperationsResponse) + +-- | A list of @StackSetOperationSummary@ structures that contain summary +-- information about operations for the specified stack set. +listStackSetOperationsResponse_summaries :: Lens.Lens' ListStackSetOperationsResponse (Prelude.Maybe [StackSetOperationSummary]) +listStackSetOperationsResponse_summaries = Lens.lens (\ListStackSetOperationsResponse' {summaries} -> summaries) (\s@ListStackSetOperationsResponse' {} a -> s {summaries = a} :: ListStackSetOperationsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listStackSetOperationsResponse_httpStatus :: Lens.Lens' ListStackSetOperationsResponse Prelude.Int +listStackSetOperationsResponse_httpStatus = Lens.lens (\ListStackSetOperationsResponse' {httpStatus} -> httpStatus) (\s@ListStackSetOperationsResponse' {} a -> s {httpStatus = a} :: ListStackSetOperationsResponse) + +instance + Prelude.NFData + ListStackSetOperationsResponse + where + rnf ListStackSetOperationsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf summaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListStackSets.hs b/gen/Amazonka/CloudFormation/ListStackSets.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListStackSets.hs @@ -0,0 +1,339 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListStackSets +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns summary information about stack sets that are associated with +-- the user. +-- +-- - [Self-managed permissions] If you set the @CallAs@ parameter to +-- @SELF@ while signed in to your Amazon Web Services account, +-- @ListStackSets@ returns all self-managed stack sets in your Amazon +-- Web Services account. +-- +-- - [Service-managed permissions] If you set the @CallAs@ parameter to +-- @SELF@ while signed in to the organization\'s management account, +-- @ListStackSets@ returns all stack sets in the management account. +-- +-- - [Service-managed permissions] If you set the @CallAs@ parameter to +-- @DELEGATED_ADMIN@ while signed in to your member account, +-- @ListStackSets@ returns all stack sets with service-managed +-- permissions in the management account. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListStackSets + ( -- * Creating a Request + ListStackSets (..), + newListStackSets, + + -- * Request Lenses + listStackSets_callAs, + listStackSets_maxResults, + listStackSets_nextToken, + listStackSets_status, + + -- * Destructuring the Response + ListStackSetsResponse (..), + newListStackSetsResponse, + + -- * Response Lenses + listStackSetsResponse_nextToken, + listStackSetsResponse_summaries, + listStackSetsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListStackSets' smart constructor. +data ListStackSets = ListStackSets' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the management account or as a delegated + -- administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous paginated request didn\'t return all the remaining + -- results, the response object\'s @NextToken@ parameter value is set to a + -- token. To retrieve the next set of results, call @ListStackSets@ again + -- and assign that token to the request object\'s @NextToken@ parameter. If + -- there are no remaining results, the previous response object\'s + -- @NextToken@ parameter is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The status of the stack sets that you want to get summary information + -- about. + status :: Prelude.Maybe StackSetStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackSets' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'listStackSets_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the management account or as a delegated +-- administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'maxResults', 'listStackSets_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listStackSets_nextToken' - If the previous paginated request didn\'t return all the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call @ListStackSets@ again +-- and assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +-- +-- 'status', 'listStackSets_status' - The status of the stack sets that you want to get summary information +-- about. +newListStackSets :: + ListStackSets +newListStackSets = + ListStackSets' + { callAs = Prelude.Nothing, + maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + status = Prelude.Nothing + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the management account or as a delegated +-- administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +listStackSets_callAs :: Lens.Lens' ListStackSets (Prelude.Maybe CallAs) +listStackSets_callAs = Lens.lens (\ListStackSets' {callAs} -> callAs) (\s@ListStackSets' {} a -> s {callAs = a} :: ListStackSets) + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listStackSets_maxResults :: Lens.Lens' ListStackSets (Prelude.Maybe Prelude.Natural) +listStackSets_maxResults = Lens.lens (\ListStackSets' {maxResults} -> maxResults) (\s@ListStackSets' {} a -> s {maxResults = a} :: ListStackSets) + +-- | If the previous paginated request didn\'t return all the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call @ListStackSets@ again +-- and assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +listStackSets_nextToken :: Lens.Lens' ListStackSets (Prelude.Maybe Prelude.Text) +listStackSets_nextToken = Lens.lens (\ListStackSets' {nextToken} -> nextToken) (\s@ListStackSets' {} a -> s {nextToken = a} :: ListStackSets) + +-- | The status of the stack sets that you want to get summary information +-- about. +listStackSets_status :: Lens.Lens' ListStackSets (Prelude.Maybe StackSetStatus) +listStackSets_status = Lens.lens (\ListStackSets' {status} -> status) (\s@ListStackSets' {} a -> s {status = a} :: ListStackSets) + +instance Core.AWSPager ListStackSets where + page rq rs + | Core.stop + ( rs + Lens.^? listStackSetsResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listStackSetsResponse_summaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listStackSets_nextToken + Lens..~ rs + Lens.^? listStackSetsResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListStackSets where + type + AWSResponse ListStackSets = + ListStackSetsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListStackSetsResult" + ( \s h x -> + ListStackSetsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "Summaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListStackSets where + hashWithSalt _salt ListStackSets' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` status + +instance Prelude.NFData ListStackSets where + rnf ListStackSets' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf status + +instance Data.ToHeaders ListStackSets where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListStackSets where + toPath = Prelude.const "/" + +instance Data.ToQuery ListStackSets where + toQuery ListStackSets' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListStackSets" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "Status" Data.=: status + ] + +-- | /See:/ 'newListStackSetsResponse' smart constructor. +data ListStackSetsResponse = ListStackSetsResponse' + { -- | If the request doesn\'t return all of the remaining results, @NextToken@ + -- is set to a token. To retrieve the next set of results, call + -- @ListStackInstances@ again and assign that token to the request + -- object\'s @NextToken@ parameter. If the request returns all results, + -- @NextToken@ is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackSetSummary@ structures that contain information about + -- the user\'s stack sets. + summaries :: Prelude.Maybe [StackSetSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStackSetsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStackSetsResponse_nextToken' - If the request doesn\'t return all of the remaining results, @NextToken@ +-- is set to a token. To retrieve the next set of results, call +-- @ListStackInstances@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If the request returns all results, +-- @NextToken@ is set to @null@. +-- +-- 'summaries', 'listStackSetsResponse_summaries' - A list of @StackSetSummary@ structures that contain information about +-- the user\'s stack sets. +-- +-- 'httpStatus', 'listStackSetsResponse_httpStatus' - The response's http status code. +newListStackSetsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListStackSetsResponse +newListStackSetsResponse pHttpStatus_ = + ListStackSetsResponse' + { nextToken = Prelude.Nothing, + summaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all of the remaining results, @NextToken@ +-- is set to a token. To retrieve the next set of results, call +-- @ListStackInstances@ again and assign that token to the request +-- object\'s @NextToken@ parameter. If the request returns all results, +-- @NextToken@ is set to @null@. +listStackSetsResponse_nextToken :: Lens.Lens' ListStackSetsResponse (Prelude.Maybe Prelude.Text) +listStackSetsResponse_nextToken = Lens.lens (\ListStackSetsResponse' {nextToken} -> nextToken) (\s@ListStackSetsResponse' {} a -> s {nextToken = a} :: ListStackSetsResponse) + +-- | A list of @StackSetSummary@ structures that contain information about +-- the user\'s stack sets. +listStackSetsResponse_summaries :: Lens.Lens' ListStackSetsResponse (Prelude.Maybe [StackSetSummary]) +listStackSetsResponse_summaries = Lens.lens (\ListStackSetsResponse' {summaries} -> summaries) (\s@ListStackSetsResponse' {} a -> s {summaries = a} :: ListStackSetsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listStackSetsResponse_httpStatus :: Lens.Lens' ListStackSetsResponse Prelude.Int +listStackSetsResponse_httpStatus = Lens.lens (\ListStackSetsResponse' {httpStatus} -> httpStatus) (\s@ListStackSetsResponse' {} a -> s {httpStatus = a} :: ListStackSetsResponse) + +instance Prelude.NFData ListStackSetsResponse where + rnf ListStackSetsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf summaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListStacks.hs b/gen/Amazonka/CloudFormation/ListStacks.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListStacks.hs @@ -0,0 +1,239 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListStacks +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the summary information for stacks whose status matches the +-- specified StackStatusFilter. Summary information for stacks that have +-- been deleted is kept for 90 days after the stack is deleted. If no +-- StackStatusFilter is specified, summary information for all stacks is +-- returned (including existing stacks and stacks that have been deleted). +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListStacks + ( -- * Creating a Request + ListStacks (..), + newListStacks, + + -- * Request Lenses + listStacks_nextToken, + listStacks_stackStatusFilter, + + -- * Destructuring the Response + ListStacksResponse (..), + newListStacksResponse, + + -- * Response Lenses + listStacksResponse_nextToken, + listStacksResponse_stackSummaries, + listStacksResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for ListStacks action. +-- +-- /See:/ 'newListStacks' smart constructor. +data ListStacks = ListStacks' + { -- | A string that identifies the next page of stacks that you want to + -- retrieve. + nextToken :: Prelude.Maybe Prelude.Text, + -- | Stack status to use as a filter. Specify one or more stack status codes + -- to list only stacks with the specified status codes. For a complete list + -- of stack status codes, see the @StackStatus@ parameter of the Stack data + -- type. + stackStatusFilter :: Prelude.Maybe [StackStatus] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStacks' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStacks_nextToken' - A string that identifies the next page of stacks that you want to +-- retrieve. +-- +-- 'stackStatusFilter', 'listStacks_stackStatusFilter' - Stack status to use as a filter. Specify one or more stack status codes +-- to list only stacks with the specified status codes. For a complete list +-- of stack status codes, see the @StackStatus@ parameter of the Stack data +-- type. +newListStacks :: + ListStacks +newListStacks = + ListStacks' + { nextToken = Prelude.Nothing, + stackStatusFilter = Prelude.Nothing + } + +-- | A string that identifies the next page of stacks that you want to +-- retrieve. +listStacks_nextToken :: Lens.Lens' ListStacks (Prelude.Maybe Prelude.Text) +listStacks_nextToken = Lens.lens (\ListStacks' {nextToken} -> nextToken) (\s@ListStacks' {} a -> s {nextToken = a} :: ListStacks) + +-- | Stack status to use as a filter. Specify one or more stack status codes +-- to list only stacks with the specified status codes. For a complete list +-- of stack status codes, see the @StackStatus@ parameter of the Stack data +-- type. +listStacks_stackStatusFilter :: Lens.Lens' ListStacks (Prelude.Maybe [StackStatus]) +listStacks_stackStatusFilter = Lens.lens (\ListStacks' {stackStatusFilter} -> stackStatusFilter) (\s@ListStacks' {} a -> s {stackStatusFilter = a} :: ListStacks) Prelude.. Lens.mapping Lens.coerced + +instance Core.AWSPager ListStacks where + page rq rs + | Core.stop + ( rs + Lens.^? listStacksResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listStacksResponse_stackSummaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listStacks_nextToken + Lens..~ rs + Lens.^? listStacksResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListStacks where + type AWSResponse ListStacks = ListStacksResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListStacksResult" + ( \s h x -> + ListStacksResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "StackSummaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListStacks where + hashWithSalt _salt ListStacks' {..} = + _salt + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` stackStatusFilter + +instance Prelude.NFData ListStacks where + rnf ListStacks' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackStatusFilter + +instance Data.ToHeaders ListStacks where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListStacks where + toPath = Prelude.const "/" + +instance Data.ToQuery ListStacks where + toQuery ListStacks' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListStacks" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "NextToken" Data.=: nextToken, + "StackStatusFilter" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> stackStatusFilter + ) + ] + +-- | The output for ListStacks action. +-- +-- /See:/ 'newListStacksResponse' smart constructor. +data ListStacksResponse = ListStacksResponse' + { -- | If the output exceeds 1 MB in size, a string that identifies the next + -- page of stacks. If no additional page exists, this value is null. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @StackSummary@ structures containing information about the + -- specified stacks. + stackSummaries :: Prelude.Maybe [StackSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListStacksResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listStacksResponse_nextToken' - If the output exceeds 1 MB in size, a string that identifies the next +-- page of stacks. If no additional page exists, this value is null. +-- +-- 'stackSummaries', 'listStacksResponse_stackSummaries' - A list of @StackSummary@ structures containing information about the +-- specified stacks. +-- +-- 'httpStatus', 'listStacksResponse_httpStatus' - The response's http status code. +newListStacksResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListStacksResponse +newListStacksResponse pHttpStatus_ = + ListStacksResponse' + { nextToken = Prelude.Nothing, + stackSummaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the output exceeds 1 MB in size, a string that identifies the next +-- page of stacks. If no additional page exists, this value is null. +listStacksResponse_nextToken :: Lens.Lens' ListStacksResponse (Prelude.Maybe Prelude.Text) +listStacksResponse_nextToken = Lens.lens (\ListStacksResponse' {nextToken} -> nextToken) (\s@ListStacksResponse' {} a -> s {nextToken = a} :: ListStacksResponse) + +-- | A list of @StackSummary@ structures containing information about the +-- specified stacks. +listStacksResponse_stackSummaries :: Lens.Lens' ListStacksResponse (Prelude.Maybe [StackSummary]) +listStacksResponse_stackSummaries = Lens.lens (\ListStacksResponse' {stackSummaries} -> stackSummaries) (\s@ListStacksResponse' {} a -> s {stackSummaries = a} :: ListStacksResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listStacksResponse_httpStatus :: Lens.Lens' ListStacksResponse Prelude.Int +listStacksResponse_httpStatus = Lens.lens (\ListStacksResponse' {httpStatus} -> httpStatus) (\s@ListStacksResponse' {} a -> s {httpStatus = a} :: ListStacksResponse) + +instance Prelude.NFData ListStacksResponse where + rnf ListStacksResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf stackSummaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListTypeRegistrations.hs b/gen/Amazonka/CloudFormation/ListTypeRegistrations.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListTypeRegistrations.hs @@ -0,0 +1,311 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListTypeRegistrations +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns a list of registration tokens for the specified extension(s). +module Amazonka.CloudFormation.ListTypeRegistrations + ( -- * Creating a Request + ListTypeRegistrations (..), + newListTypeRegistrations, + + -- * Request Lenses + listTypeRegistrations_maxResults, + listTypeRegistrations_nextToken, + listTypeRegistrations_registrationStatusFilter, + listTypeRegistrations_type, + listTypeRegistrations_typeArn, + listTypeRegistrations_typeName, + + -- * Destructuring the Response + ListTypeRegistrationsResponse (..), + newListTypeRegistrationsResponse, + + -- * Response Lenses + listTypeRegistrationsResponse_nextToken, + listTypeRegistrationsResponse_registrationTokenList, + listTypeRegistrationsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListTypeRegistrations' smart constructor. +data ListTypeRegistrations = ListTypeRegistrations' + { -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous paginated request didn\'t return all the remaining + -- results, the response object\'s @NextToken@ parameter value is set to a + -- token. To retrieve the next set of results, call this action again and + -- assign that token to the request object\'s @NextToken@ parameter. If + -- there are no remaining results, the previous response object\'s + -- @NextToken@ parameter is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The current status of the extension registration request. + -- + -- The default is @IN_PROGRESS@. + registrationStatusFilter :: Prelude.Maybe RegistrationStatus, + -- | The kind of extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + type' :: Prelude.Maybe RegistryType, + -- | The Amazon Resource Name (ARN) of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + typeArn :: Prelude.Maybe Prelude.Text, + -- | The name of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTypeRegistrations' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'maxResults', 'listTypeRegistrations_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listTypeRegistrations_nextToken' - If the previous paginated request didn\'t return all the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call this action again and +-- assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +-- +-- 'registrationStatusFilter', 'listTypeRegistrations_registrationStatusFilter' - The current status of the extension registration request. +-- +-- The default is @IN_PROGRESS@. +-- +-- 'type'', 'listTypeRegistrations_type' - The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'typeArn', 'listTypeRegistrations_typeArn' - The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'typeName', 'listTypeRegistrations_typeName' - The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +newListTypeRegistrations :: + ListTypeRegistrations +newListTypeRegistrations = + ListTypeRegistrations' + { maxResults = + Prelude.Nothing, + nextToken = Prelude.Nothing, + registrationStatusFilter = Prelude.Nothing, + type' = Prelude.Nothing, + typeArn = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listTypeRegistrations_maxResults :: Lens.Lens' ListTypeRegistrations (Prelude.Maybe Prelude.Natural) +listTypeRegistrations_maxResults = Lens.lens (\ListTypeRegistrations' {maxResults} -> maxResults) (\s@ListTypeRegistrations' {} a -> s {maxResults = a} :: ListTypeRegistrations) + +-- | If the previous paginated request didn\'t return all the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call this action again and +-- assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +listTypeRegistrations_nextToken :: Lens.Lens' ListTypeRegistrations (Prelude.Maybe Prelude.Text) +listTypeRegistrations_nextToken = Lens.lens (\ListTypeRegistrations' {nextToken} -> nextToken) (\s@ListTypeRegistrations' {} a -> s {nextToken = a} :: ListTypeRegistrations) + +-- | The current status of the extension registration request. +-- +-- The default is @IN_PROGRESS@. +listTypeRegistrations_registrationStatusFilter :: Lens.Lens' ListTypeRegistrations (Prelude.Maybe RegistrationStatus) +listTypeRegistrations_registrationStatusFilter = Lens.lens (\ListTypeRegistrations' {registrationStatusFilter} -> registrationStatusFilter) (\s@ListTypeRegistrations' {} a -> s {registrationStatusFilter = a} :: ListTypeRegistrations) + +-- | The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +listTypeRegistrations_type :: Lens.Lens' ListTypeRegistrations (Prelude.Maybe RegistryType) +listTypeRegistrations_type = Lens.lens (\ListTypeRegistrations' {type'} -> type') (\s@ListTypeRegistrations' {} a -> s {type' = a} :: ListTypeRegistrations) + +-- | The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +listTypeRegistrations_typeArn :: Lens.Lens' ListTypeRegistrations (Prelude.Maybe Prelude.Text) +listTypeRegistrations_typeArn = Lens.lens (\ListTypeRegistrations' {typeArn} -> typeArn) (\s@ListTypeRegistrations' {} a -> s {typeArn = a} :: ListTypeRegistrations) + +-- | The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +listTypeRegistrations_typeName :: Lens.Lens' ListTypeRegistrations (Prelude.Maybe Prelude.Text) +listTypeRegistrations_typeName = Lens.lens (\ListTypeRegistrations' {typeName} -> typeName) (\s@ListTypeRegistrations' {} a -> s {typeName = a} :: ListTypeRegistrations) + +instance Core.AWSRequest ListTypeRegistrations where + type + AWSResponse ListTypeRegistrations = + ListTypeRegistrationsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListTypeRegistrationsResult" + ( \s h x -> + ListTypeRegistrationsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "RegistrationTokenList" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListTypeRegistrations where + hashWithSalt _salt ListTypeRegistrations' {..} = + _salt + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` registrationStatusFilter + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeArn + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData ListTypeRegistrations where + rnf ListTypeRegistrations' {..} = + Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf registrationStatusFilter + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeArn + `Prelude.seq` Prelude.rnf typeName + +instance Data.ToHeaders ListTypeRegistrations where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListTypeRegistrations where + toPath = Prelude.const "/" + +instance Data.ToQuery ListTypeRegistrations where + toQuery ListTypeRegistrations' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListTypeRegistrations" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "RegistrationStatusFilter" + Data.=: registrationStatusFilter, + "Type" Data.=: type', + "TypeArn" Data.=: typeArn, + "TypeName" Data.=: typeName + ] + +-- | /See:/ 'newListTypeRegistrationsResponse' smart constructor. +data ListTypeRegistrationsResponse = ListTypeRegistrationsResponse' + { -- | If the request doesn\'t return all the remaining results, @NextToken@ is + -- set to a token. To retrieve the next set of results, call this action + -- again and assign that token to the request object\'s @NextToken@ + -- parameter. If the request returns all results, @NextToken@ is set to + -- @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of extension registration tokens. + -- + -- Use @ @@DescribeTypeRegistration@@ @ to return detailed information + -- about a type registration request. + registrationTokenList :: Prelude.Maybe [Prelude.Text], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTypeRegistrationsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listTypeRegistrationsResponse_nextToken' - If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call this action +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If the request returns all results, @NextToken@ is set to +-- @null@. +-- +-- 'registrationTokenList', 'listTypeRegistrationsResponse_registrationTokenList' - A list of extension registration tokens. +-- +-- Use @ @@DescribeTypeRegistration@@ @ to return detailed information +-- about a type registration request. +-- +-- 'httpStatus', 'listTypeRegistrationsResponse_httpStatus' - The response's http status code. +newListTypeRegistrationsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListTypeRegistrationsResponse +newListTypeRegistrationsResponse pHttpStatus_ = + ListTypeRegistrationsResponse' + { nextToken = + Prelude.Nothing, + registrationTokenList = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call this action +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If the request returns all results, @NextToken@ is set to +-- @null@. +listTypeRegistrationsResponse_nextToken :: Lens.Lens' ListTypeRegistrationsResponse (Prelude.Maybe Prelude.Text) +listTypeRegistrationsResponse_nextToken = Lens.lens (\ListTypeRegistrationsResponse' {nextToken} -> nextToken) (\s@ListTypeRegistrationsResponse' {} a -> s {nextToken = a} :: ListTypeRegistrationsResponse) + +-- | A list of extension registration tokens. +-- +-- Use @ @@DescribeTypeRegistration@@ @ to return detailed information +-- about a type registration request. +listTypeRegistrationsResponse_registrationTokenList :: Lens.Lens' ListTypeRegistrationsResponse (Prelude.Maybe [Prelude.Text]) +listTypeRegistrationsResponse_registrationTokenList = Lens.lens (\ListTypeRegistrationsResponse' {registrationTokenList} -> registrationTokenList) (\s@ListTypeRegistrationsResponse' {} a -> s {registrationTokenList = a} :: ListTypeRegistrationsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listTypeRegistrationsResponse_httpStatus :: Lens.Lens' ListTypeRegistrationsResponse Prelude.Int +listTypeRegistrationsResponse_httpStatus = Lens.lens (\ListTypeRegistrationsResponse' {httpStatus} -> httpStatus) (\s@ListTypeRegistrationsResponse' {} a -> s {httpStatus = a} :: ListTypeRegistrationsResponse) + +instance Prelude.NFData ListTypeRegistrationsResponse where + rnf ListTypeRegistrationsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf registrationTokenList + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListTypeVersions.hs b/gen/Amazonka/CloudFormation/ListTypeVersions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListTypeVersions.hs @@ -0,0 +1,358 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListTypeVersions +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns summary information about the versions of an extension. +module Amazonka.CloudFormation.ListTypeVersions + ( -- * Creating a Request + ListTypeVersions (..), + newListTypeVersions, + + -- * Request Lenses + listTypeVersions_arn, + listTypeVersions_deprecatedStatus, + listTypeVersions_maxResults, + listTypeVersions_nextToken, + listTypeVersions_publisherId, + listTypeVersions_type, + listTypeVersions_typeName, + + -- * Destructuring the Response + ListTypeVersionsResponse (..), + newListTypeVersionsResponse, + + -- * Response Lenses + listTypeVersionsResponse_nextToken, + listTypeVersionsResponse_typeVersionSummaries, + listTypeVersionsResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListTypeVersions' smart constructor. +data ListTypeVersions = ListTypeVersions' + { -- | The Amazon Resource Name (ARN) of the extension for which you want + -- version summary information. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + arn :: Prelude.Maybe Prelude.Text, + -- | The deprecation status of the extension versions that you want to get + -- summary information about. + -- + -- Valid values include: + -- + -- - @LIVE@: The extension version is registered and can be used in + -- CloudFormation operations, dependent on its provisioning behavior + -- and visibility scope. + -- + -- - @DEPRECATED@: The extension version has been deregistered and can no + -- longer be used in CloudFormation operations. + -- + -- The default is @LIVE@. + deprecatedStatus :: Prelude.Maybe DeprecatedStatus, + -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous paginated request didn\'t return all of the remaining + -- results, the response object\'s @NextToken@ parameter value is set to a + -- token. To retrieve the next set of results, call this action again and + -- assign that token to the request object\'s @NextToken@ parameter. If + -- there are no remaining results, the previous response object\'s + -- @NextToken@ parameter is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | The publisher ID of the extension publisher. + -- + -- Extensions published by Amazon aren\'t assigned a publisher ID. + publisherId :: Prelude.Maybe Prelude.Text, + -- | The kind of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension for which you want version summary + -- information. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTypeVersions' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'listTypeVersions_arn' - The Amazon Resource Name (ARN) of the extension for which you want +-- version summary information. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'deprecatedStatus', 'listTypeVersions_deprecatedStatus' - The deprecation status of the extension versions that you want to get +-- summary information about. +-- +-- Valid values include: +-- +-- - @LIVE@: The extension version is registered and can be used in +-- CloudFormation operations, dependent on its provisioning behavior +-- and visibility scope. +-- +-- - @DEPRECATED@: The extension version has been deregistered and can no +-- longer be used in CloudFormation operations. +-- +-- The default is @LIVE@. +-- +-- 'maxResults', 'listTypeVersions_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listTypeVersions_nextToken' - If the previous paginated request didn\'t return all of the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call this action again and +-- assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +-- +-- 'publisherId', 'listTypeVersions_publisherId' - The publisher ID of the extension publisher. +-- +-- Extensions published by Amazon aren\'t assigned a publisher ID. +-- +-- 'type'', 'listTypeVersions_type' - The kind of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'typeName', 'listTypeVersions_typeName' - The name of the extension for which you want version summary +-- information. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +newListTypeVersions :: + ListTypeVersions +newListTypeVersions = + ListTypeVersions' + { arn = Prelude.Nothing, + deprecatedStatus = Prelude.Nothing, + maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + publisherId = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension for which you want +-- version summary information. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +listTypeVersions_arn :: Lens.Lens' ListTypeVersions (Prelude.Maybe Prelude.Text) +listTypeVersions_arn = Lens.lens (\ListTypeVersions' {arn} -> arn) (\s@ListTypeVersions' {} a -> s {arn = a} :: ListTypeVersions) + +-- | The deprecation status of the extension versions that you want to get +-- summary information about. +-- +-- Valid values include: +-- +-- - @LIVE@: The extension version is registered and can be used in +-- CloudFormation operations, dependent on its provisioning behavior +-- and visibility scope. +-- +-- - @DEPRECATED@: The extension version has been deregistered and can no +-- longer be used in CloudFormation operations. +-- +-- The default is @LIVE@. +listTypeVersions_deprecatedStatus :: Lens.Lens' ListTypeVersions (Prelude.Maybe DeprecatedStatus) +listTypeVersions_deprecatedStatus = Lens.lens (\ListTypeVersions' {deprecatedStatus} -> deprecatedStatus) (\s@ListTypeVersions' {} a -> s {deprecatedStatus = a} :: ListTypeVersions) + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listTypeVersions_maxResults :: Lens.Lens' ListTypeVersions (Prelude.Maybe Prelude.Natural) +listTypeVersions_maxResults = Lens.lens (\ListTypeVersions' {maxResults} -> maxResults) (\s@ListTypeVersions' {} a -> s {maxResults = a} :: ListTypeVersions) + +-- | If the previous paginated request didn\'t return all of the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call this action again and +-- assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +listTypeVersions_nextToken :: Lens.Lens' ListTypeVersions (Prelude.Maybe Prelude.Text) +listTypeVersions_nextToken = Lens.lens (\ListTypeVersions' {nextToken} -> nextToken) (\s@ListTypeVersions' {} a -> s {nextToken = a} :: ListTypeVersions) + +-- | The publisher ID of the extension publisher. +-- +-- Extensions published by Amazon aren\'t assigned a publisher ID. +listTypeVersions_publisherId :: Lens.Lens' ListTypeVersions (Prelude.Maybe Prelude.Text) +listTypeVersions_publisherId = Lens.lens (\ListTypeVersions' {publisherId} -> publisherId) (\s@ListTypeVersions' {} a -> s {publisherId = a} :: ListTypeVersions) + +-- | The kind of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +listTypeVersions_type :: Lens.Lens' ListTypeVersions (Prelude.Maybe RegistryType) +listTypeVersions_type = Lens.lens (\ListTypeVersions' {type'} -> type') (\s@ListTypeVersions' {} a -> s {type' = a} :: ListTypeVersions) + +-- | The name of the extension for which you want version summary +-- information. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +listTypeVersions_typeName :: Lens.Lens' ListTypeVersions (Prelude.Maybe Prelude.Text) +listTypeVersions_typeName = Lens.lens (\ListTypeVersions' {typeName} -> typeName) (\s@ListTypeVersions' {} a -> s {typeName = a} :: ListTypeVersions) + +instance Core.AWSRequest ListTypeVersions where + type + AWSResponse ListTypeVersions = + ListTypeVersionsResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListTypeVersionsResult" + ( \s h x -> + ListTypeVersionsResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "TypeVersionSummaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListTypeVersions where + hashWithSalt _salt ListTypeVersions' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` deprecatedStatus + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` publisherId + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData ListTypeVersions where + rnf ListTypeVersions' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf deprecatedStatus + `Prelude.seq` Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + +instance Data.ToHeaders ListTypeVersions where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListTypeVersions where + toPath = Prelude.const "/" + +instance Data.ToQuery ListTypeVersions where + toQuery ListTypeVersions' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListTypeVersions" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "DeprecatedStatus" Data.=: deprecatedStatus, + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "PublisherId" Data.=: publisherId, + "Type" Data.=: type', + "TypeName" Data.=: typeName + ] + +-- | /See:/ 'newListTypeVersionsResponse' smart constructor. +data ListTypeVersionsResponse = ListTypeVersionsResponse' + { -- | If the request doesn\'t return all of the remaining results, @NextToken@ + -- is set to a token. To retrieve the next set of results, call this action + -- again and assign that token to the request object\'s @NextToken@ + -- parameter. If the request returns all results, @NextToken@ is set to + -- @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @TypeVersionSummary@ structures that contain information about + -- the specified extension\'s versions. + typeVersionSummaries :: Prelude.Maybe [TypeVersionSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTypeVersionsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listTypeVersionsResponse_nextToken' - If the request doesn\'t return all of the remaining results, @NextToken@ +-- is set to a token. To retrieve the next set of results, call this action +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If the request returns all results, @NextToken@ is set to +-- @null@. +-- +-- 'typeVersionSummaries', 'listTypeVersionsResponse_typeVersionSummaries' - A list of @TypeVersionSummary@ structures that contain information about +-- the specified extension\'s versions. +-- +-- 'httpStatus', 'listTypeVersionsResponse_httpStatus' - The response's http status code. +newListTypeVersionsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListTypeVersionsResponse +newListTypeVersionsResponse pHttpStatus_ = + ListTypeVersionsResponse' + { nextToken = + Prelude.Nothing, + typeVersionSummaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all of the remaining results, @NextToken@ +-- is set to a token. To retrieve the next set of results, call this action +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If the request returns all results, @NextToken@ is set to +-- @null@. +listTypeVersionsResponse_nextToken :: Lens.Lens' ListTypeVersionsResponse (Prelude.Maybe Prelude.Text) +listTypeVersionsResponse_nextToken = Lens.lens (\ListTypeVersionsResponse' {nextToken} -> nextToken) (\s@ListTypeVersionsResponse' {} a -> s {nextToken = a} :: ListTypeVersionsResponse) + +-- | A list of @TypeVersionSummary@ structures that contain information about +-- the specified extension\'s versions. +listTypeVersionsResponse_typeVersionSummaries :: Lens.Lens' ListTypeVersionsResponse (Prelude.Maybe [TypeVersionSummary]) +listTypeVersionsResponse_typeVersionSummaries = Lens.lens (\ListTypeVersionsResponse' {typeVersionSummaries} -> typeVersionSummaries) (\s@ListTypeVersionsResponse' {} a -> s {typeVersionSummaries = a} :: ListTypeVersionsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listTypeVersionsResponse_httpStatus :: Lens.Lens' ListTypeVersionsResponse Prelude.Int +listTypeVersionsResponse_httpStatus = Lens.lens (\ListTypeVersionsResponse' {httpStatus} -> httpStatus) (\s@ListTypeVersionsResponse' {} a -> s {httpStatus = a} :: ListTypeVersionsResponse) + +instance Prelude.NFData ListTypeVersionsResponse where + rnf ListTypeVersionsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf typeVersionSummaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ListTypes.hs b/gen/Amazonka/CloudFormation/ListTypes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ListTypes.hs @@ -0,0 +1,464 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ListTypes +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns summary information about extension that have been registered +-- with CloudFormation. +-- +-- This operation returns paginated results. +module Amazonka.CloudFormation.ListTypes + ( -- * Creating a Request + ListTypes (..), + newListTypes, + + -- * Request Lenses + listTypes_deprecatedStatus, + listTypes_filters, + listTypes_maxResults, + listTypes_nextToken, + listTypes_provisioningType, + listTypes_type, + listTypes_visibility, + + -- * Destructuring the Response + ListTypesResponse (..), + newListTypesResponse, + + -- * Response Lenses + listTypesResponse_nextToken, + listTypesResponse_typeSummaries, + listTypesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListTypes' smart constructor. +data ListTypes = ListTypes' + { -- | The deprecation status of the extension that you want to get summary + -- information about. + -- + -- Valid values include: + -- + -- - @LIVE@: The extension is registered for use in CloudFormation + -- operations. + -- + -- - @DEPRECATED@: The extension has been deregistered and can no longer + -- be used in CloudFormation operations. + deprecatedStatus :: Prelude.Maybe DeprecatedStatus, + -- | Filter criteria to use in determining which extensions to return. + -- + -- Filters must be compatible with @Visibility@ to return valid results. + -- For example, specifying @AWS_TYPES@ for @Category@ and @PRIVATE@ for + -- @Visibility@ returns an empty list of types, but specifying @PUBLIC@ for + -- @Visibility@ returns the desired list. + filters :: Prelude.Maybe TypeFilters, + -- | The maximum number of results to be returned with a single call. If the + -- number of available results exceeds this maximum, the response includes + -- a @NextToken@ value that you can assign to the @NextToken@ request + -- parameter to get the next set of results. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | If the previous paginated request didn\'t return all the remaining + -- results, the response object\'s @NextToken@ parameter value is set to a + -- token. To retrieve the next set of results, call this action again and + -- assign that token to the request object\'s @NextToken@ parameter. If + -- there are no remaining results, the previous response object\'s + -- @NextToken@ parameter is set to @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | For resource types, the provisioning behavior of the resource type. + -- CloudFormation determines the provisioning type during registration, + -- based on the types of handlers in the schema handler package submitted. + -- + -- Valid values include: + -- + -- - @FULLY_MUTABLE@: The resource type includes an update handler to + -- process updates to the type during stack update operations. + -- + -- - @IMMUTABLE@: The resource type doesn\'t include an update handler, + -- so the type can\'t be updated and must instead be replaced during + -- stack update operations. + -- + -- - @NON_PROVISIONABLE@: The resource type doesn\'t include create, + -- read, and delete handlers, and therefore can\'t actually be + -- provisioned. + -- + -- The default is @FULLY_MUTABLE@. + provisioningType :: Prelude.Maybe ProvisioningType, + -- | The type of extension. + type' :: Prelude.Maybe RegistryType, + -- | The scope at which the extensions are visible and usable in + -- CloudFormation operations. + -- + -- Valid values include: + -- + -- - @PRIVATE@: Extensions that are visible and usable within this + -- account and region. This includes: + -- + -- - Private extensions you have registered in this account and + -- region. + -- + -- - Public extensions that you have activated in this account and + -- region. + -- + -- - @PUBLIC@: Extensions that are publicly visible and available to be + -- activated within any Amazon Web Services account. This includes + -- extensions from Amazon Web Services, in addition to third-party + -- publishers. + -- + -- The default is @PRIVATE@. + visibility :: Prelude.Maybe Visibility + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTypes' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'deprecatedStatus', 'listTypes_deprecatedStatus' - The deprecation status of the extension that you want to get summary +-- information about. +-- +-- Valid values include: +-- +-- - @LIVE@: The extension is registered for use in CloudFormation +-- operations. +-- +-- - @DEPRECATED@: The extension has been deregistered and can no longer +-- be used in CloudFormation operations. +-- +-- 'filters', 'listTypes_filters' - Filter criteria to use in determining which extensions to return. +-- +-- Filters must be compatible with @Visibility@ to return valid results. +-- For example, specifying @AWS_TYPES@ for @Category@ and @PRIVATE@ for +-- @Visibility@ returns an empty list of types, but specifying @PUBLIC@ for +-- @Visibility@ returns the desired list. +-- +-- 'maxResults', 'listTypes_maxResults' - The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +-- +-- 'nextToken', 'listTypes_nextToken' - If the previous paginated request didn\'t return all the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call this action again and +-- assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +-- +-- 'provisioningType', 'listTypes_provisioningType' - For resource types, the provisioning behavior of the resource type. +-- CloudFormation determines the provisioning type during registration, +-- based on the types of handlers in the schema handler package submitted. +-- +-- Valid values include: +-- +-- - @FULLY_MUTABLE@: The resource type includes an update handler to +-- process updates to the type during stack update operations. +-- +-- - @IMMUTABLE@: The resource type doesn\'t include an update handler, +-- so the type can\'t be updated and must instead be replaced during +-- stack update operations. +-- +-- - @NON_PROVISIONABLE@: The resource type doesn\'t include create, +-- read, and delete handlers, and therefore can\'t actually be +-- provisioned. +-- +-- The default is @FULLY_MUTABLE@. +-- +-- 'type'', 'listTypes_type' - The type of extension. +-- +-- 'visibility', 'listTypes_visibility' - The scope at which the extensions are visible and usable in +-- CloudFormation operations. +-- +-- Valid values include: +-- +-- - @PRIVATE@: Extensions that are visible and usable within this +-- account and region. This includes: +-- +-- - Private extensions you have registered in this account and +-- region. +-- +-- - Public extensions that you have activated in this account and +-- region. +-- +-- - @PUBLIC@: Extensions that are publicly visible and available to be +-- activated within any Amazon Web Services account. This includes +-- extensions from Amazon Web Services, in addition to third-party +-- publishers. +-- +-- The default is @PRIVATE@. +newListTypes :: + ListTypes +newListTypes = + ListTypes' + { deprecatedStatus = Prelude.Nothing, + filters = Prelude.Nothing, + maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + provisioningType = Prelude.Nothing, + type' = Prelude.Nothing, + visibility = Prelude.Nothing + } + +-- | The deprecation status of the extension that you want to get summary +-- information about. +-- +-- Valid values include: +-- +-- - @LIVE@: The extension is registered for use in CloudFormation +-- operations. +-- +-- - @DEPRECATED@: The extension has been deregistered and can no longer +-- be used in CloudFormation operations. +listTypes_deprecatedStatus :: Lens.Lens' ListTypes (Prelude.Maybe DeprecatedStatus) +listTypes_deprecatedStatus = Lens.lens (\ListTypes' {deprecatedStatus} -> deprecatedStatus) (\s@ListTypes' {} a -> s {deprecatedStatus = a} :: ListTypes) + +-- | Filter criteria to use in determining which extensions to return. +-- +-- Filters must be compatible with @Visibility@ to return valid results. +-- For example, specifying @AWS_TYPES@ for @Category@ and @PRIVATE@ for +-- @Visibility@ returns an empty list of types, but specifying @PUBLIC@ for +-- @Visibility@ returns the desired list. +listTypes_filters :: Lens.Lens' ListTypes (Prelude.Maybe TypeFilters) +listTypes_filters = Lens.lens (\ListTypes' {filters} -> filters) (\s@ListTypes' {} a -> s {filters = a} :: ListTypes) + +-- | The maximum number of results to be returned with a single call. If the +-- number of available results exceeds this maximum, the response includes +-- a @NextToken@ value that you can assign to the @NextToken@ request +-- parameter to get the next set of results. +listTypes_maxResults :: Lens.Lens' ListTypes (Prelude.Maybe Prelude.Natural) +listTypes_maxResults = Lens.lens (\ListTypes' {maxResults} -> maxResults) (\s@ListTypes' {} a -> s {maxResults = a} :: ListTypes) + +-- | If the previous paginated request didn\'t return all the remaining +-- results, the response object\'s @NextToken@ parameter value is set to a +-- token. To retrieve the next set of results, call this action again and +-- assign that token to the request object\'s @NextToken@ parameter. If +-- there are no remaining results, the previous response object\'s +-- @NextToken@ parameter is set to @null@. +listTypes_nextToken :: Lens.Lens' ListTypes (Prelude.Maybe Prelude.Text) +listTypes_nextToken = Lens.lens (\ListTypes' {nextToken} -> nextToken) (\s@ListTypes' {} a -> s {nextToken = a} :: ListTypes) + +-- | For resource types, the provisioning behavior of the resource type. +-- CloudFormation determines the provisioning type during registration, +-- based on the types of handlers in the schema handler package submitted. +-- +-- Valid values include: +-- +-- - @FULLY_MUTABLE@: The resource type includes an update handler to +-- process updates to the type during stack update operations. +-- +-- - @IMMUTABLE@: The resource type doesn\'t include an update handler, +-- so the type can\'t be updated and must instead be replaced during +-- stack update operations. +-- +-- - @NON_PROVISIONABLE@: The resource type doesn\'t include create, +-- read, and delete handlers, and therefore can\'t actually be +-- provisioned. +-- +-- The default is @FULLY_MUTABLE@. +listTypes_provisioningType :: Lens.Lens' ListTypes (Prelude.Maybe ProvisioningType) +listTypes_provisioningType = Lens.lens (\ListTypes' {provisioningType} -> provisioningType) (\s@ListTypes' {} a -> s {provisioningType = a} :: ListTypes) + +-- | The type of extension. +listTypes_type :: Lens.Lens' ListTypes (Prelude.Maybe RegistryType) +listTypes_type = Lens.lens (\ListTypes' {type'} -> type') (\s@ListTypes' {} a -> s {type' = a} :: ListTypes) + +-- | The scope at which the extensions are visible and usable in +-- CloudFormation operations. +-- +-- Valid values include: +-- +-- - @PRIVATE@: Extensions that are visible and usable within this +-- account and region. This includes: +-- +-- - Private extensions you have registered in this account and +-- region. +-- +-- - Public extensions that you have activated in this account and +-- region. +-- +-- - @PUBLIC@: Extensions that are publicly visible and available to be +-- activated within any Amazon Web Services account. This includes +-- extensions from Amazon Web Services, in addition to third-party +-- publishers. +-- +-- The default is @PRIVATE@. +listTypes_visibility :: Lens.Lens' ListTypes (Prelude.Maybe Visibility) +listTypes_visibility = Lens.lens (\ListTypes' {visibility} -> visibility) (\s@ListTypes' {} a -> s {visibility = a} :: ListTypes) + +instance Core.AWSPager ListTypes where + page rq rs + | Core.stop + ( rs + Lens.^? listTypesResponse_nextToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? listTypesResponse_typeSummaries + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listTypes_nextToken + Lens..~ rs + Lens.^? listTypesResponse_nextToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListTypes where + type AWSResponse ListTypes = ListTypesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ListTypesResult" + ( \s h x -> + ListTypesResponse' + Prelude.<$> (x Data..@? "NextToken") + Prelude.<*> ( x + Data..@? "TypeSummaries" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListTypes where + hashWithSalt _salt ListTypes' {..} = + _salt + `Prelude.hashWithSalt` deprecatedStatus + `Prelude.hashWithSalt` filters + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` provisioningType + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` visibility + +instance Prelude.NFData ListTypes where + rnf ListTypes' {..} = + Prelude.rnf deprecatedStatus + `Prelude.seq` Prelude.rnf filters + `Prelude.seq` Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf provisioningType + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf visibility + +instance Data.ToHeaders ListTypes where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ListTypes where + toPath = Prelude.const "/" + +instance Data.ToQuery ListTypes where + toQuery ListTypes' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ListTypes" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "DeprecatedStatus" Data.=: deprecatedStatus, + "Filters" Data.=: filters, + "MaxResults" Data.=: maxResults, + "NextToken" Data.=: nextToken, + "ProvisioningType" Data.=: provisioningType, + "Type" Data.=: type', + "Visibility" Data.=: visibility + ] + +-- | /See:/ 'newListTypesResponse' smart constructor. +data ListTypesResponse = ListTypesResponse' + { -- | If the request doesn\'t return all the remaining results, @NextToken@ is + -- set to a token. To retrieve the next set of results, call this action + -- again and assign that token to the request object\'s @NextToken@ + -- parameter. If the request returns all results, @NextToken@ is set to + -- @null@. + nextToken :: Prelude.Maybe Prelude.Text, + -- | A list of @TypeSummary@ structures that contain information about the + -- specified extensions. + typeSummaries :: Prelude.Maybe [TypeSummary], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTypesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listTypesResponse_nextToken' - If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call this action +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If the request returns all results, @NextToken@ is set to +-- @null@. +-- +-- 'typeSummaries', 'listTypesResponse_typeSummaries' - A list of @TypeSummary@ structures that contain information about the +-- specified extensions. +-- +-- 'httpStatus', 'listTypesResponse_httpStatus' - The response's http status code. +newListTypesResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListTypesResponse +newListTypesResponse pHttpStatus_ = + ListTypesResponse' + { nextToken = Prelude.Nothing, + typeSummaries = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | If the request doesn\'t return all the remaining results, @NextToken@ is +-- set to a token. To retrieve the next set of results, call this action +-- again and assign that token to the request object\'s @NextToken@ +-- parameter. If the request returns all results, @NextToken@ is set to +-- @null@. +listTypesResponse_nextToken :: Lens.Lens' ListTypesResponse (Prelude.Maybe Prelude.Text) +listTypesResponse_nextToken = Lens.lens (\ListTypesResponse' {nextToken} -> nextToken) (\s@ListTypesResponse' {} a -> s {nextToken = a} :: ListTypesResponse) + +-- | A list of @TypeSummary@ structures that contain information about the +-- specified extensions. +listTypesResponse_typeSummaries :: Lens.Lens' ListTypesResponse (Prelude.Maybe [TypeSummary]) +listTypesResponse_typeSummaries = Lens.lens (\ListTypesResponse' {typeSummaries} -> typeSummaries) (\s@ListTypesResponse' {} a -> s {typeSummaries = a} :: ListTypesResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listTypesResponse_httpStatus :: Lens.Lens' ListTypesResponse Prelude.Int +listTypesResponse_httpStatus = Lens.lens (\ListTypesResponse' {httpStatus} -> httpStatus) (\s@ListTypesResponse' {} a -> s {httpStatus = a} :: ListTypesResponse) + +instance Prelude.NFData ListTypesResponse where + rnf ListTypesResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf typeSummaries + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/PublishType.hs b/gen/Amazonka/CloudFormation/PublishType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/PublishType.hs @@ -0,0 +1,271 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.PublishType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Publishes the specified extension to the CloudFormation registry as a +-- public extension in this region. Public extensions are available for use +-- by all CloudFormation users. For more information about publishing +-- extensions, see +-- +-- in the /CloudFormation CLI User Guide/. +-- +-- To publish an extension, you must be registered as a publisher with +-- CloudFormation. For more information, see +-- . +module Amazonka.CloudFormation.PublishType + ( -- * Creating a Request + PublishType (..), + newPublishType, + + -- * Request Lenses + publishType_arn, + publishType_publicVersionNumber, + publishType_type, + publishType_typeName, + + -- * Destructuring the Response + PublishTypeResponse (..), + newPublishTypeResponse, + + -- * Response Lenses + publishTypeResponse_publicTypeArn, + publishTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newPublishType' smart constructor. +data PublishType = PublishType' + { -- | The Amazon Resource Name (ARN) of the extension. + -- + -- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. + arn :: Prelude.Maybe Prelude.Text, + -- | The version number to assign to this version of the extension. + -- + -- Use the following format, and adhere to semantic versioning when + -- assigning a version number to your extension: + -- + -- @MAJOR.MINOR.PATCH@ + -- + -- For more information, see + -- . + -- + -- If you don\'t specify a version number, CloudFormation increments the + -- version number by one minor version release. + -- + -- You cannot specify a version number the first time you publish a type. + -- CloudFormation automatically sets the first version number to be + -- @1.0.0@. + publicVersionNumber :: Prelude.Maybe Prelude.Text, + -- | The type of the extension. + -- + -- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. + type' :: Prelude.Maybe ThirdPartyType, + -- | The name of the extension. + -- + -- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PublishType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'publishType_arn' - The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +-- +-- 'publicVersionNumber', 'publishType_publicVersionNumber' - The version number to assign to this version of the extension. +-- +-- Use the following format, and adhere to semantic versioning when +-- assigning a version number to your extension: +-- +-- @MAJOR.MINOR.PATCH@ +-- +-- For more information, see +-- . +-- +-- If you don\'t specify a version number, CloudFormation increments the +-- version number by one minor version release. +-- +-- You cannot specify a version number the first time you publish a type. +-- CloudFormation automatically sets the first version number to be +-- @1.0.0@. +-- +-- 'type'', 'publishType_type' - The type of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +-- +-- 'typeName', 'publishType_typeName' - The name of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +newPublishType :: + PublishType +newPublishType = + PublishType' + { arn = Prelude.Nothing, + publicVersionNumber = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +publishType_arn :: Lens.Lens' PublishType (Prelude.Maybe Prelude.Text) +publishType_arn = Lens.lens (\PublishType' {arn} -> arn) (\s@PublishType' {} a -> s {arn = a} :: PublishType) + +-- | The version number to assign to this version of the extension. +-- +-- Use the following format, and adhere to semantic versioning when +-- assigning a version number to your extension: +-- +-- @MAJOR.MINOR.PATCH@ +-- +-- For more information, see +-- . +-- +-- If you don\'t specify a version number, CloudFormation increments the +-- version number by one minor version release. +-- +-- You cannot specify a version number the first time you publish a type. +-- CloudFormation automatically sets the first version number to be +-- @1.0.0@. +publishType_publicVersionNumber :: Lens.Lens' PublishType (Prelude.Maybe Prelude.Text) +publishType_publicVersionNumber = Lens.lens (\PublishType' {publicVersionNumber} -> publicVersionNumber) (\s@PublishType' {} a -> s {publicVersionNumber = a} :: PublishType) + +-- | The type of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +publishType_type :: Lens.Lens' PublishType (Prelude.Maybe ThirdPartyType) +publishType_type = Lens.lens (\PublishType' {type'} -> type') (\s@PublishType' {} a -> s {type' = a} :: PublishType) + +-- | The name of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +publishType_typeName :: Lens.Lens' PublishType (Prelude.Maybe Prelude.Text) +publishType_typeName = Lens.lens (\PublishType' {typeName} -> typeName) (\s@PublishType' {} a -> s {typeName = a} :: PublishType) + +instance Core.AWSRequest PublishType where + type AWSResponse PublishType = PublishTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "PublishTypeResult" + ( \s h x -> + PublishTypeResponse' + Prelude.<$> (x Data..@? "PublicTypeArn") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable PublishType where + hashWithSalt _salt PublishType' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` publicVersionNumber + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData PublishType where + rnf PublishType' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf publicVersionNumber + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + +instance Data.ToHeaders PublishType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath PublishType where + toPath = Prelude.const "/" + +instance Data.ToQuery PublishType where + toQuery PublishType' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("PublishType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "PublicVersionNumber" Data.=: publicVersionNumber, + "Type" Data.=: type', + "TypeName" Data.=: typeName + ] + +-- | /See:/ 'newPublishTypeResponse' smart constructor. +data PublishTypeResponse = PublishTypeResponse' + { -- | The Amazon Resource Name (ARN) assigned to the public extension upon + -- publication. + publicTypeArn :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PublishTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'publicTypeArn', 'publishTypeResponse_publicTypeArn' - The Amazon Resource Name (ARN) assigned to the public extension upon +-- publication. +-- +-- 'httpStatus', 'publishTypeResponse_httpStatus' - The response's http status code. +newPublishTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + PublishTypeResponse +newPublishTypeResponse pHttpStatus_ = + PublishTypeResponse' + { publicTypeArn = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The Amazon Resource Name (ARN) assigned to the public extension upon +-- publication. +publishTypeResponse_publicTypeArn :: Lens.Lens' PublishTypeResponse (Prelude.Maybe Prelude.Text) +publishTypeResponse_publicTypeArn = Lens.lens (\PublishTypeResponse' {publicTypeArn} -> publicTypeArn) (\s@PublishTypeResponse' {} a -> s {publicTypeArn = a} :: PublishTypeResponse) + +-- | The response's http status code. +publishTypeResponse_httpStatus :: Lens.Lens' PublishTypeResponse Prelude.Int +publishTypeResponse_httpStatus = Lens.lens (\PublishTypeResponse' {httpStatus} -> httpStatus) (\s@PublishTypeResponse' {} a -> s {httpStatus = a} :: PublishTypeResponse) + +instance Prelude.NFData PublishTypeResponse where + rnf PublishTypeResponse' {..} = + Prelude.rnf publicTypeArn + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/RecordHandlerProgress.hs b/gen/Amazonka/CloudFormation/RecordHandlerProgress.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/RecordHandlerProgress.hs @@ -0,0 +1,258 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.RecordHandlerProgress +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Reports progress of a resource handler to CloudFormation. +-- +-- Reserved for use by the +-- . +-- Don\'t use this API in your code. +module Amazonka.CloudFormation.RecordHandlerProgress + ( -- * Creating a Request + RecordHandlerProgress (..), + newRecordHandlerProgress, + + -- * Request Lenses + recordHandlerProgress_clientRequestToken, + recordHandlerProgress_currentOperationStatus, + recordHandlerProgress_errorCode, + recordHandlerProgress_resourceModel, + recordHandlerProgress_statusMessage, + recordHandlerProgress_bearerToken, + recordHandlerProgress_operationStatus, + + -- * Destructuring the Response + RecordHandlerProgressResponse (..), + newRecordHandlerProgressResponse, + + -- * Response Lenses + recordHandlerProgressResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newRecordHandlerProgress' smart constructor. +data RecordHandlerProgress = RecordHandlerProgress' + { -- | Reserved for use by the + -- . + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | Reserved for use by the + -- . + currentOperationStatus :: Prelude.Maybe OperationStatus, + -- | Reserved for use by the + -- . + errorCode :: Prelude.Maybe HandlerErrorCode, + -- | Reserved for use by the + -- . + resourceModel :: Prelude.Maybe Prelude.Text, + -- | Reserved for use by the + -- . + statusMessage :: Prelude.Maybe Prelude.Text, + -- | Reserved for use by the + -- . + bearerToken :: Prelude.Text, + -- | Reserved for use by the + -- . + operationStatus :: OperationStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RecordHandlerProgress' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'recordHandlerProgress_clientRequestToken' - Reserved for use by the +-- . +-- +-- 'currentOperationStatus', 'recordHandlerProgress_currentOperationStatus' - Reserved for use by the +-- . +-- +-- 'errorCode', 'recordHandlerProgress_errorCode' - Reserved for use by the +-- . +-- +-- 'resourceModel', 'recordHandlerProgress_resourceModel' - Reserved for use by the +-- . +-- +-- 'statusMessage', 'recordHandlerProgress_statusMessage' - Reserved for use by the +-- . +-- +-- 'bearerToken', 'recordHandlerProgress_bearerToken' - Reserved for use by the +-- . +-- +-- 'operationStatus', 'recordHandlerProgress_operationStatus' - Reserved for use by the +-- . +newRecordHandlerProgress :: + -- | 'bearerToken' + Prelude.Text -> + -- | 'operationStatus' + OperationStatus -> + RecordHandlerProgress +newRecordHandlerProgress + pBearerToken_ + pOperationStatus_ = + RecordHandlerProgress' + { clientRequestToken = + Prelude.Nothing, + currentOperationStatus = Prelude.Nothing, + errorCode = Prelude.Nothing, + resourceModel = Prelude.Nothing, + statusMessage = Prelude.Nothing, + bearerToken = pBearerToken_, + operationStatus = pOperationStatus_ + } + +-- | Reserved for use by the +-- . +recordHandlerProgress_clientRequestToken :: Lens.Lens' RecordHandlerProgress (Prelude.Maybe Prelude.Text) +recordHandlerProgress_clientRequestToken = Lens.lens (\RecordHandlerProgress' {clientRequestToken} -> clientRequestToken) (\s@RecordHandlerProgress' {} a -> s {clientRequestToken = a} :: RecordHandlerProgress) + +-- | Reserved for use by the +-- . +recordHandlerProgress_currentOperationStatus :: Lens.Lens' RecordHandlerProgress (Prelude.Maybe OperationStatus) +recordHandlerProgress_currentOperationStatus = Lens.lens (\RecordHandlerProgress' {currentOperationStatus} -> currentOperationStatus) (\s@RecordHandlerProgress' {} a -> s {currentOperationStatus = a} :: RecordHandlerProgress) + +-- | Reserved for use by the +-- . +recordHandlerProgress_errorCode :: Lens.Lens' RecordHandlerProgress (Prelude.Maybe HandlerErrorCode) +recordHandlerProgress_errorCode = Lens.lens (\RecordHandlerProgress' {errorCode} -> errorCode) (\s@RecordHandlerProgress' {} a -> s {errorCode = a} :: RecordHandlerProgress) + +-- | Reserved for use by the +-- . +recordHandlerProgress_resourceModel :: Lens.Lens' RecordHandlerProgress (Prelude.Maybe Prelude.Text) +recordHandlerProgress_resourceModel = Lens.lens (\RecordHandlerProgress' {resourceModel} -> resourceModel) (\s@RecordHandlerProgress' {} a -> s {resourceModel = a} :: RecordHandlerProgress) + +-- | Reserved for use by the +-- . +recordHandlerProgress_statusMessage :: Lens.Lens' RecordHandlerProgress (Prelude.Maybe Prelude.Text) +recordHandlerProgress_statusMessage = Lens.lens (\RecordHandlerProgress' {statusMessage} -> statusMessage) (\s@RecordHandlerProgress' {} a -> s {statusMessage = a} :: RecordHandlerProgress) + +-- | Reserved for use by the +-- . +recordHandlerProgress_bearerToken :: Lens.Lens' RecordHandlerProgress Prelude.Text +recordHandlerProgress_bearerToken = Lens.lens (\RecordHandlerProgress' {bearerToken} -> bearerToken) (\s@RecordHandlerProgress' {} a -> s {bearerToken = a} :: RecordHandlerProgress) + +-- | Reserved for use by the +-- . +recordHandlerProgress_operationStatus :: Lens.Lens' RecordHandlerProgress OperationStatus +recordHandlerProgress_operationStatus = Lens.lens (\RecordHandlerProgress' {operationStatus} -> operationStatus) (\s@RecordHandlerProgress' {} a -> s {operationStatus = a} :: RecordHandlerProgress) + +instance Core.AWSRequest RecordHandlerProgress where + type + AWSResponse RecordHandlerProgress = + RecordHandlerProgressResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "RecordHandlerProgressResult" + ( \s h x -> + RecordHandlerProgressResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable RecordHandlerProgress where + hashWithSalt _salt RecordHandlerProgress' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` currentOperationStatus + `Prelude.hashWithSalt` errorCode + `Prelude.hashWithSalt` resourceModel + `Prelude.hashWithSalt` statusMessage + `Prelude.hashWithSalt` bearerToken + `Prelude.hashWithSalt` operationStatus + +instance Prelude.NFData RecordHandlerProgress where + rnf RecordHandlerProgress' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf currentOperationStatus + `Prelude.seq` Prelude.rnf errorCode + `Prelude.seq` Prelude.rnf resourceModel + `Prelude.seq` Prelude.rnf statusMessage + `Prelude.seq` Prelude.rnf bearerToken + `Prelude.seq` Prelude.rnf operationStatus + +instance Data.ToHeaders RecordHandlerProgress where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath RecordHandlerProgress where + toPath = Prelude.const "/" + +instance Data.ToQuery RecordHandlerProgress where + toQuery RecordHandlerProgress' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("RecordHandlerProgress" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "CurrentOperationStatus" + Data.=: currentOperationStatus, + "ErrorCode" Data.=: errorCode, + "ResourceModel" Data.=: resourceModel, + "StatusMessage" Data.=: statusMessage, + "BearerToken" Data.=: bearerToken, + "OperationStatus" Data.=: operationStatus + ] + +-- | /See:/ 'newRecordHandlerProgressResponse' smart constructor. +data RecordHandlerProgressResponse = RecordHandlerProgressResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RecordHandlerProgressResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'recordHandlerProgressResponse_httpStatus' - The response's http status code. +newRecordHandlerProgressResponse :: + -- | 'httpStatus' + Prelude.Int -> + RecordHandlerProgressResponse +newRecordHandlerProgressResponse pHttpStatus_ = + RecordHandlerProgressResponse' + { httpStatus = + pHttpStatus_ + } + +-- | The response's http status code. +recordHandlerProgressResponse_httpStatus :: Lens.Lens' RecordHandlerProgressResponse Prelude.Int +recordHandlerProgressResponse_httpStatus = Lens.lens (\RecordHandlerProgressResponse' {httpStatus} -> httpStatus) (\s@RecordHandlerProgressResponse' {} a -> s {httpStatus = a} :: RecordHandlerProgressResponse) + +instance Prelude.NFData RecordHandlerProgressResponse where + rnf RecordHandlerProgressResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/RegisterPublisher.hs b/gen/Amazonka/CloudFormation/RegisterPublisher.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/RegisterPublisher.hs @@ -0,0 +1,221 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.RegisterPublisher +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Registers your account as a publisher of public extensions in the +-- CloudFormation registry. Public extensions are available for use by all +-- CloudFormation users. This publisher ID applies to your account in all +-- Amazon Web Services Regions. +-- +-- For information about requirements for registering as a public extension +-- publisher, see +-- +-- in the /CloudFormation CLI User Guide/. +module Amazonka.CloudFormation.RegisterPublisher + ( -- * Creating a Request + RegisterPublisher (..), + newRegisterPublisher, + + -- * Request Lenses + registerPublisher_acceptTermsAndConditions, + registerPublisher_connectionArn, + + -- * Destructuring the Response + RegisterPublisherResponse (..), + newRegisterPublisherResponse, + + -- * Response Lenses + registerPublisherResponse_publisherId, + registerPublisherResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newRegisterPublisher' smart constructor. +data RegisterPublisher = RegisterPublisher' + { -- | Whether you accept the + -- + -- for publishing extensions in the CloudFormation registry. You must + -- accept the terms and conditions in order to register to publish public + -- extensions to the CloudFormation registry. + -- + -- The default is @false@. + acceptTermsAndConditions :: Prelude.Maybe Prelude.Bool, + -- | If you are using a Bitbucket or GitHub account for identity + -- verification, the Amazon Resource Name (ARN) for your connection to that + -- account. + -- + -- For more information, see + -- + -- in the /CloudFormation CLI User Guide/. + connectionArn :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterPublisher' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'acceptTermsAndConditions', 'registerPublisher_acceptTermsAndConditions' - Whether you accept the +-- +-- for publishing extensions in the CloudFormation registry. You must +-- accept the terms and conditions in order to register to publish public +-- extensions to the CloudFormation registry. +-- +-- The default is @false@. +-- +-- 'connectionArn', 'registerPublisher_connectionArn' - If you are using a Bitbucket or GitHub account for identity +-- verification, the Amazon Resource Name (ARN) for your connection to that +-- account. +-- +-- For more information, see +-- +-- in the /CloudFormation CLI User Guide/. +newRegisterPublisher :: + RegisterPublisher +newRegisterPublisher = + RegisterPublisher' + { acceptTermsAndConditions = + Prelude.Nothing, + connectionArn = Prelude.Nothing + } + +-- | Whether you accept the +-- +-- for publishing extensions in the CloudFormation registry. You must +-- accept the terms and conditions in order to register to publish public +-- extensions to the CloudFormation registry. +-- +-- The default is @false@. +registerPublisher_acceptTermsAndConditions :: Lens.Lens' RegisterPublisher (Prelude.Maybe Prelude.Bool) +registerPublisher_acceptTermsAndConditions = Lens.lens (\RegisterPublisher' {acceptTermsAndConditions} -> acceptTermsAndConditions) (\s@RegisterPublisher' {} a -> s {acceptTermsAndConditions = a} :: RegisterPublisher) + +-- | If you are using a Bitbucket or GitHub account for identity +-- verification, the Amazon Resource Name (ARN) for your connection to that +-- account. +-- +-- For more information, see +-- +-- in the /CloudFormation CLI User Guide/. +registerPublisher_connectionArn :: Lens.Lens' RegisterPublisher (Prelude.Maybe Prelude.Text) +registerPublisher_connectionArn = Lens.lens (\RegisterPublisher' {connectionArn} -> connectionArn) (\s@RegisterPublisher' {} a -> s {connectionArn = a} :: RegisterPublisher) + +instance Core.AWSRequest RegisterPublisher where + type + AWSResponse RegisterPublisher = + RegisterPublisherResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "RegisterPublisherResult" + ( \s h x -> + RegisterPublisherResponse' + Prelude.<$> (x Data..@? "PublisherId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable RegisterPublisher where + hashWithSalt _salt RegisterPublisher' {..} = + _salt + `Prelude.hashWithSalt` acceptTermsAndConditions + `Prelude.hashWithSalt` connectionArn + +instance Prelude.NFData RegisterPublisher where + rnf RegisterPublisher' {..} = + Prelude.rnf acceptTermsAndConditions + `Prelude.seq` Prelude.rnf connectionArn + +instance Data.ToHeaders RegisterPublisher where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath RegisterPublisher where + toPath = Prelude.const "/" + +instance Data.ToQuery RegisterPublisher where + toQuery RegisterPublisher' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("RegisterPublisher" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "AcceptTermsAndConditions" + Data.=: acceptTermsAndConditions, + "ConnectionArn" Data.=: connectionArn + ] + +-- | /See:/ 'newRegisterPublisherResponse' smart constructor. +data RegisterPublisherResponse = RegisterPublisherResponse' + { -- | The ID assigned this account by CloudFormation for publishing + -- extensions. + publisherId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterPublisherResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'publisherId', 'registerPublisherResponse_publisherId' - The ID assigned this account by CloudFormation for publishing +-- extensions. +-- +-- 'httpStatus', 'registerPublisherResponse_httpStatus' - The response's http status code. +newRegisterPublisherResponse :: + -- | 'httpStatus' + Prelude.Int -> + RegisterPublisherResponse +newRegisterPublisherResponse pHttpStatus_ = + RegisterPublisherResponse' + { publisherId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The ID assigned this account by CloudFormation for publishing +-- extensions. +registerPublisherResponse_publisherId :: Lens.Lens' RegisterPublisherResponse (Prelude.Maybe Prelude.Text) +registerPublisherResponse_publisherId = Lens.lens (\RegisterPublisherResponse' {publisherId} -> publisherId) (\s@RegisterPublisherResponse' {} a -> s {publisherId = a} :: RegisterPublisherResponse) + +-- | The response's http status code. +registerPublisherResponse_httpStatus :: Lens.Lens' RegisterPublisherResponse Prelude.Int +registerPublisherResponse_httpStatus = Lens.lens (\RegisterPublisherResponse' {httpStatus} -> httpStatus) (\s@RegisterPublisherResponse' {} a -> s {httpStatus = a} :: RegisterPublisherResponse) + +instance Prelude.NFData RegisterPublisherResponse where + rnf RegisterPublisherResponse' {..} = + Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/RegisterType.hs b/gen/Amazonka/CloudFormation/RegisterType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/RegisterType.hs @@ -0,0 +1,443 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.RegisterType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Registers an extension with the CloudFormation service. Registering an +-- extension makes it available for use in CloudFormation templates in your +-- Amazon Web Services account, and includes: +-- +-- - Validating the extension schema. +-- +-- - Determining which handlers, if any, have been specified for the +-- extension. +-- +-- - Making the extension available for use in your account. +-- +-- For more information about how to develop extensions and ready them for +-- registration, see +-- +-- in the /CloudFormation CLI User Guide/. +-- +-- You can have a maximum of 50 resource extension versions registered at a +-- time. This maximum is per account and per region. Use +-- +-- to deregister specific extension versions if necessary. +-- +-- Once you have initiated a registration request using +-- @ @@RegisterType@@ @, you can use @ @@DescribeTypeRegistration@@ @ to +-- monitor the progress of the registration request. +-- +-- Once you have registered a private extension in your account and region, +-- use +-- +-- to specify configuration properties for the extension. For more +-- information, see +-- +-- in the /CloudFormation User Guide/. +module Amazonka.CloudFormation.RegisterType + ( -- * Creating a Request + RegisterType (..), + newRegisterType, + + -- * Request Lenses + registerType_clientRequestToken, + registerType_executionRoleArn, + registerType_loggingConfig, + registerType_type, + registerType_typeName, + registerType_schemaHandlerPackage, + + -- * Destructuring the Response + RegisterTypeResponse (..), + newRegisterTypeResponse, + + -- * Response Lenses + registerTypeResponse_registrationToken, + registerTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newRegisterType' smart constructor. +data RegisterType = RegisterType' + { -- | A unique identifier that acts as an idempotency key for this + -- registration request. Specifying a client request token prevents + -- CloudFormation from generating more than one version of an extension + -- from the same registration request, even if the request is submitted + -- multiple times. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) of the IAM role for CloudFormation to + -- assume when invoking the extension. + -- + -- For CloudFormation to assume the specified execution role, the role must + -- contain a trust relationship with the CloudFormation service principle + -- (@resources.cloudformation.amazonaws.com@). For more information about + -- adding trust relationships, see + -- + -- in the /Identity and Access Management User Guide/. + -- + -- If your extension calls Amazon Web Services APIs in any of its handlers, + -- you must create an + -- // + -- that includes the necessary permissions to call those Amazon Web + -- Services APIs, and provision that execution role in your account. When + -- CloudFormation needs to invoke the resource type handler, CloudFormation + -- assumes this execution role to create a temporary session token, which + -- it then passes to the resource type handler, thereby supplying your + -- resource type with the appropriate credentials. + executionRoleArn :: Prelude.Maybe Prelude.Text, + -- | Specifies logging configuration information for an extension. + loggingConfig :: Prelude.Maybe LoggingConfig, + -- | The kind of extension. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension being registered. + -- + -- We suggest that extension names adhere to the following patterns: + -- + -- - For resource types, /company_or_organization/::/service/::/type/. + -- + -- - For modules, /company_or_organization/::/service/::/type/::MODULE. + -- + -- - For hooks, /MyCompany/::/Testing/::/MyTestHook/. + -- + -- The following organization namespaces are reserved and can\'t be used in + -- your extension names: + -- + -- - @Alexa@ + -- + -- - @AMZN@ + -- + -- - @Amazon@ + -- + -- - @AWS@ + -- + -- - @Custom@ + -- + -- - @Dev@ + typeName :: Prelude.Text, + -- | A URL to the S3 bucket containing the extension project package that + -- contains the necessary files for the extension you want to register. + -- + -- For information about generating a schema handler package for the + -- extension you want to register, see + -- + -- in the /CloudFormation CLI User Guide/. + -- + -- The user registering the extension must be able to access the package in + -- the S3 bucket. That\'s, the user needs to have + -- + -- permissions for the schema handler package. For more information, see + -- + -- in the /Identity and Access Management User Guide/. + schemaHandlerPackage :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'registerType_clientRequestToken' - A unique identifier that acts as an idempotency key for this +-- registration request. Specifying a client request token prevents +-- CloudFormation from generating more than one version of an extension +-- from the same registration request, even if the request is submitted +-- multiple times. +-- +-- 'executionRoleArn', 'registerType_executionRoleArn' - The Amazon Resource Name (ARN) of the IAM role for CloudFormation to +-- assume when invoking the extension. +-- +-- For CloudFormation to assume the specified execution role, the role must +-- contain a trust relationship with the CloudFormation service principle +-- (@resources.cloudformation.amazonaws.com@). For more information about +-- adding trust relationships, see +-- +-- in the /Identity and Access Management User Guide/. +-- +-- If your extension calls Amazon Web Services APIs in any of its handlers, +-- you must create an +-- // +-- that includes the necessary permissions to call those Amazon Web +-- Services APIs, and provision that execution role in your account. When +-- CloudFormation needs to invoke the resource type handler, CloudFormation +-- assumes this execution role to create a temporary session token, which +-- it then passes to the resource type handler, thereby supplying your +-- resource type with the appropriate credentials. +-- +-- 'loggingConfig', 'registerType_loggingConfig' - Specifies logging configuration information for an extension. +-- +-- 'type'', 'registerType_type' - The kind of extension. +-- +-- 'typeName', 'registerType_typeName' - The name of the extension being registered. +-- +-- We suggest that extension names adhere to the following patterns: +-- +-- - For resource types, /company_or_organization/::/service/::/type/. +-- +-- - For modules, /company_or_organization/::/service/::/type/::MODULE. +-- +-- - For hooks, /MyCompany/::/Testing/::/MyTestHook/. +-- +-- The following organization namespaces are reserved and can\'t be used in +-- your extension names: +-- +-- - @Alexa@ +-- +-- - @AMZN@ +-- +-- - @Amazon@ +-- +-- - @AWS@ +-- +-- - @Custom@ +-- +-- - @Dev@ +-- +-- 'schemaHandlerPackage', 'registerType_schemaHandlerPackage' - A URL to the S3 bucket containing the extension project package that +-- contains the necessary files for the extension you want to register. +-- +-- For information about generating a schema handler package for the +-- extension you want to register, see +-- +-- in the /CloudFormation CLI User Guide/. +-- +-- The user registering the extension must be able to access the package in +-- the S3 bucket. That\'s, the user needs to have +-- +-- permissions for the schema handler package. For more information, see +-- +-- in the /Identity and Access Management User Guide/. +newRegisterType :: + -- | 'typeName' + Prelude.Text -> + -- | 'schemaHandlerPackage' + Prelude.Text -> + RegisterType +newRegisterType pTypeName_ pSchemaHandlerPackage_ = + RegisterType' + { clientRequestToken = Prelude.Nothing, + executionRoleArn = Prelude.Nothing, + loggingConfig = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = pTypeName_, + schemaHandlerPackage = pSchemaHandlerPackage_ + } + +-- | A unique identifier that acts as an idempotency key for this +-- registration request. Specifying a client request token prevents +-- CloudFormation from generating more than one version of an extension +-- from the same registration request, even if the request is submitted +-- multiple times. +registerType_clientRequestToken :: Lens.Lens' RegisterType (Prelude.Maybe Prelude.Text) +registerType_clientRequestToken = Lens.lens (\RegisterType' {clientRequestToken} -> clientRequestToken) (\s@RegisterType' {} a -> s {clientRequestToken = a} :: RegisterType) + +-- | The Amazon Resource Name (ARN) of the IAM role for CloudFormation to +-- assume when invoking the extension. +-- +-- For CloudFormation to assume the specified execution role, the role must +-- contain a trust relationship with the CloudFormation service principle +-- (@resources.cloudformation.amazonaws.com@). For more information about +-- adding trust relationships, see +-- +-- in the /Identity and Access Management User Guide/. +-- +-- If your extension calls Amazon Web Services APIs in any of its handlers, +-- you must create an +-- // +-- that includes the necessary permissions to call those Amazon Web +-- Services APIs, and provision that execution role in your account. When +-- CloudFormation needs to invoke the resource type handler, CloudFormation +-- assumes this execution role to create a temporary session token, which +-- it then passes to the resource type handler, thereby supplying your +-- resource type with the appropriate credentials. +registerType_executionRoleArn :: Lens.Lens' RegisterType (Prelude.Maybe Prelude.Text) +registerType_executionRoleArn = Lens.lens (\RegisterType' {executionRoleArn} -> executionRoleArn) (\s@RegisterType' {} a -> s {executionRoleArn = a} :: RegisterType) + +-- | Specifies logging configuration information for an extension. +registerType_loggingConfig :: Lens.Lens' RegisterType (Prelude.Maybe LoggingConfig) +registerType_loggingConfig = Lens.lens (\RegisterType' {loggingConfig} -> loggingConfig) (\s@RegisterType' {} a -> s {loggingConfig = a} :: RegisterType) + +-- | The kind of extension. +registerType_type :: Lens.Lens' RegisterType (Prelude.Maybe RegistryType) +registerType_type = Lens.lens (\RegisterType' {type'} -> type') (\s@RegisterType' {} a -> s {type' = a} :: RegisterType) + +-- | The name of the extension being registered. +-- +-- We suggest that extension names adhere to the following patterns: +-- +-- - For resource types, /company_or_organization/::/service/::/type/. +-- +-- - For modules, /company_or_organization/::/service/::/type/::MODULE. +-- +-- - For hooks, /MyCompany/::/Testing/::/MyTestHook/. +-- +-- The following organization namespaces are reserved and can\'t be used in +-- your extension names: +-- +-- - @Alexa@ +-- +-- - @AMZN@ +-- +-- - @Amazon@ +-- +-- - @AWS@ +-- +-- - @Custom@ +-- +-- - @Dev@ +registerType_typeName :: Lens.Lens' RegisterType Prelude.Text +registerType_typeName = Lens.lens (\RegisterType' {typeName} -> typeName) (\s@RegisterType' {} a -> s {typeName = a} :: RegisterType) + +-- | A URL to the S3 bucket containing the extension project package that +-- contains the necessary files for the extension you want to register. +-- +-- For information about generating a schema handler package for the +-- extension you want to register, see +-- +-- in the /CloudFormation CLI User Guide/. +-- +-- The user registering the extension must be able to access the package in +-- the S3 bucket. That\'s, the user needs to have +-- +-- permissions for the schema handler package. For more information, see +-- +-- in the /Identity and Access Management User Guide/. +registerType_schemaHandlerPackage :: Lens.Lens' RegisterType Prelude.Text +registerType_schemaHandlerPackage = Lens.lens (\RegisterType' {schemaHandlerPackage} -> schemaHandlerPackage) (\s@RegisterType' {} a -> s {schemaHandlerPackage = a} :: RegisterType) + +instance Core.AWSRequest RegisterType where + type AWSResponse RegisterType = RegisterTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "RegisterTypeResult" + ( \s h x -> + RegisterTypeResponse' + Prelude.<$> (x Data..@? "RegistrationToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable RegisterType where + hashWithSalt _salt RegisterType' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` executionRoleArn + `Prelude.hashWithSalt` loggingConfig + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` schemaHandlerPackage + +instance Prelude.NFData RegisterType where + rnf RegisterType' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf executionRoleArn + `Prelude.seq` Prelude.rnf loggingConfig + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf schemaHandlerPackage + +instance Data.ToHeaders RegisterType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath RegisterType where + toPath = Prelude.const "/" + +instance Data.ToQuery RegisterType where + toQuery RegisterType' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("RegisterType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "ExecutionRoleArn" Data.=: executionRoleArn, + "LoggingConfig" Data.=: loggingConfig, + "Type" Data.=: type', + "TypeName" Data.=: typeName, + "SchemaHandlerPackage" Data.=: schemaHandlerPackage + ] + +-- | /See:/ 'newRegisterTypeResponse' smart constructor. +data RegisterTypeResponse = RegisterTypeResponse' + { -- | The identifier for this registration request. + -- + -- Use this registration token when calling + -- @ @@DescribeTypeRegistration@@ @, which returns information about the + -- status and IDs of the extension registration. + registrationToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'registrationToken', 'registerTypeResponse_registrationToken' - The identifier for this registration request. +-- +-- Use this registration token when calling +-- @ @@DescribeTypeRegistration@@ @, which returns information about the +-- status and IDs of the extension registration. +-- +-- 'httpStatus', 'registerTypeResponse_httpStatus' - The response's http status code. +newRegisterTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + RegisterTypeResponse +newRegisterTypeResponse pHttpStatus_ = + RegisterTypeResponse' + { registrationToken = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The identifier for this registration request. +-- +-- Use this registration token when calling +-- @ @@DescribeTypeRegistration@@ @, which returns information about the +-- status and IDs of the extension registration. +registerTypeResponse_registrationToken :: Lens.Lens' RegisterTypeResponse (Prelude.Maybe Prelude.Text) +registerTypeResponse_registrationToken = Lens.lens (\RegisterTypeResponse' {registrationToken} -> registrationToken) (\s@RegisterTypeResponse' {} a -> s {registrationToken = a} :: RegisterTypeResponse) + +-- | The response's http status code. +registerTypeResponse_httpStatus :: Lens.Lens' RegisterTypeResponse Prelude.Int +registerTypeResponse_httpStatus = Lens.lens (\RegisterTypeResponse' {httpStatus} -> httpStatus) (\s@RegisterTypeResponse' {} a -> s {httpStatus = a} :: RegisterTypeResponse) + +instance Prelude.NFData RegisterTypeResponse where + rnf RegisterTypeResponse' {..} = + Prelude.rnf registrationToken + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/RollbackStack.hs b/gen/Amazonka/CloudFormation/RollbackStack.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/RollbackStack.hs @@ -0,0 +1,209 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.RollbackStack +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- When specifying @RollbackStack@, you preserve the state of previously +-- provisioned resources when an operation fails. You can check the status +-- of the stack through the DescribeStacks operation. +-- +-- Rolls back the specified stack to the last known stable state from +-- @CREATE_FAILED@ or @UPDATE_FAILED@ stack statuses. +-- +-- This operation will delete a stack if it doesn\'t contain a last known +-- stable state. A last known stable state includes any status in a +-- @*_COMPLETE@. This includes the following stack statuses. +-- +-- - @CREATE_COMPLETE@ +-- +-- - @UPDATE_COMPLETE@ +-- +-- - @UPDATE_ROLLBACK_COMPLETE@ +-- +-- - @IMPORT_COMPLETE@ +-- +-- - @IMPORT_ROLLBACK_COMPLETE@ +module Amazonka.CloudFormation.RollbackStack + ( -- * Creating a Request + RollbackStack (..), + newRollbackStack, + + -- * Request Lenses + rollbackStack_clientRequestToken, + rollbackStack_roleARN, + rollbackStack_stackName, + + -- * Destructuring the Response + RollbackStackResponse (..), + newRollbackStackResponse, + + -- * Response Lenses + rollbackStackResponse_stackId, + rollbackStackResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newRollbackStack' smart constructor. +data RollbackStack = RollbackStack' + { -- | A unique identifier for this @RollbackStack@ request. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) of an Identity and Access Management role + -- that CloudFormation assumes to rollback the stack. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The name that\'s associated with the stack. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RollbackStack' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'rollbackStack_clientRequestToken' - A unique identifier for this @RollbackStack@ request. +-- +-- 'roleARN', 'rollbackStack_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management role +-- that CloudFormation assumes to rollback the stack. +-- +-- 'stackName', 'rollbackStack_stackName' - The name that\'s associated with the stack. +newRollbackStack :: + -- | 'stackName' + Prelude.Text -> + RollbackStack +newRollbackStack pStackName_ = + RollbackStack' + { clientRequestToken = + Prelude.Nothing, + roleARN = Prelude.Nothing, + stackName = pStackName_ + } + +-- | A unique identifier for this @RollbackStack@ request. +rollbackStack_clientRequestToken :: Lens.Lens' RollbackStack (Prelude.Maybe Prelude.Text) +rollbackStack_clientRequestToken = Lens.lens (\RollbackStack' {clientRequestToken} -> clientRequestToken) (\s@RollbackStack' {} a -> s {clientRequestToken = a} :: RollbackStack) + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management role +-- that CloudFormation assumes to rollback the stack. +rollbackStack_roleARN :: Lens.Lens' RollbackStack (Prelude.Maybe Prelude.Text) +rollbackStack_roleARN = Lens.lens (\RollbackStack' {roleARN} -> roleARN) (\s@RollbackStack' {} a -> s {roleARN = a} :: RollbackStack) + +-- | The name that\'s associated with the stack. +rollbackStack_stackName :: Lens.Lens' RollbackStack Prelude.Text +rollbackStack_stackName = Lens.lens (\RollbackStack' {stackName} -> stackName) (\s@RollbackStack' {} a -> s {stackName = a} :: RollbackStack) + +instance Core.AWSRequest RollbackStack where + type + AWSResponse RollbackStack = + RollbackStackResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "RollbackStackResult" + ( \s h x -> + RollbackStackResponse' + Prelude.<$> (x Data..@? "StackId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable RollbackStack where + hashWithSalt _salt RollbackStack' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData RollbackStack where + rnf RollbackStack' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders RollbackStack where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath RollbackStack where + toPath = Prelude.const "/" + +instance Data.ToQuery RollbackStack where + toQuery RollbackStack' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("RollbackStack" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ClientRequestToken" Data.=: clientRequestToken, + "RoleARN" Data.=: roleARN, + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newRollbackStackResponse' smart constructor. +data RollbackStackResponse = RollbackStackResponse' + { -- | Unique identifier of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RollbackStackResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackId', 'rollbackStackResponse_stackId' - Unique identifier of the stack. +-- +-- 'httpStatus', 'rollbackStackResponse_httpStatus' - The response's http status code. +newRollbackStackResponse :: + -- | 'httpStatus' + Prelude.Int -> + RollbackStackResponse +newRollbackStackResponse pHttpStatus_ = + RollbackStackResponse' + { stackId = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Unique identifier of the stack. +rollbackStackResponse_stackId :: Lens.Lens' RollbackStackResponse (Prelude.Maybe Prelude.Text) +rollbackStackResponse_stackId = Lens.lens (\RollbackStackResponse' {stackId} -> stackId) (\s@RollbackStackResponse' {} a -> s {stackId = a} :: RollbackStackResponse) + +-- | The response's http status code. +rollbackStackResponse_httpStatus :: Lens.Lens' RollbackStackResponse Prelude.Int +rollbackStackResponse_httpStatus = Lens.lens (\RollbackStackResponse' {httpStatus} -> httpStatus) (\s@RollbackStackResponse' {} a -> s {httpStatus = a} :: RollbackStackResponse) + +instance Prelude.NFData RollbackStackResponse where + rnf RollbackStackResponse' {..} = + Prelude.rnf stackId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/SetStackPolicy.hs b/gen/Amazonka/CloudFormation/SetStackPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/SetStackPolicy.hs @@ -0,0 +1,170 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.SetStackPolicy +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Sets a stack policy for a specified stack. +module Amazonka.CloudFormation.SetStackPolicy + ( -- * Creating a Request + SetStackPolicy (..), + newSetStackPolicy, + + -- * Request Lenses + setStackPolicy_stackPolicyBody, + setStackPolicy_stackPolicyURL, + setStackPolicy_stackName, + + -- * Destructuring the Response + SetStackPolicyResponse (..), + newSetStackPolicyResponse, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the SetStackPolicy action. +-- +-- /See:/ 'newSetStackPolicy' smart constructor. +data SetStackPolicy = SetStackPolicy' + { -- | Structure containing the stack policy body. For more information, go to + -- + -- in the CloudFormation User Guide. You can specify either the + -- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. + stackPolicyBody :: Prelude.Maybe Prelude.Text, + -- | Location of a file containing the stack policy. The URL must point to a + -- policy (maximum size: 16 KB) located in an Amazon S3 bucket in the same + -- Amazon Web Services Region as the stack. You can specify either the + -- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. + stackPolicyURL :: Prelude.Maybe Prelude.Text, + -- | The name or unique stack ID that you want to associate a policy with. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SetStackPolicy' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackPolicyBody', 'setStackPolicy_stackPolicyBody' - Structure containing the stack policy body. For more information, go to +-- +-- in the CloudFormation User Guide. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +-- +-- 'stackPolicyURL', 'setStackPolicy_stackPolicyURL' - Location of a file containing the stack policy. The URL must point to a +-- policy (maximum size: 16 KB) located in an Amazon S3 bucket in the same +-- Amazon Web Services Region as the stack. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +-- +-- 'stackName', 'setStackPolicy_stackName' - The name or unique stack ID that you want to associate a policy with. +newSetStackPolicy :: + -- | 'stackName' + Prelude.Text -> + SetStackPolicy +newSetStackPolicy pStackName_ = + SetStackPolicy' + { stackPolicyBody = Prelude.Nothing, + stackPolicyURL = Prelude.Nothing, + stackName = pStackName_ + } + +-- | Structure containing the stack policy body. For more information, go to +-- +-- in the CloudFormation User Guide. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +setStackPolicy_stackPolicyBody :: Lens.Lens' SetStackPolicy (Prelude.Maybe Prelude.Text) +setStackPolicy_stackPolicyBody = Lens.lens (\SetStackPolicy' {stackPolicyBody} -> stackPolicyBody) (\s@SetStackPolicy' {} a -> s {stackPolicyBody = a} :: SetStackPolicy) + +-- | Location of a file containing the stack policy. The URL must point to a +-- policy (maximum size: 16 KB) located in an Amazon S3 bucket in the same +-- Amazon Web Services Region as the stack. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +setStackPolicy_stackPolicyURL :: Lens.Lens' SetStackPolicy (Prelude.Maybe Prelude.Text) +setStackPolicy_stackPolicyURL = Lens.lens (\SetStackPolicy' {stackPolicyURL} -> stackPolicyURL) (\s@SetStackPolicy' {} a -> s {stackPolicyURL = a} :: SetStackPolicy) + +-- | The name or unique stack ID that you want to associate a policy with. +setStackPolicy_stackName :: Lens.Lens' SetStackPolicy Prelude.Text +setStackPolicy_stackName = Lens.lens (\SetStackPolicy' {stackName} -> stackName) (\s@SetStackPolicy' {} a -> s {stackName = a} :: SetStackPolicy) + +instance Core.AWSRequest SetStackPolicy where + type + AWSResponse SetStackPolicy = + SetStackPolicyResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveNull SetStackPolicyResponse' + +instance Prelude.Hashable SetStackPolicy where + hashWithSalt _salt SetStackPolicy' {..} = + _salt + `Prelude.hashWithSalt` stackPolicyBody + `Prelude.hashWithSalt` stackPolicyURL + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData SetStackPolicy where + rnf SetStackPolicy' {..} = + Prelude.rnf stackPolicyBody + `Prelude.seq` Prelude.rnf stackPolicyURL + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders SetStackPolicy where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath SetStackPolicy where + toPath = Prelude.const "/" + +instance Data.ToQuery SetStackPolicy where + toQuery SetStackPolicy' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("SetStackPolicy" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackPolicyBody" Data.=: stackPolicyBody, + "StackPolicyURL" Data.=: stackPolicyURL, + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newSetStackPolicyResponse' smart constructor. +data SetStackPolicyResponse = SetStackPolicyResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SetStackPolicyResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newSetStackPolicyResponse :: + SetStackPolicyResponse +newSetStackPolicyResponse = SetStackPolicyResponse' + +instance Prelude.NFData SetStackPolicyResponse where + rnf _ = () diff --git a/gen/Amazonka/CloudFormation/SetTypeConfiguration.hs b/gen/Amazonka/CloudFormation/SetTypeConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/SetTypeConfiguration.hs @@ -0,0 +1,324 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.SetTypeConfiguration +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Specifies the configuration data for a registered CloudFormation +-- extension, in the given account and region. +-- +-- To view the current configuration data for an extension, refer to the +-- @ConfigurationSchema@ element of +-- . +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- It\'s strongly recommended that you use dynamic references to restrict +-- sensitive configuration definitions, such as third-party credentials. +-- For more details on dynamic references, see +-- +-- in the /CloudFormation User Guide/. +module Amazonka.CloudFormation.SetTypeConfiguration + ( -- * Creating a Request + SetTypeConfiguration (..), + newSetTypeConfiguration, + + -- * Request Lenses + setTypeConfiguration_configurationAlias, + setTypeConfiguration_type, + setTypeConfiguration_typeArn, + setTypeConfiguration_typeName, + setTypeConfiguration_configuration, + + -- * Destructuring the Response + SetTypeConfigurationResponse (..), + newSetTypeConfigurationResponse, + + -- * Response Lenses + setTypeConfigurationResponse_configurationArn, + setTypeConfigurationResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newSetTypeConfiguration' smart constructor. +data SetTypeConfiguration = SetTypeConfiguration' + { -- | An alias by which to refer to this extension configuration data. + -- + -- Conditional: Specifying a configuration alias is required when setting a + -- configuration for a resource type extension. + configurationAlias :: Prelude.Maybe Prelude.Text, + -- | The type of extension. + -- + -- Conditional: You must specify @ConfigurationArn@, or @Type@ and + -- @TypeName@. + type' :: Prelude.Maybe ThirdPartyType, + -- | The Amazon Resource Name (ARN) for the extension, in this account and + -- region. + -- + -- For public extensions, this will be the ARN assigned when you + -- + -- in this account and region. For private extensions, this will be the ARN + -- assigned when you + -- + -- in this account and region. + -- + -- Do not include the extension versions suffix at the end of the ARN. You + -- can set the configuration for an extension, but not for a specific + -- extension version. + typeArn :: Prelude.Maybe Prelude.Text, + -- | The name of the extension. + -- + -- Conditional: You must specify @ConfigurationArn@, or @Type@ and + -- @TypeName@. + typeName :: Prelude.Maybe Prelude.Text, + -- | The configuration data for the extension, in this account and region. + -- + -- The configuration data must be formatted as JSON, and validate against + -- the schema returned in the @ConfigurationSchema@ response element of + -- . + -- For more information, see + -- + -- in the /CloudFormation CLI User Guide/. + configuration :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SetTypeConfiguration' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'configurationAlias', 'setTypeConfiguration_configurationAlias' - An alias by which to refer to this extension configuration data. +-- +-- Conditional: Specifying a configuration alias is required when setting a +-- configuration for a resource type extension. +-- +-- 'type'', 'setTypeConfiguration_type' - The type of extension. +-- +-- Conditional: You must specify @ConfigurationArn@, or @Type@ and +-- @TypeName@. +-- +-- 'typeArn', 'setTypeConfiguration_typeArn' - The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- For public extensions, this will be the ARN assigned when you +-- +-- in this account and region. For private extensions, this will be the ARN +-- assigned when you +-- +-- in this account and region. +-- +-- Do not include the extension versions suffix at the end of the ARN. You +-- can set the configuration for an extension, but not for a specific +-- extension version. +-- +-- 'typeName', 'setTypeConfiguration_typeName' - The name of the extension. +-- +-- Conditional: You must specify @ConfigurationArn@, or @Type@ and +-- @TypeName@. +-- +-- 'configuration', 'setTypeConfiguration_configuration' - The configuration data for the extension, in this account and region. +-- +-- The configuration data must be formatted as JSON, and validate against +-- the schema returned in the @ConfigurationSchema@ response element of +-- . +-- For more information, see +-- +-- in the /CloudFormation CLI User Guide/. +newSetTypeConfiguration :: + -- | 'configuration' + Prelude.Text -> + SetTypeConfiguration +newSetTypeConfiguration pConfiguration_ = + SetTypeConfiguration' + { configurationAlias = + Prelude.Nothing, + type' = Prelude.Nothing, + typeArn = Prelude.Nothing, + typeName = Prelude.Nothing, + configuration = pConfiguration_ + } + +-- | An alias by which to refer to this extension configuration data. +-- +-- Conditional: Specifying a configuration alias is required when setting a +-- configuration for a resource type extension. +setTypeConfiguration_configurationAlias :: Lens.Lens' SetTypeConfiguration (Prelude.Maybe Prelude.Text) +setTypeConfiguration_configurationAlias = Lens.lens (\SetTypeConfiguration' {configurationAlias} -> configurationAlias) (\s@SetTypeConfiguration' {} a -> s {configurationAlias = a} :: SetTypeConfiguration) + +-- | The type of extension. +-- +-- Conditional: You must specify @ConfigurationArn@, or @Type@ and +-- @TypeName@. +setTypeConfiguration_type :: Lens.Lens' SetTypeConfiguration (Prelude.Maybe ThirdPartyType) +setTypeConfiguration_type = Lens.lens (\SetTypeConfiguration' {type'} -> type') (\s@SetTypeConfiguration' {} a -> s {type' = a} :: SetTypeConfiguration) + +-- | The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- For public extensions, this will be the ARN assigned when you +-- +-- in this account and region. For private extensions, this will be the ARN +-- assigned when you +-- +-- in this account and region. +-- +-- Do not include the extension versions suffix at the end of the ARN. You +-- can set the configuration for an extension, but not for a specific +-- extension version. +setTypeConfiguration_typeArn :: Lens.Lens' SetTypeConfiguration (Prelude.Maybe Prelude.Text) +setTypeConfiguration_typeArn = Lens.lens (\SetTypeConfiguration' {typeArn} -> typeArn) (\s@SetTypeConfiguration' {} a -> s {typeArn = a} :: SetTypeConfiguration) + +-- | The name of the extension. +-- +-- Conditional: You must specify @ConfigurationArn@, or @Type@ and +-- @TypeName@. +setTypeConfiguration_typeName :: Lens.Lens' SetTypeConfiguration (Prelude.Maybe Prelude.Text) +setTypeConfiguration_typeName = Lens.lens (\SetTypeConfiguration' {typeName} -> typeName) (\s@SetTypeConfiguration' {} a -> s {typeName = a} :: SetTypeConfiguration) + +-- | The configuration data for the extension, in this account and region. +-- +-- The configuration data must be formatted as JSON, and validate against +-- the schema returned in the @ConfigurationSchema@ response element of +-- . +-- For more information, see +-- +-- in the /CloudFormation CLI User Guide/. +setTypeConfiguration_configuration :: Lens.Lens' SetTypeConfiguration Prelude.Text +setTypeConfiguration_configuration = Lens.lens (\SetTypeConfiguration' {configuration} -> configuration) (\s@SetTypeConfiguration' {} a -> s {configuration = a} :: SetTypeConfiguration) + +instance Core.AWSRequest SetTypeConfiguration where + type + AWSResponse SetTypeConfiguration = + SetTypeConfigurationResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "SetTypeConfigurationResult" + ( \s h x -> + SetTypeConfigurationResponse' + Prelude.<$> (x Data..@? "ConfigurationArn") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable SetTypeConfiguration where + hashWithSalt _salt SetTypeConfiguration' {..} = + _salt + `Prelude.hashWithSalt` configurationAlias + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeArn + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` configuration + +instance Prelude.NFData SetTypeConfiguration where + rnf SetTypeConfiguration' {..} = + Prelude.rnf configurationAlias + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeArn + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf configuration + +instance Data.ToHeaders SetTypeConfiguration where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath SetTypeConfiguration where + toPath = Prelude.const "/" + +instance Data.ToQuery SetTypeConfiguration where + toQuery SetTypeConfiguration' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("SetTypeConfiguration" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "ConfigurationAlias" Data.=: configurationAlias, + "Type" Data.=: type', + "TypeArn" Data.=: typeArn, + "TypeName" Data.=: typeName, + "Configuration" Data.=: configuration + ] + +-- | /See:/ 'newSetTypeConfigurationResponse' smart constructor. +data SetTypeConfigurationResponse = SetTypeConfigurationResponse' + { -- | The Amazon Resource Name (ARN) for the configuration data, in this + -- account and region. + -- + -- Conditional: You must specify @ConfigurationArn@, or @Type@ and + -- @TypeName@. + configurationArn :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SetTypeConfigurationResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'configurationArn', 'setTypeConfigurationResponse_configurationArn' - The Amazon Resource Name (ARN) for the configuration data, in this +-- account and region. +-- +-- Conditional: You must specify @ConfigurationArn@, or @Type@ and +-- @TypeName@. +-- +-- 'httpStatus', 'setTypeConfigurationResponse_httpStatus' - The response's http status code. +newSetTypeConfigurationResponse :: + -- | 'httpStatus' + Prelude.Int -> + SetTypeConfigurationResponse +newSetTypeConfigurationResponse pHttpStatus_ = + SetTypeConfigurationResponse' + { configurationArn = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The Amazon Resource Name (ARN) for the configuration data, in this +-- account and region. +-- +-- Conditional: You must specify @ConfigurationArn@, or @Type@ and +-- @TypeName@. +setTypeConfigurationResponse_configurationArn :: Lens.Lens' SetTypeConfigurationResponse (Prelude.Maybe Prelude.Text) +setTypeConfigurationResponse_configurationArn = Lens.lens (\SetTypeConfigurationResponse' {configurationArn} -> configurationArn) (\s@SetTypeConfigurationResponse' {} a -> s {configurationArn = a} :: SetTypeConfigurationResponse) + +-- | The response's http status code. +setTypeConfigurationResponse_httpStatus :: Lens.Lens' SetTypeConfigurationResponse Prelude.Int +setTypeConfigurationResponse_httpStatus = Lens.lens (\SetTypeConfigurationResponse' {httpStatus} -> httpStatus) (\s@SetTypeConfigurationResponse' {} a -> s {httpStatus = a} :: SetTypeConfigurationResponse) + +instance Prelude.NFData SetTypeConfigurationResponse where + rnf SetTypeConfigurationResponse' {..} = + Prelude.rnf configurationArn + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/SetTypeDefaultVersion.hs b/gen/Amazonka/CloudFormation/SetTypeDefaultVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/SetTypeDefaultVersion.hs @@ -0,0 +1,214 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.SetTypeDefaultVersion +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Specify the default version of an extension. The default version of an +-- extension will be used in CloudFormation operations. +module Amazonka.CloudFormation.SetTypeDefaultVersion + ( -- * Creating a Request + SetTypeDefaultVersion (..), + newSetTypeDefaultVersion, + + -- * Request Lenses + setTypeDefaultVersion_arn, + setTypeDefaultVersion_type, + setTypeDefaultVersion_typeName, + setTypeDefaultVersion_versionId, + + -- * Destructuring the Response + SetTypeDefaultVersionResponse (..), + newSetTypeDefaultVersionResponse, + + -- * Response Lenses + setTypeDefaultVersionResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newSetTypeDefaultVersion' smart constructor. +data SetTypeDefaultVersion = SetTypeDefaultVersion' + { -- | The Amazon Resource Name (ARN) of the extension for which you want + -- version summary information. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + arn :: Prelude.Maybe Prelude.Text, + -- | The kind of extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension. + -- + -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. + typeName :: Prelude.Maybe Prelude.Text, + -- | The ID of a specific version of the extension. The version ID is the + -- value at the end of the Amazon Resource Name (ARN) assigned to the + -- extension version when it is registered. + versionId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SetTypeDefaultVersion' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'setTypeDefaultVersion_arn' - The Amazon Resource Name (ARN) of the extension for which you want +-- version summary information. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'type'', 'setTypeDefaultVersion_type' - The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'typeName', 'setTypeDefaultVersion_typeName' - The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +-- +-- 'versionId', 'setTypeDefaultVersion_versionId' - The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it is registered. +newSetTypeDefaultVersion :: + SetTypeDefaultVersion +newSetTypeDefaultVersion = + SetTypeDefaultVersion' + { arn = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + versionId = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension for which you want +-- version summary information. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +setTypeDefaultVersion_arn :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe Prelude.Text) +setTypeDefaultVersion_arn = Lens.lens (\SetTypeDefaultVersion' {arn} -> arn) (\s@SetTypeDefaultVersion' {} a -> s {arn = a} :: SetTypeDefaultVersion) + +-- | The kind of extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +setTypeDefaultVersion_type :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe RegistryType) +setTypeDefaultVersion_type = Lens.lens (\SetTypeDefaultVersion' {type'} -> type') (\s@SetTypeDefaultVersion' {} a -> s {type' = a} :: SetTypeDefaultVersion) + +-- | The name of the extension. +-- +-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@. +setTypeDefaultVersion_typeName :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe Prelude.Text) +setTypeDefaultVersion_typeName = Lens.lens (\SetTypeDefaultVersion' {typeName} -> typeName) (\s@SetTypeDefaultVersion' {} a -> s {typeName = a} :: SetTypeDefaultVersion) + +-- | The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it is registered. +setTypeDefaultVersion_versionId :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe Prelude.Text) +setTypeDefaultVersion_versionId = Lens.lens (\SetTypeDefaultVersion' {versionId} -> versionId) (\s@SetTypeDefaultVersion' {} a -> s {versionId = a} :: SetTypeDefaultVersion) + +instance Core.AWSRequest SetTypeDefaultVersion where + type + AWSResponse SetTypeDefaultVersion = + SetTypeDefaultVersionResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "SetTypeDefaultVersionResult" + ( \s h x -> + SetTypeDefaultVersionResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable SetTypeDefaultVersion where + hashWithSalt _salt SetTypeDefaultVersion' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` versionId + +instance Prelude.NFData SetTypeDefaultVersion where + rnf SetTypeDefaultVersion' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf versionId + +instance Data.ToHeaders SetTypeDefaultVersion where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath SetTypeDefaultVersion where + toPath = Prelude.const "/" + +instance Data.ToQuery SetTypeDefaultVersion where + toQuery SetTypeDefaultVersion' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("SetTypeDefaultVersion" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "Type" Data.=: type', + "TypeName" Data.=: typeName, + "VersionId" Data.=: versionId + ] + +-- | /See:/ 'newSetTypeDefaultVersionResponse' smart constructor. +data SetTypeDefaultVersionResponse = SetTypeDefaultVersionResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SetTypeDefaultVersionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'setTypeDefaultVersionResponse_httpStatus' - The response's http status code. +newSetTypeDefaultVersionResponse :: + -- | 'httpStatus' + Prelude.Int -> + SetTypeDefaultVersionResponse +newSetTypeDefaultVersionResponse pHttpStatus_ = + SetTypeDefaultVersionResponse' + { httpStatus = + pHttpStatus_ + } + +-- | The response's http status code. +setTypeDefaultVersionResponse_httpStatus :: Lens.Lens' SetTypeDefaultVersionResponse Prelude.Int +setTypeDefaultVersionResponse_httpStatus = Lens.lens (\SetTypeDefaultVersionResponse' {httpStatus} -> httpStatus) (\s@SetTypeDefaultVersionResponse' {} a -> s {httpStatus = a} :: SetTypeDefaultVersionResponse) + +instance Prelude.NFData SetTypeDefaultVersionResponse where + rnf SetTypeDefaultVersionResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/SignalResource.hs b/gen/Amazonka/CloudFormation/SignalResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/SignalResource.hs @@ -0,0 +1,202 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.SignalResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Sends a signal to the specified resource with a success or failure +-- status. You can use the @SignalResource@ operation in conjunction with a +-- creation policy or update policy. CloudFormation doesn\'t proceed with a +-- stack creation or update until resources receive the required number of +-- signals or the timeout period is exceeded. The @SignalResource@ +-- operation is useful in cases where you want to send signals from +-- anywhere other than an Amazon EC2 instance. +module Amazonka.CloudFormation.SignalResource + ( -- * Creating a Request + SignalResource (..), + newSignalResource, + + -- * Request Lenses + signalResource_stackName, + signalResource_logicalResourceId, + signalResource_uniqueId, + signalResource_status, + + -- * Destructuring the Response + SignalResourceResponse (..), + newSignalResourceResponse, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for the SignalResource action. +-- +-- /See:/ 'newSignalResource' smart constructor. +data SignalResource = SignalResource' + { -- | The stack name or unique stack ID that includes the resource that you + -- want to signal. + stackName :: Prelude.Text, + -- | The logical ID of the resource that you want to signal. The logical ID + -- is the name of the resource that given in the template. + logicalResourceId :: Prelude.Text, + -- | A unique ID of the signal. When you signal Amazon EC2 instances or Auto + -- Scaling groups, specify the instance ID that you are signaling as the + -- unique ID. If you send multiple signals to a single resource (such as + -- signaling a wait condition), each signal requires a different unique ID. + uniqueId :: Prelude.Text, + -- | The status of the signal, which is either success or failure. A failure + -- signal causes CloudFormation to immediately fail the stack creation or + -- update. + status :: ResourceSignalStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalResource' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackName', 'signalResource_stackName' - The stack name or unique stack ID that includes the resource that you +-- want to signal. +-- +-- 'logicalResourceId', 'signalResource_logicalResourceId' - The logical ID of the resource that you want to signal. The logical ID +-- is the name of the resource that given in the template. +-- +-- 'uniqueId', 'signalResource_uniqueId' - A unique ID of the signal. When you signal Amazon EC2 instances or Auto +-- Scaling groups, specify the instance ID that you are signaling as the +-- unique ID. If you send multiple signals to a single resource (such as +-- signaling a wait condition), each signal requires a different unique ID. +-- +-- 'status', 'signalResource_status' - The status of the signal, which is either success or failure. A failure +-- signal causes CloudFormation to immediately fail the stack creation or +-- update. +newSignalResource :: + -- | 'stackName' + Prelude.Text -> + -- | 'logicalResourceId' + Prelude.Text -> + -- | 'uniqueId' + Prelude.Text -> + -- | 'status' + ResourceSignalStatus -> + SignalResource +newSignalResource + pStackName_ + pLogicalResourceId_ + pUniqueId_ + pStatus_ = + SignalResource' + { stackName = pStackName_, + logicalResourceId = pLogicalResourceId_, + uniqueId = pUniqueId_, + status = pStatus_ + } + +-- | The stack name or unique stack ID that includes the resource that you +-- want to signal. +signalResource_stackName :: Lens.Lens' SignalResource Prelude.Text +signalResource_stackName = Lens.lens (\SignalResource' {stackName} -> stackName) (\s@SignalResource' {} a -> s {stackName = a} :: SignalResource) + +-- | The logical ID of the resource that you want to signal. The logical ID +-- is the name of the resource that given in the template. +signalResource_logicalResourceId :: Lens.Lens' SignalResource Prelude.Text +signalResource_logicalResourceId = Lens.lens (\SignalResource' {logicalResourceId} -> logicalResourceId) (\s@SignalResource' {} a -> s {logicalResourceId = a} :: SignalResource) + +-- | A unique ID of the signal. When you signal Amazon EC2 instances or Auto +-- Scaling groups, specify the instance ID that you are signaling as the +-- unique ID. If you send multiple signals to a single resource (such as +-- signaling a wait condition), each signal requires a different unique ID. +signalResource_uniqueId :: Lens.Lens' SignalResource Prelude.Text +signalResource_uniqueId = Lens.lens (\SignalResource' {uniqueId} -> uniqueId) (\s@SignalResource' {} a -> s {uniqueId = a} :: SignalResource) + +-- | The status of the signal, which is either success or failure. A failure +-- signal causes CloudFormation to immediately fail the stack creation or +-- update. +signalResource_status :: Lens.Lens' SignalResource ResourceSignalStatus +signalResource_status = Lens.lens (\SignalResource' {status} -> status) (\s@SignalResource' {} a -> s {status = a} :: SignalResource) + +instance Core.AWSRequest SignalResource where + type + AWSResponse SignalResource = + SignalResourceResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveNull SignalResourceResponse' + +instance Prelude.Hashable SignalResource where + hashWithSalt _salt SignalResource' {..} = + _salt + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` uniqueId + `Prelude.hashWithSalt` status + +instance Prelude.NFData SignalResource where + rnf SignalResource' {..} = + Prelude.rnf stackName + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf uniqueId + `Prelude.seq` Prelude.rnf status + +instance Data.ToHeaders SignalResource where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath SignalResource where + toPath = Prelude.const "/" + +instance Data.ToQuery SignalResource where + toQuery SignalResource' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("SignalResource" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "StackName" Data.=: stackName, + "LogicalResourceId" Data.=: logicalResourceId, + "UniqueId" Data.=: uniqueId, + "Status" Data.=: status + ] + +-- | /See:/ 'newSignalResourceResponse' smart constructor. +data SignalResourceResponse = SignalResourceResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newSignalResourceResponse :: + SignalResourceResponse +newSignalResourceResponse = SignalResourceResponse' + +instance Prelude.NFData SignalResourceResponse where + rnf _ = () diff --git a/gen/Amazonka/CloudFormation/StopStackSetOperation.hs b/gen/Amazonka/CloudFormation/StopStackSetOperation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/StopStackSetOperation.hs @@ -0,0 +1,227 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.StopStackSetOperation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Stops an in-progress operation on a stack set and its associated stack +-- instances. StackSets will cancel all the unstarted stack instance +-- deployments and wait for those are in-progress to complete. +module Amazonka.CloudFormation.StopStackSetOperation + ( -- * Creating a Request + StopStackSetOperation (..), + newStopStackSetOperation, + + -- * Request Lenses + stopStackSetOperation_callAs, + stopStackSetOperation_stackSetName, + stopStackSetOperation_operationId, + + -- * Destructuring the Response + StopStackSetOperationResponse (..), + newStopStackSetOperationResponse, + + -- * Response Lenses + stopStackSetOperationResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newStopStackSetOperation' smart constructor. +data StopStackSetOperation = StopStackSetOperation' + { -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | The name or unique ID of the stack set that you want to stop the + -- operation for. + stackSetName :: Prelude.Text, + -- | The ID of the stack operation. + operationId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StopStackSetOperation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'callAs', 'stopStackSetOperation_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackSetName', 'stopStackSetOperation_stackSetName' - The name or unique ID of the stack set that you want to stop the +-- operation for. +-- +-- 'operationId', 'stopStackSetOperation_operationId' - The ID of the stack operation. +newStopStackSetOperation :: + -- | 'stackSetName' + Prelude.Text -> + -- | 'operationId' + Prelude.Text -> + StopStackSetOperation +newStopStackSetOperation pStackSetName_ pOperationId_ = + StopStackSetOperation' + { callAs = Prelude.Nothing, + stackSetName = pStackSetName_, + operationId = pOperationId_ + } + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +stopStackSetOperation_callAs :: Lens.Lens' StopStackSetOperation (Prelude.Maybe CallAs) +stopStackSetOperation_callAs = Lens.lens (\StopStackSetOperation' {callAs} -> callAs) (\s@StopStackSetOperation' {} a -> s {callAs = a} :: StopStackSetOperation) + +-- | The name or unique ID of the stack set that you want to stop the +-- operation for. +stopStackSetOperation_stackSetName :: Lens.Lens' StopStackSetOperation Prelude.Text +stopStackSetOperation_stackSetName = Lens.lens (\StopStackSetOperation' {stackSetName} -> stackSetName) (\s@StopStackSetOperation' {} a -> s {stackSetName = a} :: StopStackSetOperation) + +-- | The ID of the stack operation. +stopStackSetOperation_operationId :: Lens.Lens' StopStackSetOperation Prelude.Text +stopStackSetOperation_operationId = Lens.lens (\StopStackSetOperation' {operationId} -> operationId) (\s@StopStackSetOperation' {} a -> s {operationId = a} :: StopStackSetOperation) + +instance Core.AWSRequest StopStackSetOperation where + type + AWSResponse StopStackSetOperation = + StopStackSetOperationResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "StopStackSetOperationResult" + ( \s h x -> + StopStackSetOperationResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable StopStackSetOperation where + hashWithSalt _salt StopStackSetOperation' {..} = + _salt + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` operationId + +instance Prelude.NFData StopStackSetOperation where + rnf StopStackSetOperation' {..} = + Prelude.rnf callAs + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf operationId + +instance Data.ToHeaders StopStackSetOperation where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath StopStackSetOperation where + toPath = Prelude.const "/" + +instance Data.ToQuery StopStackSetOperation where + toQuery StopStackSetOperation' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("StopStackSetOperation" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "CallAs" Data.=: callAs, + "StackSetName" Data.=: stackSetName, + "OperationId" Data.=: operationId + ] + +-- | /See:/ 'newStopStackSetOperationResponse' smart constructor. +data StopStackSetOperationResponse = StopStackSetOperationResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StopStackSetOperationResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'stopStackSetOperationResponse_httpStatus' - The response's http status code. +newStopStackSetOperationResponse :: + -- | 'httpStatus' + Prelude.Int -> + StopStackSetOperationResponse +newStopStackSetOperationResponse pHttpStatus_ = + StopStackSetOperationResponse' + { httpStatus = + pHttpStatus_ + } + +-- | The response's http status code. +stopStackSetOperationResponse_httpStatus :: Lens.Lens' StopStackSetOperationResponse Prelude.Int +stopStackSetOperationResponse_httpStatus = Lens.lens (\StopStackSetOperationResponse' {httpStatus} -> httpStatus) (\s@StopStackSetOperationResponse' {} a -> s {httpStatus = a} :: StopStackSetOperationResponse) + +instance Prelude.NFData StopStackSetOperationResponse where + rnf StopStackSetOperationResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/TestType.hs b/gen/Amazonka/CloudFormation/TestType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/TestType.hs @@ -0,0 +1,323 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.TestType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Tests a registered extension to make sure it meets all necessary +-- requirements for being published in the CloudFormation registry. +-- +-- - For resource types, this includes passing all contracts tests +-- defined for the type. +-- +-- - For modules, this includes determining if the module\'s model meets +-- all necessary requirements. +-- +-- For more information, see +-- +-- in the /CloudFormation CLI User Guide/. +-- +-- If you don\'t specify a version, CloudFormation uses the default version +-- of the extension in your account and region for testing. +-- +-- To perform testing, CloudFormation assumes the execution role specified +-- when the type was registered. For more information, see +-- . +-- +-- Once you\'ve initiated testing on an extension using @TestType@, you can +-- pass the returned @TypeVersionArn@ into +-- +-- to monitor the current test status and test status description for the +-- extension. +-- +-- An extension must have a test status of @PASSED@ before it can be +-- published. For more information, see +-- +-- in the /CloudFormation CLI User Guide/. +module Amazonka.CloudFormation.TestType + ( -- * Creating a Request + TestType (..), + newTestType, + + -- * Request Lenses + testType_arn, + testType_logDeliveryBucket, + testType_type, + testType_typeName, + testType_versionId, + + -- * Destructuring the Response + TestTypeResponse (..), + newTestTypeResponse, + + -- * Response Lenses + testTypeResponse_typeVersionArn, + testTypeResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newTestType' smart constructor. +data TestType = TestType' + { -- | The Amazon Resource Name (ARN) of the extension. + -- + -- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. + arn :: Prelude.Maybe Prelude.Text, + -- | The S3 bucket to which CloudFormation delivers the contract test + -- execution logs. + -- + -- CloudFormation delivers the logs by the time contract testing has + -- completed and the extension has been assigned a test type status of + -- @PASSED@ or @FAILED@. + -- + -- The user calling @TestType@ must be able to access items in the + -- specified S3 bucket. Specifically, the user needs the following + -- permissions: + -- + -- - @GetObject@ + -- + -- - @PutObject@ + -- + -- For more information, see + -- + -- in the /Amazon Web Services Identity and Access Management User Guide/. + logDeliveryBucket :: Prelude.Maybe Prelude.Text, + -- | The type of the extension to test. + -- + -- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. + type' :: Prelude.Maybe ThirdPartyType, + -- | The name of the extension to test. + -- + -- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. + typeName :: Prelude.Maybe Prelude.Text, + -- | The version of the extension to test. + -- + -- You can specify the version id with either @Arn@, or with @TypeName@ and + -- @Type@. + -- + -- If you don\'t specify a version, CloudFormation uses the default version + -- of the extension in this account and region for testing. + versionId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TestType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'testType_arn' - The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +-- +-- 'logDeliveryBucket', 'testType_logDeliveryBucket' - The S3 bucket to which CloudFormation delivers the contract test +-- execution logs. +-- +-- CloudFormation delivers the logs by the time contract testing has +-- completed and the extension has been assigned a test type status of +-- @PASSED@ or @FAILED@. +-- +-- The user calling @TestType@ must be able to access items in the +-- specified S3 bucket. Specifically, the user needs the following +-- permissions: +-- +-- - @GetObject@ +-- +-- - @PutObject@ +-- +-- For more information, see +-- +-- in the /Amazon Web Services Identity and Access Management User Guide/. +-- +-- 'type'', 'testType_type' - The type of the extension to test. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +-- +-- 'typeName', 'testType_typeName' - The name of the extension to test. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +-- +-- 'versionId', 'testType_versionId' - The version of the extension to test. +-- +-- You can specify the version id with either @Arn@, or with @TypeName@ and +-- @Type@. +-- +-- If you don\'t specify a version, CloudFormation uses the default version +-- of the extension in this account and region for testing. +newTestType :: + TestType +newTestType = + TestType' + { arn = Prelude.Nothing, + logDeliveryBucket = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + versionId = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +testType_arn :: Lens.Lens' TestType (Prelude.Maybe Prelude.Text) +testType_arn = Lens.lens (\TestType' {arn} -> arn) (\s@TestType' {} a -> s {arn = a} :: TestType) + +-- | The S3 bucket to which CloudFormation delivers the contract test +-- execution logs. +-- +-- CloudFormation delivers the logs by the time contract testing has +-- completed and the extension has been assigned a test type status of +-- @PASSED@ or @FAILED@. +-- +-- The user calling @TestType@ must be able to access items in the +-- specified S3 bucket. Specifically, the user needs the following +-- permissions: +-- +-- - @GetObject@ +-- +-- - @PutObject@ +-- +-- For more information, see +-- +-- in the /Amazon Web Services Identity and Access Management User Guide/. +testType_logDeliveryBucket :: Lens.Lens' TestType (Prelude.Maybe Prelude.Text) +testType_logDeliveryBucket = Lens.lens (\TestType' {logDeliveryBucket} -> logDeliveryBucket) (\s@TestType' {} a -> s {logDeliveryBucket = a} :: TestType) + +-- | The type of the extension to test. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +testType_type :: Lens.Lens' TestType (Prelude.Maybe ThirdPartyType) +testType_type = Lens.lens (\TestType' {type'} -> type') (\s@TestType' {} a -> s {type' = a} :: TestType) + +-- | The name of the extension to test. +-- +-- Conditional: You must specify @Arn@, or @TypeName@ and @Type@. +testType_typeName :: Lens.Lens' TestType (Prelude.Maybe Prelude.Text) +testType_typeName = Lens.lens (\TestType' {typeName} -> typeName) (\s@TestType' {} a -> s {typeName = a} :: TestType) + +-- | The version of the extension to test. +-- +-- You can specify the version id with either @Arn@, or with @TypeName@ and +-- @Type@. +-- +-- If you don\'t specify a version, CloudFormation uses the default version +-- of the extension in this account and region for testing. +testType_versionId :: Lens.Lens' TestType (Prelude.Maybe Prelude.Text) +testType_versionId = Lens.lens (\TestType' {versionId} -> versionId) (\s@TestType' {} a -> s {versionId = a} :: TestType) + +instance Core.AWSRequest TestType where + type AWSResponse TestType = TestTypeResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "TestTypeResult" + ( \s h x -> + TestTypeResponse' + Prelude.<$> (x Data..@? "TypeVersionArn") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable TestType where + hashWithSalt _salt TestType' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` logDeliveryBucket + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` versionId + +instance Prelude.NFData TestType where + rnf TestType' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf logDeliveryBucket + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf versionId + +instance Data.ToHeaders TestType where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath TestType where + toPath = Prelude.const "/" + +instance Data.ToQuery TestType where + toQuery TestType' {..} = + Prelude.mconcat + [ "Action" Data.=: ("TestType" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Arn" Data.=: arn, + "LogDeliveryBucket" Data.=: logDeliveryBucket, + "Type" Data.=: type', + "TypeName" Data.=: typeName, + "VersionId" Data.=: versionId + ] + +-- | /See:/ 'newTestTypeResponse' smart constructor. +data TestTypeResponse = TestTypeResponse' + { -- | The Amazon Resource Name (ARN) of the extension. + typeVersionArn :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TestTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'typeVersionArn', 'testTypeResponse_typeVersionArn' - The Amazon Resource Name (ARN) of the extension. +-- +-- 'httpStatus', 'testTypeResponse_httpStatus' - The response's http status code. +newTestTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + TestTypeResponse +newTestTypeResponse pHttpStatus_ = + TestTypeResponse' + { typeVersionArn = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The Amazon Resource Name (ARN) of the extension. +testTypeResponse_typeVersionArn :: Lens.Lens' TestTypeResponse (Prelude.Maybe Prelude.Text) +testTypeResponse_typeVersionArn = Lens.lens (\TestTypeResponse' {typeVersionArn} -> typeVersionArn) (\s@TestTypeResponse' {} a -> s {typeVersionArn = a} :: TestTypeResponse) + +-- | The response's http status code. +testTypeResponse_httpStatus :: Lens.Lens' TestTypeResponse Prelude.Int +testTypeResponse_httpStatus = Lens.lens (\TestTypeResponse' {httpStatus} -> httpStatus) (\s@TestTypeResponse' {} a -> s {httpStatus = a} :: TestTypeResponse) + +instance Prelude.NFData TestTypeResponse where + rnf TestTypeResponse' {..} = + Prelude.rnf typeVersionArn + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/Types.hs b/gen/Amazonka/CloudFormation/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types.hs @@ -0,0 +1,1154 @@ +{-# LANGUAGE DisambiguateRecordFields #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types + ( -- * Service Configuration + defaultService, + + -- * Errors + _AlreadyExistsException, + _CFNRegistryException, + _ChangeSetNotFoundException, + _CreatedButModifiedException, + _InsufficientCapabilitiesException, + _InvalidChangeSetStatusException, + _InvalidOperationException, + _InvalidStateTransitionException, + _LimitExceededException, + _NameAlreadyExistsException, + _OperationIdAlreadyExistsException, + _OperationInProgressException, + _OperationNotFoundException, + _OperationStatusCheckFailedException, + _StackInstanceNotFoundException, + _StackNotFoundException, + _StackSetNotEmptyException, + _StackSetNotFoundException, + _StaleRequestException, + _TokenAlreadyExistsException, + _TypeConfigurationNotFoundException, + _TypeNotFoundException, + + -- * AccountFilterType + AccountFilterType (..), + + -- * AccountGateStatus + AccountGateStatus (..), + + -- * CallAs + CallAs (..), + + -- * Capability + Capability (..), + + -- * Category + Category (..), + + -- * ChangeAction + ChangeAction (..), + + -- * ChangeSetHooksStatus + ChangeSetHooksStatus (..), + + -- * ChangeSetStatus + ChangeSetStatus (..), + + -- * ChangeSetType + ChangeSetType (..), + + -- * ChangeSource + ChangeSource (..), + + -- * ChangeType + ChangeType (..), + + -- * DeprecatedStatus + DeprecatedStatus (..), + + -- * DifferenceType + DifferenceType (..), + + -- * EvaluationType + EvaluationType (..), + + -- * ExecutionStatus + ExecutionStatus (..), + + -- * HandlerErrorCode + HandlerErrorCode (..), + + -- * HookFailureMode + HookFailureMode (..), + + -- * HookInvocationPoint + HookInvocationPoint (..), + + -- * HookStatus + HookStatus (..), + + -- * HookTargetType + HookTargetType (..), + + -- * IdentityProvider + IdentityProvider (..), + + -- * OnFailure + OnFailure (..), + + -- * OperationResultFilterName + OperationResultFilterName (..), + + -- * OperationStatus + OperationStatus (..), + + -- * PermissionModels + PermissionModels (..), + + -- * ProvisioningType + ProvisioningType (..), + + -- * PublisherStatus + PublisherStatus (..), + + -- * RegionConcurrencyType + RegionConcurrencyType (..), + + -- * RegistrationStatus + RegistrationStatus (..), + + -- * RegistryType + RegistryType (..), + + -- * Replacement + Replacement (..), + + -- * RequiresRecreation + RequiresRecreation (..), + + -- * ResourceAttribute + ResourceAttribute (..), + + -- * ResourceSignalStatus + ResourceSignalStatus (..), + + -- * ResourceStatus + ResourceStatus (..), + + -- * StackDriftDetectionStatus + StackDriftDetectionStatus (..), + + -- * StackDriftStatus + StackDriftStatus (..), + + -- * StackInstanceDetailedStatus + StackInstanceDetailedStatus (..), + + -- * StackInstanceFilterName + StackInstanceFilterName (..), + + -- * StackInstanceStatus + StackInstanceStatus (..), + + -- * StackResourceDriftStatus + StackResourceDriftStatus (..), + + -- * StackSetDriftDetectionStatus + StackSetDriftDetectionStatus (..), + + -- * StackSetDriftStatus + StackSetDriftStatus (..), + + -- * StackSetOperationAction + StackSetOperationAction (..), + + -- * StackSetOperationResultStatus + StackSetOperationResultStatus (..), + + -- * StackSetOperationStatus + StackSetOperationStatus (..), + + -- * StackSetStatus + StackSetStatus (..), + + -- * StackStatus + StackStatus (..), + + -- * TemplateStage + TemplateStage (..), + + -- * ThirdPartyType + ThirdPartyType (..), + + -- * TypeTestsStatus + TypeTestsStatus (..), + + -- * VersionBump + VersionBump (..), + + -- * Visibility + Visibility (..), + + -- * AccountGateResult + AccountGateResult (..), + newAccountGateResult, + accountGateResult_status, + accountGateResult_statusReason, + + -- * AccountLimit + AccountLimit (..), + newAccountLimit, + accountLimit_name, + accountLimit_value, + + -- * AutoDeployment + AutoDeployment (..), + newAutoDeployment, + autoDeployment_enabled, + autoDeployment_retainStacksOnAccountRemoval, + + -- * BatchDescribeTypeConfigurationsError + BatchDescribeTypeConfigurationsError (..), + newBatchDescribeTypeConfigurationsError, + batchDescribeTypeConfigurationsError_errorCode, + batchDescribeTypeConfigurationsError_errorMessage, + batchDescribeTypeConfigurationsError_typeConfigurationIdentifier, + + -- * Change + Change (..), + newChange, + change_hookInvocationCount, + change_resourceChange, + change_type, + + -- * ChangeSetHook + ChangeSetHook (..), + newChangeSetHook, + changeSetHook_failureMode, + changeSetHook_invocationPoint, + changeSetHook_targetDetails, + changeSetHook_typeConfigurationVersionId, + changeSetHook_typeName, + changeSetHook_typeVersionId, + + -- * ChangeSetHookResourceTargetDetails + ChangeSetHookResourceTargetDetails (..), + newChangeSetHookResourceTargetDetails, + changeSetHookResourceTargetDetails_logicalResourceId, + changeSetHookResourceTargetDetails_resourceAction, + changeSetHookResourceTargetDetails_resourceType, + + -- * ChangeSetHookTargetDetails + ChangeSetHookTargetDetails (..), + newChangeSetHookTargetDetails, + changeSetHookTargetDetails_resourceTargetDetails, + changeSetHookTargetDetails_targetType, + + -- * ChangeSetSummary + ChangeSetSummary (..), + newChangeSetSummary, + changeSetSummary_changeSetId, + changeSetSummary_changeSetName, + changeSetSummary_creationTime, + changeSetSummary_description, + changeSetSummary_executionStatus, + changeSetSummary_includeNestedStacks, + changeSetSummary_parentChangeSetId, + changeSetSummary_rootChangeSetId, + changeSetSummary_stackId, + changeSetSummary_stackName, + changeSetSummary_status, + changeSetSummary_statusReason, + + -- * DeploymentTargets + DeploymentTargets (..), + newDeploymentTargets, + deploymentTargets_accountFilterType, + deploymentTargets_accounts, + deploymentTargets_accountsUrl, + deploymentTargets_organizationalUnitIds, + + -- * Export + Export (..), + newExport, + export_exportingStackId, + export_name, + export_value, + + -- * LoggingConfig + LoggingConfig (..), + newLoggingConfig, + loggingConfig_logRoleArn, + loggingConfig_logGroupName, + + -- * ManagedExecution + ManagedExecution (..), + newManagedExecution, + managedExecution_active, + + -- * ModuleInfo + ModuleInfo (..), + newModuleInfo, + moduleInfo_logicalIdHierarchy, + moduleInfo_typeHierarchy, + + -- * OperationResultFilter + OperationResultFilter (..), + newOperationResultFilter, + operationResultFilter_name, + operationResultFilter_values, + + -- * Output + Output (..), + newOutput, + output_description, + output_exportName, + output_outputKey, + output_outputValue, + + -- * Parameter + Parameter (..), + newParameter, + parameter_parameterKey, + parameter_parameterValue, + parameter_resolvedValue, + parameter_usePreviousValue, + + -- * ParameterConstraints + ParameterConstraints (..), + newParameterConstraints, + parameterConstraints_allowedValues, + + -- * ParameterDeclaration + ParameterDeclaration (..), + newParameterDeclaration, + parameterDeclaration_defaultValue, + parameterDeclaration_description, + parameterDeclaration_noEcho, + parameterDeclaration_parameterConstraints, + parameterDeclaration_parameterKey, + parameterDeclaration_parameterType, + + -- * PhysicalResourceIdContextKeyValuePair + PhysicalResourceIdContextKeyValuePair (..), + newPhysicalResourceIdContextKeyValuePair, + physicalResourceIdContextKeyValuePair_key, + physicalResourceIdContextKeyValuePair_value, + + -- * PropertyDifference + PropertyDifference (..), + newPropertyDifference, + propertyDifference_propertyPath, + propertyDifference_expectedValue, + propertyDifference_actualValue, + propertyDifference_differenceType, + + -- * RequiredActivatedType + RequiredActivatedType (..), + newRequiredActivatedType, + requiredActivatedType_originalTypeName, + requiredActivatedType_publisherId, + requiredActivatedType_supportedMajorVersions, + requiredActivatedType_typeNameAlias, + + -- * ResourceChange + ResourceChange (..), + newResourceChange, + resourceChange_action, + resourceChange_changeSetId, + resourceChange_details, + resourceChange_logicalResourceId, + resourceChange_moduleInfo, + resourceChange_physicalResourceId, + resourceChange_replacement, + resourceChange_resourceType, + resourceChange_scope, + + -- * ResourceChangeDetail + ResourceChangeDetail (..), + newResourceChangeDetail, + resourceChangeDetail_causingEntity, + resourceChangeDetail_changeSource, + resourceChangeDetail_evaluation, + resourceChangeDetail_target, + + -- * ResourceIdentifierSummary + ResourceIdentifierSummary (..), + newResourceIdentifierSummary, + resourceIdentifierSummary_logicalResourceIds, + resourceIdentifierSummary_resourceIdentifiers, + resourceIdentifierSummary_resourceType, + + -- * ResourceTargetDefinition + ResourceTargetDefinition (..), + newResourceTargetDefinition, + resourceTargetDefinition_attribute, + resourceTargetDefinition_name, + resourceTargetDefinition_requiresRecreation, + + -- * ResourceToImport + ResourceToImport (..), + newResourceToImport, + resourceToImport_resourceType, + resourceToImport_logicalResourceId, + resourceToImport_resourceIdentifier, + + -- * RollbackConfiguration + RollbackConfiguration (..), + newRollbackConfiguration, + rollbackConfiguration_monitoringTimeInMinutes, + rollbackConfiguration_rollbackTriggers, + + -- * RollbackTrigger + RollbackTrigger (..), + newRollbackTrigger, + rollbackTrigger_arn, + rollbackTrigger_type, + + -- * Stack + Stack (..), + newStack, + stack_capabilities, + stack_changeSetId, + stack_deletionTime, + stack_description, + stack_disableRollback, + stack_driftInformation, + stack_enableTerminationProtection, + stack_lastUpdatedTime, + stack_notificationARNs, + stack_outputs, + stack_parameters, + stack_parentId, + stack_roleARN, + stack_rollbackConfiguration, + stack_rootId, + stack_stackId, + stack_stackStatusReason, + stack_tags, + stack_timeoutInMinutes, + stack_stackName, + stack_creationTime, + stack_stackStatus, + + -- * StackDriftInformation + StackDriftInformation (..), + newStackDriftInformation, + stackDriftInformation_lastCheckTimestamp, + stackDriftInformation_stackDriftStatus, + + -- * StackDriftInformationSummary + StackDriftInformationSummary (..), + newStackDriftInformationSummary, + stackDriftInformationSummary_lastCheckTimestamp, + stackDriftInformationSummary_stackDriftStatus, + + -- * StackEvent + StackEvent (..), + newStackEvent, + stackEvent_clientRequestToken, + stackEvent_hookFailureMode, + stackEvent_hookInvocationPoint, + stackEvent_hookStatus, + stackEvent_hookStatusReason, + stackEvent_hookType, + stackEvent_logicalResourceId, + stackEvent_physicalResourceId, + stackEvent_resourceProperties, + stackEvent_resourceStatus, + stackEvent_resourceStatusReason, + stackEvent_resourceType, + stackEvent_stackId, + stackEvent_eventId, + stackEvent_stackName, + stackEvent_timestamp, + + -- * StackInstance + StackInstance (..), + newStackInstance, + stackInstance_account, + stackInstance_driftStatus, + stackInstance_lastDriftCheckTimestamp, + stackInstance_lastOperationId, + stackInstance_organizationalUnitId, + stackInstance_parameterOverrides, + stackInstance_region, + stackInstance_stackId, + stackInstance_stackInstanceStatus, + stackInstance_stackSetId, + stackInstance_status, + stackInstance_statusReason, + + -- * StackInstanceComprehensiveStatus + StackInstanceComprehensiveStatus (..), + newStackInstanceComprehensiveStatus, + stackInstanceComprehensiveStatus_detailedStatus, + + -- * StackInstanceFilter + StackInstanceFilter (..), + newStackInstanceFilter, + stackInstanceFilter_name, + stackInstanceFilter_values, + + -- * StackInstanceSummary + StackInstanceSummary (..), + newStackInstanceSummary, + stackInstanceSummary_account, + stackInstanceSummary_driftStatus, + stackInstanceSummary_lastDriftCheckTimestamp, + stackInstanceSummary_lastOperationId, + stackInstanceSummary_organizationalUnitId, + stackInstanceSummary_region, + stackInstanceSummary_stackId, + stackInstanceSummary_stackInstanceStatus, + stackInstanceSummary_stackSetId, + stackInstanceSummary_status, + stackInstanceSummary_statusReason, + + -- * StackResource + StackResource (..), + newStackResource, + stackResource_description, + stackResource_driftInformation, + stackResource_moduleInfo, + stackResource_physicalResourceId, + stackResource_resourceStatusReason, + stackResource_stackId, + stackResource_stackName, + stackResource_logicalResourceId, + stackResource_resourceType, + stackResource_timestamp, + stackResource_resourceStatus, + + -- * StackResourceDetail + StackResourceDetail (..), + newStackResourceDetail, + stackResourceDetail_description, + stackResourceDetail_driftInformation, + stackResourceDetail_metadata, + stackResourceDetail_moduleInfo, + stackResourceDetail_physicalResourceId, + stackResourceDetail_resourceStatusReason, + stackResourceDetail_stackId, + stackResourceDetail_stackName, + stackResourceDetail_logicalResourceId, + stackResourceDetail_resourceType, + stackResourceDetail_lastUpdatedTimestamp, + stackResourceDetail_resourceStatus, + + -- * StackResourceDrift + StackResourceDrift (..), + newStackResourceDrift, + stackResourceDrift_actualProperties, + stackResourceDrift_expectedProperties, + stackResourceDrift_moduleInfo, + stackResourceDrift_physicalResourceId, + stackResourceDrift_physicalResourceIdContext, + stackResourceDrift_propertyDifferences, + stackResourceDrift_stackId, + stackResourceDrift_logicalResourceId, + stackResourceDrift_resourceType, + stackResourceDrift_stackResourceDriftStatus, + stackResourceDrift_timestamp, + + -- * StackResourceDriftInformation + StackResourceDriftInformation (..), + newStackResourceDriftInformation, + stackResourceDriftInformation_lastCheckTimestamp, + stackResourceDriftInformation_stackResourceDriftStatus, + + -- * StackResourceDriftInformationSummary + StackResourceDriftInformationSummary (..), + newStackResourceDriftInformationSummary, + stackResourceDriftInformationSummary_lastCheckTimestamp, + stackResourceDriftInformationSummary_stackResourceDriftStatus, + + -- * StackResourceSummary + StackResourceSummary (..), + newStackResourceSummary, + stackResourceSummary_driftInformation, + stackResourceSummary_moduleInfo, + stackResourceSummary_physicalResourceId, + stackResourceSummary_resourceStatusReason, + stackResourceSummary_logicalResourceId, + stackResourceSummary_resourceType, + stackResourceSummary_lastUpdatedTimestamp, + stackResourceSummary_resourceStatus, + + -- * StackSet + StackSet (..), + newStackSet, + stackSet_administrationRoleARN, + stackSet_autoDeployment, + stackSet_capabilities, + stackSet_description, + stackSet_executionRoleName, + stackSet_managedExecution, + stackSet_organizationalUnitIds, + stackSet_parameters, + stackSet_permissionModel, + stackSet_stackSetARN, + stackSet_stackSetDriftDetectionDetails, + stackSet_stackSetId, + stackSet_stackSetName, + stackSet_status, + stackSet_tags, + stackSet_templateBody, + + -- * StackSetDriftDetectionDetails + StackSetDriftDetectionDetails (..), + newStackSetDriftDetectionDetails, + stackSetDriftDetectionDetails_driftDetectionStatus, + stackSetDriftDetectionDetails_driftStatus, + stackSetDriftDetectionDetails_driftedStackInstancesCount, + stackSetDriftDetectionDetails_failedStackInstancesCount, + stackSetDriftDetectionDetails_inProgressStackInstancesCount, + stackSetDriftDetectionDetails_inSyncStackInstancesCount, + stackSetDriftDetectionDetails_lastDriftCheckTimestamp, + stackSetDriftDetectionDetails_totalStackInstancesCount, + + -- * StackSetOperation + StackSetOperation (..), + newStackSetOperation, + stackSetOperation_action, + stackSetOperation_administrationRoleARN, + stackSetOperation_creationTimestamp, + stackSetOperation_deploymentTargets, + stackSetOperation_endTimestamp, + stackSetOperation_executionRoleName, + stackSetOperation_operationId, + stackSetOperation_operationPreferences, + stackSetOperation_retainStacks, + stackSetOperation_stackSetDriftDetectionDetails, + stackSetOperation_stackSetId, + stackSetOperation_status, + stackSetOperation_statusDetails, + stackSetOperation_statusReason, + + -- * StackSetOperationPreferences + StackSetOperationPreferences (..), + newStackSetOperationPreferences, + stackSetOperationPreferences_failureToleranceCount, + stackSetOperationPreferences_failureTolerancePercentage, + stackSetOperationPreferences_maxConcurrentCount, + stackSetOperationPreferences_maxConcurrentPercentage, + stackSetOperationPreferences_regionConcurrencyType, + stackSetOperationPreferences_regionOrder, + + -- * StackSetOperationResultSummary + StackSetOperationResultSummary (..), + newStackSetOperationResultSummary, + stackSetOperationResultSummary_account, + stackSetOperationResultSummary_accountGateResult, + stackSetOperationResultSummary_organizationalUnitId, + stackSetOperationResultSummary_region, + stackSetOperationResultSummary_status, + stackSetOperationResultSummary_statusReason, + + -- * StackSetOperationStatusDetails + StackSetOperationStatusDetails (..), + newStackSetOperationStatusDetails, + stackSetOperationStatusDetails_failedStackInstancesCount, + + -- * StackSetOperationSummary + StackSetOperationSummary (..), + newStackSetOperationSummary, + stackSetOperationSummary_action, + stackSetOperationSummary_creationTimestamp, + stackSetOperationSummary_endTimestamp, + stackSetOperationSummary_operationId, + stackSetOperationSummary_operationPreferences, + stackSetOperationSummary_status, + stackSetOperationSummary_statusDetails, + stackSetOperationSummary_statusReason, + + -- * StackSetSummary + StackSetSummary (..), + newStackSetSummary, + stackSetSummary_autoDeployment, + stackSetSummary_description, + stackSetSummary_driftStatus, + stackSetSummary_lastDriftCheckTimestamp, + stackSetSummary_managedExecution, + stackSetSummary_permissionModel, + stackSetSummary_stackSetId, + stackSetSummary_stackSetName, + stackSetSummary_status, + + -- * StackSummary + StackSummary (..), + newStackSummary, + stackSummary_deletionTime, + stackSummary_driftInformation, + stackSummary_lastUpdatedTime, + stackSummary_parentId, + stackSummary_rootId, + stackSummary_stackId, + stackSummary_stackStatusReason, + stackSummary_templateDescription, + stackSummary_stackName, + stackSummary_creationTime, + stackSummary_stackStatus, + + -- * Tag + Tag (..), + newTag, + tag_key, + tag_value, + + -- * TemplateParameter + TemplateParameter (..), + newTemplateParameter, + templateParameter_defaultValue, + templateParameter_description, + templateParameter_noEcho, + templateParameter_parameterKey, + + -- * TypeConfigurationDetails + TypeConfigurationDetails (..), + newTypeConfigurationDetails, + typeConfigurationDetails_alias, + typeConfigurationDetails_arn, + typeConfigurationDetails_configuration, + typeConfigurationDetails_isDefaultConfiguration, + typeConfigurationDetails_lastUpdated, + typeConfigurationDetails_typeArn, + typeConfigurationDetails_typeName, + + -- * TypeConfigurationIdentifier + TypeConfigurationIdentifier (..), + newTypeConfigurationIdentifier, + typeConfigurationIdentifier_type, + typeConfigurationIdentifier_typeArn, + typeConfigurationIdentifier_typeConfigurationAlias, + typeConfigurationIdentifier_typeConfigurationArn, + typeConfigurationIdentifier_typeName, + + -- * TypeFilters + TypeFilters (..), + newTypeFilters, + typeFilters_category, + typeFilters_publisherId, + typeFilters_typeNamePrefix, + + -- * TypeSummary + TypeSummary (..), + newTypeSummary, + typeSummary_defaultVersionId, + typeSummary_description, + typeSummary_isActivated, + typeSummary_lastUpdated, + typeSummary_latestPublicVersion, + typeSummary_originalTypeName, + typeSummary_publicVersionNumber, + typeSummary_publisherId, + typeSummary_publisherIdentity, + typeSummary_publisherName, + typeSummary_type, + typeSummary_typeArn, + typeSummary_typeName, + + -- * TypeVersionSummary + TypeVersionSummary (..), + newTypeVersionSummary, + typeVersionSummary_arn, + typeVersionSummary_description, + typeVersionSummary_isDefaultVersion, + typeVersionSummary_publicVersionNumber, + typeVersionSummary_timeCreated, + typeVersionSummary_type, + typeVersionSummary_typeName, + typeVersionSummary_versionId, + ) +where + +import Amazonka.CloudFormation.Types.AccountFilterType +import Amazonka.CloudFormation.Types.AccountGateResult +import Amazonka.CloudFormation.Types.AccountGateStatus +import Amazonka.CloudFormation.Types.AccountLimit +import Amazonka.CloudFormation.Types.AutoDeployment +import Amazonka.CloudFormation.Types.BatchDescribeTypeConfigurationsError +import Amazonka.CloudFormation.Types.CallAs +import Amazonka.CloudFormation.Types.Capability +import Amazonka.CloudFormation.Types.Category +import Amazonka.CloudFormation.Types.Change +import Amazonka.CloudFormation.Types.ChangeAction +import Amazonka.CloudFormation.Types.ChangeSetHook +import Amazonka.CloudFormation.Types.ChangeSetHookResourceTargetDetails +import Amazonka.CloudFormation.Types.ChangeSetHookTargetDetails +import Amazonka.CloudFormation.Types.ChangeSetHooksStatus +import Amazonka.CloudFormation.Types.ChangeSetStatus +import Amazonka.CloudFormation.Types.ChangeSetSummary +import Amazonka.CloudFormation.Types.ChangeSetType +import Amazonka.CloudFormation.Types.ChangeSource +import Amazonka.CloudFormation.Types.ChangeType +import Amazonka.CloudFormation.Types.DeploymentTargets +import Amazonka.CloudFormation.Types.DeprecatedStatus +import Amazonka.CloudFormation.Types.DifferenceType +import Amazonka.CloudFormation.Types.EvaluationType +import Amazonka.CloudFormation.Types.ExecutionStatus +import Amazonka.CloudFormation.Types.Export +import Amazonka.CloudFormation.Types.HandlerErrorCode +import Amazonka.CloudFormation.Types.HookFailureMode +import Amazonka.CloudFormation.Types.HookInvocationPoint +import Amazonka.CloudFormation.Types.HookStatus +import Amazonka.CloudFormation.Types.HookTargetType +import Amazonka.CloudFormation.Types.IdentityProvider +import Amazonka.CloudFormation.Types.LoggingConfig +import Amazonka.CloudFormation.Types.ManagedExecution +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.OnFailure +import Amazonka.CloudFormation.Types.OperationResultFilter +import Amazonka.CloudFormation.Types.OperationResultFilterName +import Amazonka.CloudFormation.Types.OperationStatus +import Amazonka.CloudFormation.Types.Output +import Amazonka.CloudFormation.Types.Parameter +import Amazonka.CloudFormation.Types.ParameterConstraints +import Amazonka.CloudFormation.Types.ParameterDeclaration +import Amazonka.CloudFormation.Types.PermissionModels +import Amazonka.CloudFormation.Types.PhysicalResourceIdContextKeyValuePair +import Amazonka.CloudFormation.Types.PropertyDifference +import Amazonka.CloudFormation.Types.ProvisioningType +import Amazonka.CloudFormation.Types.PublisherStatus +import Amazonka.CloudFormation.Types.RegionConcurrencyType +import Amazonka.CloudFormation.Types.RegistrationStatus +import Amazonka.CloudFormation.Types.RegistryType +import Amazonka.CloudFormation.Types.Replacement +import Amazonka.CloudFormation.Types.RequiredActivatedType +import Amazonka.CloudFormation.Types.RequiresRecreation +import Amazonka.CloudFormation.Types.ResourceAttribute +import Amazonka.CloudFormation.Types.ResourceChange +import Amazonka.CloudFormation.Types.ResourceChangeDetail +import Amazonka.CloudFormation.Types.ResourceIdentifierSummary +import Amazonka.CloudFormation.Types.ResourceSignalStatus +import Amazonka.CloudFormation.Types.ResourceStatus +import Amazonka.CloudFormation.Types.ResourceTargetDefinition +import Amazonka.CloudFormation.Types.ResourceToImport +import Amazonka.CloudFormation.Types.RollbackConfiguration +import Amazonka.CloudFormation.Types.RollbackTrigger +import Amazonka.CloudFormation.Types.Stack +import Amazonka.CloudFormation.Types.StackDriftDetectionStatus +import Amazonka.CloudFormation.Types.StackDriftInformation +import Amazonka.CloudFormation.Types.StackDriftInformationSummary +import Amazonka.CloudFormation.Types.StackDriftStatus +import Amazonka.CloudFormation.Types.StackEvent +import Amazonka.CloudFormation.Types.StackInstance +import Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus +import Amazonka.CloudFormation.Types.StackInstanceDetailedStatus +import Amazonka.CloudFormation.Types.StackInstanceFilter +import Amazonka.CloudFormation.Types.StackInstanceFilterName +import Amazonka.CloudFormation.Types.StackInstanceStatus +import Amazonka.CloudFormation.Types.StackInstanceSummary +import Amazonka.CloudFormation.Types.StackResource +import Amazonka.CloudFormation.Types.StackResourceDetail +import Amazonka.CloudFormation.Types.StackResourceDrift +import Amazonka.CloudFormation.Types.StackResourceDriftInformation +import Amazonka.CloudFormation.Types.StackResourceDriftInformationSummary +import Amazonka.CloudFormation.Types.StackResourceDriftStatus +import Amazonka.CloudFormation.Types.StackResourceSummary +import Amazonka.CloudFormation.Types.StackSet +import Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails +import Amazonka.CloudFormation.Types.StackSetDriftDetectionStatus +import Amazonka.CloudFormation.Types.StackSetDriftStatus +import Amazonka.CloudFormation.Types.StackSetOperation +import Amazonka.CloudFormation.Types.StackSetOperationAction +import Amazonka.CloudFormation.Types.StackSetOperationPreferences +import Amazonka.CloudFormation.Types.StackSetOperationResultStatus +import Amazonka.CloudFormation.Types.StackSetOperationResultSummary +import Amazonka.CloudFormation.Types.StackSetOperationStatus +import Amazonka.CloudFormation.Types.StackSetOperationStatusDetails +import Amazonka.CloudFormation.Types.StackSetOperationSummary +import Amazonka.CloudFormation.Types.StackSetStatus +import Amazonka.CloudFormation.Types.StackSetSummary +import Amazonka.CloudFormation.Types.StackStatus +import Amazonka.CloudFormation.Types.StackSummary +import Amazonka.CloudFormation.Types.Tag +import Amazonka.CloudFormation.Types.TemplateParameter +import Amazonka.CloudFormation.Types.TemplateStage +import Amazonka.CloudFormation.Types.ThirdPartyType +import Amazonka.CloudFormation.Types.TypeConfigurationDetails +import Amazonka.CloudFormation.Types.TypeConfigurationIdentifier +import Amazonka.CloudFormation.Types.TypeFilters +import Amazonka.CloudFormation.Types.TypeSummary +import Amazonka.CloudFormation.Types.TypeTestsStatus +import Amazonka.CloudFormation.Types.TypeVersionSummary +import Amazonka.CloudFormation.Types.VersionBump +import Amazonka.CloudFormation.Types.Visibility +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Sign.V4 as Sign + +-- | API version @2010-05-15@ of the Amazon CloudFormation SDK configuration. +defaultService :: Core.Service +defaultService = + Core.Service + { Core.abbrev = "CloudFormation", + Core.signer = Sign.v4, + Core.endpointPrefix = "cloudformation", + Core.signingName = "cloudformation", + Core.version = "2010-05-15", + Core.s3AddressingStyle = Core.S3AddressingStyleAuto, + Core.endpoint = Core.defaultEndpoint defaultService, + Core.timeout = Prelude.Just 70, + Core.check = Core.statusSuccess, + Core.error = Core.parseXMLError "CloudFormation", + Core.retry = retry + } + where + retry = + Core.Exponential + { Core.base = 5.0e-2, + Core.growth = 2, + Core.attempts = 5, + Core.check = check + } + check e + | Lens.has (Core.hasStatus 502) e = + Prelude.Just "bad_gateway" + | Lens.has (Core.hasStatus 504) e = + Prelude.Just "gateway_timeout" + | Lens.has (Core.hasStatus 500) e = + Prelude.Just "general_server_error" + | Lens.has (Core.hasStatus 509) e = + Prelude.Just "limit_exceeded" + | Lens.has + ( Core.hasCode "RequestThrottledException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "request_throttled_exception" + | Lens.has (Core.hasStatus 503) e = + Prelude.Just "service_unavailable" + | Lens.has + ( Core.hasCode "ThrottledException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throttled_exception" + | Lens.has + ( Core.hasCode "Throttling" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throttling" + | Lens.has + ( Core.hasCode "ThrottlingException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throttling_exception" + | Lens.has + ( Core.hasCode + "ProvisionedThroughputExceededException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throughput_exceeded" + | Lens.has (Core.hasStatus 429) e = + Prelude.Just "too_many_requests" + | Prelude.otherwise = Prelude.Nothing + +-- | The resource with the name requested already exists. +_AlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_AlreadyExistsException = + Core._MatchServiceError + defaultService + "AlreadyExistsException" + Prelude.. Core.hasStatus 400 + +-- | An error occurred during a CloudFormation registry operation. +_CFNRegistryException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_CFNRegistryException = + Core._MatchServiceError + defaultService + "CFNRegistryException" + Prelude.. Core.hasStatus 400 + +-- | The specified change set name or ID doesn\'t exit. To view valid change +-- sets for a stack, use the @ListChangeSets@ operation. +_ChangeSetNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_ChangeSetNotFoundException = + Core._MatchServiceError + defaultService + "ChangeSetNotFound" + Prelude.. Core.hasStatus 404 + +-- | The specified resource exists, but has been changed. +_CreatedButModifiedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_CreatedButModifiedException = + Core._MatchServiceError + defaultService + "CreatedButModifiedException" + Prelude.. Core.hasStatus 409 + +-- | The template contains resources with capabilities that weren\'t +-- specified in the Capabilities parameter. +_InsufficientCapabilitiesException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_InsufficientCapabilitiesException = + Core._MatchServiceError + defaultService + "InsufficientCapabilitiesException" + Prelude.. Core.hasStatus 400 + +-- | The specified change set can\'t be used to update the stack. For +-- example, the change set status might be @CREATE_IN_PROGRESS@, or the +-- stack status might be @UPDATE_IN_PROGRESS@. +_InvalidChangeSetStatusException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_InvalidChangeSetStatusException = + Core._MatchServiceError + defaultService + "InvalidChangeSetStatus" + Prelude.. Core.hasStatus 400 + +-- | The specified operation isn\'t valid. +_InvalidOperationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_InvalidOperationException = + Core._MatchServiceError + defaultService + "InvalidOperationException" + Prelude.. Core.hasStatus 400 + +-- | Error reserved for use by the +-- . +-- CloudFormation doesn\'t return this error to users. +_InvalidStateTransitionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_InvalidStateTransitionException = + Core._MatchServiceError + defaultService + "InvalidStateTransition" + Prelude.. Core.hasStatus 400 + +-- | The quota for the resource has already been reached. +-- +-- For information about resource and stack limitations, see +-- +-- in the /CloudFormation User Guide/. +_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_LimitExceededException = + Core._MatchServiceError + defaultService + "LimitExceededException" + Prelude.. Core.hasStatus 400 + +-- | The specified name is already in use. +_NameAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_NameAlreadyExistsException = + Core._MatchServiceError + defaultService + "NameAlreadyExistsException" + Prelude.. Core.hasStatus 409 + +-- | The specified operation ID already exists. +_OperationIdAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_OperationIdAlreadyExistsException = + Core._MatchServiceError + defaultService + "OperationIdAlreadyExistsException" + Prelude.. Core.hasStatus 409 + +-- | Another operation is currently in progress for this stack set. Only one +-- operation can be performed for a stack set at a given time. +_OperationInProgressException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_OperationInProgressException = + Core._MatchServiceError + defaultService + "OperationInProgressException" + Prelude.. Core.hasStatus 409 + +-- | The specified ID refers to an operation that doesn\'t exist. +_OperationNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_OperationNotFoundException = + Core._MatchServiceError + defaultService + "OperationNotFoundException" + Prelude.. Core.hasStatus 404 + +-- | Error reserved for use by the +-- . +-- CloudFormation doesn\'t return this error to users. +_OperationStatusCheckFailedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_OperationStatusCheckFailedException = + Core._MatchServiceError + defaultService + "ConditionalCheckFailed" + Prelude.. Core.hasStatus 400 + +-- | The specified stack instance doesn\'t exist. +_StackInstanceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_StackInstanceNotFoundException = + Core._MatchServiceError + defaultService + "StackInstanceNotFoundException" + Prelude.. Core.hasStatus 404 + +-- | The specified stack ARN doesn\'t exist or stack doesn\'t exist +-- corresponding to the ARN in input. +_StackNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_StackNotFoundException = + Core._MatchServiceError + defaultService + "StackNotFoundException" + Prelude.. Core.hasStatus 404 + +-- | You can\'t yet delete this stack set, because it still contains one or +-- more stack instances. Delete all stack instances from the stack set +-- before deleting the stack set. +_StackSetNotEmptyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_StackSetNotEmptyException = + Core._MatchServiceError + defaultService + "StackSetNotEmptyException" + Prelude.. Core.hasStatus 409 + +-- | The specified stack set doesn\'t exist. +_StackSetNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_StackSetNotFoundException = + Core._MatchServiceError + defaultService + "StackSetNotFoundException" + Prelude.. Core.hasStatus 404 + +-- | Another operation has been performed on this stack set since the +-- specified operation was performed. +_StaleRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_StaleRequestException = + Core._MatchServiceError + defaultService + "StaleRequestException" + Prelude.. Core.hasStatus 409 + +-- | A client request token already exists. +_TokenAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_TokenAlreadyExistsException = + Core._MatchServiceError + defaultService + "TokenAlreadyExistsException" + Prelude.. Core.hasStatus 400 + +-- | The specified extension configuration can\'t be found. +_TypeConfigurationNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_TypeConfigurationNotFoundException = + Core._MatchServiceError + defaultService + "TypeConfigurationNotFoundException" + Prelude.. Core.hasStatus 404 + +-- | The specified extension doesn\'t exist in the CloudFormation registry. +_TypeNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_TypeNotFoundException = + Core._MatchServiceError + defaultService + "TypeNotFoundException" + Prelude.. Core.hasStatus 404 diff --git a/gen/Amazonka/CloudFormation/Types/AccountFilterType.hs b/gen/Amazonka/CloudFormation/Types/AccountFilterType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/AccountFilterType.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.AccountFilterType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.AccountFilterType + ( AccountFilterType + ( .., + AccountFilterType_DIFFERENCE, + AccountFilterType_INTERSECTION, + AccountFilterType_NONE, + AccountFilterType_UNION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype AccountFilterType = AccountFilterType' + { fromAccountFilterType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern AccountFilterType_DIFFERENCE :: AccountFilterType +pattern AccountFilterType_DIFFERENCE = AccountFilterType' "DIFFERENCE" + +pattern AccountFilterType_INTERSECTION :: AccountFilterType +pattern AccountFilterType_INTERSECTION = AccountFilterType' "INTERSECTION" + +pattern AccountFilterType_NONE :: AccountFilterType +pattern AccountFilterType_NONE = AccountFilterType' "NONE" + +pattern AccountFilterType_UNION :: AccountFilterType +pattern AccountFilterType_UNION = AccountFilterType' "UNION" + +{-# COMPLETE + AccountFilterType_DIFFERENCE, + AccountFilterType_INTERSECTION, + AccountFilterType_NONE, + AccountFilterType_UNION, + AccountFilterType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/AccountGateResult.hs b/gen/Amazonka/CloudFormation/Types/AccountGateResult.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/AccountGateResult.hs @@ -0,0 +1,182 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.AccountGateResult +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.AccountGateResult where + +import Amazonka.CloudFormation.Types.AccountGateStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Structure that contains the results of the account gate function which +-- CloudFormation invokes, if present, before proceeding with a stack set +-- operation in an account and Region. +-- +-- For each account and Region, CloudFormation lets you specify a Lambda +-- function that encapsulates any requirements that must be met before +-- CloudFormation can proceed with a stack set operation in that account +-- and Region. CloudFormation invokes the function each time a stack set +-- operation is requested for that account and Region; if the function +-- returns @FAILED@, CloudFormation cancels the operation in that account +-- and Region, and sets the stack set operation result status for that +-- account and Region to @FAILED@. +-- +-- For more information, see +-- . +-- +-- /See:/ 'newAccountGateResult' smart constructor. +data AccountGateResult = AccountGateResult' + { -- | The status of the account gate function. + -- + -- - @SUCCEEDED@: The account gate function has determined that the + -- account and Region passes any requirements for a stack set operation + -- to occur. CloudFormation proceeds with the stack operation in that + -- account and Region. + -- + -- - @FAILED@: The account gate function has determined that the account + -- and Region doesn\'t meet the requirements for a stack set operation + -- to occur. CloudFormation cancels the stack set operation in that + -- account and Region, and sets the stack set operation result status + -- for that account and Region to @FAILED@. + -- + -- - @SKIPPED@: CloudFormation has skipped calling the account gate + -- function for this account and Region, for one of the following + -- reasons: + -- + -- - An account gate function hasn\'t been specified for the account + -- and Region. CloudFormation proceeds with the stack set operation + -- in this account and Region. + -- + -- - The @AWSCloudFormationStackSetExecutionRole@ of the stack set + -- administration account lacks permissions to invoke the function. + -- CloudFormation proceeds with the stack set operation in this + -- account and Region. + -- + -- - Either no action is necessary, or no action is possible, on the + -- stack. CloudFormation skips the stack set operation in this + -- account and Region. + status :: Prelude.Maybe AccountGateStatus, + -- | The reason for the account gate status assigned to this account and + -- Region for the stack set operation. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'AccountGateResult' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'status', 'accountGateResult_status' - The status of the account gate function. +-- +-- - @SUCCEEDED@: The account gate function has determined that the +-- account and Region passes any requirements for a stack set operation +-- to occur. CloudFormation proceeds with the stack operation in that +-- account and Region. +-- +-- - @FAILED@: The account gate function has determined that the account +-- and Region doesn\'t meet the requirements for a stack set operation +-- to occur. CloudFormation cancels the stack set operation in that +-- account and Region, and sets the stack set operation result status +-- for that account and Region to @FAILED@. +-- +-- - @SKIPPED@: CloudFormation has skipped calling the account gate +-- function for this account and Region, for one of the following +-- reasons: +-- +-- - An account gate function hasn\'t been specified for the account +-- and Region. CloudFormation proceeds with the stack set operation +-- in this account and Region. +-- +-- - The @AWSCloudFormationStackSetExecutionRole@ of the stack set +-- administration account lacks permissions to invoke the function. +-- CloudFormation proceeds with the stack set operation in this +-- account and Region. +-- +-- - Either no action is necessary, or no action is possible, on the +-- stack. CloudFormation skips the stack set operation in this +-- account and Region. +-- +-- 'statusReason', 'accountGateResult_statusReason' - The reason for the account gate status assigned to this account and +-- Region for the stack set operation. +newAccountGateResult :: + AccountGateResult +newAccountGateResult = + AccountGateResult' + { status = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | The status of the account gate function. +-- +-- - @SUCCEEDED@: The account gate function has determined that the +-- account and Region passes any requirements for a stack set operation +-- to occur. CloudFormation proceeds with the stack operation in that +-- account and Region. +-- +-- - @FAILED@: The account gate function has determined that the account +-- and Region doesn\'t meet the requirements for a stack set operation +-- to occur. CloudFormation cancels the stack set operation in that +-- account and Region, and sets the stack set operation result status +-- for that account and Region to @FAILED@. +-- +-- - @SKIPPED@: CloudFormation has skipped calling the account gate +-- function for this account and Region, for one of the following +-- reasons: +-- +-- - An account gate function hasn\'t been specified for the account +-- and Region. CloudFormation proceeds with the stack set operation +-- in this account and Region. +-- +-- - The @AWSCloudFormationStackSetExecutionRole@ of the stack set +-- administration account lacks permissions to invoke the function. +-- CloudFormation proceeds with the stack set operation in this +-- account and Region. +-- +-- - Either no action is necessary, or no action is possible, on the +-- stack. CloudFormation skips the stack set operation in this +-- account and Region. +accountGateResult_status :: Lens.Lens' AccountGateResult (Prelude.Maybe AccountGateStatus) +accountGateResult_status = Lens.lens (\AccountGateResult' {status} -> status) (\s@AccountGateResult' {} a -> s {status = a} :: AccountGateResult) + +-- | The reason for the account gate status assigned to this account and +-- Region for the stack set operation. +accountGateResult_statusReason :: Lens.Lens' AccountGateResult (Prelude.Maybe Prelude.Text) +accountGateResult_statusReason = Lens.lens (\AccountGateResult' {statusReason} -> statusReason) (\s@AccountGateResult' {} a -> s {statusReason = a} :: AccountGateResult) + +instance Data.FromXML AccountGateResult where + parseXML x = + AccountGateResult' + Prelude.<$> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusReason") + +instance Prelude.Hashable AccountGateResult where + hashWithSalt _salt AccountGateResult' {..} = + _salt + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusReason + +instance Prelude.NFData AccountGateResult where + rnf AccountGateResult' {..} = + Prelude.rnf status + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/AccountGateStatus.hs b/gen/Amazonka/CloudFormation/Types/AccountGateStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/AccountGateStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.AccountGateStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.AccountGateStatus + ( AccountGateStatus + ( .., + AccountGateStatus_FAILED, + AccountGateStatus_SKIPPED, + AccountGateStatus_SUCCEEDED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype AccountGateStatus = AccountGateStatus' + { fromAccountGateStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern AccountGateStatus_FAILED :: AccountGateStatus +pattern AccountGateStatus_FAILED = AccountGateStatus' "FAILED" + +pattern AccountGateStatus_SKIPPED :: AccountGateStatus +pattern AccountGateStatus_SKIPPED = AccountGateStatus' "SKIPPED" + +pattern AccountGateStatus_SUCCEEDED :: AccountGateStatus +pattern AccountGateStatus_SUCCEEDED = AccountGateStatus' "SUCCEEDED" + +{-# COMPLETE + AccountGateStatus_FAILED, + AccountGateStatus_SKIPPED, + AccountGateStatus_SUCCEEDED, + AccountGateStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/AccountLimit.hs b/gen/Amazonka/CloudFormation/Types/AccountLimit.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/AccountLimit.hs @@ -0,0 +1,98 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.AccountLimit +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.AccountLimit where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The AccountLimit data type. +-- +-- CloudFormation has the following limits per account: +-- +-- - Number of concurrent resources +-- +-- - Number of stacks +-- +-- - Number of stack outputs +-- +-- For more information about these account limits, and other +-- CloudFormation limits, see +-- +-- in the /CloudFormation User Guide/. +-- +-- /See:/ 'newAccountLimit' smart constructor. +data AccountLimit = AccountLimit' + { -- | The name of the account limit. + -- + -- Values: @ConcurrentResourcesLimit@ | @StackLimit@ | @StackOutputsLimit@ + name :: Prelude.Maybe Prelude.Text, + -- | The value that\'s associated with the account limit name. + value :: Prelude.Maybe Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'AccountLimit' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'name', 'accountLimit_name' - The name of the account limit. +-- +-- Values: @ConcurrentResourcesLimit@ | @StackLimit@ | @StackOutputsLimit@ +-- +-- 'value', 'accountLimit_value' - The value that\'s associated with the account limit name. +newAccountLimit :: + AccountLimit +newAccountLimit = + AccountLimit' + { name = Prelude.Nothing, + value = Prelude.Nothing + } + +-- | The name of the account limit. +-- +-- Values: @ConcurrentResourcesLimit@ | @StackLimit@ | @StackOutputsLimit@ +accountLimit_name :: Lens.Lens' AccountLimit (Prelude.Maybe Prelude.Text) +accountLimit_name = Lens.lens (\AccountLimit' {name} -> name) (\s@AccountLimit' {} a -> s {name = a} :: AccountLimit) + +-- | The value that\'s associated with the account limit name. +accountLimit_value :: Lens.Lens' AccountLimit (Prelude.Maybe Prelude.Int) +accountLimit_value = Lens.lens (\AccountLimit' {value} -> value) (\s@AccountLimit' {} a -> s {value = a} :: AccountLimit) + +instance Data.FromXML AccountLimit where + parseXML x = + AccountLimit' + Prelude.<$> (x Data..@? "Name") + Prelude.<*> (x Data..@? "Value") + +instance Prelude.Hashable AccountLimit where + hashWithSalt _salt AccountLimit' {..} = + _salt + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` value + +instance Prelude.NFData AccountLimit where + rnf AccountLimit' {..} = + Prelude.rnf name `Prelude.seq` Prelude.rnf value diff --git a/gen/Amazonka/CloudFormation/Types/AutoDeployment.hs b/gen/Amazonka/CloudFormation/Types/AutoDeployment.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/AutoDeployment.hs @@ -0,0 +1,108 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.AutoDeployment +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.AutoDeployment where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organization or organizational unit (OU). +-- +-- /See:/ 'newAutoDeployment' smart constructor. +data AutoDeployment = AutoDeployment' + { -- | If set to @true@, StackSets automatically deploys additional stack + -- instances to Organizations accounts that are added to a target + -- organization or organizational unit (OU) in the specified Regions. If an + -- account is removed from a target organization or OU, StackSets deletes + -- stack instances from the account in the specified Regions. + enabled :: Prelude.Maybe Prelude.Bool, + -- | If set to @true@, stack resources are retained when an account is + -- removed from a target organization or OU. If set to @false@, stack + -- resources are deleted. Specify only if @Enabled@ is set to @True@. + retainStacksOnAccountRemoval :: Prelude.Maybe Prelude.Bool + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'AutoDeployment' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'enabled', 'autoDeployment_enabled' - If set to @true@, StackSets automatically deploys additional stack +-- instances to Organizations accounts that are added to a target +-- organization or organizational unit (OU) in the specified Regions. If an +-- account is removed from a target organization or OU, StackSets deletes +-- stack instances from the account in the specified Regions. +-- +-- 'retainStacksOnAccountRemoval', 'autoDeployment_retainStacksOnAccountRemoval' - If set to @true@, stack resources are retained when an account is +-- removed from a target organization or OU. If set to @false@, stack +-- resources are deleted. Specify only if @Enabled@ is set to @True@. +newAutoDeployment :: + AutoDeployment +newAutoDeployment = + AutoDeployment' + { enabled = Prelude.Nothing, + retainStacksOnAccountRemoval = Prelude.Nothing + } + +-- | If set to @true@, StackSets automatically deploys additional stack +-- instances to Organizations accounts that are added to a target +-- organization or organizational unit (OU) in the specified Regions. If an +-- account is removed from a target organization or OU, StackSets deletes +-- stack instances from the account in the specified Regions. +autoDeployment_enabled :: Lens.Lens' AutoDeployment (Prelude.Maybe Prelude.Bool) +autoDeployment_enabled = Lens.lens (\AutoDeployment' {enabled} -> enabled) (\s@AutoDeployment' {} a -> s {enabled = a} :: AutoDeployment) + +-- | If set to @true@, stack resources are retained when an account is +-- removed from a target organization or OU. If set to @false@, stack +-- resources are deleted. Specify only if @Enabled@ is set to @True@. +autoDeployment_retainStacksOnAccountRemoval :: Lens.Lens' AutoDeployment (Prelude.Maybe Prelude.Bool) +autoDeployment_retainStacksOnAccountRemoval = Lens.lens (\AutoDeployment' {retainStacksOnAccountRemoval} -> retainStacksOnAccountRemoval) (\s@AutoDeployment' {} a -> s {retainStacksOnAccountRemoval = a} :: AutoDeployment) + +instance Data.FromXML AutoDeployment where + parseXML x = + AutoDeployment' + Prelude.<$> (x Data..@? "Enabled") + Prelude.<*> (x Data..@? "RetainStacksOnAccountRemoval") + +instance Prelude.Hashable AutoDeployment where + hashWithSalt _salt AutoDeployment' {..} = + _salt + `Prelude.hashWithSalt` enabled + `Prelude.hashWithSalt` retainStacksOnAccountRemoval + +instance Prelude.NFData AutoDeployment where + rnf AutoDeployment' {..} = + Prelude.rnf enabled + `Prelude.seq` Prelude.rnf retainStacksOnAccountRemoval + +instance Data.ToQuery AutoDeployment where + toQuery AutoDeployment' {..} = + Prelude.mconcat + [ "Enabled" Data.=: enabled, + "RetainStacksOnAccountRemoval" + Data.=: retainStacksOnAccountRemoval + ] diff --git a/gen/Amazonka/CloudFormation/Types/BatchDescribeTypeConfigurationsError.hs b/gen/Amazonka/CloudFormation/Types/BatchDescribeTypeConfigurationsError.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/BatchDescribeTypeConfigurationsError.hs @@ -0,0 +1,106 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.BatchDescribeTypeConfigurationsError +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.BatchDescribeTypeConfigurationsError where + +import Amazonka.CloudFormation.Types.TypeConfigurationIdentifier +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Detailed information concerning an error generated during the setting of +-- configuration data for a CloudFormation extension. +-- +-- /See:/ 'newBatchDescribeTypeConfigurationsError' smart constructor. +data BatchDescribeTypeConfigurationsError = BatchDescribeTypeConfigurationsError' + { -- | The error code. + errorCode :: Prelude.Maybe Prelude.Text, + -- | The error message. + errorMessage :: Prelude.Maybe Prelude.Text, + typeConfigurationIdentifier :: Prelude.Maybe TypeConfigurationIdentifier + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'BatchDescribeTypeConfigurationsError' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'errorCode', 'batchDescribeTypeConfigurationsError_errorCode' - The error code. +-- +-- 'errorMessage', 'batchDescribeTypeConfigurationsError_errorMessage' - The error message. +-- +-- 'typeConfigurationIdentifier', 'batchDescribeTypeConfigurationsError_typeConfigurationIdentifier' - Undocumented member. +newBatchDescribeTypeConfigurationsError :: + BatchDescribeTypeConfigurationsError +newBatchDescribeTypeConfigurationsError = + BatchDescribeTypeConfigurationsError' + { errorCode = + Prelude.Nothing, + errorMessage = Prelude.Nothing, + typeConfigurationIdentifier = + Prelude.Nothing + } + +-- | The error code. +batchDescribeTypeConfigurationsError_errorCode :: Lens.Lens' BatchDescribeTypeConfigurationsError (Prelude.Maybe Prelude.Text) +batchDescribeTypeConfigurationsError_errorCode = Lens.lens (\BatchDescribeTypeConfigurationsError' {errorCode} -> errorCode) (\s@BatchDescribeTypeConfigurationsError' {} a -> s {errorCode = a} :: BatchDescribeTypeConfigurationsError) + +-- | The error message. +batchDescribeTypeConfigurationsError_errorMessage :: Lens.Lens' BatchDescribeTypeConfigurationsError (Prelude.Maybe Prelude.Text) +batchDescribeTypeConfigurationsError_errorMessage = Lens.lens (\BatchDescribeTypeConfigurationsError' {errorMessage} -> errorMessage) (\s@BatchDescribeTypeConfigurationsError' {} a -> s {errorMessage = a} :: BatchDescribeTypeConfigurationsError) + +-- | Undocumented member. +batchDescribeTypeConfigurationsError_typeConfigurationIdentifier :: Lens.Lens' BatchDescribeTypeConfigurationsError (Prelude.Maybe TypeConfigurationIdentifier) +batchDescribeTypeConfigurationsError_typeConfigurationIdentifier = Lens.lens (\BatchDescribeTypeConfigurationsError' {typeConfigurationIdentifier} -> typeConfigurationIdentifier) (\s@BatchDescribeTypeConfigurationsError' {} a -> s {typeConfigurationIdentifier = a} :: BatchDescribeTypeConfigurationsError) + +instance + Data.FromXML + BatchDescribeTypeConfigurationsError + where + parseXML x = + BatchDescribeTypeConfigurationsError' + Prelude.<$> (x Data..@? "ErrorCode") + Prelude.<*> (x Data..@? "ErrorMessage") + Prelude.<*> (x Data..@? "TypeConfigurationIdentifier") + +instance + Prelude.Hashable + BatchDescribeTypeConfigurationsError + where + hashWithSalt + _salt + BatchDescribeTypeConfigurationsError' {..} = + _salt + `Prelude.hashWithSalt` errorCode + `Prelude.hashWithSalt` errorMessage + `Prelude.hashWithSalt` typeConfigurationIdentifier + +instance + Prelude.NFData + BatchDescribeTypeConfigurationsError + where + rnf BatchDescribeTypeConfigurationsError' {..} = + Prelude.rnf errorCode + `Prelude.seq` Prelude.rnf errorMessage + `Prelude.seq` Prelude.rnf typeConfigurationIdentifier diff --git a/gen/Amazonka/CloudFormation/Types/CallAs.hs b/gen/Amazonka/CloudFormation/Types/CallAs.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/CallAs.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.CallAs +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.CallAs + ( CallAs + ( .., + CallAs_DELEGATED_ADMIN, + CallAs_SELF + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype CallAs = CallAs' {fromCallAs :: Data.Text} + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern CallAs_DELEGATED_ADMIN :: CallAs +pattern CallAs_DELEGATED_ADMIN = CallAs' "DELEGATED_ADMIN" + +pattern CallAs_SELF :: CallAs +pattern CallAs_SELF = CallAs' "SELF" + +{-# COMPLETE + CallAs_DELEGATED_ADMIN, + CallAs_SELF, + CallAs' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Capability.hs b/gen/Amazonka/CloudFormation/Types/Capability.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Capability.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Capability +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Capability + ( Capability + ( .., + Capability_CAPABILITY_AUTO_EXPAND, + Capability_CAPABILITY_IAM, + Capability_CAPABILITY_NAMED_IAM + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype Capability = Capability' + { fromCapability :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern Capability_CAPABILITY_AUTO_EXPAND :: Capability +pattern Capability_CAPABILITY_AUTO_EXPAND = Capability' "CAPABILITY_AUTO_EXPAND" + +pattern Capability_CAPABILITY_IAM :: Capability +pattern Capability_CAPABILITY_IAM = Capability' "CAPABILITY_IAM" + +pattern Capability_CAPABILITY_NAMED_IAM :: Capability +pattern Capability_CAPABILITY_NAMED_IAM = Capability' "CAPABILITY_NAMED_IAM" + +{-# COMPLETE + Capability_CAPABILITY_AUTO_EXPAND, + Capability_CAPABILITY_IAM, + Capability_CAPABILITY_NAMED_IAM, + Capability' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Category.hs b/gen/Amazonka/CloudFormation/Types/Category.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Category.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Category +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Category + ( Category + ( .., + Category_ACTIVATED, + Category_AWS_TYPES, + Category_REGISTERED, + Category_THIRD_PARTY + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype Category = Category' + { fromCategory :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern Category_ACTIVATED :: Category +pattern Category_ACTIVATED = Category' "ACTIVATED" + +pattern Category_AWS_TYPES :: Category +pattern Category_AWS_TYPES = Category' "AWS_TYPES" + +pattern Category_REGISTERED :: Category +pattern Category_REGISTERED = Category' "REGISTERED" + +pattern Category_THIRD_PARTY :: Category +pattern Category_THIRD_PARTY = Category' "THIRD_PARTY" + +{-# COMPLETE + Category_ACTIVATED, + Category_AWS_TYPES, + Category_REGISTERED, + Category_THIRD_PARTY, + Category' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Change.hs b/gen/Amazonka/CloudFormation/Types/Change.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Change.hs @@ -0,0 +1,104 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Change +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Change where + +import Amazonka.CloudFormation.Types.ChangeType +import Amazonka.CloudFormation.Types.ResourceChange +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The @Change@ structure describes the changes CloudFormation will perform +-- if you execute the change set. +-- +-- /See:/ 'newChange' smart constructor. +data Change = Change' + { -- | Is either @null@, if no hooks invoke for the resource, or contains the + -- number of hooks that will invoke for the resource. + hookInvocationCount :: Prelude.Maybe Prelude.Natural, + -- | A @ResourceChange@ structure that describes the resource and action that + -- CloudFormation will perform. + resourceChange :: Prelude.Maybe ResourceChange, + -- | The type of entity that CloudFormation changes. Currently, the only + -- entity type is @Resource@. + type' :: Prelude.Maybe ChangeType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Change' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'hookInvocationCount', 'change_hookInvocationCount' - Is either @null@, if no hooks invoke for the resource, or contains the +-- number of hooks that will invoke for the resource. +-- +-- 'resourceChange', 'change_resourceChange' - A @ResourceChange@ structure that describes the resource and action that +-- CloudFormation will perform. +-- +-- 'type'', 'change_type' - The type of entity that CloudFormation changes. Currently, the only +-- entity type is @Resource@. +newChange :: + Change +newChange = + Change' + { hookInvocationCount = Prelude.Nothing, + resourceChange = Prelude.Nothing, + type' = Prelude.Nothing + } + +-- | Is either @null@, if no hooks invoke for the resource, or contains the +-- number of hooks that will invoke for the resource. +change_hookInvocationCount :: Lens.Lens' Change (Prelude.Maybe Prelude.Natural) +change_hookInvocationCount = Lens.lens (\Change' {hookInvocationCount} -> hookInvocationCount) (\s@Change' {} a -> s {hookInvocationCount = a} :: Change) + +-- | A @ResourceChange@ structure that describes the resource and action that +-- CloudFormation will perform. +change_resourceChange :: Lens.Lens' Change (Prelude.Maybe ResourceChange) +change_resourceChange = Lens.lens (\Change' {resourceChange} -> resourceChange) (\s@Change' {} a -> s {resourceChange = a} :: Change) + +-- | The type of entity that CloudFormation changes. Currently, the only +-- entity type is @Resource@. +change_type :: Lens.Lens' Change (Prelude.Maybe ChangeType) +change_type = Lens.lens (\Change' {type'} -> type') (\s@Change' {} a -> s {type' = a} :: Change) + +instance Data.FromXML Change where + parseXML x = + Change' + Prelude.<$> (x Data..@? "HookInvocationCount") + Prelude.<*> (x Data..@? "ResourceChange") + Prelude.<*> (x Data..@? "Type") + +instance Prelude.Hashable Change where + hashWithSalt _salt Change' {..} = + _salt + `Prelude.hashWithSalt` hookInvocationCount + `Prelude.hashWithSalt` resourceChange + `Prelude.hashWithSalt` type' + +instance Prelude.NFData Change where + rnf Change' {..} = + Prelude.rnf hookInvocationCount + `Prelude.seq` Prelude.rnf resourceChange + `Prelude.seq` Prelude.rnf type' diff --git a/gen/Amazonka/CloudFormation/Types/ChangeAction.hs b/gen/Amazonka/CloudFormation/Types/ChangeAction.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeAction.hs @@ -0,0 +1,86 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeAction +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeAction + ( ChangeAction + ( .., + ChangeAction_Add, + ChangeAction_Dynamic, + ChangeAction_Import, + ChangeAction_Modify, + ChangeAction_Remove + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChangeAction = ChangeAction' + { fromChangeAction :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ChangeAction_Add :: ChangeAction +pattern ChangeAction_Add = ChangeAction' "Add" + +pattern ChangeAction_Dynamic :: ChangeAction +pattern ChangeAction_Dynamic = ChangeAction' "Dynamic" + +pattern ChangeAction_Import :: ChangeAction +pattern ChangeAction_Import = ChangeAction' "Import" + +pattern ChangeAction_Modify :: ChangeAction +pattern ChangeAction_Modify = ChangeAction' "Modify" + +pattern ChangeAction_Remove :: ChangeAction +pattern ChangeAction_Remove = ChangeAction' "Remove" + +{-# COMPLETE + ChangeAction_Add, + ChangeAction_Dynamic, + ChangeAction_Import, + ChangeAction_Modify, + ChangeAction_Remove, + ChangeAction' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetHook.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetHook.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetHook.hs @@ -0,0 +1,200 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetHook +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetHook where + +import Amazonka.CloudFormation.Types.ChangeSetHookTargetDetails +import Amazonka.CloudFormation.Types.HookFailureMode +import Amazonka.CloudFormation.Types.HookInvocationPoint +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Specifies the resource, the hook, and the hook version to be invoked. +-- +-- /See:/ 'newChangeSetHook' smart constructor. +data ChangeSetHook = ChangeSetHook' + { -- | Specify the hook failure mode for non-compliant resources in the + -- followings ways. + -- + -- - @FAIL@ Stops provisioning resources. + -- + -- - @WARN@ Allows provisioning to continue with a warning message. + failureMode :: Prelude.Maybe HookFailureMode, + -- | Specifies the points in provisioning logic where a hook is invoked. + invocationPoint :: Prelude.Maybe HookInvocationPoint, + -- | Specifies details about the target that the hook will run against. + targetDetails :: Prelude.Maybe ChangeSetHookTargetDetails, + -- | The version ID of the type configuration. + typeConfigurationVersionId :: Prelude.Maybe Prelude.Text, + -- | The unique name for your hook. Specifies a three-part namespace for your + -- hook, with a recommended pattern of @Organization::Service::Hook@. + -- + -- The following organization namespaces are reserved and can\'t be used in + -- your hook type names: + -- + -- - @Alexa@ + -- + -- - @AMZN@ + -- + -- - @Amazon@ + -- + -- - @ASK@ + -- + -- - @AWS@ + -- + -- - @Custom@ + -- + -- - @Dev@ + typeName :: Prelude.Maybe Prelude.Text, + -- | The version ID of the type specified. + typeVersionId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChangeSetHook' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'failureMode', 'changeSetHook_failureMode' - Specify the hook failure mode for non-compliant resources in the +-- followings ways. +-- +-- - @FAIL@ Stops provisioning resources. +-- +-- - @WARN@ Allows provisioning to continue with a warning message. +-- +-- 'invocationPoint', 'changeSetHook_invocationPoint' - Specifies the points in provisioning logic where a hook is invoked. +-- +-- 'targetDetails', 'changeSetHook_targetDetails' - Specifies details about the target that the hook will run against. +-- +-- 'typeConfigurationVersionId', 'changeSetHook_typeConfigurationVersionId' - The version ID of the type configuration. +-- +-- 'typeName', 'changeSetHook_typeName' - The unique name for your hook. Specifies a three-part namespace for your +-- hook, with a recommended pattern of @Organization::Service::Hook@. +-- +-- The following organization namespaces are reserved and can\'t be used in +-- your hook type names: +-- +-- - @Alexa@ +-- +-- - @AMZN@ +-- +-- - @Amazon@ +-- +-- - @ASK@ +-- +-- - @AWS@ +-- +-- - @Custom@ +-- +-- - @Dev@ +-- +-- 'typeVersionId', 'changeSetHook_typeVersionId' - The version ID of the type specified. +newChangeSetHook :: + ChangeSetHook +newChangeSetHook = + ChangeSetHook' + { failureMode = Prelude.Nothing, + invocationPoint = Prelude.Nothing, + targetDetails = Prelude.Nothing, + typeConfigurationVersionId = Prelude.Nothing, + typeName = Prelude.Nothing, + typeVersionId = Prelude.Nothing + } + +-- | Specify the hook failure mode for non-compliant resources in the +-- followings ways. +-- +-- - @FAIL@ Stops provisioning resources. +-- +-- - @WARN@ Allows provisioning to continue with a warning message. +changeSetHook_failureMode :: Lens.Lens' ChangeSetHook (Prelude.Maybe HookFailureMode) +changeSetHook_failureMode = Lens.lens (\ChangeSetHook' {failureMode} -> failureMode) (\s@ChangeSetHook' {} a -> s {failureMode = a} :: ChangeSetHook) + +-- | Specifies the points in provisioning logic where a hook is invoked. +changeSetHook_invocationPoint :: Lens.Lens' ChangeSetHook (Prelude.Maybe HookInvocationPoint) +changeSetHook_invocationPoint = Lens.lens (\ChangeSetHook' {invocationPoint} -> invocationPoint) (\s@ChangeSetHook' {} a -> s {invocationPoint = a} :: ChangeSetHook) + +-- | Specifies details about the target that the hook will run against. +changeSetHook_targetDetails :: Lens.Lens' ChangeSetHook (Prelude.Maybe ChangeSetHookTargetDetails) +changeSetHook_targetDetails = Lens.lens (\ChangeSetHook' {targetDetails} -> targetDetails) (\s@ChangeSetHook' {} a -> s {targetDetails = a} :: ChangeSetHook) + +-- | The version ID of the type configuration. +changeSetHook_typeConfigurationVersionId :: Lens.Lens' ChangeSetHook (Prelude.Maybe Prelude.Text) +changeSetHook_typeConfigurationVersionId = Lens.lens (\ChangeSetHook' {typeConfigurationVersionId} -> typeConfigurationVersionId) (\s@ChangeSetHook' {} a -> s {typeConfigurationVersionId = a} :: ChangeSetHook) + +-- | The unique name for your hook. Specifies a three-part namespace for your +-- hook, with a recommended pattern of @Organization::Service::Hook@. +-- +-- The following organization namespaces are reserved and can\'t be used in +-- your hook type names: +-- +-- - @Alexa@ +-- +-- - @AMZN@ +-- +-- - @Amazon@ +-- +-- - @ASK@ +-- +-- - @AWS@ +-- +-- - @Custom@ +-- +-- - @Dev@ +changeSetHook_typeName :: Lens.Lens' ChangeSetHook (Prelude.Maybe Prelude.Text) +changeSetHook_typeName = Lens.lens (\ChangeSetHook' {typeName} -> typeName) (\s@ChangeSetHook' {} a -> s {typeName = a} :: ChangeSetHook) + +-- | The version ID of the type specified. +changeSetHook_typeVersionId :: Lens.Lens' ChangeSetHook (Prelude.Maybe Prelude.Text) +changeSetHook_typeVersionId = Lens.lens (\ChangeSetHook' {typeVersionId} -> typeVersionId) (\s@ChangeSetHook' {} a -> s {typeVersionId = a} :: ChangeSetHook) + +instance Data.FromXML ChangeSetHook where + parseXML x = + ChangeSetHook' + Prelude.<$> (x Data..@? "FailureMode") + Prelude.<*> (x Data..@? "InvocationPoint") + Prelude.<*> (x Data..@? "TargetDetails") + Prelude.<*> (x Data..@? "TypeConfigurationVersionId") + Prelude.<*> (x Data..@? "TypeName") + Prelude.<*> (x Data..@? "TypeVersionId") + +instance Prelude.Hashable ChangeSetHook where + hashWithSalt _salt ChangeSetHook' {..} = + _salt + `Prelude.hashWithSalt` failureMode + `Prelude.hashWithSalt` invocationPoint + `Prelude.hashWithSalt` targetDetails + `Prelude.hashWithSalt` typeConfigurationVersionId + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` typeVersionId + +instance Prelude.NFData ChangeSetHook where + rnf ChangeSetHook' {..} = + Prelude.rnf failureMode + `Prelude.seq` Prelude.rnf invocationPoint + `Prelude.seq` Prelude.rnf targetDetails + `Prelude.seq` Prelude.rnf typeConfigurationVersionId + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf typeVersionId diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetHookResourceTargetDetails.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetHookResourceTargetDetails.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetHookResourceTargetDetails.hs @@ -0,0 +1,105 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetHookResourceTargetDetails +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetHookResourceTargetDetails where + +import Amazonka.CloudFormation.Types.ChangeAction +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Specifies @RESOURCE@ type target details for activated hooks. +-- +-- /See:/ 'newChangeSetHookResourceTargetDetails' smart constructor. +data ChangeSetHookResourceTargetDetails = ChangeSetHookResourceTargetDetails' + { -- | The resource\'s logical ID, which is defined in the stack\'s template. + logicalResourceId :: Prelude.Maybe Prelude.Text, + -- | Specifies the action of the resource. + resourceAction :: Prelude.Maybe ChangeAction, + -- | The type of CloudFormation resource, such as @AWS::S3::Bucket@. + resourceType :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChangeSetHookResourceTargetDetails' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logicalResourceId', 'changeSetHookResourceTargetDetails_logicalResourceId' - The resource\'s logical ID, which is defined in the stack\'s template. +-- +-- 'resourceAction', 'changeSetHookResourceTargetDetails_resourceAction' - Specifies the action of the resource. +-- +-- 'resourceType', 'changeSetHookResourceTargetDetails_resourceType' - The type of CloudFormation resource, such as @AWS::S3::Bucket@. +newChangeSetHookResourceTargetDetails :: + ChangeSetHookResourceTargetDetails +newChangeSetHookResourceTargetDetails = + ChangeSetHookResourceTargetDetails' + { logicalResourceId = + Prelude.Nothing, + resourceAction = Prelude.Nothing, + resourceType = Prelude.Nothing + } + +-- | The resource\'s logical ID, which is defined in the stack\'s template. +changeSetHookResourceTargetDetails_logicalResourceId :: Lens.Lens' ChangeSetHookResourceTargetDetails (Prelude.Maybe Prelude.Text) +changeSetHookResourceTargetDetails_logicalResourceId = Lens.lens (\ChangeSetHookResourceTargetDetails' {logicalResourceId} -> logicalResourceId) (\s@ChangeSetHookResourceTargetDetails' {} a -> s {logicalResourceId = a} :: ChangeSetHookResourceTargetDetails) + +-- | Specifies the action of the resource. +changeSetHookResourceTargetDetails_resourceAction :: Lens.Lens' ChangeSetHookResourceTargetDetails (Prelude.Maybe ChangeAction) +changeSetHookResourceTargetDetails_resourceAction = Lens.lens (\ChangeSetHookResourceTargetDetails' {resourceAction} -> resourceAction) (\s@ChangeSetHookResourceTargetDetails' {} a -> s {resourceAction = a} :: ChangeSetHookResourceTargetDetails) + +-- | The type of CloudFormation resource, such as @AWS::S3::Bucket@. +changeSetHookResourceTargetDetails_resourceType :: Lens.Lens' ChangeSetHookResourceTargetDetails (Prelude.Maybe Prelude.Text) +changeSetHookResourceTargetDetails_resourceType = Lens.lens (\ChangeSetHookResourceTargetDetails' {resourceType} -> resourceType) (\s@ChangeSetHookResourceTargetDetails' {} a -> s {resourceType = a} :: ChangeSetHookResourceTargetDetails) + +instance + Data.FromXML + ChangeSetHookResourceTargetDetails + where + parseXML x = + ChangeSetHookResourceTargetDetails' + Prelude.<$> (x Data..@? "LogicalResourceId") + Prelude.<*> (x Data..@? "ResourceAction") + Prelude.<*> (x Data..@? "ResourceType") + +instance + Prelude.Hashable + ChangeSetHookResourceTargetDetails + where + hashWithSalt + _salt + ChangeSetHookResourceTargetDetails' {..} = + _salt + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` resourceAction + `Prelude.hashWithSalt` resourceType + +instance + Prelude.NFData + ChangeSetHookResourceTargetDetails + where + rnf ChangeSetHookResourceTargetDetails' {..} = + Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf resourceAction + `Prelude.seq` Prelude.rnf resourceType diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetHookTargetDetails.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetHookTargetDetails.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetHookTargetDetails.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetHookTargetDetails +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetHookTargetDetails where + +import Amazonka.CloudFormation.Types.ChangeSetHookResourceTargetDetails +import Amazonka.CloudFormation.Types.HookTargetType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Specifies target details for an activated hook. +-- +-- /See:/ 'newChangeSetHookTargetDetails' smart constructor. +data ChangeSetHookTargetDetails = ChangeSetHookTargetDetails' + { -- | Required if @TargetType@ is @RESOURCE@. + resourceTargetDetails :: Prelude.Maybe ChangeSetHookResourceTargetDetails, + -- | The name of the type. + targetType :: Prelude.Maybe HookTargetType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChangeSetHookTargetDetails' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'resourceTargetDetails', 'changeSetHookTargetDetails_resourceTargetDetails' - Required if @TargetType@ is @RESOURCE@. +-- +-- 'targetType', 'changeSetHookTargetDetails_targetType' - The name of the type. +newChangeSetHookTargetDetails :: + ChangeSetHookTargetDetails +newChangeSetHookTargetDetails = + ChangeSetHookTargetDetails' + { resourceTargetDetails = + Prelude.Nothing, + targetType = Prelude.Nothing + } + +-- | Required if @TargetType@ is @RESOURCE@. +changeSetHookTargetDetails_resourceTargetDetails :: Lens.Lens' ChangeSetHookTargetDetails (Prelude.Maybe ChangeSetHookResourceTargetDetails) +changeSetHookTargetDetails_resourceTargetDetails = Lens.lens (\ChangeSetHookTargetDetails' {resourceTargetDetails} -> resourceTargetDetails) (\s@ChangeSetHookTargetDetails' {} a -> s {resourceTargetDetails = a} :: ChangeSetHookTargetDetails) + +-- | The name of the type. +changeSetHookTargetDetails_targetType :: Lens.Lens' ChangeSetHookTargetDetails (Prelude.Maybe HookTargetType) +changeSetHookTargetDetails_targetType = Lens.lens (\ChangeSetHookTargetDetails' {targetType} -> targetType) (\s@ChangeSetHookTargetDetails' {} a -> s {targetType = a} :: ChangeSetHookTargetDetails) + +instance Data.FromXML ChangeSetHookTargetDetails where + parseXML x = + ChangeSetHookTargetDetails' + Prelude.<$> (x Data..@? "ResourceTargetDetails") + Prelude.<*> (x Data..@? "TargetType") + +instance Prelude.Hashable ChangeSetHookTargetDetails where + hashWithSalt _salt ChangeSetHookTargetDetails' {..} = + _salt + `Prelude.hashWithSalt` resourceTargetDetails + `Prelude.hashWithSalt` targetType + +instance Prelude.NFData ChangeSetHookTargetDetails where + rnf ChangeSetHookTargetDetails' {..} = + Prelude.rnf resourceTargetDetails + `Prelude.seq` Prelude.rnf targetType diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetHooksStatus.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetHooksStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetHooksStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetHooksStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetHooksStatus + ( ChangeSetHooksStatus + ( .., + ChangeSetHooksStatus_PLANNED, + ChangeSetHooksStatus_PLANNING, + ChangeSetHooksStatus_UNAVAILABLE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChangeSetHooksStatus = ChangeSetHooksStatus' + { fromChangeSetHooksStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ChangeSetHooksStatus_PLANNED :: ChangeSetHooksStatus +pattern ChangeSetHooksStatus_PLANNED = ChangeSetHooksStatus' "PLANNED" + +pattern ChangeSetHooksStatus_PLANNING :: ChangeSetHooksStatus +pattern ChangeSetHooksStatus_PLANNING = ChangeSetHooksStatus' "PLANNING" + +pattern ChangeSetHooksStatus_UNAVAILABLE :: ChangeSetHooksStatus +pattern ChangeSetHooksStatus_UNAVAILABLE = ChangeSetHooksStatus' "UNAVAILABLE" + +{-# COMPLETE + ChangeSetHooksStatus_PLANNED, + ChangeSetHooksStatus_PLANNING, + ChangeSetHooksStatus_UNAVAILABLE, + ChangeSetHooksStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetStatus.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetStatus.hs @@ -0,0 +1,101 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetStatus + ( ChangeSetStatus + ( .., + ChangeSetStatus_CREATE_COMPLETE, + ChangeSetStatus_CREATE_IN_PROGRESS, + ChangeSetStatus_CREATE_PENDING, + ChangeSetStatus_DELETE_COMPLETE, + ChangeSetStatus_DELETE_FAILED, + ChangeSetStatus_DELETE_IN_PROGRESS, + ChangeSetStatus_DELETE_PENDING, + ChangeSetStatus_FAILED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChangeSetStatus = ChangeSetStatus' + { fromChangeSetStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ChangeSetStatus_CREATE_COMPLETE :: ChangeSetStatus +pattern ChangeSetStatus_CREATE_COMPLETE = ChangeSetStatus' "CREATE_COMPLETE" + +pattern ChangeSetStatus_CREATE_IN_PROGRESS :: ChangeSetStatus +pattern ChangeSetStatus_CREATE_IN_PROGRESS = ChangeSetStatus' "CREATE_IN_PROGRESS" + +pattern ChangeSetStatus_CREATE_PENDING :: ChangeSetStatus +pattern ChangeSetStatus_CREATE_PENDING = ChangeSetStatus' "CREATE_PENDING" + +pattern ChangeSetStatus_DELETE_COMPLETE :: ChangeSetStatus +pattern ChangeSetStatus_DELETE_COMPLETE = ChangeSetStatus' "DELETE_COMPLETE" + +pattern ChangeSetStatus_DELETE_FAILED :: ChangeSetStatus +pattern ChangeSetStatus_DELETE_FAILED = ChangeSetStatus' "DELETE_FAILED" + +pattern ChangeSetStatus_DELETE_IN_PROGRESS :: ChangeSetStatus +pattern ChangeSetStatus_DELETE_IN_PROGRESS = ChangeSetStatus' "DELETE_IN_PROGRESS" + +pattern ChangeSetStatus_DELETE_PENDING :: ChangeSetStatus +pattern ChangeSetStatus_DELETE_PENDING = ChangeSetStatus' "DELETE_PENDING" + +pattern ChangeSetStatus_FAILED :: ChangeSetStatus +pattern ChangeSetStatus_FAILED = ChangeSetStatus' "FAILED" + +{-# COMPLETE + ChangeSetStatus_CREATE_COMPLETE, + ChangeSetStatus_CREATE_IN_PROGRESS, + ChangeSetStatus_CREATE_PENDING, + ChangeSetStatus_DELETE_COMPLETE, + ChangeSetStatus_DELETE_FAILED, + ChangeSetStatus_DELETE_IN_PROGRESS, + ChangeSetStatus_DELETE_PENDING, + ChangeSetStatus_FAILED, + ChangeSetStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetSummary.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetSummary.hs @@ -0,0 +1,224 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetSummary where + +import Amazonka.CloudFormation.Types.ChangeSetStatus +import Amazonka.CloudFormation.Types.ExecutionStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The @ChangeSetSummary@ structure describes a change set, its status, and +-- the stack with which it\'s associated. +-- +-- /See:/ 'newChangeSetSummary' smart constructor. +data ChangeSetSummary = ChangeSetSummary' + { -- | The ID of the change set. + changeSetId :: Prelude.Maybe Prelude.Text, + -- | The name of the change set. + changeSetName :: Prelude.Maybe Prelude.Text, + -- | The start time when the change set was created, in UTC. + creationTime :: Prelude.Maybe Data.ISO8601, + -- | Descriptive information about the change set. + description :: Prelude.Maybe Prelude.Text, + -- | If the change set execution status is @AVAILABLE@, you can execute the + -- change set. If you can\'t execute the change set, the status indicates + -- why. For example, a change set might be in an @UNAVAILABLE@ state + -- because CloudFormation is still creating it or in an @OBSOLETE@ state + -- because the stack was already updated. + executionStatus :: Prelude.Maybe ExecutionStatus, + -- | Specifies the current setting of @IncludeNestedStacks@ for the change + -- set. + includeNestedStacks :: Prelude.Maybe Prelude.Bool, + -- | The parent change set ID. + parentChangeSetId :: Prelude.Maybe Prelude.Text, + -- | The root change set ID. + rootChangeSetId :: Prelude.Maybe Prelude.Text, + -- | The ID of the stack with which the change set is associated. + stackId :: Prelude.Maybe Prelude.Text, + -- | The name of the stack with which the change set is associated. + stackName :: Prelude.Maybe Prelude.Text, + -- | The state of the change set, such as @CREATE_IN_PROGRESS@, + -- @CREATE_COMPLETE@, or @FAILED@. + status :: Prelude.Maybe ChangeSetStatus, + -- | A description of the change set\'s status. For example, if your change + -- set is in the @FAILED@ state, CloudFormation shows the error message. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChangeSetSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'changeSetId', 'changeSetSummary_changeSetId' - The ID of the change set. +-- +-- 'changeSetName', 'changeSetSummary_changeSetName' - The name of the change set. +-- +-- 'creationTime', 'changeSetSummary_creationTime' - The start time when the change set was created, in UTC. +-- +-- 'description', 'changeSetSummary_description' - Descriptive information about the change set. +-- +-- 'executionStatus', 'changeSetSummary_executionStatus' - If the change set execution status is @AVAILABLE@, you can execute the +-- change set. If you can\'t execute the change set, the status indicates +-- why. For example, a change set might be in an @UNAVAILABLE@ state +-- because CloudFormation is still creating it or in an @OBSOLETE@ state +-- because the stack was already updated. +-- +-- 'includeNestedStacks', 'changeSetSummary_includeNestedStacks' - Specifies the current setting of @IncludeNestedStacks@ for the change +-- set. +-- +-- 'parentChangeSetId', 'changeSetSummary_parentChangeSetId' - The parent change set ID. +-- +-- 'rootChangeSetId', 'changeSetSummary_rootChangeSetId' - The root change set ID. +-- +-- 'stackId', 'changeSetSummary_stackId' - The ID of the stack with which the change set is associated. +-- +-- 'stackName', 'changeSetSummary_stackName' - The name of the stack with which the change set is associated. +-- +-- 'status', 'changeSetSummary_status' - The state of the change set, such as @CREATE_IN_PROGRESS@, +-- @CREATE_COMPLETE@, or @FAILED@. +-- +-- 'statusReason', 'changeSetSummary_statusReason' - A description of the change set\'s status. For example, if your change +-- set is in the @FAILED@ state, CloudFormation shows the error message. +newChangeSetSummary :: + ChangeSetSummary +newChangeSetSummary = + ChangeSetSummary' + { changeSetId = Prelude.Nothing, + changeSetName = Prelude.Nothing, + creationTime = Prelude.Nothing, + description = Prelude.Nothing, + executionStatus = Prelude.Nothing, + includeNestedStacks = Prelude.Nothing, + parentChangeSetId = Prelude.Nothing, + rootChangeSetId = Prelude.Nothing, + stackId = Prelude.Nothing, + stackName = Prelude.Nothing, + status = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | The ID of the change set. +changeSetSummary_changeSetId :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_changeSetId = Lens.lens (\ChangeSetSummary' {changeSetId} -> changeSetId) (\s@ChangeSetSummary' {} a -> s {changeSetId = a} :: ChangeSetSummary) + +-- | The name of the change set. +changeSetSummary_changeSetName :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_changeSetName = Lens.lens (\ChangeSetSummary' {changeSetName} -> changeSetName) (\s@ChangeSetSummary' {} a -> s {changeSetName = a} :: ChangeSetSummary) + +-- | The start time when the change set was created, in UTC. +changeSetSummary_creationTime :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.UTCTime) +changeSetSummary_creationTime = Lens.lens (\ChangeSetSummary' {creationTime} -> creationTime) (\s@ChangeSetSummary' {} a -> s {creationTime = a} :: ChangeSetSummary) Prelude.. Lens.mapping Data._Time + +-- | Descriptive information about the change set. +changeSetSummary_description :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_description = Lens.lens (\ChangeSetSummary' {description} -> description) (\s@ChangeSetSummary' {} a -> s {description = a} :: ChangeSetSummary) + +-- | If the change set execution status is @AVAILABLE@, you can execute the +-- change set. If you can\'t execute the change set, the status indicates +-- why. For example, a change set might be in an @UNAVAILABLE@ state +-- because CloudFormation is still creating it or in an @OBSOLETE@ state +-- because the stack was already updated. +changeSetSummary_executionStatus :: Lens.Lens' ChangeSetSummary (Prelude.Maybe ExecutionStatus) +changeSetSummary_executionStatus = Lens.lens (\ChangeSetSummary' {executionStatus} -> executionStatus) (\s@ChangeSetSummary' {} a -> s {executionStatus = a} :: ChangeSetSummary) + +-- | Specifies the current setting of @IncludeNestedStacks@ for the change +-- set. +changeSetSummary_includeNestedStacks :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Bool) +changeSetSummary_includeNestedStacks = Lens.lens (\ChangeSetSummary' {includeNestedStacks} -> includeNestedStacks) (\s@ChangeSetSummary' {} a -> s {includeNestedStacks = a} :: ChangeSetSummary) + +-- | The parent change set ID. +changeSetSummary_parentChangeSetId :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_parentChangeSetId = Lens.lens (\ChangeSetSummary' {parentChangeSetId} -> parentChangeSetId) (\s@ChangeSetSummary' {} a -> s {parentChangeSetId = a} :: ChangeSetSummary) + +-- | The root change set ID. +changeSetSummary_rootChangeSetId :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_rootChangeSetId = Lens.lens (\ChangeSetSummary' {rootChangeSetId} -> rootChangeSetId) (\s@ChangeSetSummary' {} a -> s {rootChangeSetId = a} :: ChangeSetSummary) + +-- | The ID of the stack with which the change set is associated. +changeSetSummary_stackId :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_stackId = Lens.lens (\ChangeSetSummary' {stackId} -> stackId) (\s@ChangeSetSummary' {} a -> s {stackId = a} :: ChangeSetSummary) + +-- | The name of the stack with which the change set is associated. +changeSetSummary_stackName :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_stackName = Lens.lens (\ChangeSetSummary' {stackName} -> stackName) (\s@ChangeSetSummary' {} a -> s {stackName = a} :: ChangeSetSummary) + +-- | The state of the change set, such as @CREATE_IN_PROGRESS@, +-- @CREATE_COMPLETE@, or @FAILED@. +changeSetSummary_status :: Lens.Lens' ChangeSetSummary (Prelude.Maybe ChangeSetStatus) +changeSetSummary_status = Lens.lens (\ChangeSetSummary' {status} -> status) (\s@ChangeSetSummary' {} a -> s {status = a} :: ChangeSetSummary) + +-- | A description of the change set\'s status. For example, if your change +-- set is in the @FAILED@ state, CloudFormation shows the error message. +changeSetSummary_statusReason :: Lens.Lens' ChangeSetSummary (Prelude.Maybe Prelude.Text) +changeSetSummary_statusReason = Lens.lens (\ChangeSetSummary' {statusReason} -> statusReason) (\s@ChangeSetSummary' {} a -> s {statusReason = a} :: ChangeSetSummary) + +instance Data.FromXML ChangeSetSummary where + parseXML x = + ChangeSetSummary' + Prelude.<$> (x Data..@? "ChangeSetId") + Prelude.<*> (x Data..@? "ChangeSetName") + Prelude.<*> (x Data..@? "CreationTime") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "ExecutionStatus") + Prelude.<*> (x Data..@? "IncludeNestedStacks") + Prelude.<*> (x Data..@? "ParentChangeSetId") + Prelude.<*> (x Data..@? "RootChangeSetId") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackName") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusReason") + +instance Prelude.Hashable ChangeSetSummary where + hashWithSalt _salt ChangeSetSummary' {..} = + _salt + `Prelude.hashWithSalt` changeSetId + `Prelude.hashWithSalt` changeSetName + `Prelude.hashWithSalt` creationTime + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` executionStatus + `Prelude.hashWithSalt` includeNestedStacks + `Prelude.hashWithSalt` parentChangeSetId + `Prelude.hashWithSalt` rootChangeSetId + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusReason + +instance Prelude.NFData ChangeSetSummary where + rnf ChangeSetSummary' {..} = + Prelude.rnf changeSetId + `Prelude.seq` Prelude.rnf changeSetName + `Prelude.seq` Prelude.rnf creationTime + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf executionStatus + `Prelude.seq` Prelude.rnf includeNestedStacks + `Prelude.seq` Prelude.rnf parentChangeSetId + `Prelude.seq` Prelude.rnf rootChangeSetId + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSetType.hs b/gen/Amazonka/CloudFormation/Types/ChangeSetType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSetType.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSetType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSetType + ( ChangeSetType + ( .., + ChangeSetType_CREATE, + ChangeSetType_IMPORT, + ChangeSetType_UPDATE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChangeSetType = ChangeSetType' + { fromChangeSetType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ChangeSetType_CREATE :: ChangeSetType +pattern ChangeSetType_CREATE = ChangeSetType' "CREATE" + +pattern ChangeSetType_IMPORT :: ChangeSetType +pattern ChangeSetType_IMPORT = ChangeSetType' "IMPORT" + +pattern ChangeSetType_UPDATE :: ChangeSetType +pattern ChangeSetType_UPDATE = ChangeSetType' "UPDATE" + +{-# COMPLETE + ChangeSetType_CREATE, + ChangeSetType_IMPORT, + ChangeSetType_UPDATE, + ChangeSetType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ChangeSource.hs b/gen/Amazonka/CloudFormation/Types/ChangeSource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeSource.hs @@ -0,0 +1,86 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeSource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeSource + ( ChangeSource + ( .., + ChangeSource_Automatic, + ChangeSource_DirectModification, + ChangeSource_ParameterReference, + ChangeSource_ResourceAttribute, + ChangeSource_ResourceReference + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChangeSource = ChangeSource' + { fromChangeSource :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ChangeSource_Automatic :: ChangeSource +pattern ChangeSource_Automatic = ChangeSource' "Automatic" + +pattern ChangeSource_DirectModification :: ChangeSource +pattern ChangeSource_DirectModification = ChangeSource' "DirectModification" + +pattern ChangeSource_ParameterReference :: ChangeSource +pattern ChangeSource_ParameterReference = ChangeSource' "ParameterReference" + +pattern ChangeSource_ResourceAttribute :: ChangeSource +pattern ChangeSource_ResourceAttribute = ChangeSource' "ResourceAttribute" + +pattern ChangeSource_ResourceReference :: ChangeSource +pattern ChangeSource_ResourceReference = ChangeSource' "ResourceReference" + +{-# COMPLETE + ChangeSource_Automatic, + ChangeSource_DirectModification, + ChangeSource_ParameterReference, + ChangeSource_ResourceAttribute, + ChangeSource_ResourceReference, + ChangeSource' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ChangeType.hs b/gen/Amazonka/CloudFormation/Types/ChangeType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ChangeType.hs @@ -0,0 +1,66 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ChangeType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ChangeType + ( ChangeType + ( .., + ChangeType_Resource + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChangeType = ChangeType' + { fromChangeType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ChangeType_Resource :: ChangeType +pattern ChangeType_Resource = ChangeType' "Resource" + +{-# COMPLETE + ChangeType_Resource, + ChangeType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/DeploymentTargets.hs b/gen/Amazonka/CloudFormation/Types/DeploymentTargets.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/DeploymentTargets.hs @@ -0,0 +1,205 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.DeploymentTargets +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.DeploymentTargets where + +import Amazonka.CloudFormation.Types.AccountFilterType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | [Service-managed permissions] The Organizations accounts to which +-- StackSets deploys. StackSets doesn\'t deploy stack instances to the +-- organization management account, even if the organization management +-- account is in your organization or in an OU in your organization. +-- +-- For update operations, you can specify either @Accounts@ or +-- @OrganizationalUnitIds@. For create and delete operations, specify +-- @OrganizationalUnitIds@. +-- +-- /See:/ 'newDeploymentTargets' smart constructor. +data DeploymentTargets = DeploymentTargets' + { -- | Limit deployment targets to individual accounts or include additional + -- accounts with provided OUs. + -- + -- The following is a list of possible values for the @AccountFilterType@ + -- operation. + -- + -- - @INTERSECTION@: StackSets deploys to the accounts specified in + -- @Accounts@ parameter. + -- + -- - @DIFFERENCE@: StackSets excludes the accounts specified in + -- @Accounts@ parameter. This enables user to avoid certain accounts + -- within an OU such as suspended accounts. + -- + -- - @UNION@: StackSets includes additional accounts deployment targets. + -- + -- This is the default value if @AccountFilterType@ is not provided. + -- This enables user to update an entire OU and individual accounts + -- from a different OU in one request, which used to be two separate + -- requests. + -- + -- - @NONE@: Deploys to all the accounts in specified organizational + -- units (OU). + accountFilterType :: Prelude.Maybe AccountFilterType, + -- | The names of one or more Amazon Web Services accounts for which you want + -- to deploy stack set updates. + accounts :: Prelude.Maybe [Prelude.Text], + -- | Returns the value of the @AccountsUrl@ property. + accountsUrl :: Prelude.Maybe Prelude.Text, + -- | The organization root ID or organizational unit (OU) IDs to which + -- StackSets deploys. + organizationalUnitIds :: Prelude.Maybe [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeploymentTargets' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'accountFilterType', 'deploymentTargets_accountFilterType' - Limit deployment targets to individual accounts or include additional +-- accounts with provided OUs. +-- +-- The following is a list of possible values for the @AccountFilterType@ +-- operation. +-- +-- - @INTERSECTION@: StackSets deploys to the accounts specified in +-- @Accounts@ parameter. +-- +-- - @DIFFERENCE@: StackSets excludes the accounts specified in +-- @Accounts@ parameter. This enables user to avoid certain accounts +-- within an OU such as suspended accounts. +-- +-- - @UNION@: StackSets includes additional accounts deployment targets. +-- +-- This is the default value if @AccountFilterType@ is not provided. +-- This enables user to update an entire OU and individual accounts +-- from a different OU in one request, which used to be two separate +-- requests. +-- +-- - @NONE@: Deploys to all the accounts in specified organizational +-- units (OU). +-- +-- 'accounts', 'deploymentTargets_accounts' - The names of one or more Amazon Web Services accounts for which you want +-- to deploy stack set updates. +-- +-- 'accountsUrl', 'deploymentTargets_accountsUrl' - Returns the value of the @AccountsUrl@ property. +-- +-- 'organizationalUnitIds', 'deploymentTargets_organizationalUnitIds' - The organization root ID or organizational unit (OU) IDs to which +-- StackSets deploys. +newDeploymentTargets :: + DeploymentTargets +newDeploymentTargets = + DeploymentTargets' + { accountFilterType = + Prelude.Nothing, + accounts = Prelude.Nothing, + accountsUrl = Prelude.Nothing, + organizationalUnitIds = Prelude.Nothing + } + +-- | Limit deployment targets to individual accounts or include additional +-- accounts with provided OUs. +-- +-- The following is a list of possible values for the @AccountFilterType@ +-- operation. +-- +-- - @INTERSECTION@: StackSets deploys to the accounts specified in +-- @Accounts@ parameter. +-- +-- - @DIFFERENCE@: StackSets excludes the accounts specified in +-- @Accounts@ parameter. This enables user to avoid certain accounts +-- within an OU such as suspended accounts. +-- +-- - @UNION@: StackSets includes additional accounts deployment targets. +-- +-- This is the default value if @AccountFilterType@ is not provided. +-- This enables user to update an entire OU and individual accounts +-- from a different OU in one request, which used to be two separate +-- requests. +-- +-- - @NONE@: Deploys to all the accounts in specified organizational +-- units (OU). +deploymentTargets_accountFilterType :: Lens.Lens' DeploymentTargets (Prelude.Maybe AccountFilterType) +deploymentTargets_accountFilterType = Lens.lens (\DeploymentTargets' {accountFilterType} -> accountFilterType) (\s@DeploymentTargets' {} a -> s {accountFilterType = a} :: DeploymentTargets) + +-- | The names of one or more Amazon Web Services accounts for which you want +-- to deploy stack set updates. +deploymentTargets_accounts :: Lens.Lens' DeploymentTargets (Prelude.Maybe [Prelude.Text]) +deploymentTargets_accounts = Lens.lens (\DeploymentTargets' {accounts} -> accounts) (\s@DeploymentTargets' {} a -> s {accounts = a} :: DeploymentTargets) Prelude.. Lens.mapping Lens.coerced + +-- | Returns the value of the @AccountsUrl@ property. +deploymentTargets_accountsUrl :: Lens.Lens' DeploymentTargets (Prelude.Maybe Prelude.Text) +deploymentTargets_accountsUrl = Lens.lens (\DeploymentTargets' {accountsUrl} -> accountsUrl) (\s@DeploymentTargets' {} a -> s {accountsUrl = a} :: DeploymentTargets) + +-- | The organization root ID or organizational unit (OU) IDs to which +-- StackSets deploys. +deploymentTargets_organizationalUnitIds :: Lens.Lens' DeploymentTargets (Prelude.Maybe [Prelude.Text]) +deploymentTargets_organizationalUnitIds = Lens.lens (\DeploymentTargets' {organizationalUnitIds} -> organizationalUnitIds) (\s@DeploymentTargets' {} a -> s {organizationalUnitIds = a} :: DeploymentTargets) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromXML DeploymentTargets where + parseXML x = + DeploymentTargets' + Prelude.<$> (x Data..@? "AccountFilterType") + Prelude.<*> ( x + Data..@? "Accounts" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "AccountsUrl") + Prelude.<*> ( x + Data..@? "OrganizationalUnitIds" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + +instance Prelude.Hashable DeploymentTargets where + hashWithSalt _salt DeploymentTargets' {..} = + _salt + `Prelude.hashWithSalt` accountFilterType + `Prelude.hashWithSalt` accounts + `Prelude.hashWithSalt` accountsUrl + `Prelude.hashWithSalt` organizationalUnitIds + +instance Prelude.NFData DeploymentTargets where + rnf DeploymentTargets' {..} = + Prelude.rnf accountFilterType + `Prelude.seq` Prelude.rnf accounts + `Prelude.seq` Prelude.rnf accountsUrl + `Prelude.seq` Prelude.rnf organizationalUnitIds + +instance Data.ToQuery DeploymentTargets where + toQuery DeploymentTargets' {..} = + Prelude.mconcat + [ "AccountFilterType" Data.=: accountFilterType, + "Accounts" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> accounts), + "AccountsUrl" Data.=: accountsUrl, + "OrganizationalUnitIds" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> organizationalUnitIds + ) + ] diff --git a/gen/Amazonka/CloudFormation/Types/DeprecatedStatus.hs b/gen/Amazonka/CloudFormation/Types/DeprecatedStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/DeprecatedStatus.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.DeprecatedStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.DeprecatedStatus + ( DeprecatedStatus + ( .., + DeprecatedStatus_DEPRECATED, + DeprecatedStatus_LIVE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype DeprecatedStatus = DeprecatedStatus' + { fromDeprecatedStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern DeprecatedStatus_DEPRECATED :: DeprecatedStatus +pattern DeprecatedStatus_DEPRECATED = DeprecatedStatus' "DEPRECATED" + +pattern DeprecatedStatus_LIVE :: DeprecatedStatus +pattern DeprecatedStatus_LIVE = DeprecatedStatus' "LIVE" + +{-# COMPLETE + DeprecatedStatus_DEPRECATED, + DeprecatedStatus_LIVE, + DeprecatedStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/DifferenceType.hs b/gen/Amazonka/CloudFormation/Types/DifferenceType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/DifferenceType.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.DifferenceType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.DifferenceType + ( DifferenceType + ( .., + DifferenceType_ADD, + DifferenceType_NOT_EQUAL, + DifferenceType_REMOVE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype DifferenceType = DifferenceType' + { fromDifferenceType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern DifferenceType_ADD :: DifferenceType +pattern DifferenceType_ADD = DifferenceType' "ADD" + +pattern DifferenceType_NOT_EQUAL :: DifferenceType +pattern DifferenceType_NOT_EQUAL = DifferenceType' "NOT_EQUAL" + +pattern DifferenceType_REMOVE :: DifferenceType +pattern DifferenceType_REMOVE = DifferenceType' "REMOVE" + +{-# COMPLETE + DifferenceType_ADD, + DifferenceType_NOT_EQUAL, + DifferenceType_REMOVE, + DifferenceType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/EvaluationType.hs b/gen/Amazonka/CloudFormation/Types/EvaluationType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/EvaluationType.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.EvaluationType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.EvaluationType + ( EvaluationType + ( .., + EvaluationType_Dynamic, + EvaluationType_Static + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype EvaluationType = EvaluationType' + { fromEvaluationType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern EvaluationType_Dynamic :: EvaluationType +pattern EvaluationType_Dynamic = EvaluationType' "Dynamic" + +pattern EvaluationType_Static :: EvaluationType +pattern EvaluationType_Static = EvaluationType' "Static" + +{-# COMPLETE + EvaluationType_Dynamic, + EvaluationType_Static, + EvaluationType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ExecutionStatus.hs b/gen/Amazonka/CloudFormation/Types/ExecutionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ExecutionStatus.hs @@ -0,0 +1,91 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ExecutionStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ExecutionStatus + ( ExecutionStatus + ( .., + ExecutionStatus_AVAILABLE, + ExecutionStatus_EXECUTE_COMPLETE, + ExecutionStatus_EXECUTE_FAILED, + ExecutionStatus_EXECUTE_IN_PROGRESS, + ExecutionStatus_OBSOLETE, + ExecutionStatus_UNAVAILABLE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ExecutionStatus = ExecutionStatus' + { fromExecutionStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ExecutionStatus_AVAILABLE :: ExecutionStatus +pattern ExecutionStatus_AVAILABLE = ExecutionStatus' "AVAILABLE" + +pattern ExecutionStatus_EXECUTE_COMPLETE :: ExecutionStatus +pattern ExecutionStatus_EXECUTE_COMPLETE = ExecutionStatus' "EXECUTE_COMPLETE" + +pattern ExecutionStatus_EXECUTE_FAILED :: ExecutionStatus +pattern ExecutionStatus_EXECUTE_FAILED = ExecutionStatus' "EXECUTE_FAILED" + +pattern ExecutionStatus_EXECUTE_IN_PROGRESS :: ExecutionStatus +pattern ExecutionStatus_EXECUTE_IN_PROGRESS = ExecutionStatus' "EXECUTE_IN_PROGRESS" + +pattern ExecutionStatus_OBSOLETE :: ExecutionStatus +pattern ExecutionStatus_OBSOLETE = ExecutionStatus' "OBSOLETE" + +pattern ExecutionStatus_UNAVAILABLE :: ExecutionStatus +pattern ExecutionStatus_UNAVAILABLE = ExecutionStatus' "UNAVAILABLE" + +{-# COMPLETE + ExecutionStatus_AVAILABLE, + ExecutionStatus_EXECUTE_COMPLETE, + ExecutionStatus_EXECUTE_FAILED, + ExecutionStatus_EXECUTE_IN_PROGRESS, + ExecutionStatus_OBSOLETE, + ExecutionStatus_UNAVAILABLE, + ExecutionStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Export.hs b/gen/Amazonka/CloudFormation/Types/Export.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Export.hs @@ -0,0 +1,107 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Export +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Export where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The @Export@ structure describes the exported output values for a stack. +-- +-- /See:/ 'newExport' smart constructor. +data Export = Export' + { -- | The stack that contains the exported output name and value. + exportingStackId :: Prelude.Maybe Prelude.Text, + -- | The name of exported output value. Use this name and the + -- @Fn::ImportValue@ function to import the associated value into other + -- stacks. The name is defined in the @Export@ field in the associated + -- stack\'s @Outputs@ section. + name :: Prelude.Maybe Prelude.Text, + -- | The value of the exported output, such as a resource physical ID. This + -- value is defined in the @Export@ field in the associated stack\'s + -- @Outputs@ section. + value :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Export' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'exportingStackId', 'export_exportingStackId' - The stack that contains the exported output name and value. +-- +-- 'name', 'export_name' - The name of exported output value. Use this name and the +-- @Fn::ImportValue@ function to import the associated value into other +-- stacks. The name is defined in the @Export@ field in the associated +-- stack\'s @Outputs@ section. +-- +-- 'value', 'export_value' - The value of the exported output, such as a resource physical ID. This +-- value is defined in the @Export@ field in the associated stack\'s +-- @Outputs@ section. +newExport :: + Export +newExport = + Export' + { exportingStackId = Prelude.Nothing, + name = Prelude.Nothing, + value = Prelude.Nothing + } + +-- | The stack that contains the exported output name and value. +export_exportingStackId :: Lens.Lens' Export (Prelude.Maybe Prelude.Text) +export_exportingStackId = Lens.lens (\Export' {exportingStackId} -> exportingStackId) (\s@Export' {} a -> s {exportingStackId = a} :: Export) + +-- | The name of exported output value. Use this name and the +-- @Fn::ImportValue@ function to import the associated value into other +-- stacks. The name is defined in the @Export@ field in the associated +-- stack\'s @Outputs@ section. +export_name :: Lens.Lens' Export (Prelude.Maybe Prelude.Text) +export_name = Lens.lens (\Export' {name} -> name) (\s@Export' {} a -> s {name = a} :: Export) + +-- | The value of the exported output, such as a resource physical ID. This +-- value is defined in the @Export@ field in the associated stack\'s +-- @Outputs@ section. +export_value :: Lens.Lens' Export (Prelude.Maybe Prelude.Text) +export_value = Lens.lens (\Export' {value} -> value) (\s@Export' {} a -> s {value = a} :: Export) + +instance Data.FromXML Export where + parseXML x = + Export' + Prelude.<$> (x Data..@? "ExportingStackId") + Prelude.<*> (x Data..@? "Name") + Prelude.<*> (x Data..@? "Value") + +instance Prelude.Hashable Export where + hashWithSalt _salt Export' {..} = + _salt + `Prelude.hashWithSalt` exportingStackId + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` value + +instance Prelude.NFData Export where + rnf Export' {..} = + Prelude.rnf exportingStackId + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf value diff --git a/gen/Amazonka/CloudFormation/Types/HandlerErrorCode.hs b/gen/Amazonka/CloudFormation/Types/HandlerErrorCode.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/HandlerErrorCode.hs @@ -0,0 +1,156 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.HandlerErrorCode +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.HandlerErrorCode + ( HandlerErrorCode + ( .., + HandlerErrorCode_AccessDenied, + HandlerErrorCode_AlreadyExists, + HandlerErrorCode_GeneralServiceException, + HandlerErrorCode_HandlerInternalFailure, + HandlerErrorCode_InternalFailure, + HandlerErrorCode_InvalidCredentials, + HandlerErrorCode_InvalidRequest, + HandlerErrorCode_InvalidTypeConfiguration, + HandlerErrorCode_NetworkFailure, + HandlerErrorCode_NonCompliant, + HandlerErrorCode_NotFound, + HandlerErrorCode_NotStabilized, + HandlerErrorCode_NotUpdatable, + HandlerErrorCode_ResourceConflict, + HandlerErrorCode_ServiceInternalError, + HandlerErrorCode_ServiceLimitExceeded, + HandlerErrorCode_Throttling, + HandlerErrorCode_Unknown, + HandlerErrorCode_UnsupportedTarget + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype HandlerErrorCode = HandlerErrorCode' + { fromHandlerErrorCode :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern HandlerErrorCode_AccessDenied :: HandlerErrorCode +pattern HandlerErrorCode_AccessDenied = HandlerErrorCode' "AccessDenied" + +pattern HandlerErrorCode_AlreadyExists :: HandlerErrorCode +pattern HandlerErrorCode_AlreadyExists = HandlerErrorCode' "AlreadyExists" + +pattern HandlerErrorCode_GeneralServiceException :: HandlerErrorCode +pattern HandlerErrorCode_GeneralServiceException = HandlerErrorCode' "GeneralServiceException" + +pattern HandlerErrorCode_HandlerInternalFailure :: HandlerErrorCode +pattern HandlerErrorCode_HandlerInternalFailure = HandlerErrorCode' "HandlerInternalFailure" + +pattern HandlerErrorCode_InternalFailure :: HandlerErrorCode +pattern HandlerErrorCode_InternalFailure = HandlerErrorCode' "InternalFailure" + +pattern HandlerErrorCode_InvalidCredentials :: HandlerErrorCode +pattern HandlerErrorCode_InvalidCredentials = HandlerErrorCode' "InvalidCredentials" + +pattern HandlerErrorCode_InvalidRequest :: HandlerErrorCode +pattern HandlerErrorCode_InvalidRequest = HandlerErrorCode' "InvalidRequest" + +pattern HandlerErrorCode_InvalidTypeConfiguration :: HandlerErrorCode +pattern HandlerErrorCode_InvalidTypeConfiguration = HandlerErrorCode' "InvalidTypeConfiguration" + +pattern HandlerErrorCode_NetworkFailure :: HandlerErrorCode +pattern HandlerErrorCode_NetworkFailure = HandlerErrorCode' "NetworkFailure" + +pattern HandlerErrorCode_NonCompliant :: HandlerErrorCode +pattern HandlerErrorCode_NonCompliant = HandlerErrorCode' "NonCompliant" + +pattern HandlerErrorCode_NotFound :: HandlerErrorCode +pattern HandlerErrorCode_NotFound = HandlerErrorCode' "NotFound" + +pattern HandlerErrorCode_NotStabilized :: HandlerErrorCode +pattern HandlerErrorCode_NotStabilized = HandlerErrorCode' "NotStabilized" + +pattern HandlerErrorCode_NotUpdatable :: HandlerErrorCode +pattern HandlerErrorCode_NotUpdatable = HandlerErrorCode' "NotUpdatable" + +pattern HandlerErrorCode_ResourceConflict :: HandlerErrorCode +pattern HandlerErrorCode_ResourceConflict = HandlerErrorCode' "ResourceConflict" + +pattern HandlerErrorCode_ServiceInternalError :: HandlerErrorCode +pattern HandlerErrorCode_ServiceInternalError = HandlerErrorCode' "ServiceInternalError" + +pattern HandlerErrorCode_ServiceLimitExceeded :: HandlerErrorCode +pattern HandlerErrorCode_ServiceLimitExceeded = HandlerErrorCode' "ServiceLimitExceeded" + +pattern HandlerErrorCode_Throttling :: HandlerErrorCode +pattern HandlerErrorCode_Throttling = HandlerErrorCode' "Throttling" + +pattern HandlerErrorCode_Unknown :: HandlerErrorCode +pattern HandlerErrorCode_Unknown = HandlerErrorCode' "Unknown" + +pattern HandlerErrorCode_UnsupportedTarget :: HandlerErrorCode +pattern HandlerErrorCode_UnsupportedTarget = HandlerErrorCode' "UnsupportedTarget" + +{-# COMPLETE + HandlerErrorCode_AccessDenied, + HandlerErrorCode_AlreadyExists, + HandlerErrorCode_GeneralServiceException, + HandlerErrorCode_HandlerInternalFailure, + HandlerErrorCode_InternalFailure, + HandlerErrorCode_InvalidCredentials, + HandlerErrorCode_InvalidRequest, + HandlerErrorCode_InvalidTypeConfiguration, + HandlerErrorCode_NetworkFailure, + HandlerErrorCode_NonCompliant, + HandlerErrorCode_NotFound, + HandlerErrorCode_NotStabilized, + HandlerErrorCode_NotUpdatable, + HandlerErrorCode_ResourceConflict, + HandlerErrorCode_ServiceInternalError, + HandlerErrorCode_ServiceLimitExceeded, + HandlerErrorCode_Throttling, + HandlerErrorCode_Unknown, + HandlerErrorCode_UnsupportedTarget, + HandlerErrorCode' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/HookFailureMode.hs b/gen/Amazonka/CloudFormation/Types/HookFailureMode.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/HookFailureMode.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.HookFailureMode +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.HookFailureMode + ( HookFailureMode + ( .., + HookFailureMode_FAIL, + HookFailureMode_WARN + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype HookFailureMode = HookFailureMode' + { fromHookFailureMode :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern HookFailureMode_FAIL :: HookFailureMode +pattern HookFailureMode_FAIL = HookFailureMode' "FAIL" + +pattern HookFailureMode_WARN :: HookFailureMode +pattern HookFailureMode_WARN = HookFailureMode' "WARN" + +{-# COMPLETE + HookFailureMode_FAIL, + HookFailureMode_WARN, + HookFailureMode' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/HookInvocationPoint.hs b/gen/Amazonka/CloudFormation/Types/HookInvocationPoint.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/HookInvocationPoint.hs @@ -0,0 +1,66 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.HookInvocationPoint +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.HookInvocationPoint + ( HookInvocationPoint + ( .., + HookInvocationPoint_PRE_PROVISION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype HookInvocationPoint = HookInvocationPoint' + { fromHookInvocationPoint :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern HookInvocationPoint_PRE_PROVISION :: HookInvocationPoint +pattern HookInvocationPoint_PRE_PROVISION = HookInvocationPoint' "PRE_PROVISION" + +{-# COMPLETE + HookInvocationPoint_PRE_PROVISION, + HookInvocationPoint' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/HookStatus.hs b/gen/Amazonka/CloudFormation/Types/HookStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/HookStatus.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.HookStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.HookStatus + ( HookStatus + ( .., + HookStatus_HOOK_COMPLETE_FAILED, + HookStatus_HOOK_COMPLETE_SUCCEEDED, + HookStatus_HOOK_FAILED, + HookStatus_HOOK_IN_PROGRESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype HookStatus = HookStatus' + { fromHookStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern HookStatus_HOOK_COMPLETE_FAILED :: HookStatus +pattern HookStatus_HOOK_COMPLETE_FAILED = HookStatus' "HOOK_COMPLETE_FAILED" + +pattern HookStatus_HOOK_COMPLETE_SUCCEEDED :: HookStatus +pattern HookStatus_HOOK_COMPLETE_SUCCEEDED = HookStatus' "HOOK_COMPLETE_SUCCEEDED" + +pattern HookStatus_HOOK_FAILED :: HookStatus +pattern HookStatus_HOOK_FAILED = HookStatus' "HOOK_FAILED" + +pattern HookStatus_HOOK_IN_PROGRESS :: HookStatus +pattern HookStatus_HOOK_IN_PROGRESS = HookStatus' "HOOK_IN_PROGRESS" + +{-# COMPLETE + HookStatus_HOOK_COMPLETE_FAILED, + HookStatus_HOOK_COMPLETE_SUCCEEDED, + HookStatus_HOOK_FAILED, + HookStatus_HOOK_IN_PROGRESS, + HookStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/HookTargetType.hs b/gen/Amazonka/CloudFormation/Types/HookTargetType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/HookTargetType.hs @@ -0,0 +1,66 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.HookTargetType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.HookTargetType + ( HookTargetType + ( .., + HookTargetType_RESOURCE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype HookTargetType = HookTargetType' + { fromHookTargetType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern HookTargetType_RESOURCE :: HookTargetType +pattern HookTargetType_RESOURCE = HookTargetType' "RESOURCE" + +{-# COMPLETE + HookTargetType_RESOURCE, + HookTargetType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/IdentityProvider.hs b/gen/Amazonka/CloudFormation/Types/IdentityProvider.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/IdentityProvider.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.IdentityProvider +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.IdentityProvider + ( IdentityProvider + ( .., + IdentityProvider_AWS_Marketplace, + IdentityProvider_Bitbucket, + IdentityProvider_GitHub + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype IdentityProvider = IdentityProvider' + { fromIdentityProvider :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern IdentityProvider_AWS_Marketplace :: IdentityProvider +pattern IdentityProvider_AWS_Marketplace = IdentityProvider' "AWS_Marketplace" + +pattern IdentityProvider_Bitbucket :: IdentityProvider +pattern IdentityProvider_Bitbucket = IdentityProvider' "Bitbucket" + +pattern IdentityProvider_GitHub :: IdentityProvider +pattern IdentityProvider_GitHub = IdentityProvider' "GitHub" + +{-# COMPLETE + IdentityProvider_AWS_Marketplace, + IdentityProvider_Bitbucket, + IdentityProvider_GitHub, + IdentityProvider' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/LoggingConfig.hs b/gen/Amazonka/CloudFormation/Types/LoggingConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/LoggingConfig.hs @@ -0,0 +1,97 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.LoggingConfig +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.LoggingConfig where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains logging configuration information for an extension. +-- +-- /See:/ 'newLoggingConfig' smart constructor. +data LoggingConfig = LoggingConfig' + { -- | The Amazon Resource Name (ARN) of the role that CloudFormation should + -- assume when sending log entries to CloudWatch Logs. + logRoleArn :: Prelude.Text, + -- | The Amazon CloudWatch Logs group to which CloudFormation sends error + -- logging information when invoking the extension\'s handlers. + logGroupName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'LoggingConfig' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logRoleArn', 'loggingConfig_logRoleArn' - The Amazon Resource Name (ARN) of the role that CloudFormation should +-- assume when sending log entries to CloudWatch Logs. +-- +-- 'logGroupName', 'loggingConfig_logGroupName' - The Amazon CloudWatch Logs group to which CloudFormation sends error +-- logging information when invoking the extension\'s handlers. +newLoggingConfig :: + -- | 'logRoleArn' + Prelude.Text -> + -- | 'logGroupName' + Prelude.Text -> + LoggingConfig +newLoggingConfig pLogRoleArn_ pLogGroupName_ = + LoggingConfig' + { logRoleArn = pLogRoleArn_, + logGroupName = pLogGroupName_ + } + +-- | The Amazon Resource Name (ARN) of the role that CloudFormation should +-- assume when sending log entries to CloudWatch Logs. +loggingConfig_logRoleArn :: Lens.Lens' LoggingConfig Prelude.Text +loggingConfig_logRoleArn = Lens.lens (\LoggingConfig' {logRoleArn} -> logRoleArn) (\s@LoggingConfig' {} a -> s {logRoleArn = a} :: LoggingConfig) + +-- | The Amazon CloudWatch Logs group to which CloudFormation sends error +-- logging information when invoking the extension\'s handlers. +loggingConfig_logGroupName :: Lens.Lens' LoggingConfig Prelude.Text +loggingConfig_logGroupName = Lens.lens (\LoggingConfig' {logGroupName} -> logGroupName) (\s@LoggingConfig' {} a -> s {logGroupName = a} :: LoggingConfig) + +instance Data.FromXML LoggingConfig where + parseXML x = + LoggingConfig' + Prelude.<$> (x Data..@ "LogRoleArn") + Prelude.<*> (x Data..@ "LogGroupName") + +instance Prelude.Hashable LoggingConfig where + hashWithSalt _salt LoggingConfig' {..} = + _salt + `Prelude.hashWithSalt` logRoleArn + `Prelude.hashWithSalt` logGroupName + +instance Prelude.NFData LoggingConfig where + rnf LoggingConfig' {..} = + Prelude.rnf logRoleArn + `Prelude.seq` Prelude.rnf logGroupName + +instance Data.ToQuery LoggingConfig where + toQuery LoggingConfig' {..} = + Prelude.mconcat + [ "LogRoleArn" Data.=: logRoleArn, + "LogGroupName" Data.=: logGroupName + ] diff --git a/gen/Amazonka/CloudFormation/Types/ManagedExecution.hs b/gen/Amazonka/CloudFormation/Types/ManagedExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ManagedExecution.hs @@ -0,0 +1,101 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ManagedExecution +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ManagedExecution where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +-- +-- /See:/ 'newManagedExecution' smart constructor. +data ManagedExecution = ManagedExecution' + { -- | When @true@, StackSets performs non-conflicting operations concurrently + -- and queues conflicting operations. After conflicting operations finish, + -- StackSets starts queued operations in request order. + -- + -- If there are already running or queued operations, StackSets queues all + -- incoming operations even if they are non-conflicting. + -- + -- You can\'t modify your stack set\'s execution configuration while there + -- are running or queued operations for that stack set. + -- + -- When @false@ (default), StackSets performs one operation at a time in + -- request order. + active :: Prelude.Maybe Prelude.Bool + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ManagedExecution' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'active', 'managedExecution_active' - When @true@, StackSets performs non-conflicting operations concurrently +-- and queues conflicting operations. After conflicting operations finish, +-- StackSets starts queued operations in request order. +-- +-- If there are already running or queued operations, StackSets queues all +-- incoming operations even if they are non-conflicting. +-- +-- You can\'t modify your stack set\'s execution configuration while there +-- are running or queued operations for that stack set. +-- +-- When @false@ (default), StackSets performs one operation at a time in +-- request order. +newManagedExecution :: + ManagedExecution +newManagedExecution = + ManagedExecution' {active = Prelude.Nothing} + +-- | When @true@, StackSets performs non-conflicting operations concurrently +-- and queues conflicting operations. After conflicting operations finish, +-- StackSets starts queued operations in request order. +-- +-- If there are already running or queued operations, StackSets queues all +-- incoming operations even if they are non-conflicting. +-- +-- You can\'t modify your stack set\'s execution configuration while there +-- are running or queued operations for that stack set. +-- +-- When @false@ (default), StackSets performs one operation at a time in +-- request order. +managedExecution_active :: Lens.Lens' ManagedExecution (Prelude.Maybe Prelude.Bool) +managedExecution_active = Lens.lens (\ManagedExecution' {active} -> active) (\s@ManagedExecution' {} a -> s {active = a} :: ManagedExecution) + +instance Data.FromXML ManagedExecution where + parseXML x = + ManagedExecution' Prelude.<$> (x Data..@? "Active") + +instance Prelude.Hashable ManagedExecution where + hashWithSalt _salt ManagedExecution' {..} = + _salt `Prelude.hashWithSalt` active + +instance Prelude.NFData ManagedExecution where + rnf ManagedExecution' {..} = Prelude.rnf active + +instance Data.ToQuery ManagedExecution where + toQuery ManagedExecution' {..} = + Prelude.mconcat ["Active" Data.=: active] diff --git a/gen/Amazonka/CloudFormation/Types/ModuleInfo.hs b/gen/Amazonka/CloudFormation/Types/ModuleInfo.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ModuleInfo.hs @@ -0,0 +1,143 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ModuleInfo +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ModuleInfo where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +-- +-- For more information about modules, see +-- +-- in the /CloudFormation User Guide/. +-- +-- /See:/ 'newModuleInfo' smart constructor. +data ModuleInfo = ModuleInfo' + { -- | A concatenated list of the logical IDs of the module or modules + -- containing the resource. Modules are listed starting with the inner-most + -- nested module, and separated by @\/@. + -- + -- In the following example, the resource was created from a module, + -- @moduleA@, that\'s nested inside a parent module, @moduleB@. + -- + -- @moduleA\/moduleB@ + -- + -- For more information, see + -- + -- in the /CloudFormation User Guide/. + logicalIdHierarchy :: Prelude.Maybe Prelude.Text, + -- | A concatenated list of the module type or types containing the resource. + -- Module types are listed starting with the inner-most nested module, and + -- separated by @\/@. + -- + -- In the following example, the resource was created from a module of type + -- @AWS::First::Example::MODULE@, that\'s nested inside a parent module of + -- type @AWS::Second::Example::MODULE@. + -- + -- @AWS::First::Example::MODULE\/AWS::Second::Example::MODULE@ + typeHierarchy :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ModuleInfo' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logicalIdHierarchy', 'moduleInfo_logicalIdHierarchy' - A concatenated list of the logical IDs of the module or modules +-- containing the resource. Modules are listed starting with the inner-most +-- nested module, and separated by @\/@. +-- +-- In the following example, the resource was created from a module, +-- @moduleA@, that\'s nested inside a parent module, @moduleB@. +-- +-- @moduleA\/moduleB@ +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'typeHierarchy', 'moduleInfo_typeHierarchy' - A concatenated list of the module type or types containing the resource. +-- Module types are listed starting with the inner-most nested module, and +-- separated by @\/@. +-- +-- In the following example, the resource was created from a module of type +-- @AWS::First::Example::MODULE@, that\'s nested inside a parent module of +-- type @AWS::Second::Example::MODULE@. +-- +-- @AWS::First::Example::MODULE\/AWS::Second::Example::MODULE@ +newModuleInfo :: + ModuleInfo +newModuleInfo = + ModuleInfo' + { logicalIdHierarchy = Prelude.Nothing, + typeHierarchy = Prelude.Nothing + } + +-- | A concatenated list of the logical IDs of the module or modules +-- containing the resource. Modules are listed starting with the inner-most +-- nested module, and separated by @\/@. +-- +-- In the following example, the resource was created from a module, +-- @moduleA@, that\'s nested inside a parent module, @moduleB@. +-- +-- @moduleA\/moduleB@ +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +moduleInfo_logicalIdHierarchy :: Lens.Lens' ModuleInfo (Prelude.Maybe Prelude.Text) +moduleInfo_logicalIdHierarchy = Lens.lens (\ModuleInfo' {logicalIdHierarchy} -> logicalIdHierarchy) (\s@ModuleInfo' {} a -> s {logicalIdHierarchy = a} :: ModuleInfo) + +-- | A concatenated list of the module type or types containing the resource. +-- Module types are listed starting with the inner-most nested module, and +-- separated by @\/@. +-- +-- In the following example, the resource was created from a module of type +-- @AWS::First::Example::MODULE@, that\'s nested inside a parent module of +-- type @AWS::Second::Example::MODULE@. +-- +-- @AWS::First::Example::MODULE\/AWS::Second::Example::MODULE@ +moduleInfo_typeHierarchy :: Lens.Lens' ModuleInfo (Prelude.Maybe Prelude.Text) +moduleInfo_typeHierarchy = Lens.lens (\ModuleInfo' {typeHierarchy} -> typeHierarchy) (\s@ModuleInfo' {} a -> s {typeHierarchy = a} :: ModuleInfo) + +instance Data.FromXML ModuleInfo where + parseXML x = + ModuleInfo' + Prelude.<$> (x Data..@? "LogicalIdHierarchy") + Prelude.<*> (x Data..@? "TypeHierarchy") + +instance Prelude.Hashable ModuleInfo where + hashWithSalt _salt ModuleInfo' {..} = + _salt + `Prelude.hashWithSalt` logicalIdHierarchy + `Prelude.hashWithSalt` typeHierarchy + +instance Prelude.NFData ModuleInfo where + rnf ModuleInfo' {..} = + Prelude.rnf logicalIdHierarchy + `Prelude.seq` Prelude.rnf typeHierarchy diff --git a/gen/Amazonka/CloudFormation/Types/OnFailure.hs b/gen/Amazonka/CloudFormation/Types/OnFailure.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/OnFailure.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.OnFailure +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.OnFailure + ( OnFailure + ( .., + OnFailure_DELETE, + OnFailure_DO_NOTHING, + OnFailure_ROLLBACK + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype OnFailure = OnFailure' + { fromOnFailure :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern OnFailure_DELETE :: OnFailure +pattern OnFailure_DELETE = OnFailure' "DELETE" + +pattern OnFailure_DO_NOTHING :: OnFailure +pattern OnFailure_DO_NOTHING = OnFailure' "DO_NOTHING" + +pattern OnFailure_ROLLBACK :: OnFailure +pattern OnFailure_ROLLBACK = OnFailure' "ROLLBACK" + +{-# COMPLETE + OnFailure_DELETE, + OnFailure_DO_NOTHING, + OnFailure_ROLLBACK, + OnFailure' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/OperationResultFilter.hs b/gen/Amazonka/CloudFormation/Types/OperationResultFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/OperationResultFilter.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.OperationResultFilter +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.OperationResultFilter where + +import Amazonka.CloudFormation.Types.OperationResultFilterName +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The status that operation results are filtered by. +-- +-- /See:/ 'newOperationResultFilter' smart constructor. +data OperationResultFilter = OperationResultFilter' + { -- | The type of filter to apply. + name :: Prelude.Maybe OperationResultFilterName, + -- | The value to filter by. + values :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'OperationResultFilter' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'name', 'operationResultFilter_name' - The type of filter to apply. +-- +-- 'values', 'operationResultFilter_values' - The value to filter by. +newOperationResultFilter :: + OperationResultFilter +newOperationResultFilter = + OperationResultFilter' + { name = Prelude.Nothing, + values = Prelude.Nothing + } + +-- | The type of filter to apply. +operationResultFilter_name :: Lens.Lens' OperationResultFilter (Prelude.Maybe OperationResultFilterName) +operationResultFilter_name = Lens.lens (\OperationResultFilter' {name} -> name) (\s@OperationResultFilter' {} a -> s {name = a} :: OperationResultFilter) + +-- | The value to filter by. +operationResultFilter_values :: Lens.Lens' OperationResultFilter (Prelude.Maybe Prelude.Text) +operationResultFilter_values = Lens.lens (\OperationResultFilter' {values} -> values) (\s@OperationResultFilter' {} a -> s {values = a} :: OperationResultFilter) + +instance Prelude.Hashable OperationResultFilter where + hashWithSalt _salt OperationResultFilter' {..} = + _salt + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` values + +instance Prelude.NFData OperationResultFilter where + rnf OperationResultFilter' {..} = + Prelude.rnf name `Prelude.seq` Prelude.rnf values + +instance Data.ToQuery OperationResultFilter where + toQuery OperationResultFilter' {..} = + Prelude.mconcat + ["Name" Data.=: name, "Values" Data.=: values] diff --git a/gen/Amazonka/CloudFormation/Types/OperationResultFilterName.hs b/gen/Amazonka/CloudFormation/Types/OperationResultFilterName.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/OperationResultFilterName.hs @@ -0,0 +1,66 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.OperationResultFilterName +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.OperationResultFilterName + ( OperationResultFilterName + ( .., + OperationResultFilterName_OPERATION_RESULT_STATUS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype OperationResultFilterName = OperationResultFilterName' + { fromOperationResultFilterName :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern OperationResultFilterName_OPERATION_RESULT_STATUS :: OperationResultFilterName +pattern OperationResultFilterName_OPERATION_RESULT_STATUS = OperationResultFilterName' "OPERATION_RESULT_STATUS" + +{-# COMPLETE + OperationResultFilterName_OPERATION_RESULT_STATUS, + OperationResultFilterName' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/OperationStatus.hs b/gen/Amazonka/CloudFormation/Types/OperationStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/OperationStatus.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.OperationStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.OperationStatus + ( OperationStatus + ( .., + OperationStatus_FAILED, + OperationStatus_IN_PROGRESS, + OperationStatus_PENDING, + OperationStatus_SUCCESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype OperationStatus = OperationStatus' + { fromOperationStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern OperationStatus_FAILED :: OperationStatus +pattern OperationStatus_FAILED = OperationStatus' "FAILED" + +pattern OperationStatus_IN_PROGRESS :: OperationStatus +pattern OperationStatus_IN_PROGRESS = OperationStatus' "IN_PROGRESS" + +pattern OperationStatus_PENDING :: OperationStatus +pattern OperationStatus_PENDING = OperationStatus' "PENDING" + +pattern OperationStatus_SUCCESS :: OperationStatus +pattern OperationStatus_SUCCESS = OperationStatus' "SUCCESS" + +{-# COMPLETE + OperationStatus_FAILED, + OperationStatus_IN_PROGRESS, + OperationStatus_PENDING, + OperationStatus_SUCCESS, + OperationStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Output.hs b/gen/Amazonka/CloudFormation/Types/Output.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Output.hs @@ -0,0 +1,104 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Output +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Output where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The Output data type. +-- +-- /See:/ 'newOutput' smart constructor. +data Output = Output' + { -- | User defined description associated with the output. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the export associated with the output. + exportName :: Prelude.Maybe Prelude.Text, + -- | The key associated with the output. + outputKey :: Prelude.Maybe Prelude.Text, + -- | The value associated with the output. + outputValue :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Output' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'description', 'output_description' - User defined description associated with the output. +-- +-- 'exportName', 'output_exportName' - The name of the export associated with the output. +-- +-- 'outputKey', 'output_outputKey' - The key associated with the output. +-- +-- 'outputValue', 'output_outputValue' - The value associated with the output. +newOutput :: + Output +newOutput = + Output' + { description = Prelude.Nothing, + exportName = Prelude.Nothing, + outputKey = Prelude.Nothing, + outputValue = Prelude.Nothing + } + +-- | User defined description associated with the output. +output_description :: Lens.Lens' Output (Prelude.Maybe Prelude.Text) +output_description = Lens.lens (\Output' {description} -> description) (\s@Output' {} a -> s {description = a} :: Output) + +-- | The name of the export associated with the output. +output_exportName :: Lens.Lens' Output (Prelude.Maybe Prelude.Text) +output_exportName = Lens.lens (\Output' {exportName} -> exportName) (\s@Output' {} a -> s {exportName = a} :: Output) + +-- | The key associated with the output. +output_outputKey :: Lens.Lens' Output (Prelude.Maybe Prelude.Text) +output_outputKey = Lens.lens (\Output' {outputKey} -> outputKey) (\s@Output' {} a -> s {outputKey = a} :: Output) + +-- | The value associated with the output. +output_outputValue :: Lens.Lens' Output (Prelude.Maybe Prelude.Text) +output_outputValue = Lens.lens (\Output' {outputValue} -> outputValue) (\s@Output' {} a -> s {outputValue = a} :: Output) + +instance Data.FromXML Output where + parseXML x = + Output' + Prelude.<$> (x Data..@? "Description") + Prelude.<*> (x Data..@? "ExportName") + Prelude.<*> (x Data..@? "OutputKey") + Prelude.<*> (x Data..@? "OutputValue") + +instance Prelude.Hashable Output where + hashWithSalt _salt Output' {..} = + _salt + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` exportName + `Prelude.hashWithSalt` outputKey + `Prelude.hashWithSalt` outputValue + +instance Prelude.NFData Output where + rnf Output' {..} = + Prelude.rnf description + `Prelude.seq` Prelude.rnf exportName + `Prelude.seq` Prelude.rnf outputKey + `Prelude.seq` Prelude.rnf outputValue diff --git a/gen/Amazonka/CloudFormation/Types/Parameter.hs b/gen/Amazonka/CloudFormation/Types/Parameter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Parameter.hs @@ -0,0 +1,134 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Parameter +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Parameter where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The Parameter data type. +-- +-- /See:/ 'newParameter' smart constructor. +data Parameter = Parameter' + { -- | The key associated with the parameter. If you don\'t specify a key and + -- value for a particular parameter, CloudFormation uses the default value + -- that\'s specified in your template. + parameterKey :: Prelude.Maybe Prelude.Text, + -- | The input value associated with the parameter. + parameterValue :: Prelude.Maybe Prelude.Text, + -- | Read-only. The value that corresponds to a SSM parameter key. This field + -- is returned only for + -- + -- parameter types in the template. + resolvedValue :: Prelude.Maybe Prelude.Text, + -- | During a stack update, use the existing parameter value that the stack + -- is using for a given parameter key. If you specify @true@, do not + -- specify a parameter value. + usePreviousValue :: Prelude.Maybe Prelude.Bool + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Parameter' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'parameterKey', 'parameter_parameterKey' - The key associated with the parameter. If you don\'t specify a key and +-- value for a particular parameter, CloudFormation uses the default value +-- that\'s specified in your template. +-- +-- 'parameterValue', 'parameter_parameterValue' - The input value associated with the parameter. +-- +-- 'resolvedValue', 'parameter_resolvedValue' - Read-only. The value that corresponds to a SSM parameter key. This field +-- is returned only for +-- +-- parameter types in the template. +-- +-- 'usePreviousValue', 'parameter_usePreviousValue' - During a stack update, use the existing parameter value that the stack +-- is using for a given parameter key. If you specify @true@, do not +-- specify a parameter value. +newParameter :: + Parameter +newParameter = + Parameter' + { parameterKey = Prelude.Nothing, + parameterValue = Prelude.Nothing, + resolvedValue = Prelude.Nothing, + usePreviousValue = Prelude.Nothing + } + +-- | The key associated with the parameter. If you don\'t specify a key and +-- value for a particular parameter, CloudFormation uses the default value +-- that\'s specified in your template. +parameter_parameterKey :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text) +parameter_parameterKey = Lens.lens (\Parameter' {parameterKey} -> parameterKey) (\s@Parameter' {} a -> s {parameterKey = a} :: Parameter) + +-- | The input value associated with the parameter. +parameter_parameterValue :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text) +parameter_parameterValue = Lens.lens (\Parameter' {parameterValue} -> parameterValue) (\s@Parameter' {} a -> s {parameterValue = a} :: Parameter) + +-- | Read-only. The value that corresponds to a SSM parameter key. This field +-- is returned only for +-- +-- parameter types in the template. +parameter_resolvedValue :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Text) +parameter_resolvedValue = Lens.lens (\Parameter' {resolvedValue} -> resolvedValue) (\s@Parameter' {} a -> s {resolvedValue = a} :: Parameter) + +-- | During a stack update, use the existing parameter value that the stack +-- is using for a given parameter key. If you specify @true@, do not +-- specify a parameter value. +parameter_usePreviousValue :: Lens.Lens' Parameter (Prelude.Maybe Prelude.Bool) +parameter_usePreviousValue = Lens.lens (\Parameter' {usePreviousValue} -> usePreviousValue) (\s@Parameter' {} a -> s {usePreviousValue = a} :: Parameter) + +instance Data.FromXML Parameter where + parseXML x = + Parameter' + Prelude.<$> (x Data..@? "ParameterKey") + Prelude.<*> (x Data..@? "ParameterValue") + Prelude.<*> (x Data..@? "ResolvedValue") + Prelude.<*> (x Data..@? "UsePreviousValue") + +instance Prelude.Hashable Parameter where + hashWithSalt _salt Parameter' {..} = + _salt + `Prelude.hashWithSalt` parameterKey + `Prelude.hashWithSalt` parameterValue + `Prelude.hashWithSalt` resolvedValue + `Prelude.hashWithSalt` usePreviousValue + +instance Prelude.NFData Parameter where + rnf Parameter' {..} = + Prelude.rnf parameterKey + `Prelude.seq` Prelude.rnf parameterValue + `Prelude.seq` Prelude.rnf resolvedValue + `Prelude.seq` Prelude.rnf usePreviousValue + +instance Data.ToQuery Parameter where + toQuery Parameter' {..} = + Prelude.mconcat + [ "ParameterKey" Data.=: parameterKey, + "ParameterValue" Data.=: parameterValue, + "ResolvedValue" Data.=: resolvedValue, + "UsePreviousValue" Data.=: usePreviousValue + ] diff --git a/gen/Amazonka/CloudFormation/Types/ParameterConstraints.hs b/gen/Amazonka/CloudFormation/Types/ParameterConstraints.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ParameterConstraints.hs @@ -0,0 +1,74 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ParameterConstraints +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ParameterConstraints where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | A set of criteria that CloudFormation uses to validate parameter values. +-- Although other constraints might be defined in the stack template, +-- CloudFormation returns only the @AllowedValues@ property. +-- +-- /See:/ 'newParameterConstraints' smart constructor. +data ParameterConstraints = ParameterConstraints' + { -- | A list of values that are permitted for a parameter. + allowedValues :: Prelude.Maybe [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ParameterConstraints' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'allowedValues', 'parameterConstraints_allowedValues' - A list of values that are permitted for a parameter. +newParameterConstraints :: + ParameterConstraints +newParameterConstraints = + ParameterConstraints' + { allowedValues = + Prelude.Nothing + } + +-- | A list of values that are permitted for a parameter. +parameterConstraints_allowedValues :: Lens.Lens' ParameterConstraints (Prelude.Maybe [Prelude.Text]) +parameterConstraints_allowedValues = Lens.lens (\ParameterConstraints' {allowedValues} -> allowedValues) (\s@ParameterConstraints' {} a -> s {allowedValues = a} :: ParameterConstraints) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromXML ParameterConstraints where + parseXML x = + ParameterConstraints' + Prelude.<$> ( x + Data..@? "AllowedValues" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + +instance Prelude.Hashable ParameterConstraints where + hashWithSalt _salt ParameterConstraints' {..} = + _salt `Prelude.hashWithSalt` allowedValues + +instance Prelude.NFData ParameterConstraints where + rnf ParameterConstraints' {..} = + Prelude.rnf allowedValues diff --git a/gen/Amazonka/CloudFormation/Types/ParameterDeclaration.hs b/gen/Amazonka/CloudFormation/Types/ParameterDeclaration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ParameterDeclaration.hs @@ -0,0 +1,133 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ParameterDeclaration +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ParameterDeclaration where + +import Amazonka.CloudFormation.Types.ParameterConstraints +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The ParameterDeclaration data type. +-- +-- /See:/ 'newParameterDeclaration' smart constructor. +data ParameterDeclaration = ParameterDeclaration' + { -- | The default value of the parameter. + defaultValue :: Prelude.Maybe Prelude.Text, + -- | The description that\'s associate with the parameter. + description :: Prelude.Maybe Prelude.Text, + -- | Flag that indicates whether the parameter value is shown as plain text + -- in logs and in the Amazon Web Services Management Console. + noEcho :: Prelude.Maybe Prelude.Bool, + -- | The criteria that CloudFormation uses to validate parameter values. + parameterConstraints :: Prelude.Maybe ParameterConstraints, + -- | The name that\'s associated with the parameter. + parameterKey :: Prelude.Maybe Prelude.Text, + -- | The type of parameter. + parameterType :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ParameterDeclaration' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'defaultValue', 'parameterDeclaration_defaultValue' - The default value of the parameter. +-- +-- 'description', 'parameterDeclaration_description' - The description that\'s associate with the parameter. +-- +-- 'noEcho', 'parameterDeclaration_noEcho' - Flag that indicates whether the parameter value is shown as plain text +-- in logs and in the Amazon Web Services Management Console. +-- +-- 'parameterConstraints', 'parameterDeclaration_parameterConstraints' - The criteria that CloudFormation uses to validate parameter values. +-- +-- 'parameterKey', 'parameterDeclaration_parameterKey' - The name that\'s associated with the parameter. +-- +-- 'parameterType', 'parameterDeclaration_parameterType' - The type of parameter. +newParameterDeclaration :: + ParameterDeclaration +newParameterDeclaration = + ParameterDeclaration' + { defaultValue = + Prelude.Nothing, + description = Prelude.Nothing, + noEcho = Prelude.Nothing, + parameterConstraints = Prelude.Nothing, + parameterKey = Prelude.Nothing, + parameterType = Prelude.Nothing + } + +-- | The default value of the parameter. +parameterDeclaration_defaultValue :: Lens.Lens' ParameterDeclaration (Prelude.Maybe Prelude.Text) +parameterDeclaration_defaultValue = Lens.lens (\ParameterDeclaration' {defaultValue} -> defaultValue) (\s@ParameterDeclaration' {} a -> s {defaultValue = a} :: ParameterDeclaration) + +-- | The description that\'s associate with the parameter. +parameterDeclaration_description :: Lens.Lens' ParameterDeclaration (Prelude.Maybe Prelude.Text) +parameterDeclaration_description = Lens.lens (\ParameterDeclaration' {description} -> description) (\s@ParameterDeclaration' {} a -> s {description = a} :: ParameterDeclaration) + +-- | Flag that indicates whether the parameter value is shown as plain text +-- in logs and in the Amazon Web Services Management Console. +parameterDeclaration_noEcho :: Lens.Lens' ParameterDeclaration (Prelude.Maybe Prelude.Bool) +parameterDeclaration_noEcho = Lens.lens (\ParameterDeclaration' {noEcho} -> noEcho) (\s@ParameterDeclaration' {} a -> s {noEcho = a} :: ParameterDeclaration) + +-- | The criteria that CloudFormation uses to validate parameter values. +parameterDeclaration_parameterConstraints :: Lens.Lens' ParameterDeclaration (Prelude.Maybe ParameterConstraints) +parameterDeclaration_parameterConstraints = Lens.lens (\ParameterDeclaration' {parameterConstraints} -> parameterConstraints) (\s@ParameterDeclaration' {} a -> s {parameterConstraints = a} :: ParameterDeclaration) + +-- | The name that\'s associated with the parameter. +parameterDeclaration_parameterKey :: Lens.Lens' ParameterDeclaration (Prelude.Maybe Prelude.Text) +parameterDeclaration_parameterKey = Lens.lens (\ParameterDeclaration' {parameterKey} -> parameterKey) (\s@ParameterDeclaration' {} a -> s {parameterKey = a} :: ParameterDeclaration) + +-- | The type of parameter. +parameterDeclaration_parameterType :: Lens.Lens' ParameterDeclaration (Prelude.Maybe Prelude.Text) +parameterDeclaration_parameterType = Lens.lens (\ParameterDeclaration' {parameterType} -> parameterType) (\s@ParameterDeclaration' {} a -> s {parameterType = a} :: ParameterDeclaration) + +instance Data.FromXML ParameterDeclaration where + parseXML x = + ParameterDeclaration' + Prelude.<$> (x Data..@? "DefaultValue") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "NoEcho") + Prelude.<*> (x Data..@? "ParameterConstraints") + Prelude.<*> (x Data..@? "ParameterKey") + Prelude.<*> (x Data..@? "ParameterType") + +instance Prelude.Hashable ParameterDeclaration where + hashWithSalt _salt ParameterDeclaration' {..} = + _salt + `Prelude.hashWithSalt` defaultValue + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` noEcho + `Prelude.hashWithSalt` parameterConstraints + `Prelude.hashWithSalt` parameterKey + `Prelude.hashWithSalt` parameterType + +instance Prelude.NFData ParameterDeclaration where + rnf ParameterDeclaration' {..} = + Prelude.rnf defaultValue + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf noEcho + `Prelude.seq` Prelude.rnf parameterConstraints + `Prelude.seq` Prelude.rnf parameterKey + `Prelude.seq` Prelude.rnf parameterType diff --git a/gen/Amazonka/CloudFormation/Types/PermissionModels.hs b/gen/Amazonka/CloudFormation/Types/PermissionModels.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/PermissionModels.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.PermissionModels +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.PermissionModels + ( PermissionModels + ( .., + PermissionModels_SELF_MANAGED, + PermissionModels_SERVICE_MANAGED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype PermissionModels = PermissionModels' + { fromPermissionModels :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern PermissionModels_SELF_MANAGED :: PermissionModels +pattern PermissionModels_SELF_MANAGED = PermissionModels' "SELF_MANAGED" + +pattern PermissionModels_SERVICE_MANAGED :: PermissionModels +pattern PermissionModels_SERVICE_MANAGED = PermissionModels' "SERVICE_MANAGED" + +{-# COMPLETE + PermissionModels_SELF_MANAGED, + PermissionModels_SERVICE_MANAGED, + PermissionModels' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/PhysicalResourceIdContextKeyValuePair.hs b/gen/Amazonka/CloudFormation/Types/PhysicalResourceIdContextKeyValuePair.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/PhysicalResourceIdContextKeyValuePair.hs @@ -0,0 +1,100 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.PhysicalResourceIdContextKeyValuePair +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.PhysicalResourceIdContextKeyValuePair where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Context information that enables CloudFormation to uniquely identify a +-- resource. CloudFormation uses context key-value pairs in cases where a +-- resource\'s logical and physical IDs aren\'t enough to uniquely identify +-- that resource. Each context key-value pair specifies a resource that +-- contains the targeted resource. +-- +-- /See:/ 'newPhysicalResourceIdContextKeyValuePair' smart constructor. +data PhysicalResourceIdContextKeyValuePair = PhysicalResourceIdContextKeyValuePair' + { -- | The resource context key. + key :: Prelude.Text, + -- | The resource context value. + value :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PhysicalResourceIdContextKeyValuePair' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'key', 'physicalResourceIdContextKeyValuePair_key' - The resource context key. +-- +-- 'value', 'physicalResourceIdContextKeyValuePair_value' - The resource context value. +newPhysicalResourceIdContextKeyValuePair :: + -- | 'key' + Prelude.Text -> + -- | 'value' + Prelude.Text -> + PhysicalResourceIdContextKeyValuePair +newPhysicalResourceIdContextKeyValuePair + pKey_ + pValue_ = + PhysicalResourceIdContextKeyValuePair' + { key = pKey_, + value = pValue_ + } + +-- | The resource context key. +physicalResourceIdContextKeyValuePair_key :: Lens.Lens' PhysicalResourceIdContextKeyValuePair Prelude.Text +physicalResourceIdContextKeyValuePair_key = Lens.lens (\PhysicalResourceIdContextKeyValuePair' {key} -> key) (\s@PhysicalResourceIdContextKeyValuePair' {} a -> s {key = a} :: PhysicalResourceIdContextKeyValuePair) + +-- | The resource context value. +physicalResourceIdContextKeyValuePair_value :: Lens.Lens' PhysicalResourceIdContextKeyValuePair Prelude.Text +physicalResourceIdContextKeyValuePair_value = Lens.lens (\PhysicalResourceIdContextKeyValuePair' {value} -> value) (\s@PhysicalResourceIdContextKeyValuePair' {} a -> s {value = a} :: PhysicalResourceIdContextKeyValuePair) + +instance + Data.FromXML + PhysicalResourceIdContextKeyValuePair + where + parseXML x = + PhysicalResourceIdContextKeyValuePair' + Prelude.<$> (x Data..@ "Key") + Prelude.<*> (x Data..@ "Value") + +instance + Prelude.Hashable + PhysicalResourceIdContextKeyValuePair + where + hashWithSalt + _salt + PhysicalResourceIdContextKeyValuePair' {..} = + _salt + `Prelude.hashWithSalt` key + `Prelude.hashWithSalt` value + +instance + Prelude.NFData + PhysicalResourceIdContextKeyValuePair + where + rnf PhysicalResourceIdContextKeyValuePair' {..} = + Prelude.rnf key `Prelude.seq` Prelude.rnf value diff --git a/gen/Amazonka/CloudFormation/Types/PropertyDifference.hs b/gen/Amazonka/CloudFormation/Types/PropertyDifference.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/PropertyDifference.hs @@ -0,0 +1,155 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.PropertyDifference +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.PropertyDifference where + +import Amazonka.CloudFormation.Types.DifferenceType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Information about a resource property whose actual value differs from +-- its expected value, as defined in the stack template and any values +-- specified as template parameters. These will be present only for +-- resources whose @StackResourceDriftStatus@ is @MODIFIED@. For more +-- information, see +-- . +-- +-- /See:/ 'newPropertyDifference' smart constructor. +data PropertyDifference = PropertyDifference' + { -- | The fully-qualified path to the resource property. + propertyPath :: Prelude.Text, + -- | The expected property value of the resource property, as defined in the + -- stack template and any values specified as template parameters. + expectedValue :: Prelude.Text, + -- | The actual property value of the resource property. + actualValue :: Prelude.Text, + -- | The type of property difference. + -- + -- - @ADD@: A value has been added to a resource property that\'s an + -- array or list data type. + -- + -- - @REMOVE@: The property has been removed from the current resource + -- configuration. + -- + -- - @NOT_EQUAL@: The current property value differs from its expected + -- value (as defined in the stack template and any values specified as + -- template parameters). + differenceType :: DifferenceType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PropertyDifference' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'propertyPath', 'propertyDifference_propertyPath' - The fully-qualified path to the resource property. +-- +-- 'expectedValue', 'propertyDifference_expectedValue' - The expected property value of the resource property, as defined in the +-- stack template and any values specified as template parameters. +-- +-- 'actualValue', 'propertyDifference_actualValue' - The actual property value of the resource property. +-- +-- 'differenceType', 'propertyDifference_differenceType' - The type of property difference. +-- +-- - @ADD@: A value has been added to a resource property that\'s an +-- array or list data type. +-- +-- - @REMOVE@: The property has been removed from the current resource +-- configuration. +-- +-- - @NOT_EQUAL@: The current property value differs from its expected +-- value (as defined in the stack template and any values specified as +-- template parameters). +newPropertyDifference :: + -- | 'propertyPath' + Prelude.Text -> + -- | 'expectedValue' + Prelude.Text -> + -- | 'actualValue' + Prelude.Text -> + -- | 'differenceType' + DifferenceType -> + PropertyDifference +newPropertyDifference + pPropertyPath_ + pExpectedValue_ + pActualValue_ + pDifferenceType_ = + PropertyDifference' + { propertyPath = pPropertyPath_, + expectedValue = pExpectedValue_, + actualValue = pActualValue_, + differenceType = pDifferenceType_ + } + +-- | The fully-qualified path to the resource property. +propertyDifference_propertyPath :: Lens.Lens' PropertyDifference Prelude.Text +propertyDifference_propertyPath = Lens.lens (\PropertyDifference' {propertyPath} -> propertyPath) (\s@PropertyDifference' {} a -> s {propertyPath = a} :: PropertyDifference) + +-- | The expected property value of the resource property, as defined in the +-- stack template and any values specified as template parameters. +propertyDifference_expectedValue :: Lens.Lens' PropertyDifference Prelude.Text +propertyDifference_expectedValue = Lens.lens (\PropertyDifference' {expectedValue} -> expectedValue) (\s@PropertyDifference' {} a -> s {expectedValue = a} :: PropertyDifference) + +-- | The actual property value of the resource property. +propertyDifference_actualValue :: Lens.Lens' PropertyDifference Prelude.Text +propertyDifference_actualValue = Lens.lens (\PropertyDifference' {actualValue} -> actualValue) (\s@PropertyDifference' {} a -> s {actualValue = a} :: PropertyDifference) + +-- | The type of property difference. +-- +-- - @ADD@: A value has been added to a resource property that\'s an +-- array or list data type. +-- +-- - @REMOVE@: The property has been removed from the current resource +-- configuration. +-- +-- - @NOT_EQUAL@: The current property value differs from its expected +-- value (as defined in the stack template and any values specified as +-- template parameters). +propertyDifference_differenceType :: Lens.Lens' PropertyDifference DifferenceType +propertyDifference_differenceType = Lens.lens (\PropertyDifference' {differenceType} -> differenceType) (\s@PropertyDifference' {} a -> s {differenceType = a} :: PropertyDifference) + +instance Data.FromXML PropertyDifference where + parseXML x = + PropertyDifference' + Prelude.<$> (x Data..@ "PropertyPath") + Prelude.<*> (x Data..@ "ExpectedValue") + Prelude.<*> (x Data..@ "ActualValue") + Prelude.<*> (x Data..@ "DifferenceType") + +instance Prelude.Hashable PropertyDifference where + hashWithSalt _salt PropertyDifference' {..} = + _salt + `Prelude.hashWithSalt` propertyPath + `Prelude.hashWithSalt` expectedValue + `Prelude.hashWithSalt` actualValue + `Prelude.hashWithSalt` differenceType + +instance Prelude.NFData PropertyDifference where + rnf PropertyDifference' {..} = + Prelude.rnf propertyPath + `Prelude.seq` Prelude.rnf expectedValue + `Prelude.seq` Prelude.rnf actualValue + `Prelude.seq` Prelude.rnf differenceType diff --git a/gen/Amazonka/CloudFormation/Types/ProvisioningType.hs b/gen/Amazonka/CloudFormation/Types/ProvisioningType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ProvisioningType.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ProvisioningType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ProvisioningType + ( ProvisioningType + ( .., + ProvisioningType_FULLY_MUTABLE, + ProvisioningType_IMMUTABLE, + ProvisioningType_NON_PROVISIONABLE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ProvisioningType = ProvisioningType' + { fromProvisioningType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ProvisioningType_FULLY_MUTABLE :: ProvisioningType +pattern ProvisioningType_FULLY_MUTABLE = ProvisioningType' "FULLY_MUTABLE" + +pattern ProvisioningType_IMMUTABLE :: ProvisioningType +pattern ProvisioningType_IMMUTABLE = ProvisioningType' "IMMUTABLE" + +pattern ProvisioningType_NON_PROVISIONABLE :: ProvisioningType +pattern ProvisioningType_NON_PROVISIONABLE = ProvisioningType' "NON_PROVISIONABLE" + +{-# COMPLETE + ProvisioningType_FULLY_MUTABLE, + ProvisioningType_IMMUTABLE, + ProvisioningType_NON_PROVISIONABLE, + ProvisioningType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/PublisherStatus.hs b/gen/Amazonka/CloudFormation/Types/PublisherStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/PublisherStatus.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.PublisherStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.PublisherStatus + ( PublisherStatus + ( .., + PublisherStatus_UNVERIFIED, + PublisherStatus_VERIFIED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype PublisherStatus = PublisherStatus' + { fromPublisherStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern PublisherStatus_UNVERIFIED :: PublisherStatus +pattern PublisherStatus_UNVERIFIED = PublisherStatus' "UNVERIFIED" + +pattern PublisherStatus_VERIFIED :: PublisherStatus +pattern PublisherStatus_VERIFIED = PublisherStatus' "VERIFIED" + +{-# COMPLETE + PublisherStatus_UNVERIFIED, + PublisherStatus_VERIFIED, + PublisherStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/RegionConcurrencyType.hs b/gen/Amazonka/CloudFormation/Types/RegionConcurrencyType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RegionConcurrencyType.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RegionConcurrencyType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RegionConcurrencyType + ( RegionConcurrencyType + ( .., + RegionConcurrencyType_PARALLEL, + RegionConcurrencyType_SEQUENTIAL + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RegionConcurrencyType = RegionConcurrencyType' + { fromRegionConcurrencyType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern RegionConcurrencyType_PARALLEL :: RegionConcurrencyType +pattern RegionConcurrencyType_PARALLEL = RegionConcurrencyType' "PARALLEL" + +pattern RegionConcurrencyType_SEQUENTIAL :: RegionConcurrencyType +pattern RegionConcurrencyType_SEQUENTIAL = RegionConcurrencyType' "SEQUENTIAL" + +{-# COMPLETE + RegionConcurrencyType_PARALLEL, + RegionConcurrencyType_SEQUENTIAL, + RegionConcurrencyType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/RegistrationStatus.hs b/gen/Amazonka/CloudFormation/Types/RegistrationStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RegistrationStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RegistrationStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RegistrationStatus + ( RegistrationStatus + ( .., + RegistrationStatus_COMPLETE, + RegistrationStatus_FAILED, + RegistrationStatus_IN_PROGRESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RegistrationStatus = RegistrationStatus' + { fromRegistrationStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern RegistrationStatus_COMPLETE :: RegistrationStatus +pattern RegistrationStatus_COMPLETE = RegistrationStatus' "COMPLETE" + +pattern RegistrationStatus_FAILED :: RegistrationStatus +pattern RegistrationStatus_FAILED = RegistrationStatus' "FAILED" + +pattern RegistrationStatus_IN_PROGRESS :: RegistrationStatus +pattern RegistrationStatus_IN_PROGRESS = RegistrationStatus' "IN_PROGRESS" + +{-# COMPLETE + RegistrationStatus_COMPLETE, + RegistrationStatus_FAILED, + RegistrationStatus_IN_PROGRESS, + RegistrationStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/RegistryType.hs b/gen/Amazonka/CloudFormation/Types/RegistryType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RegistryType.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RegistryType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RegistryType + ( RegistryType + ( .., + RegistryType_HOOK, + RegistryType_MODULE, + RegistryType_RESOURCE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RegistryType = RegistryType' + { fromRegistryType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern RegistryType_HOOK :: RegistryType +pattern RegistryType_HOOK = RegistryType' "HOOK" + +pattern RegistryType_MODULE :: RegistryType +pattern RegistryType_MODULE = RegistryType' "MODULE" + +pattern RegistryType_RESOURCE :: RegistryType +pattern RegistryType_RESOURCE = RegistryType' "RESOURCE" + +{-# COMPLETE + RegistryType_HOOK, + RegistryType_MODULE, + RegistryType_RESOURCE, + RegistryType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Replacement.hs b/gen/Amazonka/CloudFormation/Types/Replacement.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Replacement.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Replacement +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Replacement + ( Replacement + ( .., + Replacement_Conditional, + Replacement_False, + Replacement_True + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype Replacement = Replacement' + { fromReplacement :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern Replacement_Conditional :: Replacement +pattern Replacement_Conditional = Replacement' "Conditional" + +pattern Replacement_False :: Replacement +pattern Replacement_False = Replacement' "False" + +pattern Replacement_True :: Replacement +pattern Replacement_True = Replacement' "True" + +{-# COMPLETE + Replacement_Conditional, + Replacement_False, + Replacement_True, + Replacement' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/RequiredActivatedType.hs b/gen/Amazonka/CloudFormation/Types/RequiredActivatedType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RequiredActivatedType.hs @@ -0,0 +1,151 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RequiredActivatedType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RequiredActivatedType where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | For extensions that are modules, a public third-party extension that +-- must be activated in your account in order for the module itself to be +-- activated. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- /See:/ 'newRequiredActivatedType' smart constructor. +data RequiredActivatedType = RequiredActivatedType' + { -- | The type name of the public extension. + -- + -- If you specified a @TypeNameAlias@ when enabling the extension in this + -- account and region, CloudFormation treats that alias as the extension\'s + -- type name within the account and region, not the type name of the public + -- extension. For more information, see + -- + -- in the /CloudFormation User Guide/. + originalTypeName :: Prelude.Maybe Prelude.Text, + -- | The publisher ID of the extension publisher. + publisherId :: Prelude.Maybe Prelude.Text, + -- | A list of the major versions of the extension type that the macro + -- supports. + supportedMajorVersions :: Prelude.Maybe [Prelude.Natural], + -- | An alias assigned to the public extension, in this account and region. + -- If you specify an alias for the extension, CloudFormation treats the + -- alias as the extension type name within this account and region. You + -- must use the alias to refer to the extension in your templates, API + -- calls, and CloudFormation console. + typeNameAlias :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequiredActivatedType' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'originalTypeName', 'requiredActivatedType_originalTypeName' - The type name of the public extension. +-- +-- If you specified a @TypeNameAlias@ when enabling the extension in this +-- account and region, CloudFormation treats that alias as the extension\'s +-- type name within the account and region, not the type name of the public +-- extension. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'publisherId', 'requiredActivatedType_publisherId' - The publisher ID of the extension publisher. +-- +-- 'supportedMajorVersions', 'requiredActivatedType_supportedMajorVersions' - A list of the major versions of the extension type that the macro +-- supports. +-- +-- 'typeNameAlias', 'requiredActivatedType_typeNameAlias' - An alias assigned to the public extension, in this account and region. +-- If you specify an alias for the extension, CloudFormation treats the +-- alias as the extension type name within this account and region. You +-- must use the alias to refer to the extension in your templates, API +-- calls, and CloudFormation console. +newRequiredActivatedType :: + RequiredActivatedType +newRequiredActivatedType = + RequiredActivatedType' + { originalTypeName = + Prelude.Nothing, + publisherId = Prelude.Nothing, + supportedMajorVersions = Prelude.Nothing, + typeNameAlias = Prelude.Nothing + } + +-- | The type name of the public extension. +-- +-- If you specified a @TypeNameAlias@ when enabling the extension in this +-- account and region, CloudFormation treats that alias as the extension\'s +-- type name within the account and region, not the type name of the public +-- extension. For more information, see +-- +-- in the /CloudFormation User Guide/. +requiredActivatedType_originalTypeName :: Lens.Lens' RequiredActivatedType (Prelude.Maybe Prelude.Text) +requiredActivatedType_originalTypeName = Lens.lens (\RequiredActivatedType' {originalTypeName} -> originalTypeName) (\s@RequiredActivatedType' {} a -> s {originalTypeName = a} :: RequiredActivatedType) + +-- | The publisher ID of the extension publisher. +requiredActivatedType_publisherId :: Lens.Lens' RequiredActivatedType (Prelude.Maybe Prelude.Text) +requiredActivatedType_publisherId = Lens.lens (\RequiredActivatedType' {publisherId} -> publisherId) (\s@RequiredActivatedType' {} a -> s {publisherId = a} :: RequiredActivatedType) + +-- | A list of the major versions of the extension type that the macro +-- supports. +requiredActivatedType_supportedMajorVersions :: Lens.Lens' RequiredActivatedType (Prelude.Maybe [Prelude.Natural]) +requiredActivatedType_supportedMajorVersions = Lens.lens (\RequiredActivatedType' {supportedMajorVersions} -> supportedMajorVersions) (\s@RequiredActivatedType' {} a -> s {supportedMajorVersions = a} :: RequiredActivatedType) Prelude.. Lens.mapping Lens.coerced + +-- | An alias assigned to the public extension, in this account and region. +-- If you specify an alias for the extension, CloudFormation treats the +-- alias as the extension type name within this account and region. You +-- must use the alias to refer to the extension in your templates, API +-- calls, and CloudFormation console. +requiredActivatedType_typeNameAlias :: Lens.Lens' RequiredActivatedType (Prelude.Maybe Prelude.Text) +requiredActivatedType_typeNameAlias = Lens.lens (\RequiredActivatedType' {typeNameAlias} -> typeNameAlias) (\s@RequiredActivatedType' {} a -> s {typeNameAlias = a} :: RequiredActivatedType) + +instance Data.FromXML RequiredActivatedType where + parseXML x = + RequiredActivatedType' + Prelude.<$> (x Data..@? "OriginalTypeName") + Prelude.<*> (x Data..@? "PublisherId") + Prelude.<*> ( x + Data..@? "SupportedMajorVersions" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "TypeNameAlias") + +instance Prelude.Hashable RequiredActivatedType where + hashWithSalt _salt RequiredActivatedType' {..} = + _salt + `Prelude.hashWithSalt` originalTypeName + `Prelude.hashWithSalt` publisherId + `Prelude.hashWithSalt` supportedMajorVersions + `Prelude.hashWithSalt` typeNameAlias + +instance Prelude.NFData RequiredActivatedType where + rnf RequiredActivatedType' {..} = + Prelude.rnf originalTypeName + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf supportedMajorVersions + `Prelude.seq` Prelude.rnf typeNameAlias diff --git a/gen/Amazonka/CloudFormation/Types/RequiresRecreation.hs b/gen/Amazonka/CloudFormation/Types/RequiresRecreation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RequiresRecreation.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RequiresRecreation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RequiresRecreation + ( RequiresRecreation + ( .., + RequiresRecreation_Always, + RequiresRecreation_Conditionally, + RequiresRecreation_Never + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RequiresRecreation = RequiresRecreation' + { fromRequiresRecreation :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern RequiresRecreation_Always :: RequiresRecreation +pattern RequiresRecreation_Always = RequiresRecreation' "Always" + +pattern RequiresRecreation_Conditionally :: RequiresRecreation +pattern RequiresRecreation_Conditionally = RequiresRecreation' "Conditionally" + +pattern RequiresRecreation_Never :: RequiresRecreation +pattern RequiresRecreation_Never = RequiresRecreation' "Never" + +{-# COMPLETE + RequiresRecreation_Always, + RequiresRecreation_Conditionally, + RequiresRecreation_Never, + RequiresRecreation' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ResourceAttribute.hs b/gen/Amazonka/CloudFormation/Types/ResourceAttribute.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceAttribute.hs @@ -0,0 +1,91 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceAttribute +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceAttribute + ( ResourceAttribute + ( .., + ResourceAttribute_CreationPolicy, + ResourceAttribute_DeletionPolicy, + ResourceAttribute_Metadata, + ResourceAttribute_Properties, + ResourceAttribute_Tags, + ResourceAttribute_UpdatePolicy + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ResourceAttribute = ResourceAttribute' + { fromResourceAttribute :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ResourceAttribute_CreationPolicy :: ResourceAttribute +pattern ResourceAttribute_CreationPolicy = ResourceAttribute' "CreationPolicy" + +pattern ResourceAttribute_DeletionPolicy :: ResourceAttribute +pattern ResourceAttribute_DeletionPolicy = ResourceAttribute' "DeletionPolicy" + +pattern ResourceAttribute_Metadata :: ResourceAttribute +pattern ResourceAttribute_Metadata = ResourceAttribute' "Metadata" + +pattern ResourceAttribute_Properties :: ResourceAttribute +pattern ResourceAttribute_Properties = ResourceAttribute' "Properties" + +pattern ResourceAttribute_Tags :: ResourceAttribute +pattern ResourceAttribute_Tags = ResourceAttribute' "Tags" + +pattern ResourceAttribute_UpdatePolicy :: ResourceAttribute +pattern ResourceAttribute_UpdatePolicy = ResourceAttribute' "UpdatePolicy" + +{-# COMPLETE + ResourceAttribute_CreationPolicy, + ResourceAttribute_DeletionPolicy, + ResourceAttribute_Metadata, + ResourceAttribute_Properties, + ResourceAttribute_Tags, + ResourceAttribute_UpdatePolicy, + ResourceAttribute' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ResourceChange.hs b/gen/Amazonka/CloudFormation/Types/ResourceChange.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceChange.hs @@ -0,0 +1,244 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceChange +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceChange where + +import Amazonka.CloudFormation.Types.ChangeAction +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.Replacement +import Amazonka.CloudFormation.Types.ResourceAttribute +import Amazonka.CloudFormation.Types.ResourceChangeDetail +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The @ResourceChange@ structure describes the resource and the action +-- that CloudFormation will perform on it if you execute this change set. +-- +-- /See:/ 'newResourceChange' smart constructor. +data ResourceChange = ResourceChange' + { -- | The action that CloudFormation takes on the resource, such as @Add@ + -- (adds a new resource), @Modify@ (changes a resource), @Remove@ (deletes + -- a resource), @Import@ (imports a resource), or @Dynamic@ (exact action + -- for the resource can\'t be determined). + action :: Prelude.Maybe ChangeAction, + -- | The change set ID of the nested change set. + changeSetId :: Prelude.Maybe Prelude.Text, + -- | For the @Modify@ action, a list of @ResourceChangeDetail@ structures + -- that describes the changes that CloudFormation will make to the + -- resource. + details :: Prelude.Maybe [ResourceChangeDetail], + -- | The resource\'s logical ID, which is defined in the stack\'s template. + logicalResourceId :: Prelude.Maybe Prelude.Text, + -- | Contains information about the module from which the resource was + -- created, if the resource was created from a module included in the stack + -- template. + moduleInfo :: Prelude.Maybe ModuleInfo, + -- | The resource\'s physical ID (resource name). Resources that you are + -- adding don\'t have physical IDs because they haven\'t been created. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | For the @Modify@ action, indicates whether CloudFormation will replace + -- the resource by creating a new one and deleting the old one. This value + -- depends on the value of the @RequiresRecreation@ property in the + -- @ResourceTargetDefinition@ structure. For example, if the + -- @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is + -- @Static@, @Replacement@ is @True@. If the @RequiresRecreation@ field is + -- @Always@ and the @Evaluation@ field is @Dynamic@, @Replacement@ is + -- @Conditionally@. + -- + -- If you have multiple changes with different @RequiresRecreation@ values, + -- the @Replacement@ value depends on the change with the most impact. A + -- @RequiresRecreation@ value of @Always@ has the most impact, followed by + -- @Conditionally@, and then @Never@. + replacement :: Prelude.Maybe Replacement, + -- | The type of CloudFormation resource, such as @AWS::S3::Bucket@. + resourceType :: Prelude.Maybe Prelude.Text, + -- | For the @Modify@ action, indicates which resource attribute is + -- triggering this update, such as a change in the resource attribute\'s + -- @Metadata@, @Properties@, or @Tags@. + scope :: Prelude.Maybe [ResourceAttribute] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ResourceChange' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'action', 'resourceChange_action' - The action that CloudFormation takes on the resource, such as @Add@ +-- (adds a new resource), @Modify@ (changes a resource), @Remove@ (deletes +-- a resource), @Import@ (imports a resource), or @Dynamic@ (exact action +-- for the resource can\'t be determined). +-- +-- 'changeSetId', 'resourceChange_changeSetId' - The change set ID of the nested change set. +-- +-- 'details', 'resourceChange_details' - For the @Modify@ action, a list of @ResourceChangeDetail@ structures +-- that describes the changes that CloudFormation will make to the +-- resource. +-- +-- 'logicalResourceId', 'resourceChange_logicalResourceId' - The resource\'s logical ID, which is defined in the stack\'s template. +-- +-- 'moduleInfo', 'resourceChange_moduleInfo' - Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +-- +-- 'physicalResourceId', 'resourceChange_physicalResourceId' - The resource\'s physical ID (resource name). Resources that you are +-- adding don\'t have physical IDs because they haven\'t been created. +-- +-- 'replacement', 'resourceChange_replacement' - For the @Modify@ action, indicates whether CloudFormation will replace +-- the resource by creating a new one and deleting the old one. This value +-- depends on the value of the @RequiresRecreation@ property in the +-- @ResourceTargetDefinition@ structure. For example, if the +-- @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is +-- @Static@, @Replacement@ is @True@. If the @RequiresRecreation@ field is +-- @Always@ and the @Evaluation@ field is @Dynamic@, @Replacement@ is +-- @Conditionally@. +-- +-- If you have multiple changes with different @RequiresRecreation@ values, +-- the @Replacement@ value depends on the change with the most impact. A +-- @RequiresRecreation@ value of @Always@ has the most impact, followed by +-- @Conditionally@, and then @Never@. +-- +-- 'resourceType', 'resourceChange_resourceType' - The type of CloudFormation resource, such as @AWS::S3::Bucket@. +-- +-- 'scope', 'resourceChange_scope' - For the @Modify@ action, indicates which resource attribute is +-- triggering this update, such as a change in the resource attribute\'s +-- @Metadata@, @Properties@, or @Tags@. +newResourceChange :: + ResourceChange +newResourceChange = + ResourceChange' + { action = Prelude.Nothing, + changeSetId = Prelude.Nothing, + details = Prelude.Nothing, + logicalResourceId = Prelude.Nothing, + moduleInfo = Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + replacement = Prelude.Nothing, + resourceType = Prelude.Nothing, + scope = Prelude.Nothing + } + +-- | The action that CloudFormation takes on the resource, such as @Add@ +-- (adds a new resource), @Modify@ (changes a resource), @Remove@ (deletes +-- a resource), @Import@ (imports a resource), or @Dynamic@ (exact action +-- for the resource can\'t be determined). +resourceChange_action :: Lens.Lens' ResourceChange (Prelude.Maybe ChangeAction) +resourceChange_action = Lens.lens (\ResourceChange' {action} -> action) (\s@ResourceChange' {} a -> s {action = a} :: ResourceChange) + +-- | The change set ID of the nested change set. +resourceChange_changeSetId :: Lens.Lens' ResourceChange (Prelude.Maybe Prelude.Text) +resourceChange_changeSetId = Lens.lens (\ResourceChange' {changeSetId} -> changeSetId) (\s@ResourceChange' {} a -> s {changeSetId = a} :: ResourceChange) + +-- | For the @Modify@ action, a list of @ResourceChangeDetail@ structures +-- that describes the changes that CloudFormation will make to the +-- resource. +resourceChange_details :: Lens.Lens' ResourceChange (Prelude.Maybe [ResourceChangeDetail]) +resourceChange_details = Lens.lens (\ResourceChange' {details} -> details) (\s@ResourceChange' {} a -> s {details = a} :: ResourceChange) Prelude.. Lens.mapping Lens.coerced + +-- | The resource\'s logical ID, which is defined in the stack\'s template. +resourceChange_logicalResourceId :: Lens.Lens' ResourceChange (Prelude.Maybe Prelude.Text) +resourceChange_logicalResourceId = Lens.lens (\ResourceChange' {logicalResourceId} -> logicalResourceId) (\s@ResourceChange' {} a -> s {logicalResourceId = a} :: ResourceChange) + +-- | Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +resourceChange_moduleInfo :: Lens.Lens' ResourceChange (Prelude.Maybe ModuleInfo) +resourceChange_moduleInfo = Lens.lens (\ResourceChange' {moduleInfo} -> moduleInfo) (\s@ResourceChange' {} a -> s {moduleInfo = a} :: ResourceChange) + +-- | The resource\'s physical ID (resource name). Resources that you are +-- adding don\'t have physical IDs because they haven\'t been created. +resourceChange_physicalResourceId :: Lens.Lens' ResourceChange (Prelude.Maybe Prelude.Text) +resourceChange_physicalResourceId = Lens.lens (\ResourceChange' {physicalResourceId} -> physicalResourceId) (\s@ResourceChange' {} a -> s {physicalResourceId = a} :: ResourceChange) + +-- | For the @Modify@ action, indicates whether CloudFormation will replace +-- the resource by creating a new one and deleting the old one. This value +-- depends on the value of the @RequiresRecreation@ property in the +-- @ResourceTargetDefinition@ structure. For example, if the +-- @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is +-- @Static@, @Replacement@ is @True@. If the @RequiresRecreation@ field is +-- @Always@ and the @Evaluation@ field is @Dynamic@, @Replacement@ is +-- @Conditionally@. +-- +-- If you have multiple changes with different @RequiresRecreation@ values, +-- the @Replacement@ value depends on the change with the most impact. A +-- @RequiresRecreation@ value of @Always@ has the most impact, followed by +-- @Conditionally@, and then @Never@. +resourceChange_replacement :: Lens.Lens' ResourceChange (Prelude.Maybe Replacement) +resourceChange_replacement = Lens.lens (\ResourceChange' {replacement} -> replacement) (\s@ResourceChange' {} a -> s {replacement = a} :: ResourceChange) + +-- | The type of CloudFormation resource, such as @AWS::S3::Bucket@. +resourceChange_resourceType :: Lens.Lens' ResourceChange (Prelude.Maybe Prelude.Text) +resourceChange_resourceType = Lens.lens (\ResourceChange' {resourceType} -> resourceType) (\s@ResourceChange' {} a -> s {resourceType = a} :: ResourceChange) + +-- | For the @Modify@ action, indicates which resource attribute is +-- triggering this update, such as a change in the resource attribute\'s +-- @Metadata@, @Properties@, or @Tags@. +resourceChange_scope :: Lens.Lens' ResourceChange (Prelude.Maybe [ResourceAttribute]) +resourceChange_scope = Lens.lens (\ResourceChange' {scope} -> scope) (\s@ResourceChange' {} a -> s {scope = a} :: ResourceChange) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromXML ResourceChange where + parseXML x = + ResourceChange' + Prelude.<$> (x Data..@? "Action") + Prelude.<*> (x Data..@? "ChangeSetId") + Prelude.<*> ( x + Data..@? "Details" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "LogicalResourceId") + Prelude.<*> (x Data..@? "ModuleInfo") + Prelude.<*> (x Data..@? "PhysicalResourceId") + Prelude.<*> (x Data..@? "Replacement") + Prelude.<*> (x Data..@? "ResourceType") + Prelude.<*> ( x + Data..@? "Scope" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + +instance Prelude.Hashable ResourceChange where + hashWithSalt _salt ResourceChange' {..} = + _salt + `Prelude.hashWithSalt` action + `Prelude.hashWithSalt` changeSetId + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` moduleInfo + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` replacement + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` scope + +instance Prelude.NFData ResourceChange where + rnf ResourceChange' {..} = + Prelude.rnf action + `Prelude.seq` Prelude.rnf changeSetId + `Prelude.seq` Prelude.rnf details + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf moduleInfo + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf replacement + `Prelude.seq` Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf scope diff --git a/gen/Amazonka/CloudFormation/Types/ResourceChangeDetail.hs b/gen/Amazonka/CloudFormation/Types/ResourceChangeDetail.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceChangeDetail.hs @@ -0,0 +1,251 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceChangeDetail +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceChangeDetail where + +import Amazonka.CloudFormation.Types.ChangeSource +import Amazonka.CloudFormation.Types.EvaluationType +import Amazonka.CloudFormation.Types.ResourceTargetDefinition +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | For a resource with @Modify@ as the action, the @ResourceChange@ +-- structure describes the changes CloudFormation will make to that +-- resource. +-- +-- /See:/ 'newResourceChangeDetail' smart constructor. +data ResourceChangeDetail = ResourceChangeDetail' + { -- | The identity of the entity that triggered this change. This entity is a + -- member of the group that\'s specified by the @ChangeSource@ field. For + -- example, if you modified the value of the @KeyPairName@ parameter, the + -- @CausingEntity@ is the name of the parameter (@KeyPairName@). + -- + -- If the @ChangeSource@ value is @DirectModification@, no value is given + -- for @CausingEntity@. + causingEntity :: Prelude.Maybe Prelude.Text, + -- | The group to which the @CausingEntity@ value belongs. There are five + -- entity groups: + -- + -- - @ResourceReference@ entities are @Ref@ intrinsic functions that + -- refer to resources in the template, such as + -- @{ \"Ref\" : \"MyEC2InstanceResource\" }@. + -- + -- - @ParameterReference@ entities are @Ref@ intrinsic functions that get + -- template parameter values, such as + -- @{ \"Ref\" : \"MyPasswordParameter\" }@. + -- + -- - @ResourceAttribute@ entities are @Fn::GetAtt@ intrinsic functions + -- that get resource attribute values, such as + -- @{ \"Fn::GetAtt\" : [ \"MyEC2InstanceResource\", \"PublicDnsName\" ] }@. + -- + -- - @DirectModification@ entities are changes that are made directly to + -- the template. + -- + -- - @Automatic@ entities are @AWS::CloudFormation::Stack@ resource + -- types, which are also known as nested stacks. If you made no changes + -- to the @AWS::CloudFormation::Stack@ resource, CloudFormation sets + -- the @ChangeSource@ to @Automatic@ because the nested stack\'s + -- template might have changed. Changes to a nested stack\'s template + -- aren\'t visible to CloudFormation until you run an update on the + -- parent stack. + changeSource :: Prelude.Maybe ChangeSource, + -- | Indicates whether CloudFormation can determine the target value, and + -- whether the target value will change before you execute a change set. + -- + -- For @Static@ evaluations, CloudFormation can determine that the target + -- value will change, and its value. For example, if you directly modify + -- the @InstanceType@ property of an EC2 instance, CloudFormation knows + -- that this property value will change, and its value, so this is a + -- @Static@ evaluation. + -- + -- For @Dynamic@ evaluations, can\'t determine the target value because it + -- depends on the result of an intrinsic function, such as a @Ref@ or + -- @Fn::GetAtt@ intrinsic function, when the stack is updated. For example, + -- if your template includes a reference to a resource that\'s + -- conditionally recreated, the value of the reference (the physical ID of + -- the resource) might change, depending on if the resource is recreated. + -- If the resource is recreated, it will have a new physical ID, so all + -- references to that resource will also be updated. + evaluation :: Prelude.Maybe EvaluationType, + -- | A @ResourceTargetDefinition@ structure that describes the field that + -- CloudFormation will change and whether the resource will be recreated. + target :: Prelude.Maybe ResourceTargetDefinition + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ResourceChangeDetail' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'causingEntity', 'resourceChangeDetail_causingEntity' - The identity of the entity that triggered this change. This entity is a +-- member of the group that\'s specified by the @ChangeSource@ field. For +-- example, if you modified the value of the @KeyPairName@ parameter, the +-- @CausingEntity@ is the name of the parameter (@KeyPairName@). +-- +-- If the @ChangeSource@ value is @DirectModification@, no value is given +-- for @CausingEntity@. +-- +-- 'changeSource', 'resourceChangeDetail_changeSource' - The group to which the @CausingEntity@ value belongs. There are five +-- entity groups: +-- +-- - @ResourceReference@ entities are @Ref@ intrinsic functions that +-- refer to resources in the template, such as +-- @{ \"Ref\" : \"MyEC2InstanceResource\" }@. +-- +-- - @ParameterReference@ entities are @Ref@ intrinsic functions that get +-- template parameter values, such as +-- @{ \"Ref\" : \"MyPasswordParameter\" }@. +-- +-- - @ResourceAttribute@ entities are @Fn::GetAtt@ intrinsic functions +-- that get resource attribute values, such as +-- @{ \"Fn::GetAtt\" : [ \"MyEC2InstanceResource\", \"PublicDnsName\" ] }@. +-- +-- - @DirectModification@ entities are changes that are made directly to +-- the template. +-- +-- - @Automatic@ entities are @AWS::CloudFormation::Stack@ resource +-- types, which are also known as nested stacks. If you made no changes +-- to the @AWS::CloudFormation::Stack@ resource, CloudFormation sets +-- the @ChangeSource@ to @Automatic@ because the nested stack\'s +-- template might have changed. Changes to a nested stack\'s template +-- aren\'t visible to CloudFormation until you run an update on the +-- parent stack. +-- +-- 'evaluation', 'resourceChangeDetail_evaluation' - Indicates whether CloudFormation can determine the target value, and +-- whether the target value will change before you execute a change set. +-- +-- For @Static@ evaluations, CloudFormation can determine that the target +-- value will change, and its value. For example, if you directly modify +-- the @InstanceType@ property of an EC2 instance, CloudFormation knows +-- that this property value will change, and its value, so this is a +-- @Static@ evaluation. +-- +-- For @Dynamic@ evaluations, can\'t determine the target value because it +-- depends on the result of an intrinsic function, such as a @Ref@ or +-- @Fn::GetAtt@ intrinsic function, when the stack is updated. For example, +-- if your template includes a reference to a resource that\'s +-- conditionally recreated, the value of the reference (the physical ID of +-- the resource) might change, depending on if the resource is recreated. +-- If the resource is recreated, it will have a new physical ID, so all +-- references to that resource will also be updated. +-- +-- 'target', 'resourceChangeDetail_target' - A @ResourceTargetDefinition@ structure that describes the field that +-- CloudFormation will change and whether the resource will be recreated. +newResourceChangeDetail :: + ResourceChangeDetail +newResourceChangeDetail = + ResourceChangeDetail' + { causingEntity = + Prelude.Nothing, + changeSource = Prelude.Nothing, + evaluation = Prelude.Nothing, + target = Prelude.Nothing + } + +-- | The identity of the entity that triggered this change. This entity is a +-- member of the group that\'s specified by the @ChangeSource@ field. For +-- example, if you modified the value of the @KeyPairName@ parameter, the +-- @CausingEntity@ is the name of the parameter (@KeyPairName@). +-- +-- If the @ChangeSource@ value is @DirectModification@, no value is given +-- for @CausingEntity@. +resourceChangeDetail_causingEntity :: Lens.Lens' ResourceChangeDetail (Prelude.Maybe Prelude.Text) +resourceChangeDetail_causingEntity = Lens.lens (\ResourceChangeDetail' {causingEntity} -> causingEntity) (\s@ResourceChangeDetail' {} a -> s {causingEntity = a} :: ResourceChangeDetail) + +-- | The group to which the @CausingEntity@ value belongs. There are five +-- entity groups: +-- +-- - @ResourceReference@ entities are @Ref@ intrinsic functions that +-- refer to resources in the template, such as +-- @{ \"Ref\" : \"MyEC2InstanceResource\" }@. +-- +-- - @ParameterReference@ entities are @Ref@ intrinsic functions that get +-- template parameter values, such as +-- @{ \"Ref\" : \"MyPasswordParameter\" }@. +-- +-- - @ResourceAttribute@ entities are @Fn::GetAtt@ intrinsic functions +-- that get resource attribute values, such as +-- @{ \"Fn::GetAtt\" : [ \"MyEC2InstanceResource\", \"PublicDnsName\" ] }@. +-- +-- - @DirectModification@ entities are changes that are made directly to +-- the template. +-- +-- - @Automatic@ entities are @AWS::CloudFormation::Stack@ resource +-- types, which are also known as nested stacks. If you made no changes +-- to the @AWS::CloudFormation::Stack@ resource, CloudFormation sets +-- the @ChangeSource@ to @Automatic@ because the nested stack\'s +-- template might have changed. Changes to a nested stack\'s template +-- aren\'t visible to CloudFormation until you run an update on the +-- parent stack. +resourceChangeDetail_changeSource :: Lens.Lens' ResourceChangeDetail (Prelude.Maybe ChangeSource) +resourceChangeDetail_changeSource = Lens.lens (\ResourceChangeDetail' {changeSource} -> changeSource) (\s@ResourceChangeDetail' {} a -> s {changeSource = a} :: ResourceChangeDetail) + +-- | Indicates whether CloudFormation can determine the target value, and +-- whether the target value will change before you execute a change set. +-- +-- For @Static@ evaluations, CloudFormation can determine that the target +-- value will change, and its value. For example, if you directly modify +-- the @InstanceType@ property of an EC2 instance, CloudFormation knows +-- that this property value will change, and its value, so this is a +-- @Static@ evaluation. +-- +-- For @Dynamic@ evaluations, can\'t determine the target value because it +-- depends on the result of an intrinsic function, such as a @Ref@ or +-- @Fn::GetAtt@ intrinsic function, when the stack is updated. For example, +-- if your template includes a reference to a resource that\'s +-- conditionally recreated, the value of the reference (the physical ID of +-- the resource) might change, depending on if the resource is recreated. +-- If the resource is recreated, it will have a new physical ID, so all +-- references to that resource will also be updated. +resourceChangeDetail_evaluation :: Lens.Lens' ResourceChangeDetail (Prelude.Maybe EvaluationType) +resourceChangeDetail_evaluation = Lens.lens (\ResourceChangeDetail' {evaluation} -> evaluation) (\s@ResourceChangeDetail' {} a -> s {evaluation = a} :: ResourceChangeDetail) + +-- | A @ResourceTargetDefinition@ structure that describes the field that +-- CloudFormation will change and whether the resource will be recreated. +resourceChangeDetail_target :: Lens.Lens' ResourceChangeDetail (Prelude.Maybe ResourceTargetDefinition) +resourceChangeDetail_target = Lens.lens (\ResourceChangeDetail' {target} -> target) (\s@ResourceChangeDetail' {} a -> s {target = a} :: ResourceChangeDetail) + +instance Data.FromXML ResourceChangeDetail where + parseXML x = + ResourceChangeDetail' + Prelude.<$> (x Data..@? "CausingEntity") + Prelude.<*> (x Data..@? "ChangeSource") + Prelude.<*> (x Data..@? "Evaluation") + Prelude.<*> (x Data..@? "Target") + +instance Prelude.Hashable ResourceChangeDetail where + hashWithSalt _salt ResourceChangeDetail' {..} = + _salt + `Prelude.hashWithSalt` causingEntity + `Prelude.hashWithSalt` changeSource + `Prelude.hashWithSalt` evaluation + `Prelude.hashWithSalt` target + +instance Prelude.NFData ResourceChangeDetail where + rnf ResourceChangeDetail' {..} = + Prelude.rnf causingEntity + `Prelude.seq` Prelude.rnf changeSource + `Prelude.seq` Prelude.rnf evaluation + `Prelude.seq` Prelude.rnf target diff --git a/gen/Amazonka/CloudFormation/Types/ResourceIdentifierSummary.hs b/gen/Amazonka/CloudFormation/Types/ResourceIdentifierSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceIdentifierSummary.hs @@ -0,0 +1,116 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceIdentifierSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceIdentifierSummary where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Describes the target resources of a specific type in your import +-- template (for example, all @AWS::S3::Bucket@ resources) and the +-- properties you can provide during the import to identify resources of +-- that type. +-- +-- /See:/ 'newResourceIdentifierSummary' smart constructor. +data ResourceIdentifierSummary = ResourceIdentifierSummary' + { -- | The logical IDs of the target resources of the specified @ResourceType@, + -- as defined in the import template. + logicalResourceIds :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text), + -- | The resource properties you can provide during the import to identify + -- your target resources. For example, @BucketName@ is a possible + -- identifier property for @AWS::S3::Bucket@ resources. + resourceIdentifiers :: Prelude.Maybe [Prelude.Text], + -- | The template resource type of the target resources, such as + -- @AWS::S3::Bucket@. + resourceType :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ResourceIdentifierSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'logicalResourceIds', 'resourceIdentifierSummary_logicalResourceIds' - The logical IDs of the target resources of the specified @ResourceType@, +-- as defined in the import template. +-- +-- 'resourceIdentifiers', 'resourceIdentifierSummary_resourceIdentifiers' - The resource properties you can provide during the import to identify +-- your target resources. For example, @BucketName@ is a possible +-- identifier property for @AWS::S3::Bucket@ resources. +-- +-- 'resourceType', 'resourceIdentifierSummary_resourceType' - The template resource type of the target resources, such as +-- @AWS::S3::Bucket@. +newResourceIdentifierSummary :: + ResourceIdentifierSummary +newResourceIdentifierSummary = + ResourceIdentifierSummary' + { logicalResourceIds = + Prelude.Nothing, + resourceIdentifiers = Prelude.Nothing, + resourceType = Prelude.Nothing + } + +-- | The logical IDs of the target resources of the specified @ResourceType@, +-- as defined in the import template. +resourceIdentifierSummary_logicalResourceIds :: Lens.Lens' ResourceIdentifierSummary (Prelude.Maybe (Prelude.NonEmpty Prelude.Text)) +resourceIdentifierSummary_logicalResourceIds = Lens.lens (\ResourceIdentifierSummary' {logicalResourceIds} -> logicalResourceIds) (\s@ResourceIdentifierSummary' {} a -> s {logicalResourceIds = a} :: ResourceIdentifierSummary) Prelude.. Lens.mapping Lens.coerced + +-- | The resource properties you can provide during the import to identify +-- your target resources. For example, @BucketName@ is a possible +-- identifier property for @AWS::S3::Bucket@ resources. +resourceIdentifierSummary_resourceIdentifiers :: Lens.Lens' ResourceIdentifierSummary (Prelude.Maybe [Prelude.Text]) +resourceIdentifierSummary_resourceIdentifiers = Lens.lens (\ResourceIdentifierSummary' {resourceIdentifiers} -> resourceIdentifiers) (\s@ResourceIdentifierSummary' {} a -> s {resourceIdentifiers = a} :: ResourceIdentifierSummary) Prelude.. Lens.mapping Lens.coerced + +-- | The template resource type of the target resources, such as +-- @AWS::S3::Bucket@. +resourceIdentifierSummary_resourceType :: Lens.Lens' ResourceIdentifierSummary (Prelude.Maybe Prelude.Text) +resourceIdentifierSummary_resourceType = Lens.lens (\ResourceIdentifierSummary' {resourceType} -> resourceType) (\s@ResourceIdentifierSummary' {} a -> s {resourceType = a} :: ResourceIdentifierSummary) + +instance Data.FromXML ResourceIdentifierSummary where + parseXML x = + ResourceIdentifierSummary' + Prelude.<$> ( x + Data..@? "LogicalResourceIds" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList1 "member") + ) + Prelude.<*> ( x + Data..@? "ResourceIdentifiers" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "ResourceType") + +instance Prelude.Hashable ResourceIdentifierSummary where + hashWithSalt _salt ResourceIdentifierSummary' {..} = + _salt + `Prelude.hashWithSalt` logicalResourceIds + `Prelude.hashWithSalt` resourceIdentifiers + `Prelude.hashWithSalt` resourceType + +instance Prelude.NFData ResourceIdentifierSummary where + rnf ResourceIdentifierSummary' {..} = + Prelude.rnf logicalResourceIds + `Prelude.seq` Prelude.rnf resourceIdentifiers + `Prelude.seq` Prelude.rnf resourceType diff --git a/gen/Amazonka/CloudFormation/Types/ResourceSignalStatus.hs b/gen/Amazonka/CloudFormation/Types/ResourceSignalStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceSignalStatus.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceSignalStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceSignalStatus + ( ResourceSignalStatus + ( .., + ResourceSignalStatus_FAILURE, + ResourceSignalStatus_SUCCESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ResourceSignalStatus = ResourceSignalStatus' + { fromResourceSignalStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ResourceSignalStatus_FAILURE :: ResourceSignalStatus +pattern ResourceSignalStatus_FAILURE = ResourceSignalStatus' "FAILURE" + +pattern ResourceSignalStatus_SUCCESS :: ResourceSignalStatus +pattern ResourceSignalStatus_SUCCESS = ResourceSignalStatus' "SUCCESS" + +{-# COMPLETE + ResourceSignalStatus_FAILURE, + ResourceSignalStatus_SUCCESS, + ResourceSignalStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ResourceStatus.hs b/gen/Amazonka/CloudFormation/Types/ResourceStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceStatus.hs @@ -0,0 +1,171 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceStatus + ( ResourceStatus + ( .., + ResourceStatus_CREATE_COMPLETE, + ResourceStatus_CREATE_FAILED, + ResourceStatus_CREATE_IN_PROGRESS, + ResourceStatus_DELETE_COMPLETE, + ResourceStatus_DELETE_FAILED, + ResourceStatus_DELETE_IN_PROGRESS, + ResourceStatus_DELETE_SKIPPED, + ResourceStatus_IMPORT_COMPLETE, + ResourceStatus_IMPORT_FAILED, + ResourceStatus_IMPORT_IN_PROGRESS, + ResourceStatus_IMPORT_ROLLBACK_COMPLETE, + ResourceStatus_IMPORT_ROLLBACK_FAILED, + ResourceStatus_IMPORT_ROLLBACK_IN_PROGRESS, + ResourceStatus_ROLLBACK_COMPLETE, + ResourceStatus_ROLLBACK_FAILED, + ResourceStatus_ROLLBACK_IN_PROGRESS, + ResourceStatus_UPDATE_COMPLETE, + ResourceStatus_UPDATE_FAILED, + ResourceStatus_UPDATE_IN_PROGRESS, + ResourceStatus_UPDATE_ROLLBACK_COMPLETE, + ResourceStatus_UPDATE_ROLLBACK_FAILED, + ResourceStatus_UPDATE_ROLLBACK_IN_PROGRESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ResourceStatus = ResourceStatus' + { fromResourceStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ResourceStatus_CREATE_COMPLETE :: ResourceStatus +pattern ResourceStatus_CREATE_COMPLETE = ResourceStatus' "CREATE_COMPLETE" + +pattern ResourceStatus_CREATE_FAILED :: ResourceStatus +pattern ResourceStatus_CREATE_FAILED = ResourceStatus' "CREATE_FAILED" + +pattern ResourceStatus_CREATE_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_CREATE_IN_PROGRESS = ResourceStatus' "CREATE_IN_PROGRESS" + +pattern ResourceStatus_DELETE_COMPLETE :: ResourceStatus +pattern ResourceStatus_DELETE_COMPLETE = ResourceStatus' "DELETE_COMPLETE" + +pattern ResourceStatus_DELETE_FAILED :: ResourceStatus +pattern ResourceStatus_DELETE_FAILED = ResourceStatus' "DELETE_FAILED" + +pattern ResourceStatus_DELETE_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_DELETE_IN_PROGRESS = ResourceStatus' "DELETE_IN_PROGRESS" + +pattern ResourceStatus_DELETE_SKIPPED :: ResourceStatus +pattern ResourceStatus_DELETE_SKIPPED = ResourceStatus' "DELETE_SKIPPED" + +pattern ResourceStatus_IMPORT_COMPLETE :: ResourceStatus +pattern ResourceStatus_IMPORT_COMPLETE = ResourceStatus' "IMPORT_COMPLETE" + +pattern ResourceStatus_IMPORT_FAILED :: ResourceStatus +pattern ResourceStatus_IMPORT_FAILED = ResourceStatus' "IMPORT_FAILED" + +pattern ResourceStatus_IMPORT_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_IMPORT_IN_PROGRESS = ResourceStatus' "IMPORT_IN_PROGRESS" + +pattern ResourceStatus_IMPORT_ROLLBACK_COMPLETE :: ResourceStatus +pattern ResourceStatus_IMPORT_ROLLBACK_COMPLETE = ResourceStatus' "IMPORT_ROLLBACK_COMPLETE" + +pattern ResourceStatus_IMPORT_ROLLBACK_FAILED :: ResourceStatus +pattern ResourceStatus_IMPORT_ROLLBACK_FAILED = ResourceStatus' "IMPORT_ROLLBACK_FAILED" + +pattern ResourceStatus_IMPORT_ROLLBACK_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_IMPORT_ROLLBACK_IN_PROGRESS = ResourceStatus' "IMPORT_ROLLBACK_IN_PROGRESS" + +pattern ResourceStatus_ROLLBACK_COMPLETE :: ResourceStatus +pattern ResourceStatus_ROLLBACK_COMPLETE = ResourceStatus' "ROLLBACK_COMPLETE" + +pattern ResourceStatus_ROLLBACK_FAILED :: ResourceStatus +pattern ResourceStatus_ROLLBACK_FAILED = ResourceStatus' "ROLLBACK_FAILED" + +pattern ResourceStatus_ROLLBACK_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_ROLLBACK_IN_PROGRESS = ResourceStatus' "ROLLBACK_IN_PROGRESS" + +pattern ResourceStatus_UPDATE_COMPLETE :: ResourceStatus +pattern ResourceStatus_UPDATE_COMPLETE = ResourceStatus' "UPDATE_COMPLETE" + +pattern ResourceStatus_UPDATE_FAILED :: ResourceStatus +pattern ResourceStatus_UPDATE_FAILED = ResourceStatus' "UPDATE_FAILED" + +pattern ResourceStatus_UPDATE_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_UPDATE_IN_PROGRESS = ResourceStatus' "UPDATE_IN_PROGRESS" + +pattern ResourceStatus_UPDATE_ROLLBACK_COMPLETE :: ResourceStatus +pattern ResourceStatus_UPDATE_ROLLBACK_COMPLETE = ResourceStatus' "UPDATE_ROLLBACK_COMPLETE" + +pattern ResourceStatus_UPDATE_ROLLBACK_FAILED :: ResourceStatus +pattern ResourceStatus_UPDATE_ROLLBACK_FAILED = ResourceStatus' "UPDATE_ROLLBACK_FAILED" + +pattern ResourceStatus_UPDATE_ROLLBACK_IN_PROGRESS :: ResourceStatus +pattern ResourceStatus_UPDATE_ROLLBACK_IN_PROGRESS = ResourceStatus' "UPDATE_ROLLBACK_IN_PROGRESS" + +{-# COMPLETE + ResourceStatus_CREATE_COMPLETE, + ResourceStatus_CREATE_FAILED, + ResourceStatus_CREATE_IN_PROGRESS, + ResourceStatus_DELETE_COMPLETE, + ResourceStatus_DELETE_FAILED, + ResourceStatus_DELETE_IN_PROGRESS, + ResourceStatus_DELETE_SKIPPED, + ResourceStatus_IMPORT_COMPLETE, + ResourceStatus_IMPORT_FAILED, + ResourceStatus_IMPORT_IN_PROGRESS, + ResourceStatus_IMPORT_ROLLBACK_COMPLETE, + ResourceStatus_IMPORT_ROLLBACK_FAILED, + ResourceStatus_IMPORT_ROLLBACK_IN_PROGRESS, + ResourceStatus_ROLLBACK_COMPLETE, + ResourceStatus_ROLLBACK_FAILED, + ResourceStatus_ROLLBACK_IN_PROGRESS, + ResourceStatus_UPDATE_COMPLETE, + ResourceStatus_UPDATE_FAILED, + ResourceStatus_UPDATE_IN_PROGRESS, + ResourceStatus_UPDATE_ROLLBACK_COMPLETE, + ResourceStatus_UPDATE_ROLLBACK_FAILED, + ResourceStatus_UPDATE_ROLLBACK_IN_PROGRESS, + ResourceStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ResourceTargetDefinition.hs b/gen/Amazonka/CloudFormation/Types/ResourceTargetDefinition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceTargetDefinition.hs @@ -0,0 +1,117 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceTargetDefinition +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceTargetDefinition where + +import Amazonka.CloudFormation.Types.RequiresRecreation +import Amazonka.CloudFormation.Types.ResourceAttribute +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The field that CloudFormation will change, such as the name of a +-- resource\'s property, and whether the resource will be recreated. +-- +-- /See:/ 'newResourceTargetDefinition' smart constructor. +data ResourceTargetDefinition = ResourceTargetDefinition' + { -- | Indicates which resource attribute is triggering this update, such as a + -- change in the resource attribute\'s @Metadata@, @Properties@, or @Tags@. + attribute :: Prelude.Maybe ResourceAttribute, + -- | If the @Attribute@ value is @Properties@, the name of the property. For + -- all other attributes, the value is null. + name :: Prelude.Maybe Prelude.Text, + -- | If the @Attribute@ value is @Properties@, indicates whether a change to + -- this property causes the resource to be recreated. The value can be + -- @Never@, @Always@, or @Conditionally@. To determine the conditions for a + -- @Conditionally@ recreation, see the update behavior for that + -- + -- in the CloudFormation User Guide. + requiresRecreation :: Prelude.Maybe RequiresRecreation + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ResourceTargetDefinition' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'attribute', 'resourceTargetDefinition_attribute' - Indicates which resource attribute is triggering this update, such as a +-- change in the resource attribute\'s @Metadata@, @Properties@, or @Tags@. +-- +-- 'name', 'resourceTargetDefinition_name' - If the @Attribute@ value is @Properties@, the name of the property. For +-- all other attributes, the value is null. +-- +-- 'requiresRecreation', 'resourceTargetDefinition_requiresRecreation' - If the @Attribute@ value is @Properties@, indicates whether a change to +-- this property causes the resource to be recreated. The value can be +-- @Never@, @Always@, or @Conditionally@. To determine the conditions for a +-- @Conditionally@ recreation, see the update behavior for that +-- +-- in the CloudFormation User Guide. +newResourceTargetDefinition :: + ResourceTargetDefinition +newResourceTargetDefinition = + ResourceTargetDefinition' + { attribute = + Prelude.Nothing, + name = Prelude.Nothing, + requiresRecreation = Prelude.Nothing + } + +-- | Indicates which resource attribute is triggering this update, such as a +-- change in the resource attribute\'s @Metadata@, @Properties@, or @Tags@. +resourceTargetDefinition_attribute :: Lens.Lens' ResourceTargetDefinition (Prelude.Maybe ResourceAttribute) +resourceTargetDefinition_attribute = Lens.lens (\ResourceTargetDefinition' {attribute} -> attribute) (\s@ResourceTargetDefinition' {} a -> s {attribute = a} :: ResourceTargetDefinition) + +-- | If the @Attribute@ value is @Properties@, the name of the property. For +-- all other attributes, the value is null. +resourceTargetDefinition_name :: Lens.Lens' ResourceTargetDefinition (Prelude.Maybe Prelude.Text) +resourceTargetDefinition_name = Lens.lens (\ResourceTargetDefinition' {name} -> name) (\s@ResourceTargetDefinition' {} a -> s {name = a} :: ResourceTargetDefinition) + +-- | If the @Attribute@ value is @Properties@, indicates whether a change to +-- this property causes the resource to be recreated. The value can be +-- @Never@, @Always@, or @Conditionally@. To determine the conditions for a +-- @Conditionally@ recreation, see the update behavior for that +-- +-- in the CloudFormation User Guide. +resourceTargetDefinition_requiresRecreation :: Lens.Lens' ResourceTargetDefinition (Prelude.Maybe RequiresRecreation) +resourceTargetDefinition_requiresRecreation = Lens.lens (\ResourceTargetDefinition' {requiresRecreation} -> requiresRecreation) (\s@ResourceTargetDefinition' {} a -> s {requiresRecreation = a} :: ResourceTargetDefinition) + +instance Data.FromXML ResourceTargetDefinition where + parseXML x = + ResourceTargetDefinition' + Prelude.<$> (x Data..@? "Attribute") + Prelude.<*> (x Data..@? "Name") + Prelude.<*> (x Data..@? "RequiresRecreation") + +instance Prelude.Hashable ResourceTargetDefinition where + hashWithSalt _salt ResourceTargetDefinition' {..} = + _salt + `Prelude.hashWithSalt` attribute + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` requiresRecreation + +instance Prelude.NFData ResourceTargetDefinition where + rnf ResourceTargetDefinition' {..} = + Prelude.rnf attribute + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf requiresRecreation diff --git a/gen/Amazonka/CloudFormation/Types/ResourceToImport.hs b/gen/Amazonka/CloudFormation/Types/ResourceToImport.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ResourceToImport.hs @@ -0,0 +1,122 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ResourceToImport +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ResourceToImport where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Describes the target resource of an import operation. +-- +-- /See:/ 'newResourceToImport' smart constructor. +data ResourceToImport = ResourceToImport' + { -- | The type of resource to import into your stack, such as + -- @AWS::S3::Bucket@. For a list of supported resource types, see + -- + -- in the CloudFormation User Guide. + resourceType :: Prelude.Text, + -- | The logical ID of the target resource as specified in the template. + logicalResourceId :: Prelude.Text, + -- | A key-value pair that identifies the target resource. The key is an + -- identifier property (for example, @BucketName@ for @AWS::S3::Bucket@ + -- resources) and the value is the actual property value (for example, + -- @MyS3Bucket@). + resourceIdentifier :: Prelude.HashMap Prelude.Text Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ResourceToImport' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'resourceType', 'resourceToImport_resourceType' - The type of resource to import into your stack, such as +-- @AWS::S3::Bucket@. For a list of supported resource types, see +-- +-- in the CloudFormation User Guide. +-- +-- 'logicalResourceId', 'resourceToImport_logicalResourceId' - The logical ID of the target resource as specified in the template. +-- +-- 'resourceIdentifier', 'resourceToImport_resourceIdentifier' - A key-value pair that identifies the target resource. The key is an +-- identifier property (for example, @BucketName@ for @AWS::S3::Bucket@ +-- resources) and the value is the actual property value (for example, +-- @MyS3Bucket@). +newResourceToImport :: + -- | 'resourceType' + Prelude.Text -> + -- | 'logicalResourceId' + Prelude.Text -> + ResourceToImport +newResourceToImport + pResourceType_ + pLogicalResourceId_ = + ResourceToImport' + { resourceType = pResourceType_, + logicalResourceId = pLogicalResourceId_, + resourceIdentifier = Prelude.mempty + } + +-- | The type of resource to import into your stack, such as +-- @AWS::S3::Bucket@. For a list of supported resource types, see +-- +-- in the CloudFormation User Guide. +resourceToImport_resourceType :: Lens.Lens' ResourceToImport Prelude.Text +resourceToImport_resourceType = Lens.lens (\ResourceToImport' {resourceType} -> resourceType) (\s@ResourceToImport' {} a -> s {resourceType = a} :: ResourceToImport) + +-- | The logical ID of the target resource as specified in the template. +resourceToImport_logicalResourceId :: Lens.Lens' ResourceToImport Prelude.Text +resourceToImport_logicalResourceId = Lens.lens (\ResourceToImport' {logicalResourceId} -> logicalResourceId) (\s@ResourceToImport' {} a -> s {logicalResourceId = a} :: ResourceToImport) + +-- | A key-value pair that identifies the target resource. The key is an +-- identifier property (for example, @BucketName@ for @AWS::S3::Bucket@ +-- resources) and the value is the actual property value (for example, +-- @MyS3Bucket@). +resourceToImport_resourceIdentifier :: Lens.Lens' ResourceToImport (Prelude.HashMap Prelude.Text Prelude.Text) +resourceToImport_resourceIdentifier = Lens.lens (\ResourceToImport' {resourceIdentifier} -> resourceIdentifier) (\s@ResourceToImport' {} a -> s {resourceIdentifier = a} :: ResourceToImport) Prelude.. Lens.coerced + +instance Prelude.Hashable ResourceToImport where + hashWithSalt _salt ResourceToImport' {..} = + _salt + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` resourceIdentifier + +instance Prelude.NFData ResourceToImport where + rnf ResourceToImport' {..} = + Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf resourceIdentifier + +instance Data.ToQuery ResourceToImport where + toQuery ResourceToImport' {..} = + Prelude.mconcat + [ "ResourceType" Data.=: resourceType, + "LogicalResourceId" Data.=: logicalResourceId, + "ResourceIdentifier" + Data.=: Data.toQueryMap + "entry" + "key" + "value" + resourceIdentifier + ] diff --git a/gen/Amazonka/CloudFormation/Types/RollbackConfiguration.hs b/gen/Amazonka/CloudFormation/Types/RollbackConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RollbackConfiguration.hs @@ -0,0 +1,223 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RollbackConfiguration +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RollbackConfiguration where + +import Amazonka.CloudFormation.Types.RollbackTrigger +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Structure containing the rollback triggers for CloudFormation to monitor +-- during stack creation and updating operations, and for the specified +-- monitoring period afterwards. +-- +-- Rollback triggers enable you to have CloudFormation monitor the state of +-- your application during stack creation and updating, and to roll back +-- that operation if the application breaches the threshold of any of the +-- alarms you\'ve specified. For more information, see +-- . +-- +-- /See:/ 'newRollbackConfiguration' smart constructor. +data RollbackConfiguration = RollbackConfiguration' + { -- | The amount of time, in minutes, during which CloudFormation should + -- monitor all the rollback triggers after the stack creation or update + -- operation deploys all necessary resources. + -- + -- The default is 0 minutes. + -- + -- If you specify a monitoring period but don\'t specify any rollback + -- triggers, CloudFormation still waits the specified period of time before + -- cleaning up old resources after update operations. You can use this + -- monitoring period to perform any manual stack validation desired, and + -- manually cancel the stack creation or update (using + -- , + -- for example) as necessary. + -- + -- If you specify 0 for this parameter, CloudFormation still monitors the + -- specified rollback triggers during stack creation and update operations. + -- Then, for update operations, it begins disposing of old resources + -- immediately once the operation completes. + monitoringTimeInMinutes :: Prelude.Maybe Prelude.Natural, + -- | The triggers to monitor during stack creation or update actions. + -- + -- By default, CloudFormation saves the rollback triggers specified for a + -- stack and applies them to any subsequent update operations for the + -- stack, unless you specify otherwise. If you do specify rollback triggers + -- for this parameter, those triggers replace any list of triggers + -- previously specified for the stack. This means: + -- + -- - To use the rollback triggers previously specified for this stack, if + -- any, don\'t specify this parameter. + -- + -- - To specify new or updated rollback triggers, you must specify /all/ + -- the triggers that you want used for this stack, even triggers + -- you\'ve specified before (for example, when creating the stack or + -- during a previous stack update). Any triggers that you don\'t + -- include in the updated list of triggers are no longer applied to the + -- stack. + -- + -- - To remove all currently specified triggers, specify an empty list + -- for this parameter. + -- + -- If a specified trigger is missing, the entire stack operation fails and + -- is rolled back. + rollbackTriggers :: Prelude.Maybe [RollbackTrigger] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RollbackConfiguration' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'monitoringTimeInMinutes', 'rollbackConfiguration_monitoringTimeInMinutes' - The amount of time, in minutes, during which CloudFormation should +-- monitor all the rollback triggers after the stack creation or update +-- operation deploys all necessary resources. +-- +-- The default is 0 minutes. +-- +-- If you specify a monitoring period but don\'t specify any rollback +-- triggers, CloudFormation still waits the specified period of time before +-- cleaning up old resources after update operations. You can use this +-- monitoring period to perform any manual stack validation desired, and +-- manually cancel the stack creation or update (using +-- , +-- for example) as necessary. +-- +-- If you specify 0 for this parameter, CloudFormation still monitors the +-- specified rollback triggers during stack creation and update operations. +-- Then, for update operations, it begins disposing of old resources +-- immediately once the operation completes. +-- +-- 'rollbackTriggers', 'rollbackConfiguration_rollbackTriggers' - The triggers to monitor during stack creation or update actions. +-- +-- By default, CloudFormation saves the rollback triggers specified for a +-- stack and applies them to any subsequent update operations for the +-- stack, unless you specify otherwise. If you do specify rollback triggers +-- for this parameter, those triggers replace any list of triggers +-- previously specified for the stack. This means: +-- +-- - To use the rollback triggers previously specified for this stack, if +-- any, don\'t specify this parameter. +-- +-- - To specify new or updated rollback triggers, you must specify /all/ +-- the triggers that you want used for this stack, even triggers +-- you\'ve specified before (for example, when creating the stack or +-- during a previous stack update). Any triggers that you don\'t +-- include in the updated list of triggers are no longer applied to the +-- stack. +-- +-- - To remove all currently specified triggers, specify an empty list +-- for this parameter. +-- +-- If a specified trigger is missing, the entire stack operation fails and +-- is rolled back. +newRollbackConfiguration :: + RollbackConfiguration +newRollbackConfiguration = + RollbackConfiguration' + { monitoringTimeInMinutes = + Prelude.Nothing, + rollbackTriggers = Prelude.Nothing + } + +-- | The amount of time, in minutes, during which CloudFormation should +-- monitor all the rollback triggers after the stack creation or update +-- operation deploys all necessary resources. +-- +-- The default is 0 minutes. +-- +-- If you specify a monitoring period but don\'t specify any rollback +-- triggers, CloudFormation still waits the specified period of time before +-- cleaning up old resources after update operations. You can use this +-- monitoring period to perform any manual stack validation desired, and +-- manually cancel the stack creation or update (using +-- , +-- for example) as necessary. +-- +-- If you specify 0 for this parameter, CloudFormation still monitors the +-- specified rollback triggers during stack creation and update operations. +-- Then, for update operations, it begins disposing of old resources +-- immediately once the operation completes. +rollbackConfiguration_monitoringTimeInMinutes :: Lens.Lens' RollbackConfiguration (Prelude.Maybe Prelude.Natural) +rollbackConfiguration_monitoringTimeInMinutes = Lens.lens (\RollbackConfiguration' {monitoringTimeInMinutes} -> monitoringTimeInMinutes) (\s@RollbackConfiguration' {} a -> s {monitoringTimeInMinutes = a} :: RollbackConfiguration) + +-- | The triggers to monitor during stack creation or update actions. +-- +-- By default, CloudFormation saves the rollback triggers specified for a +-- stack and applies them to any subsequent update operations for the +-- stack, unless you specify otherwise. If you do specify rollback triggers +-- for this parameter, those triggers replace any list of triggers +-- previously specified for the stack. This means: +-- +-- - To use the rollback triggers previously specified for this stack, if +-- any, don\'t specify this parameter. +-- +-- - To specify new or updated rollback triggers, you must specify /all/ +-- the triggers that you want used for this stack, even triggers +-- you\'ve specified before (for example, when creating the stack or +-- during a previous stack update). Any triggers that you don\'t +-- include in the updated list of triggers are no longer applied to the +-- stack. +-- +-- - To remove all currently specified triggers, specify an empty list +-- for this parameter. +-- +-- If a specified trigger is missing, the entire stack operation fails and +-- is rolled back. +rollbackConfiguration_rollbackTriggers :: Lens.Lens' RollbackConfiguration (Prelude.Maybe [RollbackTrigger]) +rollbackConfiguration_rollbackTriggers = Lens.lens (\RollbackConfiguration' {rollbackTriggers} -> rollbackTriggers) (\s@RollbackConfiguration' {} a -> s {rollbackTriggers = a} :: RollbackConfiguration) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromXML RollbackConfiguration where + parseXML x = + RollbackConfiguration' + Prelude.<$> (x Data..@? "MonitoringTimeInMinutes") + Prelude.<*> ( x + Data..@? "RollbackTriggers" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + +instance Prelude.Hashable RollbackConfiguration where + hashWithSalt _salt RollbackConfiguration' {..} = + _salt + `Prelude.hashWithSalt` monitoringTimeInMinutes + `Prelude.hashWithSalt` rollbackTriggers + +instance Prelude.NFData RollbackConfiguration where + rnf RollbackConfiguration' {..} = + Prelude.rnf monitoringTimeInMinutes + `Prelude.seq` Prelude.rnf rollbackTriggers + +instance Data.ToQuery RollbackConfiguration where + toQuery RollbackConfiguration' {..} = + Prelude.mconcat + [ "MonitoringTimeInMinutes" + Data.=: monitoringTimeInMinutes, + "RollbackTriggers" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> rollbackTriggers + ) + ] diff --git a/gen/Amazonka/CloudFormation/Types/RollbackTrigger.hs b/gen/Amazonka/CloudFormation/Types/RollbackTrigger.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/RollbackTrigger.hs @@ -0,0 +1,109 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.RollbackTrigger +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.RollbackTrigger where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | A rollback trigger CloudFormation monitors during creation and updating +-- of stacks. If any of the alarms you specify goes to ALARM state during +-- the stack operation or within the specified monitoring period +-- afterwards, CloudFormation rolls back the entire stack operation. +-- +-- /See:/ 'newRollbackTrigger' smart constructor. +data RollbackTrigger = RollbackTrigger' + { -- | The Amazon Resource Name (ARN) of the rollback trigger. + -- + -- If a specified trigger is missing, the entire stack operation fails and + -- is rolled back. + arn :: Prelude.Text, + -- | The resource type of the rollback trigger. Specify either + -- + -- or + -- + -- resource types. + type' :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RollbackTrigger' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'rollbackTrigger_arn' - The Amazon Resource Name (ARN) of the rollback trigger. +-- +-- If a specified trigger is missing, the entire stack operation fails and +-- is rolled back. +-- +-- 'type'', 'rollbackTrigger_type' - The resource type of the rollback trigger. Specify either +-- +-- or +-- +-- resource types. +newRollbackTrigger :: + -- | 'arn' + Prelude.Text -> + -- | 'type'' + Prelude.Text -> + RollbackTrigger +newRollbackTrigger pArn_ pType_ = + RollbackTrigger' {arn = pArn_, type' = pType_} + +-- | The Amazon Resource Name (ARN) of the rollback trigger. +-- +-- If a specified trigger is missing, the entire stack operation fails and +-- is rolled back. +rollbackTrigger_arn :: Lens.Lens' RollbackTrigger Prelude.Text +rollbackTrigger_arn = Lens.lens (\RollbackTrigger' {arn} -> arn) (\s@RollbackTrigger' {} a -> s {arn = a} :: RollbackTrigger) + +-- | The resource type of the rollback trigger. Specify either +-- +-- or +-- +-- resource types. +rollbackTrigger_type :: Lens.Lens' RollbackTrigger Prelude.Text +rollbackTrigger_type = Lens.lens (\RollbackTrigger' {type'} -> type') (\s@RollbackTrigger' {} a -> s {type' = a} :: RollbackTrigger) + +instance Data.FromXML RollbackTrigger where + parseXML x = + RollbackTrigger' + Prelude.<$> (x Data..@ "Arn") + Prelude.<*> (x Data..@ "Type") + +instance Prelude.Hashable RollbackTrigger where + hashWithSalt _salt RollbackTrigger' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` type' + +instance Prelude.NFData RollbackTrigger where + rnf RollbackTrigger' {..} = + Prelude.rnf arn `Prelude.seq` Prelude.rnf type' + +instance Data.ToQuery RollbackTrigger where + toQuery RollbackTrigger' {..} = + Prelude.mconcat + ["Arn" Data.=: arn, "Type" Data.=: type'] diff --git a/gen/Amazonka/CloudFormation/Types/Stack.hs b/gen/Amazonka/CloudFormation/Types/Stack.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Stack.hs @@ -0,0 +1,455 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Stack +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Stack where + +import Amazonka.CloudFormation.Types.Capability +import Amazonka.CloudFormation.Types.Output +import Amazonka.CloudFormation.Types.Parameter +import Amazonka.CloudFormation.Types.RollbackConfiguration +import Amazonka.CloudFormation.Types.StackDriftInformation +import Amazonka.CloudFormation.Types.StackStatus +import Amazonka.CloudFormation.Types.Tag +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The Stack data type. +-- +-- /See:/ 'newStack' smart constructor. +data Stack = Stack' + { -- | The capabilities allowed in the stack. + capabilities :: Prelude.Maybe [Capability], + -- | The unique ID of the change set. + changeSetId :: Prelude.Maybe Prelude.Text, + -- | The time the stack was deleted. + deletionTime :: Prelude.Maybe Data.ISO8601, + -- | A user-defined description associated with the stack. + description :: Prelude.Maybe Prelude.Text, + -- | Boolean to enable or disable rollback on stack creation failures: + -- + -- - @true@: disable rollback. + -- + -- - @false@: enable rollback. + disableRollback :: Prelude.Maybe Prelude.Bool, + -- | Information about whether a stack\'s actual configuration differs, or + -- has /drifted/, from it\'s expected configuration, as defined in the + -- stack template and any values specified as template parameters. For more + -- information, see + -- . + driftInformation :: Prelude.Maybe StackDriftInformation, + -- | Whether termination protection is enabled for the stack. + -- + -- For + -- , + -- termination protection is set on the root stack and can\'t be changed + -- directly on the nested stack. For more information, see + -- + -- in the /CloudFormation User Guide/. + enableTerminationProtection :: Prelude.Maybe Prelude.Bool, + -- | The time the stack was last updated. This field will only be returned if + -- the stack has been updated at least once. + lastUpdatedTime :: Prelude.Maybe Data.ISO8601, + -- | Amazon SNS topic Amazon Resource Names (ARNs) to which stack related + -- events are published. + notificationARNs :: Prelude.Maybe [Prelude.Text], + -- | A list of output structures. + outputs :: Prelude.Maybe [Output], + -- | A list of @Parameter@ structures. + parameters :: Prelude.Maybe [Parameter], + -- | For nested stacks--stacks created as resources for another stack--the + -- stack ID of the direct parent of this stack. For the first level of + -- nested stacks, the root stack is also the parent stack. + -- + -- For more information, see + -- + -- in the /CloudFormation User Guide/. + parentId :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) of an Identity and Access Management + -- (IAM) role that\'s associated with the stack. During a stack operation, + -- CloudFormation uses this role\'s credentials to make calls on your + -- behalf. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The rollback triggers for CloudFormation to monitor during stack + -- creation and updating operations, and for the specified monitoring + -- period afterwards. + rollbackConfiguration :: Prelude.Maybe RollbackConfiguration, + -- | For nested stacks--stacks created as resources for another stack--the + -- stack ID of the top-level stack to which the nested stack ultimately + -- belongs. + -- + -- For more information, see + -- + -- in the /CloudFormation User Guide/. + rootId :: Prelude.Maybe Prelude.Text, + -- | Unique identifier of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | Success\/failure message associated with the stack status. + stackStatusReason :: Prelude.Maybe Prelude.Text, + -- | A list of @Tag@s that specify information about the stack. + tags :: Prelude.Maybe [Tag], + -- | The amount of time within which stack creation should complete. + timeoutInMinutes :: Prelude.Maybe Prelude.Natural, + -- | The name associated with the stack. + stackName :: Prelude.Text, + -- | The time at which the stack was created. + creationTime :: Data.ISO8601, + -- | Current status of the stack. + stackStatus :: StackStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Stack' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'stack_capabilities' - The capabilities allowed in the stack. +-- +-- 'changeSetId', 'stack_changeSetId' - The unique ID of the change set. +-- +-- 'deletionTime', 'stack_deletionTime' - The time the stack was deleted. +-- +-- 'description', 'stack_description' - A user-defined description associated with the stack. +-- +-- 'disableRollback', 'stack_disableRollback' - Boolean to enable or disable rollback on stack creation failures: +-- +-- - @true@: disable rollback. +-- +-- - @false@: enable rollback. +-- +-- 'driftInformation', 'stack_driftInformation' - Information about whether a stack\'s actual configuration differs, or +-- has /drifted/, from it\'s expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +-- +-- 'enableTerminationProtection', 'stack_enableTerminationProtection' - Whether termination protection is enabled for the stack. +-- +-- For +-- , +-- termination protection is set on the root stack and can\'t be changed +-- directly on the nested stack. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'lastUpdatedTime', 'stack_lastUpdatedTime' - The time the stack was last updated. This field will only be returned if +-- the stack has been updated at least once. +-- +-- 'notificationARNs', 'stack_notificationARNs' - Amazon SNS topic Amazon Resource Names (ARNs) to which stack related +-- events are published. +-- +-- 'outputs', 'stack_outputs' - A list of output structures. +-- +-- 'parameters', 'stack_parameters' - A list of @Parameter@ structures. +-- +-- 'parentId', 'stack_parentId' - For nested stacks--stacks created as resources for another stack--the +-- stack ID of the direct parent of this stack. For the first level of +-- nested stacks, the root stack is also the parent stack. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'roleARN', 'stack_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that\'s associated with the stack. During a stack operation, +-- CloudFormation uses this role\'s credentials to make calls on your +-- behalf. +-- +-- 'rollbackConfiguration', 'stack_rollbackConfiguration' - The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +-- +-- 'rootId', 'stack_rootId' - For nested stacks--stacks created as resources for another stack--the +-- stack ID of the top-level stack to which the nested stack ultimately +-- belongs. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackId', 'stack_stackId' - Unique identifier of the stack. +-- +-- 'stackStatusReason', 'stack_stackStatusReason' - Success\/failure message associated with the stack status. +-- +-- 'tags', 'stack_tags' - A list of @Tag@s that specify information about the stack. +-- +-- 'timeoutInMinutes', 'stack_timeoutInMinutes' - The amount of time within which stack creation should complete. +-- +-- 'stackName', 'stack_stackName' - The name associated with the stack. +-- +-- 'creationTime', 'stack_creationTime' - The time at which the stack was created. +-- +-- 'stackStatus', 'stack_stackStatus' - Current status of the stack. +newStack :: + -- | 'stackName' + Prelude.Text -> + -- | 'creationTime' + Prelude.UTCTime -> + -- | 'stackStatus' + StackStatus -> + Stack +newStack pStackName_ pCreationTime_ pStackStatus_ = + Stack' + { capabilities = Prelude.Nothing, + changeSetId = Prelude.Nothing, + deletionTime = Prelude.Nothing, + description = Prelude.Nothing, + disableRollback = Prelude.Nothing, + driftInformation = Prelude.Nothing, + enableTerminationProtection = Prelude.Nothing, + lastUpdatedTime = Prelude.Nothing, + notificationARNs = Prelude.Nothing, + outputs = Prelude.Nothing, + parameters = Prelude.Nothing, + parentId = Prelude.Nothing, + roleARN = Prelude.Nothing, + rollbackConfiguration = Prelude.Nothing, + rootId = Prelude.Nothing, + stackId = Prelude.Nothing, + stackStatusReason = Prelude.Nothing, + tags = Prelude.Nothing, + timeoutInMinutes = Prelude.Nothing, + stackName = pStackName_, + creationTime = Data._Time Lens.# pCreationTime_, + stackStatus = pStackStatus_ + } + +-- | The capabilities allowed in the stack. +stack_capabilities :: Lens.Lens' Stack (Prelude.Maybe [Capability]) +stack_capabilities = Lens.lens (\Stack' {capabilities} -> capabilities) (\s@Stack' {} a -> s {capabilities = a} :: Stack) Prelude.. Lens.mapping Lens.coerced + +-- | The unique ID of the change set. +stack_changeSetId :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_changeSetId = Lens.lens (\Stack' {changeSetId} -> changeSetId) (\s@Stack' {} a -> s {changeSetId = a} :: Stack) + +-- | The time the stack was deleted. +stack_deletionTime :: Lens.Lens' Stack (Prelude.Maybe Prelude.UTCTime) +stack_deletionTime = Lens.lens (\Stack' {deletionTime} -> deletionTime) (\s@Stack' {} a -> s {deletionTime = a} :: Stack) Prelude.. Lens.mapping Data._Time + +-- | A user-defined description associated with the stack. +stack_description :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_description = Lens.lens (\Stack' {description} -> description) (\s@Stack' {} a -> s {description = a} :: Stack) + +-- | Boolean to enable or disable rollback on stack creation failures: +-- +-- - @true@: disable rollback. +-- +-- - @false@: enable rollback. +stack_disableRollback :: Lens.Lens' Stack (Prelude.Maybe Prelude.Bool) +stack_disableRollback = Lens.lens (\Stack' {disableRollback} -> disableRollback) (\s@Stack' {} a -> s {disableRollback = a} :: Stack) + +-- | Information about whether a stack\'s actual configuration differs, or +-- has /drifted/, from it\'s expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +stack_driftInformation :: Lens.Lens' Stack (Prelude.Maybe StackDriftInformation) +stack_driftInformation = Lens.lens (\Stack' {driftInformation} -> driftInformation) (\s@Stack' {} a -> s {driftInformation = a} :: Stack) + +-- | Whether termination protection is enabled for the stack. +-- +-- For +-- , +-- termination protection is set on the root stack and can\'t be changed +-- directly on the nested stack. For more information, see +-- +-- in the /CloudFormation User Guide/. +stack_enableTerminationProtection :: Lens.Lens' Stack (Prelude.Maybe Prelude.Bool) +stack_enableTerminationProtection = Lens.lens (\Stack' {enableTerminationProtection} -> enableTerminationProtection) (\s@Stack' {} a -> s {enableTerminationProtection = a} :: Stack) + +-- | The time the stack was last updated. This field will only be returned if +-- the stack has been updated at least once. +stack_lastUpdatedTime :: Lens.Lens' Stack (Prelude.Maybe Prelude.UTCTime) +stack_lastUpdatedTime = Lens.lens (\Stack' {lastUpdatedTime} -> lastUpdatedTime) (\s@Stack' {} a -> s {lastUpdatedTime = a} :: Stack) Prelude.. Lens.mapping Data._Time + +-- | Amazon SNS topic Amazon Resource Names (ARNs) to which stack related +-- events are published. +stack_notificationARNs :: Lens.Lens' Stack (Prelude.Maybe [Prelude.Text]) +stack_notificationARNs = Lens.lens (\Stack' {notificationARNs} -> notificationARNs) (\s@Stack' {} a -> s {notificationARNs = a} :: Stack) Prelude.. Lens.mapping Lens.coerced + +-- | A list of output structures. +stack_outputs :: Lens.Lens' Stack (Prelude.Maybe [Output]) +stack_outputs = Lens.lens (\Stack' {outputs} -> outputs) (\s@Stack' {} a -> s {outputs = a} :: Stack) Prelude.. Lens.mapping Lens.coerced + +-- | A list of @Parameter@ structures. +stack_parameters :: Lens.Lens' Stack (Prelude.Maybe [Parameter]) +stack_parameters = Lens.lens (\Stack' {parameters} -> parameters) (\s@Stack' {} a -> s {parameters = a} :: Stack) Prelude.. Lens.mapping Lens.coerced + +-- | For nested stacks--stacks created as resources for another stack--the +-- stack ID of the direct parent of this stack. For the first level of +-- nested stacks, the root stack is also the parent stack. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +stack_parentId :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_parentId = Lens.lens (\Stack' {parentId} -> parentId) (\s@Stack' {} a -> s {parentId = a} :: Stack) + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that\'s associated with the stack. During a stack operation, +-- CloudFormation uses this role\'s credentials to make calls on your +-- behalf. +stack_roleARN :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_roleARN = Lens.lens (\Stack' {roleARN} -> roleARN) (\s@Stack' {} a -> s {roleARN = a} :: Stack) + +-- | The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +stack_rollbackConfiguration :: Lens.Lens' Stack (Prelude.Maybe RollbackConfiguration) +stack_rollbackConfiguration = Lens.lens (\Stack' {rollbackConfiguration} -> rollbackConfiguration) (\s@Stack' {} a -> s {rollbackConfiguration = a} :: Stack) + +-- | For nested stacks--stacks created as resources for another stack--the +-- stack ID of the top-level stack to which the nested stack ultimately +-- belongs. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +stack_rootId :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_rootId = Lens.lens (\Stack' {rootId} -> rootId) (\s@Stack' {} a -> s {rootId = a} :: Stack) + +-- | Unique identifier of the stack. +stack_stackId :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_stackId = Lens.lens (\Stack' {stackId} -> stackId) (\s@Stack' {} a -> s {stackId = a} :: Stack) + +-- | Success\/failure message associated with the stack status. +stack_stackStatusReason :: Lens.Lens' Stack (Prelude.Maybe Prelude.Text) +stack_stackStatusReason = Lens.lens (\Stack' {stackStatusReason} -> stackStatusReason) (\s@Stack' {} a -> s {stackStatusReason = a} :: Stack) + +-- | A list of @Tag@s that specify information about the stack. +stack_tags :: Lens.Lens' Stack (Prelude.Maybe [Tag]) +stack_tags = Lens.lens (\Stack' {tags} -> tags) (\s@Stack' {} a -> s {tags = a} :: Stack) Prelude.. Lens.mapping Lens.coerced + +-- | The amount of time within which stack creation should complete. +stack_timeoutInMinutes :: Lens.Lens' Stack (Prelude.Maybe Prelude.Natural) +stack_timeoutInMinutes = Lens.lens (\Stack' {timeoutInMinutes} -> timeoutInMinutes) (\s@Stack' {} a -> s {timeoutInMinutes = a} :: Stack) + +-- | The name associated with the stack. +stack_stackName :: Lens.Lens' Stack Prelude.Text +stack_stackName = Lens.lens (\Stack' {stackName} -> stackName) (\s@Stack' {} a -> s {stackName = a} :: Stack) + +-- | The time at which the stack was created. +stack_creationTime :: Lens.Lens' Stack Prelude.UTCTime +stack_creationTime = Lens.lens (\Stack' {creationTime} -> creationTime) (\s@Stack' {} a -> s {creationTime = a} :: Stack) Prelude.. Data._Time + +-- | Current status of the stack. +stack_stackStatus :: Lens.Lens' Stack StackStatus +stack_stackStatus = Lens.lens (\Stack' {stackStatus} -> stackStatus) (\s@Stack' {} a -> s {stackStatus = a} :: Stack) + +instance Data.FromXML Stack where + parseXML x = + Stack' + Prelude.<$> ( x + Data..@? "Capabilities" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "ChangeSetId") + Prelude.<*> (x Data..@? "DeletionTime") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "DisableRollback") + Prelude.<*> (x Data..@? "DriftInformation") + Prelude.<*> (x Data..@? "EnableTerminationProtection") + Prelude.<*> (x Data..@? "LastUpdatedTime") + Prelude.<*> ( x + Data..@? "NotificationARNs" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "Outputs" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "Parameters" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "ParentId") + Prelude.<*> (x Data..@? "RoleARN") + Prelude.<*> (x Data..@? "RollbackConfiguration") + Prelude.<*> (x Data..@? "RootId") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackStatusReason") + Prelude.<*> ( x + Data..@? "Tags" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "TimeoutInMinutes") + Prelude.<*> (x Data..@ "StackName") + Prelude.<*> (x Data..@ "CreationTime") + Prelude.<*> (x Data..@ "StackStatus") + +instance Prelude.Hashable Stack where + hashWithSalt _salt Stack' {..} = + _salt + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` changeSetId + `Prelude.hashWithSalt` deletionTime + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` disableRollback + `Prelude.hashWithSalt` driftInformation + `Prelude.hashWithSalt` enableTerminationProtection + `Prelude.hashWithSalt` lastUpdatedTime + `Prelude.hashWithSalt` notificationARNs + `Prelude.hashWithSalt` outputs + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` parentId + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` rollbackConfiguration + `Prelude.hashWithSalt` rootId + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackStatusReason + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` timeoutInMinutes + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` creationTime + `Prelude.hashWithSalt` stackStatus + +instance Prelude.NFData Stack where + rnf Stack' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf changeSetId + `Prelude.seq` Prelude.rnf deletionTime + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf disableRollback + `Prelude.seq` Prelude.rnf driftInformation + `Prelude.seq` Prelude.rnf enableTerminationProtection + `Prelude.seq` Prelude.rnf lastUpdatedTime + `Prelude.seq` Prelude.rnf notificationARNs + `Prelude.seq` Prelude.rnf outputs + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf parentId + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf rollbackConfiguration + `Prelude.seq` Prelude.rnf rootId + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackStatusReason + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf timeoutInMinutes + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf creationTime + `Prelude.seq` Prelude.rnf stackStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackDriftDetectionStatus.hs b/gen/Amazonka/CloudFormation/Types/StackDriftDetectionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackDriftDetectionStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackDriftDetectionStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackDriftDetectionStatus + ( StackDriftDetectionStatus + ( .., + StackDriftDetectionStatus_DETECTION_COMPLETE, + StackDriftDetectionStatus_DETECTION_FAILED, + StackDriftDetectionStatus_DETECTION_IN_PROGRESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackDriftDetectionStatus = StackDriftDetectionStatus' + { fromStackDriftDetectionStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackDriftDetectionStatus_DETECTION_COMPLETE :: StackDriftDetectionStatus +pattern StackDriftDetectionStatus_DETECTION_COMPLETE = StackDriftDetectionStatus' "DETECTION_COMPLETE" + +pattern StackDriftDetectionStatus_DETECTION_FAILED :: StackDriftDetectionStatus +pattern StackDriftDetectionStatus_DETECTION_FAILED = StackDriftDetectionStatus' "DETECTION_FAILED" + +pattern StackDriftDetectionStatus_DETECTION_IN_PROGRESS :: StackDriftDetectionStatus +pattern StackDriftDetectionStatus_DETECTION_IN_PROGRESS = StackDriftDetectionStatus' "DETECTION_IN_PROGRESS" + +{-# COMPLETE + StackDriftDetectionStatus_DETECTION_COMPLETE, + StackDriftDetectionStatus_DETECTION_FAILED, + StackDriftDetectionStatus_DETECTION_IN_PROGRESS, + StackDriftDetectionStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackDriftInformation.hs b/gen/Amazonka/CloudFormation/Types/StackDriftInformation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackDriftInformation.hs @@ -0,0 +1,130 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackDriftInformation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackDriftInformation where + +import Amazonka.CloudFormation.Types.StackDriftStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains information about whether the stack\'s actual configuration +-- differs, or has /drifted/, from its expected configuration, as defined +-- in the stack template and any values specified as template parameters. A +-- stack is considered to have drifted if one or more of its resources have +-- drifted. +-- +-- /See:/ 'newStackDriftInformation' smart constructor. +data StackDriftInformation = StackDriftInformation' + { -- | Most recent time when a drift detection operation was initiated on the + -- stack, or any of its individual resources that support drift detection. + lastCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | Status of the stack\'s actual configuration compared to its expected + -- template configuration. + -- + -- - @DRIFTED@: The stack differs from its expected template + -- configuration. A stack is considered to have drifted if one or more + -- of its resources have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs + -- from its expected template configuration. + -- + -- - @IN_SYNC@: The stack\'s actual configuration matches its expected + -- template configuration. + -- + -- - @UNKNOWN@: This value is reserved for future use. + stackDriftStatus :: StackDriftStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackDriftInformation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'lastCheckTimestamp', 'stackDriftInformation_lastCheckTimestamp' - Most recent time when a drift detection operation was initiated on the +-- stack, or any of its individual resources that support drift detection. +-- +-- 'stackDriftStatus', 'stackDriftInformation_stackDriftStatus' - Status of the stack\'s actual configuration compared to its expected +-- template configuration. +-- +-- - @DRIFTED@: The stack differs from its expected template +-- configuration. A stack is considered to have drifted if one or more +-- of its resources have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs +-- from its expected template configuration. +-- +-- - @IN_SYNC@: The stack\'s actual configuration matches its expected +-- template configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +newStackDriftInformation :: + -- | 'stackDriftStatus' + StackDriftStatus -> + StackDriftInformation +newStackDriftInformation pStackDriftStatus_ = + StackDriftInformation' + { lastCheckTimestamp = + Prelude.Nothing, + stackDriftStatus = pStackDriftStatus_ + } + +-- | Most recent time when a drift detection operation was initiated on the +-- stack, or any of its individual resources that support drift detection. +stackDriftInformation_lastCheckTimestamp :: Lens.Lens' StackDriftInformation (Prelude.Maybe Prelude.UTCTime) +stackDriftInformation_lastCheckTimestamp = Lens.lens (\StackDriftInformation' {lastCheckTimestamp} -> lastCheckTimestamp) (\s@StackDriftInformation' {} a -> s {lastCheckTimestamp = a} :: StackDriftInformation) Prelude.. Lens.mapping Data._Time + +-- | Status of the stack\'s actual configuration compared to its expected +-- template configuration. +-- +-- - @DRIFTED@: The stack differs from its expected template +-- configuration. A stack is considered to have drifted if one or more +-- of its resources have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs +-- from its expected template configuration. +-- +-- - @IN_SYNC@: The stack\'s actual configuration matches its expected +-- template configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +stackDriftInformation_stackDriftStatus :: Lens.Lens' StackDriftInformation StackDriftStatus +stackDriftInformation_stackDriftStatus = Lens.lens (\StackDriftInformation' {stackDriftStatus} -> stackDriftStatus) (\s@StackDriftInformation' {} a -> s {stackDriftStatus = a} :: StackDriftInformation) + +instance Data.FromXML StackDriftInformation where + parseXML x = + StackDriftInformation' + Prelude.<$> (x Data..@? "LastCheckTimestamp") + Prelude.<*> (x Data..@ "StackDriftStatus") + +instance Prelude.Hashable StackDriftInformation where + hashWithSalt _salt StackDriftInformation' {..} = + _salt + `Prelude.hashWithSalt` lastCheckTimestamp + `Prelude.hashWithSalt` stackDriftStatus + +instance Prelude.NFData StackDriftInformation where + rnf StackDriftInformation' {..} = + Prelude.rnf lastCheckTimestamp + `Prelude.seq` Prelude.rnf stackDriftStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackDriftInformationSummary.hs b/gen/Amazonka/CloudFormation/Types/StackDriftInformationSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackDriftInformationSummary.hs @@ -0,0 +1,133 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackDriftInformationSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackDriftInformationSummary where + +import Amazonka.CloudFormation.Types.StackDriftStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains information about whether the stack\'s actual configuration +-- differs, or has /drifted/, from its expected configuration, as defined +-- in the stack template and any values specified as template parameters. A +-- stack is considered to have drifted if one or more of its resources have +-- drifted. +-- +-- /See:/ 'newStackDriftInformationSummary' smart constructor. +data StackDriftInformationSummary = StackDriftInformationSummary' + { -- | Most recent time when a drift detection operation was initiated on the + -- stack, or any of its individual resources that support drift detection. + lastCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | Status of the stack\'s actual configuration compared to its expected + -- template configuration. + -- + -- - @DRIFTED@: The stack differs from its expected template + -- configuration. A stack is considered to have drifted if one or more + -- of its resources have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs + -- from its expected template configuration. + -- + -- - @IN_SYNC@: The stack\'s actual configuration matches its expected + -- template configuration. + -- + -- - @UNKNOWN@: This value is reserved for future use. + stackDriftStatus :: StackDriftStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackDriftInformationSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'lastCheckTimestamp', 'stackDriftInformationSummary_lastCheckTimestamp' - Most recent time when a drift detection operation was initiated on the +-- stack, or any of its individual resources that support drift detection. +-- +-- 'stackDriftStatus', 'stackDriftInformationSummary_stackDriftStatus' - Status of the stack\'s actual configuration compared to its expected +-- template configuration. +-- +-- - @DRIFTED@: The stack differs from its expected template +-- configuration. A stack is considered to have drifted if one or more +-- of its resources have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs +-- from its expected template configuration. +-- +-- - @IN_SYNC@: The stack\'s actual configuration matches its expected +-- template configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +newStackDriftInformationSummary :: + -- | 'stackDriftStatus' + StackDriftStatus -> + StackDriftInformationSummary +newStackDriftInformationSummary pStackDriftStatus_ = + StackDriftInformationSummary' + { lastCheckTimestamp = + Prelude.Nothing, + stackDriftStatus = pStackDriftStatus_ + } + +-- | Most recent time when a drift detection operation was initiated on the +-- stack, or any of its individual resources that support drift detection. +stackDriftInformationSummary_lastCheckTimestamp :: Lens.Lens' StackDriftInformationSummary (Prelude.Maybe Prelude.UTCTime) +stackDriftInformationSummary_lastCheckTimestamp = Lens.lens (\StackDriftInformationSummary' {lastCheckTimestamp} -> lastCheckTimestamp) (\s@StackDriftInformationSummary' {} a -> s {lastCheckTimestamp = a} :: StackDriftInformationSummary) Prelude.. Lens.mapping Data._Time + +-- | Status of the stack\'s actual configuration compared to its expected +-- template configuration. +-- +-- - @DRIFTED@: The stack differs from its expected template +-- configuration. A stack is considered to have drifted if one or more +-- of its resources have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack differs +-- from its expected template configuration. +-- +-- - @IN_SYNC@: The stack\'s actual configuration matches its expected +-- template configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +stackDriftInformationSummary_stackDriftStatus :: Lens.Lens' StackDriftInformationSummary StackDriftStatus +stackDriftInformationSummary_stackDriftStatus = Lens.lens (\StackDriftInformationSummary' {stackDriftStatus} -> stackDriftStatus) (\s@StackDriftInformationSummary' {} a -> s {stackDriftStatus = a} :: StackDriftInformationSummary) + +instance Data.FromXML StackDriftInformationSummary where + parseXML x = + StackDriftInformationSummary' + Prelude.<$> (x Data..@? "LastCheckTimestamp") + Prelude.<*> (x Data..@ "StackDriftStatus") + +instance + Prelude.Hashable + StackDriftInformationSummary + where + hashWithSalt _salt StackDriftInformationSummary' {..} = + _salt + `Prelude.hashWithSalt` lastCheckTimestamp + `Prelude.hashWithSalt` stackDriftStatus + +instance Prelude.NFData StackDriftInformationSummary where + rnf StackDriftInformationSummary' {..} = + Prelude.rnf lastCheckTimestamp + `Prelude.seq` Prelude.rnf stackDriftStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackDriftStatus.hs b/gen/Amazonka/CloudFormation/Types/StackDriftStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackDriftStatus.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackDriftStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackDriftStatus + ( StackDriftStatus + ( .., + StackDriftStatus_DRIFTED, + StackDriftStatus_IN_SYNC, + StackDriftStatus_NOT_CHECKED, + StackDriftStatus_UNKNOWN + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackDriftStatus = StackDriftStatus' + { fromStackDriftStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackDriftStatus_DRIFTED :: StackDriftStatus +pattern StackDriftStatus_DRIFTED = StackDriftStatus' "DRIFTED" + +pattern StackDriftStatus_IN_SYNC :: StackDriftStatus +pattern StackDriftStatus_IN_SYNC = StackDriftStatus' "IN_SYNC" + +pattern StackDriftStatus_NOT_CHECKED :: StackDriftStatus +pattern StackDriftStatus_NOT_CHECKED = StackDriftStatus' "NOT_CHECKED" + +pattern StackDriftStatus_UNKNOWN :: StackDriftStatus +pattern StackDriftStatus_UNKNOWN = StackDriftStatus' "UNKNOWN" + +{-# COMPLETE + StackDriftStatus_DRIFTED, + StackDriftStatus_IN_SYNC, + StackDriftStatus_NOT_CHECKED, + StackDriftStatus_UNKNOWN, + StackDriftStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackEvent.hs b/gen/Amazonka/CloudFormation/Types/StackEvent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackEvent.hs @@ -0,0 +1,333 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackEvent +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackEvent where + +import Amazonka.CloudFormation.Types.HookFailureMode +import Amazonka.CloudFormation.Types.HookInvocationPoint +import Amazonka.CloudFormation.Types.HookStatus +import Amazonka.CloudFormation.Types.ResourceStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The StackEvent data type. +-- +-- /See:/ 'newStackEvent' smart constructor. +data StackEvent = StackEvent' + { -- | The token passed to the operation that generated this event. + -- + -- All events triggered by a given stack operation are assigned the same + -- client request token, which you can use to track operations. For + -- example, if you execute a @CreateStack@ operation with the token + -- @token1@, then all the @StackEvents@ generated by that operation will + -- have @ClientRequestToken@ set as @token1@. + -- + -- In the console, stack operations display the client request token on the + -- Events tab. Stack operations that are initiated from the console use the + -- token format /Console-StackOperation-ID/, which helps you easily + -- identify the stack operation . For example, if you create a stack using + -- the console, each stack event would be assigned the same token in the + -- following format: + -- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | Specify the hook failure mode for non-compliant resources in the + -- followings ways. + -- + -- - @FAIL@ Stops provisioning resources. + -- + -- - @WARN@ Allows provisioning to continue with a warning message. + hookFailureMode :: Prelude.Maybe HookFailureMode, + -- | Invocation points are points in provisioning logic where hooks are + -- initiated. + hookInvocationPoint :: Prelude.Maybe HookInvocationPoint, + -- | Provides the status of the change set hook. + hookStatus :: Prelude.Maybe HookStatus, + -- | Provides the reason for the hook status. + hookStatusReason :: Prelude.Maybe Prelude.Text, + -- | The name of the hook. + hookType :: Prelude.Maybe Prelude.Text, + -- | The logical name of the resource specified in the template. + logicalResourceId :: Prelude.Maybe Prelude.Text, + -- | The name or unique identifier associated with the physical instance of + -- the resource. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | BLOB of the properties used to create the resource. + resourceProperties :: Prelude.Maybe Prelude.Text, + -- | Current status of the resource. + resourceStatus :: Prelude.Maybe ResourceStatus, + -- | Success\/failure message associated with the resource. + resourceStatusReason :: Prelude.Maybe Prelude.Text, + -- | Type of resource. (For more information, go to + -- + -- in the CloudFormation User Guide.) + resourceType :: Prelude.Maybe Prelude.Text, + -- | The unique ID name of the instance of the stack. + stackId :: Prelude.Text, + -- | The unique ID of this event. + eventId :: Prelude.Text, + -- | The name associated with a stack. + stackName :: Prelude.Text, + -- | Time the status was updated. + timestamp :: Data.ISO8601 + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackEvent' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'clientRequestToken', 'stackEvent_clientRequestToken' - The token passed to the operation that generated this event. +-- +-- All events triggered by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +-- +-- 'hookFailureMode', 'stackEvent_hookFailureMode' - Specify the hook failure mode for non-compliant resources in the +-- followings ways. +-- +-- - @FAIL@ Stops provisioning resources. +-- +-- - @WARN@ Allows provisioning to continue with a warning message. +-- +-- 'hookInvocationPoint', 'stackEvent_hookInvocationPoint' - Invocation points are points in provisioning logic where hooks are +-- initiated. +-- +-- 'hookStatus', 'stackEvent_hookStatus' - Provides the status of the change set hook. +-- +-- 'hookStatusReason', 'stackEvent_hookStatusReason' - Provides the reason for the hook status. +-- +-- 'hookType', 'stackEvent_hookType' - The name of the hook. +-- +-- 'logicalResourceId', 'stackEvent_logicalResourceId' - The logical name of the resource specified in the template. +-- +-- 'physicalResourceId', 'stackEvent_physicalResourceId' - The name or unique identifier associated with the physical instance of +-- the resource. +-- +-- 'resourceProperties', 'stackEvent_resourceProperties' - BLOB of the properties used to create the resource. +-- +-- 'resourceStatus', 'stackEvent_resourceStatus' - Current status of the resource. +-- +-- 'resourceStatusReason', 'stackEvent_resourceStatusReason' - Success\/failure message associated with the resource. +-- +-- 'resourceType', 'stackEvent_resourceType' - Type of resource. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- 'stackId', 'stackEvent_stackId' - The unique ID name of the instance of the stack. +-- +-- 'eventId', 'stackEvent_eventId' - The unique ID of this event. +-- +-- 'stackName', 'stackEvent_stackName' - The name associated with a stack. +-- +-- 'timestamp', 'stackEvent_timestamp' - Time the status was updated. +newStackEvent :: + -- | 'stackId' + Prelude.Text -> + -- | 'eventId' + Prelude.Text -> + -- | 'stackName' + Prelude.Text -> + -- | 'timestamp' + Prelude.UTCTime -> + StackEvent +newStackEvent + pStackId_ + pEventId_ + pStackName_ + pTimestamp_ = + StackEvent' + { clientRequestToken = Prelude.Nothing, + hookFailureMode = Prelude.Nothing, + hookInvocationPoint = Prelude.Nothing, + hookStatus = Prelude.Nothing, + hookStatusReason = Prelude.Nothing, + hookType = Prelude.Nothing, + logicalResourceId = Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + resourceProperties = Prelude.Nothing, + resourceStatus = Prelude.Nothing, + resourceStatusReason = Prelude.Nothing, + resourceType = Prelude.Nothing, + stackId = pStackId_, + eventId = pEventId_, + stackName = pStackName_, + timestamp = Data._Time Lens.# pTimestamp_ + } + +-- | The token passed to the operation that generated this event. +-- +-- All events triggered by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +stackEvent_clientRequestToken :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_clientRequestToken = Lens.lens (\StackEvent' {clientRequestToken} -> clientRequestToken) (\s@StackEvent' {} a -> s {clientRequestToken = a} :: StackEvent) + +-- | Specify the hook failure mode for non-compliant resources in the +-- followings ways. +-- +-- - @FAIL@ Stops provisioning resources. +-- +-- - @WARN@ Allows provisioning to continue with a warning message. +stackEvent_hookFailureMode :: Lens.Lens' StackEvent (Prelude.Maybe HookFailureMode) +stackEvent_hookFailureMode = Lens.lens (\StackEvent' {hookFailureMode} -> hookFailureMode) (\s@StackEvent' {} a -> s {hookFailureMode = a} :: StackEvent) + +-- | Invocation points are points in provisioning logic where hooks are +-- initiated. +stackEvent_hookInvocationPoint :: Lens.Lens' StackEvent (Prelude.Maybe HookInvocationPoint) +stackEvent_hookInvocationPoint = Lens.lens (\StackEvent' {hookInvocationPoint} -> hookInvocationPoint) (\s@StackEvent' {} a -> s {hookInvocationPoint = a} :: StackEvent) + +-- | Provides the status of the change set hook. +stackEvent_hookStatus :: Lens.Lens' StackEvent (Prelude.Maybe HookStatus) +stackEvent_hookStatus = Lens.lens (\StackEvent' {hookStatus} -> hookStatus) (\s@StackEvent' {} a -> s {hookStatus = a} :: StackEvent) + +-- | Provides the reason for the hook status. +stackEvent_hookStatusReason :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_hookStatusReason = Lens.lens (\StackEvent' {hookStatusReason} -> hookStatusReason) (\s@StackEvent' {} a -> s {hookStatusReason = a} :: StackEvent) + +-- | The name of the hook. +stackEvent_hookType :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_hookType = Lens.lens (\StackEvent' {hookType} -> hookType) (\s@StackEvent' {} a -> s {hookType = a} :: StackEvent) + +-- | The logical name of the resource specified in the template. +stackEvent_logicalResourceId :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_logicalResourceId = Lens.lens (\StackEvent' {logicalResourceId} -> logicalResourceId) (\s@StackEvent' {} a -> s {logicalResourceId = a} :: StackEvent) + +-- | The name or unique identifier associated with the physical instance of +-- the resource. +stackEvent_physicalResourceId :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_physicalResourceId = Lens.lens (\StackEvent' {physicalResourceId} -> physicalResourceId) (\s@StackEvent' {} a -> s {physicalResourceId = a} :: StackEvent) + +-- | BLOB of the properties used to create the resource. +stackEvent_resourceProperties :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_resourceProperties = Lens.lens (\StackEvent' {resourceProperties} -> resourceProperties) (\s@StackEvent' {} a -> s {resourceProperties = a} :: StackEvent) + +-- | Current status of the resource. +stackEvent_resourceStatus :: Lens.Lens' StackEvent (Prelude.Maybe ResourceStatus) +stackEvent_resourceStatus = Lens.lens (\StackEvent' {resourceStatus} -> resourceStatus) (\s@StackEvent' {} a -> s {resourceStatus = a} :: StackEvent) + +-- | Success\/failure message associated with the resource. +stackEvent_resourceStatusReason :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_resourceStatusReason = Lens.lens (\StackEvent' {resourceStatusReason} -> resourceStatusReason) (\s@StackEvent' {} a -> s {resourceStatusReason = a} :: StackEvent) + +-- | Type of resource. (For more information, go to +-- +-- in the CloudFormation User Guide.) +stackEvent_resourceType :: Lens.Lens' StackEvent (Prelude.Maybe Prelude.Text) +stackEvent_resourceType = Lens.lens (\StackEvent' {resourceType} -> resourceType) (\s@StackEvent' {} a -> s {resourceType = a} :: StackEvent) + +-- | The unique ID name of the instance of the stack. +stackEvent_stackId :: Lens.Lens' StackEvent Prelude.Text +stackEvent_stackId = Lens.lens (\StackEvent' {stackId} -> stackId) (\s@StackEvent' {} a -> s {stackId = a} :: StackEvent) + +-- | The unique ID of this event. +stackEvent_eventId :: Lens.Lens' StackEvent Prelude.Text +stackEvent_eventId = Lens.lens (\StackEvent' {eventId} -> eventId) (\s@StackEvent' {} a -> s {eventId = a} :: StackEvent) + +-- | The name associated with a stack. +stackEvent_stackName :: Lens.Lens' StackEvent Prelude.Text +stackEvent_stackName = Lens.lens (\StackEvent' {stackName} -> stackName) (\s@StackEvent' {} a -> s {stackName = a} :: StackEvent) + +-- | Time the status was updated. +stackEvent_timestamp :: Lens.Lens' StackEvent Prelude.UTCTime +stackEvent_timestamp = Lens.lens (\StackEvent' {timestamp} -> timestamp) (\s@StackEvent' {} a -> s {timestamp = a} :: StackEvent) Prelude.. Data._Time + +instance Data.FromXML StackEvent where + parseXML x = + StackEvent' + Prelude.<$> (x Data..@? "ClientRequestToken") + Prelude.<*> (x Data..@? "HookFailureMode") + Prelude.<*> (x Data..@? "HookInvocationPoint") + Prelude.<*> (x Data..@? "HookStatus") + Prelude.<*> (x Data..@? "HookStatusReason") + Prelude.<*> (x Data..@? "HookType") + Prelude.<*> (x Data..@? "LogicalResourceId") + Prelude.<*> (x Data..@? "PhysicalResourceId") + Prelude.<*> (x Data..@? "ResourceProperties") + Prelude.<*> (x Data..@? "ResourceStatus") + Prelude.<*> (x Data..@? "ResourceStatusReason") + Prelude.<*> (x Data..@? "ResourceType") + Prelude.<*> (x Data..@ "StackId") + Prelude.<*> (x Data..@ "EventId") + Prelude.<*> (x Data..@ "StackName") + Prelude.<*> (x Data..@ "Timestamp") + +instance Prelude.Hashable StackEvent where + hashWithSalt _salt StackEvent' {..} = + _salt + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` hookFailureMode + `Prelude.hashWithSalt` hookInvocationPoint + `Prelude.hashWithSalt` hookStatus + `Prelude.hashWithSalt` hookStatusReason + `Prelude.hashWithSalt` hookType + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` resourceProperties + `Prelude.hashWithSalt` resourceStatus + `Prelude.hashWithSalt` resourceStatusReason + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` eventId + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` timestamp + +instance Prelude.NFData StackEvent where + rnf StackEvent' {..} = + Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf hookFailureMode + `Prelude.seq` Prelude.rnf hookInvocationPoint + `Prelude.seq` Prelude.rnf hookStatus + `Prelude.seq` Prelude.rnf hookStatusReason + `Prelude.seq` Prelude.rnf hookType + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf resourceProperties + `Prelude.seq` Prelude.rnf resourceStatus + `Prelude.seq` Prelude.rnf resourceStatusReason + `Prelude.seq` Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf eventId + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf timestamp diff --git a/gen/Amazonka/CloudFormation/Types/StackInstance.hs b/gen/Amazonka/CloudFormation/Types/StackInstance.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstance.hs @@ -0,0 +1,350 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstance +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstance where + +import Amazonka.CloudFormation.Types.Parameter +import Amazonka.CloudFormation.Types.StackDriftStatus +import Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus +import Amazonka.CloudFormation.Types.StackInstanceStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | An CloudFormation stack, in a specific account and Region, that\'s part +-- of a stack set operation. A stack instance is a reference to an +-- attempted or actual stack in a given account within a given Region. A +-- stack instance can exist without a stack—for example, if the stack +-- couldn\'t be created for some reason. A stack instance is associated +-- with only one stack set. Each stack instance contains the ID of its +-- associated stack set, in addition to the ID of the actual stack and the +-- stack status. +-- +-- /See:/ 'newStackInstance' smart constructor. +data StackInstance = StackInstance' + { -- | [Self-managed permissions] The name of the Amazon Web Services account + -- that the stack instance is associated with. + account :: Prelude.Maybe Prelude.Text, + -- | Status of the stack instance\'s actual configuration compared to the + -- expected template and parameter configuration of the stack set to which + -- it belongs. + -- + -- - @DRIFTED@: The stack differs from the expected template and + -- parameter configuration of the stack set to which it belongs. A + -- stack instance is considered to have drifted if one or more of the + -- resources in the associated stack have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack instance + -- differs from its expected stack set configuration. + -- + -- - @IN_SYNC@: The stack instance\'s actual configuration matches its + -- expected stack set configuration. + -- + -- - @UNKNOWN@: This value is reserved for future use. + driftStatus :: Prelude.Maybe StackDriftStatus, + -- | Most recent time when CloudFormation performed a drift detection + -- operation on the stack instance. This value will be @NULL@ for any stack + -- instance on which drift detection hasn\'t yet been performed. + lastDriftCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | The last unique ID of a StackSet operation performed on a stack + -- instance. + lastOperationId :: Prelude.Maybe Prelude.Text, + -- | [Service-managed permissions] The organization root ID or organizational + -- unit (OU) IDs that you specified for + -- . + organizationalUnitId :: Prelude.Maybe Prelude.Text, + -- | A list of parameters from the stack set template whose values have been + -- overridden in this stack instance. + parameterOverrides :: Prelude.Maybe [Parameter], + -- | The name of the Amazon Web Services Region that the stack instance is + -- associated with. + region :: Prelude.Maybe Prelude.Text, + -- | The ID of the stack instance. + stackId :: Prelude.Maybe Prelude.Text, + -- | The detailed status of the stack instance. + stackInstanceStatus :: Prelude.Maybe StackInstanceComprehensiveStatus, + -- | The name or unique ID of the stack set that the stack instance is + -- associated with. + stackSetId :: Prelude.Maybe Prelude.Text, + -- | The status of the stack instance, in terms of its synchronization with + -- its associated stack set. + -- + -- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left + -- the stack in an unstable state. Stacks in this state are excluded + -- from further @UpdateStackSet@ operations. You might need to perform + -- a @DeleteStackInstances@ operation, with @RetainStacks@ set to + -- @true@, to delete the stack instance, and then delete the stack + -- manually. + -- + -- - @OUTDATED@: The stack isn\'t currently up to date with the stack set + -- because: + -- + -- - The associated stack failed during a @CreateStackSet@ or + -- @UpdateStackSet@ operation. + -- + -- - The stack was part of a @CreateStackSet@ or @UpdateStackSet@ + -- operation that failed or was stopped before the stack was + -- created or updated. + -- + -- - @CURRENT@: The stack is currently up to date with the stack set. + status :: Prelude.Maybe StackInstanceStatus, + -- | The explanation for the specific status code that\'s assigned to this + -- stack instance. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackInstance' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'account', 'stackInstance_account' - [Self-managed permissions] The name of the Amazon Web Services account +-- that the stack instance is associated with. +-- +-- 'driftStatus', 'stackInstance_driftStatus' - Status of the stack instance\'s actual configuration compared to the +-- expected template and parameter configuration of the stack set to which +-- it belongs. +-- +-- - @DRIFTED@: The stack differs from the expected template and +-- parameter configuration of the stack set to which it belongs. A +-- stack instance is considered to have drifted if one or more of the +-- resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack instance +-- differs from its expected stack set configuration. +-- +-- - @IN_SYNC@: The stack instance\'s actual configuration matches its +-- expected stack set configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +-- +-- 'lastDriftCheckTimestamp', 'stackInstance_lastDriftCheckTimestamp' - Most recent time when CloudFormation performed a drift detection +-- operation on the stack instance. This value will be @NULL@ for any stack +-- instance on which drift detection hasn\'t yet been performed. +-- +-- 'lastOperationId', 'stackInstance_lastOperationId' - The last unique ID of a StackSet operation performed on a stack +-- instance. +-- +-- 'organizationalUnitId', 'stackInstance_organizationalUnitId' - [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +-- +-- 'parameterOverrides', 'stackInstance_parameterOverrides' - A list of parameters from the stack set template whose values have been +-- overridden in this stack instance. +-- +-- 'region', 'stackInstance_region' - The name of the Amazon Web Services Region that the stack instance is +-- associated with. +-- +-- 'stackId', 'stackInstance_stackId' - The ID of the stack instance. +-- +-- 'stackInstanceStatus', 'stackInstance_stackInstanceStatus' - The detailed status of the stack instance. +-- +-- 'stackSetId', 'stackInstance_stackSetId' - The name or unique ID of the stack set that the stack instance is +-- associated with. +-- +-- 'status', 'stackInstance_status' - The status of the stack instance, in terms of its synchronization with +-- its associated stack set. +-- +-- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left +-- the stack in an unstable state. Stacks in this state are excluded +-- from further @UpdateStackSet@ operations. You might need to perform +-- a @DeleteStackInstances@ operation, with @RetainStacks@ set to +-- @true@, to delete the stack instance, and then delete the stack +-- manually. +-- +-- - @OUTDATED@: The stack isn\'t currently up to date with the stack set +-- because: +-- +-- - The associated stack failed during a @CreateStackSet@ or +-- @UpdateStackSet@ operation. +-- +-- - The stack was part of a @CreateStackSet@ or @UpdateStackSet@ +-- operation that failed or was stopped before the stack was +-- created or updated. +-- +-- - @CURRENT@: The stack is currently up to date with the stack set. +-- +-- 'statusReason', 'stackInstance_statusReason' - The explanation for the specific status code that\'s assigned to this +-- stack instance. +newStackInstance :: + StackInstance +newStackInstance = + StackInstance' + { account = Prelude.Nothing, + driftStatus = Prelude.Nothing, + lastDriftCheckTimestamp = Prelude.Nothing, + lastOperationId = Prelude.Nothing, + organizationalUnitId = Prelude.Nothing, + parameterOverrides = Prelude.Nothing, + region = Prelude.Nothing, + stackId = Prelude.Nothing, + stackInstanceStatus = Prelude.Nothing, + stackSetId = Prelude.Nothing, + status = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | [Self-managed permissions] The name of the Amazon Web Services account +-- that the stack instance is associated with. +stackInstance_account :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_account = Lens.lens (\StackInstance' {account} -> account) (\s@StackInstance' {} a -> s {account = a} :: StackInstance) + +-- | Status of the stack instance\'s actual configuration compared to the +-- expected template and parameter configuration of the stack set to which +-- it belongs. +-- +-- - @DRIFTED@: The stack differs from the expected template and +-- parameter configuration of the stack set to which it belongs. A +-- stack instance is considered to have drifted if one or more of the +-- resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack instance +-- differs from its expected stack set configuration. +-- +-- - @IN_SYNC@: The stack instance\'s actual configuration matches its +-- expected stack set configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +stackInstance_driftStatus :: Lens.Lens' StackInstance (Prelude.Maybe StackDriftStatus) +stackInstance_driftStatus = Lens.lens (\StackInstance' {driftStatus} -> driftStatus) (\s@StackInstance' {} a -> s {driftStatus = a} :: StackInstance) + +-- | Most recent time when CloudFormation performed a drift detection +-- operation on the stack instance. This value will be @NULL@ for any stack +-- instance on which drift detection hasn\'t yet been performed. +stackInstance_lastDriftCheckTimestamp :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.UTCTime) +stackInstance_lastDriftCheckTimestamp = Lens.lens (\StackInstance' {lastDriftCheckTimestamp} -> lastDriftCheckTimestamp) (\s@StackInstance' {} a -> s {lastDriftCheckTimestamp = a} :: StackInstance) Prelude.. Lens.mapping Data._Time + +-- | The last unique ID of a StackSet operation performed on a stack +-- instance. +stackInstance_lastOperationId :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_lastOperationId = Lens.lens (\StackInstance' {lastOperationId} -> lastOperationId) (\s@StackInstance' {} a -> s {lastOperationId = a} :: StackInstance) + +-- | [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +stackInstance_organizationalUnitId :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_organizationalUnitId = Lens.lens (\StackInstance' {organizationalUnitId} -> organizationalUnitId) (\s@StackInstance' {} a -> s {organizationalUnitId = a} :: StackInstance) + +-- | A list of parameters from the stack set template whose values have been +-- overridden in this stack instance. +stackInstance_parameterOverrides :: Lens.Lens' StackInstance (Prelude.Maybe [Parameter]) +stackInstance_parameterOverrides = Lens.lens (\StackInstance' {parameterOverrides} -> parameterOverrides) (\s@StackInstance' {} a -> s {parameterOverrides = a} :: StackInstance) Prelude.. Lens.mapping Lens.coerced + +-- | The name of the Amazon Web Services Region that the stack instance is +-- associated with. +stackInstance_region :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_region = Lens.lens (\StackInstance' {region} -> region) (\s@StackInstance' {} a -> s {region = a} :: StackInstance) + +-- | The ID of the stack instance. +stackInstance_stackId :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_stackId = Lens.lens (\StackInstance' {stackId} -> stackId) (\s@StackInstance' {} a -> s {stackId = a} :: StackInstance) + +-- | The detailed status of the stack instance. +stackInstance_stackInstanceStatus :: Lens.Lens' StackInstance (Prelude.Maybe StackInstanceComprehensiveStatus) +stackInstance_stackInstanceStatus = Lens.lens (\StackInstance' {stackInstanceStatus} -> stackInstanceStatus) (\s@StackInstance' {} a -> s {stackInstanceStatus = a} :: StackInstance) + +-- | The name or unique ID of the stack set that the stack instance is +-- associated with. +stackInstance_stackSetId :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_stackSetId = Lens.lens (\StackInstance' {stackSetId} -> stackSetId) (\s@StackInstance' {} a -> s {stackSetId = a} :: StackInstance) + +-- | The status of the stack instance, in terms of its synchronization with +-- its associated stack set. +-- +-- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left +-- the stack in an unstable state. Stacks in this state are excluded +-- from further @UpdateStackSet@ operations. You might need to perform +-- a @DeleteStackInstances@ operation, with @RetainStacks@ set to +-- @true@, to delete the stack instance, and then delete the stack +-- manually. +-- +-- - @OUTDATED@: The stack isn\'t currently up to date with the stack set +-- because: +-- +-- - The associated stack failed during a @CreateStackSet@ or +-- @UpdateStackSet@ operation. +-- +-- - The stack was part of a @CreateStackSet@ or @UpdateStackSet@ +-- operation that failed or was stopped before the stack was +-- created or updated. +-- +-- - @CURRENT@: The stack is currently up to date with the stack set. +stackInstance_status :: Lens.Lens' StackInstance (Prelude.Maybe StackInstanceStatus) +stackInstance_status = Lens.lens (\StackInstance' {status} -> status) (\s@StackInstance' {} a -> s {status = a} :: StackInstance) + +-- | The explanation for the specific status code that\'s assigned to this +-- stack instance. +stackInstance_statusReason :: Lens.Lens' StackInstance (Prelude.Maybe Prelude.Text) +stackInstance_statusReason = Lens.lens (\StackInstance' {statusReason} -> statusReason) (\s@StackInstance' {} a -> s {statusReason = a} :: StackInstance) + +instance Data.FromXML StackInstance where + parseXML x = + StackInstance' + Prelude.<$> (x Data..@? "Account") + Prelude.<*> (x Data..@? "DriftStatus") + Prelude.<*> (x Data..@? "LastDriftCheckTimestamp") + Prelude.<*> (x Data..@? "LastOperationId") + Prelude.<*> (x Data..@? "OrganizationalUnitId") + Prelude.<*> ( x + Data..@? "ParameterOverrides" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "Region") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackInstanceStatus") + Prelude.<*> (x Data..@? "StackSetId") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusReason") + +instance Prelude.Hashable StackInstance where + hashWithSalt _salt StackInstance' {..} = + _salt + `Prelude.hashWithSalt` account + `Prelude.hashWithSalt` driftStatus + `Prelude.hashWithSalt` lastDriftCheckTimestamp + `Prelude.hashWithSalt` lastOperationId + `Prelude.hashWithSalt` organizationalUnitId + `Prelude.hashWithSalt` parameterOverrides + `Prelude.hashWithSalt` region + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackInstanceStatus + `Prelude.hashWithSalt` stackSetId + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusReason + +instance Prelude.NFData StackInstance where + rnf StackInstance' {..} = + Prelude.rnf account + `Prelude.seq` Prelude.rnf driftStatus + `Prelude.seq` Prelude.rnf lastDriftCheckTimestamp + `Prelude.seq` Prelude.rnf lastOperationId + `Prelude.seq` Prelude.rnf organizationalUnitId + `Prelude.seq` Prelude.rnf parameterOverrides + `Prelude.seq` Prelude.rnf region + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackInstanceStatus + `Prelude.seq` Prelude.rnf stackSetId + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/StackInstanceComprehensiveStatus.hs b/gen/Amazonka/CloudFormation/Types/StackInstanceComprehensiveStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstanceComprehensiveStatus.hs @@ -0,0 +1,152 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus where + +import Amazonka.CloudFormation.Types.StackInstanceDetailedStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The detailed status of the stack instance. +-- +-- /See:/ 'newStackInstanceComprehensiveStatus' smart constructor. +data StackInstanceComprehensiveStatus = StackInstanceComprehensiveStatus' + { -- | - @CANCELLED@: The operation in the specified account and Region has + -- been canceled. This is either because a user has stopped the stack + -- set operation, or because the failure tolerance of the stack set + -- operation has been exceeded. + -- + -- - @FAILED@: The operation in the specified account and Region failed. + -- If the stack set operation fails in enough accounts within a Region, + -- the failure tolerance for the stack set operation as a whole might + -- be exceeded. + -- + -- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left + -- the stack in an unstable state. Stacks in this state are excluded + -- from further @UpdateStackSet@ operations. You might need to perform + -- a @DeleteStackInstances@ operation, with @RetainStacks@ set to + -- @true@, to delete the stack instance, and then delete the stack + -- manually. + -- + -- - @PENDING@: The operation in the specified account and Region has yet + -- to start. + -- + -- - @RUNNING@: The operation in the specified account and Region is + -- currently in progress. + -- + -- - @SUCCEEDED@: The operation in the specified account and Region + -- completed successfully. + detailedStatus :: Prelude.Maybe StackInstanceDetailedStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackInstanceComprehensiveStatus' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'detailedStatus', 'stackInstanceComprehensiveStatus_detailedStatus' - - @CANCELLED@: The operation in the specified account and Region has +-- been canceled. This is either because a user has stopped the stack +-- set operation, or because the failure tolerance of the stack set +-- operation has been exceeded. +-- +-- - @FAILED@: The operation in the specified account and Region failed. +-- If the stack set operation fails in enough accounts within a Region, +-- the failure tolerance for the stack set operation as a whole might +-- be exceeded. +-- +-- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left +-- the stack in an unstable state. Stacks in this state are excluded +-- from further @UpdateStackSet@ operations. You might need to perform +-- a @DeleteStackInstances@ operation, with @RetainStacks@ set to +-- @true@, to delete the stack instance, and then delete the stack +-- manually. +-- +-- - @PENDING@: The operation in the specified account and Region has yet +-- to start. +-- +-- - @RUNNING@: The operation in the specified account and Region is +-- currently in progress. +-- +-- - @SUCCEEDED@: The operation in the specified account and Region +-- completed successfully. +newStackInstanceComprehensiveStatus :: + StackInstanceComprehensiveStatus +newStackInstanceComprehensiveStatus = + StackInstanceComprehensiveStatus' + { detailedStatus = + Prelude.Nothing + } + +-- | - @CANCELLED@: The operation in the specified account and Region has +-- been canceled. This is either because a user has stopped the stack +-- set operation, or because the failure tolerance of the stack set +-- operation has been exceeded. +-- +-- - @FAILED@: The operation in the specified account and Region failed. +-- If the stack set operation fails in enough accounts within a Region, +-- the failure tolerance for the stack set operation as a whole might +-- be exceeded. +-- +-- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left +-- the stack in an unstable state. Stacks in this state are excluded +-- from further @UpdateStackSet@ operations. You might need to perform +-- a @DeleteStackInstances@ operation, with @RetainStacks@ set to +-- @true@, to delete the stack instance, and then delete the stack +-- manually. +-- +-- - @PENDING@: The operation in the specified account and Region has yet +-- to start. +-- +-- - @RUNNING@: The operation in the specified account and Region is +-- currently in progress. +-- +-- - @SUCCEEDED@: The operation in the specified account and Region +-- completed successfully. +stackInstanceComprehensiveStatus_detailedStatus :: Lens.Lens' StackInstanceComprehensiveStatus (Prelude.Maybe StackInstanceDetailedStatus) +stackInstanceComprehensiveStatus_detailedStatus = Lens.lens (\StackInstanceComprehensiveStatus' {detailedStatus} -> detailedStatus) (\s@StackInstanceComprehensiveStatus' {} a -> s {detailedStatus = a} :: StackInstanceComprehensiveStatus) + +instance + Data.FromXML + StackInstanceComprehensiveStatus + where + parseXML x = + StackInstanceComprehensiveStatus' + Prelude.<$> (x Data..@? "DetailedStatus") + +instance + Prelude.Hashable + StackInstanceComprehensiveStatus + where + hashWithSalt + _salt + StackInstanceComprehensiveStatus' {..} = + _salt `Prelude.hashWithSalt` detailedStatus + +instance + Prelude.NFData + StackInstanceComprehensiveStatus + where + rnf StackInstanceComprehensiveStatus' {..} = + Prelude.rnf detailedStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackInstanceDetailedStatus.hs b/gen/Amazonka/CloudFormation/Types/StackInstanceDetailedStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstanceDetailedStatus.hs @@ -0,0 +1,91 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstanceDetailedStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstanceDetailedStatus + ( StackInstanceDetailedStatus + ( .., + StackInstanceDetailedStatus_CANCELLED, + StackInstanceDetailedStatus_FAILED, + StackInstanceDetailedStatus_INOPERABLE, + StackInstanceDetailedStatus_PENDING, + StackInstanceDetailedStatus_RUNNING, + StackInstanceDetailedStatus_SUCCEEDED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackInstanceDetailedStatus = StackInstanceDetailedStatus' + { fromStackInstanceDetailedStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackInstanceDetailedStatus_CANCELLED :: StackInstanceDetailedStatus +pattern StackInstanceDetailedStatus_CANCELLED = StackInstanceDetailedStatus' "CANCELLED" + +pattern StackInstanceDetailedStatus_FAILED :: StackInstanceDetailedStatus +pattern StackInstanceDetailedStatus_FAILED = StackInstanceDetailedStatus' "FAILED" + +pattern StackInstanceDetailedStatus_INOPERABLE :: StackInstanceDetailedStatus +pattern StackInstanceDetailedStatus_INOPERABLE = StackInstanceDetailedStatus' "INOPERABLE" + +pattern StackInstanceDetailedStatus_PENDING :: StackInstanceDetailedStatus +pattern StackInstanceDetailedStatus_PENDING = StackInstanceDetailedStatus' "PENDING" + +pattern StackInstanceDetailedStatus_RUNNING :: StackInstanceDetailedStatus +pattern StackInstanceDetailedStatus_RUNNING = StackInstanceDetailedStatus' "RUNNING" + +pattern StackInstanceDetailedStatus_SUCCEEDED :: StackInstanceDetailedStatus +pattern StackInstanceDetailedStatus_SUCCEEDED = StackInstanceDetailedStatus' "SUCCEEDED" + +{-# COMPLETE + StackInstanceDetailedStatus_CANCELLED, + StackInstanceDetailedStatus_FAILED, + StackInstanceDetailedStatus_INOPERABLE, + StackInstanceDetailedStatus_PENDING, + StackInstanceDetailedStatus_RUNNING, + StackInstanceDetailedStatus_SUCCEEDED, + StackInstanceDetailedStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackInstanceFilter.hs b/gen/Amazonka/CloudFormation/Types/StackInstanceFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstanceFilter.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstanceFilter +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstanceFilter where + +import Amazonka.CloudFormation.Types.StackInstanceFilterName +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The filter to apply to stack instances +-- +-- /See:/ 'newStackInstanceFilter' smart constructor. +data StackInstanceFilter = StackInstanceFilter' + { -- | The type of filter to apply. + name :: Prelude.Maybe StackInstanceFilterName, + -- | The status to filter by. + values :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackInstanceFilter' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'name', 'stackInstanceFilter_name' - The type of filter to apply. +-- +-- 'values', 'stackInstanceFilter_values' - The status to filter by. +newStackInstanceFilter :: + StackInstanceFilter +newStackInstanceFilter = + StackInstanceFilter' + { name = Prelude.Nothing, + values = Prelude.Nothing + } + +-- | The type of filter to apply. +stackInstanceFilter_name :: Lens.Lens' StackInstanceFilter (Prelude.Maybe StackInstanceFilterName) +stackInstanceFilter_name = Lens.lens (\StackInstanceFilter' {name} -> name) (\s@StackInstanceFilter' {} a -> s {name = a} :: StackInstanceFilter) + +-- | The status to filter by. +stackInstanceFilter_values :: Lens.Lens' StackInstanceFilter (Prelude.Maybe Prelude.Text) +stackInstanceFilter_values = Lens.lens (\StackInstanceFilter' {values} -> values) (\s@StackInstanceFilter' {} a -> s {values = a} :: StackInstanceFilter) + +instance Prelude.Hashable StackInstanceFilter where + hashWithSalt _salt StackInstanceFilter' {..} = + _salt + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` values + +instance Prelude.NFData StackInstanceFilter where + rnf StackInstanceFilter' {..} = + Prelude.rnf name `Prelude.seq` Prelude.rnf values + +instance Data.ToQuery StackInstanceFilter where + toQuery StackInstanceFilter' {..} = + Prelude.mconcat + ["Name" Data.=: name, "Values" Data.=: values] diff --git a/gen/Amazonka/CloudFormation/Types/StackInstanceFilterName.hs b/gen/Amazonka/CloudFormation/Types/StackInstanceFilterName.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstanceFilterName.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstanceFilterName +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstanceFilterName + ( StackInstanceFilterName + ( .., + StackInstanceFilterName_DETAILED_STATUS, + StackInstanceFilterName_LAST_OPERATION_ID + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackInstanceFilterName = StackInstanceFilterName' + { fromStackInstanceFilterName :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackInstanceFilterName_DETAILED_STATUS :: StackInstanceFilterName +pattern StackInstanceFilterName_DETAILED_STATUS = StackInstanceFilterName' "DETAILED_STATUS" + +pattern StackInstanceFilterName_LAST_OPERATION_ID :: StackInstanceFilterName +pattern StackInstanceFilterName_LAST_OPERATION_ID = StackInstanceFilterName' "LAST_OPERATION_ID" + +{-# COMPLETE + StackInstanceFilterName_DETAILED_STATUS, + StackInstanceFilterName_LAST_OPERATION_ID, + StackInstanceFilterName' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackInstanceStatus.hs b/gen/Amazonka/CloudFormation/Types/StackInstanceStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstanceStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstanceStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstanceStatus + ( StackInstanceStatus + ( .., + StackInstanceStatus_CURRENT, + StackInstanceStatus_INOPERABLE, + StackInstanceStatus_OUTDATED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackInstanceStatus = StackInstanceStatus' + { fromStackInstanceStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackInstanceStatus_CURRENT :: StackInstanceStatus +pattern StackInstanceStatus_CURRENT = StackInstanceStatus' "CURRENT" + +pattern StackInstanceStatus_INOPERABLE :: StackInstanceStatus +pattern StackInstanceStatus_INOPERABLE = StackInstanceStatus' "INOPERABLE" + +pattern StackInstanceStatus_OUTDATED :: StackInstanceStatus +pattern StackInstanceStatus_OUTDATED = StackInstanceStatus' "OUTDATED" + +{-# COMPLETE + StackInstanceStatus_CURRENT, + StackInstanceStatus_INOPERABLE, + StackInstanceStatus_OUTDATED, + StackInstanceStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackInstanceSummary.hs b/gen/Amazonka/CloudFormation/Types/StackInstanceSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackInstanceSummary.hs @@ -0,0 +1,323 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackInstanceSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackInstanceSummary where + +import Amazonka.CloudFormation.Types.StackDriftStatus +import Amazonka.CloudFormation.Types.StackInstanceComprehensiveStatus +import Amazonka.CloudFormation.Types.StackInstanceStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The structure that contains summary information about a stack instance. +-- +-- /See:/ 'newStackInstanceSummary' smart constructor. +data StackInstanceSummary = StackInstanceSummary' + { -- | [Self-managed permissions] The name of the Amazon Web Services account + -- that the stack instance is associated with. + account :: Prelude.Maybe Prelude.Text, + -- | Status of the stack instance\'s actual configuration compared to the + -- expected template and parameter configuration of the stack set to which + -- it belongs. + -- + -- - @DRIFTED@: The stack differs from the expected template and + -- parameter configuration of the stack set to which it belongs. A + -- stack instance is considered to have drifted if one or more of the + -- resources in the associated stack have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack instance + -- differs from its expected stack set configuration. + -- + -- - @IN_SYNC@: The stack instance\'s actual configuration matches its + -- expected stack set configuration. + -- + -- - @UNKNOWN@: This value is reserved for future use. + driftStatus :: Prelude.Maybe StackDriftStatus, + -- | Most recent time when CloudFormation performed a drift detection + -- operation on the stack instance. This value will be @NULL@ for any stack + -- instance on which drift detection hasn\'t yet been performed. + lastDriftCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | The last unique ID of a StackSet operation performed on a stack + -- instance. + lastOperationId :: Prelude.Maybe Prelude.Text, + -- | [Service-managed permissions] The organization root ID or organizational + -- unit (OU) IDs that you specified for + -- . + organizationalUnitId :: Prelude.Maybe Prelude.Text, + -- | The name of the Amazon Web Services Region that the stack instance is + -- associated with. + region :: Prelude.Maybe Prelude.Text, + -- | The ID of the stack instance. + stackId :: Prelude.Maybe Prelude.Text, + -- | The detailed status of the stack instance. + stackInstanceStatus :: Prelude.Maybe StackInstanceComprehensiveStatus, + -- | The name or unique ID of the stack set that the stack instance is + -- associated with. + stackSetId :: Prelude.Maybe Prelude.Text, + -- | The status of the stack instance, in terms of its synchronization with + -- its associated stack set. + -- + -- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left + -- the stack in an unstable state. Stacks in this state are excluded + -- from further @UpdateStackSet@ operations. You might need to perform + -- a @DeleteStackInstances@ operation, with @RetainStacks@ set to + -- @true@, to delete the stack instance, and then delete the stack + -- manually. + -- + -- - @OUTDATED@: The stack isn\'t currently up to date with the stack set + -- because: + -- + -- - The associated stack failed during a @CreateStackSet@ or + -- @UpdateStackSet@ operation. + -- + -- - The stack was part of a @CreateStackSet@ or @UpdateStackSet@ + -- operation that failed or was stopped before the stack was + -- created or updated. + -- + -- - @CURRENT@: The stack is currently up to date with the stack set. + status :: Prelude.Maybe StackInstanceStatus, + -- | The explanation for the specific status code assigned to this stack + -- instance. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackInstanceSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'account', 'stackInstanceSummary_account' - [Self-managed permissions] The name of the Amazon Web Services account +-- that the stack instance is associated with. +-- +-- 'driftStatus', 'stackInstanceSummary_driftStatus' - Status of the stack instance\'s actual configuration compared to the +-- expected template and parameter configuration of the stack set to which +-- it belongs. +-- +-- - @DRIFTED@: The stack differs from the expected template and +-- parameter configuration of the stack set to which it belongs. A +-- stack instance is considered to have drifted if one or more of the +-- resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack instance +-- differs from its expected stack set configuration. +-- +-- - @IN_SYNC@: The stack instance\'s actual configuration matches its +-- expected stack set configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +-- +-- 'lastDriftCheckTimestamp', 'stackInstanceSummary_lastDriftCheckTimestamp' - Most recent time when CloudFormation performed a drift detection +-- operation on the stack instance. This value will be @NULL@ for any stack +-- instance on which drift detection hasn\'t yet been performed. +-- +-- 'lastOperationId', 'stackInstanceSummary_lastOperationId' - The last unique ID of a StackSet operation performed on a stack +-- instance. +-- +-- 'organizationalUnitId', 'stackInstanceSummary_organizationalUnitId' - [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +-- +-- 'region', 'stackInstanceSummary_region' - The name of the Amazon Web Services Region that the stack instance is +-- associated with. +-- +-- 'stackId', 'stackInstanceSummary_stackId' - The ID of the stack instance. +-- +-- 'stackInstanceStatus', 'stackInstanceSummary_stackInstanceStatus' - The detailed status of the stack instance. +-- +-- 'stackSetId', 'stackInstanceSummary_stackSetId' - The name or unique ID of the stack set that the stack instance is +-- associated with. +-- +-- 'status', 'stackInstanceSummary_status' - The status of the stack instance, in terms of its synchronization with +-- its associated stack set. +-- +-- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left +-- the stack in an unstable state. Stacks in this state are excluded +-- from further @UpdateStackSet@ operations. You might need to perform +-- a @DeleteStackInstances@ operation, with @RetainStacks@ set to +-- @true@, to delete the stack instance, and then delete the stack +-- manually. +-- +-- - @OUTDATED@: The stack isn\'t currently up to date with the stack set +-- because: +-- +-- - The associated stack failed during a @CreateStackSet@ or +-- @UpdateStackSet@ operation. +-- +-- - The stack was part of a @CreateStackSet@ or @UpdateStackSet@ +-- operation that failed or was stopped before the stack was +-- created or updated. +-- +-- - @CURRENT@: The stack is currently up to date with the stack set. +-- +-- 'statusReason', 'stackInstanceSummary_statusReason' - The explanation for the specific status code assigned to this stack +-- instance. +newStackInstanceSummary :: + StackInstanceSummary +newStackInstanceSummary = + StackInstanceSummary' + { account = Prelude.Nothing, + driftStatus = Prelude.Nothing, + lastDriftCheckTimestamp = Prelude.Nothing, + lastOperationId = Prelude.Nothing, + organizationalUnitId = Prelude.Nothing, + region = Prelude.Nothing, + stackId = Prelude.Nothing, + stackInstanceStatus = Prelude.Nothing, + stackSetId = Prelude.Nothing, + status = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | [Self-managed permissions] The name of the Amazon Web Services account +-- that the stack instance is associated with. +stackInstanceSummary_account :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_account = Lens.lens (\StackInstanceSummary' {account} -> account) (\s@StackInstanceSummary' {} a -> s {account = a} :: StackInstanceSummary) + +-- | Status of the stack instance\'s actual configuration compared to the +-- expected template and parameter configuration of the stack set to which +-- it belongs. +-- +-- - @DRIFTED@: The stack differs from the expected template and +-- parameter configuration of the stack set to which it belongs. A +-- stack instance is considered to have drifted if one or more of the +-- resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the stack instance +-- differs from its expected stack set configuration. +-- +-- - @IN_SYNC@: The stack instance\'s actual configuration matches its +-- expected stack set configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +stackInstanceSummary_driftStatus :: Lens.Lens' StackInstanceSummary (Prelude.Maybe StackDriftStatus) +stackInstanceSummary_driftStatus = Lens.lens (\StackInstanceSummary' {driftStatus} -> driftStatus) (\s@StackInstanceSummary' {} a -> s {driftStatus = a} :: StackInstanceSummary) + +-- | Most recent time when CloudFormation performed a drift detection +-- operation on the stack instance. This value will be @NULL@ for any stack +-- instance on which drift detection hasn\'t yet been performed. +stackInstanceSummary_lastDriftCheckTimestamp :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.UTCTime) +stackInstanceSummary_lastDriftCheckTimestamp = Lens.lens (\StackInstanceSummary' {lastDriftCheckTimestamp} -> lastDriftCheckTimestamp) (\s@StackInstanceSummary' {} a -> s {lastDriftCheckTimestamp = a} :: StackInstanceSummary) Prelude.. Lens.mapping Data._Time + +-- | The last unique ID of a StackSet operation performed on a stack +-- instance. +stackInstanceSummary_lastOperationId :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_lastOperationId = Lens.lens (\StackInstanceSummary' {lastOperationId} -> lastOperationId) (\s@StackInstanceSummary' {} a -> s {lastOperationId = a} :: StackInstanceSummary) + +-- | [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +stackInstanceSummary_organizationalUnitId :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_organizationalUnitId = Lens.lens (\StackInstanceSummary' {organizationalUnitId} -> organizationalUnitId) (\s@StackInstanceSummary' {} a -> s {organizationalUnitId = a} :: StackInstanceSummary) + +-- | The name of the Amazon Web Services Region that the stack instance is +-- associated with. +stackInstanceSummary_region :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_region = Lens.lens (\StackInstanceSummary' {region} -> region) (\s@StackInstanceSummary' {} a -> s {region = a} :: StackInstanceSummary) + +-- | The ID of the stack instance. +stackInstanceSummary_stackId :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_stackId = Lens.lens (\StackInstanceSummary' {stackId} -> stackId) (\s@StackInstanceSummary' {} a -> s {stackId = a} :: StackInstanceSummary) + +-- | The detailed status of the stack instance. +stackInstanceSummary_stackInstanceStatus :: Lens.Lens' StackInstanceSummary (Prelude.Maybe StackInstanceComprehensiveStatus) +stackInstanceSummary_stackInstanceStatus = Lens.lens (\StackInstanceSummary' {stackInstanceStatus} -> stackInstanceStatus) (\s@StackInstanceSummary' {} a -> s {stackInstanceStatus = a} :: StackInstanceSummary) + +-- | The name or unique ID of the stack set that the stack instance is +-- associated with. +stackInstanceSummary_stackSetId :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_stackSetId = Lens.lens (\StackInstanceSummary' {stackSetId} -> stackSetId) (\s@StackInstanceSummary' {} a -> s {stackSetId = a} :: StackInstanceSummary) + +-- | The status of the stack instance, in terms of its synchronization with +-- its associated stack set. +-- +-- - @INOPERABLE@: A @DeleteStackInstances@ operation has failed and left +-- the stack in an unstable state. Stacks in this state are excluded +-- from further @UpdateStackSet@ operations. You might need to perform +-- a @DeleteStackInstances@ operation, with @RetainStacks@ set to +-- @true@, to delete the stack instance, and then delete the stack +-- manually. +-- +-- - @OUTDATED@: The stack isn\'t currently up to date with the stack set +-- because: +-- +-- - The associated stack failed during a @CreateStackSet@ or +-- @UpdateStackSet@ operation. +-- +-- - The stack was part of a @CreateStackSet@ or @UpdateStackSet@ +-- operation that failed or was stopped before the stack was +-- created or updated. +-- +-- - @CURRENT@: The stack is currently up to date with the stack set. +stackInstanceSummary_status :: Lens.Lens' StackInstanceSummary (Prelude.Maybe StackInstanceStatus) +stackInstanceSummary_status = Lens.lens (\StackInstanceSummary' {status} -> status) (\s@StackInstanceSummary' {} a -> s {status = a} :: StackInstanceSummary) + +-- | The explanation for the specific status code assigned to this stack +-- instance. +stackInstanceSummary_statusReason :: Lens.Lens' StackInstanceSummary (Prelude.Maybe Prelude.Text) +stackInstanceSummary_statusReason = Lens.lens (\StackInstanceSummary' {statusReason} -> statusReason) (\s@StackInstanceSummary' {} a -> s {statusReason = a} :: StackInstanceSummary) + +instance Data.FromXML StackInstanceSummary where + parseXML x = + StackInstanceSummary' + Prelude.<$> (x Data..@? "Account") + Prelude.<*> (x Data..@? "DriftStatus") + Prelude.<*> (x Data..@? "LastDriftCheckTimestamp") + Prelude.<*> (x Data..@? "LastOperationId") + Prelude.<*> (x Data..@? "OrganizationalUnitId") + Prelude.<*> (x Data..@? "Region") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackInstanceStatus") + Prelude.<*> (x Data..@? "StackSetId") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusReason") + +instance Prelude.Hashable StackInstanceSummary where + hashWithSalt _salt StackInstanceSummary' {..} = + _salt + `Prelude.hashWithSalt` account + `Prelude.hashWithSalt` driftStatus + `Prelude.hashWithSalt` lastDriftCheckTimestamp + `Prelude.hashWithSalt` lastOperationId + `Prelude.hashWithSalt` organizationalUnitId + `Prelude.hashWithSalt` region + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackInstanceStatus + `Prelude.hashWithSalt` stackSetId + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusReason + +instance Prelude.NFData StackInstanceSummary where + rnf StackInstanceSummary' {..} = + Prelude.rnf account + `Prelude.seq` Prelude.rnf driftStatus + `Prelude.seq` Prelude.rnf lastDriftCheckTimestamp + `Prelude.seq` Prelude.rnf lastOperationId + `Prelude.seq` Prelude.rnf organizationalUnitId + `Prelude.seq` Prelude.rnf region + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackInstanceStatus + `Prelude.seq` Prelude.rnf stackSetId + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/StackResource.hs b/gen/Amazonka/CloudFormation/Types/StackResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResource.hs @@ -0,0 +1,230 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResource where + +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.ResourceStatus +import Amazonka.CloudFormation.Types.StackResourceDriftInformation +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The StackResource data type. +-- +-- /See:/ 'newStackResource' smart constructor. +data StackResource = StackResource' + { -- | User defined description associated with the resource. + description :: Prelude.Maybe Prelude.Text, + -- | Information about whether the resource\'s actual configuration differs, + -- or has /drifted/, from its expected configuration, as defined in the + -- stack template and any values specified as template parameters. For more + -- information, see + -- . + driftInformation :: Prelude.Maybe StackResourceDriftInformation, + -- | Contains information about the module from which the resource was + -- created, if the resource was created from a module included in the stack + -- template. + moduleInfo :: Prelude.Maybe ModuleInfo, + -- | The name or unique identifier that corresponds to a physical instance ID + -- of a resource supported by CloudFormation. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | Success\/failure message associated with the resource. + resourceStatusReason :: Prelude.Maybe Prelude.Text, + -- | Unique identifier of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The name associated with the stack. + stackName :: Prelude.Maybe Prelude.Text, + -- | The logical name of the resource specified in the template. + logicalResourceId :: Prelude.Text, + -- | Type of resource. For more information, go to + -- + -- in the CloudFormation User Guide. + resourceType :: Prelude.Text, + -- | Time the status was updated. + timestamp :: Data.ISO8601, + -- | Current status of the resource. + resourceStatus :: ResourceStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackResource' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'description', 'stackResource_description' - User defined description associated with the resource. +-- +-- 'driftInformation', 'stackResource_driftInformation' - Information about whether the resource\'s actual configuration differs, +-- or has /drifted/, from its expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +-- +-- 'moduleInfo', 'stackResource_moduleInfo' - Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +-- +-- 'physicalResourceId', 'stackResource_physicalResourceId' - The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +-- +-- 'resourceStatusReason', 'stackResource_resourceStatusReason' - Success\/failure message associated with the resource. +-- +-- 'stackId', 'stackResource_stackId' - Unique identifier of the stack. +-- +-- 'stackName', 'stackResource_stackName' - The name associated with the stack. +-- +-- 'logicalResourceId', 'stackResource_logicalResourceId' - The logical name of the resource specified in the template. +-- +-- 'resourceType', 'stackResource_resourceType' - Type of resource. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- 'timestamp', 'stackResource_timestamp' - Time the status was updated. +-- +-- 'resourceStatus', 'stackResource_resourceStatus' - Current status of the resource. +newStackResource :: + -- | 'logicalResourceId' + Prelude.Text -> + -- | 'resourceType' + Prelude.Text -> + -- | 'timestamp' + Prelude.UTCTime -> + -- | 'resourceStatus' + ResourceStatus -> + StackResource +newStackResource + pLogicalResourceId_ + pResourceType_ + pTimestamp_ + pResourceStatus_ = + StackResource' + { description = Prelude.Nothing, + driftInformation = Prelude.Nothing, + moduleInfo = Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + resourceStatusReason = Prelude.Nothing, + stackId = Prelude.Nothing, + stackName = Prelude.Nothing, + logicalResourceId = pLogicalResourceId_, + resourceType = pResourceType_, + timestamp = Data._Time Lens.# pTimestamp_, + resourceStatus = pResourceStatus_ + } + +-- | User defined description associated with the resource. +stackResource_description :: Lens.Lens' StackResource (Prelude.Maybe Prelude.Text) +stackResource_description = Lens.lens (\StackResource' {description} -> description) (\s@StackResource' {} a -> s {description = a} :: StackResource) + +-- | Information about whether the resource\'s actual configuration differs, +-- or has /drifted/, from its expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +stackResource_driftInformation :: Lens.Lens' StackResource (Prelude.Maybe StackResourceDriftInformation) +stackResource_driftInformation = Lens.lens (\StackResource' {driftInformation} -> driftInformation) (\s@StackResource' {} a -> s {driftInformation = a} :: StackResource) + +-- | Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +stackResource_moduleInfo :: Lens.Lens' StackResource (Prelude.Maybe ModuleInfo) +stackResource_moduleInfo = Lens.lens (\StackResource' {moduleInfo} -> moduleInfo) (\s@StackResource' {} a -> s {moduleInfo = a} :: StackResource) + +-- | The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +stackResource_physicalResourceId :: Lens.Lens' StackResource (Prelude.Maybe Prelude.Text) +stackResource_physicalResourceId = Lens.lens (\StackResource' {physicalResourceId} -> physicalResourceId) (\s@StackResource' {} a -> s {physicalResourceId = a} :: StackResource) + +-- | Success\/failure message associated with the resource. +stackResource_resourceStatusReason :: Lens.Lens' StackResource (Prelude.Maybe Prelude.Text) +stackResource_resourceStatusReason = Lens.lens (\StackResource' {resourceStatusReason} -> resourceStatusReason) (\s@StackResource' {} a -> s {resourceStatusReason = a} :: StackResource) + +-- | Unique identifier of the stack. +stackResource_stackId :: Lens.Lens' StackResource (Prelude.Maybe Prelude.Text) +stackResource_stackId = Lens.lens (\StackResource' {stackId} -> stackId) (\s@StackResource' {} a -> s {stackId = a} :: StackResource) + +-- | The name associated with the stack. +stackResource_stackName :: Lens.Lens' StackResource (Prelude.Maybe Prelude.Text) +stackResource_stackName = Lens.lens (\StackResource' {stackName} -> stackName) (\s@StackResource' {} a -> s {stackName = a} :: StackResource) + +-- | The logical name of the resource specified in the template. +stackResource_logicalResourceId :: Lens.Lens' StackResource Prelude.Text +stackResource_logicalResourceId = Lens.lens (\StackResource' {logicalResourceId} -> logicalResourceId) (\s@StackResource' {} a -> s {logicalResourceId = a} :: StackResource) + +-- | Type of resource. For more information, go to +-- +-- in the CloudFormation User Guide. +stackResource_resourceType :: Lens.Lens' StackResource Prelude.Text +stackResource_resourceType = Lens.lens (\StackResource' {resourceType} -> resourceType) (\s@StackResource' {} a -> s {resourceType = a} :: StackResource) + +-- | Time the status was updated. +stackResource_timestamp :: Lens.Lens' StackResource Prelude.UTCTime +stackResource_timestamp = Lens.lens (\StackResource' {timestamp} -> timestamp) (\s@StackResource' {} a -> s {timestamp = a} :: StackResource) Prelude.. Data._Time + +-- | Current status of the resource. +stackResource_resourceStatus :: Lens.Lens' StackResource ResourceStatus +stackResource_resourceStatus = Lens.lens (\StackResource' {resourceStatus} -> resourceStatus) (\s@StackResource' {} a -> s {resourceStatus = a} :: StackResource) + +instance Data.FromXML StackResource where + parseXML x = + StackResource' + Prelude.<$> (x Data..@? "Description") + Prelude.<*> (x Data..@? "DriftInformation") + Prelude.<*> (x Data..@? "ModuleInfo") + Prelude.<*> (x Data..@? "PhysicalResourceId") + Prelude.<*> (x Data..@? "ResourceStatusReason") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackName") + Prelude.<*> (x Data..@ "LogicalResourceId") + Prelude.<*> (x Data..@ "ResourceType") + Prelude.<*> (x Data..@ "Timestamp") + Prelude.<*> (x Data..@ "ResourceStatus") + +instance Prelude.Hashable StackResource where + hashWithSalt _salt StackResource' {..} = + _salt + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` driftInformation + `Prelude.hashWithSalt` moduleInfo + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` resourceStatusReason + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` timestamp + `Prelude.hashWithSalt` resourceStatus + +instance Prelude.NFData StackResource where + rnf StackResource' {..} = + Prelude.rnf description + `Prelude.seq` Prelude.rnf driftInformation + `Prelude.seq` Prelude.rnf moduleInfo + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf resourceStatusReason + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf timestamp + `Prelude.seq` Prelude.rnf resourceStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackResourceDetail.hs b/gen/Amazonka/CloudFormation/Types/StackResourceDetail.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResourceDetail.hs @@ -0,0 +1,252 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResourceDetail +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResourceDetail where + +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.ResourceStatus +import Amazonka.CloudFormation.Types.StackResourceDriftInformation +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains detailed information about the specified stack resource. +-- +-- /See:/ 'newStackResourceDetail' smart constructor. +data StackResourceDetail = StackResourceDetail' + { -- | User defined description associated with the resource. + description :: Prelude.Maybe Prelude.Text, + -- | Information about whether the resource\'s actual configuration differs, + -- or has /drifted/, from its expected configuration, as defined in the + -- stack template and any values specified as template parameters. For more + -- information, see + -- . + driftInformation :: Prelude.Maybe StackResourceDriftInformation, + -- | The content of the @Metadata@ attribute declared for the resource. For + -- more information, see + -- + -- in the CloudFormation User Guide. + metadata :: Prelude.Maybe Prelude.Text, + -- | Contains information about the module from which the resource was + -- created, if the resource was created from a module included in the stack + -- template. + moduleInfo :: Prelude.Maybe ModuleInfo, + -- | The name or unique identifier that corresponds to a physical instance ID + -- of a resource supported by CloudFormation. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | Success\/failure message associated with the resource. + resourceStatusReason :: Prelude.Maybe Prelude.Text, + -- | Unique identifier of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The name associated with the stack. + stackName :: Prelude.Maybe Prelude.Text, + -- | The logical name of the resource specified in the template. + logicalResourceId :: Prelude.Text, + -- | Type of resource. For more information, go to + -- + -- in the CloudFormation User Guide. + resourceType :: Prelude.Text, + -- | Time the status was updated. + lastUpdatedTimestamp :: Data.ISO8601, + -- | Current status of the resource. + resourceStatus :: ResourceStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackResourceDetail' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'description', 'stackResourceDetail_description' - User defined description associated with the resource. +-- +-- 'driftInformation', 'stackResourceDetail_driftInformation' - Information about whether the resource\'s actual configuration differs, +-- or has /drifted/, from its expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +-- +-- 'metadata', 'stackResourceDetail_metadata' - The content of the @Metadata@ attribute declared for the resource. For +-- more information, see +-- +-- in the CloudFormation User Guide. +-- +-- 'moduleInfo', 'stackResourceDetail_moduleInfo' - Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +-- +-- 'physicalResourceId', 'stackResourceDetail_physicalResourceId' - The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +-- +-- 'resourceStatusReason', 'stackResourceDetail_resourceStatusReason' - Success\/failure message associated with the resource. +-- +-- 'stackId', 'stackResourceDetail_stackId' - Unique identifier of the stack. +-- +-- 'stackName', 'stackResourceDetail_stackName' - The name associated with the stack. +-- +-- 'logicalResourceId', 'stackResourceDetail_logicalResourceId' - The logical name of the resource specified in the template. +-- +-- 'resourceType', 'stackResourceDetail_resourceType' - Type of resource. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- 'lastUpdatedTimestamp', 'stackResourceDetail_lastUpdatedTimestamp' - Time the status was updated. +-- +-- 'resourceStatus', 'stackResourceDetail_resourceStatus' - Current status of the resource. +newStackResourceDetail :: + -- | 'logicalResourceId' + Prelude.Text -> + -- | 'resourceType' + Prelude.Text -> + -- | 'lastUpdatedTimestamp' + Prelude.UTCTime -> + -- | 'resourceStatus' + ResourceStatus -> + StackResourceDetail +newStackResourceDetail + pLogicalResourceId_ + pResourceType_ + pLastUpdatedTimestamp_ + pResourceStatus_ = + StackResourceDetail' + { description = Prelude.Nothing, + driftInformation = Prelude.Nothing, + metadata = Prelude.Nothing, + moduleInfo = Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + resourceStatusReason = Prelude.Nothing, + stackId = Prelude.Nothing, + stackName = Prelude.Nothing, + logicalResourceId = pLogicalResourceId_, + resourceType = pResourceType_, + lastUpdatedTimestamp = + Data._Time Lens.# pLastUpdatedTimestamp_, + resourceStatus = pResourceStatus_ + } + +-- | User defined description associated with the resource. +stackResourceDetail_description :: Lens.Lens' StackResourceDetail (Prelude.Maybe Prelude.Text) +stackResourceDetail_description = Lens.lens (\StackResourceDetail' {description} -> description) (\s@StackResourceDetail' {} a -> s {description = a} :: StackResourceDetail) + +-- | Information about whether the resource\'s actual configuration differs, +-- or has /drifted/, from its expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +stackResourceDetail_driftInformation :: Lens.Lens' StackResourceDetail (Prelude.Maybe StackResourceDriftInformation) +stackResourceDetail_driftInformation = Lens.lens (\StackResourceDetail' {driftInformation} -> driftInformation) (\s@StackResourceDetail' {} a -> s {driftInformation = a} :: StackResourceDetail) + +-- | The content of the @Metadata@ attribute declared for the resource. For +-- more information, see +-- +-- in the CloudFormation User Guide. +stackResourceDetail_metadata :: Lens.Lens' StackResourceDetail (Prelude.Maybe Prelude.Text) +stackResourceDetail_metadata = Lens.lens (\StackResourceDetail' {metadata} -> metadata) (\s@StackResourceDetail' {} a -> s {metadata = a} :: StackResourceDetail) + +-- | Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +stackResourceDetail_moduleInfo :: Lens.Lens' StackResourceDetail (Prelude.Maybe ModuleInfo) +stackResourceDetail_moduleInfo = Lens.lens (\StackResourceDetail' {moduleInfo} -> moduleInfo) (\s@StackResourceDetail' {} a -> s {moduleInfo = a} :: StackResourceDetail) + +-- | The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +stackResourceDetail_physicalResourceId :: Lens.Lens' StackResourceDetail (Prelude.Maybe Prelude.Text) +stackResourceDetail_physicalResourceId = Lens.lens (\StackResourceDetail' {physicalResourceId} -> physicalResourceId) (\s@StackResourceDetail' {} a -> s {physicalResourceId = a} :: StackResourceDetail) + +-- | Success\/failure message associated with the resource. +stackResourceDetail_resourceStatusReason :: Lens.Lens' StackResourceDetail (Prelude.Maybe Prelude.Text) +stackResourceDetail_resourceStatusReason = Lens.lens (\StackResourceDetail' {resourceStatusReason} -> resourceStatusReason) (\s@StackResourceDetail' {} a -> s {resourceStatusReason = a} :: StackResourceDetail) + +-- | Unique identifier of the stack. +stackResourceDetail_stackId :: Lens.Lens' StackResourceDetail (Prelude.Maybe Prelude.Text) +stackResourceDetail_stackId = Lens.lens (\StackResourceDetail' {stackId} -> stackId) (\s@StackResourceDetail' {} a -> s {stackId = a} :: StackResourceDetail) + +-- | The name associated with the stack. +stackResourceDetail_stackName :: Lens.Lens' StackResourceDetail (Prelude.Maybe Prelude.Text) +stackResourceDetail_stackName = Lens.lens (\StackResourceDetail' {stackName} -> stackName) (\s@StackResourceDetail' {} a -> s {stackName = a} :: StackResourceDetail) + +-- | The logical name of the resource specified in the template. +stackResourceDetail_logicalResourceId :: Lens.Lens' StackResourceDetail Prelude.Text +stackResourceDetail_logicalResourceId = Lens.lens (\StackResourceDetail' {logicalResourceId} -> logicalResourceId) (\s@StackResourceDetail' {} a -> s {logicalResourceId = a} :: StackResourceDetail) + +-- | Type of resource. For more information, go to +-- +-- in the CloudFormation User Guide. +stackResourceDetail_resourceType :: Lens.Lens' StackResourceDetail Prelude.Text +stackResourceDetail_resourceType = Lens.lens (\StackResourceDetail' {resourceType} -> resourceType) (\s@StackResourceDetail' {} a -> s {resourceType = a} :: StackResourceDetail) + +-- | Time the status was updated. +stackResourceDetail_lastUpdatedTimestamp :: Lens.Lens' StackResourceDetail Prelude.UTCTime +stackResourceDetail_lastUpdatedTimestamp = Lens.lens (\StackResourceDetail' {lastUpdatedTimestamp} -> lastUpdatedTimestamp) (\s@StackResourceDetail' {} a -> s {lastUpdatedTimestamp = a} :: StackResourceDetail) Prelude.. Data._Time + +-- | Current status of the resource. +stackResourceDetail_resourceStatus :: Lens.Lens' StackResourceDetail ResourceStatus +stackResourceDetail_resourceStatus = Lens.lens (\StackResourceDetail' {resourceStatus} -> resourceStatus) (\s@StackResourceDetail' {} a -> s {resourceStatus = a} :: StackResourceDetail) + +instance Data.FromXML StackResourceDetail where + parseXML x = + StackResourceDetail' + Prelude.<$> (x Data..@? "Description") + Prelude.<*> (x Data..@? "DriftInformation") + Prelude.<*> (x Data..@? "Metadata") + Prelude.<*> (x Data..@? "ModuleInfo") + Prelude.<*> (x Data..@? "PhysicalResourceId") + Prelude.<*> (x Data..@? "ResourceStatusReason") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackName") + Prelude.<*> (x Data..@ "LogicalResourceId") + Prelude.<*> (x Data..@ "ResourceType") + Prelude.<*> (x Data..@ "LastUpdatedTimestamp") + Prelude.<*> (x Data..@ "ResourceStatus") + +instance Prelude.Hashable StackResourceDetail where + hashWithSalt _salt StackResourceDetail' {..} = + _salt + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` driftInformation + `Prelude.hashWithSalt` metadata + `Prelude.hashWithSalt` moduleInfo + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` resourceStatusReason + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` lastUpdatedTimestamp + `Prelude.hashWithSalt` resourceStatus + +instance Prelude.NFData StackResourceDetail where + rnf StackResourceDetail' {..} = + Prelude.rnf description + `Prelude.seq` Prelude.rnf driftInformation + `Prelude.seq` Prelude.rnf metadata + `Prelude.seq` Prelude.rnf moduleInfo + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf resourceStatusReason + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf lastUpdatedTimestamp + `Prelude.seq` Prelude.rnf resourceStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackResourceDrift.hs b/gen/Amazonka/CloudFormation/Types/StackResourceDrift.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResourceDrift.hs @@ -0,0 +1,326 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResourceDrift +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResourceDrift where + +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.PhysicalResourceIdContextKeyValuePair +import Amazonka.CloudFormation.Types.PropertyDifference +import Amazonka.CloudFormation.Types.StackResourceDriftStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains the drift information for a resource that has been checked for +-- drift. This includes actual and expected property values for resources +-- in which CloudFormation has detected drift. Only resource properties +-- explicitly defined in the stack template are checked for drift. For more +-- information, see +-- . +-- +-- Resources that don\'t currently support drift detection can\'t be +-- checked. For a list of resources that support drift detection, see +-- . +-- +-- Use DetectStackResourceDrift to detect drift on individual resources, or +-- DetectStackDrift to detect drift on all resources in a given stack that +-- support drift detection. +-- +-- /See:/ 'newStackResourceDrift' smart constructor. +data StackResourceDrift = StackResourceDrift' + { -- | A JSON structure containing the actual property values of the stack + -- resource. + -- + -- For resources whose @StackResourceDriftStatus@ is @DELETED@, this + -- structure will not be present. + actualProperties :: Prelude.Maybe Prelude.Text, + -- | A JSON structure containing the expected property values of the stack + -- resource, as defined in the stack template and any values specified as + -- template parameters. + -- + -- For resources whose @StackResourceDriftStatus@ is @DELETED@, this + -- structure will not be present. + expectedProperties :: Prelude.Maybe Prelude.Text, + -- | Contains information about the module from which the resource was + -- created, if the resource was created from a module included in the stack + -- template. + moduleInfo :: Prelude.Maybe ModuleInfo, + -- | The name or unique identifier that corresponds to a physical instance ID + -- of a resource supported by CloudFormation. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | Context information that enables CloudFormation to uniquely identify a + -- resource. CloudFormation uses context key-value pairs in cases where a + -- resource\'s logical and physical IDs aren\'t enough to uniquely identify + -- that resource. Each context key-value pair specifies a unique resource + -- that contains the targeted resource. + physicalResourceIdContext :: Prelude.Maybe [PhysicalResourceIdContextKeyValuePair], + -- | A collection of the resource properties whose actual values differ from + -- their expected values. These will be present only for resources whose + -- @StackResourceDriftStatus@ is @MODIFIED@. + propertyDifferences :: Prelude.Maybe [PropertyDifference], + -- | The ID of the stack. + stackId :: Prelude.Text, + -- | The logical name of the resource specified in the template. + logicalResourceId :: Prelude.Text, + -- | The type of the resource. + resourceType :: Prelude.Text, + -- | Status of the resource\'s actual configuration compared to its expected + -- configuration. + -- + -- - @DELETED@: The resource differs from its expected template + -- configuration because the resource has been deleted. + -- + -- - @MODIFIED@: One or more resource properties differ from their + -- expected values (as defined in the stack template and any values + -- specified as template parameters). + -- + -- - @IN_SYNC@: The resource\'s actual configuration matches its expected + -- template configuration. + -- + -- - @NOT_CHECKED@: CloudFormation does not currently return this value. + stackResourceDriftStatus :: StackResourceDriftStatus, + -- | Time at which CloudFormation performed drift detection on the stack + -- resource. + timestamp :: Data.ISO8601 + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackResourceDrift' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'actualProperties', 'stackResourceDrift_actualProperties' - A JSON structure containing the actual property values of the stack +-- resource. +-- +-- For resources whose @StackResourceDriftStatus@ is @DELETED@, this +-- structure will not be present. +-- +-- 'expectedProperties', 'stackResourceDrift_expectedProperties' - A JSON structure containing the expected property values of the stack +-- resource, as defined in the stack template and any values specified as +-- template parameters. +-- +-- For resources whose @StackResourceDriftStatus@ is @DELETED@, this +-- structure will not be present. +-- +-- 'moduleInfo', 'stackResourceDrift_moduleInfo' - Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +-- +-- 'physicalResourceId', 'stackResourceDrift_physicalResourceId' - The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +-- +-- 'physicalResourceIdContext', 'stackResourceDrift_physicalResourceIdContext' - Context information that enables CloudFormation to uniquely identify a +-- resource. CloudFormation uses context key-value pairs in cases where a +-- resource\'s logical and physical IDs aren\'t enough to uniquely identify +-- that resource. Each context key-value pair specifies a unique resource +-- that contains the targeted resource. +-- +-- 'propertyDifferences', 'stackResourceDrift_propertyDifferences' - A collection of the resource properties whose actual values differ from +-- their expected values. These will be present only for resources whose +-- @StackResourceDriftStatus@ is @MODIFIED@. +-- +-- 'stackId', 'stackResourceDrift_stackId' - The ID of the stack. +-- +-- 'logicalResourceId', 'stackResourceDrift_logicalResourceId' - The logical name of the resource specified in the template. +-- +-- 'resourceType', 'stackResourceDrift_resourceType' - The type of the resource. +-- +-- 'stackResourceDriftStatus', 'stackResourceDrift_stackResourceDriftStatus' - Status of the resource\'s actual configuration compared to its expected +-- configuration. +-- +-- - @DELETED@: The resource differs from its expected template +-- configuration because the resource has been deleted. +-- +-- - @MODIFIED@: One or more resource properties differ from their +-- expected values (as defined in the stack template and any values +-- specified as template parameters). +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- template configuration. +-- +-- - @NOT_CHECKED@: CloudFormation does not currently return this value. +-- +-- 'timestamp', 'stackResourceDrift_timestamp' - Time at which CloudFormation performed drift detection on the stack +-- resource. +newStackResourceDrift :: + -- | 'stackId' + Prelude.Text -> + -- | 'logicalResourceId' + Prelude.Text -> + -- | 'resourceType' + Prelude.Text -> + -- | 'stackResourceDriftStatus' + StackResourceDriftStatus -> + -- | 'timestamp' + Prelude.UTCTime -> + StackResourceDrift +newStackResourceDrift + pStackId_ + pLogicalResourceId_ + pResourceType_ + pStackResourceDriftStatus_ + pTimestamp_ = + StackResourceDrift' + { actualProperties = + Prelude.Nothing, + expectedProperties = Prelude.Nothing, + moduleInfo = Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + physicalResourceIdContext = Prelude.Nothing, + propertyDifferences = Prelude.Nothing, + stackId = pStackId_, + logicalResourceId = pLogicalResourceId_, + resourceType = pResourceType_, + stackResourceDriftStatus = + pStackResourceDriftStatus_, + timestamp = Data._Time Lens.# pTimestamp_ + } + +-- | A JSON structure containing the actual property values of the stack +-- resource. +-- +-- For resources whose @StackResourceDriftStatus@ is @DELETED@, this +-- structure will not be present. +stackResourceDrift_actualProperties :: Lens.Lens' StackResourceDrift (Prelude.Maybe Prelude.Text) +stackResourceDrift_actualProperties = Lens.lens (\StackResourceDrift' {actualProperties} -> actualProperties) (\s@StackResourceDrift' {} a -> s {actualProperties = a} :: StackResourceDrift) + +-- | A JSON structure containing the expected property values of the stack +-- resource, as defined in the stack template and any values specified as +-- template parameters. +-- +-- For resources whose @StackResourceDriftStatus@ is @DELETED@, this +-- structure will not be present. +stackResourceDrift_expectedProperties :: Lens.Lens' StackResourceDrift (Prelude.Maybe Prelude.Text) +stackResourceDrift_expectedProperties = Lens.lens (\StackResourceDrift' {expectedProperties} -> expectedProperties) (\s@StackResourceDrift' {} a -> s {expectedProperties = a} :: StackResourceDrift) + +-- | Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +stackResourceDrift_moduleInfo :: Lens.Lens' StackResourceDrift (Prelude.Maybe ModuleInfo) +stackResourceDrift_moduleInfo = Lens.lens (\StackResourceDrift' {moduleInfo} -> moduleInfo) (\s@StackResourceDrift' {} a -> s {moduleInfo = a} :: StackResourceDrift) + +-- | The name or unique identifier that corresponds to a physical instance ID +-- of a resource supported by CloudFormation. +stackResourceDrift_physicalResourceId :: Lens.Lens' StackResourceDrift (Prelude.Maybe Prelude.Text) +stackResourceDrift_physicalResourceId = Lens.lens (\StackResourceDrift' {physicalResourceId} -> physicalResourceId) (\s@StackResourceDrift' {} a -> s {physicalResourceId = a} :: StackResourceDrift) + +-- | Context information that enables CloudFormation to uniquely identify a +-- resource. CloudFormation uses context key-value pairs in cases where a +-- resource\'s logical and physical IDs aren\'t enough to uniquely identify +-- that resource. Each context key-value pair specifies a unique resource +-- that contains the targeted resource. +stackResourceDrift_physicalResourceIdContext :: Lens.Lens' StackResourceDrift (Prelude.Maybe [PhysicalResourceIdContextKeyValuePair]) +stackResourceDrift_physicalResourceIdContext = Lens.lens (\StackResourceDrift' {physicalResourceIdContext} -> physicalResourceIdContext) (\s@StackResourceDrift' {} a -> s {physicalResourceIdContext = a} :: StackResourceDrift) Prelude.. Lens.mapping Lens.coerced + +-- | A collection of the resource properties whose actual values differ from +-- their expected values. These will be present only for resources whose +-- @StackResourceDriftStatus@ is @MODIFIED@. +stackResourceDrift_propertyDifferences :: Lens.Lens' StackResourceDrift (Prelude.Maybe [PropertyDifference]) +stackResourceDrift_propertyDifferences = Lens.lens (\StackResourceDrift' {propertyDifferences} -> propertyDifferences) (\s@StackResourceDrift' {} a -> s {propertyDifferences = a} :: StackResourceDrift) Prelude.. Lens.mapping Lens.coerced + +-- | The ID of the stack. +stackResourceDrift_stackId :: Lens.Lens' StackResourceDrift Prelude.Text +stackResourceDrift_stackId = Lens.lens (\StackResourceDrift' {stackId} -> stackId) (\s@StackResourceDrift' {} a -> s {stackId = a} :: StackResourceDrift) + +-- | The logical name of the resource specified in the template. +stackResourceDrift_logicalResourceId :: Lens.Lens' StackResourceDrift Prelude.Text +stackResourceDrift_logicalResourceId = Lens.lens (\StackResourceDrift' {logicalResourceId} -> logicalResourceId) (\s@StackResourceDrift' {} a -> s {logicalResourceId = a} :: StackResourceDrift) + +-- | The type of the resource. +stackResourceDrift_resourceType :: Lens.Lens' StackResourceDrift Prelude.Text +stackResourceDrift_resourceType = Lens.lens (\StackResourceDrift' {resourceType} -> resourceType) (\s@StackResourceDrift' {} a -> s {resourceType = a} :: StackResourceDrift) + +-- | Status of the resource\'s actual configuration compared to its expected +-- configuration. +-- +-- - @DELETED@: The resource differs from its expected template +-- configuration because the resource has been deleted. +-- +-- - @MODIFIED@: One or more resource properties differ from their +-- expected values (as defined in the stack template and any values +-- specified as template parameters). +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- template configuration. +-- +-- - @NOT_CHECKED@: CloudFormation does not currently return this value. +stackResourceDrift_stackResourceDriftStatus :: Lens.Lens' StackResourceDrift StackResourceDriftStatus +stackResourceDrift_stackResourceDriftStatus = Lens.lens (\StackResourceDrift' {stackResourceDriftStatus} -> stackResourceDriftStatus) (\s@StackResourceDrift' {} a -> s {stackResourceDriftStatus = a} :: StackResourceDrift) + +-- | Time at which CloudFormation performed drift detection on the stack +-- resource. +stackResourceDrift_timestamp :: Lens.Lens' StackResourceDrift Prelude.UTCTime +stackResourceDrift_timestamp = Lens.lens (\StackResourceDrift' {timestamp} -> timestamp) (\s@StackResourceDrift' {} a -> s {timestamp = a} :: StackResourceDrift) Prelude.. Data._Time + +instance Data.FromXML StackResourceDrift where + parseXML x = + StackResourceDrift' + Prelude.<$> (x Data..@? "ActualProperties") + Prelude.<*> (x Data..@? "ExpectedProperties") + Prelude.<*> (x Data..@? "ModuleInfo") + Prelude.<*> (x Data..@? "PhysicalResourceId") + Prelude.<*> ( x + Data..@? "PhysicalResourceIdContext" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "PropertyDifferences" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@ "StackId") + Prelude.<*> (x Data..@ "LogicalResourceId") + Prelude.<*> (x Data..@ "ResourceType") + Prelude.<*> (x Data..@ "StackResourceDriftStatus") + Prelude.<*> (x Data..@ "Timestamp") + +instance Prelude.Hashable StackResourceDrift where + hashWithSalt _salt StackResourceDrift' {..} = + _salt + `Prelude.hashWithSalt` actualProperties + `Prelude.hashWithSalt` expectedProperties + `Prelude.hashWithSalt` moduleInfo + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` physicalResourceIdContext + `Prelude.hashWithSalt` propertyDifferences + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` stackResourceDriftStatus + `Prelude.hashWithSalt` timestamp + +instance Prelude.NFData StackResourceDrift where + rnf StackResourceDrift' {..} = + Prelude.rnf actualProperties + `Prelude.seq` Prelude.rnf expectedProperties + `Prelude.seq` Prelude.rnf moduleInfo + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf physicalResourceIdContext + `Prelude.seq` Prelude.rnf propertyDifferences + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf stackResourceDriftStatus + `Prelude.seq` Prelude.rnf timestamp diff --git a/gen/Amazonka/CloudFormation/Types/StackResourceDriftInformation.hs b/gen/Amazonka/CloudFormation/Types/StackResourceDriftInformation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResourceDriftInformation.hs @@ -0,0 +1,141 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResourceDriftInformation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResourceDriftInformation where + +import Amazonka.CloudFormation.Types.StackResourceDriftStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains information about whether the resource\'s actual configuration +-- differs, or has /drifted/, from its expected configuration. +-- +-- /See:/ 'newStackResourceDriftInformation' smart constructor. +data StackResourceDriftInformation = StackResourceDriftInformation' + { -- | When CloudFormation last checked if the resource had drifted from its + -- expected configuration. + lastCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | Status of the resource\'s actual configuration compared to its expected + -- configuration + -- + -- - @DELETED@: The resource differs from its expected configuration in + -- that it has been deleted. + -- + -- - @MODIFIED@: The resource differs from its expected configuration. + -- + -- - @NOT_CHECKED@: CloudFormation has not checked if the resource + -- differs from its expected configuration. + -- + -- Any resources that do not currently support drift detection have a + -- status of @NOT_CHECKED@. For more information, see + -- . + -- + -- - @IN_SYNC@: The resource\'s actual configuration matches its expected + -- configuration. + stackResourceDriftStatus :: StackResourceDriftStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackResourceDriftInformation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'lastCheckTimestamp', 'stackResourceDriftInformation_lastCheckTimestamp' - When CloudFormation last checked if the resource had drifted from its +-- expected configuration. +-- +-- 'stackResourceDriftStatus', 'stackResourceDriftInformation_stackResourceDriftStatus' - Status of the resource\'s actual configuration compared to its expected +-- configuration +-- +-- - @DELETED@: The resource differs from its expected configuration in +-- that it has been deleted. +-- +-- - @MODIFIED@: The resource differs from its expected configuration. +-- +-- - @NOT_CHECKED@: CloudFormation has not checked if the resource +-- differs from its expected configuration. +-- +-- Any resources that do not currently support drift detection have a +-- status of @NOT_CHECKED@. For more information, see +-- . +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- configuration. +newStackResourceDriftInformation :: + -- | 'stackResourceDriftStatus' + StackResourceDriftStatus -> + StackResourceDriftInformation +newStackResourceDriftInformation + pStackResourceDriftStatus_ = + StackResourceDriftInformation' + { lastCheckTimestamp = + Prelude.Nothing, + stackResourceDriftStatus = + pStackResourceDriftStatus_ + } + +-- | When CloudFormation last checked if the resource had drifted from its +-- expected configuration. +stackResourceDriftInformation_lastCheckTimestamp :: Lens.Lens' StackResourceDriftInformation (Prelude.Maybe Prelude.UTCTime) +stackResourceDriftInformation_lastCheckTimestamp = Lens.lens (\StackResourceDriftInformation' {lastCheckTimestamp} -> lastCheckTimestamp) (\s@StackResourceDriftInformation' {} a -> s {lastCheckTimestamp = a} :: StackResourceDriftInformation) Prelude.. Lens.mapping Data._Time + +-- | Status of the resource\'s actual configuration compared to its expected +-- configuration +-- +-- - @DELETED@: The resource differs from its expected configuration in +-- that it has been deleted. +-- +-- - @MODIFIED@: The resource differs from its expected configuration. +-- +-- - @NOT_CHECKED@: CloudFormation has not checked if the resource +-- differs from its expected configuration. +-- +-- Any resources that do not currently support drift detection have a +-- status of @NOT_CHECKED@. For more information, see +-- . +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- configuration. +stackResourceDriftInformation_stackResourceDriftStatus :: Lens.Lens' StackResourceDriftInformation StackResourceDriftStatus +stackResourceDriftInformation_stackResourceDriftStatus = Lens.lens (\StackResourceDriftInformation' {stackResourceDriftStatus} -> stackResourceDriftStatus) (\s@StackResourceDriftInformation' {} a -> s {stackResourceDriftStatus = a} :: StackResourceDriftInformation) + +instance Data.FromXML StackResourceDriftInformation where + parseXML x = + StackResourceDriftInformation' + Prelude.<$> (x Data..@? "LastCheckTimestamp") + Prelude.<*> (x Data..@ "StackResourceDriftStatus") + +instance + Prelude.Hashable + StackResourceDriftInformation + where + hashWithSalt _salt StackResourceDriftInformation' {..} = + _salt + `Prelude.hashWithSalt` lastCheckTimestamp + `Prelude.hashWithSalt` stackResourceDriftStatus + +instance Prelude.NFData StackResourceDriftInformation where + rnf StackResourceDriftInformation' {..} = + Prelude.rnf lastCheckTimestamp + `Prelude.seq` Prelude.rnf stackResourceDriftStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackResourceDriftInformationSummary.hs b/gen/Amazonka/CloudFormation/Types/StackResourceDriftInformationSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResourceDriftInformationSummary.hs @@ -0,0 +1,168 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResourceDriftInformationSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResourceDriftInformationSummary where + +import Amazonka.CloudFormation.Types.StackResourceDriftStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Summarizes information about whether the resource\'s actual +-- configuration differs, or has /drifted/, from its expected +-- configuration. +-- +-- /See:/ 'newStackResourceDriftInformationSummary' smart constructor. +data StackResourceDriftInformationSummary = StackResourceDriftInformationSummary' + { -- | When CloudFormation last checked if the resource had drifted from its + -- expected configuration. + lastCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | Status of the resource\'s actual configuration compared to its expected + -- configuration. + -- + -- - @DELETED@: The resource differs from its expected configuration in + -- that it has been deleted. + -- + -- - @MODIFIED@: The resource differs from its expected configuration. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the resource + -- differs from its expected configuration. + -- + -- Any resources that don\'t currently support drift detection have a + -- status of @NOT_CHECKED@. For more information, see + -- . + -- If you performed an ContinueUpdateRollback operation on a stack, any + -- resources included in @ResourcesToSkip@ will also have a status of + -- @NOT_CHECKED@. For more information about skipping resources during + -- rollback operations, see + -- + -- in the CloudFormation User Guide. + -- + -- - @IN_SYNC@: The resource\'s actual configuration matches its expected + -- configuration. + stackResourceDriftStatus :: StackResourceDriftStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackResourceDriftInformationSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'lastCheckTimestamp', 'stackResourceDriftInformationSummary_lastCheckTimestamp' - When CloudFormation last checked if the resource had drifted from its +-- expected configuration. +-- +-- 'stackResourceDriftStatus', 'stackResourceDriftInformationSummary_stackResourceDriftStatus' - Status of the resource\'s actual configuration compared to its expected +-- configuration. +-- +-- - @DELETED@: The resource differs from its expected configuration in +-- that it has been deleted. +-- +-- - @MODIFIED@: The resource differs from its expected configuration. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the resource +-- differs from its expected configuration. +-- +-- Any resources that don\'t currently support drift detection have a +-- status of @NOT_CHECKED@. For more information, see +-- . +-- If you performed an ContinueUpdateRollback operation on a stack, any +-- resources included in @ResourcesToSkip@ will also have a status of +-- @NOT_CHECKED@. For more information about skipping resources during +-- rollback operations, see +-- +-- in the CloudFormation User Guide. +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- configuration. +newStackResourceDriftInformationSummary :: + -- | 'stackResourceDriftStatus' + StackResourceDriftStatus -> + StackResourceDriftInformationSummary +newStackResourceDriftInformationSummary + pStackResourceDriftStatus_ = + StackResourceDriftInformationSummary' + { lastCheckTimestamp = + Prelude.Nothing, + stackResourceDriftStatus = + pStackResourceDriftStatus_ + } + +-- | When CloudFormation last checked if the resource had drifted from its +-- expected configuration. +stackResourceDriftInformationSummary_lastCheckTimestamp :: Lens.Lens' StackResourceDriftInformationSummary (Prelude.Maybe Prelude.UTCTime) +stackResourceDriftInformationSummary_lastCheckTimestamp = Lens.lens (\StackResourceDriftInformationSummary' {lastCheckTimestamp} -> lastCheckTimestamp) (\s@StackResourceDriftInformationSummary' {} a -> s {lastCheckTimestamp = a} :: StackResourceDriftInformationSummary) Prelude.. Lens.mapping Data._Time + +-- | Status of the resource\'s actual configuration compared to its expected +-- configuration. +-- +-- - @DELETED@: The resource differs from its expected configuration in +-- that it has been deleted. +-- +-- - @MODIFIED@: The resource differs from its expected configuration. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked if the resource +-- differs from its expected configuration. +-- +-- Any resources that don\'t currently support drift detection have a +-- status of @NOT_CHECKED@. For more information, see +-- . +-- If you performed an ContinueUpdateRollback operation on a stack, any +-- resources included in @ResourcesToSkip@ will also have a status of +-- @NOT_CHECKED@. For more information about skipping resources during +-- rollback operations, see +-- +-- in the CloudFormation User Guide. +-- +-- - @IN_SYNC@: The resource\'s actual configuration matches its expected +-- configuration. +stackResourceDriftInformationSummary_stackResourceDriftStatus :: Lens.Lens' StackResourceDriftInformationSummary StackResourceDriftStatus +stackResourceDriftInformationSummary_stackResourceDriftStatus = Lens.lens (\StackResourceDriftInformationSummary' {stackResourceDriftStatus} -> stackResourceDriftStatus) (\s@StackResourceDriftInformationSummary' {} a -> s {stackResourceDriftStatus = a} :: StackResourceDriftInformationSummary) + +instance + Data.FromXML + StackResourceDriftInformationSummary + where + parseXML x = + StackResourceDriftInformationSummary' + Prelude.<$> (x Data..@? "LastCheckTimestamp") + Prelude.<*> (x Data..@ "StackResourceDriftStatus") + +instance + Prelude.Hashable + StackResourceDriftInformationSummary + where + hashWithSalt + _salt + StackResourceDriftInformationSummary' {..} = + _salt + `Prelude.hashWithSalt` lastCheckTimestamp + `Prelude.hashWithSalt` stackResourceDriftStatus + +instance + Prelude.NFData + StackResourceDriftInformationSummary + where + rnf StackResourceDriftInformationSummary' {..} = + Prelude.rnf lastCheckTimestamp + `Prelude.seq` Prelude.rnf stackResourceDriftStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackResourceDriftStatus.hs b/gen/Amazonka/CloudFormation/Types/StackResourceDriftStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResourceDriftStatus.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResourceDriftStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResourceDriftStatus + ( StackResourceDriftStatus + ( .., + StackResourceDriftStatus_DELETED, + StackResourceDriftStatus_IN_SYNC, + StackResourceDriftStatus_MODIFIED, + StackResourceDriftStatus_NOT_CHECKED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackResourceDriftStatus = StackResourceDriftStatus' + { fromStackResourceDriftStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackResourceDriftStatus_DELETED :: StackResourceDriftStatus +pattern StackResourceDriftStatus_DELETED = StackResourceDriftStatus' "DELETED" + +pattern StackResourceDriftStatus_IN_SYNC :: StackResourceDriftStatus +pattern StackResourceDriftStatus_IN_SYNC = StackResourceDriftStatus' "IN_SYNC" + +pattern StackResourceDriftStatus_MODIFIED :: StackResourceDriftStatus +pattern StackResourceDriftStatus_MODIFIED = StackResourceDriftStatus' "MODIFIED" + +pattern StackResourceDriftStatus_NOT_CHECKED :: StackResourceDriftStatus +pattern StackResourceDriftStatus_NOT_CHECKED = StackResourceDriftStatus' "NOT_CHECKED" + +{-# COMPLETE + StackResourceDriftStatus_DELETED, + StackResourceDriftStatus_IN_SYNC, + StackResourceDriftStatus_MODIFIED, + StackResourceDriftStatus_NOT_CHECKED, + StackResourceDriftStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackResourceSummary.hs b/gen/Amazonka/CloudFormation/Types/StackResourceSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackResourceSummary.hs @@ -0,0 +1,196 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackResourceSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackResourceSummary where + +import Amazonka.CloudFormation.Types.ModuleInfo +import Amazonka.CloudFormation.Types.ResourceStatus +import Amazonka.CloudFormation.Types.StackResourceDriftInformationSummary +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains high-level information about the specified stack resource. +-- +-- /See:/ 'newStackResourceSummary' smart constructor. +data StackResourceSummary = StackResourceSummary' + { -- | Information about whether the resource\'s actual configuration differs, + -- or has /drifted/, from its expected configuration, as defined in the + -- stack template and any values specified as template parameters. For more + -- information, see + -- . + driftInformation :: Prelude.Maybe StackResourceDriftInformationSummary, + -- | Contains information about the module from which the resource was + -- created, if the resource was created from a module included in the stack + -- template. + moduleInfo :: Prelude.Maybe ModuleInfo, + -- | The name or unique identifier that corresponds to a physical instance ID + -- of the resource. + physicalResourceId :: Prelude.Maybe Prelude.Text, + -- | Success\/failure message associated with the resource. + resourceStatusReason :: Prelude.Maybe Prelude.Text, + -- | The logical name of the resource specified in the template. + logicalResourceId :: Prelude.Text, + -- | Type of resource. (For more information, go to + -- + -- in the CloudFormation User Guide.) + resourceType :: Prelude.Text, + -- | Time the status was updated. + lastUpdatedTimestamp :: Data.ISO8601, + -- | Current status of the resource. + resourceStatus :: ResourceStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackResourceSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'driftInformation', 'stackResourceSummary_driftInformation' - Information about whether the resource\'s actual configuration differs, +-- or has /drifted/, from its expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +-- +-- 'moduleInfo', 'stackResourceSummary_moduleInfo' - Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +-- +-- 'physicalResourceId', 'stackResourceSummary_physicalResourceId' - The name or unique identifier that corresponds to a physical instance ID +-- of the resource. +-- +-- 'resourceStatusReason', 'stackResourceSummary_resourceStatusReason' - Success\/failure message associated with the resource. +-- +-- 'logicalResourceId', 'stackResourceSummary_logicalResourceId' - The logical name of the resource specified in the template. +-- +-- 'resourceType', 'stackResourceSummary_resourceType' - Type of resource. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- 'lastUpdatedTimestamp', 'stackResourceSummary_lastUpdatedTimestamp' - Time the status was updated. +-- +-- 'resourceStatus', 'stackResourceSummary_resourceStatus' - Current status of the resource. +newStackResourceSummary :: + -- | 'logicalResourceId' + Prelude.Text -> + -- | 'resourceType' + Prelude.Text -> + -- | 'lastUpdatedTimestamp' + Prelude.UTCTime -> + -- | 'resourceStatus' + ResourceStatus -> + StackResourceSummary +newStackResourceSummary + pLogicalResourceId_ + pResourceType_ + pLastUpdatedTimestamp_ + pResourceStatus_ = + StackResourceSummary' + { driftInformation = + Prelude.Nothing, + moduleInfo = Prelude.Nothing, + physicalResourceId = Prelude.Nothing, + resourceStatusReason = Prelude.Nothing, + logicalResourceId = pLogicalResourceId_, + resourceType = pResourceType_, + lastUpdatedTimestamp = + Data._Time Lens.# pLastUpdatedTimestamp_, + resourceStatus = pResourceStatus_ + } + +-- | Information about whether the resource\'s actual configuration differs, +-- or has /drifted/, from its expected configuration, as defined in the +-- stack template and any values specified as template parameters. For more +-- information, see +-- . +stackResourceSummary_driftInformation :: Lens.Lens' StackResourceSummary (Prelude.Maybe StackResourceDriftInformationSummary) +stackResourceSummary_driftInformation = Lens.lens (\StackResourceSummary' {driftInformation} -> driftInformation) (\s@StackResourceSummary' {} a -> s {driftInformation = a} :: StackResourceSummary) + +-- | Contains information about the module from which the resource was +-- created, if the resource was created from a module included in the stack +-- template. +stackResourceSummary_moduleInfo :: Lens.Lens' StackResourceSummary (Prelude.Maybe ModuleInfo) +stackResourceSummary_moduleInfo = Lens.lens (\StackResourceSummary' {moduleInfo} -> moduleInfo) (\s@StackResourceSummary' {} a -> s {moduleInfo = a} :: StackResourceSummary) + +-- | The name or unique identifier that corresponds to a physical instance ID +-- of the resource. +stackResourceSummary_physicalResourceId :: Lens.Lens' StackResourceSummary (Prelude.Maybe Prelude.Text) +stackResourceSummary_physicalResourceId = Lens.lens (\StackResourceSummary' {physicalResourceId} -> physicalResourceId) (\s@StackResourceSummary' {} a -> s {physicalResourceId = a} :: StackResourceSummary) + +-- | Success\/failure message associated with the resource. +stackResourceSummary_resourceStatusReason :: Lens.Lens' StackResourceSummary (Prelude.Maybe Prelude.Text) +stackResourceSummary_resourceStatusReason = Lens.lens (\StackResourceSummary' {resourceStatusReason} -> resourceStatusReason) (\s@StackResourceSummary' {} a -> s {resourceStatusReason = a} :: StackResourceSummary) + +-- | The logical name of the resource specified in the template. +stackResourceSummary_logicalResourceId :: Lens.Lens' StackResourceSummary Prelude.Text +stackResourceSummary_logicalResourceId = Lens.lens (\StackResourceSummary' {logicalResourceId} -> logicalResourceId) (\s@StackResourceSummary' {} a -> s {logicalResourceId = a} :: StackResourceSummary) + +-- | Type of resource. (For more information, go to +-- +-- in the CloudFormation User Guide.) +stackResourceSummary_resourceType :: Lens.Lens' StackResourceSummary Prelude.Text +stackResourceSummary_resourceType = Lens.lens (\StackResourceSummary' {resourceType} -> resourceType) (\s@StackResourceSummary' {} a -> s {resourceType = a} :: StackResourceSummary) + +-- | Time the status was updated. +stackResourceSummary_lastUpdatedTimestamp :: Lens.Lens' StackResourceSummary Prelude.UTCTime +stackResourceSummary_lastUpdatedTimestamp = Lens.lens (\StackResourceSummary' {lastUpdatedTimestamp} -> lastUpdatedTimestamp) (\s@StackResourceSummary' {} a -> s {lastUpdatedTimestamp = a} :: StackResourceSummary) Prelude.. Data._Time + +-- | Current status of the resource. +stackResourceSummary_resourceStatus :: Lens.Lens' StackResourceSummary ResourceStatus +stackResourceSummary_resourceStatus = Lens.lens (\StackResourceSummary' {resourceStatus} -> resourceStatus) (\s@StackResourceSummary' {} a -> s {resourceStatus = a} :: StackResourceSummary) + +instance Data.FromXML StackResourceSummary where + parseXML x = + StackResourceSummary' + Prelude.<$> (x Data..@? "DriftInformation") + Prelude.<*> (x Data..@? "ModuleInfo") + Prelude.<*> (x Data..@? "PhysicalResourceId") + Prelude.<*> (x Data..@? "ResourceStatusReason") + Prelude.<*> (x Data..@ "LogicalResourceId") + Prelude.<*> (x Data..@ "ResourceType") + Prelude.<*> (x Data..@ "LastUpdatedTimestamp") + Prelude.<*> (x Data..@ "ResourceStatus") + +instance Prelude.Hashable StackResourceSummary where + hashWithSalt _salt StackResourceSummary' {..} = + _salt + `Prelude.hashWithSalt` driftInformation + `Prelude.hashWithSalt` moduleInfo + `Prelude.hashWithSalt` physicalResourceId + `Prelude.hashWithSalt` resourceStatusReason + `Prelude.hashWithSalt` logicalResourceId + `Prelude.hashWithSalt` resourceType + `Prelude.hashWithSalt` lastUpdatedTimestamp + `Prelude.hashWithSalt` resourceStatus + +instance Prelude.NFData StackResourceSummary where + rnf StackResourceSummary' {..} = + Prelude.rnf driftInformation + `Prelude.seq` Prelude.rnf moduleInfo + `Prelude.seq` Prelude.rnf physicalResourceId + `Prelude.seq` Prelude.rnf resourceStatusReason + `Prelude.seq` Prelude.rnf logicalResourceId + `Prelude.seq` Prelude.rnf resourceType + `Prelude.seq` Prelude.rnf lastUpdatedTimestamp + `Prelude.seq` Prelude.rnf resourceStatus diff --git a/gen/Amazonka/CloudFormation/Types/StackSet.hs b/gen/Amazonka/CloudFormation/Types/StackSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSet.hs @@ -0,0 +1,390 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSet where + +import Amazonka.CloudFormation.Types.AutoDeployment +import Amazonka.CloudFormation.Types.Capability +import Amazonka.CloudFormation.Types.ManagedExecution +import Amazonka.CloudFormation.Types.Parameter +import Amazonka.CloudFormation.Types.PermissionModels +import Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails +import Amazonka.CloudFormation.Types.StackSetStatus +import Amazonka.CloudFormation.Types.Tag +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | A structure that contains information about a stack set. A stack set +-- enables you to provision stacks into Amazon Web Services accounts and +-- across Regions by using a single CloudFormation template. In the stack +-- set, you specify the template to use, in addition to any parameters and +-- capabilities that the template requires. +-- +-- /See:/ 'newStackSet' smart constructor. +data StackSet = StackSet' + { -- | The Amazon Resource Name (ARN) of the IAM role used to create or update + -- the stack set. + -- + -- Use customized administrator roles to control which users or groups can + -- manage specific stack sets within the same administrator account. For + -- more information, see + -- + -- in the /CloudFormation User Guide/. + administrationRoleARN :: Prelude.Maybe Prelude.Text, + -- | [Service-managed permissions] Describes whether StackSets automatically + -- deploys to Organizations accounts that are added to a target + -- organization or organizational unit (OU). + autoDeployment :: Prelude.Maybe AutoDeployment, + -- | The capabilities that are allowed in the stack set. Some stack set + -- templates might include resources that can affect permissions in your + -- Amazon Web Services account—for example, by creating new Identity and + -- Access Management (IAM) users. For more information, see + -- + capabilities :: Prelude.Maybe [Capability], + -- | A description of the stack set that you specify when the stack set is + -- created or updated. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the IAM execution role used to create or update the stack + -- set. + -- + -- Use customized execution roles to control which stack resources users + -- and groups can include in their stack sets. + executionRoleName :: Prelude.Maybe Prelude.Text, + -- | Describes whether StackSets performs non-conflicting operations + -- concurrently and queues conflicting operations. + managedExecution :: Prelude.Maybe ManagedExecution, + -- | [Service-managed permissions] The organization root ID or organizational + -- unit (OU) IDs that you specified for + -- . + organizationalUnitIds :: Prelude.Maybe [Prelude.Text], + -- | A list of input parameters for a stack set. + parameters :: Prelude.Maybe [Parameter], + -- | Describes how the IAM roles required for stack set operations are + -- created. + -- + -- - With @self-managed@ permissions, you must create the administrator + -- and execution roles required to deploy to target accounts. For more + -- information, see + -- . + -- + -- - With @service-managed@ permissions, StackSets automatically creates + -- the IAM roles required to deploy to accounts managed by + -- Organizations. For more information, see + -- . + permissionModel :: Prelude.Maybe PermissionModels, + -- | The Amazon Resource Name (ARN) of the stack set. + stackSetARN :: Prelude.Maybe Prelude.Text, + -- | Detailed information about the drift status of the stack set. + -- + -- For stack sets, contains information about the last /completed/ drift + -- operation performed on the stack set. Information about drift operations + -- currently in progress isn\'t included. + stackSetDriftDetectionDetails :: Prelude.Maybe StackSetDriftDetectionDetails, + -- | The ID of the stack set. + stackSetId :: Prelude.Maybe Prelude.Text, + -- | The name that\'s associated with the stack set. + stackSetName :: Prelude.Maybe Prelude.Text, + -- | The status of the stack set. + status :: Prelude.Maybe StackSetStatus, + -- | A list of tags that specify information about the stack set. A maximum + -- number of 50 tags can be specified. + tags :: Prelude.Maybe [Tag], + -- | The structure that contains the body of the template that was used to + -- create or update the stack set. + templateBody :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'administrationRoleARN', 'stackSet_administrationRoleARN' - The Amazon Resource Name (ARN) of the IAM role used to create or update +-- the stack set. +-- +-- Use customized administrator roles to control which users or groups can +-- manage specific stack sets within the same administrator account. For +-- more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'autoDeployment', 'stackSet_autoDeployment' - [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organization or organizational unit (OU). +-- +-- 'capabilities', 'stackSet_capabilities' - The capabilities that are allowed in the stack set. Some stack set +-- templates might include resources that can affect permissions in your +-- Amazon Web Services account—for example, by creating new Identity and +-- Access Management (IAM) users. For more information, see +-- +-- +-- 'description', 'stackSet_description' - A description of the stack set that you specify when the stack set is +-- created or updated. +-- +-- 'executionRoleName', 'stackSet_executionRoleName' - The name of the IAM execution role used to create or update the stack +-- set. +-- +-- Use customized execution roles to control which stack resources users +-- and groups can include in their stack sets. +-- +-- 'managedExecution', 'stackSet_managedExecution' - Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +-- +-- 'organizationalUnitIds', 'stackSet_organizationalUnitIds' - [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +-- +-- 'parameters', 'stackSet_parameters' - A list of input parameters for a stack set. +-- +-- 'permissionModel', 'stackSet_permissionModel' - Describes how the IAM roles required for stack set operations are +-- created. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +-- +-- 'stackSetARN', 'stackSet_stackSetARN' - The Amazon Resource Name (ARN) of the stack set. +-- +-- 'stackSetDriftDetectionDetails', 'stackSet_stackSetDriftDetectionDetails' - Detailed information about the drift status of the stack set. +-- +-- For stack sets, contains information about the last /completed/ drift +-- operation performed on the stack set. Information about drift operations +-- currently in progress isn\'t included. +-- +-- 'stackSetId', 'stackSet_stackSetId' - The ID of the stack set. +-- +-- 'stackSetName', 'stackSet_stackSetName' - The name that\'s associated with the stack set. +-- +-- 'status', 'stackSet_status' - The status of the stack set. +-- +-- 'tags', 'stackSet_tags' - A list of tags that specify information about the stack set. A maximum +-- number of 50 tags can be specified. +-- +-- 'templateBody', 'stackSet_templateBody' - The structure that contains the body of the template that was used to +-- create or update the stack set. +newStackSet :: + StackSet +newStackSet = + StackSet' + { administrationRoleARN = Prelude.Nothing, + autoDeployment = Prelude.Nothing, + capabilities = Prelude.Nothing, + description = Prelude.Nothing, + executionRoleName = Prelude.Nothing, + managedExecution = Prelude.Nothing, + organizationalUnitIds = Prelude.Nothing, + parameters = Prelude.Nothing, + permissionModel = Prelude.Nothing, + stackSetARN = Prelude.Nothing, + stackSetDriftDetectionDetails = Prelude.Nothing, + stackSetId = Prelude.Nothing, + stackSetName = Prelude.Nothing, + status = Prelude.Nothing, + tags = Prelude.Nothing, + templateBody = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the IAM role used to create or update +-- the stack set. +-- +-- Use customized administrator roles to control which users or groups can +-- manage specific stack sets within the same administrator account. For +-- more information, see +-- +-- in the /CloudFormation User Guide/. +stackSet_administrationRoleARN :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_administrationRoleARN = Lens.lens (\StackSet' {administrationRoleARN} -> administrationRoleARN) (\s@StackSet' {} a -> s {administrationRoleARN = a} :: StackSet) + +-- | [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organization or organizational unit (OU). +stackSet_autoDeployment :: Lens.Lens' StackSet (Prelude.Maybe AutoDeployment) +stackSet_autoDeployment = Lens.lens (\StackSet' {autoDeployment} -> autoDeployment) (\s@StackSet' {} a -> s {autoDeployment = a} :: StackSet) + +-- | The capabilities that are allowed in the stack set. Some stack set +-- templates might include resources that can affect permissions in your +-- Amazon Web Services account—for example, by creating new Identity and +-- Access Management (IAM) users. For more information, see +-- +stackSet_capabilities :: Lens.Lens' StackSet (Prelude.Maybe [Capability]) +stackSet_capabilities = Lens.lens (\StackSet' {capabilities} -> capabilities) (\s@StackSet' {} a -> s {capabilities = a} :: StackSet) Prelude.. Lens.mapping Lens.coerced + +-- | A description of the stack set that you specify when the stack set is +-- created or updated. +stackSet_description :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_description = Lens.lens (\StackSet' {description} -> description) (\s@StackSet' {} a -> s {description = a} :: StackSet) + +-- | The name of the IAM execution role used to create or update the stack +-- set. +-- +-- Use customized execution roles to control which stack resources users +-- and groups can include in their stack sets. +stackSet_executionRoleName :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_executionRoleName = Lens.lens (\StackSet' {executionRoleName} -> executionRoleName) (\s@StackSet' {} a -> s {executionRoleName = a} :: StackSet) + +-- | Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +stackSet_managedExecution :: Lens.Lens' StackSet (Prelude.Maybe ManagedExecution) +stackSet_managedExecution = Lens.lens (\StackSet' {managedExecution} -> managedExecution) (\s@StackSet' {} a -> s {managedExecution = a} :: StackSet) + +-- | [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +stackSet_organizationalUnitIds :: Lens.Lens' StackSet (Prelude.Maybe [Prelude.Text]) +stackSet_organizationalUnitIds = Lens.lens (\StackSet' {organizationalUnitIds} -> organizationalUnitIds) (\s@StackSet' {} a -> s {organizationalUnitIds = a} :: StackSet) Prelude.. Lens.mapping Lens.coerced + +-- | A list of input parameters for a stack set. +stackSet_parameters :: Lens.Lens' StackSet (Prelude.Maybe [Parameter]) +stackSet_parameters = Lens.lens (\StackSet' {parameters} -> parameters) (\s@StackSet' {} a -> s {parameters = a} :: StackSet) Prelude.. Lens.mapping Lens.coerced + +-- | Describes how the IAM roles required for stack set operations are +-- created. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +stackSet_permissionModel :: Lens.Lens' StackSet (Prelude.Maybe PermissionModels) +stackSet_permissionModel = Lens.lens (\StackSet' {permissionModel} -> permissionModel) (\s@StackSet' {} a -> s {permissionModel = a} :: StackSet) + +-- | The Amazon Resource Name (ARN) of the stack set. +stackSet_stackSetARN :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_stackSetARN = Lens.lens (\StackSet' {stackSetARN} -> stackSetARN) (\s@StackSet' {} a -> s {stackSetARN = a} :: StackSet) + +-- | Detailed information about the drift status of the stack set. +-- +-- For stack sets, contains information about the last /completed/ drift +-- operation performed on the stack set. Information about drift operations +-- currently in progress isn\'t included. +stackSet_stackSetDriftDetectionDetails :: Lens.Lens' StackSet (Prelude.Maybe StackSetDriftDetectionDetails) +stackSet_stackSetDriftDetectionDetails = Lens.lens (\StackSet' {stackSetDriftDetectionDetails} -> stackSetDriftDetectionDetails) (\s@StackSet' {} a -> s {stackSetDriftDetectionDetails = a} :: StackSet) + +-- | The ID of the stack set. +stackSet_stackSetId :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_stackSetId = Lens.lens (\StackSet' {stackSetId} -> stackSetId) (\s@StackSet' {} a -> s {stackSetId = a} :: StackSet) + +-- | The name that\'s associated with the stack set. +stackSet_stackSetName :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_stackSetName = Lens.lens (\StackSet' {stackSetName} -> stackSetName) (\s@StackSet' {} a -> s {stackSetName = a} :: StackSet) + +-- | The status of the stack set. +stackSet_status :: Lens.Lens' StackSet (Prelude.Maybe StackSetStatus) +stackSet_status = Lens.lens (\StackSet' {status} -> status) (\s@StackSet' {} a -> s {status = a} :: StackSet) + +-- | A list of tags that specify information about the stack set. A maximum +-- number of 50 tags can be specified. +stackSet_tags :: Lens.Lens' StackSet (Prelude.Maybe [Tag]) +stackSet_tags = Lens.lens (\StackSet' {tags} -> tags) (\s@StackSet' {} a -> s {tags = a} :: StackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The structure that contains the body of the template that was used to +-- create or update the stack set. +stackSet_templateBody :: Lens.Lens' StackSet (Prelude.Maybe Prelude.Text) +stackSet_templateBody = Lens.lens (\StackSet' {templateBody} -> templateBody) (\s@StackSet' {} a -> s {templateBody = a} :: StackSet) + +instance Data.FromXML StackSet where + parseXML x = + StackSet' + Prelude.<$> (x Data..@? "AdministrationRoleARN") + Prelude.<*> (x Data..@? "AutoDeployment") + Prelude.<*> ( x + Data..@? "Capabilities" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "ExecutionRoleName") + Prelude.<*> (x Data..@? "ManagedExecution") + Prelude.<*> ( x + Data..@? "OrganizationalUnitIds" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> ( x + Data..@? "Parameters" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "PermissionModel") + Prelude.<*> (x Data..@? "StackSetARN") + Prelude.<*> (x Data..@? "StackSetDriftDetectionDetails") + Prelude.<*> (x Data..@? "StackSetId") + Prelude.<*> (x Data..@? "StackSetName") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> ( x + Data..@? "Tags" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "TemplateBody") + +instance Prelude.Hashable StackSet where + hashWithSalt _salt StackSet' {..} = + _salt + `Prelude.hashWithSalt` administrationRoleARN + `Prelude.hashWithSalt` autoDeployment + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` executionRoleName + `Prelude.hashWithSalt` managedExecution + `Prelude.hashWithSalt` organizationalUnitIds + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` permissionModel + `Prelude.hashWithSalt` stackSetARN + `Prelude.hashWithSalt` stackSetDriftDetectionDetails + `Prelude.hashWithSalt` stackSetId + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` templateBody + +instance Prelude.NFData StackSet where + rnf StackSet' {..} = + Prelude.rnf administrationRoleARN + `Prelude.seq` Prelude.rnf autoDeployment + `Prelude.seq` Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf executionRoleName + `Prelude.seq` Prelude.rnf managedExecution + `Prelude.seq` Prelude.rnf organizationalUnitIds + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf permissionModel + `Prelude.seq` Prelude.rnf stackSetARN + `Prelude.seq` Prelude.rnf stackSetDriftDetectionDetails + `Prelude.seq` Prelude.rnf stackSetId + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf templateBody diff --git a/gen/Amazonka/CloudFormation/Types/StackSetDriftDetectionDetails.hs b/gen/Amazonka/CloudFormation/Types/StackSetDriftDetectionDetails.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetDriftDetectionDetails.hs @@ -0,0 +1,308 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails where + +import Amazonka.CloudFormation.Types.StackSetDriftDetectionStatus +import Amazonka.CloudFormation.Types.StackSetDriftStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Detailed information about the drift status of the stack set. +-- +-- For stack sets, contains information about the last /completed/ drift +-- operation performed on the stack set. Information about drift operations +-- in-progress isn\'t included. +-- +-- For stack set operations, includes information about drift operations +-- currently being performed on the stack set. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- /See:/ 'newStackSetDriftDetectionDetails' smart constructor. +data StackSetDriftDetectionDetails = StackSetDriftDetectionDetails' + { -- | The status of the stack set drift detection operation. + -- + -- - @COMPLETED@: The drift detection operation completed without failing + -- on any stack instances. + -- + -- - @FAILED@: The drift detection operation exceeded the specified + -- failure tolerance. + -- + -- - @PARTIAL_SUCCESS@: The drift detection operation completed without + -- exceeding the failure tolerance for the operation. + -- + -- - @IN_PROGRESS@: The drift detection operation is currently being + -- performed. + -- + -- - @STOPPED@: The user has canceled the drift detection operation. + driftDetectionStatus :: Prelude.Maybe StackSetDriftDetectionStatus, + -- | Status of the stack set\'s actual configuration compared to its expected + -- template and parameter configuration. A stack set is considered to have + -- drifted if one or more of its stack instances have drifted from their + -- expected template and parameter configuration. + -- + -- - @DRIFTED@: One or more of the stack instances belonging to the stack + -- set stack differs from the expected template and parameter + -- configuration. A stack instance is considered to have drifted if one + -- or more of the resources in the associated stack have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked the stack set for + -- drift. + -- + -- - @IN_SYNC@: All of the stack instances belonging to the stack set + -- stack match from the expected template and parameter configuration. + driftStatus :: Prelude.Maybe StackSetDriftStatus, + -- | The number of stack instances that have drifted from the expected + -- template and parameter configuration of the stack set. A stack instance + -- is considered to have drifted if one or more of the resources in the + -- associated stack don\'t match their expected configuration. + driftedStackInstancesCount :: Prelude.Maybe Prelude.Natural, + -- | The number of stack instances for which the drift detection operation + -- failed. + failedStackInstancesCount :: Prelude.Maybe Prelude.Natural, + -- | The number of stack instances that are currently being checked for + -- drift. + inProgressStackInstancesCount :: Prelude.Maybe Prelude.Natural, + -- | The number of stack instances which match the expected template and + -- parameter configuration of the stack set. + inSyncStackInstancesCount :: Prelude.Maybe Prelude.Natural, + -- | Most recent time when CloudFormation performed a drift detection + -- operation on the stack set. This value will be @NULL@ for any stack set + -- on which drift detection hasn\'t yet been performed. + lastDriftCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | The total number of stack instances belonging to this stack set. + -- + -- The total number of stack instances is equal to the total of: + -- + -- - Stack instances that match the stack set configuration. + -- + -- - Stack instances that have drifted from the stack set configuration. + -- + -- - Stack instances where the drift detection operation has failed. + -- + -- - Stack instances currently being checked for drift. + totalStackInstancesCount :: Prelude.Maybe Prelude.Natural + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetDriftDetectionDetails' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'driftDetectionStatus', 'stackSetDriftDetectionDetails_driftDetectionStatus' - The status of the stack set drift detection operation. +-- +-- - @COMPLETED@: The drift detection operation completed without failing +-- on any stack instances. +-- +-- - @FAILED@: The drift detection operation exceeded the specified +-- failure tolerance. +-- +-- - @PARTIAL_SUCCESS@: The drift detection operation completed without +-- exceeding the failure tolerance for the operation. +-- +-- - @IN_PROGRESS@: The drift detection operation is currently being +-- performed. +-- +-- - @STOPPED@: The user has canceled the drift detection operation. +-- +-- 'driftStatus', 'stackSetDriftDetectionDetails_driftStatus' - Status of the stack set\'s actual configuration compared to its expected +-- template and parameter configuration. A stack set is considered to have +-- drifted if one or more of its stack instances have drifted from their +-- expected template and parameter configuration. +-- +-- - @DRIFTED@: One or more of the stack instances belonging to the stack +-- set stack differs from the expected template and parameter +-- configuration. A stack instance is considered to have drifted if one +-- or more of the resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked the stack set for +-- drift. +-- +-- - @IN_SYNC@: All of the stack instances belonging to the stack set +-- stack match from the expected template and parameter configuration. +-- +-- 'driftedStackInstancesCount', 'stackSetDriftDetectionDetails_driftedStackInstancesCount' - The number of stack instances that have drifted from the expected +-- template and parameter configuration of the stack set. A stack instance +-- is considered to have drifted if one or more of the resources in the +-- associated stack don\'t match their expected configuration. +-- +-- 'failedStackInstancesCount', 'stackSetDriftDetectionDetails_failedStackInstancesCount' - The number of stack instances for which the drift detection operation +-- failed. +-- +-- 'inProgressStackInstancesCount', 'stackSetDriftDetectionDetails_inProgressStackInstancesCount' - The number of stack instances that are currently being checked for +-- drift. +-- +-- 'inSyncStackInstancesCount', 'stackSetDriftDetectionDetails_inSyncStackInstancesCount' - The number of stack instances which match the expected template and +-- parameter configuration of the stack set. +-- +-- 'lastDriftCheckTimestamp', 'stackSetDriftDetectionDetails_lastDriftCheckTimestamp' - Most recent time when CloudFormation performed a drift detection +-- operation on the stack set. This value will be @NULL@ for any stack set +-- on which drift detection hasn\'t yet been performed. +-- +-- 'totalStackInstancesCount', 'stackSetDriftDetectionDetails_totalStackInstancesCount' - The total number of stack instances belonging to this stack set. +-- +-- The total number of stack instances is equal to the total of: +-- +-- - Stack instances that match the stack set configuration. +-- +-- - Stack instances that have drifted from the stack set configuration. +-- +-- - Stack instances where the drift detection operation has failed. +-- +-- - Stack instances currently being checked for drift. +newStackSetDriftDetectionDetails :: + StackSetDriftDetectionDetails +newStackSetDriftDetectionDetails = + StackSetDriftDetectionDetails' + { driftDetectionStatus = + Prelude.Nothing, + driftStatus = Prelude.Nothing, + driftedStackInstancesCount = Prelude.Nothing, + failedStackInstancesCount = Prelude.Nothing, + inProgressStackInstancesCount = + Prelude.Nothing, + inSyncStackInstancesCount = Prelude.Nothing, + lastDriftCheckTimestamp = Prelude.Nothing, + totalStackInstancesCount = Prelude.Nothing + } + +-- | The status of the stack set drift detection operation. +-- +-- - @COMPLETED@: The drift detection operation completed without failing +-- on any stack instances. +-- +-- - @FAILED@: The drift detection operation exceeded the specified +-- failure tolerance. +-- +-- - @PARTIAL_SUCCESS@: The drift detection operation completed without +-- exceeding the failure tolerance for the operation. +-- +-- - @IN_PROGRESS@: The drift detection operation is currently being +-- performed. +-- +-- - @STOPPED@: The user has canceled the drift detection operation. +stackSetDriftDetectionDetails_driftDetectionStatus :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe StackSetDriftDetectionStatus) +stackSetDriftDetectionDetails_driftDetectionStatus = Lens.lens (\StackSetDriftDetectionDetails' {driftDetectionStatus} -> driftDetectionStatus) (\s@StackSetDriftDetectionDetails' {} a -> s {driftDetectionStatus = a} :: StackSetDriftDetectionDetails) + +-- | Status of the stack set\'s actual configuration compared to its expected +-- template and parameter configuration. A stack set is considered to have +-- drifted if one or more of its stack instances have drifted from their +-- expected template and parameter configuration. +-- +-- - @DRIFTED@: One or more of the stack instances belonging to the stack +-- set stack differs from the expected template and parameter +-- configuration. A stack instance is considered to have drifted if one +-- or more of the resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked the stack set for +-- drift. +-- +-- - @IN_SYNC@: All of the stack instances belonging to the stack set +-- stack match from the expected template and parameter configuration. +stackSetDriftDetectionDetails_driftStatus :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe StackSetDriftStatus) +stackSetDriftDetectionDetails_driftStatus = Lens.lens (\StackSetDriftDetectionDetails' {driftStatus} -> driftStatus) (\s@StackSetDriftDetectionDetails' {} a -> s {driftStatus = a} :: StackSetDriftDetectionDetails) + +-- | The number of stack instances that have drifted from the expected +-- template and parameter configuration of the stack set. A stack instance +-- is considered to have drifted if one or more of the resources in the +-- associated stack don\'t match their expected configuration. +stackSetDriftDetectionDetails_driftedStackInstancesCount :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe Prelude.Natural) +stackSetDriftDetectionDetails_driftedStackInstancesCount = Lens.lens (\StackSetDriftDetectionDetails' {driftedStackInstancesCount} -> driftedStackInstancesCount) (\s@StackSetDriftDetectionDetails' {} a -> s {driftedStackInstancesCount = a} :: StackSetDriftDetectionDetails) + +-- | The number of stack instances for which the drift detection operation +-- failed. +stackSetDriftDetectionDetails_failedStackInstancesCount :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe Prelude.Natural) +stackSetDriftDetectionDetails_failedStackInstancesCount = Lens.lens (\StackSetDriftDetectionDetails' {failedStackInstancesCount} -> failedStackInstancesCount) (\s@StackSetDriftDetectionDetails' {} a -> s {failedStackInstancesCount = a} :: StackSetDriftDetectionDetails) + +-- | The number of stack instances that are currently being checked for +-- drift. +stackSetDriftDetectionDetails_inProgressStackInstancesCount :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe Prelude.Natural) +stackSetDriftDetectionDetails_inProgressStackInstancesCount = Lens.lens (\StackSetDriftDetectionDetails' {inProgressStackInstancesCount} -> inProgressStackInstancesCount) (\s@StackSetDriftDetectionDetails' {} a -> s {inProgressStackInstancesCount = a} :: StackSetDriftDetectionDetails) + +-- | The number of stack instances which match the expected template and +-- parameter configuration of the stack set. +stackSetDriftDetectionDetails_inSyncStackInstancesCount :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe Prelude.Natural) +stackSetDriftDetectionDetails_inSyncStackInstancesCount = Lens.lens (\StackSetDriftDetectionDetails' {inSyncStackInstancesCount} -> inSyncStackInstancesCount) (\s@StackSetDriftDetectionDetails' {} a -> s {inSyncStackInstancesCount = a} :: StackSetDriftDetectionDetails) + +-- | Most recent time when CloudFormation performed a drift detection +-- operation on the stack set. This value will be @NULL@ for any stack set +-- on which drift detection hasn\'t yet been performed. +stackSetDriftDetectionDetails_lastDriftCheckTimestamp :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe Prelude.UTCTime) +stackSetDriftDetectionDetails_lastDriftCheckTimestamp = Lens.lens (\StackSetDriftDetectionDetails' {lastDriftCheckTimestamp} -> lastDriftCheckTimestamp) (\s@StackSetDriftDetectionDetails' {} a -> s {lastDriftCheckTimestamp = a} :: StackSetDriftDetectionDetails) Prelude.. Lens.mapping Data._Time + +-- | The total number of stack instances belonging to this stack set. +-- +-- The total number of stack instances is equal to the total of: +-- +-- - Stack instances that match the stack set configuration. +-- +-- - Stack instances that have drifted from the stack set configuration. +-- +-- - Stack instances where the drift detection operation has failed. +-- +-- - Stack instances currently being checked for drift. +stackSetDriftDetectionDetails_totalStackInstancesCount :: Lens.Lens' StackSetDriftDetectionDetails (Prelude.Maybe Prelude.Natural) +stackSetDriftDetectionDetails_totalStackInstancesCount = Lens.lens (\StackSetDriftDetectionDetails' {totalStackInstancesCount} -> totalStackInstancesCount) (\s@StackSetDriftDetectionDetails' {} a -> s {totalStackInstancesCount = a} :: StackSetDriftDetectionDetails) + +instance Data.FromXML StackSetDriftDetectionDetails where + parseXML x = + StackSetDriftDetectionDetails' + Prelude.<$> (x Data..@? "DriftDetectionStatus") + Prelude.<*> (x Data..@? "DriftStatus") + Prelude.<*> (x Data..@? "DriftedStackInstancesCount") + Prelude.<*> (x Data..@? "FailedStackInstancesCount") + Prelude.<*> (x Data..@? "InProgressStackInstancesCount") + Prelude.<*> (x Data..@? "InSyncStackInstancesCount") + Prelude.<*> (x Data..@? "LastDriftCheckTimestamp") + Prelude.<*> (x Data..@? "TotalStackInstancesCount") + +instance + Prelude.Hashable + StackSetDriftDetectionDetails + where + hashWithSalt _salt StackSetDriftDetectionDetails' {..} = + _salt + `Prelude.hashWithSalt` driftDetectionStatus + `Prelude.hashWithSalt` driftStatus + `Prelude.hashWithSalt` driftedStackInstancesCount + `Prelude.hashWithSalt` failedStackInstancesCount + `Prelude.hashWithSalt` inProgressStackInstancesCount + `Prelude.hashWithSalt` inSyncStackInstancesCount + `Prelude.hashWithSalt` lastDriftCheckTimestamp + `Prelude.hashWithSalt` totalStackInstancesCount + +instance Prelude.NFData StackSetDriftDetectionDetails where + rnf StackSetDriftDetectionDetails' {..} = + Prelude.rnf driftDetectionStatus + `Prelude.seq` Prelude.rnf driftStatus + `Prelude.seq` Prelude.rnf driftedStackInstancesCount + `Prelude.seq` Prelude.rnf failedStackInstancesCount + `Prelude.seq` Prelude.rnf inProgressStackInstancesCount + `Prelude.seq` Prelude.rnf inSyncStackInstancesCount + `Prelude.seq` Prelude.rnf lastDriftCheckTimestamp + `Prelude.seq` Prelude.rnf totalStackInstancesCount diff --git a/gen/Amazonka/CloudFormation/Types/StackSetDriftDetectionStatus.hs b/gen/Amazonka/CloudFormation/Types/StackSetDriftDetectionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetDriftDetectionStatus.hs @@ -0,0 +1,86 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetDriftDetectionStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetDriftDetectionStatus + ( StackSetDriftDetectionStatus + ( .., + StackSetDriftDetectionStatus_COMPLETED, + StackSetDriftDetectionStatus_FAILED, + StackSetDriftDetectionStatus_IN_PROGRESS, + StackSetDriftDetectionStatus_PARTIAL_SUCCESS, + StackSetDriftDetectionStatus_STOPPED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackSetDriftDetectionStatus = StackSetDriftDetectionStatus' + { fromStackSetDriftDetectionStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackSetDriftDetectionStatus_COMPLETED :: StackSetDriftDetectionStatus +pattern StackSetDriftDetectionStatus_COMPLETED = StackSetDriftDetectionStatus' "COMPLETED" + +pattern StackSetDriftDetectionStatus_FAILED :: StackSetDriftDetectionStatus +pattern StackSetDriftDetectionStatus_FAILED = StackSetDriftDetectionStatus' "FAILED" + +pattern StackSetDriftDetectionStatus_IN_PROGRESS :: StackSetDriftDetectionStatus +pattern StackSetDriftDetectionStatus_IN_PROGRESS = StackSetDriftDetectionStatus' "IN_PROGRESS" + +pattern StackSetDriftDetectionStatus_PARTIAL_SUCCESS :: StackSetDriftDetectionStatus +pattern StackSetDriftDetectionStatus_PARTIAL_SUCCESS = StackSetDriftDetectionStatus' "PARTIAL_SUCCESS" + +pattern StackSetDriftDetectionStatus_STOPPED :: StackSetDriftDetectionStatus +pattern StackSetDriftDetectionStatus_STOPPED = StackSetDriftDetectionStatus' "STOPPED" + +{-# COMPLETE + StackSetDriftDetectionStatus_COMPLETED, + StackSetDriftDetectionStatus_FAILED, + StackSetDriftDetectionStatus_IN_PROGRESS, + StackSetDriftDetectionStatus_PARTIAL_SUCCESS, + StackSetDriftDetectionStatus_STOPPED, + StackSetDriftDetectionStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSetDriftStatus.hs b/gen/Amazonka/CloudFormation/Types/StackSetDriftStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetDriftStatus.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetDriftStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetDriftStatus + ( StackSetDriftStatus + ( .., + StackSetDriftStatus_DRIFTED, + StackSetDriftStatus_IN_SYNC, + StackSetDriftStatus_NOT_CHECKED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackSetDriftStatus = StackSetDriftStatus' + { fromStackSetDriftStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackSetDriftStatus_DRIFTED :: StackSetDriftStatus +pattern StackSetDriftStatus_DRIFTED = StackSetDriftStatus' "DRIFTED" + +pattern StackSetDriftStatus_IN_SYNC :: StackSetDriftStatus +pattern StackSetDriftStatus_IN_SYNC = StackSetDriftStatus' "IN_SYNC" + +pattern StackSetDriftStatus_NOT_CHECKED :: StackSetDriftStatus +pattern StackSetDriftStatus_NOT_CHECKED = StackSetDriftStatus' "NOT_CHECKED" + +{-# COMPLETE + StackSetDriftStatus_DRIFTED, + StackSetDriftStatus_IN_SYNC, + StackSetDriftStatus_NOT_CHECKED, + StackSetDriftStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperation.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperation.hs @@ -0,0 +1,419 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperation where + +import Amazonka.CloudFormation.Types.DeploymentTargets +import Amazonka.CloudFormation.Types.StackSetDriftDetectionDetails +import Amazonka.CloudFormation.Types.StackSetOperationAction +import Amazonka.CloudFormation.Types.StackSetOperationPreferences +import Amazonka.CloudFormation.Types.StackSetOperationStatus +import Amazonka.CloudFormation.Types.StackSetOperationStatusDetails +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The structure that contains information about a stack set operation. +-- +-- /See:/ 'newStackSetOperation' smart constructor. +data StackSetOperation = StackSetOperation' + { -- | The type of stack set operation: @CREATE@, @UPDATE@, or @DELETE@. Create + -- and delete operations affect only the specified stack set instances that + -- are associated with the specified stack set. Update operations affect + -- both the stack set itself, in addition to /all/ associated stack set + -- instances. + action :: Prelude.Maybe StackSetOperationAction, + -- | The Amazon Resource Name (ARN) of the IAM role used to perform this + -- stack set operation. + -- + -- Use customized administrator roles to control which users or groups can + -- manage specific stack sets within the same administrator account. For + -- more information, see + -- + -- in the /CloudFormation User Guide/. + administrationRoleARN :: Prelude.Maybe Prelude.Text, + -- | The time at which the operation was initiated. Note that the creation + -- times for the stack set operation might differ from the creation time of + -- the individual stacks themselves. This is because CloudFormation needs + -- to perform preparatory work for the operation, such as dispatching the + -- work to the requested Regions, before actually creating the first + -- stacks. + creationTimestamp :: Prelude.Maybe Data.ISO8601, + -- | [Service-managed permissions] The Organizations accounts affected by the + -- stack operation. + deploymentTargets :: Prelude.Maybe DeploymentTargets, + -- | The time at which the stack set operation ended, across all accounts and + -- Regions specified. Note that this doesn\'t necessarily mean that the + -- stack set operation was successful, or even attempted, in each account + -- or Region. + endTimestamp :: Prelude.Maybe Data.ISO8601, + -- | The name of the IAM execution role used to create or update the stack + -- set. + -- + -- Use customized execution roles to control which stack resources users + -- and groups can include in their stack sets. + executionRoleName :: Prelude.Maybe Prelude.Text, + -- | The unique ID of a stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The preferences for how CloudFormation performs this stack set + -- operation. + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | For stack set operations of action type @DELETE@, specifies whether to + -- remove the stack instances from the specified stack set, but doesn\'t + -- delete the stacks. You can\'t re-associate a retained stack, or add an + -- existing, saved stack to a new stack set. + retainStacks :: Prelude.Maybe Prelude.Bool, + -- | Detailed information about the drift status of the stack set. This + -- includes information about drift operations currently being performed on + -- the stack set. + -- + -- This information will only be present for stack set operations whose + -- @Action@ type is @DETECT_DRIFT@. + -- + -- For more information, see + -- + -- in the CloudFormation User Guide. + stackSetDriftDetectionDetails :: Prelude.Maybe StackSetDriftDetectionDetails, + -- | The ID of the stack set. + stackSetId :: Prelude.Maybe Prelude.Text, + -- | The status of the operation. + -- + -- - @FAILED@: The operation exceeded the specified failure tolerance. + -- The failure tolerance value that you\'ve set for an operation is + -- applied for each Region during stack create and update operations. + -- If the number of failed stacks within a Region exceeds the failure + -- tolerance, the status of the operation in the Region is set to + -- @FAILED@. This in turn sets the status of the operation as a whole + -- to @FAILED@, and CloudFormation cancels the operation in any + -- remaining Regions. + -- + -- - @QUEUED@: [Service-managed permissions] For automatic deployments + -- that require a sequence of operations, the operation is queued to be + -- performed. For more information, see the + -- + -- in the CloudFormation User Guide. + -- + -- - @RUNNING@: The operation is currently being performed. + -- + -- - @STOPPED@: The user has canceled the operation. + -- + -- - @STOPPING@: The operation is in the process of stopping, at user + -- request. + -- + -- - @SUCCEEDED@: The operation completed creating or updating all the + -- specified stacks without exceeding the failure tolerance for the + -- operation. + status :: Prelude.Maybe StackSetOperationStatus, + -- | Detailed information about the StackSet operation. + statusDetails :: Prelude.Maybe StackSetOperationStatusDetails, + -- | The status of the operation in details. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetOperation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'action', 'stackSetOperation_action' - The type of stack set operation: @CREATE@, @UPDATE@, or @DELETE@. Create +-- and delete operations affect only the specified stack set instances that +-- are associated with the specified stack set. Update operations affect +-- both the stack set itself, in addition to /all/ associated stack set +-- instances. +-- +-- 'administrationRoleARN', 'stackSetOperation_administrationRoleARN' - The Amazon Resource Name (ARN) of the IAM role used to perform this +-- stack set operation. +-- +-- Use customized administrator roles to control which users or groups can +-- manage specific stack sets within the same administrator account. For +-- more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'creationTimestamp', 'stackSetOperation_creationTimestamp' - The time at which the operation was initiated. Note that the creation +-- times for the stack set operation might differ from the creation time of +-- the individual stacks themselves. This is because CloudFormation needs +-- to perform preparatory work for the operation, such as dispatching the +-- work to the requested Regions, before actually creating the first +-- stacks. +-- +-- 'deploymentTargets', 'stackSetOperation_deploymentTargets' - [Service-managed permissions] The Organizations accounts affected by the +-- stack operation. +-- +-- 'endTimestamp', 'stackSetOperation_endTimestamp' - The time at which the stack set operation ended, across all accounts and +-- Regions specified. Note that this doesn\'t necessarily mean that the +-- stack set operation was successful, or even attempted, in each account +-- or Region. +-- +-- 'executionRoleName', 'stackSetOperation_executionRoleName' - The name of the IAM execution role used to create or update the stack +-- set. +-- +-- Use customized execution roles to control which stack resources users +-- and groups can include in their stack sets. +-- +-- 'operationId', 'stackSetOperation_operationId' - The unique ID of a stack set operation. +-- +-- 'operationPreferences', 'stackSetOperation_operationPreferences' - The preferences for how CloudFormation performs this stack set +-- operation. +-- +-- 'retainStacks', 'stackSetOperation_retainStacks' - For stack set operations of action type @DELETE@, specifies whether to +-- remove the stack instances from the specified stack set, but doesn\'t +-- delete the stacks. You can\'t re-associate a retained stack, or add an +-- existing, saved stack to a new stack set. +-- +-- 'stackSetDriftDetectionDetails', 'stackSetOperation_stackSetDriftDetectionDetails' - Detailed information about the drift status of the stack set. This +-- includes information about drift operations currently being performed on +-- the stack set. +-- +-- This information will only be present for stack set operations whose +-- @Action@ type is @DETECT_DRIFT@. +-- +-- For more information, see +-- +-- in the CloudFormation User Guide. +-- +-- 'stackSetId', 'stackSetOperation_stackSetId' - The ID of the stack set. +-- +-- 'status', 'stackSetOperation_status' - The status of the operation. +-- +-- - @FAILED@: The operation exceeded the specified failure tolerance. +-- The failure tolerance value that you\'ve set for an operation is +-- applied for each Region during stack create and update operations. +-- If the number of failed stacks within a Region exceeds the failure +-- tolerance, the status of the operation in the Region is set to +-- @FAILED@. This in turn sets the status of the operation as a whole +-- to @FAILED@, and CloudFormation cancels the operation in any +-- remaining Regions. +-- +-- - @QUEUED@: [Service-managed permissions] For automatic deployments +-- that require a sequence of operations, the operation is queued to be +-- performed. For more information, see the +-- +-- in the CloudFormation User Guide. +-- +-- - @RUNNING@: The operation is currently being performed. +-- +-- - @STOPPED@: The user has canceled the operation. +-- +-- - @STOPPING@: The operation is in the process of stopping, at user +-- request. +-- +-- - @SUCCEEDED@: The operation completed creating or updating all the +-- specified stacks without exceeding the failure tolerance for the +-- operation. +-- +-- 'statusDetails', 'stackSetOperation_statusDetails' - Detailed information about the StackSet operation. +-- +-- 'statusReason', 'stackSetOperation_statusReason' - The status of the operation in details. +newStackSetOperation :: + StackSetOperation +newStackSetOperation = + StackSetOperation' + { action = Prelude.Nothing, + administrationRoleARN = Prelude.Nothing, + creationTimestamp = Prelude.Nothing, + deploymentTargets = Prelude.Nothing, + endTimestamp = Prelude.Nothing, + executionRoleName = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + retainStacks = Prelude.Nothing, + stackSetDriftDetectionDetails = Prelude.Nothing, + stackSetId = Prelude.Nothing, + status = Prelude.Nothing, + statusDetails = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | The type of stack set operation: @CREATE@, @UPDATE@, or @DELETE@. Create +-- and delete operations affect only the specified stack set instances that +-- are associated with the specified stack set. Update operations affect +-- both the stack set itself, in addition to /all/ associated stack set +-- instances. +stackSetOperation_action :: Lens.Lens' StackSetOperation (Prelude.Maybe StackSetOperationAction) +stackSetOperation_action = Lens.lens (\StackSetOperation' {action} -> action) (\s@StackSetOperation' {} a -> s {action = a} :: StackSetOperation) + +-- | The Amazon Resource Name (ARN) of the IAM role used to perform this +-- stack set operation. +-- +-- Use customized administrator roles to control which users or groups can +-- manage specific stack sets within the same administrator account. For +-- more information, see +-- +-- in the /CloudFormation User Guide/. +stackSetOperation_administrationRoleARN :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.Text) +stackSetOperation_administrationRoleARN = Lens.lens (\StackSetOperation' {administrationRoleARN} -> administrationRoleARN) (\s@StackSetOperation' {} a -> s {administrationRoleARN = a} :: StackSetOperation) + +-- | The time at which the operation was initiated. Note that the creation +-- times for the stack set operation might differ from the creation time of +-- the individual stacks themselves. This is because CloudFormation needs +-- to perform preparatory work for the operation, such as dispatching the +-- work to the requested Regions, before actually creating the first +-- stacks. +stackSetOperation_creationTimestamp :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.UTCTime) +stackSetOperation_creationTimestamp = Lens.lens (\StackSetOperation' {creationTimestamp} -> creationTimestamp) (\s@StackSetOperation' {} a -> s {creationTimestamp = a} :: StackSetOperation) Prelude.. Lens.mapping Data._Time + +-- | [Service-managed permissions] The Organizations accounts affected by the +-- stack operation. +stackSetOperation_deploymentTargets :: Lens.Lens' StackSetOperation (Prelude.Maybe DeploymentTargets) +stackSetOperation_deploymentTargets = Lens.lens (\StackSetOperation' {deploymentTargets} -> deploymentTargets) (\s@StackSetOperation' {} a -> s {deploymentTargets = a} :: StackSetOperation) + +-- | The time at which the stack set operation ended, across all accounts and +-- Regions specified. Note that this doesn\'t necessarily mean that the +-- stack set operation was successful, or even attempted, in each account +-- or Region. +stackSetOperation_endTimestamp :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.UTCTime) +stackSetOperation_endTimestamp = Lens.lens (\StackSetOperation' {endTimestamp} -> endTimestamp) (\s@StackSetOperation' {} a -> s {endTimestamp = a} :: StackSetOperation) Prelude.. Lens.mapping Data._Time + +-- | The name of the IAM execution role used to create or update the stack +-- set. +-- +-- Use customized execution roles to control which stack resources users +-- and groups can include in their stack sets. +stackSetOperation_executionRoleName :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.Text) +stackSetOperation_executionRoleName = Lens.lens (\StackSetOperation' {executionRoleName} -> executionRoleName) (\s@StackSetOperation' {} a -> s {executionRoleName = a} :: StackSetOperation) + +-- | The unique ID of a stack set operation. +stackSetOperation_operationId :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.Text) +stackSetOperation_operationId = Lens.lens (\StackSetOperation' {operationId} -> operationId) (\s@StackSetOperation' {} a -> s {operationId = a} :: StackSetOperation) + +-- | The preferences for how CloudFormation performs this stack set +-- operation. +stackSetOperation_operationPreferences :: Lens.Lens' StackSetOperation (Prelude.Maybe StackSetOperationPreferences) +stackSetOperation_operationPreferences = Lens.lens (\StackSetOperation' {operationPreferences} -> operationPreferences) (\s@StackSetOperation' {} a -> s {operationPreferences = a} :: StackSetOperation) + +-- | For stack set operations of action type @DELETE@, specifies whether to +-- remove the stack instances from the specified stack set, but doesn\'t +-- delete the stacks. You can\'t re-associate a retained stack, or add an +-- existing, saved stack to a new stack set. +stackSetOperation_retainStacks :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.Bool) +stackSetOperation_retainStacks = Lens.lens (\StackSetOperation' {retainStacks} -> retainStacks) (\s@StackSetOperation' {} a -> s {retainStacks = a} :: StackSetOperation) + +-- | Detailed information about the drift status of the stack set. This +-- includes information about drift operations currently being performed on +-- the stack set. +-- +-- This information will only be present for stack set operations whose +-- @Action@ type is @DETECT_DRIFT@. +-- +-- For more information, see +-- +-- in the CloudFormation User Guide. +stackSetOperation_stackSetDriftDetectionDetails :: Lens.Lens' StackSetOperation (Prelude.Maybe StackSetDriftDetectionDetails) +stackSetOperation_stackSetDriftDetectionDetails = Lens.lens (\StackSetOperation' {stackSetDriftDetectionDetails} -> stackSetDriftDetectionDetails) (\s@StackSetOperation' {} a -> s {stackSetDriftDetectionDetails = a} :: StackSetOperation) + +-- | The ID of the stack set. +stackSetOperation_stackSetId :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.Text) +stackSetOperation_stackSetId = Lens.lens (\StackSetOperation' {stackSetId} -> stackSetId) (\s@StackSetOperation' {} a -> s {stackSetId = a} :: StackSetOperation) + +-- | The status of the operation. +-- +-- - @FAILED@: The operation exceeded the specified failure tolerance. +-- The failure tolerance value that you\'ve set for an operation is +-- applied for each Region during stack create and update operations. +-- If the number of failed stacks within a Region exceeds the failure +-- tolerance, the status of the operation in the Region is set to +-- @FAILED@. This in turn sets the status of the operation as a whole +-- to @FAILED@, and CloudFormation cancels the operation in any +-- remaining Regions. +-- +-- - @QUEUED@: [Service-managed permissions] For automatic deployments +-- that require a sequence of operations, the operation is queued to be +-- performed. For more information, see the +-- +-- in the CloudFormation User Guide. +-- +-- - @RUNNING@: The operation is currently being performed. +-- +-- - @STOPPED@: The user has canceled the operation. +-- +-- - @STOPPING@: The operation is in the process of stopping, at user +-- request. +-- +-- - @SUCCEEDED@: The operation completed creating or updating all the +-- specified stacks without exceeding the failure tolerance for the +-- operation. +stackSetOperation_status :: Lens.Lens' StackSetOperation (Prelude.Maybe StackSetOperationStatus) +stackSetOperation_status = Lens.lens (\StackSetOperation' {status} -> status) (\s@StackSetOperation' {} a -> s {status = a} :: StackSetOperation) + +-- | Detailed information about the StackSet operation. +stackSetOperation_statusDetails :: Lens.Lens' StackSetOperation (Prelude.Maybe StackSetOperationStatusDetails) +stackSetOperation_statusDetails = Lens.lens (\StackSetOperation' {statusDetails} -> statusDetails) (\s@StackSetOperation' {} a -> s {statusDetails = a} :: StackSetOperation) + +-- | The status of the operation in details. +stackSetOperation_statusReason :: Lens.Lens' StackSetOperation (Prelude.Maybe Prelude.Text) +stackSetOperation_statusReason = Lens.lens (\StackSetOperation' {statusReason} -> statusReason) (\s@StackSetOperation' {} a -> s {statusReason = a} :: StackSetOperation) + +instance Data.FromXML StackSetOperation where + parseXML x = + StackSetOperation' + Prelude.<$> (x Data..@? "Action") + Prelude.<*> (x Data..@? "AdministrationRoleARN") + Prelude.<*> (x Data..@? "CreationTimestamp") + Prelude.<*> (x Data..@? "DeploymentTargets") + Prelude.<*> (x Data..@? "EndTimestamp") + Prelude.<*> (x Data..@? "ExecutionRoleName") + Prelude.<*> (x Data..@? "OperationId") + Prelude.<*> (x Data..@? "OperationPreferences") + Prelude.<*> (x Data..@? "RetainStacks") + Prelude.<*> (x Data..@? "StackSetDriftDetectionDetails") + Prelude.<*> (x Data..@? "StackSetId") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusDetails") + Prelude.<*> (x Data..@? "StatusReason") + +instance Prelude.Hashable StackSetOperation where + hashWithSalt _salt StackSetOperation' {..} = + _salt + `Prelude.hashWithSalt` action + `Prelude.hashWithSalt` administrationRoleARN + `Prelude.hashWithSalt` creationTimestamp + `Prelude.hashWithSalt` deploymentTargets + `Prelude.hashWithSalt` endTimestamp + `Prelude.hashWithSalt` executionRoleName + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` retainStacks + `Prelude.hashWithSalt` stackSetDriftDetectionDetails + `Prelude.hashWithSalt` stackSetId + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusDetails + `Prelude.hashWithSalt` statusReason + +instance Prelude.NFData StackSetOperation where + rnf StackSetOperation' {..} = + Prelude.rnf action + `Prelude.seq` Prelude.rnf administrationRoleARN + `Prelude.seq` Prelude.rnf creationTimestamp + `Prelude.seq` Prelude.rnf deploymentTargets + `Prelude.seq` Prelude.rnf endTimestamp + `Prelude.seq` Prelude.rnf executionRoleName + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf retainStacks + `Prelude.seq` Prelude.rnf stackSetDriftDetectionDetails + `Prelude.seq` Prelude.rnf stackSetId + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf statusDetails + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationAction.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationAction.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationAction.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationAction +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationAction + ( StackSetOperationAction + ( .., + StackSetOperationAction_CREATE, + StackSetOperationAction_DELETE, + StackSetOperationAction_DETECT_DRIFT, + StackSetOperationAction_UPDATE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackSetOperationAction = StackSetOperationAction' + { fromStackSetOperationAction :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackSetOperationAction_CREATE :: StackSetOperationAction +pattern StackSetOperationAction_CREATE = StackSetOperationAction' "CREATE" + +pattern StackSetOperationAction_DELETE :: StackSetOperationAction +pattern StackSetOperationAction_DELETE = StackSetOperationAction' "DELETE" + +pattern StackSetOperationAction_DETECT_DRIFT :: StackSetOperationAction +pattern StackSetOperationAction_DETECT_DRIFT = StackSetOperationAction' "DETECT_DRIFT" + +pattern StackSetOperationAction_UPDATE :: StackSetOperationAction +pattern StackSetOperationAction_UPDATE = StackSetOperationAction' "UPDATE" + +{-# COMPLETE + StackSetOperationAction_CREATE, + StackSetOperationAction_DELETE, + StackSetOperationAction_DETECT_DRIFT, + StackSetOperationAction_UPDATE, + StackSetOperationAction' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationPreferences.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationPreferences.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationPreferences.hs @@ -0,0 +1,303 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationPreferences +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationPreferences where + +import Amazonka.CloudFormation.Types.RegionConcurrencyType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The user-specified preferences for how CloudFormation performs a stack +-- set operation. +-- +-- For more information about maximum concurrent accounts and failure +-- tolerance, see +-- . +-- +-- /See:/ 'newStackSetOperationPreferences' smart constructor. +data StackSetOperationPreferences = StackSetOperationPreferences' + { -- | The number of accounts, per Region, for which this operation can fail + -- before CloudFormation stops the operation in that Region. If the + -- operation is stopped in a Region, CloudFormation doesn\'t attempt the + -- operation in any subsequent Regions. + -- + -- Conditional: You must specify either @FailureToleranceCount@ or + -- @FailureTolerancePercentage@ (but not both). + -- + -- By default, @0@ is specified. + failureToleranceCount :: Prelude.Maybe Prelude.Natural, + -- | The percentage of accounts, per Region, for which this stack operation + -- can fail before CloudFormation stops the operation in that Region. If + -- the operation is stopped in a Region, CloudFormation doesn\'t attempt + -- the operation in any subsequent Regions. + -- + -- When calculating the number of accounts based on the specified + -- percentage, CloudFormation rounds /down/ to the next whole number. + -- + -- Conditional: You must specify either @FailureToleranceCount@ or + -- @FailureTolerancePercentage@, but not both. + -- + -- By default, @0@ is specified. + failureTolerancePercentage :: Prelude.Maybe Prelude.Natural, + -- | The maximum number of accounts in which to perform this operation at one + -- time. This is dependent on the value of + -- @FailureToleranceCount@.@MaxConcurrentCount@ is at most one more than + -- the @FailureToleranceCount@. + -- + -- Note that this setting lets you specify the /maximum/ for operations. + -- For large deployments, under certain circumstances the actual number of + -- accounts acted upon concurrently may be lower due to service throttling. + -- + -- Conditional: You must specify either @MaxConcurrentCount@ or + -- @MaxConcurrentPercentage@, but not both. + -- + -- By default, @1@ is specified. + maxConcurrentCount :: Prelude.Maybe Prelude.Natural, + -- | The maximum percentage of accounts in which to perform this operation at + -- one time. + -- + -- When calculating the number of accounts based on the specified + -- percentage, CloudFormation rounds down to the next whole number. This is + -- true except in cases where rounding down would result is zero. In this + -- case, CloudFormation sets the number as one instead. + -- + -- Note that this setting lets you specify the /maximum/ for operations. + -- For large deployments, under certain circumstances the actual number of + -- accounts acted upon concurrently may be lower due to service throttling. + -- + -- Conditional: You must specify either @MaxConcurrentCount@ or + -- @MaxConcurrentPercentage@, but not both. + -- + -- By default, @1@ is specified. + maxConcurrentPercentage :: Prelude.Maybe Prelude.Natural, + -- | The concurrency type of deploying StackSets operations in Regions, could + -- be in parallel or one Region at a time. + regionConcurrencyType :: Prelude.Maybe RegionConcurrencyType, + -- | The order of the Regions in where you want to perform the stack + -- operation. + regionOrder :: Prelude.Maybe [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetOperationPreferences' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'failureToleranceCount', 'stackSetOperationPreferences_failureToleranceCount' - The number of accounts, per Region, for which this operation can fail +-- before CloudFormation stops the operation in that Region. If the +-- operation is stopped in a Region, CloudFormation doesn\'t attempt the +-- operation in any subsequent Regions. +-- +-- Conditional: You must specify either @FailureToleranceCount@ or +-- @FailureTolerancePercentage@ (but not both). +-- +-- By default, @0@ is specified. +-- +-- 'failureTolerancePercentage', 'stackSetOperationPreferences_failureTolerancePercentage' - The percentage of accounts, per Region, for which this stack operation +-- can fail before CloudFormation stops the operation in that Region. If +-- the operation is stopped in a Region, CloudFormation doesn\'t attempt +-- the operation in any subsequent Regions. +-- +-- When calculating the number of accounts based on the specified +-- percentage, CloudFormation rounds /down/ to the next whole number. +-- +-- Conditional: You must specify either @FailureToleranceCount@ or +-- @FailureTolerancePercentage@, but not both. +-- +-- By default, @0@ is specified. +-- +-- 'maxConcurrentCount', 'stackSetOperationPreferences_maxConcurrentCount' - The maximum number of accounts in which to perform this operation at one +-- time. This is dependent on the value of +-- @FailureToleranceCount@.@MaxConcurrentCount@ is at most one more than +-- the @FailureToleranceCount@. +-- +-- Note that this setting lets you specify the /maximum/ for operations. +-- For large deployments, under certain circumstances the actual number of +-- accounts acted upon concurrently may be lower due to service throttling. +-- +-- Conditional: You must specify either @MaxConcurrentCount@ or +-- @MaxConcurrentPercentage@, but not both. +-- +-- By default, @1@ is specified. +-- +-- 'maxConcurrentPercentage', 'stackSetOperationPreferences_maxConcurrentPercentage' - The maximum percentage of accounts in which to perform this operation at +-- one time. +-- +-- When calculating the number of accounts based on the specified +-- percentage, CloudFormation rounds down to the next whole number. This is +-- true except in cases where rounding down would result is zero. In this +-- case, CloudFormation sets the number as one instead. +-- +-- Note that this setting lets you specify the /maximum/ for operations. +-- For large deployments, under certain circumstances the actual number of +-- accounts acted upon concurrently may be lower due to service throttling. +-- +-- Conditional: You must specify either @MaxConcurrentCount@ or +-- @MaxConcurrentPercentage@, but not both. +-- +-- By default, @1@ is specified. +-- +-- 'regionConcurrencyType', 'stackSetOperationPreferences_regionConcurrencyType' - The concurrency type of deploying StackSets operations in Regions, could +-- be in parallel or one Region at a time. +-- +-- 'regionOrder', 'stackSetOperationPreferences_regionOrder' - The order of the Regions in where you want to perform the stack +-- operation. +newStackSetOperationPreferences :: + StackSetOperationPreferences +newStackSetOperationPreferences = + StackSetOperationPreferences' + { failureToleranceCount = + Prelude.Nothing, + failureTolerancePercentage = Prelude.Nothing, + maxConcurrentCount = Prelude.Nothing, + maxConcurrentPercentage = Prelude.Nothing, + regionConcurrencyType = Prelude.Nothing, + regionOrder = Prelude.Nothing + } + +-- | The number of accounts, per Region, for which this operation can fail +-- before CloudFormation stops the operation in that Region. If the +-- operation is stopped in a Region, CloudFormation doesn\'t attempt the +-- operation in any subsequent Regions. +-- +-- Conditional: You must specify either @FailureToleranceCount@ or +-- @FailureTolerancePercentage@ (but not both). +-- +-- By default, @0@ is specified. +stackSetOperationPreferences_failureToleranceCount :: Lens.Lens' StackSetOperationPreferences (Prelude.Maybe Prelude.Natural) +stackSetOperationPreferences_failureToleranceCount = Lens.lens (\StackSetOperationPreferences' {failureToleranceCount} -> failureToleranceCount) (\s@StackSetOperationPreferences' {} a -> s {failureToleranceCount = a} :: StackSetOperationPreferences) + +-- | The percentage of accounts, per Region, for which this stack operation +-- can fail before CloudFormation stops the operation in that Region. If +-- the operation is stopped in a Region, CloudFormation doesn\'t attempt +-- the operation in any subsequent Regions. +-- +-- When calculating the number of accounts based on the specified +-- percentage, CloudFormation rounds /down/ to the next whole number. +-- +-- Conditional: You must specify either @FailureToleranceCount@ or +-- @FailureTolerancePercentage@, but not both. +-- +-- By default, @0@ is specified. +stackSetOperationPreferences_failureTolerancePercentage :: Lens.Lens' StackSetOperationPreferences (Prelude.Maybe Prelude.Natural) +stackSetOperationPreferences_failureTolerancePercentage = Lens.lens (\StackSetOperationPreferences' {failureTolerancePercentage} -> failureTolerancePercentage) (\s@StackSetOperationPreferences' {} a -> s {failureTolerancePercentage = a} :: StackSetOperationPreferences) + +-- | The maximum number of accounts in which to perform this operation at one +-- time. This is dependent on the value of +-- @FailureToleranceCount@.@MaxConcurrentCount@ is at most one more than +-- the @FailureToleranceCount@. +-- +-- Note that this setting lets you specify the /maximum/ for operations. +-- For large deployments, under certain circumstances the actual number of +-- accounts acted upon concurrently may be lower due to service throttling. +-- +-- Conditional: You must specify either @MaxConcurrentCount@ or +-- @MaxConcurrentPercentage@, but not both. +-- +-- By default, @1@ is specified. +stackSetOperationPreferences_maxConcurrentCount :: Lens.Lens' StackSetOperationPreferences (Prelude.Maybe Prelude.Natural) +stackSetOperationPreferences_maxConcurrentCount = Lens.lens (\StackSetOperationPreferences' {maxConcurrentCount} -> maxConcurrentCount) (\s@StackSetOperationPreferences' {} a -> s {maxConcurrentCount = a} :: StackSetOperationPreferences) + +-- | The maximum percentage of accounts in which to perform this operation at +-- one time. +-- +-- When calculating the number of accounts based on the specified +-- percentage, CloudFormation rounds down to the next whole number. This is +-- true except in cases where rounding down would result is zero. In this +-- case, CloudFormation sets the number as one instead. +-- +-- Note that this setting lets you specify the /maximum/ for operations. +-- For large deployments, under certain circumstances the actual number of +-- accounts acted upon concurrently may be lower due to service throttling. +-- +-- Conditional: You must specify either @MaxConcurrentCount@ or +-- @MaxConcurrentPercentage@, but not both. +-- +-- By default, @1@ is specified. +stackSetOperationPreferences_maxConcurrentPercentage :: Lens.Lens' StackSetOperationPreferences (Prelude.Maybe Prelude.Natural) +stackSetOperationPreferences_maxConcurrentPercentage = Lens.lens (\StackSetOperationPreferences' {maxConcurrentPercentage} -> maxConcurrentPercentage) (\s@StackSetOperationPreferences' {} a -> s {maxConcurrentPercentage = a} :: StackSetOperationPreferences) + +-- | The concurrency type of deploying StackSets operations in Regions, could +-- be in parallel or one Region at a time. +stackSetOperationPreferences_regionConcurrencyType :: Lens.Lens' StackSetOperationPreferences (Prelude.Maybe RegionConcurrencyType) +stackSetOperationPreferences_regionConcurrencyType = Lens.lens (\StackSetOperationPreferences' {regionConcurrencyType} -> regionConcurrencyType) (\s@StackSetOperationPreferences' {} a -> s {regionConcurrencyType = a} :: StackSetOperationPreferences) + +-- | The order of the Regions in where you want to perform the stack +-- operation. +stackSetOperationPreferences_regionOrder :: Lens.Lens' StackSetOperationPreferences (Prelude.Maybe [Prelude.Text]) +stackSetOperationPreferences_regionOrder = Lens.lens (\StackSetOperationPreferences' {regionOrder} -> regionOrder) (\s@StackSetOperationPreferences' {} a -> s {regionOrder = a} :: StackSetOperationPreferences) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromXML StackSetOperationPreferences where + parseXML x = + StackSetOperationPreferences' + Prelude.<$> (x Data..@? "FailureToleranceCount") + Prelude.<*> (x Data..@? "FailureTolerancePercentage") + Prelude.<*> (x Data..@? "MaxConcurrentCount") + Prelude.<*> (x Data..@? "MaxConcurrentPercentage") + Prelude.<*> (x Data..@? "RegionConcurrencyType") + Prelude.<*> ( x + Data..@? "RegionOrder" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + +instance + Prelude.Hashable + StackSetOperationPreferences + where + hashWithSalt _salt StackSetOperationPreferences' {..} = + _salt + `Prelude.hashWithSalt` failureToleranceCount + `Prelude.hashWithSalt` failureTolerancePercentage + `Prelude.hashWithSalt` maxConcurrentCount + `Prelude.hashWithSalt` maxConcurrentPercentage + `Prelude.hashWithSalt` regionConcurrencyType + `Prelude.hashWithSalt` regionOrder + +instance Prelude.NFData StackSetOperationPreferences where + rnf StackSetOperationPreferences' {..} = + Prelude.rnf failureToleranceCount + `Prelude.seq` Prelude.rnf failureTolerancePercentage + `Prelude.seq` Prelude.rnf maxConcurrentCount + `Prelude.seq` Prelude.rnf maxConcurrentPercentage + `Prelude.seq` Prelude.rnf regionConcurrencyType + `Prelude.seq` Prelude.rnf regionOrder + +instance Data.ToQuery StackSetOperationPreferences where + toQuery StackSetOperationPreferences' {..} = + Prelude.mconcat + [ "FailureToleranceCount" + Data.=: failureToleranceCount, + "FailureTolerancePercentage" + Data.=: failureTolerancePercentage, + "MaxConcurrentCount" Data.=: maxConcurrentCount, + "MaxConcurrentPercentage" + Data.=: maxConcurrentPercentage, + "RegionConcurrencyType" + Data.=: regionConcurrencyType, + "RegionOrder" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> regionOrder) + ] diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationResultStatus.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationResultStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationResultStatus.hs @@ -0,0 +1,86 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationResultStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationResultStatus + ( StackSetOperationResultStatus + ( .., + StackSetOperationResultStatus_CANCELLED, + StackSetOperationResultStatus_FAILED, + StackSetOperationResultStatus_PENDING, + StackSetOperationResultStatus_RUNNING, + StackSetOperationResultStatus_SUCCEEDED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackSetOperationResultStatus = StackSetOperationResultStatus' + { fromStackSetOperationResultStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackSetOperationResultStatus_CANCELLED :: StackSetOperationResultStatus +pattern StackSetOperationResultStatus_CANCELLED = StackSetOperationResultStatus' "CANCELLED" + +pattern StackSetOperationResultStatus_FAILED :: StackSetOperationResultStatus +pattern StackSetOperationResultStatus_FAILED = StackSetOperationResultStatus' "FAILED" + +pattern StackSetOperationResultStatus_PENDING :: StackSetOperationResultStatus +pattern StackSetOperationResultStatus_PENDING = StackSetOperationResultStatus' "PENDING" + +pattern StackSetOperationResultStatus_RUNNING :: StackSetOperationResultStatus +pattern StackSetOperationResultStatus_RUNNING = StackSetOperationResultStatus' "RUNNING" + +pattern StackSetOperationResultStatus_SUCCEEDED :: StackSetOperationResultStatus +pattern StackSetOperationResultStatus_SUCCEEDED = StackSetOperationResultStatus' "SUCCEEDED" + +{-# COMPLETE + StackSetOperationResultStatus_CANCELLED, + StackSetOperationResultStatus_FAILED, + StackSetOperationResultStatus_PENDING, + StackSetOperationResultStatus_RUNNING, + StackSetOperationResultStatus_SUCCEEDED, + StackSetOperationResultStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationResultSummary.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationResultSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationResultSummary.hs @@ -0,0 +1,215 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationResultSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationResultSummary where + +import Amazonka.CloudFormation.Types.AccountGateResult +import Amazonka.CloudFormation.Types.StackSetOperationResultStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The structure that contains information about a specified operation\'s +-- results for a given account in a given Region. +-- +-- /See:/ 'newStackSetOperationResultSummary' smart constructor. +data StackSetOperationResultSummary = StackSetOperationResultSummary' + { -- | [Self-managed permissions] The name of the Amazon Web Services account + -- for this operation result. + account :: Prelude.Maybe Prelude.Text, + -- | The results of the account gate function CloudFormation invokes, if + -- present, before proceeding with stack set operations in an account. + accountGateResult :: Prelude.Maybe AccountGateResult, + -- | [Service-managed permissions] The organization root ID or organizational + -- unit (OU) IDs that you specified for + -- . + organizationalUnitId :: Prelude.Maybe Prelude.Text, + -- | The name of the Amazon Web Services Region for this operation result. + region :: Prelude.Maybe Prelude.Text, + -- | The result status of the stack set operation for the given account in + -- the given Region. + -- + -- - @CANCELLED@: The operation in the specified account and Region has + -- been canceled. This is either because a user has stopped the stack + -- set operation, or because the failure tolerance of the stack set + -- operation has been exceeded. + -- + -- - @FAILED@: The operation in the specified account and Region failed. + -- + -- If the stack set operation fails in enough accounts within a Region, + -- the failure tolerance for the stack set operation as a whole might + -- be exceeded. + -- + -- - @RUNNING@: The operation in the specified account and Region is + -- currently in progress. + -- + -- - @PENDING@: The operation in the specified account and Region has yet + -- to start. + -- + -- - @SUCCEEDED@: The operation in the specified account and Region + -- completed successfully. + status :: Prelude.Maybe StackSetOperationResultStatus, + -- | The reason for the assigned result status. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetOperationResultSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'account', 'stackSetOperationResultSummary_account' - [Self-managed permissions] The name of the Amazon Web Services account +-- for this operation result. +-- +-- 'accountGateResult', 'stackSetOperationResultSummary_accountGateResult' - The results of the account gate function CloudFormation invokes, if +-- present, before proceeding with stack set operations in an account. +-- +-- 'organizationalUnitId', 'stackSetOperationResultSummary_organizationalUnitId' - [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +-- +-- 'region', 'stackSetOperationResultSummary_region' - The name of the Amazon Web Services Region for this operation result. +-- +-- 'status', 'stackSetOperationResultSummary_status' - The result status of the stack set operation for the given account in +-- the given Region. +-- +-- - @CANCELLED@: The operation in the specified account and Region has +-- been canceled. This is either because a user has stopped the stack +-- set operation, or because the failure tolerance of the stack set +-- operation has been exceeded. +-- +-- - @FAILED@: The operation in the specified account and Region failed. +-- +-- If the stack set operation fails in enough accounts within a Region, +-- the failure tolerance for the stack set operation as a whole might +-- be exceeded. +-- +-- - @RUNNING@: The operation in the specified account and Region is +-- currently in progress. +-- +-- - @PENDING@: The operation in the specified account and Region has yet +-- to start. +-- +-- - @SUCCEEDED@: The operation in the specified account and Region +-- completed successfully. +-- +-- 'statusReason', 'stackSetOperationResultSummary_statusReason' - The reason for the assigned result status. +newStackSetOperationResultSummary :: + StackSetOperationResultSummary +newStackSetOperationResultSummary = + StackSetOperationResultSummary' + { account = + Prelude.Nothing, + accountGateResult = Prelude.Nothing, + organizationalUnitId = Prelude.Nothing, + region = Prelude.Nothing, + status = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | [Self-managed permissions] The name of the Amazon Web Services account +-- for this operation result. +stackSetOperationResultSummary_account :: Lens.Lens' StackSetOperationResultSummary (Prelude.Maybe Prelude.Text) +stackSetOperationResultSummary_account = Lens.lens (\StackSetOperationResultSummary' {account} -> account) (\s@StackSetOperationResultSummary' {} a -> s {account = a} :: StackSetOperationResultSummary) + +-- | The results of the account gate function CloudFormation invokes, if +-- present, before proceeding with stack set operations in an account. +stackSetOperationResultSummary_accountGateResult :: Lens.Lens' StackSetOperationResultSummary (Prelude.Maybe AccountGateResult) +stackSetOperationResultSummary_accountGateResult = Lens.lens (\StackSetOperationResultSummary' {accountGateResult} -> accountGateResult) (\s@StackSetOperationResultSummary' {} a -> s {accountGateResult = a} :: StackSetOperationResultSummary) + +-- | [Service-managed permissions] The organization root ID or organizational +-- unit (OU) IDs that you specified for +-- . +stackSetOperationResultSummary_organizationalUnitId :: Lens.Lens' StackSetOperationResultSummary (Prelude.Maybe Prelude.Text) +stackSetOperationResultSummary_organizationalUnitId = Lens.lens (\StackSetOperationResultSummary' {organizationalUnitId} -> organizationalUnitId) (\s@StackSetOperationResultSummary' {} a -> s {organizationalUnitId = a} :: StackSetOperationResultSummary) + +-- | The name of the Amazon Web Services Region for this operation result. +stackSetOperationResultSummary_region :: Lens.Lens' StackSetOperationResultSummary (Prelude.Maybe Prelude.Text) +stackSetOperationResultSummary_region = Lens.lens (\StackSetOperationResultSummary' {region} -> region) (\s@StackSetOperationResultSummary' {} a -> s {region = a} :: StackSetOperationResultSummary) + +-- | The result status of the stack set operation for the given account in +-- the given Region. +-- +-- - @CANCELLED@: The operation in the specified account and Region has +-- been canceled. This is either because a user has stopped the stack +-- set operation, or because the failure tolerance of the stack set +-- operation has been exceeded. +-- +-- - @FAILED@: The operation in the specified account and Region failed. +-- +-- If the stack set operation fails in enough accounts within a Region, +-- the failure tolerance for the stack set operation as a whole might +-- be exceeded. +-- +-- - @RUNNING@: The operation in the specified account and Region is +-- currently in progress. +-- +-- - @PENDING@: The operation in the specified account and Region has yet +-- to start. +-- +-- - @SUCCEEDED@: The operation in the specified account and Region +-- completed successfully. +stackSetOperationResultSummary_status :: Lens.Lens' StackSetOperationResultSummary (Prelude.Maybe StackSetOperationResultStatus) +stackSetOperationResultSummary_status = Lens.lens (\StackSetOperationResultSummary' {status} -> status) (\s@StackSetOperationResultSummary' {} a -> s {status = a} :: StackSetOperationResultSummary) + +-- | The reason for the assigned result status. +stackSetOperationResultSummary_statusReason :: Lens.Lens' StackSetOperationResultSummary (Prelude.Maybe Prelude.Text) +stackSetOperationResultSummary_statusReason = Lens.lens (\StackSetOperationResultSummary' {statusReason} -> statusReason) (\s@StackSetOperationResultSummary' {} a -> s {statusReason = a} :: StackSetOperationResultSummary) + +instance Data.FromXML StackSetOperationResultSummary where + parseXML x = + StackSetOperationResultSummary' + Prelude.<$> (x Data..@? "Account") + Prelude.<*> (x Data..@? "AccountGateResult") + Prelude.<*> (x Data..@? "OrganizationalUnitId") + Prelude.<*> (x Data..@? "Region") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusReason") + +instance + Prelude.Hashable + StackSetOperationResultSummary + where + hashWithSalt + _salt + StackSetOperationResultSummary' {..} = + _salt + `Prelude.hashWithSalt` account + `Prelude.hashWithSalt` accountGateResult + `Prelude.hashWithSalt` organizationalUnitId + `Prelude.hashWithSalt` region + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusReason + +instance + Prelude.NFData + StackSetOperationResultSummary + where + rnf StackSetOperationResultSummary' {..} = + Prelude.rnf account + `Prelude.seq` Prelude.rnf accountGateResult + `Prelude.seq` Prelude.rnf organizationalUnitId + `Prelude.seq` Prelude.rnf region + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationStatus.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationStatus.hs @@ -0,0 +1,91 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationStatus + ( StackSetOperationStatus + ( .., + StackSetOperationStatus_FAILED, + StackSetOperationStatus_QUEUED, + StackSetOperationStatus_RUNNING, + StackSetOperationStatus_STOPPED, + StackSetOperationStatus_STOPPING, + StackSetOperationStatus_SUCCEEDED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackSetOperationStatus = StackSetOperationStatus' + { fromStackSetOperationStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackSetOperationStatus_FAILED :: StackSetOperationStatus +pattern StackSetOperationStatus_FAILED = StackSetOperationStatus' "FAILED" + +pattern StackSetOperationStatus_QUEUED :: StackSetOperationStatus +pattern StackSetOperationStatus_QUEUED = StackSetOperationStatus' "QUEUED" + +pattern StackSetOperationStatus_RUNNING :: StackSetOperationStatus +pattern StackSetOperationStatus_RUNNING = StackSetOperationStatus' "RUNNING" + +pattern StackSetOperationStatus_STOPPED :: StackSetOperationStatus +pattern StackSetOperationStatus_STOPPED = StackSetOperationStatus' "STOPPED" + +pattern StackSetOperationStatus_STOPPING :: StackSetOperationStatus +pattern StackSetOperationStatus_STOPPING = StackSetOperationStatus' "STOPPING" + +pattern StackSetOperationStatus_SUCCEEDED :: StackSetOperationStatus +pattern StackSetOperationStatus_SUCCEEDED = StackSetOperationStatus' "SUCCEEDED" + +{-# COMPLETE + StackSetOperationStatus_FAILED, + StackSetOperationStatus_QUEUED, + StackSetOperationStatus_RUNNING, + StackSetOperationStatus_STOPPED, + StackSetOperationStatus_STOPPING, + StackSetOperationStatus_SUCCEEDED, + StackSetOperationStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationStatusDetails.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationStatusDetails.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationStatusDetails.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationStatusDetails +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationStatusDetails where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Detailed information about the StackSet operation. +-- +-- /See:/ 'newStackSetOperationStatusDetails' smart constructor. +data StackSetOperationStatusDetails = StackSetOperationStatusDetails' + { -- | The number of stack instances for which the StackSet operation failed. + failedStackInstancesCount :: Prelude.Maybe Prelude.Natural + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetOperationStatusDetails' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'failedStackInstancesCount', 'stackSetOperationStatusDetails_failedStackInstancesCount' - The number of stack instances for which the StackSet operation failed. +newStackSetOperationStatusDetails :: + StackSetOperationStatusDetails +newStackSetOperationStatusDetails = + StackSetOperationStatusDetails' + { failedStackInstancesCount = + Prelude.Nothing + } + +-- | The number of stack instances for which the StackSet operation failed. +stackSetOperationStatusDetails_failedStackInstancesCount :: Lens.Lens' StackSetOperationStatusDetails (Prelude.Maybe Prelude.Natural) +stackSetOperationStatusDetails_failedStackInstancesCount = Lens.lens (\StackSetOperationStatusDetails' {failedStackInstancesCount} -> failedStackInstancesCount) (\s@StackSetOperationStatusDetails' {} a -> s {failedStackInstancesCount = a} :: StackSetOperationStatusDetails) + +instance Data.FromXML StackSetOperationStatusDetails where + parseXML x = + StackSetOperationStatusDetails' + Prelude.<$> (x Data..@? "FailedStackInstancesCount") + +instance + Prelude.Hashable + StackSetOperationStatusDetails + where + hashWithSalt + _salt + StackSetOperationStatusDetails' {..} = + _salt + `Prelude.hashWithSalt` failedStackInstancesCount + +instance + Prelude.NFData + StackSetOperationStatusDetails + where + rnf StackSetOperationStatusDetails' {..} = + Prelude.rnf failedStackInstancesCount diff --git a/gen/Amazonka/CloudFormation/Types/StackSetOperationSummary.hs b/gen/Amazonka/CloudFormation/Types/StackSetOperationSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetOperationSummary.hs @@ -0,0 +1,267 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetOperationSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetOperationSummary where + +import Amazonka.CloudFormation.Types.StackSetOperationAction +import Amazonka.CloudFormation.Types.StackSetOperationPreferences +import Amazonka.CloudFormation.Types.StackSetOperationStatus +import Amazonka.CloudFormation.Types.StackSetOperationStatusDetails +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The structures that contain summary information about the specified +-- operation. +-- +-- /See:/ 'newStackSetOperationSummary' smart constructor. +data StackSetOperationSummary = StackSetOperationSummary' + { -- | The type of operation: @CREATE@, @UPDATE@, or @DELETE@. Create and + -- delete operations affect only the specified stack instances that are + -- associated with the specified stack set. Update operations affect both + -- the stack set itself and /all/ associated stack set instances. + action :: Prelude.Maybe StackSetOperationAction, + -- | The time at which the operation was initiated. Note that the creation + -- times for the stack set operation might differ from the creation time of + -- the individual stacks themselves. This is because CloudFormation needs + -- to perform preparatory work for the operation, such as dispatching the + -- work to the requested Regions, before actually creating the first + -- stacks. + creationTimestamp :: Prelude.Maybe Data.ISO8601, + -- | The time at which the stack set operation ended, across all accounts and + -- Regions specified. Note that this doesn\'t necessarily mean that the + -- stack set operation was successful, or even attempted, in each account + -- or Region. + endTimestamp :: Prelude.Maybe Data.ISO8601, + -- | The unique ID of the stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | The overall status of the operation. + -- + -- - @FAILED@: The operation exceeded the specified failure tolerance. + -- The failure tolerance value that you\'ve set for an operation is + -- applied for each Region during stack create and update operations. + -- If the number of failed stacks within a Region exceeds the failure + -- tolerance, the status of the operation in the Region is set to + -- @FAILED@. This in turn sets the status of the operation as a whole + -- to @FAILED@, and CloudFormation cancels the operation in any + -- remaining Regions. + -- + -- - @QUEUED@: [Service-managed permissions] For automatic deployments + -- that require a sequence of operations, the operation is queued to be + -- performed. For more information, see the + -- + -- in the CloudFormation User Guide. + -- + -- - @RUNNING@: The operation is currently being performed. + -- + -- - @STOPPED@: The user has canceled the operation. + -- + -- - @STOPPING@: The operation is in the process of stopping, at user + -- request. + -- + -- - @SUCCEEDED@: The operation completed creating or updating all the + -- specified stacks without exceeding the failure tolerance for the + -- operation. + status :: Prelude.Maybe StackSetOperationStatus, + -- | Detailed information about the stack set operation. + statusDetails :: Prelude.Maybe StackSetOperationStatusDetails, + -- | The status of the operation in details. + statusReason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetOperationSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'action', 'stackSetOperationSummary_action' - The type of operation: @CREATE@, @UPDATE@, or @DELETE@. Create and +-- delete operations affect only the specified stack instances that are +-- associated with the specified stack set. Update operations affect both +-- the stack set itself and /all/ associated stack set instances. +-- +-- 'creationTimestamp', 'stackSetOperationSummary_creationTimestamp' - The time at which the operation was initiated. Note that the creation +-- times for the stack set operation might differ from the creation time of +-- the individual stacks themselves. This is because CloudFormation needs +-- to perform preparatory work for the operation, such as dispatching the +-- work to the requested Regions, before actually creating the first +-- stacks. +-- +-- 'endTimestamp', 'stackSetOperationSummary_endTimestamp' - The time at which the stack set operation ended, across all accounts and +-- Regions specified. Note that this doesn\'t necessarily mean that the +-- stack set operation was successful, or even attempted, in each account +-- or Region. +-- +-- 'operationId', 'stackSetOperationSummary_operationId' - The unique ID of the stack set operation. +-- +-- 'operationPreferences', 'stackSetOperationSummary_operationPreferences' - Undocumented member. +-- +-- 'status', 'stackSetOperationSummary_status' - The overall status of the operation. +-- +-- - @FAILED@: The operation exceeded the specified failure tolerance. +-- The failure tolerance value that you\'ve set for an operation is +-- applied for each Region during stack create and update operations. +-- If the number of failed stacks within a Region exceeds the failure +-- tolerance, the status of the operation in the Region is set to +-- @FAILED@. This in turn sets the status of the operation as a whole +-- to @FAILED@, and CloudFormation cancels the operation in any +-- remaining Regions. +-- +-- - @QUEUED@: [Service-managed permissions] For automatic deployments +-- that require a sequence of operations, the operation is queued to be +-- performed. For more information, see the +-- +-- in the CloudFormation User Guide. +-- +-- - @RUNNING@: The operation is currently being performed. +-- +-- - @STOPPED@: The user has canceled the operation. +-- +-- - @STOPPING@: The operation is in the process of stopping, at user +-- request. +-- +-- - @SUCCEEDED@: The operation completed creating or updating all the +-- specified stacks without exceeding the failure tolerance for the +-- operation. +-- +-- 'statusDetails', 'stackSetOperationSummary_statusDetails' - Detailed information about the stack set operation. +-- +-- 'statusReason', 'stackSetOperationSummary_statusReason' - The status of the operation in details. +newStackSetOperationSummary :: + StackSetOperationSummary +newStackSetOperationSummary = + StackSetOperationSummary' + { action = Prelude.Nothing, + creationTimestamp = Prelude.Nothing, + endTimestamp = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + status = Prelude.Nothing, + statusDetails = Prelude.Nothing, + statusReason = Prelude.Nothing + } + +-- | The type of operation: @CREATE@, @UPDATE@, or @DELETE@. Create and +-- delete operations affect only the specified stack instances that are +-- associated with the specified stack set. Update operations affect both +-- the stack set itself and /all/ associated stack set instances. +stackSetOperationSummary_action :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe StackSetOperationAction) +stackSetOperationSummary_action = Lens.lens (\StackSetOperationSummary' {action} -> action) (\s@StackSetOperationSummary' {} a -> s {action = a} :: StackSetOperationSummary) + +-- | The time at which the operation was initiated. Note that the creation +-- times for the stack set operation might differ from the creation time of +-- the individual stacks themselves. This is because CloudFormation needs +-- to perform preparatory work for the operation, such as dispatching the +-- work to the requested Regions, before actually creating the first +-- stacks. +stackSetOperationSummary_creationTimestamp :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe Prelude.UTCTime) +stackSetOperationSummary_creationTimestamp = Lens.lens (\StackSetOperationSummary' {creationTimestamp} -> creationTimestamp) (\s@StackSetOperationSummary' {} a -> s {creationTimestamp = a} :: StackSetOperationSummary) Prelude.. Lens.mapping Data._Time + +-- | The time at which the stack set operation ended, across all accounts and +-- Regions specified. Note that this doesn\'t necessarily mean that the +-- stack set operation was successful, or even attempted, in each account +-- or Region. +stackSetOperationSummary_endTimestamp :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe Prelude.UTCTime) +stackSetOperationSummary_endTimestamp = Lens.lens (\StackSetOperationSummary' {endTimestamp} -> endTimestamp) (\s@StackSetOperationSummary' {} a -> s {endTimestamp = a} :: StackSetOperationSummary) Prelude.. Lens.mapping Data._Time + +-- | The unique ID of the stack set operation. +stackSetOperationSummary_operationId :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe Prelude.Text) +stackSetOperationSummary_operationId = Lens.lens (\StackSetOperationSummary' {operationId} -> operationId) (\s@StackSetOperationSummary' {} a -> s {operationId = a} :: StackSetOperationSummary) + +-- | Undocumented member. +stackSetOperationSummary_operationPreferences :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe StackSetOperationPreferences) +stackSetOperationSummary_operationPreferences = Lens.lens (\StackSetOperationSummary' {operationPreferences} -> operationPreferences) (\s@StackSetOperationSummary' {} a -> s {operationPreferences = a} :: StackSetOperationSummary) + +-- | The overall status of the operation. +-- +-- - @FAILED@: The operation exceeded the specified failure tolerance. +-- The failure tolerance value that you\'ve set for an operation is +-- applied for each Region during stack create and update operations. +-- If the number of failed stacks within a Region exceeds the failure +-- tolerance, the status of the operation in the Region is set to +-- @FAILED@. This in turn sets the status of the operation as a whole +-- to @FAILED@, and CloudFormation cancels the operation in any +-- remaining Regions. +-- +-- - @QUEUED@: [Service-managed permissions] For automatic deployments +-- that require a sequence of operations, the operation is queued to be +-- performed. For more information, see the +-- +-- in the CloudFormation User Guide. +-- +-- - @RUNNING@: The operation is currently being performed. +-- +-- - @STOPPED@: The user has canceled the operation. +-- +-- - @STOPPING@: The operation is in the process of stopping, at user +-- request. +-- +-- - @SUCCEEDED@: The operation completed creating or updating all the +-- specified stacks without exceeding the failure tolerance for the +-- operation. +stackSetOperationSummary_status :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe StackSetOperationStatus) +stackSetOperationSummary_status = Lens.lens (\StackSetOperationSummary' {status} -> status) (\s@StackSetOperationSummary' {} a -> s {status = a} :: StackSetOperationSummary) + +-- | Detailed information about the stack set operation. +stackSetOperationSummary_statusDetails :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe StackSetOperationStatusDetails) +stackSetOperationSummary_statusDetails = Lens.lens (\StackSetOperationSummary' {statusDetails} -> statusDetails) (\s@StackSetOperationSummary' {} a -> s {statusDetails = a} :: StackSetOperationSummary) + +-- | The status of the operation in details. +stackSetOperationSummary_statusReason :: Lens.Lens' StackSetOperationSummary (Prelude.Maybe Prelude.Text) +stackSetOperationSummary_statusReason = Lens.lens (\StackSetOperationSummary' {statusReason} -> statusReason) (\s@StackSetOperationSummary' {} a -> s {statusReason = a} :: StackSetOperationSummary) + +instance Data.FromXML StackSetOperationSummary where + parseXML x = + StackSetOperationSummary' + Prelude.<$> (x Data..@? "Action") + Prelude.<*> (x Data..@? "CreationTimestamp") + Prelude.<*> (x Data..@? "EndTimestamp") + Prelude.<*> (x Data..@? "OperationId") + Prelude.<*> (x Data..@? "OperationPreferences") + Prelude.<*> (x Data..@? "Status") + Prelude.<*> (x Data..@? "StatusDetails") + Prelude.<*> (x Data..@? "StatusReason") + +instance Prelude.Hashable StackSetOperationSummary where + hashWithSalt _salt StackSetOperationSummary' {..} = + _salt + `Prelude.hashWithSalt` action + `Prelude.hashWithSalt` creationTimestamp + `Prelude.hashWithSalt` endTimestamp + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` statusDetails + `Prelude.hashWithSalt` statusReason + +instance Prelude.NFData StackSetOperationSummary where + rnf StackSetOperationSummary' {..} = + Prelude.rnf action + `Prelude.seq` Prelude.rnf creationTimestamp + `Prelude.seq` Prelude.rnf endTimestamp + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf statusDetails + `Prelude.seq` Prelude.rnf statusReason diff --git a/gen/Amazonka/CloudFormation/Types/StackSetStatus.hs b/gen/Amazonka/CloudFormation/Types/StackSetStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetStatus.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetStatus + ( StackSetStatus + ( .., + StackSetStatus_ACTIVE, + StackSetStatus_DELETED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackSetStatus = StackSetStatus' + { fromStackSetStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackSetStatus_ACTIVE :: StackSetStatus +pattern StackSetStatus_ACTIVE = StackSetStatus' "ACTIVE" + +pattern StackSetStatus_DELETED :: StackSetStatus +pattern StackSetStatus_DELETED = StackSetStatus' "DELETED" + +{-# COMPLETE + StackSetStatus_ACTIVE, + StackSetStatus_DELETED, + StackSetStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSetSummary.hs b/gen/Amazonka/CloudFormation/Types/StackSetSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSetSummary.hs @@ -0,0 +1,269 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSetSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSetSummary where + +import Amazonka.CloudFormation.Types.AutoDeployment +import Amazonka.CloudFormation.Types.ManagedExecution +import Amazonka.CloudFormation.Types.PermissionModels +import Amazonka.CloudFormation.Types.StackDriftStatus +import Amazonka.CloudFormation.Types.StackSetStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The structures that contain summary information about the specified +-- stack set. +-- +-- /See:/ 'newStackSetSummary' smart constructor. +data StackSetSummary = StackSetSummary' + { -- | [Service-managed permissions] Describes whether StackSets automatically + -- deploys to Organizations accounts that are added to a target + -- organizational unit (OU). + autoDeployment :: Prelude.Maybe AutoDeployment, + -- | A description of the stack set that you specify when the stack set is + -- created or updated. + description :: Prelude.Maybe Prelude.Text, + -- | Status of the stack set\'s actual configuration compared to its expected + -- template and parameter configuration. A stack set is considered to have + -- drifted if one or more of its stack instances have drifted from their + -- expected template and parameter configuration. + -- + -- - @DRIFTED@: One or more of the stack instances belonging to the stack + -- set stack differs from the expected template and parameter + -- configuration. A stack instance is considered to have drifted if one + -- or more of the resources in the associated stack have drifted. + -- + -- - @NOT_CHECKED@: CloudFormation hasn\'t checked the stack set for + -- drift. + -- + -- - @IN_SYNC@: All the stack instances belonging to the stack set stack + -- match from the expected template and parameter configuration. + -- + -- - @UNKNOWN@: This value is reserved for future use. + driftStatus :: Prelude.Maybe StackDriftStatus, + -- | Most recent time when CloudFormation performed a drift detection + -- operation on the stack set. This value will be @NULL@ for any stack set + -- on which drift detection hasn\'t yet been performed. + lastDriftCheckTimestamp :: Prelude.Maybe Data.ISO8601, + -- | Describes whether StackSets performs non-conflicting operations + -- concurrently and queues conflicting operations. + managedExecution :: Prelude.Maybe ManagedExecution, + -- | Describes how the IAM roles required for stack set operations are + -- created. + -- + -- - With @self-managed@ permissions, you must create the administrator + -- and execution roles required to deploy to target accounts. For more + -- information, see + -- . + -- + -- - With @service-managed@ permissions, StackSets automatically creates + -- the IAM roles required to deploy to accounts managed by + -- Organizations. For more information, see + -- . + permissionModel :: Prelude.Maybe PermissionModels, + -- | The ID of the stack set. + stackSetId :: Prelude.Maybe Prelude.Text, + -- | The name of the stack set. + stackSetName :: Prelude.Maybe Prelude.Text, + -- | The status of the stack set. + status :: Prelude.Maybe StackSetStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSetSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'autoDeployment', 'stackSetSummary_autoDeployment' - [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organizational unit (OU). +-- +-- 'description', 'stackSetSummary_description' - A description of the stack set that you specify when the stack set is +-- created or updated. +-- +-- 'driftStatus', 'stackSetSummary_driftStatus' - Status of the stack set\'s actual configuration compared to its expected +-- template and parameter configuration. A stack set is considered to have +-- drifted if one or more of its stack instances have drifted from their +-- expected template and parameter configuration. +-- +-- - @DRIFTED@: One or more of the stack instances belonging to the stack +-- set stack differs from the expected template and parameter +-- configuration. A stack instance is considered to have drifted if one +-- or more of the resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked the stack set for +-- drift. +-- +-- - @IN_SYNC@: All the stack instances belonging to the stack set stack +-- match from the expected template and parameter configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +-- +-- 'lastDriftCheckTimestamp', 'stackSetSummary_lastDriftCheckTimestamp' - Most recent time when CloudFormation performed a drift detection +-- operation on the stack set. This value will be @NULL@ for any stack set +-- on which drift detection hasn\'t yet been performed. +-- +-- 'managedExecution', 'stackSetSummary_managedExecution' - Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +-- +-- 'permissionModel', 'stackSetSummary_permissionModel' - Describes how the IAM roles required for stack set operations are +-- created. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +-- +-- 'stackSetId', 'stackSetSummary_stackSetId' - The ID of the stack set. +-- +-- 'stackSetName', 'stackSetSummary_stackSetName' - The name of the stack set. +-- +-- 'status', 'stackSetSummary_status' - The status of the stack set. +newStackSetSummary :: + StackSetSummary +newStackSetSummary = + StackSetSummary' + { autoDeployment = Prelude.Nothing, + description = Prelude.Nothing, + driftStatus = Prelude.Nothing, + lastDriftCheckTimestamp = Prelude.Nothing, + managedExecution = Prelude.Nothing, + permissionModel = Prelude.Nothing, + stackSetId = Prelude.Nothing, + stackSetName = Prelude.Nothing, + status = Prelude.Nothing + } + +-- | [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organizational unit (OU). +stackSetSummary_autoDeployment :: Lens.Lens' StackSetSummary (Prelude.Maybe AutoDeployment) +stackSetSummary_autoDeployment = Lens.lens (\StackSetSummary' {autoDeployment} -> autoDeployment) (\s@StackSetSummary' {} a -> s {autoDeployment = a} :: StackSetSummary) + +-- | A description of the stack set that you specify when the stack set is +-- created or updated. +stackSetSummary_description :: Lens.Lens' StackSetSummary (Prelude.Maybe Prelude.Text) +stackSetSummary_description = Lens.lens (\StackSetSummary' {description} -> description) (\s@StackSetSummary' {} a -> s {description = a} :: StackSetSummary) + +-- | Status of the stack set\'s actual configuration compared to its expected +-- template and parameter configuration. A stack set is considered to have +-- drifted if one or more of its stack instances have drifted from their +-- expected template and parameter configuration. +-- +-- - @DRIFTED@: One or more of the stack instances belonging to the stack +-- set stack differs from the expected template and parameter +-- configuration. A stack instance is considered to have drifted if one +-- or more of the resources in the associated stack have drifted. +-- +-- - @NOT_CHECKED@: CloudFormation hasn\'t checked the stack set for +-- drift. +-- +-- - @IN_SYNC@: All the stack instances belonging to the stack set stack +-- match from the expected template and parameter configuration. +-- +-- - @UNKNOWN@: This value is reserved for future use. +stackSetSummary_driftStatus :: Lens.Lens' StackSetSummary (Prelude.Maybe StackDriftStatus) +stackSetSummary_driftStatus = Lens.lens (\StackSetSummary' {driftStatus} -> driftStatus) (\s@StackSetSummary' {} a -> s {driftStatus = a} :: StackSetSummary) + +-- | Most recent time when CloudFormation performed a drift detection +-- operation on the stack set. This value will be @NULL@ for any stack set +-- on which drift detection hasn\'t yet been performed. +stackSetSummary_lastDriftCheckTimestamp :: Lens.Lens' StackSetSummary (Prelude.Maybe Prelude.UTCTime) +stackSetSummary_lastDriftCheckTimestamp = Lens.lens (\StackSetSummary' {lastDriftCheckTimestamp} -> lastDriftCheckTimestamp) (\s@StackSetSummary' {} a -> s {lastDriftCheckTimestamp = a} :: StackSetSummary) Prelude.. Lens.mapping Data._Time + +-- | Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +stackSetSummary_managedExecution :: Lens.Lens' StackSetSummary (Prelude.Maybe ManagedExecution) +stackSetSummary_managedExecution = Lens.lens (\StackSetSummary' {managedExecution} -> managedExecution) (\s@StackSetSummary' {} a -> s {managedExecution = a} :: StackSetSummary) + +-- | Describes how the IAM roles required for stack set operations are +-- created. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +stackSetSummary_permissionModel :: Lens.Lens' StackSetSummary (Prelude.Maybe PermissionModels) +stackSetSummary_permissionModel = Lens.lens (\StackSetSummary' {permissionModel} -> permissionModel) (\s@StackSetSummary' {} a -> s {permissionModel = a} :: StackSetSummary) + +-- | The ID of the stack set. +stackSetSummary_stackSetId :: Lens.Lens' StackSetSummary (Prelude.Maybe Prelude.Text) +stackSetSummary_stackSetId = Lens.lens (\StackSetSummary' {stackSetId} -> stackSetId) (\s@StackSetSummary' {} a -> s {stackSetId = a} :: StackSetSummary) + +-- | The name of the stack set. +stackSetSummary_stackSetName :: Lens.Lens' StackSetSummary (Prelude.Maybe Prelude.Text) +stackSetSummary_stackSetName = Lens.lens (\StackSetSummary' {stackSetName} -> stackSetName) (\s@StackSetSummary' {} a -> s {stackSetName = a} :: StackSetSummary) + +-- | The status of the stack set. +stackSetSummary_status :: Lens.Lens' StackSetSummary (Prelude.Maybe StackSetStatus) +stackSetSummary_status = Lens.lens (\StackSetSummary' {status} -> status) (\s@StackSetSummary' {} a -> s {status = a} :: StackSetSummary) + +instance Data.FromXML StackSetSummary where + parseXML x = + StackSetSummary' + Prelude.<$> (x Data..@? "AutoDeployment") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "DriftStatus") + Prelude.<*> (x Data..@? "LastDriftCheckTimestamp") + Prelude.<*> (x Data..@? "ManagedExecution") + Prelude.<*> (x Data..@? "PermissionModel") + Prelude.<*> (x Data..@? "StackSetId") + Prelude.<*> (x Data..@? "StackSetName") + Prelude.<*> (x Data..@? "Status") + +instance Prelude.Hashable StackSetSummary where + hashWithSalt _salt StackSetSummary' {..} = + _salt + `Prelude.hashWithSalt` autoDeployment + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` driftStatus + `Prelude.hashWithSalt` lastDriftCheckTimestamp + `Prelude.hashWithSalt` managedExecution + `Prelude.hashWithSalt` permissionModel + `Prelude.hashWithSalt` stackSetId + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` status + +instance Prelude.NFData StackSetSummary where + rnf StackSetSummary' {..} = + Prelude.rnf autoDeployment + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf driftStatus + `Prelude.seq` Prelude.rnf lastDriftCheckTimestamp + `Prelude.seq` Prelude.rnf managedExecution + `Prelude.seq` Prelude.rnf permissionModel + `Prelude.seq` Prelude.rnf stackSetId + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf status diff --git a/gen/Amazonka/CloudFormation/Types/StackStatus.hs b/gen/Amazonka/CloudFormation/Types/StackStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackStatus.hs @@ -0,0 +1,176 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackStatus + ( StackStatus + ( .., + StackStatus_CREATE_COMPLETE, + StackStatus_CREATE_FAILED, + StackStatus_CREATE_IN_PROGRESS, + StackStatus_DELETE_COMPLETE, + StackStatus_DELETE_FAILED, + StackStatus_DELETE_IN_PROGRESS, + StackStatus_IMPORT_COMPLETE, + StackStatus_IMPORT_IN_PROGRESS, + StackStatus_IMPORT_ROLLBACK_COMPLETE, + StackStatus_IMPORT_ROLLBACK_FAILED, + StackStatus_IMPORT_ROLLBACK_IN_PROGRESS, + StackStatus_REVIEW_IN_PROGRESS, + StackStatus_ROLLBACK_COMPLETE, + StackStatus_ROLLBACK_FAILED, + StackStatus_ROLLBACK_IN_PROGRESS, + StackStatus_UPDATE_COMPLETE, + StackStatus_UPDATE_COMPLETE_CLEANUP_IN_PROGRESS, + StackStatus_UPDATE_FAILED, + StackStatus_UPDATE_IN_PROGRESS, + StackStatus_UPDATE_ROLLBACK_COMPLETE, + StackStatus_UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS, + StackStatus_UPDATE_ROLLBACK_FAILED, + StackStatus_UPDATE_ROLLBACK_IN_PROGRESS + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StackStatus = StackStatus' + { fromStackStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern StackStatus_CREATE_COMPLETE :: StackStatus +pattern StackStatus_CREATE_COMPLETE = StackStatus' "CREATE_COMPLETE" + +pattern StackStatus_CREATE_FAILED :: StackStatus +pattern StackStatus_CREATE_FAILED = StackStatus' "CREATE_FAILED" + +pattern StackStatus_CREATE_IN_PROGRESS :: StackStatus +pattern StackStatus_CREATE_IN_PROGRESS = StackStatus' "CREATE_IN_PROGRESS" + +pattern StackStatus_DELETE_COMPLETE :: StackStatus +pattern StackStatus_DELETE_COMPLETE = StackStatus' "DELETE_COMPLETE" + +pattern StackStatus_DELETE_FAILED :: StackStatus +pattern StackStatus_DELETE_FAILED = StackStatus' "DELETE_FAILED" + +pattern StackStatus_DELETE_IN_PROGRESS :: StackStatus +pattern StackStatus_DELETE_IN_PROGRESS = StackStatus' "DELETE_IN_PROGRESS" + +pattern StackStatus_IMPORT_COMPLETE :: StackStatus +pattern StackStatus_IMPORT_COMPLETE = StackStatus' "IMPORT_COMPLETE" + +pattern StackStatus_IMPORT_IN_PROGRESS :: StackStatus +pattern StackStatus_IMPORT_IN_PROGRESS = StackStatus' "IMPORT_IN_PROGRESS" + +pattern StackStatus_IMPORT_ROLLBACK_COMPLETE :: StackStatus +pattern StackStatus_IMPORT_ROLLBACK_COMPLETE = StackStatus' "IMPORT_ROLLBACK_COMPLETE" + +pattern StackStatus_IMPORT_ROLLBACK_FAILED :: StackStatus +pattern StackStatus_IMPORT_ROLLBACK_FAILED = StackStatus' "IMPORT_ROLLBACK_FAILED" + +pattern StackStatus_IMPORT_ROLLBACK_IN_PROGRESS :: StackStatus +pattern StackStatus_IMPORT_ROLLBACK_IN_PROGRESS = StackStatus' "IMPORT_ROLLBACK_IN_PROGRESS" + +pattern StackStatus_REVIEW_IN_PROGRESS :: StackStatus +pattern StackStatus_REVIEW_IN_PROGRESS = StackStatus' "REVIEW_IN_PROGRESS" + +pattern StackStatus_ROLLBACK_COMPLETE :: StackStatus +pattern StackStatus_ROLLBACK_COMPLETE = StackStatus' "ROLLBACK_COMPLETE" + +pattern StackStatus_ROLLBACK_FAILED :: StackStatus +pattern StackStatus_ROLLBACK_FAILED = StackStatus' "ROLLBACK_FAILED" + +pattern StackStatus_ROLLBACK_IN_PROGRESS :: StackStatus +pattern StackStatus_ROLLBACK_IN_PROGRESS = StackStatus' "ROLLBACK_IN_PROGRESS" + +pattern StackStatus_UPDATE_COMPLETE :: StackStatus +pattern StackStatus_UPDATE_COMPLETE = StackStatus' "UPDATE_COMPLETE" + +pattern StackStatus_UPDATE_COMPLETE_CLEANUP_IN_PROGRESS :: StackStatus +pattern StackStatus_UPDATE_COMPLETE_CLEANUP_IN_PROGRESS = StackStatus' "UPDATE_COMPLETE_CLEANUP_IN_PROGRESS" + +pattern StackStatus_UPDATE_FAILED :: StackStatus +pattern StackStatus_UPDATE_FAILED = StackStatus' "UPDATE_FAILED" + +pattern StackStatus_UPDATE_IN_PROGRESS :: StackStatus +pattern StackStatus_UPDATE_IN_PROGRESS = StackStatus' "UPDATE_IN_PROGRESS" + +pattern StackStatus_UPDATE_ROLLBACK_COMPLETE :: StackStatus +pattern StackStatus_UPDATE_ROLLBACK_COMPLETE = StackStatus' "UPDATE_ROLLBACK_COMPLETE" + +pattern StackStatus_UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS :: StackStatus +pattern StackStatus_UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS = StackStatus' "UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS" + +pattern StackStatus_UPDATE_ROLLBACK_FAILED :: StackStatus +pattern StackStatus_UPDATE_ROLLBACK_FAILED = StackStatus' "UPDATE_ROLLBACK_FAILED" + +pattern StackStatus_UPDATE_ROLLBACK_IN_PROGRESS :: StackStatus +pattern StackStatus_UPDATE_ROLLBACK_IN_PROGRESS = StackStatus' "UPDATE_ROLLBACK_IN_PROGRESS" + +{-# COMPLETE + StackStatus_CREATE_COMPLETE, + StackStatus_CREATE_FAILED, + StackStatus_CREATE_IN_PROGRESS, + StackStatus_DELETE_COMPLETE, + StackStatus_DELETE_FAILED, + StackStatus_DELETE_IN_PROGRESS, + StackStatus_IMPORT_COMPLETE, + StackStatus_IMPORT_IN_PROGRESS, + StackStatus_IMPORT_ROLLBACK_COMPLETE, + StackStatus_IMPORT_ROLLBACK_FAILED, + StackStatus_IMPORT_ROLLBACK_IN_PROGRESS, + StackStatus_REVIEW_IN_PROGRESS, + StackStatus_ROLLBACK_COMPLETE, + StackStatus_ROLLBACK_FAILED, + StackStatus_ROLLBACK_IN_PROGRESS, + StackStatus_UPDATE_COMPLETE, + StackStatus_UPDATE_COMPLETE_CLEANUP_IN_PROGRESS, + StackStatus_UPDATE_FAILED, + StackStatus_UPDATE_IN_PROGRESS, + StackStatus_UPDATE_ROLLBACK_COMPLETE, + StackStatus_UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS, + StackStatus_UPDATE_ROLLBACK_FAILED, + StackStatus_UPDATE_ROLLBACK_IN_PROGRESS, + StackStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/StackSummary.hs b/gen/Amazonka/CloudFormation/Types/StackSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/StackSummary.hs @@ -0,0 +1,250 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.StackSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.StackSummary where + +import Amazonka.CloudFormation.Types.StackDriftInformationSummary +import Amazonka.CloudFormation.Types.StackStatus +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The StackSummary Data Type +-- +-- /See:/ 'newStackSummary' smart constructor. +data StackSummary = StackSummary' + { -- | The time the stack was deleted. + deletionTime :: Prelude.Maybe Data.ISO8601, + -- | Summarizes information about whether a stack\'s actual configuration + -- differs, or has /drifted/, from it\'s expected configuration, as defined + -- in the stack template and any values specified as template parameters. + -- For more information, see + -- . + driftInformation :: Prelude.Maybe StackDriftInformationSummary, + -- | The time the stack was last updated. This field will only be returned if + -- the stack has been updated at least once. + lastUpdatedTime :: Prelude.Maybe Data.ISO8601, + -- | For nested stacks--stacks created as resources for another stack--the + -- stack ID of the direct parent of this stack. For the first level of + -- nested stacks, the root stack is also the parent stack. + -- + -- For more information, see + -- + -- in the /CloudFormation User Guide/. + parentId :: Prelude.Maybe Prelude.Text, + -- | For nested stacks--stacks created as resources for another stack--the + -- stack ID of the top-level stack to which the nested stack ultimately + -- belongs. + -- + -- For more information, see + -- + -- in the /CloudFormation User Guide/. + rootId :: Prelude.Maybe Prelude.Text, + -- | Unique stack identifier. + stackId :: Prelude.Maybe Prelude.Text, + -- | Success\/Failure message associated with the stack status. + stackStatusReason :: Prelude.Maybe Prelude.Text, + -- | The template description of the template used to create the stack. + templateDescription :: Prelude.Maybe Prelude.Text, + -- | The name associated with the stack. + stackName :: Prelude.Text, + -- | The time the stack was created. + creationTime :: Data.ISO8601, + -- | The current status of the stack. + stackStatus :: StackStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StackSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'deletionTime', 'stackSummary_deletionTime' - The time the stack was deleted. +-- +-- 'driftInformation', 'stackSummary_driftInformation' - Summarizes information about whether a stack\'s actual configuration +-- differs, or has /drifted/, from it\'s expected configuration, as defined +-- in the stack template and any values specified as template parameters. +-- For more information, see +-- . +-- +-- 'lastUpdatedTime', 'stackSummary_lastUpdatedTime' - The time the stack was last updated. This field will only be returned if +-- the stack has been updated at least once. +-- +-- 'parentId', 'stackSummary_parentId' - For nested stacks--stacks created as resources for another stack--the +-- stack ID of the direct parent of this stack. For the first level of +-- nested stacks, the root stack is also the parent stack. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'rootId', 'stackSummary_rootId' - For nested stacks--stacks created as resources for another stack--the +-- stack ID of the top-level stack to which the nested stack ultimately +-- belongs. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'stackId', 'stackSummary_stackId' - Unique stack identifier. +-- +-- 'stackStatusReason', 'stackSummary_stackStatusReason' - Success\/Failure message associated with the stack status. +-- +-- 'templateDescription', 'stackSummary_templateDescription' - The template description of the template used to create the stack. +-- +-- 'stackName', 'stackSummary_stackName' - The name associated with the stack. +-- +-- 'creationTime', 'stackSummary_creationTime' - The time the stack was created. +-- +-- 'stackStatus', 'stackSummary_stackStatus' - The current status of the stack. +newStackSummary :: + -- | 'stackName' + Prelude.Text -> + -- | 'creationTime' + Prelude.UTCTime -> + -- | 'stackStatus' + StackStatus -> + StackSummary +newStackSummary + pStackName_ + pCreationTime_ + pStackStatus_ = + StackSummary' + { deletionTime = Prelude.Nothing, + driftInformation = Prelude.Nothing, + lastUpdatedTime = Prelude.Nothing, + parentId = Prelude.Nothing, + rootId = Prelude.Nothing, + stackId = Prelude.Nothing, + stackStatusReason = Prelude.Nothing, + templateDescription = Prelude.Nothing, + stackName = pStackName_, + creationTime = Data._Time Lens.# pCreationTime_, + stackStatus = pStackStatus_ + } + +-- | The time the stack was deleted. +stackSummary_deletionTime :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.UTCTime) +stackSummary_deletionTime = Lens.lens (\StackSummary' {deletionTime} -> deletionTime) (\s@StackSummary' {} a -> s {deletionTime = a} :: StackSummary) Prelude.. Lens.mapping Data._Time + +-- | Summarizes information about whether a stack\'s actual configuration +-- differs, or has /drifted/, from it\'s expected configuration, as defined +-- in the stack template and any values specified as template parameters. +-- For more information, see +-- . +stackSummary_driftInformation :: Lens.Lens' StackSummary (Prelude.Maybe StackDriftInformationSummary) +stackSummary_driftInformation = Lens.lens (\StackSummary' {driftInformation} -> driftInformation) (\s@StackSummary' {} a -> s {driftInformation = a} :: StackSummary) + +-- | The time the stack was last updated. This field will only be returned if +-- the stack has been updated at least once. +stackSummary_lastUpdatedTime :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.UTCTime) +stackSummary_lastUpdatedTime = Lens.lens (\StackSummary' {lastUpdatedTime} -> lastUpdatedTime) (\s@StackSummary' {} a -> s {lastUpdatedTime = a} :: StackSummary) Prelude.. Lens.mapping Data._Time + +-- | For nested stacks--stacks created as resources for another stack--the +-- stack ID of the direct parent of this stack. For the first level of +-- nested stacks, the root stack is also the parent stack. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +stackSummary_parentId :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.Text) +stackSummary_parentId = Lens.lens (\StackSummary' {parentId} -> parentId) (\s@StackSummary' {} a -> s {parentId = a} :: StackSummary) + +-- | For nested stacks--stacks created as resources for another stack--the +-- stack ID of the top-level stack to which the nested stack ultimately +-- belongs. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +stackSummary_rootId :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.Text) +stackSummary_rootId = Lens.lens (\StackSummary' {rootId} -> rootId) (\s@StackSummary' {} a -> s {rootId = a} :: StackSummary) + +-- | Unique stack identifier. +stackSummary_stackId :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.Text) +stackSummary_stackId = Lens.lens (\StackSummary' {stackId} -> stackId) (\s@StackSummary' {} a -> s {stackId = a} :: StackSummary) + +-- | Success\/Failure message associated with the stack status. +stackSummary_stackStatusReason :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.Text) +stackSummary_stackStatusReason = Lens.lens (\StackSummary' {stackStatusReason} -> stackStatusReason) (\s@StackSummary' {} a -> s {stackStatusReason = a} :: StackSummary) + +-- | The template description of the template used to create the stack. +stackSummary_templateDescription :: Lens.Lens' StackSummary (Prelude.Maybe Prelude.Text) +stackSummary_templateDescription = Lens.lens (\StackSummary' {templateDescription} -> templateDescription) (\s@StackSummary' {} a -> s {templateDescription = a} :: StackSummary) + +-- | The name associated with the stack. +stackSummary_stackName :: Lens.Lens' StackSummary Prelude.Text +stackSummary_stackName = Lens.lens (\StackSummary' {stackName} -> stackName) (\s@StackSummary' {} a -> s {stackName = a} :: StackSummary) + +-- | The time the stack was created. +stackSummary_creationTime :: Lens.Lens' StackSummary Prelude.UTCTime +stackSummary_creationTime = Lens.lens (\StackSummary' {creationTime} -> creationTime) (\s@StackSummary' {} a -> s {creationTime = a} :: StackSummary) Prelude.. Data._Time + +-- | The current status of the stack. +stackSummary_stackStatus :: Lens.Lens' StackSummary StackStatus +stackSummary_stackStatus = Lens.lens (\StackSummary' {stackStatus} -> stackStatus) (\s@StackSummary' {} a -> s {stackStatus = a} :: StackSummary) + +instance Data.FromXML StackSummary where + parseXML x = + StackSummary' + Prelude.<$> (x Data..@? "DeletionTime") + Prelude.<*> (x Data..@? "DriftInformation") + Prelude.<*> (x Data..@? "LastUpdatedTime") + Prelude.<*> (x Data..@? "ParentId") + Prelude.<*> (x Data..@? "RootId") + Prelude.<*> (x Data..@? "StackId") + Prelude.<*> (x Data..@? "StackStatusReason") + Prelude.<*> (x Data..@? "TemplateDescription") + Prelude.<*> (x Data..@ "StackName") + Prelude.<*> (x Data..@ "CreationTime") + Prelude.<*> (x Data..@ "StackStatus") + +instance Prelude.Hashable StackSummary where + hashWithSalt _salt StackSummary' {..} = + _salt + `Prelude.hashWithSalt` deletionTime + `Prelude.hashWithSalt` driftInformation + `Prelude.hashWithSalt` lastUpdatedTime + `Prelude.hashWithSalt` parentId + `Prelude.hashWithSalt` rootId + `Prelude.hashWithSalt` stackId + `Prelude.hashWithSalt` stackStatusReason + `Prelude.hashWithSalt` templateDescription + `Prelude.hashWithSalt` stackName + `Prelude.hashWithSalt` creationTime + `Prelude.hashWithSalt` stackStatus + +instance Prelude.NFData StackSummary where + rnf StackSummary' {..} = + Prelude.rnf deletionTime + `Prelude.seq` Prelude.rnf driftInformation + `Prelude.seq` Prelude.rnf lastUpdatedTime + `Prelude.seq` Prelude.rnf parentId + `Prelude.seq` Prelude.rnf rootId + `Prelude.seq` Prelude.rnf stackId + `Prelude.seq` Prelude.rnf stackStatusReason + `Prelude.seq` Prelude.rnf templateDescription + `Prelude.seq` Prelude.rnf stackName + `Prelude.seq` Prelude.rnf creationTime + `Prelude.seq` Prelude.rnf stackStatus diff --git a/gen/Amazonka/CloudFormation/Types/Tag.hs b/gen/Amazonka/CloudFormation/Types/Tag.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Tag.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Tag +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Tag where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The Tag type enables you to specify a key-value pair that can be used to +-- store information about an CloudFormation stack. +-- +-- /See:/ 'newTag' smart constructor. +data Tag = Tag' + { -- | /Required/. A string used to identify this tag. You can specify a + -- maximum of 128 characters for a tag key. Tags owned by Amazon Web + -- Services (Amazon Web Services) have the reserved prefix: @aws:@. + key :: Prelude.Text, + -- | /Required/. A string containing the value for this tag. You can specify + -- a maximum of 256 characters for a tag value. + value :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Tag' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'key', 'tag_key' - /Required/. A string used to identify this tag. You can specify a +-- maximum of 128 characters for a tag key. Tags owned by Amazon Web +-- Services (Amazon Web Services) have the reserved prefix: @aws:@. +-- +-- 'value', 'tag_value' - /Required/. A string containing the value for this tag. You can specify +-- a maximum of 256 characters for a tag value. +newTag :: + -- | 'key' + Prelude.Text -> + -- | 'value' + Prelude.Text -> + Tag +newTag pKey_ pValue_ = + Tag' {key = pKey_, value = pValue_} + +-- | /Required/. A string used to identify this tag. You can specify a +-- maximum of 128 characters for a tag key. Tags owned by Amazon Web +-- Services (Amazon Web Services) have the reserved prefix: @aws:@. +tag_key :: Lens.Lens' Tag Prelude.Text +tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag) + +-- | /Required/. A string containing the value for this tag. You can specify +-- a maximum of 256 characters for a tag value. +tag_value :: Lens.Lens' Tag Prelude.Text +tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag) + +instance Data.FromXML Tag where + parseXML x = + Tag' + Prelude.<$> (x Data..@ "Key") + Prelude.<*> (x Data..@ "Value") + +instance Prelude.Hashable Tag where + hashWithSalt _salt Tag' {..} = + _salt + `Prelude.hashWithSalt` key + `Prelude.hashWithSalt` value + +instance Prelude.NFData Tag where + rnf Tag' {..} = + Prelude.rnf key `Prelude.seq` Prelude.rnf value + +instance Data.ToQuery Tag where + toQuery Tag' {..} = + Prelude.mconcat + ["Key" Data.=: key, "Value" Data.=: value] diff --git a/gen/Amazonka/CloudFormation/Types/TemplateParameter.hs b/gen/Amazonka/CloudFormation/Types/TemplateParameter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TemplateParameter.hs @@ -0,0 +1,107 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TemplateParameter +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TemplateParameter where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | The TemplateParameter data type. +-- +-- /See:/ 'newTemplateParameter' smart constructor. +data TemplateParameter = TemplateParameter' + { -- | The default value associated with the parameter. + defaultValue :: Prelude.Maybe Prelude.Text, + -- | User defined description associated with the parameter. + description :: Prelude.Maybe Prelude.Text, + -- | Flag indicating whether the parameter should be displayed as plain text + -- in logs and UIs. + noEcho :: Prelude.Maybe Prelude.Bool, + -- | The name associated with the parameter. + parameterKey :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TemplateParameter' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'defaultValue', 'templateParameter_defaultValue' - The default value associated with the parameter. +-- +-- 'description', 'templateParameter_description' - User defined description associated with the parameter. +-- +-- 'noEcho', 'templateParameter_noEcho' - Flag indicating whether the parameter should be displayed as plain text +-- in logs and UIs. +-- +-- 'parameterKey', 'templateParameter_parameterKey' - The name associated with the parameter. +newTemplateParameter :: + TemplateParameter +newTemplateParameter = + TemplateParameter' + { defaultValue = Prelude.Nothing, + description = Prelude.Nothing, + noEcho = Prelude.Nothing, + parameterKey = Prelude.Nothing + } + +-- | The default value associated with the parameter. +templateParameter_defaultValue :: Lens.Lens' TemplateParameter (Prelude.Maybe Prelude.Text) +templateParameter_defaultValue = Lens.lens (\TemplateParameter' {defaultValue} -> defaultValue) (\s@TemplateParameter' {} a -> s {defaultValue = a} :: TemplateParameter) + +-- | User defined description associated with the parameter. +templateParameter_description :: Lens.Lens' TemplateParameter (Prelude.Maybe Prelude.Text) +templateParameter_description = Lens.lens (\TemplateParameter' {description} -> description) (\s@TemplateParameter' {} a -> s {description = a} :: TemplateParameter) + +-- | Flag indicating whether the parameter should be displayed as plain text +-- in logs and UIs. +templateParameter_noEcho :: Lens.Lens' TemplateParameter (Prelude.Maybe Prelude.Bool) +templateParameter_noEcho = Lens.lens (\TemplateParameter' {noEcho} -> noEcho) (\s@TemplateParameter' {} a -> s {noEcho = a} :: TemplateParameter) + +-- | The name associated with the parameter. +templateParameter_parameterKey :: Lens.Lens' TemplateParameter (Prelude.Maybe Prelude.Text) +templateParameter_parameterKey = Lens.lens (\TemplateParameter' {parameterKey} -> parameterKey) (\s@TemplateParameter' {} a -> s {parameterKey = a} :: TemplateParameter) + +instance Data.FromXML TemplateParameter where + parseXML x = + TemplateParameter' + Prelude.<$> (x Data..@? "DefaultValue") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "NoEcho") + Prelude.<*> (x Data..@? "ParameterKey") + +instance Prelude.Hashable TemplateParameter where + hashWithSalt _salt TemplateParameter' {..} = + _salt + `Prelude.hashWithSalt` defaultValue + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` noEcho + `Prelude.hashWithSalt` parameterKey + +instance Prelude.NFData TemplateParameter where + rnf TemplateParameter' {..} = + Prelude.rnf defaultValue + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf noEcho + `Prelude.seq` Prelude.rnf parameterKey diff --git a/gen/Amazonka/CloudFormation/Types/TemplateStage.hs b/gen/Amazonka/CloudFormation/Types/TemplateStage.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TemplateStage.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TemplateStage +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TemplateStage + ( TemplateStage + ( .., + TemplateStage_Original, + TemplateStage_Processed + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype TemplateStage = TemplateStage' + { fromTemplateStage :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern TemplateStage_Original :: TemplateStage +pattern TemplateStage_Original = TemplateStage' "Original" + +pattern TemplateStage_Processed :: TemplateStage +pattern TemplateStage_Processed = TemplateStage' "Processed" + +{-# COMPLETE + TemplateStage_Original, + TemplateStage_Processed, + TemplateStage' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/ThirdPartyType.hs b/gen/Amazonka/CloudFormation/Types/ThirdPartyType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/ThirdPartyType.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.ThirdPartyType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.ThirdPartyType + ( ThirdPartyType + ( .., + ThirdPartyType_HOOK, + ThirdPartyType_MODULE, + ThirdPartyType_RESOURCE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ThirdPartyType = ThirdPartyType' + { fromThirdPartyType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern ThirdPartyType_HOOK :: ThirdPartyType +pattern ThirdPartyType_HOOK = ThirdPartyType' "HOOK" + +pattern ThirdPartyType_MODULE :: ThirdPartyType +pattern ThirdPartyType_MODULE = ThirdPartyType' "MODULE" + +pattern ThirdPartyType_RESOURCE :: ThirdPartyType +pattern ThirdPartyType_RESOURCE = ThirdPartyType' "RESOURCE" + +{-# COMPLETE + ThirdPartyType_HOOK, + ThirdPartyType_MODULE, + ThirdPartyType_RESOURCE, + ThirdPartyType' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/TypeConfigurationDetails.hs b/gen/Amazonka/CloudFormation/Types/TypeConfigurationDetails.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TypeConfigurationDetails.hs @@ -0,0 +1,199 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TypeConfigurationDetails +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TypeConfigurationDetails where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Detailed information concerning the specification of a CloudFormation +-- extension in a given account and region. +-- +-- For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- /See:/ 'newTypeConfigurationDetails' smart constructor. +data TypeConfigurationDetails = TypeConfigurationDetails' + { -- | The alias specified for this configuration, if one was specified when + -- the configuration was set. + alias :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) for the configuration data, in this + -- account and region. + arn :: Prelude.Maybe Prelude.Text, + -- | A JSON string specifying the configuration data for the extension, in + -- this account and region. + -- + -- If a configuration hasn\'t been set for a specified extension, + -- CloudFormation returns @{}@. + configuration :: Prelude.Maybe Prelude.Text, + -- | Whether this configuration data is the default configuration for the + -- extension. + isDefaultConfiguration :: Prelude.Maybe Prelude.Bool, + -- | When the configuration data was last updated for this extension. + -- + -- If a configuration hasn\'t been set for a specified extension, + -- CloudFormation returns @null@. + lastUpdated :: Prelude.Maybe Data.ISO8601, + -- | The Amazon Resource Name (ARN) for the extension, in this account and + -- region. + -- + -- For public extensions, this will be the ARN assigned when you + -- + -- in this account and region. For private extensions, this will be the ARN + -- assigned when you + -- + -- in this account and region. + typeArn :: Prelude.Maybe Prelude.Text, + -- | The name of the extension. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TypeConfigurationDetails' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'alias', 'typeConfigurationDetails_alias' - The alias specified for this configuration, if one was specified when +-- the configuration was set. +-- +-- 'arn', 'typeConfigurationDetails_arn' - The Amazon Resource Name (ARN) for the configuration data, in this +-- account and region. +-- +-- 'configuration', 'typeConfigurationDetails_configuration' - A JSON string specifying the configuration data for the extension, in +-- this account and region. +-- +-- If a configuration hasn\'t been set for a specified extension, +-- CloudFormation returns @{}@. +-- +-- 'isDefaultConfiguration', 'typeConfigurationDetails_isDefaultConfiguration' - Whether this configuration data is the default configuration for the +-- extension. +-- +-- 'lastUpdated', 'typeConfigurationDetails_lastUpdated' - When the configuration data was last updated for this extension. +-- +-- If a configuration hasn\'t been set for a specified extension, +-- CloudFormation returns @null@. +-- +-- 'typeArn', 'typeConfigurationDetails_typeArn' - The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- For public extensions, this will be the ARN assigned when you +-- +-- in this account and region. For private extensions, this will be the ARN +-- assigned when you +-- +-- in this account and region. +-- +-- 'typeName', 'typeConfigurationDetails_typeName' - The name of the extension. +newTypeConfigurationDetails :: + TypeConfigurationDetails +newTypeConfigurationDetails = + TypeConfigurationDetails' + { alias = Prelude.Nothing, + arn = Prelude.Nothing, + configuration = Prelude.Nothing, + isDefaultConfiguration = Prelude.Nothing, + lastUpdated = Prelude.Nothing, + typeArn = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The alias specified for this configuration, if one was specified when +-- the configuration was set. +typeConfigurationDetails_alias :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.Text) +typeConfigurationDetails_alias = Lens.lens (\TypeConfigurationDetails' {alias} -> alias) (\s@TypeConfigurationDetails' {} a -> s {alias = a} :: TypeConfigurationDetails) + +-- | The Amazon Resource Name (ARN) for the configuration data, in this +-- account and region. +typeConfigurationDetails_arn :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.Text) +typeConfigurationDetails_arn = Lens.lens (\TypeConfigurationDetails' {arn} -> arn) (\s@TypeConfigurationDetails' {} a -> s {arn = a} :: TypeConfigurationDetails) + +-- | A JSON string specifying the configuration data for the extension, in +-- this account and region. +-- +-- If a configuration hasn\'t been set for a specified extension, +-- CloudFormation returns @{}@. +typeConfigurationDetails_configuration :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.Text) +typeConfigurationDetails_configuration = Lens.lens (\TypeConfigurationDetails' {configuration} -> configuration) (\s@TypeConfigurationDetails' {} a -> s {configuration = a} :: TypeConfigurationDetails) + +-- | Whether this configuration data is the default configuration for the +-- extension. +typeConfigurationDetails_isDefaultConfiguration :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.Bool) +typeConfigurationDetails_isDefaultConfiguration = Lens.lens (\TypeConfigurationDetails' {isDefaultConfiguration} -> isDefaultConfiguration) (\s@TypeConfigurationDetails' {} a -> s {isDefaultConfiguration = a} :: TypeConfigurationDetails) + +-- | When the configuration data was last updated for this extension. +-- +-- If a configuration hasn\'t been set for a specified extension, +-- CloudFormation returns @null@. +typeConfigurationDetails_lastUpdated :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.UTCTime) +typeConfigurationDetails_lastUpdated = Lens.lens (\TypeConfigurationDetails' {lastUpdated} -> lastUpdated) (\s@TypeConfigurationDetails' {} a -> s {lastUpdated = a} :: TypeConfigurationDetails) Prelude.. Lens.mapping Data._Time + +-- | The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- For public extensions, this will be the ARN assigned when you +-- +-- in this account and region. For private extensions, this will be the ARN +-- assigned when you +-- +-- in this account and region. +typeConfigurationDetails_typeArn :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.Text) +typeConfigurationDetails_typeArn = Lens.lens (\TypeConfigurationDetails' {typeArn} -> typeArn) (\s@TypeConfigurationDetails' {} a -> s {typeArn = a} :: TypeConfigurationDetails) + +-- | The name of the extension. +typeConfigurationDetails_typeName :: Lens.Lens' TypeConfigurationDetails (Prelude.Maybe Prelude.Text) +typeConfigurationDetails_typeName = Lens.lens (\TypeConfigurationDetails' {typeName} -> typeName) (\s@TypeConfigurationDetails' {} a -> s {typeName = a} :: TypeConfigurationDetails) + +instance Data.FromXML TypeConfigurationDetails where + parseXML x = + TypeConfigurationDetails' + Prelude.<$> (x Data..@? "Alias") + Prelude.<*> (x Data..@? "Arn") + Prelude.<*> (x Data..@? "Configuration") + Prelude.<*> (x Data..@? "IsDefaultConfiguration") + Prelude.<*> (x Data..@? "LastUpdated") + Prelude.<*> (x Data..@? "TypeArn") + Prelude.<*> (x Data..@? "TypeName") + +instance Prelude.Hashable TypeConfigurationDetails where + hashWithSalt _salt TypeConfigurationDetails' {..} = + _salt + `Prelude.hashWithSalt` alias + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` configuration + `Prelude.hashWithSalt` isDefaultConfiguration + `Prelude.hashWithSalt` lastUpdated + `Prelude.hashWithSalt` typeArn + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData TypeConfigurationDetails where + rnf TypeConfigurationDetails' {..} = + Prelude.rnf alias + `Prelude.seq` Prelude.rnf arn + `Prelude.seq` Prelude.rnf configuration + `Prelude.seq` Prelude.rnf isDefaultConfiguration + `Prelude.seq` Prelude.rnf lastUpdated + `Prelude.seq` Prelude.rnf typeArn + `Prelude.seq` Prelude.rnf typeName diff --git a/gen/Amazonka/CloudFormation/Types/TypeConfigurationIdentifier.hs b/gen/Amazonka/CloudFormation/Types/TypeConfigurationIdentifier.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TypeConfigurationIdentifier.hs @@ -0,0 +1,160 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TypeConfigurationIdentifier +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TypeConfigurationIdentifier where + +import Amazonka.CloudFormation.Types.ThirdPartyType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Identifying information for the configuration of a CloudFormation +-- extension. +-- +-- /See:/ 'newTypeConfigurationIdentifier' smart constructor. +data TypeConfigurationIdentifier = TypeConfigurationIdentifier' + { -- | The type of extension. + type' :: Prelude.Maybe ThirdPartyType, + -- | The Amazon Resource Name (ARN) for the extension, in this account and + -- region. + -- + -- For public extensions, this will be the ARN assigned when you + -- + -- in this account and region. For private extensions, this will be the ARN + -- assigned when you + -- + -- in this account and region. + typeArn :: Prelude.Maybe Prelude.Text, + -- | The alias specified for this configuration, if one was specified when + -- the configuration was set. + typeConfigurationAlias :: Prelude.Maybe Prelude.Text, + -- | The Amazon Resource Name (ARN) for the configuration, in this account + -- and region. + typeConfigurationArn :: Prelude.Maybe Prelude.Text, + -- | The name of the extension type to which this configuration applies. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TypeConfigurationIdentifier' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'type'', 'typeConfigurationIdentifier_type' - The type of extension. +-- +-- 'typeArn', 'typeConfigurationIdentifier_typeArn' - The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- For public extensions, this will be the ARN assigned when you +-- +-- in this account and region. For private extensions, this will be the ARN +-- assigned when you +-- +-- in this account and region. +-- +-- 'typeConfigurationAlias', 'typeConfigurationIdentifier_typeConfigurationAlias' - The alias specified for this configuration, if one was specified when +-- the configuration was set. +-- +-- 'typeConfigurationArn', 'typeConfigurationIdentifier_typeConfigurationArn' - The Amazon Resource Name (ARN) for the configuration, in this account +-- and region. +-- +-- 'typeName', 'typeConfigurationIdentifier_typeName' - The name of the extension type to which this configuration applies. +newTypeConfigurationIdentifier :: + TypeConfigurationIdentifier +newTypeConfigurationIdentifier = + TypeConfigurationIdentifier' + { type' = + Prelude.Nothing, + typeArn = Prelude.Nothing, + typeConfigurationAlias = Prelude.Nothing, + typeConfigurationArn = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The type of extension. +typeConfigurationIdentifier_type :: Lens.Lens' TypeConfigurationIdentifier (Prelude.Maybe ThirdPartyType) +typeConfigurationIdentifier_type = Lens.lens (\TypeConfigurationIdentifier' {type'} -> type') (\s@TypeConfigurationIdentifier' {} a -> s {type' = a} :: TypeConfigurationIdentifier) + +-- | The Amazon Resource Name (ARN) for the extension, in this account and +-- region. +-- +-- For public extensions, this will be the ARN assigned when you +-- +-- in this account and region. For private extensions, this will be the ARN +-- assigned when you +-- +-- in this account and region. +typeConfigurationIdentifier_typeArn :: Lens.Lens' TypeConfigurationIdentifier (Prelude.Maybe Prelude.Text) +typeConfigurationIdentifier_typeArn = Lens.lens (\TypeConfigurationIdentifier' {typeArn} -> typeArn) (\s@TypeConfigurationIdentifier' {} a -> s {typeArn = a} :: TypeConfigurationIdentifier) + +-- | The alias specified for this configuration, if one was specified when +-- the configuration was set. +typeConfigurationIdentifier_typeConfigurationAlias :: Lens.Lens' TypeConfigurationIdentifier (Prelude.Maybe Prelude.Text) +typeConfigurationIdentifier_typeConfigurationAlias = Lens.lens (\TypeConfigurationIdentifier' {typeConfigurationAlias} -> typeConfigurationAlias) (\s@TypeConfigurationIdentifier' {} a -> s {typeConfigurationAlias = a} :: TypeConfigurationIdentifier) + +-- | The Amazon Resource Name (ARN) for the configuration, in this account +-- and region. +typeConfigurationIdentifier_typeConfigurationArn :: Lens.Lens' TypeConfigurationIdentifier (Prelude.Maybe Prelude.Text) +typeConfigurationIdentifier_typeConfigurationArn = Lens.lens (\TypeConfigurationIdentifier' {typeConfigurationArn} -> typeConfigurationArn) (\s@TypeConfigurationIdentifier' {} a -> s {typeConfigurationArn = a} :: TypeConfigurationIdentifier) + +-- | The name of the extension type to which this configuration applies. +typeConfigurationIdentifier_typeName :: Lens.Lens' TypeConfigurationIdentifier (Prelude.Maybe Prelude.Text) +typeConfigurationIdentifier_typeName = Lens.lens (\TypeConfigurationIdentifier' {typeName} -> typeName) (\s@TypeConfigurationIdentifier' {} a -> s {typeName = a} :: TypeConfigurationIdentifier) + +instance Data.FromXML TypeConfigurationIdentifier where + parseXML x = + TypeConfigurationIdentifier' + Prelude.<$> (x Data..@? "Type") + Prelude.<*> (x Data..@? "TypeArn") + Prelude.<*> (x Data..@? "TypeConfigurationAlias") + Prelude.<*> (x Data..@? "TypeConfigurationArn") + Prelude.<*> (x Data..@? "TypeName") + +instance Prelude.Hashable TypeConfigurationIdentifier where + hashWithSalt _salt TypeConfigurationIdentifier' {..} = + _salt + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeArn + `Prelude.hashWithSalt` typeConfigurationAlias + `Prelude.hashWithSalt` typeConfigurationArn + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData TypeConfigurationIdentifier where + rnf TypeConfigurationIdentifier' {..} = + Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeArn + `Prelude.seq` Prelude.rnf typeConfigurationAlias + `Prelude.seq` Prelude.rnf typeConfigurationArn + `Prelude.seq` Prelude.rnf typeName + +instance Data.ToQuery TypeConfigurationIdentifier where + toQuery TypeConfigurationIdentifier' {..} = + Prelude.mconcat + [ "Type" Data.=: type', + "TypeArn" Data.=: typeArn, + "TypeConfigurationAlias" + Data.=: typeConfigurationAlias, + "TypeConfigurationArn" Data.=: typeConfigurationArn, + "TypeName" Data.=: typeName + ] diff --git a/gen/Amazonka/CloudFormation/Types/TypeFilters.hs b/gen/Amazonka/CloudFormation/Types/TypeFilters.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TypeFilters.hs @@ -0,0 +1,151 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TypeFilters +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TypeFilters where + +import Amazonka.CloudFormation.Types.Category +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Filter criteria to use in determining which extensions to return. +-- +-- /See:/ 'newTypeFilters' smart constructor. +data TypeFilters = TypeFilters' + { -- | The category of extensions to return. + -- + -- - @REGISTERED@: Private extensions that have been registered for this + -- account and region. + -- + -- - @ACTIVATED@: Public extensions that have been activated for this + -- account and region. + -- + -- - @THIRD_PARTY@: Extensions available for use from publishers other + -- than Amazon. This includes: + -- + -- - Private extensions registered in the account. + -- + -- - Public extensions from publishers other than Amazon, whether + -- activated or not. + -- + -- - @AWS_TYPES@: Extensions available for use from Amazon. + category :: Prelude.Maybe Category, + -- | The id of the publisher of the extension. + -- + -- Extensions published by Amazon aren\'t assigned a publisher ID. Use the + -- @AWS_TYPES@ category to specify a list of types published by Amazon. + publisherId :: Prelude.Maybe Prelude.Text, + -- | A prefix to use as a filter for results. + typeNamePrefix :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TypeFilters' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'category', 'typeFilters_category' - The category of extensions to return. +-- +-- - @REGISTERED@: Private extensions that have been registered for this +-- account and region. +-- +-- - @ACTIVATED@: Public extensions that have been activated for this +-- account and region. +-- +-- - @THIRD_PARTY@: Extensions available for use from publishers other +-- than Amazon. This includes: +-- +-- - Private extensions registered in the account. +-- +-- - Public extensions from publishers other than Amazon, whether +-- activated or not. +-- +-- - @AWS_TYPES@: Extensions available for use from Amazon. +-- +-- 'publisherId', 'typeFilters_publisherId' - The id of the publisher of the extension. +-- +-- Extensions published by Amazon aren\'t assigned a publisher ID. Use the +-- @AWS_TYPES@ category to specify a list of types published by Amazon. +-- +-- 'typeNamePrefix', 'typeFilters_typeNamePrefix' - A prefix to use as a filter for results. +newTypeFilters :: + TypeFilters +newTypeFilters = + TypeFilters' + { category = Prelude.Nothing, + publisherId = Prelude.Nothing, + typeNamePrefix = Prelude.Nothing + } + +-- | The category of extensions to return. +-- +-- - @REGISTERED@: Private extensions that have been registered for this +-- account and region. +-- +-- - @ACTIVATED@: Public extensions that have been activated for this +-- account and region. +-- +-- - @THIRD_PARTY@: Extensions available for use from publishers other +-- than Amazon. This includes: +-- +-- - Private extensions registered in the account. +-- +-- - Public extensions from publishers other than Amazon, whether +-- activated or not. +-- +-- - @AWS_TYPES@: Extensions available for use from Amazon. +typeFilters_category :: Lens.Lens' TypeFilters (Prelude.Maybe Category) +typeFilters_category = Lens.lens (\TypeFilters' {category} -> category) (\s@TypeFilters' {} a -> s {category = a} :: TypeFilters) + +-- | The id of the publisher of the extension. +-- +-- Extensions published by Amazon aren\'t assigned a publisher ID. Use the +-- @AWS_TYPES@ category to specify a list of types published by Amazon. +typeFilters_publisherId :: Lens.Lens' TypeFilters (Prelude.Maybe Prelude.Text) +typeFilters_publisherId = Lens.lens (\TypeFilters' {publisherId} -> publisherId) (\s@TypeFilters' {} a -> s {publisherId = a} :: TypeFilters) + +-- | A prefix to use as a filter for results. +typeFilters_typeNamePrefix :: Lens.Lens' TypeFilters (Prelude.Maybe Prelude.Text) +typeFilters_typeNamePrefix = Lens.lens (\TypeFilters' {typeNamePrefix} -> typeNamePrefix) (\s@TypeFilters' {} a -> s {typeNamePrefix = a} :: TypeFilters) + +instance Prelude.Hashable TypeFilters where + hashWithSalt _salt TypeFilters' {..} = + _salt + `Prelude.hashWithSalt` category + `Prelude.hashWithSalt` publisherId + `Prelude.hashWithSalt` typeNamePrefix + +instance Prelude.NFData TypeFilters where + rnf TypeFilters' {..} = + Prelude.rnf category + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf typeNamePrefix + +instance Data.ToQuery TypeFilters where + toQuery TypeFilters' {..} = + Prelude.mconcat + [ "Category" Data.=: category, + "PublisherId" Data.=: publisherId, + "TypeNamePrefix" Data.=: typeNamePrefix + ] diff --git a/gen/Amazonka/CloudFormation/Types/TypeSummary.hs b/gen/Amazonka/CloudFormation/Types/TypeSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TypeSummary.hs @@ -0,0 +1,404 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TypeSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TypeSummary where + +import Amazonka.CloudFormation.Types.IdentityProvider +import Amazonka.CloudFormation.Types.RegistryType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains summary information about the specified CloudFormation +-- extension. +-- +-- /See:/ 'newTypeSummary' smart constructor. +data TypeSummary = TypeSummary' + { -- | The ID of the default version of the extension. The default version is + -- used when the extension version isn\'t specified. + -- + -- This applies only to private extensions you have registered in your + -- account. For public extensions, both those provided by Amazon and + -- published by third parties, CloudFormation returns @null@. For more + -- information, see + -- . + -- + -- To set the default version of an extension, use + -- @ @@SetTypeDefaultVersion@@ @. + defaultVersionId :: Prelude.Maybe Prelude.Text, + -- | The description of the extension. + description :: Prelude.Maybe Prelude.Text, + -- | Whether the extension is activated for this account and region. + -- + -- This applies only to third-party public extensions. Extensions published + -- by Amazon are activated by default. + isActivated :: Prelude.Maybe Prelude.Bool, + -- | When the specified extension version was registered. This applies only + -- to: + -- + -- - Private extensions you have registered in your account. For more + -- information, see + -- . + -- + -- - Public extensions you have activated in your account with + -- auto-update specified. For more information, see + -- . + -- + -- For all other extension types, CloudFormation returns @null@. + lastUpdated :: Prelude.Maybe Data.ISO8601, + -- | For public extensions that have been activated for this account and + -- region, the latest version of the public extension /that is available/. + -- For any extensions other than activated third-arty extensions, + -- CloudFormation returns @null@. + -- + -- How you specified @AutoUpdate@ when enabling the extension affects + -- whether CloudFormation automatically updates the extension in this + -- account and region when a new version is released. For more information, + -- see + -- + -- in the /CloudFormation User Guide/. + latestPublicVersion :: Prelude.Maybe Prelude.Text, + -- | For public extensions that have been activated for this account and + -- region, the type name of the public extension. + -- + -- If you specified a @TypeNameAlias@ when enabling the extension in this + -- account and region, CloudFormation treats that alias as the extension\'s + -- type name within the account and region, not the type name of the public + -- extension. For more information, see + -- + -- in the /CloudFormation User Guide/. + originalTypeName :: Prelude.Maybe Prelude.Text, + -- | For public extensions that have been activated for this account and + -- region, the version of the public extension to be used for + -- CloudFormation operations in this account and Region. + -- + -- How you specified @AutoUpdate@ when enabling the extension affects + -- whether CloudFormation automatically updates the extension in this + -- account and region when a new version is released. For more information, + -- see + -- + -- in the /CloudFormation User Guide/. + publicVersionNumber :: Prelude.Maybe Prelude.Text, + -- | The ID of the extension publisher, if the extension is published by a + -- third party. Extensions published by Amazon don\'t return a publisher + -- ID. + publisherId :: Prelude.Maybe Prelude.Text, + -- | The service used to verify the publisher identity. + -- + -- For more information, see + -- + -- in the /CFN-CLI User Guide for Extension Development/. + publisherIdentity :: Prelude.Maybe IdentityProvider, + -- | The publisher name, as defined in the public profile for that publisher + -- in the service used to verify the publisher identity. + publisherName :: Prelude.Maybe Prelude.Text, + -- | The kind of extension. + type' :: Prelude.Maybe RegistryType, + -- | The Amazon Resource Name (ARN) of the extension. + typeArn :: Prelude.Maybe Prelude.Text, + -- | The name of the extension. + -- + -- If you specified a @TypeNameAlias@ when you + -- + -- in your account and region, CloudFormation considers that alias as the + -- type name. + typeName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TypeSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'defaultVersionId', 'typeSummary_defaultVersionId' - The ID of the default version of the extension. The default version is +-- used when the extension version isn\'t specified. +-- +-- This applies only to private extensions you have registered in your +-- account. For public extensions, both those provided by Amazon and +-- published by third parties, CloudFormation returns @null@. For more +-- information, see +-- . +-- +-- To set the default version of an extension, use +-- @ @@SetTypeDefaultVersion@@ @. +-- +-- 'description', 'typeSummary_description' - The description of the extension. +-- +-- 'isActivated', 'typeSummary_isActivated' - Whether the extension is activated for this account and region. +-- +-- This applies only to third-party public extensions. Extensions published +-- by Amazon are activated by default. +-- +-- 'lastUpdated', 'typeSummary_lastUpdated' - When the specified extension version was registered. This applies only +-- to: +-- +-- - Private extensions you have registered in your account. For more +-- information, see +-- . +-- +-- - Public extensions you have activated in your account with +-- auto-update specified. For more information, see +-- . +-- +-- For all other extension types, CloudFormation returns @null@. +-- +-- 'latestPublicVersion', 'typeSummary_latestPublicVersion' - For public extensions that have been activated for this account and +-- region, the latest version of the public extension /that is available/. +-- For any extensions other than activated third-arty extensions, +-- CloudFormation returns @null@. +-- +-- How you specified @AutoUpdate@ when enabling the extension affects +-- whether CloudFormation automatically updates the extension in this +-- account and region when a new version is released. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'originalTypeName', 'typeSummary_originalTypeName' - For public extensions that have been activated for this account and +-- region, the type name of the public extension. +-- +-- If you specified a @TypeNameAlias@ when enabling the extension in this +-- account and region, CloudFormation treats that alias as the extension\'s +-- type name within the account and region, not the type name of the public +-- extension. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'publicVersionNumber', 'typeSummary_publicVersionNumber' - For public extensions that have been activated for this account and +-- region, the version of the public extension to be used for +-- CloudFormation operations in this account and Region. +-- +-- How you specified @AutoUpdate@ when enabling the extension affects +-- whether CloudFormation automatically updates the extension in this +-- account and region when a new version is released. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'publisherId', 'typeSummary_publisherId' - The ID of the extension publisher, if the extension is published by a +-- third party. Extensions published by Amazon don\'t return a publisher +-- ID. +-- +-- 'publisherIdentity', 'typeSummary_publisherIdentity' - The service used to verify the publisher identity. +-- +-- For more information, see +-- +-- in the /CFN-CLI User Guide for Extension Development/. +-- +-- 'publisherName', 'typeSummary_publisherName' - The publisher name, as defined in the public profile for that publisher +-- in the service used to verify the publisher identity. +-- +-- 'type'', 'typeSummary_type' - The kind of extension. +-- +-- 'typeArn', 'typeSummary_typeArn' - The Amazon Resource Name (ARN) of the extension. +-- +-- 'typeName', 'typeSummary_typeName' - The name of the extension. +-- +-- If you specified a @TypeNameAlias@ when you +-- +-- in your account and region, CloudFormation considers that alias as the +-- type name. +newTypeSummary :: + TypeSummary +newTypeSummary = + TypeSummary' + { defaultVersionId = Prelude.Nothing, + description = Prelude.Nothing, + isActivated = Prelude.Nothing, + lastUpdated = Prelude.Nothing, + latestPublicVersion = Prelude.Nothing, + originalTypeName = Prelude.Nothing, + publicVersionNumber = Prelude.Nothing, + publisherId = Prelude.Nothing, + publisherIdentity = Prelude.Nothing, + publisherName = Prelude.Nothing, + type' = Prelude.Nothing, + typeArn = Prelude.Nothing, + typeName = Prelude.Nothing + } + +-- | The ID of the default version of the extension. The default version is +-- used when the extension version isn\'t specified. +-- +-- This applies only to private extensions you have registered in your +-- account. For public extensions, both those provided by Amazon and +-- published by third parties, CloudFormation returns @null@. For more +-- information, see +-- . +-- +-- To set the default version of an extension, use +-- @ @@SetTypeDefaultVersion@@ @. +typeSummary_defaultVersionId :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_defaultVersionId = Lens.lens (\TypeSummary' {defaultVersionId} -> defaultVersionId) (\s@TypeSummary' {} a -> s {defaultVersionId = a} :: TypeSummary) + +-- | The description of the extension. +typeSummary_description :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_description = Lens.lens (\TypeSummary' {description} -> description) (\s@TypeSummary' {} a -> s {description = a} :: TypeSummary) + +-- | Whether the extension is activated for this account and region. +-- +-- This applies only to third-party public extensions. Extensions published +-- by Amazon are activated by default. +typeSummary_isActivated :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Bool) +typeSummary_isActivated = Lens.lens (\TypeSummary' {isActivated} -> isActivated) (\s@TypeSummary' {} a -> s {isActivated = a} :: TypeSummary) + +-- | When the specified extension version was registered. This applies only +-- to: +-- +-- - Private extensions you have registered in your account. For more +-- information, see +-- . +-- +-- - Public extensions you have activated in your account with +-- auto-update specified. For more information, see +-- . +-- +-- For all other extension types, CloudFormation returns @null@. +typeSummary_lastUpdated :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.UTCTime) +typeSummary_lastUpdated = Lens.lens (\TypeSummary' {lastUpdated} -> lastUpdated) (\s@TypeSummary' {} a -> s {lastUpdated = a} :: TypeSummary) Prelude.. Lens.mapping Data._Time + +-- | For public extensions that have been activated for this account and +-- region, the latest version of the public extension /that is available/. +-- For any extensions other than activated third-arty extensions, +-- CloudFormation returns @null@. +-- +-- How you specified @AutoUpdate@ when enabling the extension affects +-- whether CloudFormation automatically updates the extension in this +-- account and region when a new version is released. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +typeSummary_latestPublicVersion :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_latestPublicVersion = Lens.lens (\TypeSummary' {latestPublicVersion} -> latestPublicVersion) (\s@TypeSummary' {} a -> s {latestPublicVersion = a} :: TypeSummary) + +-- | For public extensions that have been activated for this account and +-- region, the type name of the public extension. +-- +-- If you specified a @TypeNameAlias@ when enabling the extension in this +-- account and region, CloudFormation treats that alias as the extension\'s +-- type name within the account and region, not the type name of the public +-- extension. For more information, see +-- +-- in the /CloudFormation User Guide/. +typeSummary_originalTypeName :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_originalTypeName = Lens.lens (\TypeSummary' {originalTypeName} -> originalTypeName) (\s@TypeSummary' {} a -> s {originalTypeName = a} :: TypeSummary) + +-- | For public extensions that have been activated for this account and +-- region, the version of the public extension to be used for +-- CloudFormation operations in this account and Region. +-- +-- How you specified @AutoUpdate@ when enabling the extension affects +-- whether CloudFormation automatically updates the extension in this +-- account and region when a new version is released. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +typeSummary_publicVersionNumber :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_publicVersionNumber = Lens.lens (\TypeSummary' {publicVersionNumber} -> publicVersionNumber) (\s@TypeSummary' {} a -> s {publicVersionNumber = a} :: TypeSummary) + +-- | The ID of the extension publisher, if the extension is published by a +-- third party. Extensions published by Amazon don\'t return a publisher +-- ID. +typeSummary_publisherId :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_publisherId = Lens.lens (\TypeSummary' {publisherId} -> publisherId) (\s@TypeSummary' {} a -> s {publisherId = a} :: TypeSummary) + +-- | The service used to verify the publisher identity. +-- +-- For more information, see +-- +-- in the /CFN-CLI User Guide for Extension Development/. +typeSummary_publisherIdentity :: Lens.Lens' TypeSummary (Prelude.Maybe IdentityProvider) +typeSummary_publisherIdentity = Lens.lens (\TypeSummary' {publisherIdentity} -> publisherIdentity) (\s@TypeSummary' {} a -> s {publisherIdentity = a} :: TypeSummary) + +-- | The publisher name, as defined in the public profile for that publisher +-- in the service used to verify the publisher identity. +typeSummary_publisherName :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_publisherName = Lens.lens (\TypeSummary' {publisherName} -> publisherName) (\s@TypeSummary' {} a -> s {publisherName = a} :: TypeSummary) + +-- | The kind of extension. +typeSummary_type :: Lens.Lens' TypeSummary (Prelude.Maybe RegistryType) +typeSummary_type = Lens.lens (\TypeSummary' {type'} -> type') (\s@TypeSummary' {} a -> s {type' = a} :: TypeSummary) + +-- | The Amazon Resource Name (ARN) of the extension. +typeSummary_typeArn :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_typeArn = Lens.lens (\TypeSummary' {typeArn} -> typeArn) (\s@TypeSummary' {} a -> s {typeArn = a} :: TypeSummary) + +-- | The name of the extension. +-- +-- If you specified a @TypeNameAlias@ when you +-- +-- in your account and region, CloudFormation considers that alias as the +-- type name. +typeSummary_typeName :: Lens.Lens' TypeSummary (Prelude.Maybe Prelude.Text) +typeSummary_typeName = Lens.lens (\TypeSummary' {typeName} -> typeName) (\s@TypeSummary' {} a -> s {typeName = a} :: TypeSummary) + +instance Data.FromXML TypeSummary where + parseXML x = + TypeSummary' + Prelude.<$> (x Data..@? "DefaultVersionId") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "IsActivated") + Prelude.<*> (x Data..@? "LastUpdated") + Prelude.<*> (x Data..@? "LatestPublicVersion") + Prelude.<*> (x Data..@? "OriginalTypeName") + Prelude.<*> (x Data..@? "PublicVersionNumber") + Prelude.<*> (x Data..@? "PublisherId") + Prelude.<*> (x Data..@? "PublisherIdentity") + Prelude.<*> (x Data..@? "PublisherName") + Prelude.<*> (x Data..@? "Type") + Prelude.<*> (x Data..@? "TypeArn") + Prelude.<*> (x Data..@? "TypeName") + +instance Prelude.Hashable TypeSummary where + hashWithSalt _salt TypeSummary' {..} = + _salt + `Prelude.hashWithSalt` defaultVersionId + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` isActivated + `Prelude.hashWithSalt` lastUpdated + `Prelude.hashWithSalt` latestPublicVersion + `Prelude.hashWithSalt` originalTypeName + `Prelude.hashWithSalt` publicVersionNumber + `Prelude.hashWithSalt` publisherId + `Prelude.hashWithSalt` publisherIdentity + `Prelude.hashWithSalt` publisherName + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeArn + `Prelude.hashWithSalt` typeName + +instance Prelude.NFData TypeSummary where + rnf TypeSummary' {..} = + Prelude.rnf defaultVersionId + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf isActivated + `Prelude.seq` Prelude.rnf lastUpdated + `Prelude.seq` Prelude.rnf latestPublicVersion + `Prelude.seq` Prelude.rnf originalTypeName + `Prelude.seq` Prelude.rnf publicVersionNumber + `Prelude.seq` Prelude.rnf publisherId + `Prelude.seq` Prelude.rnf publisherIdentity + `Prelude.seq` Prelude.rnf publisherName + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeArn + `Prelude.seq` Prelude.rnf typeName diff --git a/gen/Amazonka/CloudFormation/Types/TypeTestsStatus.hs b/gen/Amazonka/CloudFormation/Types/TypeTestsStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TypeTestsStatus.hs @@ -0,0 +1,81 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TypeTestsStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TypeTestsStatus + ( TypeTestsStatus + ( .., + TypeTestsStatus_FAILED, + TypeTestsStatus_IN_PROGRESS, + TypeTestsStatus_NOT_TESTED, + TypeTestsStatus_PASSED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype TypeTestsStatus = TypeTestsStatus' + { fromTypeTestsStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern TypeTestsStatus_FAILED :: TypeTestsStatus +pattern TypeTestsStatus_FAILED = TypeTestsStatus' "FAILED" + +pattern TypeTestsStatus_IN_PROGRESS :: TypeTestsStatus +pattern TypeTestsStatus_IN_PROGRESS = TypeTestsStatus' "IN_PROGRESS" + +pattern TypeTestsStatus_NOT_TESTED :: TypeTestsStatus +pattern TypeTestsStatus_NOT_TESTED = TypeTestsStatus' "NOT_TESTED" + +pattern TypeTestsStatus_PASSED :: TypeTestsStatus +pattern TypeTestsStatus_PASSED = TypeTestsStatus' "PASSED" + +{-# COMPLETE + TypeTestsStatus_FAILED, + TypeTestsStatus_IN_PROGRESS, + TypeTestsStatus_NOT_TESTED, + TypeTestsStatus_PASSED, + TypeTestsStatus' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/TypeVersionSummary.hs b/gen/Amazonka/CloudFormation/Types/TypeVersionSummary.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/TypeVersionSummary.hs @@ -0,0 +1,205 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.TypeVersionSummary +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.TypeVersionSummary where + +import Amazonka.CloudFormation.Types.RegistryType +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Contains summary information about a specific version of a +-- CloudFormation extension. +-- +-- /See:/ 'newTypeVersionSummary' smart constructor. +data TypeVersionSummary = TypeVersionSummary' + { -- | The Amazon Resource Name (ARN) of the extension version. + arn :: Prelude.Maybe Prelude.Text, + -- | The description of the extension version. + description :: Prelude.Maybe Prelude.Text, + -- | Whether the specified extension version is set as the default version. + -- + -- This applies only to private extensions you have registered in your + -- account, and extensions published by Amazon. For public third-party + -- extensions, CloudFormation returns @null@. + isDefaultVersion :: Prelude.Maybe Prelude.Bool, + -- | For public extensions that have been activated for this account and + -- region, the version of the public extension to be used for + -- CloudFormation operations in this account and region. For any extensions + -- other than activated third-arty extensions, CloudFormation returns + -- @null@. + -- + -- How you specified @AutoUpdate@ when enabling the extension affects + -- whether CloudFormation automatically updates the extension in this + -- account and region when a new version is released. For more information, + -- see + -- + -- in the /CloudFormation User Guide/. + publicVersionNumber :: Prelude.Maybe Prelude.Text, + -- | When the version was registered. + timeCreated :: Prelude.Maybe Data.ISO8601, + -- | The kind of extension. + type' :: Prelude.Maybe RegistryType, + -- | The name of the extension. + typeName :: Prelude.Maybe Prelude.Text, + -- | The ID of a specific version of the extension. The version ID is the + -- value at the end of the Amazon Resource Name (ARN) assigned to the + -- extension version when it\'s registered. + versionId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TypeVersionSummary' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'arn', 'typeVersionSummary_arn' - The Amazon Resource Name (ARN) of the extension version. +-- +-- 'description', 'typeVersionSummary_description' - The description of the extension version. +-- +-- 'isDefaultVersion', 'typeVersionSummary_isDefaultVersion' - Whether the specified extension version is set as the default version. +-- +-- This applies only to private extensions you have registered in your +-- account, and extensions published by Amazon. For public third-party +-- extensions, CloudFormation returns @null@. +-- +-- 'publicVersionNumber', 'typeVersionSummary_publicVersionNumber' - For public extensions that have been activated for this account and +-- region, the version of the public extension to be used for +-- CloudFormation operations in this account and region. For any extensions +-- other than activated third-arty extensions, CloudFormation returns +-- @null@. +-- +-- How you specified @AutoUpdate@ when enabling the extension affects +-- whether CloudFormation automatically updates the extension in this +-- account and region when a new version is released. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'timeCreated', 'typeVersionSummary_timeCreated' - When the version was registered. +-- +-- 'type'', 'typeVersionSummary_type' - The kind of extension. +-- +-- 'typeName', 'typeVersionSummary_typeName' - The name of the extension. +-- +-- 'versionId', 'typeVersionSummary_versionId' - The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it\'s registered. +newTypeVersionSummary :: + TypeVersionSummary +newTypeVersionSummary = + TypeVersionSummary' + { arn = Prelude.Nothing, + description = Prelude.Nothing, + isDefaultVersion = Prelude.Nothing, + publicVersionNumber = Prelude.Nothing, + timeCreated = Prelude.Nothing, + type' = Prelude.Nothing, + typeName = Prelude.Nothing, + versionId = Prelude.Nothing + } + +-- | The Amazon Resource Name (ARN) of the extension version. +typeVersionSummary_arn :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.Text) +typeVersionSummary_arn = Lens.lens (\TypeVersionSummary' {arn} -> arn) (\s@TypeVersionSummary' {} a -> s {arn = a} :: TypeVersionSummary) + +-- | The description of the extension version. +typeVersionSummary_description :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.Text) +typeVersionSummary_description = Lens.lens (\TypeVersionSummary' {description} -> description) (\s@TypeVersionSummary' {} a -> s {description = a} :: TypeVersionSummary) + +-- | Whether the specified extension version is set as the default version. +-- +-- This applies only to private extensions you have registered in your +-- account, and extensions published by Amazon. For public third-party +-- extensions, CloudFormation returns @null@. +typeVersionSummary_isDefaultVersion :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.Bool) +typeVersionSummary_isDefaultVersion = Lens.lens (\TypeVersionSummary' {isDefaultVersion} -> isDefaultVersion) (\s@TypeVersionSummary' {} a -> s {isDefaultVersion = a} :: TypeVersionSummary) + +-- | For public extensions that have been activated for this account and +-- region, the version of the public extension to be used for +-- CloudFormation operations in this account and region. For any extensions +-- other than activated third-arty extensions, CloudFormation returns +-- @null@. +-- +-- How you specified @AutoUpdate@ when enabling the extension affects +-- whether CloudFormation automatically updates the extension in this +-- account and region when a new version is released. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +typeVersionSummary_publicVersionNumber :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.Text) +typeVersionSummary_publicVersionNumber = Lens.lens (\TypeVersionSummary' {publicVersionNumber} -> publicVersionNumber) (\s@TypeVersionSummary' {} a -> s {publicVersionNumber = a} :: TypeVersionSummary) + +-- | When the version was registered. +typeVersionSummary_timeCreated :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.UTCTime) +typeVersionSummary_timeCreated = Lens.lens (\TypeVersionSummary' {timeCreated} -> timeCreated) (\s@TypeVersionSummary' {} a -> s {timeCreated = a} :: TypeVersionSummary) Prelude.. Lens.mapping Data._Time + +-- | The kind of extension. +typeVersionSummary_type :: Lens.Lens' TypeVersionSummary (Prelude.Maybe RegistryType) +typeVersionSummary_type = Lens.lens (\TypeVersionSummary' {type'} -> type') (\s@TypeVersionSummary' {} a -> s {type' = a} :: TypeVersionSummary) + +-- | The name of the extension. +typeVersionSummary_typeName :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.Text) +typeVersionSummary_typeName = Lens.lens (\TypeVersionSummary' {typeName} -> typeName) (\s@TypeVersionSummary' {} a -> s {typeName = a} :: TypeVersionSummary) + +-- | The ID of a specific version of the extension. The version ID is the +-- value at the end of the Amazon Resource Name (ARN) assigned to the +-- extension version when it\'s registered. +typeVersionSummary_versionId :: Lens.Lens' TypeVersionSummary (Prelude.Maybe Prelude.Text) +typeVersionSummary_versionId = Lens.lens (\TypeVersionSummary' {versionId} -> versionId) (\s@TypeVersionSummary' {} a -> s {versionId = a} :: TypeVersionSummary) + +instance Data.FromXML TypeVersionSummary where + parseXML x = + TypeVersionSummary' + Prelude.<$> (x Data..@? "Arn") + Prelude.<*> (x Data..@? "Description") + Prelude.<*> (x Data..@? "IsDefaultVersion") + Prelude.<*> (x Data..@? "PublicVersionNumber") + Prelude.<*> (x Data..@? "TimeCreated") + Prelude.<*> (x Data..@? "Type") + Prelude.<*> (x Data..@? "TypeName") + Prelude.<*> (x Data..@? "VersionId") + +instance Prelude.Hashable TypeVersionSummary where + hashWithSalt _salt TypeVersionSummary' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` isDefaultVersion + `Prelude.hashWithSalt` publicVersionNumber + `Prelude.hashWithSalt` timeCreated + `Prelude.hashWithSalt` type' + `Prelude.hashWithSalt` typeName + `Prelude.hashWithSalt` versionId + +instance Prelude.NFData TypeVersionSummary where + rnf TypeVersionSummary' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf isDefaultVersion + `Prelude.seq` Prelude.rnf publicVersionNumber + `Prelude.seq` Prelude.rnf timeCreated + `Prelude.seq` Prelude.rnf type' + `Prelude.seq` Prelude.rnf typeName + `Prelude.seq` Prelude.rnf versionId diff --git a/gen/Amazonka/CloudFormation/Types/VersionBump.hs b/gen/Amazonka/CloudFormation/Types/VersionBump.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/VersionBump.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.VersionBump +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.VersionBump + ( VersionBump + ( .., + VersionBump_MAJOR, + VersionBump_MINOR + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype VersionBump = VersionBump' + { fromVersionBump :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern VersionBump_MAJOR :: VersionBump +pattern VersionBump_MAJOR = VersionBump' "MAJOR" + +pattern VersionBump_MINOR :: VersionBump +pattern VersionBump_MINOR = VersionBump' "MINOR" + +{-# COMPLETE + VersionBump_MAJOR, + VersionBump_MINOR, + VersionBump' + #-} diff --git a/gen/Amazonka/CloudFormation/Types/Visibility.hs b/gen/Amazonka/CloudFormation/Types/Visibility.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Types/Visibility.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Types.Visibility +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Types.Visibility + ( Visibility + ( .., + Visibility_PRIVATE, + Visibility_PUBLIC + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype Visibility = Visibility' + { fromVisibility :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern Visibility_PRIVATE :: Visibility +pattern Visibility_PRIVATE = Visibility' "PRIVATE" + +pattern Visibility_PUBLIC :: Visibility +pattern Visibility_PUBLIC = Visibility' "PUBLIC" + +{-# COMPLETE + Visibility_PRIVATE, + Visibility_PUBLIC, + Visibility' + #-} diff --git a/gen/Amazonka/CloudFormation/UpdateStack.hs b/gen/Amazonka/CloudFormation/UpdateStack.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/UpdateStack.hs @@ -0,0 +1,930 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.UpdateStack +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates a stack as specified in the template. After the call completes +-- successfully, the stack update starts. You can check the status of the +-- stack through the DescribeStacks action. +-- +-- To get a copy of the template for an existing stack, you can use the +-- GetTemplate action. +-- +-- For more information about creating an update template, updating a +-- stack, and monitoring the progress of the update, see +-- . +module Amazonka.CloudFormation.UpdateStack + ( -- * Creating a Request + UpdateStack (..), + newUpdateStack, + + -- * Request Lenses + updateStack_capabilities, + updateStack_clientRequestToken, + updateStack_disableRollback, + updateStack_notificationARNs, + updateStack_parameters, + updateStack_resourceTypes, + updateStack_roleARN, + updateStack_rollbackConfiguration, + updateStack_stackPolicyBody, + updateStack_stackPolicyDuringUpdateBody, + updateStack_stackPolicyDuringUpdateURL, + updateStack_stackPolicyURL, + updateStack_tags, + updateStack_templateBody, + updateStack_templateURL, + updateStack_usePreviousTemplate, + updateStack_stackName, + + -- * Destructuring the Response + UpdateStackResponse (..), + newUpdateStackResponse, + + -- * Response Lenses + updateStackResponse_stackId, + updateStackResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for an UpdateStack action. +-- +-- /See:/ 'newUpdateStack' smart constructor. +data UpdateStack = UpdateStack' + { -- | In some cases, you must explicitly acknowledge that your stack template + -- contains certain capabilities in order for CloudFormation to update the + -- stack. + -- + -- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ + -- + -- Some stack templates might include resources that can affect + -- permissions in your Amazon Web Services account; for example, by + -- creating new Identity and Access Management (IAM) users. For those + -- stacks, you must explicitly acknowledge this by specifying one of + -- these capabilities. + -- + -- The following IAM resources require you to specify either the + -- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. + -- + -- - If you have IAM resources, you can specify either capability. + -- + -- - If you have IAM resources with custom names, you /must/ specify + -- @CAPABILITY_NAMED_IAM@. + -- + -- - If you don\'t specify either of these capabilities, + -- CloudFormation returns an @InsufficientCapabilities@ error. + -- + -- If your stack template contains these resources, we suggest that you + -- review all permissions associated with them and edit their + -- permissions if necessary. + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- For more information, see + -- . + -- + -- - @CAPABILITY_AUTO_EXPAND@ + -- + -- Some template contain macros. Macros perform custom processing on + -- templates; this can include simple actions like find-and-replace + -- operations, all the way to extensive transformations of entire + -- templates. Because of this, users typically create a change set from + -- the processed template, so that they can review the changes + -- resulting from the macros before actually updating the stack. If + -- your stack template contains one or more macros, and you choose to + -- update a stack directly from the processed template, without first + -- reviewing the resulting changes in a change set, you must + -- acknowledge this capability. This includes the + -- + -- and + -- + -- transforms, which are macros hosted by CloudFormation. + -- + -- If you want to update a stack from a stack template that contains + -- macros /and/ nested stacks, you must update the stack directly from + -- the template using this capability. + -- + -- You should only update stacks directly from a stack template that + -- contains macros if you know what processing the macro performs. + -- + -- Each macro relies on an underlying Lambda service function for + -- processing stack templates. Be aware that the Lambda function owner + -- can update the function operation without CloudFormation being + -- notified. + -- + -- For more information, see + -- . + capabilities :: Prelude.Maybe [Capability], + -- | A unique identifier for this @UpdateStack@ request. Specify this token + -- if you plan to retry requests so that CloudFormation knows that you\'re + -- not attempting to update a stack with the same name. You might retry + -- @UpdateStack@ requests to ensure that CloudFormation successfully + -- received them. + -- + -- All events triggered by a given stack operation are assigned the same + -- client request token, which you can use to track operations. For + -- example, if you execute a @CreateStack@ operation with the token + -- @token1@, then all the @StackEvents@ generated by that operation will + -- have @ClientRequestToken@ set as @token1@. + -- + -- In the console, stack operations display the client request token on the + -- Events tab. Stack operations that are initiated from the console use the + -- token format /Console-StackOperation-ID/, which helps you easily + -- identify the stack operation . For example, if you create a stack using + -- the console, each stack event would be assigned the same token in the + -- following format: + -- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. + clientRequestToken :: Prelude.Maybe Prelude.Text, + -- | Preserve the state of previously provisioned resources when an operation + -- fails. + -- + -- Default: @False@ + disableRollback :: Prelude.Maybe Prelude.Bool, + -- | Amazon Simple Notification Service topic Amazon Resource Names (ARNs) + -- that CloudFormation associates with the stack. Specify an empty list to + -- remove all notification topics. + notificationARNs :: Prelude.Maybe [Prelude.Text], + -- | A list of @Parameter@ structures that specify input parameters for the + -- stack. For more information, see the + -- + -- data type. + parameters :: Prelude.Maybe [Parameter], + -- | The template resource types that you have permissions to work with for + -- this update stack action, such as @AWS::EC2::Instance@, @AWS::EC2::*@, + -- or @Custom::MyCustomInstance@. + -- + -- If the list of resource types doesn\'t include a resource that you\'re + -- updating, the stack update fails. By default, CloudFormation grants + -- permissions to all resource types. Identity and Access Management (IAM) + -- uses this parameter for CloudFormation-specific condition keys in IAM + -- policies. For more information, see + -- . + resourceTypes :: Prelude.Maybe [Prelude.Text], + -- | The Amazon Resource Name (ARN) of an Identity and Access Management + -- (IAM) role that CloudFormation assumes to update the stack. + -- CloudFormation uses the role\'s credentials to make calls on your + -- behalf. CloudFormation always uses this role for all future operations + -- on the stack. Provided that users have permission to operate on the + -- stack, CloudFormation uses this role even if the users don\'t have + -- permission to pass it. Ensure that the role grants least privilege. + -- + -- If you don\'t specify a value, CloudFormation uses the role that was + -- previously associated with the stack. If no role is available, + -- CloudFormation uses a temporary session that is generated from your user + -- credentials. + roleARN :: Prelude.Maybe Prelude.Text, + -- | The rollback triggers for CloudFormation to monitor during stack + -- creation and updating operations, and for the specified monitoring + -- period afterwards. + rollbackConfiguration :: Prelude.Maybe RollbackConfiguration, + -- | Structure containing a new stack policy body. You can specify either the + -- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. + -- + -- You might update the stack policy, for example, in order to protect a + -- new resource that you created during a stack update. If you don\'t + -- specify a stack policy, the current policy that is associated with the + -- stack is unchanged. + stackPolicyBody :: Prelude.Maybe Prelude.Text, + -- | Structure containing the temporary overriding stack policy body. You can + -- specify either the @StackPolicyDuringUpdateBody@ or the + -- @StackPolicyDuringUpdateURL@ parameter, but not both. + -- + -- If you want to update protected resources, specify a temporary + -- overriding stack policy during this update. If you don\'t specify a + -- stack policy, the current policy that is associated with the stack will + -- be used. + stackPolicyDuringUpdateBody :: Prelude.Maybe Prelude.Text, + -- | Location of a file containing the temporary overriding stack policy. The + -- URL must point to a policy (max size: 16KB) located in an S3 bucket in + -- the same Region as the stack. You can specify either the + -- @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ + -- parameter, but not both. + -- + -- If you want to update protected resources, specify a temporary + -- overriding stack policy during this update. If you don\'t specify a + -- stack policy, the current policy that is associated with the stack will + -- be used. + stackPolicyDuringUpdateURL :: Prelude.Maybe Prelude.Text, + -- | Location of a file containing the updated stack policy. The URL must + -- point to a policy (max size: 16KB) located in an S3 bucket in the same + -- Region as the stack. You can specify either the @StackPolicyBody@ or the + -- @StackPolicyURL@ parameter, but not both. + -- + -- You might update the stack policy, for example, in order to protect a + -- new resource that you created during a stack update. If you don\'t + -- specify a stack policy, the current policy that is associated with the + -- stack is unchanged. + stackPolicyURL :: Prelude.Maybe Prelude.Text, + -- | Key-value pairs to associate with this stack. CloudFormation also + -- propagates these tags to supported resources in the stack. You can + -- specify a maximum number of 50 tags. + -- + -- If you don\'t specify this parameter, CloudFormation doesn\'t modify the + -- stack\'s tags. If you specify an empty value, CloudFormation removes all + -- associated tags. + tags :: Prelude.Maybe [Tag], + -- | Structure containing the template body with a minimum length of 1 byte + -- and a maximum length of 51,200 bytes. (For more information, go to + -- + -- in the CloudFormation User Guide.) + -- + -- Conditional: You must specify only one of the following parameters: + -- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to + -- @true@. + templateBody :: Prelude.Maybe Prelude.Text, + -- | Location of file containing the template body. The URL must point to a + -- template that\'s located in an Amazon S3 bucket or a Systems Manager + -- document. For more information, go to + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify only one of the following parameters: + -- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to + -- @true@. + templateURL :: Prelude.Maybe Prelude.Text, + -- | Reuse the existing template that is associated with the stack that you + -- are updating. + -- + -- Conditional: You must specify only one of the following parameters: + -- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to + -- @true@. + usePreviousTemplate :: Prelude.Maybe Prelude.Bool, + -- | The name or unique stack ID of the stack to update. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateStack' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'updateStack_capabilities' - In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to update the +-- stack. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks, you must explicitly acknowledge this by specifying one of +-- these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we suggest that you +-- review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some template contain macros. Macros perform custom processing on +-- templates; this can include simple actions like find-and-replace +-- operations, all the way to extensive transformations of entire +-- templates. Because of this, users typically create a change set from +-- the processed template, so that they can review the changes +-- resulting from the macros before actually updating the stack. If +-- your stack template contains one or more macros, and you choose to +-- update a stack directly from the processed template, without first +-- reviewing the resulting changes in a change set, you must +-- acknowledge this capability. This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation. +-- +-- If you want to update a stack from a stack template that contains +-- macros /and/ nested stacks, you must update the stack directly from +-- the template using this capability. +-- +-- You should only update stacks directly from a stack template that +-- contains macros if you know what processing the macro performs. +-- +-- Each macro relies on an underlying Lambda service function for +-- processing stack templates. Be aware that the Lambda function owner +-- can update the function operation without CloudFormation being +-- notified. +-- +-- For more information, see +-- . +-- +-- 'clientRequestToken', 'updateStack_clientRequestToken' - A unique identifier for this @UpdateStack@ request. Specify this token +-- if you plan to retry requests so that CloudFormation knows that you\'re +-- not attempting to update a stack with the same name. You might retry +-- @UpdateStack@ requests to ensure that CloudFormation successfully +-- received them. +-- +-- All events triggered by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +-- +-- 'disableRollback', 'updateStack_disableRollback' - Preserve the state of previously provisioned resources when an operation +-- fails. +-- +-- Default: @False@ +-- +-- 'notificationARNs', 'updateStack_notificationARNs' - Amazon Simple Notification Service topic Amazon Resource Names (ARNs) +-- that CloudFormation associates with the stack. Specify an empty list to +-- remove all notification topics. +-- +-- 'parameters', 'updateStack_parameters' - A list of @Parameter@ structures that specify input parameters for the +-- stack. For more information, see the +-- +-- data type. +-- +-- 'resourceTypes', 'updateStack_resourceTypes' - The template resource types that you have permissions to work with for +-- this update stack action, such as @AWS::EC2::Instance@, @AWS::EC2::*@, +-- or @Custom::MyCustomInstance@. +-- +-- If the list of resource types doesn\'t include a resource that you\'re +-- updating, the stack update fails. By default, CloudFormation grants +-- permissions to all resource types. Identity and Access Management (IAM) +-- uses this parameter for CloudFormation-specific condition keys in IAM +-- policies. For more information, see +-- . +-- +-- 'roleARN', 'updateStack_roleARN' - The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to update the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation always uses this role for all future operations +-- on the stack. Provided that users have permission to operate on the +-- stack, CloudFormation uses this role even if the users don\'t have +-- permission to pass it. Ensure that the role grants least privilege. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that is generated from your user +-- credentials. +-- +-- 'rollbackConfiguration', 'updateStack_rollbackConfiguration' - The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +-- +-- 'stackPolicyBody', 'updateStack_stackPolicyBody' - Structure containing a new stack policy body. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +-- +-- You might update the stack policy, for example, in order to protect a +-- new resource that you created during a stack update. If you don\'t +-- specify a stack policy, the current policy that is associated with the +-- stack is unchanged. +-- +-- 'stackPolicyDuringUpdateBody', 'updateStack_stackPolicyDuringUpdateBody' - Structure containing the temporary overriding stack policy body. You can +-- specify either the @StackPolicyDuringUpdateBody@ or the +-- @StackPolicyDuringUpdateURL@ parameter, but not both. +-- +-- If you want to update protected resources, specify a temporary +-- overriding stack policy during this update. If you don\'t specify a +-- stack policy, the current policy that is associated with the stack will +-- be used. +-- +-- 'stackPolicyDuringUpdateURL', 'updateStack_stackPolicyDuringUpdateURL' - Location of a file containing the temporary overriding stack policy. The +-- URL must point to a policy (max size: 16KB) located in an S3 bucket in +-- the same Region as the stack. You can specify either the +-- @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ +-- parameter, but not both. +-- +-- If you want to update protected resources, specify a temporary +-- overriding stack policy during this update. If you don\'t specify a +-- stack policy, the current policy that is associated with the stack will +-- be used. +-- +-- 'stackPolicyURL', 'updateStack_stackPolicyURL' - Location of a file containing the updated stack policy. The URL must +-- point to a policy (max size: 16KB) located in an S3 bucket in the same +-- Region as the stack. You can specify either the @StackPolicyBody@ or the +-- @StackPolicyURL@ parameter, but not both. +-- +-- You might update the stack policy, for example, in order to protect a +-- new resource that you created during a stack update. If you don\'t +-- specify a stack policy, the current policy that is associated with the +-- stack is unchanged. +-- +-- 'tags', 'updateStack_tags' - Key-value pairs to associate with this stack. CloudFormation also +-- propagates these tags to supported resources in the stack. You can +-- specify a maximum number of 50 tags. +-- +-- If you don\'t specify this parameter, CloudFormation doesn\'t modify the +-- stack\'s tags. If you specify an empty value, CloudFormation removes all +-- associated tags. +-- +-- 'templateBody', 'updateStack_templateBody' - Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to +-- @true@. +-- +-- 'templateURL', 'updateStack_templateURL' - Location of file containing the template body. The URL must point to a +-- template that\'s located in an Amazon S3 bucket or a Systems Manager +-- document. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to +-- @true@. +-- +-- 'usePreviousTemplate', 'updateStack_usePreviousTemplate' - Reuse the existing template that is associated with the stack that you +-- are updating. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to +-- @true@. +-- +-- 'stackName', 'updateStack_stackName' - The name or unique stack ID of the stack to update. +newUpdateStack :: + -- | 'stackName' + Prelude.Text -> + UpdateStack +newUpdateStack pStackName_ = + UpdateStack' + { capabilities = Prelude.Nothing, + clientRequestToken = Prelude.Nothing, + disableRollback = Prelude.Nothing, + notificationARNs = Prelude.Nothing, + parameters = Prelude.Nothing, + resourceTypes = Prelude.Nothing, + roleARN = Prelude.Nothing, + rollbackConfiguration = Prelude.Nothing, + stackPolicyBody = Prelude.Nothing, + stackPolicyDuringUpdateBody = Prelude.Nothing, + stackPolicyDuringUpdateURL = Prelude.Nothing, + stackPolicyURL = Prelude.Nothing, + tags = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing, + usePreviousTemplate = Prelude.Nothing, + stackName = pStackName_ + } + +-- | In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to update the +-- stack. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks, you must explicitly acknowledge this by specifying one of +-- these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we suggest that you +-- review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some template contain macros. Macros perform custom processing on +-- templates; this can include simple actions like find-and-replace +-- operations, all the way to extensive transformations of entire +-- templates. Because of this, users typically create a change set from +-- the processed template, so that they can review the changes +-- resulting from the macros before actually updating the stack. If +-- your stack template contains one or more macros, and you choose to +-- update a stack directly from the processed template, without first +-- reviewing the resulting changes in a change set, you must +-- acknowledge this capability. This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation. +-- +-- If you want to update a stack from a stack template that contains +-- macros /and/ nested stacks, you must update the stack directly from +-- the template using this capability. +-- +-- You should only update stacks directly from a stack template that +-- contains macros if you know what processing the macro performs. +-- +-- Each macro relies on an underlying Lambda service function for +-- processing stack templates. Be aware that the Lambda function owner +-- can update the function operation without CloudFormation being +-- notified. +-- +-- For more information, see +-- . +updateStack_capabilities :: Lens.Lens' UpdateStack (Prelude.Maybe [Capability]) +updateStack_capabilities = Lens.lens (\UpdateStack' {capabilities} -> capabilities) (\s@UpdateStack' {} a -> s {capabilities = a} :: UpdateStack) Prelude.. Lens.mapping Lens.coerced + +-- | A unique identifier for this @UpdateStack@ request. Specify this token +-- if you plan to retry requests so that CloudFormation knows that you\'re +-- not attempting to update a stack with the same name. You might retry +-- @UpdateStack@ requests to ensure that CloudFormation successfully +-- received them. +-- +-- All events triggered by a given stack operation are assigned the same +-- client request token, which you can use to track operations. For +-- example, if you execute a @CreateStack@ operation with the token +-- @token1@, then all the @StackEvents@ generated by that operation will +-- have @ClientRequestToken@ set as @token1@. +-- +-- In the console, stack operations display the client request token on the +-- Events tab. Stack operations that are initiated from the console use the +-- token format /Console-StackOperation-ID/, which helps you easily +-- identify the stack operation . For example, if you create a stack using +-- the console, each stack event would be assigned the same token in the +-- following format: +-- @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@. +updateStack_clientRequestToken :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_clientRequestToken = Lens.lens (\UpdateStack' {clientRequestToken} -> clientRequestToken) (\s@UpdateStack' {} a -> s {clientRequestToken = a} :: UpdateStack) + +-- | Preserve the state of previously provisioned resources when an operation +-- fails. +-- +-- Default: @False@ +updateStack_disableRollback :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Bool) +updateStack_disableRollback = Lens.lens (\UpdateStack' {disableRollback} -> disableRollback) (\s@UpdateStack' {} a -> s {disableRollback = a} :: UpdateStack) + +-- | Amazon Simple Notification Service topic Amazon Resource Names (ARNs) +-- that CloudFormation associates with the stack. Specify an empty list to +-- remove all notification topics. +updateStack_notificationARNs :: Lens.Lens' UpdateStack (Prelude.Maybe [Prelude.Text]) +updateStack_notificationARNs = Lens.lens (\UpdateStack' {notificationARNs} -> notificationARNs) (\s@UpdateStack' {} a -> s {notificationARNs = a} :: UpdateStack) Prelude.. Lens.mapping Lens.coerced + +-- | A list of @Parameter@ structures that specify input parameters for the +-- stack. For more information, see the +-- +-- data type. +updateStack_parameters :: Lens.Lens' UpdateStack (Prelude.Maybe [Parameter]) +updateStack_parameters = Lens.lens (\UpdateStack' {parameters} -> parameters) (\s@UpdateStack' {} a -> s {parameters = a} :: UpdateStack) Prelude.. Lens.mapping Lens.coerced + +-- | The template resource types that you have permissions to work with for +-- this update stack action, such as @AWS::EC2::Instance@, @AWS::EC2::*@, +-- or @Custom::MyCustomInstance@. +-- +-- If the list of resource types doesn\'t include a resource that you\'re +-- updating, the stack update fails. By default, CloudFormation grants +-- permissions to all resource types. Identity and Access Management (IAM) +-- uses this parameter for CloudFormation-specific condition keys in IAM +-- policies. For more information, see +-- . +updateStack_resourceTypes :: Lens.Lens' UpdateStack (Prelude.Maybe [Prelude.Text]) +updateStack_resourceTypes = Lens.lens (\UpdateStack' {resourceTypes} -> resourceTypes) (\s@UpdateStack' {} a -> s {resourceTypes = a} :: UpdateStack) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of an Identity and Access Management +-- (IAM) role that CloudFormation assumes to update the stack. +-- CloudFormation uses the role\'s credentials to make calls on your +-- behalf. CloudFormation always uses this role for all future operations +-- on the stack. Provided that users have permission to operate on the +-- stack, CloudFormation uses this role even if the users don\'t have +-- permission to pass it. Ensure that the role grants least privilege. +-- +-- If you don\'t specify a value, CloudFormation uses the role that was +-- previously associated with the stack. If no role is available, +-- CloudFormation uses a temporary session that is generated from your user +-- credentials. +updateStack_roleARN :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_roleARN = Lens.lens (\UpdateStack' {roleARN} -> roleARN) (\s@UpdateStack' {} a -> s {roleARN = a} :: UpdateStack) + +-- | The rollback triggers for CloudFormation to monitor during stack +-- creation and updating operations, and for the specified monitoring +-- period afterwards. +updateStack_rollbackConfiguration :: Lens.Lens' UpdateStack (Prelude.Maybe RollbackConfiguration) +updateStack_rollbackConfiguration = Lens.lens (\UpdateStack' {rollbackConfiguration} -> rollbackConfiguration) (\s@UpdateStack' {} a -> s {rollbackConfiguration = a} :: UpdateStack) + +-- | Structure containing a new stack policy body. You can specify either the +-- @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. +-- +-- You might update the stack policy, for example, in order to protect a +-- new resource that you created during a stack update. If you don\'t +-- specify a stack policy, the current policy that is associated with the +-- stack is unchanged. +updateStack_stackPolicyBody :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_stackPolicyBody = Lens.lens (\UpdateStack' {stackPolicyBody} -> stackPolicyBody) (\s@UpdateStack' {} a -> s {stackPolicyBody = a} :: UpdateStack) + +-- | Structure containing the temporary overriding stack policy body. You can +-- specify either the @StackPolicyDuringUpdateBody@ or the +-- @StackPolicyDuringUpdateURL@ parameter, but not both. +-- +-- If you want to update protected resources, specify a temporary +-- overriding stack policy during this update. If you don\'t specify a +-- stack policy, the current policy that is associated with the stack will +-- be used. +updateStack_stackPolicyDuringUpdateBody :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_stackPolicyDuringUpdateBody = Lens.lens (\UpdateStack' {stackPolicyDuringUpdateBody} -> stackPolicyDuringUpdateBody) (\s@UpdateStack' {} a -> s {stackPolicyDuringUpdateBody = a} :: UpdateStack) + +-- | Location of a file containing the temporary overriding stack policy. The +-- URL must point to a policy (max size: 16KB) located in an S3 bucket in +-- the same Region as the stack. You can specify either the +-- @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ +-- parameter, but not both. +-- +-- If you want to update protected resources, specify a temporary +-- overriding stack policy during this update. If you don\'t specify a +-- stack policy, the current policy that is associated with the stack will +-- be used. +updateStack_stackPolicyDuringUpdateURL :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_stackPolicyDuringUpdateURL = Lens.lens (\UpdateStack' {stackPolicyDuringUpdateURL} -> stackPolicyDuringUpdateURL) (\s@UpdateStack' {} a -> s {stackPolicyDuringUpdateURL = a} :: UpdateStack) + +-- | Location of a file containing the updated stack policy. The URL must +-- point to a policy (max size: 16KB) located in an S3 bucket in the same +-- Region as the stack. You can specify either the @StackPolicyBody@ or the +-- @StackPolicyURL@ parameter, but not both. +-- +-- You might update the stack policy, for example, in order to protect a +-- new resource that you created during a stack update. If you don\'t +-- specify a stack policy, the current policy that is associated with the +-- stack is unchanged. +updateStack_stackPolicyURL :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_stackPolicyURL = Lens.lens (\UpdateStack' {stackPolicyURL} -> stackPolicyURL) (\s@UpdateStack' {} a -> s {stackPolicyURL = a} :: UpdateStack) + +-- | Key-value pairs to associate with this stack. CloudFormation also +-- propagates these tags to supported resources in the stack. You can +-- specify a maximum number of 50 tags. +-- +-- If you don\'t specify this parameter, CloudFormation doesn\'t modify the +-- stack\'s tags. If you specify an empty value, CloudFormation removes all +-- associated tags. +updateStack_tags :: Lens.Lens' UpdateStack (Prelude.Maybe [Tag]) +updateStack_tags = Lens.lens (\UpdateStack' {tags} -> tags) (\s@UpdateStack' {} a -> s {tags = a} :: UpdateStack) Prelude.. Lens.mapping Lens.coerced + +-- | Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. (For more information, go to +-- +-- in the CloudFormation User Guide.) +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to +-- @true@. +updateStack_templateBody :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_templateBody = Lens.lens (\UpdateStack' {templateBody} -> templateBody) (\s@UpdateStack' {} a -> s {templateBody = a} :: UpdateStack) + +-- | Location of file containing the template body. The URL must point to a +-- template that\'s located in an Amazon S3 bucket or a Systems Manager +-- document. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to +-- @true@. +updateStack_templateURL :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Text) +updateStack_templateURL = Lens.lens (\UpdateStack' {templateURL} -> templateURL) (\s@UpdateStack' {} a -> s {templateURL = a} :: UpdateStack) + +-- | Reuse the existing template that is associated with the stack that you +-- are updating. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@, @TemplateURL@, or set the @UsePreviousTemplate@ to +-- @true@. +updateStack_usePreviousTemplate :: Lens.Lens' UpdateStack (Prelude.Maybe Prelude.Bool) +updateStack_usePreviousTemplate = Lens.lens (\UpdateStack' {usePreviousTemplate} -> usePreviousTemplate) (\s@UpdateStack' {} a -> s {usePreviousTemplate = a} :: UpdateStack) + +-- | The name or unique stack ID of the stack to update. +updateStack_stackName :: Lens.Lens' UpdateStack Prelude.Text +updateStack_stackName = Lens.lens (\UpdateStack' {stackName} -> stackName) (\s@UpdateStack' {} a -> s {stackName = a} :: UpdateStack) + +instance Core.AWSRequest UpdateStack where + type AWSResponse UpdateStack = UpdateStackResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "UpdateStackResult" + ( \s h x -> + UpdateStackResponse' + Prelude.<$> (x Data..@? "StackId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable UpdateStack where + hashWithSalt _salt UpdateStack' {..} = + _salt + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` clientRequestToken + `Prelude.hashWithSalt` disableRollback + `Prelude.hashWithSalt` notificationARNs + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` resourceTypes + `Prelude.hashWithSalt` roleARN + `Prelude.hashWithSalt` rollbackConfiguration + `Prelude.hashWithSalt` stackPolicyBody + `Prelude.hashWithSalt` stackPolicyDuringUpdateBody + `Prelude.hashWithSalt` stackPolicyDuringUpdateURL + `Prelude.hashWithSalt` stackPolicyURL + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + `Prelude.hashWithSalt` usePreviousTemplate + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData UpdateStack where + rnf UpdateStack' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf clientRequestToken + `Prelude.seq` Prelude.rnf disableRollback + `Prelude.seq` Prelude.rnf notificationARNs + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf resourceTypes + `Prelude.seq` Prelude.rnf roleARN + `Prelude.seq` Prelude.rnf rollbackConfiguration + `Prelude.seq` Prelude.rnf stackPolicyBody + `Prelude.seq` Prelude.rnf stackPolicyDuringUpdateBody + `Prelude.seq` Prelude.rnf stackPolicyDuringUpdateURL + `Prelude.seq` Prelude.rnf stackPolicyURL + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + `Prelude.seq` Prelude.rnf usePreviousTemplate + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders UpdateStack where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath UpdateStack where + toPath = Prelude.const "/" + +instance Data.ToQuery UpdateStack where + toQuery UpdateStack' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("UpdateStack" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Capabilities" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> capabilities), + "ClientRequestToken" Data.=: clientRequestToken, + "DisableRollback" Data.=: disableRollback, + "NotificationARNs" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> notificationARNs + ), + "Parameters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> parameters), + "ResourceTypes" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> resourceTypes + ), + "RoleARN" Data.=: roleARN, + "RollbackConfiguration" + Data.=: rollbackConfiguration, + "StackPolicyBody" Data.=: stackPolicyBody, + "StackPolicyDuringUpdateBody" + Data.=: stackPolicyDuringUpdateBody, + "StackPolicyDuringUpdateURL" + Data.=: stackPolicyDuringUpdateURL, + "StackPolicyURL" Data.=: stackPolicyURL, + "Tags" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> tags), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL, + "UsePreviousTemplate" Data.=: usePreviousTemplate, + "StackName" Data.=: stackName + ] + +-- | The output for an UpdateStack action. +-- +-- /See:/ 'newUpdateStackResponse' smart constructor. +data UpdateStackResponse = UpdateStackResponse' + { -- | Unique identifier of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateStackResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackId', 'updateStackResponse_stackId' - Unique identifier of the stack. +-- +-- 'httpStatus', 'updateStackResponse_httpStatus' - The response's http status code. +newUpdateStackResponse :: + -- | 'httpStatus' + Prelude.Int -> + UpdateStackResponse +newUpdateStackResponse pHttpStatus_ = + UpdateStackResponse' + { stackId = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Unique identifier of the stack. +updateStackResponse_stackId :: Lens.Lens' UpdateStackResponse (Prelude.Maybe Prelude.Text) +updateStackResponse_stackId = Lens.lens (\UpdateStackResponse' {stackId} -> stackId) (\s@UpdateStackResponse' {} a -> s {stackId = a} :: UpdateStackResponse) + +-- | The response's http status code. +updateStackResponse_httpStatus :: Lens.Lens' UpdateStackResponse Prelude.Int +updateStackResponse_httpStatus = Lens.lens (\UpdateStackResponse' {httpStatus} -> httpStatus) (\s@UpdateStackResponse' {} a -> s {httpStatus = a} :: UpdateStackResponse) + +instance Prelude.NFData UpdateStackResponse where + rnf UpdateStackResponse' {..} = + Prelude.rnf stackId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/UpdateStackInstances.hs b/gen/Amazonka/CloudFormation/UpdateStackInstances.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/UpdateStackInstances.hs @@ -0,0 +1,499 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.UpdateStackInstances +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the parameter values for stack instances for the specified +-- accounts, within the specified Amazon Web Services Regions. A stack +-- instance refers to a stack in a specific account and Region. +-- +-- You can only update stack instances in Amazon Web Services Regions and +-- accounts where they already exist; to create additional stack instances, +-- use +-- . +-- +-- During stack set updates, any parameters overridden for a stack instance +-- aren\'t updated, but retain their overridden value. +-- +-- You can only update the parameter /values/ that are specified in the +-- stack set; to add or delete a parameter itself, use +-- +-- to update the stack set template. If you add a parameter to a template, +-- before you can override the parameter value specified in the stack set +-- you must first use +-- +-- to update all stack instances with the updated template and parameter +-- value specified in the stack set. Once a stack instance has been updated +-- with the new parameter, you can then override the parameter value using +-- @UpdateStackInstances@. +module Amazonka.CloudFormation.UpdateStackInstances + ( -- * Creating a Request + UpdateStackInstances (..), + newUpdateStackInstances, + + -- * Request Lenses + updateStackInstances_accounts, + updateStackInstances_callAs, + updateStackInstances_deploymentTargets, + updateStackInstances_operationId, + updateStackInstances_operationPreferences, + updateStackInstances_parameterOverrides, + updateStackInstances_stackSetName, + updateStackInstances_regions, + + -- * Destructuring the Response + UpdateStackInstancesResponse (..), + newUpdateStackInstancesResponse, + + -- * Response Lenses + updateStackInstancesResponse_operationId, + updateStackInstancesResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newUpdateStackInstances' smart constructor. +data UpdateStackInstances = UpdateStackInstances' + { -- | [Self-managed permissions] The names of one or more Amazon Web Services + -- accounts for which you want to update parameter values for stack + -- instances. The overridden parameter values will be applied to all stack + -- instances in the specified accounts and Amazon Web Services Regions. + -- + -- You can specify @Accounts@ or @DeploymentTargets@, but not both. + accounts :: Prelude.Maybe [Prelude.Text], + -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | [Service-managed permissions] The Organizations accounts for which you + -- want to update parameter values for stack instances. If your update + -- targets OUs, the overridden parameter values only apply to the accounts + -- that are currently in the target OUs and their child OUs. Accounts added + -- to the target OUs and their child OUs in the future won\'t use the + -- overridden values. + -- + -- You can specify @Accounts@ or @DeploymentTargets@, but not both. + deploymentTargets :: Prelude.Maybe DeploymentTargets, + -- | The unique identifier for this stack set operation. + -- + -- The operation ID also functions as an idempotency token, to ensure that + -- CloudFormation performs the stack set operation only once, even if you + -- retry the request multiple times. You might retry stack set operation + -- requests to ensure that CloudFormation successfully received them. + -- + -- If you don\'t specify an operation ID, the SDK generates one + -- automatically. + operationId :: Prelude.Maybe Prelude.Text, + -- | Preferences for how CloudFormation performs this stack set operation. + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | A list of input parameters whose values you want to update for the + -- specified stack instances. + -- + -- Any overridden parameter values will be applied to all stack instances + -- in the specified accounts and Amazon Web Services Regions. When + -- specifying parameters and their values, be aware of how CloudFormation + -- sets parameter values during stack instance update operations: + -- + -- - To override the current value for a parameter, include the parameter + -- and specify its value. + -- + -- - To leave an overridden parameter set to its present value, include + -- the parameter and specify @UsePreviousValue@ as @true@. (You can\'t + -- specify both a value and set @UsePreviousValue@ to @true@.) + -- + -- - To set an overridden parameter back to the value specified in the + -- stack set, specify a parameter list but don\'t include the parameter + -- in the list. + -- + -- - To leave all parameters set to their present values, don\'t specify + -- this property at all. + -- + -- During stack set updates, any parameter values overridden for a stack + -- instance aren\'t updated, but retain their overridden value. + -- + -- You can only override the parameter /values/ that are specified in the + -- stack set; to add or delete a parameter itself, use @UpdateStackSet@ to + -- update the stack set template. If you add a parameter to a template, + -- before you can override the parameter value specified in the stack set + -- you must first use + -- + -- to update all stack instances with the updated template and parameter + -- value specified in the stack set. Once a stack instance has been updated + -- with the new parameter, you can then override the parameter value using + -- @UpdateStackInstances@. + parameterOverrides :: Prelude.Maybe [Parameter], + -- | The name or unique ID of the stack set associated with the stack + -- instances. + stackSetName :: Prelude.Text, + -- | The names of one or more Amazon Web Services Regions in which you want + -- to update parameter values for stack instances. The overridden parameter + -- values will be applied to all stack instances in the specified accounts + -- and Amazon Web Services Regions. + regions :: [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateStackInstances' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'accounts', 'updateStackInstances_accounts' - [Self-managed permissions] The names of one or more Amazon Web Services +-- accounts for which you want to update parameter values for stack +-- instances. The overridden parameter values will be applied to all stack +-- instances in the specified accounts and Amazon Web Services Regions. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +-- +-- 'callAs', 'updateStackInstances_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'deploymentTargets', 'updateStackInstances_deploymentTargets' - [Service-managed permissions] The Organizations accounts for which you +-- want to update parameter values for stack instances. If your update +-- targets OUs, the overridden parameter values only apply to the accounts +-- that are currently in the target OUs and their child OUs. Accounts added +-- to the target OUs and their child OUs in the future won\'t use the +-- overridden values. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +-- +-- 'operationId', 'updateStackInstances_operationId' - The unique identifier for this stack set operation. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You might retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +-- +-- 'operationPreferences', 'updateStackInstances_operationPreferences' - Preferences for how CloudFormation performs this stack set operation. +-- +-- 'parameterOverrides', 'updateStackInstances_parameterOverrides' - A list of input parameters whose values you want to update for the +-- specified stack instances. +-- +-- Any overridden parameter values will be applied to all stack instances +-- in the specified accounts and Amazon Web Services Regions. When +-- specifying parameters and their values, be aware of how CloudFormation +-- sets parameter values during stack instance update operations: +-- +-- - To override the current value for a parameter, include the parameter +-- and specify its value. +-- +-- - To leave an overridden parameter set to its present value, include +-- the parameter and specify @UsePreviousValue@ as @true@. (You can\'t +-- specify both a value and set @UsePreviousValue@ to @true@.) +-- +-- - To set an overridden parameter back to the value specified in the +-- stack set, specify a parameter list but don\'t include the parameter +-- in the list. +-- +-- - To leave all parameters set to their present values, don\'t specify +-- this property at all. +-- +-- During stack set updates, any parameter values overridden for a stack +-- instance aren\'t updated, but retain their overridden value. +-- +-- You can only override the parameter /values/ that are specified in the +-- stack set; to add or delete a parameter itself, use @UpdateStackSet@ to +-- update the stack set template. If you add a parameter to a template, +-- before you can override the parameter value specified in the stack set +-- you must first use +-- +-- to update all stack instances with the updated template and parameter +-- value specified in the stack set. Once a stack instance has been updated +-- with the new parameter, you can then override the parameter value using +-- @UpdateStackInstances@. +-- +-- 'stackSetName', 'updateStackInstances_stackSetName' - The name or unique ID of the stack set associated with the stack +-- instances. +-- +-- 'regions', 'updateStackInstances_regions' - The names of one or more Amazon Web Services Regions in which you want +-- to update parameter values for stack instances. The overridden parameter +-- values will be applied to all stack instances in the specified accounts +-- and Amazon Web Services Regions. +newUpdateStackInstances :: + -- | 'stackSetName' + Prelude.Text -> + UpdateStackInstances +newUpdateStackInstances pStackSetName_ = + UpdateStackInstances' + { accounts = Prelude.Nothing, + callAs = Prelude.Nothing, + deploymentTargets = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + parameterOverrides = Prelude.Nothing, + stackSetName = pStackSetName_, + regions = Prelude.mempty + } + +-- | [Self-managed permissions] The names of one or more Amazon Web Services +-- accounts for which you want to update parameter values for stack +-- instances. The overridden parameter values will be applied to all stack +-- instances in the specified accounts and Amazon Web Services Regions. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +updateStackInstances_accounts :: Lens.Lens' UpdateStackInstances (Prelude.Maybe [Prelude.Text]) +updateStackInstances_accounts = Lens.lens (\UpdateStackInstances' {accounts} -> accounts) (\s@UpdateStackInstances' {} a -> s {accounts = a} :: UpdateStackInstances) Prelude.. Lens.mapping Lens.coerced + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +updateStackInstances_callAs :: Lens.Lens' UpdateStackInstances (Prelude.Maybe CallAs) +updateStackInstances_callAs = Lens.lens (\UpdateStackInstances' {callAs} -> callAs) (\s@UpdateStackInstances' {} a -> s {callAs = a} :: UpdateStackInstances) + +-- | [Service-managed permissions] The Organizations accounts for which you +-- want to update parameter values for stack instances. If your update +-- targets OUs, the overridden parameter values only apply to the accounts +-- that are currently in the target OUs and their child OUs. Accounts added +-- to the target OUs and their child OUs in the future won\'t use the +-- overridden values. +-- +-- You can specify @Accounts@ or @DeploymentTargets@, but not both. +updateStackInstances_deploymentTargets :: Lens.Lens' UpdateStackInstances (Prelude.Maybe DeploymentTargets) +updateStackInstances_deploymentTargets = Lens.lens (\UpdateStackInstances' {deploymentTargets} -> deploymentTargets) (\s@UpdateStackInstances' {} a -> s {deploymentTargets = a} :: UpdateStackInstances) + +-- | The unique identifier for this stack set operation. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You might retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- If you don\'t specify an operation ID, the SDK generates one +-- automatically. +updateStackInstances_operationId :: Lens.Lens' UpdateStackInstances (Prelude.Maybe Prelude.Text) +updateStackInstances_operationId = Lens.lens (\UpdateStackInstances' {operationId} -> operationId) (\s@UpdateStackInstances' {} a -> s {operationId = a} :: UpdateStackInstances) + +-- | Preferences for how CloudFormation performs this stack set operation. +updateStackInstances_operationPreferences :: Lens.Lens' UpdateStackInstances (Prelude.Maybe StackSetOperationPreferences) +updateStackInstances_operationPreferences = Lens.lens (\UpdateStackInstances' {operationPreferences} -> operationPreferences) (\s@UpdateStackInstances' {} a -> s {operationPreferences = a} :: UpdateStackInstances) + +-- | A list of input parameters whose values you want to update for the +-- specified stack instances. +-- +-- Any overridden parameter values will be applied to all stack instances +-- in the specified accounts and Amazon Web Services Regions. When +-- specifying parameters and their values, be aware of how CloudFormation +-- sets parameter values during stack instance update operations: +-- +-- - To override the current value for a parameter, include the parameter +-- and specify its value. +-- +-- - To leave an overridden parameter set to its present value, include +-- the parameter and specify @UsePreviousValue@ as @true@. (You can\'t +-- specify both a value and set @UsePreviousValue@ to @true@.) +-- +-- - To set an overridden parameter back to the value specified in the +-- stack set, specify a parameter list but don\'t include the parameter +-- in the list. +-- +-- - To leave all parameters set to their present values, don\'t specify +-- this property at all. +-- +-- During stack set updates, any parameter values overridden for a stack +-- instance aren\'t updated, but retain their overridden value. +-- +-- You can only override the parameter /values/ that are specified in the +-- stack set; to add or delete a parameter itself, use @UpdateStackSet@ to +-- update the stack set template. If you add a parameter to a template, +-- before you can override the parameter value specified in the stack set +-- you must first use +-- +-- to update all stack instances with the updated template and parameter +-- value specified in the stack set. Once a stack instance has been updated +-- with the new parameter, you can then override the parameter value using +-- @UpdateStackInstances@. +updateStackInstances_parameterOverrides :: Lens.Lens' UpdateStackInstances (Prelude.Maybe [Parameter]) +updateStackInstances_parameterOverrides = Lens.lens (\UpdateStackInstances' {parameterOverrides} -> parameterOverrides) (\s@UpdateStackInstances' {} a -> s {parameterOverrides = a} :: UpdateStackInstances) Prelude.. Lens.mapping Lens.coerced + +-- | The name or unique ID of the stack set associated with the stack +-- instances. +updateStackInstances_stackSetName :: Lens.Lens' UpdateStackInstances Prelude.Text +updateStackInstances_stackSetName = Lens.lens (\UpdateStackInstances' {stackSetName} -> stackSetName) (\s@UpdateStackInstances' {} a -> s {stackSetName = a} :: UpdateStackInstances) + +-- | The names of one or more Amazon Web Services Regions in which you want +-- to update parameter values for stack instances. The overridden parameter +-- values will be applied to all stack instances in the specified accounts +-- and Amazon Web Services Regions. +updateStackInstances_regions :: Lens.Lens' UpdateStackInstances [Prelude.Text] +updateStackInstances_regions = Lens.lens (\UpdateStackInstances' {regions} -> regions) (\s@UpdateStackInstances' {} a -> s {regions = a} :: UpdateStackInstances) Prelude.. Lens.coerced + +instance Core.AWSRequest UpdateStackInstances where + type + AWSResponse UpdateStackInstances = + UpdateStackInstancesResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "UpdateStackInstancesResult" + ( \s h x -> + UpdateStackInstancesResponse' + Prelude.<$> (x Data..@? "OperationId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable UpdateStackInstances where + hashWithSalt _salt UpdateStackInstances' {..} = + _salt + `Prelude.hashWithSalt` accounts + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` deploymentTargets + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` parameterOverrides + `Prelude.hashWithSalt` stackSetName + `Prelude.hashWithSalt` regions + +instance Prelude.NFData UpdateStackInstances where + rnf UpdateStackInstances' {..} = + Prelude.rnf accounts + `Prelude.seq` Prelude.rnf callAs + `Prelude.seq` Prelude.rnf deploymentTargets + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf parameterOverrides + `Prelude.seq` Prelude.rnf stackSetName + `Prelude.seq` Prelude.rnf regions + +instance Data.ToHeaders UpdateStackInstances where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath UpdateStackInstances where + toPath = Prelude.const "/" + +instance Data.ToQuery UpdateStackInstances where + toQuery UpdateStackInstances' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("UpdateStackInstances" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Accounts" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> accounts), + "CallAs" Data.=: callAs, + "DeploymentTargets" Data.=: deploymentTargets, + "OperationId" Data.=: operationId, + "OperationPreferences" Data.=: operationPreferences, + "ParameterOverrides" + Data.=: Data.toQuery + ( Data.toQueryList "member" + Prelude.<$> parameterOverrides + ), + "StackSetName" Data.=: stackSetName, + "Regions" Data.=: Data.toQueryList "member" regions + ] + +-- | /See:/ 'newUpdateStackInstancesResponse' smart constructor. +data UpdateStackInstancesResponse = UpdateStackInstancesResponse' + { -- | The unique identifier for this stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateStackInstancesResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'operationId', 'updateStackInstancesResponse_operationId' - The unique identifier for this stack set operation. +-- +-- 'httpStatus', 'updateStackInstancesResponse_httpStatus' - The response's http status code. +newUpdateStackInstancesResponse :: + -- | 'httpStatus' + Prelude.Int -> + UpdateStackInstancesResponse +newUpdateStackInstancesResponse pHttpStatus_ = + UpdateStackInstancesResponse' + { operationId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The unique identifier for this stack set operation. +updateStackInstancesResponse_operationId :: Lens.Lens' UpdateStackInstancesResponse (Prelude.Maybe Prelude.Text) +updateStackInstancesResponse_operationId = Lens.lens (\UpdateStackInstancesResponse' {operationId} -> operationId) (\s@UpdateStackInstancesResponse' {} a -> s {operationId = a} :: UpdateStackInstancesResponse) + +-- | The response's http status code. +updateStackInstancesResponse_httpStatus :: Lens.Lens' UpdateStackInstancesResponse Prelude.Int +updateStackInstancesResponse_httpStatus = Lens.lens (\UpdateStackInstancesResponse' {httpStatus} -> httpStatus) (\s@UpdateStackInstancesResponse' {} a -> s {httpStatus = a} :: UpdateStackInstancesResponse) + +instance Prelude.NFData UpdateStackInstancesResponse where + rnf UpdateStackInstancesResponse' {..} = + Prelude.rnf operationId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/UpdateStackSet.hs b/gen/Amazonka/CloudFormation/UpdateStackSet.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/UpdateStackSet.hs @@ -0,0 +1,1067 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.UpdateStackSet +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the stack set, and associated stack instances in the specified +-- accounts and Amazon Web Services Regions. +-- +-- Even if the stack set operation created by updating the stack set fails +-- (completely or partially, below or above a specified failure tolerance), +-- the stack set is updated with your changes. Subsequent +-- CreateStackInstances calls on the specified stack set use the updated +-- stack set. +module Amazonka.CloudFormation.UpdateStackSet + ( -- * Creating a Request + UpdateStackSet (..), + newUpdateStackSet, + + -- * Request Lenses + updateStackSet_accounts, + updateStackSet_administrationRoleARN, + updateStackSet_autoDeployment, + updateStackSet_callAs, + updateStackSet_capabilities, + updateStackSet_deploymentTargets, + updateStackSet_description, + updateStackSet_executionRoleName, + updateStackSet_managedExecution, + updateStackSet_operationId, + updateStackSet_operationPreferences, + updateStackSet_parameters, + updateStackSet_permissionModel, + updateStackSet_regions, + updateStackSet_tags, + updateStackSet_templateBody, + updateStackSet_templateURL, + updateStackSet_usePreviousTemplate, + updateStackSet_stackSetName, + + -- * Destructuring the Response + UpdateStackSetResponse (..), + newUpdateStackSetResponse, + + -- * Response Lenses + updateStackSetResponse_operationId, + updateStackSetResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newUpdateStackSet' smart constructor. +data UpdateStackSet = UpdateStackSet' + { -- | [Self-managed permissions] The accounts in which to update associated + -- stack instances. If you specify accounts, you must also specify the + -- Amazon Web Services Regions in which to update stack set instances. + -- + -- To update /all/ the stack instances associated with this stack set, + -- don\'t specify the @Accounts@ or @Regions@ properties. + -- + -- If the stack set update includes changes to the template (that is, if + -- the @TemplateBody@ or @TemplateURL@ properties are specified), or the + -- @Parameters@ property, CloudFormation marks all stack instances with a + -- status of @OUTDATED@ prior to updating the stack instances in the + -- specified accounts and Amazon Web Services Regions. If the stack set + -- update does not include changes to the template or parameters, + -- CloudFormation updates the stack instances in the specified accounts and + -- Amazon Web Services Regions, while leaving all other stack instances + -- with their existing stack instance status. + accounts :: Prelude.Maybe [Prelude.Text], + -- | The Amazon Resource Name (ARN) of the IAM role to use to update this + -- stack set. + -- + -- Specify an IAM role only if you are using customized administrator roles + -- to control which users or groups can manage specific stack sets within + -- the same administrator account. For more information, see + -- + -- in the /CloudFormation User Guide/. + -- + -- If you specified a customized administrator role when you created the + -- stack set, you must specify a customized administrator role, even if it + -- is the same customized administrator role used with this stack set + -- previously. + administrationRoleARN :: Prelude.Maybe Prelude.Text, + -- | [Service-managed permissions] Describes whether StackSets automatically + -- deploys to Organizations accounts that are added to a target + -- organization or organizational unit (OU). + -- + -- If you specify @AutoDeployment@, don\'t specify @DeploymentTargets@ or + -- @Regions@. + autoDeployment :: Prelude.Maybe AutoDeployment, + -- | [Service-managed permissions] Specifies whether you are acting as an + -- account administrator in the organization\'s management account or as a + -- delegated administrator in a member account. + -- + -- By default, @SELF@ is specified. Use @SELF@ for stack sets with + -- self-managed permissions. + -- + -- - If you are signed in to the management account, specify @SELF@. + -- + -- - If you are signed in to a delegated administrator account, specify + -- @DELEGATED_ADMIN@. + -- + -- Your Amazon Web Services account must be registered as a delegated + -- administrator in the management account. For more information, see + -- + -- in the /CloudFormation User Guide/. + callAs :: Prelude.Maybe CallAs, + -- | In some cases, you must explicitly acknowledge that your stack template + -- contains certain capabilities in order for CloudFormation to update the + -- stack set and its associated stack instances. + -- + -- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ + -- + -- Some stack templates might include resources that can affect + -- permissions in your Amazon Web Services account; for example, by + -- creating new Identity and Access Management (IAM) users. For those + -- stacks sets, you must explicitly acknowledge this by specifying one + -- of these capabilities. + -- + -- The following IAM resources require you to specify either the + -- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. + -- + -- - If you have IAM resources, you can specify either capability. + -- + -- - If you have IAM resources with custom names, you /must/ specify + -- @CAPABILITY_NAMED_IAM@. + -- + -- - If you don\'t specify either of these capabilities, + -- CloudFormation returns an @InsufficientCapabilities@ error. + -- + -- If your stack template contains these resources, we recommend that + -- you review all permissions associated with them and edit their + -- permissions if necessary. + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- - + -- + -- For more information, see + -- . + -- + -- - @CAPABILITY_AUTO_EXPAND@ + -- + -- Some templates reference macros. If your stack set template + -- references one or more macros, you must update the stack set + -- directly from the processed template, without first reviewing the + -- resulting changes in a change set. To update the stack set directly, + -- you must acknowledge this capability. For more information, see + -- . + -- + -- Stack sets with service-managed permissions do not currently support + -- the use of macros in templates. (This includes the + -- + -- and + -- + -- transforms, which are macros hosted by CloudFormation.) Even if you + -- specify this capability for a stack set with service-managed + -- permissions, if you reference a macro in your template the stack set + -- operation will fail. + capabilities :: Prelude.Maybe [Capability], + -- | [Service-managed permissions] The Organizations accounts in which to + -- update associated stack instances. + -- + -- To update all the stack instances associated with this stack set, do not + -- specify @DeploymentTargets@ or @Regions@. + -- + -- If the stack set update includes changes to the template (that is, if + -- @TemplateBody@ or @TemplateURL@ is specified), or the @Parameters@, + -- CloudFormation marks all stack instances with a status of @OUTDATED@ + -- prior to updating the stack instances in the specified accounts and + -- Amazon Web Services Regions. If the stack set update doesn\'t include + -- changes to the template or parameters, CloudFormation updates the stack + -- instances in the specified accounts and Regions, while leaving all other + -- stack instances with their existing stack instance status. + deploymentTargets :: Prelude.Maybe DeploymentTargets, + -- | A brief description of updates that you are making. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the IAM execution role to use to update the stack set. If + -- you do not specify an execution role, CloudFormation uses the + -- @AWSCloudFormationStackSetExecutionRole@ role for the stack set + -- operation. + -- + -- Specify an IAM role only if you are using customized execution roles to + -- control which stack resources users and groups can include in their + -- stack sets. + -- + -- If you specify a customized execution role, CloudFormation uses that + -- role to update the stack. If you do not specify a customized execution + -- role, CloudFormation performs the update using the role previously + -- associated with the stack set, so long as you have permissions to + -- perform operations on the stack set. + executionRoleName :: Prelude.Maybe Prelude.Text, + -- | Describes whether StackSets performs non-conflicting operations + -- concurrently and queues conflicting operations. + managedExecution :: Prelude.Maybe ManagedExecution, + -- | The unique ID for this stack set operation. + -- + -- The operation ID also functions as an idempotency token, to ensure that + -- CloudFormation performs the stack set operation only once, even if you + -- retry the request multiple times. You might retry stack set operation + -- requests to ensure that CloudFormation successfully received them. + -- + -- If you don\'t specify an operation ID, CloudFormation generates one + -- automatically. + -- + -- Repeating this stack set operation with a new operation ID retries all + -- stack instances whose status is @OUTDATED@. + operationId :: Prelude.Maybe Prelude.Text, + -- | Preferences for how CloudFormation performs this stack set operation. + operationPreferences :: Prelude.Maybe StackSetOperationPreferences, + -- | A list of input parameters for the stack set template. + parameters :: Prelude.Maybe [Parameter], + -- | Describes how the IAM roles required for stack set operations are + -- created. You cannot modify @PermissionModel@ if there are stack + -- instances associated with your stack set. + -- + -- - With @self-managed@ permissions, you must create the administrator + -- and execution roles required to deploy to target accounts. For more + -- information, see + -- . + -- + -- - With @service-managed@ permissions, StackSets automatically creates + -- the IAM roles required to deploy to accounts managed by + -- Organizations. For more information, see + -- . + permissionModel :: Prelude.Maybe PermissionModels, + -- | The Amazon Web Services Regions in which to update associated stack + -- instances. If you specify Regions, you must also specify accounts in + -- which to update stack set instances. + -- + -- To update /all/ the stack instances associated with this stack set, do + -- not specify the @Accounts@ or @Regions@ properties. + -- + -- If the stack set update includes changes to the template (that is, if + -- the @TemplateBody@ or @TemplateURL@ properties are specified), or the + -- @Parameters@ property, CloudFormation marks all stack instances with a + -- status of @OUTDATED@ prior to updating the stack instances in the + -- specified accounts and Regions. If the stack set update does not include + -- changes to the template or parameters, CloudFormation updates the stack + -- instances in the specified accounts and Regions, while leaving all other + -- stack instances with their existing stack instance status. + regions :: Prelude.Maybe [Prelude.Text], + -- | The key-value pairs to associate with this stack set and the stacks + -- created from it. CloudFormation also propagates these tags to supported + -- resources that are created in the stacks. You can specify a maximum + -- number of 50 tags. + -- + -- If you specify tags for this parameter, those tags replace any list of + -- tags that are currently associated with this stack set. This means: + -- + -- - If you don\'t specify this parameter, CloudFormation doesn\'t modify + -- the stack\'s tags. + -- + -- - If you specify /any/ tags using this parameter, you must specify + -- /all/ the tags that you want associated with this stack set, even + -- tags you\'ve specified before (for example, when creating the stack + -- set or during a previous update of the stack set.). Any tags that + -- you don\'t include in the updated list of tags are removed from the + -- stack set, and therefore from the stacks and resources as well. + -- + -- - If you specify an empty value, CloudFormation removes all currently + -- associated tags. + -- + -- If you specify new tags as part of an @UpdateStackSet@ action, + -- CloudFormation checks to see if you have the required IAM permission to + -- tag resources. If you omit tags that are currently associated with the + -- stack set from the list of tags you specify, CloudFormation assumes that + -- you want to remove those tags from the stack set, and checks to see if + -- you have permission to untag resources. If you don\'t have the necessary + -- permission(s), the entire @UpdateStackSet@ action fails with an + -- @access denied@ error, and the stack set is not updated. + tags :: Prelude.Maybe [Tag], + -- | The structure that contains the template body, with a minimum length of + -- 1 byte and a maximum length of 51,200 bytes. For more information, see + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify only one of the following parameters: + -- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. + templateBody :: Prelude.Maybe Prelude.Text, + -- | The location of the file that contains the template body. The URL must + -- point to a template (maximum size: 460,800 bytes) that is located in an + -- Amazon S3 bucket or a Systems Manager document. For more information, + -- see + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must specify only one of the following parameters: + -- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. + templateURL :: Prelude.Maybe Prelude.Text, + -- | Use the existing template that\'s associated with the stack set that + -- you\'re updating. + -- + -- Conditional: You must specify only one of the following parameters: + -- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. + usePreviousTemplate :: Prelude.Maybe Prelude.Bool, + -- | The name or unique ID of the stack set that you want to update. + stackSetName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateStackSet' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'accounts', 'updateStackSet_accounts' - [Self-managed permissions] The accounts in which to update associated +-- stack instances. If you specify accounts, you must also specify the +-- Amazon Web Services Regions in which to update stack set instances. +-- +-- To update /all/ the stack instances associated with this stack set, +-- don\'t specify the @Accounts@ or @Regions@ properties. +-- +-- If the stack set update includes changes to the template (that is, if +-- the @TemplateBody@ or @TemplateURL@ properties are specified), or the +-- @Parameters@ property, CloudFormation marks all stack instances with a +-- status of @OUTDATED@ prior to updating the stack instances in the +-- specified accounts and Amazon Web Services Regions. If the stack set +-- update does not include changes to the template or parameters, +-- CloudFormation updates the stack instances in the specified accounts and +-- Amazon Web Services Regions, while leaving all other stack instances +-- with their existing stack instance status. +-- +-- 'administrationRoleARN', 'updateStackSet_administrationRoleARN' - The Amazon Resource Name (ARN) of the IAM role to use to update this +-- stack set. +-- +-- Specify an IAM role only if you are using customized administrator roles +-- to control which users or groups can manage specific stack sets within +-- the same administrator account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- If you specified a customized administrator role when you created the +-- stack set, you must specify a customized administrator role, even if it +-- is the same customized administrator role used with this stack set +-- previously. +-- +-- 'autoDeployment', 'updateStackSet_autoDeployment' - [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organization or organizational unit (OU). +-- +-- If you specify @AutoDeployment@, don\'t specify @DeploymentTargets@ or +-- @Regions@. +-- +-- 'callAs', 'updateStackSet_callAs' - [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- 'capabilities', 'updateStackSet_capabilities' - In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to update the +-- stack set and its associated stack instances. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks sets, you must explicitly acknowledge this by specifying one +-- of these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we recommend that +-- you review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some templates reference macros. If your stack set template +-- references one or more macros, you must update the stack set +-- directly from the processed template, without first reviewing the +-- resulting changes in a change set. To update the stack set directly, +-- you must acknowledge this capability. For more information, see +-- . +-- +-- Stack sets with service-managed permissions do not currently support +-- the use of macros in templates. (This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation.) Even if you +-- specify this capability for a stack set with service-managed +-- permissions, if you reference a macro in your template the stack set +-- operation will fail. +-- +-- 'deploymentTargets', 'updateStackSet_deploymentTargets' - [Service-managed permissions] The Organizations accounts in which to +-- update associated stack instances. +-- +-- To update all the stack instances associated with this stack set, do not +-- specify @DeploymentTargets@ or @Regions@. +-- +-- If the stack set update includes changes to the template (that is, if +-- @TemplateBody@ or @TemplateURL@ is specified), or the @Parameters@, +-- CloudFormation marks all stack instances with a status of @OUTDATED@ +-- prior to updating the stack instances in the specified accounts and +-- Amazon Web Services Regions. If the stack set update doesn\'t include +-- changes to the template or parameters, CloudFormation updates the stack +-- instances in the specified accounts and Regions, while leaving all other +-- stack instances with their existing stack instance status. +-- +-- 'description', 'updateStackSet_description' - A brief description of updates that you are making. +-- +-- 'executionRoleName', 'updateStackSet_executionRoleName' - The name of the IAM execution role to use to update the stack set. If +-- you do not specify an execution role, CloudFormation uses the +-- @AWSCloudFormationStackSetExecutionRole@ role for the stack set +-- operation. +-- +-- Specify an IAM role only if you are using customized execution roles to +-- control which stack resources users and groups can include in their +-- stack sets. +-- +-- If you specify a customized execution role, CloudFormation uses that +-- role to update the stack. If you do not specify a customized execution +-- role, CloudFormation performs the update using the role previously +-- associated with the stack set, so long as you have permissions to +-- perform operations on the stack set. +-- +-- 'managedExecution', 'updateStackSet_managedExecution' - Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +-- +-- 'operationId', 'updateStackSet_operationId' - The unique ID for this stack set operation. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You might retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- If you don\'t specify an operation ID, CloudFormation generates one +-- automatically. +-- +-- Repeating this stack set operation with a new operation ID retries all +-- stack instances whose status is @OUTDATED@. +-- +-- 'operationPreferences', 'updateStackSet_operationPreferences' - Preferences for how CloudFormation performs this stack set operation. +-- +-- 'parameters', 'updateStackSet_parameters' - A list of input parameters for the stack set template. +-- +-- 'permissionModel', 'updateStackSet_permissionModel' - Describes how the IAM roles required for stack set operations are +-- created. You cannot modify @PermissionModel@ if there are stack +-- instances associated with your stack set. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +-- +-- 'regions', 'updateStackSet_regions' - The Amazon Web Services Regions in which to update associated stack +-- instances. If you specify Regions, you must also specify accounts in +-- which to update stack set instances. +-- +-- To update /all/ the stack instances associated with this stack set, do +-- not specify the @Accounts@ or @Regions@ properties. +-- +-- If the stack set update includes changes to the template (that is, if +-- the @TemplateBody@ or @TemplateURL@ properties are specified), or the +-- @Parameters@ property, CloudFormation marks all stack instances with a +-- status of @OUTDATED@ prior to updating the stack instances in the +-- specified accounts and Regions. If the stack set update does not include +-- changes to the template or parameters, CloudFormation updates the stack +-- instances in the specified accounts and Regions, while leaving all other +-- stack instances with their existing stack instance status. +-- +-- 'tags', 'updateStackSet_tags' - The key-value pairs to associate with this stack set and the stacks +-- created from it. CloudFormation also propagates these tags to supported +-- resources that are created in the stacks. You can specify a maximum +-- number of 50 tags. +-- +-- If you specify tags for this parameter, those tags replace any list of +-- tags that are currently associated with this stack set. This means: +-- +-- - If you don\'t specify this parameter, CloudFormation doesn\'t modify +-- the stack\'s tags. +-- +-- - If you specify /any/ tags using this parameter, you must specify +-- /all/ the tags that you want associated with this stack set, even +-- tags you\'ve specified before (for example, when creating the stack +-- set or during a previous update of the stack set.). Any tags that +-- you don\'t include in the updated list of tags are removed from the +-- stack set, and therefore from the stacks and resources as well. +-- +-- - If you specify an empty value, CloudFormation removes all currently +-- associated tags. +-- +-- If you specify new tags as part of an @UpdateStackSet@ action, +-- CloudFormation checks to see if you have the required IAM permission to +-- tag resources. If you omit tags that are currently associated with the +-- stack set from the list of tags you specify, CloudFormation assumes that +-- you want to remove those tags from the stack set, and checks to see if +-- you have permission to untag resources. If you don\'t have the necessary +-- permission(s), the entire @UpdateStackSet@ action fails with an +-- @access denied@ error, and the stack set is not updated. +-- +-- 'templateBody', 'updateStackSet_templateBody' - The structure that contains the template body, with a minimum length of +-- 1 byte and a maximum length of 51,200 bytes. For more information, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. +-- +-- 'templateURL', 'updateStackSet_templateURL' - The location of the file that contains the template body. The URL must +-- point to a template (maximum size: 460,800 bytes) that is located in an +-- Amazon S3 bucket or a Systems Manager document. For more information, +-- see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. +-- +-- 'usePreviousTemplate', 'updateStackSet_usePreviousTemplate' - Use the existing template that\'s associated with the stack set that +-- you\'re updating. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. +-- +-- 'stackSetName', 'updateStackSet_stackSetName' - The name or unique ID of the stack set that you want to update. +newUpdateStackSet :: + -- | 'stackSetName' + Prelude.Text -> + UpdateStackSet +newUpdateStackSet pStackSetName_ = + UpdateStackSet' + { accounts = Prelude.Nothing, + administrationRoleARN = Prelude.Nothing, + autoDeployment = Prelude.Nothing, + callAs = Prelude.Nothing, + capabilities = Prelude.Nothing, + deploymentTargets = Prelude.Nothing, + description = Prelude.Nothing, + executionRoleName = Prelude.Nothing, + managedExecution = Prelude.Nothing, + operationId = Prelude.Nothing, + operationPreferences = Prelude.Nothing, + parameters = Prelude.Nothing, + permissionModel = Prelude.Nothing, + regions = Prelude.Nothing, + tags = Prelude.Nothing, + templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing, + usePreviousTemplate = Prelude.Nothing, + stackSetName = pStackSetName_ + } + +-- | [Self-managed permissions] The accounts in which to update associated +-- stack instances. If you specify accounts, you must also specify the +-- Amazon Web Services Regions in which to update stack set instances. +-- +-- To update /all/ the stack instances associated with this stack set, +-- don\'t specify the @Accounts@ or @Regions@ properties. +-- +-- If the stack set update includes changes to the template (that is, if +-- the @TemplateBody@ or @TemplateURL@ properties are specified), or the +-- @Parameters@ property, CloudFormation marks all stack instances with a +-- status of @OUTDATED@ prior to updating the stack instances in the +-- specified accounts and Amazon Web Services Regions. If the stack set +-- update does not include changes to the template or parameters, +-- CloudFormation updates the stack instances in the specified accounts and +-- Amazon Web Services Regions, while leaving all other stack instances +-- with their existing stack instance status. +updateStackSet_accounts :: Lens.Lens' UpdateStackSet (Prelude.Maybe [Prelude.Text]) +updateStackSet_accounts = Lens.lens (\UpdateStackSet' {accounts} -> accounts) (\s@UpdateStackSet' {} a -> s {accounts = a} :: UpdateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The Amazon Resource Name (ARN) of the IAM role to use to update this +-- stack set. +-- +-- Specify an IAM role only if you are using customized administrator roles +-- to control which users or groups can manage specific stack sets within +-- the same administrator account. For more information, see +-- +-- in the /CloudFormation User Guide/. +-- +-- If you specified a customized administrator role when you created the +-- stack set, you must specify a customized administrator role, even if it +-- is the same customized administrator role used with this stack set +-- previously. +updateStackSet_administrationRoleARN :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Text) +updateStackSet_administrationRoleARN = Lens.lens (\UpdateStackSet' {administrationRoleARN} -> administrationRoleARN) (\s@UpdateStackSet' {} a -> s {administrationRoleARN = a} :: UpdateStackSet) + +-- | [Service-managed permissions] Describes whether StackSets automatically +-- deploys to Organizations accounts that are added to a target +-- organization or organizational unit (OU). +-- +-- If you specify @AutoDeployment@, don\'t specify @DeploymentTargets@ or +-- @Regions@. +updateStackSet_autoDeployment :: Lens.Lens' UpdateStackSet (Prelude.Maybe AutoDeployment) +updateStackSet_autoDeployment = Lens.lens (\UpdateStackSet' {autoDeployment} -> autoDeployment) (\s@UpdateStackSet' {} a -> s {autoDeployment = a} :: UpdateStackSet) + +-- | [Service-managed permissions] Specifies whether you are acting as an +-- account administrator in the organization\'s management account or as a +-- delegated administrator in a member account. +-- +-- By default, @SELF@ is specified. Use @SELF@ for stack sets with +-- self-managed permissions. +-- +-- - If you are signed in to the management account, specify @SELF@. +-- +-- - If you are signed in to a delegated administrator account, specify +-- @DELEGATED_ADMIN@. +-- +-- Your Amazon Web Services account must be registered as a delegated +-- administrator in the management account. For more information, see +-- +-- in the /CloudFormation User Guide/. +updateStackSet_callAs :: Lens.Lens' UpdateStackSet (Prelude.Maybe CallAs) +updateStackSet_callAs = Lens.lens (\UpdateStackSet' {callAs} -> callAs) (\s@UpdateStackSet' {} a -> s {callAs = a} :: UpdateStackSet) + +-- | In some cases, you must explicitly acknowledge that your stack template +-- contains certain capabilities in order for CloudFormation to update the +-- stack set and its associated stack instances. +-- +-- - @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ +-- +-- Some stack templates might include resources that can affect +-- permissions in your Amazon Web Services account; for example, by +-- creating new Identity and Access Management (IAM) users. For those +-- stacks sets, you must explicitly acknowledge this by specifying one +-- of these capabilities. +-- +-- The following IAM resources require you to specify either the +-- @CAPABILITY_IAM@ or @CAPABILITY_NAMED_IAM@ capability. +-- +-- - If you have IAM resources, you can specify either capability. +-- +-- - If you have IAM resources with custom names, you /must/ specify +-- @CAPABILITY_NAMED_IAM@. +-- +-- - If you don\'t specify either of these capabilities, +-- CloudFormation returns an @InsufficientCapabilities@ error. +-- +-- If your stack template contains these resources, we recommend that +-- you review all permissions associated with them and edit their +-- permissions if necessary. +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- - +-- +-- For more information, see +-- . +-- +-- - @CAPABILITY_AUTO_EXPAND@ +-- +-- Some templates reference macros. If your stack set template +-- references one or more macros, you must update the stack set +-- directly from the processed template, without first reviewing the +-- resulting changes in a change set. To update the stack set directly, +-- you must acknowledge this capability. For more information, see +-- . +-- +-- Stack sets with service-managed permissions do not currently support +-- the use of macros in templates. (This includes the +-- +-- and +-- +-- transforms, which are macros hosted by CloudFormation.) Even if you +-- specify this capability for a stack set with service-managed +-- permissions, if you reference a macro in your template the stack set +-- operation will fail. +updateStackSet_capabilities :: Lens.Lens' UpdateStackSet (Prelude.Maybe [Capability]) +updateStackSet_capabilities = Lens.lens (\UpdateStackSet' {capabilities} -> capabilities) (\s@UpdateStackSet' {} a -> s {capabilities = a} :: UpdateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | [Service-managed permissions] The Organizations accounts in which to +-- update associated stack instances. +-- +-- To update all the stack instances associated with this stack set, do not +-- specify @DeploymentTargets@ or @Regions@. +-- +-- If the stack set update includes changes to the template (that is, if +-- @TemplateBody@ or @TemplateURL@ is specified), or the @Parameters@, +-- CloudFormation marks all stack instances with a status of @OUTDATED@ +-- prior to updating the stack instances in the specified accounts and +-- Amazon Web Services Regions. If the stack set update doesn\'t include +-- changes to the template or parameters, CloudFormation updates the stack +-- instances in the specified accounts and Regions, while leaving all other +-- stack instances with their existing stack instance status. +updateStackSet_deploymentTargets :: Lens.Lens' UpdateStackSet (Prelude.Maybe DeploymentTargets) +updateStackSet_deploymentTargets = Lens.lens (\UpdateStackSet' {deploymentTargets} -> deploymentTargets) (\s@UpdateStackSet' {} a -> s {deploymentTargets = a} :: UpdateStackSet) + +-- | A brief description of updates that you are making. +updateStackSet_description :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Text) +updateStackSet_description = Lens.lens (\UpdateStackSet' {description} -> description) (\s@UpdateStackSet' {} a -> s {description = a} :: UpdateStackSet) + +-- | The name of the IAM execution role to use to update the stack set. If +-- you do not specify an execution role, CloudFormation uses the +-- @AWSCloudFormationStackSetExecutionRole@ role for the stack set +-- operation. +-- +-- Specify an IAM role only if you are using customized execution roles to +-- control which stack resources users and groups can include in their +-- stack sets. +-- +-- If you specify a customized execution role, CloudFormation uses that +-- role to update the stack. If you do not specify a customized execution +-- role, CloudFormation performs the update using the role previously +-- associated with the stack set, so long as you have permissions to +-- perform operations on the stack set. +updateStackSet_executionRoleName :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Text) +updateStackSet_executionRoleName = Lens.lens (\UpdateStackSet' {executionRoleName} -> executionRoleName) (\s@UpdateStackSet' {} a -> s {executionRoleName = a} :: UpdateStackSet) + +-- | Describes whether StackSets performs non-conflicting operations +-- concurrently and queues conflicting operations. +updateStackSet_managedExecution :: Lens.Lens' UpdateStackSet (Prelude.Maybe ManagedExecution) +updateStackSet_managedExecution = Lens.lens (\UpdateStackSet' {managedExecution} -> managedExecution) (\s@UpdateStackSet' {} a -> s {managedExecution = a} :: UpdateStackSet) + +-- | The unique ID for this stack set operation. +-- +-- The operation ID also functions as an idempotency token, to ensure that +-- CloudFormation performs the stack set operation only once, even if you +-- retry the request multiple times. You might retry stack set operation +-- requests to ensure that CloudFormation successfully received them. +-- +-- If you don\'t specify an operation ID, CloudFormation generates one +-- automatically. +-- +-- Repeating this stack set operation with a new operation ID retries all +-- stack instances whose status is @OUTDATED@. +updateStackSet_operationId :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Text) +updateStackSet_operationId = Lens.lens (\UpdateStackSet' {operationId} -> operationId) (\s@UpdateStackSet' {} a -> s {operationId = a} :: UpdateStackSet) + +-- | Preferences for how CloudFormation performs this stack set operation. +updateStackSet_operationPreferences :: Lens.Lens' UpdateStackSet (Prelude.Maybe StackSetOperationPreferences) +updateStackSet_operationPreferences = Lens.lens (\UpdateStackSet' {operationPreferences} -> operationPreferences) (\s@UpdateStackSet' {} a -> s {operationPreferences = a} :: UpdateStackSet) + +-- | A list of input parameters for the stack set template. +updateStackSet_parameters :: Lens.Lens' UpdateStackSet (Prelude.Maybe [Parameter]) +updateStackSet_parameters = Lens.lens (\UpdateStackSet' {parameters} -> parameters) (\s@UpdateStackSet' {} a -> s {parameters = a} :: UpdateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | Describes how the IAM roles required for stack set operations are +-- created. You cannot modify @PermissionModel@ if there are stack +-- instances associated with your stack set. +-- +-- - With @self-managed@ permissions, you must create the administrator +-- and execution roles required to deploy to target accounts. For more +-- information, see +-- . +-- +-- - With @service-managed@ permissions, StackSets automatically creates +-- the IAM roles required to deploy to accounts managed by +-- Organizations. For more information, see +-- . +updateStackSet_permissionModel :: Lens.Lens' UpdateStackSet (Prelude.Maybe PermissionModels) +updateStackSet_permissionModel = Lens.lens (\UpdateStackSet' {permissionModel} -> permissionModel) (\s@UpdateStackSet' {} a -> s {permissionModel = a} :: UpdateStackSet) + +-- | The Amazon Web Services Regions in which to update associated stack +-- instances. If you specify Regions, you must also specify accounts in +-- which to update stack set instances. +-- +-- To update /all/ the stack instances associated with this stack set, do +-- not specify the @Accounts@ or @Regions@ properties. +-- +-- If the stack set update includes changes to the template (that is, if +-- the @TemplateBody@ or @TemplateURL@ properties are specified), or the +-- @Parameters@ property, CloudFormation marks all stack instances with a +-- status of @OUTDATED@ prior to updating the stack instances in the +-- specified accounts and Regions. If the stack set update does not include +-- changes to the template or parameters, CloudFormation updates the stack +-- instances in the specified accounts and Regions, while leaving all other +-- stack instances with their existing stack instance status. +updateStackSet_regions :: Lens.Lens' UpdateStackSet (Prelude.Maybe [Prelude.Text]) +updateStackSet_regions = Lens.lens (\UpdateStackSet' {regions} -> regions) (\s@UpdateStackSet' {} a -> s {regions = a} :: UpdateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The key-value pairs to associate with this stack set and the stacks +-- created from it. CloudFormation also propagates these tags to supported +-- resources that are created in the stacks. You can specify a maximum +-- number of 50 tags. +-- +-- If you specify tags for this parameter, those tags replace any list of +-- tags that are currently associated with this stack set. This means: +-- +-- - If you don\'t specify this parameter, CloudFormation doesn\'t modify +-- the stack\'s tags. +-- +-- - If you specify /any/ tags using this parameter, you must specify +-- /all/ the tags that you want associated with this stack set, even +-- tags you\'ve specified before (for example, when creating the stack +-- set or during a previous update of the stack set.). Any tags that +-- you don\'t include in the updated list of tags are removed from the +-- stack set, and therefore from the stacks and resources as well. +-- +-- - If you specify an empty value, CloudFormation removes all currently +-- associated tags. +-- +-- If you specify new tags as part of an @UpdateStackSet@ action, +-- CloudFormation checks to see if you have the required IAM permission to +-- tag resources. If you omit tags that are currently associated with the +-- stack set from the list of tags you specify, CloudFormation assumes that +-- you want to remove those tags from the stack set, and checks to see if +-- you have permission to untag resources. If you don\'t have the necessary +-- permission(s), the entire @UpdateStackSet@ action fails with an +-- @access denied@ error, and the stack set is not updated. +updateStackSet_tags :: Lens.Lens' UpdateStackSet (Prelude.Maybe [Tag]) +updateStackSet_tags = Lens.lens (\UpdateStackSet' {tags} -> tags) (\s@UpdateStackSet' {} a -> s {tags = a} :: UpdateStackSet) Prelude.. Lens.mapping Lens.coerced + +-- | The structure that contains the template body, with a minimum length of +-- 1 byte and a maximum length of 51,200 bytes. For more information, see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. +updateStackSet_templateBody :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Text) +updateStackSet_templateBody = Lens.lens (\UpdateStackSet' {templateBody} -> templateBody) (\s@UpdateStackSet' {} a -> s {templateBody = a} :: UpdateStackSet) + +-- | The location of the file that contains the template body. The URL must +-- point to a template (maximum size: 460,800 bytes) that is located in an +-- Amazon S3 bucket or a Systems Manager document. For more information, +-- see +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. +updateStackSet_templateURL :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Text) +updateStackSet_templateURL = Lens.lens (\UpdateStackSet' {templateURL} -> templateURL) (\s@UpdateStackSet' {} a -> s {templateURL = a} :: UpdateStackSet) + +-- | Use the existing template that\'s associated with the stack set that +-- you\'re updating. +-- +-- Conditional: You must specify only one of the following parameters: +-- @TemplateBody@ or @TemplateURL@—or set @UsePreviousTemplate@ to true. +updateStackSet_usePreviousTemplate :: Lens.Lens' UpdateStackSet (Prelude.Maybe Prelude.Bool) +updateStackSet_usePreviousTemplate = Lens.lens (\UpdateStackSet' {usePreviousTemplate} -> usePreviousTemplate) (\s@UpdateStackSet' {} a -> s {usePreviousTemplate = a} :: UpdateStackSet) + +-- | The name or unique ID of the stack set that you want to update. +updateStackSet_stackSetName :: Lens.Lens' UpdateStackSet Prelude.Text +updateStackSet_stackSetName = Lens.lens (\UpdateStackSet' {stackSetName} -> stackSetName) (\s@UpdateStackSet' {} a -> s {stackSetName = a} :: UpdateStackSet) + +instance Core.AWSRequest UpdateStackSet where + type + AWSResponse UpdateStackSet = + UpdateStackSetResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "UpdateStackSetResult" + ( \s h x -> + UpdateStackSetResponse' + Prelude.<$> (x Data..@? "OperationId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable UpdateStackSet where + hashWithSalt _salt UpdateStackSet' {..} = + _salt + `Prelude.hashWithSalt` accounts + `Prelude.hashWithSalt` administrationRoleARN + `Prelude.hashWithSalt` autoDeployment + `Prelude.hashWithSalt` callAs + `Prelude.hashWithSalt` capabilities + `Prelude.hashWithSalt` deploymentTargets + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` executionRoleName + `Prelude.hashWithSalt` managedExecution + `Prelude.hashWithSalt` operationId + `Prelude.hashWithSalt` operationPreferences + `Prelude.hashWithSalt` parameters + `Prelude.hashWithSalt` permissionModel + `Prelude.hashWithSalt` regions + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + `Prelude.hashWithSalt` usePreviousTemplate + `Prelude.hashWithSalt` stackSetName + +instance Prelude.NFData UpdateStackSet where + rnf UpdateStackSet' {..} = + Prelude.rnf accounts + `Prelude.seq` Prelude.rnf administrationRoleARN + `Prelude.seq` Prelude.rnf autoDeployment + `Prelude.seq` Prelude.rnf callAs + `Prelude.seq` Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf deploymentTargets + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf executionRoleName + `Prelude.seq` Prelude.rnf managedExecution + `Prelude.seq` Prelude.rnf operationId + `Prelude.seq` Prelude.rnf operationPreferences + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf permissionModel + `Prelude.seq` Prelude.rnf regions + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + `Prelude.seq` Prelude.rnf usePreviousTemplate + `Prelude.seq` Prelude.rnf stackSetName + +instance Data.ToHeaders UpdateStackSet where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath UpdateStackSet where + toPath = Prelude.const "/" + +instance Data.ToQuery UpdateStackSet where + toQuery UpdateStackSet' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("UpdateStackSet" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "Accounts" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> accounts), + "AdministrationRoleARN" + Data.=: administrationRoleARN, + "AutoDeployment" Data.=: autoDeployment, + "CallAs" Data.=: callAs, + "Capabilities" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> capabilities), + "DeploymentTargets" Data.=: deploymentTargets, + "Description" Data.=: description, + "ExecutionRoleName" Data.=: executionRoleName, + "ManagedExecution" Data.=: managedExecution, + "OperationId" Data.=: operationId, + "OperationPreferences" Data.=: operationPreferences, + "Parameters" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> parameters), + "PermissionModel" Data.=: permissionModel, + "Regions" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> regions), + "Tags" + Data.=: Data.toQuery + (Data.toQueryList "member" Prelude.<$> tags), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL, + "UsePreviousTemplate" Data.=: usePreviousTemplate, + "StackSetName" Data.=: stackSetName + ] + +-- | /See:/ 'newUpdateStackSetResponse' smart constructor. +data UpdateStackSetResponse = UpdateStackSetResponse' + { -- | The unique ID for this stack set operation. + operationId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateStackSetResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'operationId', 'updateStackSetResponse_operationId' - The unique ID for this stack set operation. +-- +-- 'httpStatus', 'updateStackSetResponse_httpStatus' - The response's http status code. +newUpdateStackSetResponse :: + -- | 'httpStatus' + Prelude.Int -> + UpdateStackSetResponse +newUpdateStackSetResponse pHttpStatus_ = + UpdateStackSetResponse' + { operationId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The unique ID for this stack set operation. +updateStackSetResponse_operationId :: Lens.Lens' UpdateStackSetResponse (Prelude.Maybe Prelude.Text) +updateStackSetResponse_operationId = Lens.lens (\UpdateStackSetResponse' {operationId} -> operationId) (\s@UpdateStackSetResponse' {} a -> s {operationId = a} :: UpdateStackSetResponse) + +-- | The response's http status code. +updateStackSetResponse_httpStatus :: Lens.Lens' UpdateStackSetResponse Prelude.Int +updateStackSetResponse_httpStatus = Lens.lens (\UpdateStackSetResponse' {httpStatus} -> httpStatus) (\s@UpdateStackSetResponse' {} a -> s {httpStatus = a} :: UpdateStackSetResponse) + +instance Prelude.NFData UpdateStackSetResponse where + rnf UpdateStackSetResponse' {..} = + Prelude.rnf operationId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/UpdateTerminationProtection.hs b/gen/Amazonka/CloudFormation/UpdateTerminationProtection.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/UpdateTerminationProtection.hs @@ -0,0 +1,198 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.UpdateTerminationProtection +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates termination protection for the specified stack. If a user +-- attempts to delete a stack with termination protection enabled, the +-- operation fails and the stack remains unchanged. For more information, +-- see +-- +-- in the /CloudFormation User Guide/. +-- +-- For +-- , +-- termination protection is set on the root stack and can\'t be changed +-- directly on the nested stack. +module Amazonka.CloudFormation.UpdateTerminationProtection + ( -- * Creating a Request + UpdateTerminationProtection (..), + newUpdateTerminationProtection, + + -- * Request Lenses + updateTerminationProtection_enableTerminationProtection, + updateTerminationProtection_stackName, + + -- * Destructuring the Response + UpdateTerminationProtectionResponse (..), + newUpdateTerminationProtectionResponse, + + -- * Response Lenses + updateTerminationProtectionResponse_stackId, + updateTerminationProtectionResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newUpdateTerminationProtection' smart constructor. +data UpdateTerminationProtection = UpdateTerminationProtection' + { -- | Whether to enable termination protection on the specified stack. + enableTerminationProtection :: Prelude.Bool, + -- | The name or unique ID of the stack for which you want to set termination + -- protection. + stackName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateTerminationProtection' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'enableTerminationProtection', 'updateTerminationProtection_enableTerminationProtection' - Whether to enable termination protection on the specified stack. +-- +-- 'stackName', 'updateTerminationProtection_stackName' - The name or unique ID of the stack for which you want to set termination +-- protection. +newUpdateTerminationProtection :: + -- | 'enableTerminationProtection' + Prelude.Bool -> + -- | 'stackName' + Prelude.Text -> + UpdateTerminationProtection +newUpdateTerminationProtection + pEnableTerminationProtection_ + pStackName_ = + UpdateTerminationProtection' + { enableTerminationProtection = + pEnableTerminationProtection_, + stackName = pStackName_ + } + +-- | Whether to enable termination protection on the specified stack. +updateTerminationProtection_enableTerminationProtection :: Lens.Lens' UpdateTerminationProtection Prelude.Bool +updateTerminationProtection_enableTerminationProtection = Lens.lens (\UpdateTerminationProtection' {enableTerminationProtection} -> enableTerminationProtection) (\s@UpdateTerminationProtection' {} a -> s {enableTerminationProtection = a} :: UpdateTerminationProtection) + +-- | The name or unique ID of the stack for which you want to set termination +-- protection. +updateTerminationProtection_stackName :: Lens.Lens' UpdateTerminationProtection Prelude.Text +updateTerminationProtection_stackName = Lens.lens (\UpdateTerminationProtection' {stackName} -> stackName) (\s@UpdateTerminationProtection' {} a -> s {stackName = a} :: UpdateTerminationProtection) + +instance Core.AWSRequest UpdateTerminationProtection where + type + AWSResponse UpdateTerminationProtection = + UpdateTerminationProtectionResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "UpdateTerminationProtectionResult" + ( \s h x -> + UpdateTerminationProtectionResponse' + Prelude.<$> (x Data..@? "StackId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable UpdateTerminationProtection where + hashWithSalt _salt UpdateTerminationProtection' {..} = + _salt + `Prelude.hashWithSalt` enableTerminationProtection + `Prelude.hashWithSalt` stackName + +instance Prelude.NFData UpdateTerminationProtection where + rnf UpdateTerminationProtection' {..} = + Prelude.rnf enableTerminationProtection + `Prelude.seq` Prelude.rnf stackName + +instance Data.ToHeaders UpdateTerminationProtection where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath UpdateTerminationProtection where + toPath = Prelude.const "/" + +instance Data.ToQuery UpdateTerminationProtection where + toQuery UpdateTerminationProtection' {..} = + Prelude.mconcat + [ "Action" + Data.=: ( "UpdateTerminationProtection" :: + Prelude.ByteString + ), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "EnableTerminationProtection" + Data.=: enableTerminationProtection, + "StackName" Data.=: stackName + ] + +-- | /See:/ 'newUpdateTerminationProtectionResponse' smart constructor. +data UpdateTerminationProtectionResponse = UpdateTerminationProtectionResponse' + { -- | The unique ID of the stack. + stackId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateTerminationProtectionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'stackId', 'updateTerminationProtectionResponse_stackId' - The unique ID of the stack. +-- +-- 'httpStatus', 'updateTerminationProtectionResponse_httpStatus' - The response's http status code. +newUpdateTerminationProtectionResponse :: + -- | 'httpStatus' + Prelude.Int -> + UpdateTerminationProtectionResponse +newUpdateTerminationProtectionResponse pHttpStatus_ = + UpdateTerminationProtectionResponse' + { stackId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The unique ID of the stack. +updateTerminationProtectionResponse_stackId :: Lens.Lens' UpdateTerminationProtectionResponse (Prelude.Maybe Prelude.Text) +updateTerminationProtectionResponse_stackId = Lens.lens (\UpdateTerminationProtectionResponse' {stackId} -> stackId) (\s@UpdateTerminationProtectionResponse' {} a -> s {stackId = a} :: UpdateTerminationProtectionResponse) + +-- | The response's http status code. +updateTerminationProtectionResponse_httpStatus :: Lens.Lens' UpdateTerminationProtectionResponse Prelude.Int +updateTerminationProtectionResponse_httpStatus = Lens.lens (\UpdateTerminationProtectionResponse' {httpStatus} -> httpStatus) (\s@UpdateTerminationProtectionResponse' {} a -> s {httpStatus = a} :: UpdateTerminationProtectionResponse) + +instance + Prelude.NFData + UpdateTerminationProtectionResponse + where + rnf UpdateTerminationProtectionResponse' {..} = + Prelude.rnf stackId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/ValidateTemplate.hs b/gen/Amazonka/CloudFormation/ValidateTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/ValidateTemplate.hs @@ -0,0 +1,302 @@ +{-# 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 #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.ValidateTemplate +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Validates a specified template. CloudFormation first checks if the +-- template is valid JSON. If it isn\'t, CloudFormation checks if the +-- template is valid YAML. If both these checks fail, CloudFormation +-- returns a template validation error. +module Amazonka.CloudFormation.ValidateTemplate + ( -- * Creating a Request + ValidateTemplate (..), + newValidateTemplate, + + -- * Request Lenses + validateTemplate_templateBody, + validateTemplate_templateURL, + + -- * Destructuring the Response + ValidateTemplateResponse (..), + newValidateTemplateResponse, + + -- * Response Lenses + validateTemplateResponse_capabilities, + validateTemplateResponse_capabilitiesReason, + validateTemplateResponse_declaredTransforms, + validateTemplateResponse_description, + validateTemplateResponse_parameters, + validateTemplateResponse_httpStatus, + ) +where + +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | The input for ValidateTemplate action. +-- +-- /See:/ 'newValidateTemplate' smart constructor. +data ValidateTemplate = ValidateTemplate' + { -- | Structure containing the template body with a minimum length of 1 byte + -- and a maximum length of 51,200 bytes. For more information, go to + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are + -- passed, only @TemplateBody@ is used. + templateBody :: Prelude.Maybe Prelude.Text, + -- | Location of file containing the template body. The URL must point to a + -- template (max size: 460,800 bytes) that is located in an Amazon S3 + -- bucket or a Systems Manager document. For more information, go to + -- + -- in the CloudFormation User Guide. + -- + -- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are + -- passed, only @TemplateBody@ is used. + templateURL :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ValidateTemplate' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'templateBody', 'validateTemplate_templateBody' - Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are +-- passed, only @TemplateBody@ is used. +-- +-- 'templateURL', 'validateTemplate_templateURL' - Location of file containing the template body. The URL must point to a +-- template (max size: 460,800 bytes) that is located in an Amazon S3 +-- bucket or a Systems Manager document. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are +-- passed, only @TemplateBody@ is used. +newValidateTemplate :: + ValidateTemplate +newValidateTemplate = + ValidateTemplate' + { templateBody = Prelude.Nothing, + templateURL = Prelude.Nothing + } + +-- | Structure containing the template body with a minimum length of 1 byte +-- and a maximum length of 51,200 bytes. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are +-- passed, only @TemplateBody@ is used. +validateTemplate_templateBody :: Lens.Lens' ValidateTemplate (Prelude.Maybe Prelude.Text) +validateTemplate_templateBody = Lens.lens (\ValidateTemplate' {templateBody} -> templateBody) (\s@ValidateTemplate' {} a -> s {templateBody = a} :: ValidateTemplate) + +-- | Location of file containing the template body. The URL must point to a +-- template (max size: 460,800 bytes) that is located in an Amazon S3 +-- bucket or a Systems Manager document. For more information, go to +-- +-- in the CloudFormation User Guide. +-- +-- Conditional: You must pass @TemplateURL@ or @TemplateBody@. If both are +-- passed, only @TemplateBody@ is used. +validateTemplate_templateURL :: Lens.Lens' ValidateTemplate (Prelude.Maybe Prelude.Text) +validateTemplate_templateURL = Lens.lens (\ValidateTemplate' {templateURL} -> templateURL) (\s@ValidateTemplate' {} a -> s {templateURL = a} :: ValidateTemplate) + +instance Core.AWSRequest ValidateTemplate where + type + AWSResponse ValidateTemplate = + ValidateTemplateResponse + request overrides = + Request.postQuery (overrides defaultService) + response = + Response.receiveXMLWrapper + "ValidateTemplateResult" + ( \s h x -> + ValidateTemplateResponse' + Prelude.<$> ( x + Data..@? "Capabilities" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "CapabilitiesReason") + Prelude.<*> ( x + Data..@? "DeclaredTransforms" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (x Data..@? "Description") + Prelude.<*> ( x + Data..@? "Parameters" + Core..!@ Prelude.mempty + Prelude.>>= Core.may (Data.parseXMLList "member") + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ValidateTemplate where + hashWithSalt _salt ValidateTemplate' {..} = + _salt + `Prelude.hashWithSalt` templateBody + `Prelude.hashWithSalt` templateURL + +instance Prelude.NFData ValidateTemplate where + rnf ValidateTemplate' {..} = + Prelude.rnf templateBody + `Prelude.seq` Prelude.rnf templateURL + +instance Data.ToHeaders ValidateTemplate where + toHeaders = Prelude.const Prelude.mempty + +instance Data.ToPath ValidateTemplate where + toPath = Prelude.const "/" + +instance Data.ToQuery ValidateTemplate where + toQuery ValidateTemplate' {..} = + Prelude.mconcat + [ "Action" + Data.=: ("ValidateTemplate" :: Prelude.ByteString), + "Version" + Data.=: ("2010-05-15" :: Prelude.ByteString), + "TemplateBody" Data.=: templateBody, + "TemplateURL" Data.=: templateURL + ] + +-- | The output for ValidateTemplate action. +-- +-- /See:/ 'newValidateTemplateResponse' smart constructor. +data ValidateTemplateResponse = ValidateTemplateResponse' + { -- | The capabilities found within the template. If your template contains + -- IAM resources, you must specify the CAPABILITY_IAM or + -- CAPABILITY_NAMED_IAM value for this parameter when you use the + -- CreateStack or UpdateStack actions with your template; otherwise, those + -- actions return an InsufficientCapabilities error. + -- + -- For more information, see + -- . + capabilities :: Prelude.Maybe [Capability], + -- | The list of resources that generated the values in the @Capabilities@ + -- response element. + capabilitiesReason :: Prelude.Maybe Prelude.Text, + -- | A list of the transforms that are declared in the template. + declaredTransforms :: Prelude.Maybe [Prelude.Text], + -- | The description found within the template. + description :: Prelude.Maybe Prelude.Text, + -- | A list of @TemplateParameter@ structures. + parameters :: Prelude.Maybe [TemplateParameter], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ValidateTemplateResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'capabilities', 'validateTemplateResponse_capabilities' - The capabilities found within the template. If your template contains +-- IAM resources, you must specify the CAPABILITY_IAM or +-- CAPABILITY_NAMED_IAM value for this parameter when you use the +-- CreateStack or UpdateStack actions with your template; otherwise, those +-- actions return an InsufficientCapabilities error. +-- +-- For more information, see +-- . +-- +-- 'capabilitiesReason', 'validateTemplateResponse_capabilitiesReason' - The list of resources that generated the values in the @Capabilities@ +-- response element. +-- +-- 'declaredTransforms', 'validateTemplateResponse_declaredTransforms' - A list of the transforms that are declared in the template. +-- +-- 'description', 'validateTemplateResponse_description' - The description found within the template. +-- +-- 'parameters', 'validateTemplateResponse_parameters' - A list of @TemplateParameter@ structures. +-- +-- 'httpStatus', 'validateTemplateResponse_httpStatus' - The response's http status code. +newValidateTemplateResponse :: + -- | 'httpStatus' + Prelude.Int -> + ValidateTemplateResponse +newValidateTemplateResponse pHttpStatus_ = + ValidateTemplateResponse' + { capabilities = + Prelude.Nothing, + capabilitiesReason = Prelude.Nothing, + declaredTransforms = Prelude.Nothing, + description = Prelude.Nothing, + parameters = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The capabilities found within the template. If your template contains +-- IAM resources, you must specify the CAPABILITY_IAM or +-- CAPABILITY_NAMED_IAM value for this parameter when you use the +-- CreateStack or UpdateStack actions with your template; otherwise, those +-- actions return an InsufficientCapabilities error. +-- +-- For more information, see +-- . +validateTemplateResponse_capabilities :: Lens.Lens' ValidateTemplateResponse (Prelude.Maybe [Capability]) +validateTemplateResponse_capabilities = Lens.lens (\ValidateTemplateResponse' {capabilities} -> capabilities) (\s@ValidateTemplateResponse' {} a -> s {capabilities = a} :: ValidateTemplateResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The list of resources that generated the values in the @Capabilities@ +-- response element. +validateTemplateResponse_capabilitiesReason :: Lens.Lens' ValidateTemplateResponse (Prelude.Maybe Prelude.Text) +validateTemplateResponse_capabilitiesReason = Lens.lens (\ValidateTemplateResponse' {capabilitiesReason} -> capabilitiesReason) (\s@ValidateTemplateResponse' {} a -> s {capabilitiesReason = a} :: ValidateTemplateResponse) + +-- | A list of the transforms that are declared in the template. +validateTemplateResponse_declaredTransforms :: Lens.Lens' ValidateTemplateResponse (Prelude.Maybe [Prelude.Text]) +validateTemplateResponse_declaredTransforms = Lens.lens (\ValidateTemplateResponse' {declaredTransforms} -> declaredTransforms) (\s@ValidateTemplateResponse' {} a -> s {declaredTransforms = a} :: ValidateTemplateResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The description found within the template. +validateTemplateResponse_description :: Lens.Lens' ValidateTemplateResponse (Prelude.Maybe Prelude.Text) +validateTemplateResponse_description = Lens.lens (\ValidateTemplateResponse' {description} -> description) (\s@ValidateTemplateResponse' {} a -> s {description = a} :: ValidateTemplateResponse) + +-- | A list of @TemplateParameter@ structures. +validateTemplateResponse_parameters :: Lens.Lens' ValidateTemplateResponse (Prelude.Maybe [TemplateParameter]) +validateTemplateResponse_parameters = Lens.lens (\ValidateTemplateResponse' {parameters} -> parameters) (\s@ValidateTemplateResponse' {} a -> s {parameters = a} :: ValidateTemplateResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +validateTemplateResponse_httpStatus :: Lens.Lens' ValidateTemplateResponse Prelude.Int +validateTemplateResponse_httpStatus = Lens.lens (\ValidateTemplateResponse' {httpStatus} -> httpStatus) (\s@ValidateTemplateResponse' {} a -> s {httpStatus = a} :: ValidateTemplateResponse) + +instance Prelude.NFData ValidateTemplateResponse where + rnf ValidateTemplateResponse' {..} = + Prelude.rnf capabilities + `Prelude.seq` Prelude.rnf capabilitiesReason + `Prelude.seq` Prelude.rnf declaredTransforms + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf parameters + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/CloudFormation/Waiters.hs b/gen/Amazonka/CloudFormation/Waiters.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/CloudFormation/Waiters.hs @@ -0,0 +1,429 @@ +{-# LANGUAGE DisambiguateRecordFields #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.CloudFormation.Waiters +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.CloudFormation.Waiters where + +import Amazonka.CloudFormation.DescribeChangeSet +import Amazonka.CloudFormation.DescribeStacks +import Amazonka.CloudFormation.DescribeTypeRegistration +import Amazonka.CloudFormation.Lens +import Amazonka.CloudFormation.Types +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Polls 'Amazonka.CloudFormation.DescribeChangeSet' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newChangeSetCreateComplete :: Core.Wait DescribeChangeSet +newChangeSetCreateComplete = + Core.Wait + { Core.name = "ChangeSetCreateComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "CREATE_COMPLETE" + Core.AcceptSuccess + ( describeChangeSetResponse_status + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAll + "FAILED" + Core.AcceptFailure + ( describeChangeSetResponse_status + Prelude.. Lens.to Data.toTextCI + ), + Core.matchError + "ValidationError" + Core.AcceptFailure + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newStackCreateComplete :: Core.Wait DescribeStacks +newStackCreateComplete = + Core.Wait + { Core.name = "StackCreateComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "CREATE_COMPLETE" + Core.AcceptSuccess + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "CREATE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "DELETE_COMPLETE" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "DELETE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "ROLLBACK_COMPLETE" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchError + "ValidationError" + Core.AcceptFailure + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newStackDeleteComplete :: Core.Wait DescribeStacks +newStackDeleteComplete = + Core.Wait + { Core.name = "StackDeleteComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "DELETE_COMPLETE" + Core.AcceptSuccess + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchError "ValidationError" Core.AcceptSuccess, + Core.matchAny + "DELETE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "CREATE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_ROLLBACK_IN_PROGRESS" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_ROLLBACK_COMPLETE" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ) + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeStacks' every 5 seconds until a successful state is reached. An error is returned after 20 failed checks. +newStackExists :: Core.Wait DescribeStacks +newStackExists = + Core.Wait + { Core.name = "StackExists", + Core.attempts = 20, + Core.delay = 5, + Core.acceptors = + [ Core.matchStatus 200 Core.AcceptSuccess, + Core.matchError "ValidationError" Core.AcceptRetry + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newStackImportComplete :: Core.Wait DescribeStacks +newStackImportComplete = + Core.Wait + { Core.name = "StackImportComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "IMPORT_COMPLETE" + Core.AcceptSuccess + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "ROLLBACK_COMPLETE" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "IMPORT_ROLLBACK_IN_PROGRESS" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "IMPORT_ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "IMPORT_ROLLBACK_COMPLETE" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchError + "ValidationError" + Core.AcceptFailure + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newStackRollbackComplete :: Core.Wait DescribeStacks +newStackRollbackComplete = + Core.Wait + { Core.name = "StackRollbackComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "UPDATE_ROLLBACK_COMPLETE" + Core.AcceptSuccess + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "DELETE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchError + "ValidationError" + Core.AcceptFailure + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newStackUpdateComplete :: Core.Wait DescribeStacks +newStackUpdateComplete = + Core.Wait + { Core.name = "StackUpdateComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "UPDATE_COMPLETE" + Core.AcceptSuccess + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_ROLLBACK_FAILED" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAny + "UPDATE_ROLLBACK_COMPLETE" + Core.AcceptFailure + ( Lens.folding + ( Lens.concatOf + (describeStacksResponse_stacks Prelude.. Lens._Just) + ) + Prelude.. stack_stackStatus + Prelude.. Lens.to Data.toTextCI + ), + Core.matchError + "ValidationError" + Core.AcceptFailure + ] + } + +-- | Polls 'Amazonka.CloudFormation.DescribeTypeRegistration' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. +newTypeRegistrationComplete :: Core.Wait DescribeTypeRegistration +newTypeRegistrationComplete = + Core.Wait + { Core.name = "TypeRegistrationComplete", + Core.attempts = 120, + Core.delay = 30, + Core.acceptors = + [ Core.matchAll + "COMPLETE" + Core.AcceptSuccess + ( describeTypeRegistrationResponse_progressStatus + Prelude.. Lens._Just + Prelude.. Lens.to Data.toTextCI + ), + Core.matchAll + "FAILED" + Core.AcceptFailure + ( describeTypeRegistrationResponse_progressStatus + Prelude.. Lens._Just + Prelude.. Lens.to Data.toTextCI + ) + ] + } diff --git a/gen/Network/AWS/CloudFormation.hs b/gen/Network/AWS/CloudFormation.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation.hs +++ /dev/null @@ -1,660 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- __AWS CloudFormation__ --- --- AWS CloudFormation allows you to create and manage AWS infrastructure deployments predictably and repeatedly. You can use AWS CloudFormation to leverage AWS products, such as Amazon Elastic Compute Cloud, Amazon Elastic Block Store, Amazon Simple Notification Service, Elastic Load Balancing, and Auto Scaling to build highly-reliable, highly scalable, cost-effective applications without creating or configuring the underlying AWS infrastructure. --- --- With AWS CloudFormation, you declare all of your resources and dependencies in a template file. The template defines a collection of resources as a single unit called a stack. AWS CloudFormation creates and deletes all member resources of the stack together and manages all dependencies between the resources for you. --- --- For more information about AWS CloudFormation, see the . --- --- Amazon CloudFormation makes use of other AWS products. If you need additional technical information about a specific AWS product, you can find the product's technical documentation at . --- -module Network.AWS.CloudFormation - ( - -- * Service Configuration - cloudFormation - - -- * Errors - -- $errors - - -- ** CreatedButModifiedException - , _CreatedButModifiedException - - -- ** ChangeSetNotFoundException - , _ChangeSetNotFoundException - - -- ** OperationInProgressException - , _OperationInProgressException - - -- ** InvalidChangeSetStatusException - , _InvalidChangeSetStatusException - - -- ** OperationNotFoundException - , _OperationNotFoundException - - -- ** OperationIdAlreadyExistsException - , _OperationIdAlreadyExistsException - - -- ** InsufficientCapabilitiesException - , _InsufficientCapabilitiesException - - -- ** TokenAlreadyExistsException - , _TokenAlreadyExistsException - - -- ** StackSetNotFoundException - , _StackSetNotFoundException - - -- ** StackInstanceNotFoundException - , _StackInstanceNotFoundException - - -- ** StackSetNotEmptyException - , _StackSetNotEmptyException - - -- ** InvalidOperationException - , _InvalidOperationException - - -- ** NameAlreadyExistsException - , _NameAlreadyExistsException - - -- ** StaleRequestException - , _StaleRequestException - - -- ** AlreadyExistsException - , _AlreadyExistsException - - -- ** LimitExceededException - , _LimitExceededException - - -- * Waiters - -- $waiters - - -- ** StackCreateComplete - , stackCreateComplete - - -- ** StackUpdateComplete - , stackUpdateComplete - - -- ** StackExists - , stackExists - - -- ** StackDeleteComplete - , stackDeleteComplete - - -- ** ChangeSetCreateComplete - , changeSetCreateComplete - - -- * Operations - -- $operations - - -- ** DescribeStackSetOperation - , module Network.AWS.CloudFormation.DescribeStackSetOperation - - -- ** DeleteStack - , module Network.AWS.CloudFormation.DeleteStack - - -- ** UpdateStack - , module Network.AWS.CloudFormation.UpdateStack - - -- ** GetTemplateSummary - , module Network.AWS.CloudFormation.GetTemplateSummary - - -- ** ListChangeSets - , module Network.AWS.CloudFormation.ListChangeSets - - -- ** ListStackResources (Paginated) - , module Network.AWS.CloudFormation.ListStackResources - - -- ** UpdateStackInstances - , module Network.AWS.CloudFormation.UpdateStackInstances - - -- ** DeleteStackInstances - , module Network.AWS.CloudFormation.DeleteStackInstances - - -- ** CreateStackInstances - , module Network.AWS.CloudFormation.CreateStackInstances - - -- ** GetStackPolicy - , module Network.AWS.CloudFormation.GetStackPolicy - - -- ** DescribeStacks (Paginated) - , module Network.AWS.CloudFormation.DescribeStacks - - -- ** CreateChangeSet - , module Network.AWS.CloudFormation.CreateChangeSet - - -- ** ListStackSetOperations - , module Network.AWS.CloudFormation.ListStackSetOperations - - -- ** ExecuteChangeSet - , module Network.AWS.CloudFormation.ExecuteChangeSet - - -- ** ListStackInstances - , module Network.AWS.CloudFormation.ListStackInstances - - -- ** ContinueUpdateRollback - , module Network.AWS.CloudFormation.ContinueUpdateRollback - - -- ** ValidateTemplate - , module Network.AWS.CloudFormation.ValidateTemplate - - -- ** CancelUpdateStack - , module Network.AWS.CloudFormation.CancelUpdateStack - - -- ** DescribeStackEvents (Paginated) - , module Network.AWS.CloudFormation.DescribeStackEvents - - -- ** SignalResource - , module Network.AWS.CloudFormation.SignalResource - - -- ** SetStackPolicy - , module Network.AWS.CloudFormation.SetStackPolicy - - -- ** ListImports (Paginated) - , module Network.AWS.CloudFormation.ListImports - - -- ** ListStacks (Paginated) - , module Network.AWS.CloudFormation.ListStacks - - -- ** DescribeAccountLimits - , module Network.AWS.CloudFormation.DescribeAccountLimits - - -- ** DescribeStackResources - , module Network.AWS.CloudFormation.DescribeStackResources - - -- ** DescribeStackInstance - , module Network.AWS.CloudFormation.DescribeStackInstance - - -- ** CreateStack - , module Network.AWS.CloudFormation.CreateStack - - -- ** UpdateStackSet - , module Network.AWS.CloudFormation.UpdateStackSet - - -- ** DeleteStackSet - , module Network.AWS.CloudFormation.DeleteStackSet - - -- ** EstimateTemplateCost - , module Network.AWS.CloudFormation.EstimateTemplateCost - - -- ** DeleteChangeSet - , module Network.AWS.CloudFormation.DeleteChangeSet - - -- ** ListStackSets - , module Network.AWS.CloudFormation.ListStackSets - - -- ** ListExports (Paginated) - , module Network.AWS.CloudFormation.ListExports - - -- ** CreateStackSet - , module Network.AWS.CloudFormation.CreateStackSet - - -- ** UpdateTerminationProtection - , module Network.AWS.CloudFormation.UpdateTerminationProtection - - -- ** GetTemplate - , module Network.AWS.CloudFormation.GetTemplate - - -- ** DescribeChangeSet - , module Network.AWS.CloudFormation.DescribeChangeSet - - -- ** DescribeStackSet - , module Network.AWS.CloudFormation.DescribeStackSet - - -- ** ListStackSetOperationResults - , module Network.AWS.CloudFormation.ListStackSetOperationResults - - -- ** StopStackSetOperation - , module Network.AWS.CloudFormation.StopStackSetOperation - - -- ** DescribeStackResource - , module Network.AWS.CloudFormation.DescribeStackResource - - -- * Types - - -- ** AccountGateStatus - , AccountGateStatus (..) - - -- ** Capability - , Capability (..) - - -- ** ChangeAction - , ChangeAction (..) - - -- ** ChangeSetStatus - , ChangeSetStatus (..) - - -- ** ChangeSetType - , ChangeSetType (..) - - -- ** ChangeSource - , ChangeSource (..) - - -- ** ChangeType - , ChangeType (..) - - -- ** EvaluationType - , EvaluationType (..) - - -- ** ExecutionStatus - , ExecutionStatus (..) - - -- ** OnFailure - , OnFailure (..) - - -- ** Replacement - , Replacement (..) - - -- ** RequiresRecreation - , RequiresRecreation (..) - - -- ** ResourceAttribute - , ResourceAttribute (..) - - -- ** ResourceSignalStatus - , ResourceSignalStatus (..) - - -- ** ResourceStatus - , ResourceStatus (..) - - -- ** StackInstanceStatus - , StackInstanceStatus (..) - - -- ** StackSetOperationAction - , StackSetOperationAction (..) - - -- ** StackSetOperationResultStatus - , StackSetOperationResultStatus (..) - - -- ** StackSetOperationStatus - , StackSetOperationStatus (..) - - -- ** StackSetStatus - , StackSetStatus (..) - - -- ** StackStatus - , StackStatus (..) - - -- ** TemplateStage - , TemplateStage (..) - - -- ** AccountGateResult - , AccountGateResult - , accountGateResult - , agrStatus - , agrStatusReason - - -- ** AccountLimit - , AccountLimit - , accountLimit - , alValue - , alName - - -- ** Change - , Change - , change - , cResourceChange - , cType - - -- ** ChangeSetSummary - , ChangeSetSummary - , changeSetSummary - , cCreationTime - , cStatus - , cChangeSetName - , cExecutionStatus - , cChangeSetId - , cStatusReason - , cStackId - , cDescription - , cStackName - - -- ** Export - , Export - , export' - , eValue - , eExportingStackId - , eName - - -- ** Output - , Output - , output - , oOutputValue - , oOutputKey - , oExportName - , oDescription - - -- ** Parameter - , Parameter - , parameter - , pParameterValue - , pResolvedValue - , pParameterKey - , pUsePreviousValue - - -- ** ParameterConstraints - , ParameterConstraints - , parameterConstraints - , pcAllowedValues - - -- ** ParameterDeclaration - , ParameterDeclaration - , parameterDeclaration - , pdParameterKey - , pdParameterType - , pdParameterConstraints - , pdDefaultValue - , pdNoEcho - , pdDescription - - -- ** ResourceChange - , ResourceChange - , resourceChange - , rcLogicalResourceId - , rcPhysicalResourceId - , rcResourceType - , rcAction - , rcScope - , rcDetails - , rcReplacement - - -- ** ResourceChangeDetail - , ResourceChangeDetail - , resourceChangeDetail - , rcdCausingEntity - , rcdChangeSource - , rcdEvaluation - , rcdTarget - - -- ** ResourceTargetDefinition - , ResourceTargetDefinition - , resourceTargetDefinition - , rtdAttribute - , rtdRequiresRecreation - , rtdName - - -- ** RollbackConfiguration - , RollbackConfiguration - , rollbackConfiguration - , rcRollbackTriggers - , rcMonitoringTimeInMinutes - - -- ** RollbackTrigger - , RollbackTrigger - , rollbackTrigger - , rtARN - , rtType - - -- ** Stack - , Stack - , stack - , sDisableRollback - , sLastUpdatedTime - , sRootId - , sNotificationARNs - , sStackStatusReason - , sEnableTerminationProtection - , sChangeSetId - , sDeletionTime - , sOutputs - , sParameters - , sStackId - , sDescription - , sCapabilities - , sRollbackConfiguration - , sTags - , sTimeoutInMinutes - , sParentId - , sRoleARN - , sStackName - , sCreationTime - , sStackStatus - - -- ** StackEvent - , StackEvent - , stackEvent - , seLogicalResourceId - , sePhysicalResourceId - , seResourceType - , seResourceStatusReason - , seResourceProperties - , seResourceStatus - , seClientRequestToken - , seStackId - , seEventId - , seStackName - , seTimestamp - - -- ** StackInstance - , StackInstance - , stackInstance - , siStatus - , siAccount - , siRegion - , siStatusReason - , siStackId - , siParameterOverrides - , siStackSetId - - -- ** StackInstanceSummary - , StackInstanceSummary - , stackInstanceSummary - , sisStatus - , sisAccount - , sisRegion - , sisStatusReason - , sisStackId - , sisStackSetId - - -- ** StackResource - , StackResource - , stackResource - , srPhysicalResourceId - , srResourceStatusReason - , srStackId - , srDescription - , srStackName - , srLogicalResourceId - , srResourceType - , srTimestamp - , srResourceStatus - - -- ** StackResourceDetail - , StackResourceDetail - , stackResourceDetail - , srdPhysicalResourceId - , srdResourceStatusReason - , srdMetadata - , srdStackId - , srdDescription - , srdStackName - , srdLogicalResourceId - , srdResourceType - , srdLastUpdatedTimestamp - , srdResourceStatus - - -- ** StackResourceSummary - , StackResourceSummary - , stackResourceSummary - , srsPhysicalResourceId - , srsResourceStatusReason - , srsLogicalResourceId - , srsResourceType - , srsLastUpdatedTimestamp - , srsResourceStatus - - -- ** StackSet - , StackSet - , stackSet - , ssStatus - , ssAdministrationRoleARN - , ssStackSetARN - , ssParameters - , ssTemplateBody - , ssStackSetName - , ssDescription - , ssCapabilities - , ssTags - , ssStackSetId - - -- ** StackSetOperation - , StackSetOperation - , stackSetOperation - , ssoStatus - , ssoAdministrationRoleARN - , ssoAction - , ssoEndTimestamp - , ssoCreationTimestamp - , ssoOperationPreferences - , ssoOperationId - , ssoRetainStacks - , ssoStackSetId - - -- ** StackSetOperationPreferences - , StackSetOperationPreferences - , stackSetOperationPreferences - , ssopRegionOrder - , ssopMaxConcurrentCount - , ssopMaxConcurrentPercentage - , ssopFailureToleranceCount - , ssopFailureTolerancePercentage - - -- ** StackSetOperationResultSummary - , StackSetOperationResultSummary - , stackSetOperationResultSummary - , ssorsStatus - , ssorsAccount - , ssorsAccountGateResult - , ssorsRegion - , ssorsStatusReason - - -- ** StackSetOperationSummary - , StackSetOperationSummary - , stackSetOperationSummary - , ssosStatus - , ssosAction - , ssosEndTimestamp - , ssosCreationTimestamp - , ssosOperationId - - -- ** StackSetSummary - , StackSetSummary - , stackSetSummary - , sssStatus - , sssStackSetName - , sssDescription - , sssStackSetId - - -- ** StackSummary - , StackSummary - , stackSummary - , ssLastUpdatedTime - , ssRootId - , ssStackStatusReason - , ssTemplateDescription - , ssDeletionTime - , ssStackId - , ssParentId - , ssStackName - , ssCreationTime - , ssStackStatus - - -- ** Tag - , Tag - , tag - , tagKey - , tagValue - - -- ** TemplateParameter - , TemplateParameter - , templateParameter - , tpParameterKey - , tpDefaultValue - , tpNoEcho - , tpDescription - ) where - -import Network.AWS.CloudFormation.CancelUpdateStack -import Network.AWS.CloudFormation.ContinueUpdateRollback -import Network.AWS.CloudFormation.CreateChangeSet -import Network.AWS.CloudFormation.CreateStack -import Network.AWS.CloudFormation.CreateStackInstances -import Network.AWS.CloudFormation.CreateStackSet -import Network.AWS.CloudFormation.DeleteChangeSet -import Network.AWS.CloudFormation.DeleteStack -import Network.AWS.CloudFormation.DeleteStackInstances -import Network.AWS.CloudFormation.DeleteStackSet -import Network.AWS.CloudFormation.DescribeAccountLimits -import Network.AWS.CloudFormation.DescribeChangeSet -import Network.AWS.CloudFormation.DescribeStackEvents -import Network.AWS.CloudFormation.DescribeStackInstance -import Network.AWS.CloudFormation.DescribeStackResource -import Network.AWS.CloudFormation.DescribeStackResources -import Network.AWS.CloudFormation.DescribeStacks -import Network.AWS.CloudFormation.DescribeStackSet -import Network.AWS.CloudFormation.DescribeStackSetOperation -import Network.AWS.CloudFormation.EstimateTemplateCost -import Network.AWS.CloudFormation.ExecuteChangeSet -import Network.AWS.CloudFormation.GetStackPolicy -import Network.AWS.CloudFormation.GetTemplate -import Network.AWS.CloudFormation.GetTemplateSummary -import Network.AWS.CloudFormation.ListChangeSets -import Network.AWS.CloudFormation.ListExports -import Network.AWS.CloudFormation.ListImports -import Network.AWS.CloudFormation.ListStackInstances -import Network.AWS.CloudFormation.ListStackResources -import Network.AWS.CloudFormation.ListStacks -import Network.AWS.CloudFormation.ListStackSetOperationResults -import Network.AWS.CloudFormation.ListStackSetOperations -import Network.AWS.CloudFormation.ListStackSets -import Network.AWS.CloudFormation.SetStackPolicy -import Network.AWS.CloudFormation.SignalResource -import Network.AWS.CloudFormation.StopStackSetOperation -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.UpdateStack -import Network.AWS.CloudFormation.UpdateStackInstances -import Network.AWS.CloudFormation.UpdateStackSet -import Network.AWS.CloudFormation.UpdateTerminationProtection -import Network.AWS.CloudFormation.ValidateTemplate -import Network.AWS.CloudFormation.Waiters - -{- $errors -Error matchers are designed for use with the functions provided by -. -This allows catching (and rethrowing) service specific errors returned -by 'CloudFormation'. --} - -{- $operations -Some AWS operations return results that are incomplete and require subsequent -requests in order to obtain the entire result set. The process of sending -subsequent requests to continue where a previous request left off is called -pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to -1000 objects at a time, and you must send subsequent requests with the -appropriate Marker in order to retrieve the next page of results. - -Operations that have an 'AWSPager' instance can transparently perform subsequent -requests, correctly setting Markers and other request facets to iterate through -the entire result set of a truncated API operation. Operations which support -this have an additional note in the documentation. - -Many operations have the ability to filter results on the server side. See the -individual operation parameters for details. --} - -{- $waiters -Waiters poll by repeatedly sending a request until some remote success condition -configured by the 'Wait' specification is fulfilled. The 'Wait' specification -determines how many attempts should be made, in addition to delay and retry strategies. --} diff --git a/gen/Network/AWS/CloudFormation/CancelUpdateStack.hs b/gen/Network/AWS/CloudFormation/CancelUpdateStack.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/CancelUpdateStack.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.CancelUpdateStack --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Cancels an update on the specified stack. If the call completes successfully, the stack rolls back the update and reverts to the previous stack configuration. --- --- -module Network.AWS.CloudFormation.CancelUpdateStack - ( - -- * Creating a Request - cancelUpdateStack - , CancelUpdateStack - -- * Request Lenses - , cusClientRequestToken - , cusStackName - - -- * Destructuring the Response - , cancelUpdateStackResponse - , CancelUpdateStackResponse - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'CancelUpdateStack' action. --- --- --- --- /See:/ 'cancelUpdateStack' smart constructor. -data CancelUpdateStack = CancelUpdateStack' - { _cusClientRequestToken :: !(Maybe Text) - , _cusStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelUpdateStack' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cusClientRequestToken' - A unique identifier for this @CancelUpdateStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to cancel an update on a stack with the same name. You might retry @CancelUpdateStack@ requests to ensure that AWS CloudFormation successfully received them. --- --- * 'cusStackName' - The name or the unique stack ID that is associated with the stack. -cancelUpdateStack - :: Text -- ^ 'cusStackName' - -> CancelUpdateStack -cancelUpdateStack pStackName_ = - CancelUpdateStack' - {_cusClientRequestToken = Nothing, _cusStackName = pStackName_} - - --- | A unique identifier for this @CancelUpdateStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to cancel an update on a stack with the same name. You might retry @CancelUpdateStack@ requests to ensure that AWS CloudFormation successfully received them. -cusClientRequestToken :: Lens' CancelUpdateStack (Maybe Text) -cusClientRequestToken = lens _cusClientRequestToken (\ s a -> s{_cusClientRequestToken = a}) - --- | The name or the unique stack ID that is associated with the stack. -cusStackName :: Lens' CancelUpdateStack Text -cusStackName = lens _cusStackName (\ s a -> s{_cusStackName = a}) - -instance AWSRequest CancelUpdateStack where - type Rs CancelUpdateStack = CancelUpdateStackResponse - request = postQuery cloudFormation - response = receiveNull CancelUpdateStackResponse' - -instance Hashable CancelUpdateStack where - -instance NFData CancelUpdateStack where - -instance ToHeaders CancelUpdateStack where - toHeaders = const mempty - -instance ToPath CancelUpdateStack where - toPath = const "/" - -instance ToQuery CancelUpdateStack where - toQuery CancelUpdateStack'{..} - = mconcat - ["Action" =: ("CancelUpdateStack" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "ClientRequestToken" =: _cusClientRequestToken, - "StackName" =: _cusStackName] - --- | /See:/ 'cancelUpdateStackResponse' smart constructor. -data CancelUpdateStackResponse = - CancelUpdateStackResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelUpdateStackResponse' with the minimum fields required to make a request. --- -cancelUpdateStackResponse - :: CancelUpdateStackResponse -cancelUpdateStackResponse = CancelUpdateStackResponse' - - -instance NFData CancelUpdateStackResponse where diff --git a/gen/Network/AWS/CloudFormation/ContinueUpdateRollback.hs b/gen/Network/AWS/CloudFormation/ContinueUpdateRollback.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ContinueUpdateRollback.hs +++ /dev/null @@ -1,162 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ContinueUpdateRollback --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- For a specified stack that is in the @UPDATE_ROLLBACK_FAILED@ state, continues rolling it back to the @UPDATE_ROLLBACK_COMPLETE@ state. Depending on the cause of the failure, you can manually and continue the rollback. By continuing the rollback, you can return your stack to a working state (the @UPDATE_ROLLBACK_COMPLETE@ state), and then try to update the stack again. --- --- --- A stack goes into the @UPDATE_ROLLBACK_FAILED@ state when AWS CloudFormation cannot roll back all changes after a failed stack update. For example, you might have a stack that is rolling back to an old database instance that was deleted outside of AWS CloudFormation. Because AWS CloudFormation doesn't know the database was deleted, it assumes that the database instance still exists and attempts to roll back to it, causing the update rollback to fail. --- -module Network.AWS.CloudFormation.ContinueUpdateRollback - ( - -- * Creating a Request - continueUpdateRollback - , ContinueUpdateRollback - -- * Request Lenses - , curResourcesToSkip - , curClientRequestToken - , curRoleARN - , curStackName - - -- * Destructuring the Response - , continueUpdateRollbackResponse - , ContinueUpdateRollbackResponse - -- * Response Lenses - , currsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'ContinueUpdateRollback' action. --- --- --- --- /See:/ 'continueUpdateRollback' smart constructor. -data ContinueUpdateRollback = ContinueUpdateRollback' - { _curResourcesToSkip :: !(Maybe [Text]) - , _curClientRequestToken :: !(Maybe Text) - , _curRoleARN :: !(Maybe Text) - , _curStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ContinueUpdateRollback' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'curResourcesToSkip' - A list of the logical IDs of the resources that AWS CloudFormation skips during the continue update rollback operation. You can specify only resources that are in the @UPDATE_FAILED@ state because a rollback failed. You can't specify resources that are in the @UPDATE_FAILED@ state for other reasons, for example, because an update was cancelled. To check why a resource update failed, use the 'DescribeStackResources' action, and view the resource status reason. /Important:/ Specify this property to skip rolling back resources that AWS CloudFormation can't successfully roll back. We recommend that you resources before skipping them. AWS CloudFormation sets the status of the specified resources to @UPDATE_COMPLETE@ and continues to roll back the stack. After the rollback is complete, the state of the skipped resources will be inconsistent with the state of the resources in the stack template. Before performing another stack update, you must update the stack or resources to be consistent with each other. If you don't, subsequent stack updates might fail, and the stack will become unrecoverable. Specify the minimum number of resources required to successfully roll back your stack. For example, a failed resource update might cause dependent resources to fail. In this case, it might not be necessary to skip the dependent resources. To skip resources that are part of nested stacks, use the following format: @NestedStackName.ResourceLogicalID@ . If you want to specify the logical ID of a stack resource (@Type: AWS::CloudFormation::Stack@ ) in the @ResourcesToSkip@ list, then its corresponding embedded stack must be in one of the following states: @DELETE_IN_PROGRESS@ , @DELETE_COMPLETE@ , or @DELETE_FAILED@ . --- --- * 'curClientRequestToken' - A unique identifier for this @ContinueUpdateRollback@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to continue the rollback to a stack with the same name. You might retry @ContinueUpdateRollback@ requests to ensure that AWS CloudFormation successfully received them. --- --- * 'curRoleARN' - The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to roll back the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation always uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. --- --- * 'curStackName' - The name or the unique ID of the stack that you want to continue rolling back. -continueUpdateRollback - :: Text -- ^ 'curStackName' - -> ContinueUpdateRollback -continueUpdateRollback pStackName_ = - ContinueUpdateRollback' - { _curResourcesToSkip = Nothing - , _curClientRequestToken = Nothing - , _curRoleARN = Nothing - , _curStackName = pStackName_ - } - - --- | A list of the logical IDs of the resources that AWS CloudFormation skips during the continue update rollback operation. You can specify only resources that are in the @UPDATE_FAILED@ state because a rollback failed. You can't specify resources that are in the @UPDATE_FAILED@ state for other reasons, for example, because an update was cancelled. To check why a resource update failed, use the 'DescribeStackResources' action, and view the resource status reason. /Important:/ Specify this property to skip rolling back resources that AWS CloudFormation can't successfully roll back. We recommend that you resources before skipping them. AWS CloudFormation sets the status of the specified resources to @UPDATE_COMPLETE@ and continues to roll back the stack. After the rollback is complete, the state of the skipped resources will be inconsistent with the state of the resources in the stack template. Before performing another stack update, you must update the stack or resources to be consistent with each other. If you don't, subsequent stack updates might fail, and the stack will become unrecoverable. Specify the minimum number of resources required to successfully roll back your stack. For example, a failed resource update might cause dependent resources to fail. In this case, it might not be necessary to skip the dependent resources. To skip resources that are part of nested stacks, use the following format: @NestedStackName.ResourceLogicalID@ . If you want to specify the logical ID of a stack resource (@Type: AWS::CloudFormation::Stack@ ) in the @ResourcesToSkip@ list, then its corresponding embedded stack must be in one of the following states: @DELETE_IN_PROGRESS@ , @DELETE_COMPLETE@ , or @DELETE_FAILED@ . -curResourcesToSkip :: Lens' ContinueUpdateRollback [Text] -curResourcesToSkip = lens _curResourcesToSkip (\ s a -> s{_curResourcesToSkip = a}) . _Default . _Coerce - --- | A unique identifier for this @ContinueUpdateRollback@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to continue the rollback to a stack with the same name. You might retry @ContinueUpdateRollback@ requests to ensure that AWS CloudFormation successfully received them. -curClientRequestToken :: Lens' ContinueUpdateRollback (Maybe Text) -curClientRequestToken = lens _curClientRequestToken (\ s a -> s{_curClientRequestToken = a}) - --- | The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to roll back the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation always uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. -curRoleARN :: Lens' ContinueUpdateRollback (Maybe Text) -curRoleARN = lens _curRoleARN (\ s a -> s{_curRoleARN = a}) - --- | The name or the unique ID of the stack that you want to continue rolling back. -curStackName :: Lens' ContinueUpdateRollback Text -curStackName = lens _curStackName (\ s a -> s{_curStackName = a}) - -instance AWSRequest ContinueUpdateRollback where - type Rs ContinueUpdateRollback = - ContinueUpdateRollbackResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ContinueUpdateRollbackResult" - (\ s h x -> - ContinueUpdateRollbackResponse' <$> - (pure (fromEnum s))) - -instance Hashable ContinueUpdateRollback where - -instance NFData ContinueUpdateRollback where - -instance ToHeaders ContinueUpdateRollback where - toHeaders = const mempty - -instance ToPath ContinueUpdateRollback where - toPath = const "/" - -instance ToQuery ContinueUpdateRollback where - toQuery ContinueUpdateRollback'{..} - = mconcat - ["Action" =: - ("ContinueUpdateRollback" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "ResourcesToSkip" =: - toQuery - (toQueryList "member" <$> _curResourcesToSkip), - "ClientRequestToken" =: _curClientRequestToken, - "RoleARN" =: _curRoleARN, - "StackName" =: _curStackName] - --- | The output for a 'ContinueUpdateRollback' action. --- --- --- --- /See:/ 'continueUpdateRollbackResponse' smart constructor. -newtype ContinueUpdateRollbackResponse = ContinueUpdateRollbackResponse' - { _currsResponseStatus :: Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ContinueUpdateRollbackResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'currsResponseStatus' - -- | The response status code. -continueUpdateRollbackResponse - :: Int -- ^ 'currsResponseStatus' - -> ContinueUpdateRollbackResponse -continueUpdateRollbackResponse pResponseStatus_ = - ContinueUpdateRollbackResponse' {_currsResponseStatus = pResponseStatus_} - - --- | -- | The response status code. -currsResponseStatus :: Lens' ContinueUpdateRollbackResponse Int -currsResponseStatus = lens _currsResponseStatus (\ s a -> s{_currsResponseStatus = a}) - -instance NFData ContinueUpdateRollbackResponse where diff --git a/gen/Network/AWS/CloudFormation/CreateChangeSet.hs b/gen/Network/AWS/CloudFormation/CreateChangeSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/CreateChangeSet.hs +++ /dev/null @@ -1,298 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.CreateChangeSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Creates a list of changes that will be applied to a stack so that you can review the changes before executing them. You can create a change set for a stack that doesn't exist or an existing stack. If you create a change set for a stack that doesn't exist, the change set shows all of the resources that AWS CloudFormation will create. If you create a change set for an existing stack, AWS CloudFormation compares the stack's information with the information that you submit in the change set and lists the differences. Use change sets to understand which resources AWS CloudFormation will create or change, and how it will change resources in an existing stack, before you create or update a stack. --- --- --- To create a change set for a stack that doesn't exist, for the @ChangeSetType@ parameter, specify @CREATE@ . To create a change set for an existing stack, specify @UPDATE@ for the @ChangeSetType@ parameter. After the @CreateChangeSet@ call successfully completes, AWS CloudFormation starts creating the change set. To check the status of the change set or to review it, use the 'DescribeChangeSet' action. --- --- When you are satisfied with the changes the change set will make, execute the change set by using the 'ExecuteChangeSet' action. AWS CloudFormation doesn't make changes until you execute the change set. --- -module Network.AWS.CloudFormation.CreateChangeSet - ( - -- * Creating a Request - createChangeSet - , CreateChangeSet - -- * Request Lenses - , ccsChangeSetType - , ccsUsePreviousTemplate - , ccsClientToken - , ccsNotificationARNs - , ccsParameters - , ccsTemplateBody - , ccsTemplateURL - , ccsDescription - , ccsCapabilities - , ccsRollbackConfiguration - , ccsResourceTypes - , ccsTags - , ccsRoleARN - , ccsStackName - , ccsChangeSetName - - -- * Destructuring the Response - , createChangeSetResponse - , CreateChangeSetResponse - -- * Response Lenses - , ccsrsId - , ccsrsStackId - , ccsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'CreateChangeSet' action. --- --- --- --- /See:/ 'createChangeSet' smart constructor. -data CreateChangeSet = CreateChangeSet' - { _ccsChangeSetType :: !(Maybe ChangeSetType) - , _ccsUsePreviousTemplate :: !(Maybe Bool) - , _ccsClientToken :: !(Maybe Text) - , _ccsNotificationARNs :: !(Maybe [Text]) - , _ccsParameters :: !(Maybe [Parameter]) - , _ccsTemplateBody :: !(Maybe Text) - , _ccsTemplateURL :: !(Maybe Text) - , _ccsDescription :: !(Maybe Text) - , _ccsCapabilities :: !(Maybe [Capability]) - , _ccsRollbackConfiguration :: !(Maybe RollbackConfiguration) - , _ccsResourceTypes :: !(Maybe [Text]) - , _ccsTags :: !(Maybe [Tag]) - , _ccsRoleARN :: !(Maybe Text) - , _ccsStackName :: !Text - , _ccsChangeSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateChangeSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ccsChangeSetType' - The type of change set operation. To create a change set for a new stack, specify @CREATE@ . To create a change set for an existing stack, specify @UPDATE@ . If you create a change set for a new stack, AWS Cloudformation creates a stack with a unique stack ID, but no template or resources. The stack will be in the state until you execute the change set. By default, AWS CloudFormation specifies @UPDATE@ . You can't use the @UPDATE@ type to create a change set for a new stack or the @CREATE@ type to create a change set for an existing stack. --- --- * 'ccsUsePreviousTemplate' - Whether to reuse the template that is associated with the stack to create the change set. --- --- * 'ccsClientToken' - A unique identifier for this @CreateChangeSet@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to create another change set with the same name. You might retry @CreateChangeSet@ requests to ensure that AWS CloudFormation successfully received them. --- --- * 'ccsNotificationARNs' - The Amazon Resource Names (ARNs) of Amazon Simple Notification Service (Amazon SNS) topics that AWS CloudFormation associates with the stack. To remove all associated notification topics, specify an empty list. --- --- * 'ccsParameters' - A list of @Parameter@ structures that specify input parameters for the change set. For more information, see the data type. --- --- * 'ccsTemplateBody' - A structure that contains the body of the revised template, with a minimum length of 1 byte and a maximum length of 51,200 bytes. AWS CloudFormation generates the change set by comparing this template with the template of the stack that you specified. Conditional: You must specify only @TemplateBody@ or @TemplateURL@ . --- --- * 'ccsTemplateURL' - The location of the file that contains the revised template. The URL must point to a template (max size: 460,800 bytes) that is located in an S3 bucket. AWS CloudFormation generates the change set by comparing this template with the stack that you specified. Conditional: You must specify only @TemplateBody@ or @TemplateURL@ . --- --- * 'ccsDescription' - A description to help you identify this change set. --- --- * 'ccsCapabilities' - A list of values that you must specify before AWS CloudFormation can update certain stacks. Some stack templates might include resources that can affect permissions in your AWS account, for example, by creating new AWS Identity and Access Management (IAM) users. For those stacks, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ . The following resources require you to specify this parameter: , , , , , , and . If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify @CAPABILITY_NAMED_IAM@ . If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see . --- --- * 'ccsRollbackConfiguration' - The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. --- --- * 'ccsResourceTypes' - The template resource types that you have permissions to work with if you execute this change set, such as @AWS::EC2::Instance@ , @AWS::EC2::*@ , or @Custom::MyCustomInstance@ . If the list of resource types doesn't include a resource type that you're updating, the stack update fails. By default, AWS CloudFormation grants permissions to all resource types. AWS Identity and Access Management (IAM) uses this parameter for condition keys in IAM policies for AWS CloudFormation. For more information, see in the AWS CloudFormation User Guide. --- --- * 'ccsTags' - Key-value pairs to associate with this stack. AWS CloudFormation also propagates these tags to resources in the stack. You can specify a maximum of 50 tags. --- --- * 'ccsRoleARN' - The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes when executing the change set. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. --- --- * 'ccsStackName' - The name or the unique ID of the stack for which you are creating a change set. AWS CloudFormation generates the change set by comparing this stack's information with the information that you submit, such as a modified template or different parameter input values. --- --- * 'ccsChangeSetName' - The name of the change set. The name must be unique among all change sets that are associated with the specified stack. A change set name can contain only alphanumeric, case sensitive characters and hyphens. It must start with an alphabetic character and cannot exceed 128 characters. -createChangeSet - :: Text -- ^ 'ccsStackName' - -> Text -- ^ 'ccsChangeSetName' - -> CreateChangeSet -createChangeSet pStackName_ pChangeSetName_ = - CreateChangeSet' - { _ccsChangeSetType = Nothing - , _ccsUsePreviousTemplate = Nothing - , _ccsClientToken = Nothing - , _ccsNotificationARNs = Nothing - , _ccsParameters = Nothing - , _ccsTemplateBody = Nothing - , _ccsTemplateURL = Nothing - , _ccsDescription = Nothing - , _ccsCapabilities = Nothing - , _ccsRollbackConfiguration = Nothing - , _ccsResourceTypes = Nothing - , _ccsTags = Nothing - , _ccsRoleARN = Nothing - , _ccsStackName = pStackName_ - , _ccsChangeSetName = pChangeSetName_ - } - - --- | The type of change set operation. To create a change set for a new stack, specify @CREATE@ . To create a change set for an existing stack, specify @UPDATE@ . If you create a change set for a new stack, AWS Cloudformation creates a stack with a unique stack ID, but no template or resources. The stack will be in the state until you execute the change set. By default, AWS CloudFormation specifies @UPDATE@ . You can't use the @UPDATE@ type to create a change set for a new stack or the @CREATE@ type to create a change set for an existing stack. -ccsChangeSetType :: Lens' CreateChangeSet (Maybe ChangeSetType) -ccsChangeSetType = lens _ccsChangeSetType (\ s a -> s{_ccsChangeSetType = a}) - --- | Whether to reuse the template that is associated with the stack to create the change set. -ccsUsePreviousTemplate :: Lens' CreateChangeSet (Maybe Bool) -ccsUsePreviousTemplate = lens _ccsUsePreviousTemplate (\ s a -> s{_ccsUsePreviousTemplate = a}) - --- | A unique identifier for this @CreateChangeSet@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to create another change set with the same name. You might retry @CreateChangeSet@ requests to ensure that AWS CloudFormation successfully received them. -ccsClientToken :: Lens' CreateChangeSet (Maybe Text) -ccsClientToken = lens _ccsClientToken (\ s a -> s{_ccsClientToken = a}) - --- | The Amazon Resource Names (ARNs) of Amazon Simple Notification Service (Amazon SNS) topics that AWS CloudFormation associates with the stack. To remove all associated notification topics, specify an empty list. -ccsNotificationARNs :: Lens' CreateChangeSet [Text] -ccsNotificationARNs = lens _ccsNotificationARNs (\ s a -> s{_ccsNotificationARNs = a}) . _Default . _Coerce - --- | A list of @Parameter@ structures that specify input parameters for the change set. For more information, see the data type. -ccsParameters :: Lens' CreateChangeSet [Parameter] -ccsParameters = lens _ccsParameters (\ s a -> s{_ccsParameters = a}) . _Default . _Coerce - --- | A structure that contains the body of the revised template, with a minimum length of 1 byte and a maximum length of 51,200 bytes. AWS CloudFormation generates the change set by comparing this template with the template of the stack that you specified. Conditional: You must specify only @TemplateBody@ or @TemplateURL@ . -ccsTemplateBody :: Lens' CreateChangeSet (Maybe Text) -ccsTemplateBody = lens _ccsTemplateBody (\ s a -> s{_ccsTemplateBody = a}) - --- | The location of the file that contains the revised template. The URL must point to a template (max size: 460,800 bytes) that is located in an S3 bucket. AWS CloudFormation generates the change set by comparing this template with the stack that you specified. Conditional: You must specify only @TemplateBody@ or @TemplateURL@ . -ccsTemplateURL :: Lens' CreateChangeSet (Maybe Text) -ccsTemplateURL = lens _ccsTemplateURL (\ s a -> s{_ccsTemplateURL = a}) - --- | A description to help you identify this change set. -ccsDescription :: Lens' CreateChangeSet (Maybe Text) -ccsDescription = lens _ccsDescription (\ s a -> s{_ccsDescription = a}) - --- | A list of values that you must specify before AWS CloudFormation can update certain stacks. Some stack templates might include resources that can affect permissions in your AWS account, for example, by creating new AWS Identity and Access Management (IAM) users. For those stacks, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ . The following resources require you to specify this parameter: , , , , , , and . If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify @CAPABILITY_NAMED_IAM@ . If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see . -ccsCapabilities :: Lens' CreateChangeSet [Capability] -ccsCapabilities = lens _ccsCapabilities (\ s a -> s{_ccsCapabilities = a}) . _Default . _Coerce - --- | The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. -ccsRollbackConfiguration :: Lens' CreateChangeSet (Maybe RollbackConfiguration) -ccsRollbackConfiguration = lens _ccsRollbackConfiguration (\ s a -> s{_ccsRollbackConfiguration = a}) - --- | The template resource types that you have permissions to work with if you execute this change set, such as @AWS::EC2::Instance@ , @AWS::EC2::*@ , or @Custom::MyCustomInstance@ . If the list of resource types doesn't include a resource type that you're updating, the stack update fails. By default, AWS CloudFormation grants permissions to all resource types. AWS Identity and Access Management (IAM) uses this parameter for condition keys in IAM policies for AWS CloudFormation. For more information, see in the AWS CloudFormation User Guide. -ccsResourceTypes :: Lens' CreateChangeSet [Text] -ccsResourceTypes = lens _ccsResourceTypes (\ s a -> s{_ccsResourceTypes = a}) . _Default . _Coerce - --- | Key-value pairs to associate with this stack. AWS CloudFormation also propagates these tags to resources in the stack. You can specify a maximum of 50 tags. -ccsTags :: Lens' CreateChangeSet [Tag] -ccsTags = lens _ccsTags (\ s a -> s{_ccsTags = a}) . _Default . _Coerce - --- | The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes when executing the change set. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. -ccsRoleARN :: Lens' CreateChangeSet (Maybe Text) -ccsRoleARN = lens _ccsRoleARN (\ s a -> s{_ccsRoleARN = a}) - --- | The name or the unique ID of the stack for which you are creating a change set. AWS CloudFormation generates the change set by comparing this stack's information with the information that you submit, such as a modified template or different parameter input values. -ccsStackName :: Lens' CreateChangeSet Text -ccsStackName = lens _ccsStackName (\ s a -> s{_ccsStackName = a}) - --- | The name of the change set. The name must be unique among all change sets that are associated with the specified stack. A change set name can contain only alphanumeric, case sensitive characters and hyphens. It must start with an alphabetic character and cannot exceed 128 characters. -ccsChangeSetName :: Lens' CreateChangeSet Text -ccsChangeSetName = lens _ccsChangeSetName (\ s a -> s{_ccsChangeSetName = a}) - -instance AWSRequest CreateChangeSet where - type Rs CreateChangeSet = CreateChangeSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "CreateChangeSetResult" - (\ s h x -> - CreateChangeSetResponse' <$> - (x .@? "Id") <*> (x .@? "StackId") <*> - (pure (fromEnum s))) - -instance Hashable CreateChangeSet where - -instance NFData CreateChangeSet where - -instance ToHeaders CreateChangeSet where - toHeaders = const mempty - -instance ToPath CreateChangeSet where - toPath = const "/" - -instance ToQuery CreateChangeSet where - toQuery CreateChangeSet'{..} - = mconcat - ["Action" =: ("CreateChangeSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "ChangeSetType" =: _ccsChangeSetType, - "UsePreviousTemplate" =: _ccsUsePreviousTemplate, - "ClientToken" =: _ccsClientToken, - "NotificationARNs" =: - toQuery - (toQueryList "member" <$> _ccsNotificationARNs), - "Parameters" =: - toQuery (toQueryList "member" <$> _ccsParameters), - "TemplateBody" =: _ccsTemplateBody, - "TemplateURL" =: _ccsTemplateURL, - "Description" =: _ccsDescription, - "Capabilities" =: - toQuery (toQueryList "member" <$> _ccsCapabilities), - "RollbackConfiguration" =: _ccsRollbackConfiguration, - "ResourceTypes" =: - toQuery (toQueryList "member" <$> _ccsResourceTypes), - "Tags" =: - toQuery (toQueryList "member" <$> _ccsTags), - "RoleARN" =: _ccsRoleARN, - "StackName" =: _ccsStackName, - "ChangeSetName" =: _ccsChangeSetName] - --- | The output for the 'CreateChangeSet' action. --- --- --- --- /See:/ 'createChangeSetResponse' smart constructor. -data CreateChangeSetResponse = CreateChangeSetResponse' - { _ccsrsId :: !(Maybe Text) - , _ccsrsStackId :: !(Maybe Text) - , _ccsrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateChangeSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ccsrsId' - The Amazon Resource Name (ARN) of the change set. --- --- * 'ccsrsStackId' - The unique ID of the stack. --- --- * 'ccsrsResponseStatus' - -- | The response status code. -createChangeSetResponse - :: Int -- ^ 'ccsrsResponseStatus' - -> CreateChangeSetResponse -createChangeSetResponse pResponseStatus_ = - CreateChangeSetResponse' - { _ccsrsId = Nothing - , _ccsrsStackId = Nothing - , _ccsrsResponseStatus = pResponseStatus_ - } - - --- | The Amazon Resource Name (ARN) of the change set. -ccsrsId :: Lens' CreateChangeSetResponse (Maybe Text) -ccsrsId = lens _ccsrsId (\ s a -> s{_ccsrsId = a}) - --- | The unique ID of the stack. -ccsrsStackId :: Lens' CreateChangeSetResponse (Maybe Text) -ccsrsStackId = lens _ccsrsStackId (\ s a -> s{_ccsrsStackId = a}) - --- | -- | The response status code. -ccsrsResponseStatus :: Lens' CreateChangeSetResponse Int -ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a}) - -instance NFData CreateChangeSetResponse where diff --git a/gen/Network/AWS/CloudFormation/CreateStack.hs b/gen/Network/AWS/CloudFormation/CreateStack.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/CreateStack.hs +++ /dev/null @@ -1,300 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.CreateStack --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Creates a stack as specified in the template. After the call completes successfully, the stack creation starts. You can check the status of the stack via the 'DescribeStacks' API. --- --- -module Network.AWS.CloudFormation.CreateStack - ( - -- * Creating a Request - createStack - , CreateStack - -- * Request Lenses - , csDisableRollback - , csNotificationARNs - , csEnableTerminationProtection - , csStackPolicyBody - , csParameters - , csStackPolicyURL - , csTemplateBody - , csTemplateURL - , csClientRequestToken - , csCapabilities - , csRollbackConfiguration - , csOnFailure - , csResourceTypes - , csTags - , csTimeoutInMinutes - , csRoleARN - , csStackName - - -- * Destructuring the Response - , createStackResponse - , CreateStackResponse - -- * Response Lenses - , csrsStackId - , csrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'CreateStack' action. --- --- --- --- /See:/ 'createStack' smart constructor. -data CreateStack = CreateStack' - { _csDisableRollback :: !(Maybe Bool) - , _csNotificationARNs :: !(Maybe [Text]) - , _csEnableTerminationProtection :: !(Maybe Bool) - , _csStackPolicyBody :: !(Maybe Text) - , _csParameters :: !(Maybe [Parameter]) - , _csStackPolicyURL :: !(Maybe Text) - , _csTemplateBody :: !(Maybe Text) - , _csTemplateURL :: !(Maybe Text) - , _csClientRequestToken :: !(Maybe Text) - , _csCapabilities :: !(Maybe [Capability]) - , _csRollbackConfiguration :: !(Maybe RollbackConfiguration) - , _csOnFailure :: !(Maybe OnFailure) - , _csResourceTypes :: !(Maybe [Text]) - , _csTags :: !(Maybe [Tag]) - , _csTimeoutInMinutes :: !(Maybe Nat) - , _csRoleARN :: !(Maybe Text) - , _csStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateStack' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csDisableRollback' - Set to @true@ to disable rollback of the stack if stack creation failed. You can specify either @DisableRollback@ or @OnFailure@ , but not both. Default: @false@ --- --- * 'csNotificationARNs' - The Simple Notification Service (SNS) topic ARNs to publish stack related events. You can find your SNS topic ARNs using the SNS console or your Command Line Interface (CLI). --- --- * 'csEnableTerminationProtection' - Whether to enable termination protection on the specified stack. If a user attempts to delete a stack with termination protection enabled, the operation fails and the stack remains unchanged. For more information, see in the /AWS CloudFormation User Guide/ . Termination protection is disabled on stacks by default. For , termination protection is set on the root stack and cannot be changed directly on the nested stack. --- --- * 'csStackPolicyBody' - Structure containing the stack policy body. For more information, go to in the /AWS CloudFormation User Guide/ . You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. --- --- * 'csParameters' - A list of @Parameter@ structures that specify input parameters for the stack. For more information, see the data type. --- --- * 'csStackPolicyURL' - Location of a file containing the stack policy. The URL must point to a policy (maximum size: 16 KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. --- --- * 'csTemplateBody' - Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must specify either the @TemplateBody@ or the @TemplateURL@ parameter, but not both. --- --- * 'csTemplateURL' - Location of file containing the template body. The URL must point to a template (max size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information, go to the in the AWS CloudFormation User Guide. Conditional: You must specify either the @TemplateBody@ or the @TemplateURL@ parameter, but not both. --- --- * 'csClientRequestToken' - A unique identifier for this @CreateStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to create a stack with the same name. You might retry @CreateStack@ requests to ensure that AWS CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . --- --- * 'csCapabilities' - A list of values that you must specify before AWS CloudFormation can create certain stacks. Some stack templates might include resources that can affect permissions in your AWS account, for example, by creating new AWS Identity and Access Management (IAM) users. For those stacks, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ . The following resources require you to specify this parameter: , , , , , , and . If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify @CAPABILITY_NAMED_IAM@ . If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see . --- --- * 'csRollbackConfiguration' - The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. --- --- * 'csOnFailure' - Determines what action will be taken if stack creation fails. This must be one of: DO_NOTHING, ROLLBACK, or DELETE. You can specify either @OnFailure@ or @DisableRollback@ , but not both. Default: @ROLLBACK@ --- --- * 'csResourceTypes' - The template resource types that you have permissions to work with for this create stack action, such as @AWS::EC2::Instance@ , @AWS::EC2::*@ , or @Custom::MyCustomInstance@ . Use the following syntax to describe template resource types: @AWS::*@ (for all AWS resource), @Custom::*@ (for all custom resources), @Custom::/logical_ID/ @ (for a specific custom resource), @AWS::/service_name/ ::*@ (for all resources of a particular AWS service), and @AWS::/service_name/ ::/resource_logical_ID/ @ (for a specific AWS resource). If the list of resource types doesn't include a resource that you're creating, the stack creation fails. By default, AWS CloudFormation grants permissions to all resource types. AWS Identity and Access Management (IAM) uses this parameter for AWS CloudFormation-specific condition keys in IAM policies. For more information, see . --- --- * 'csTags' - Key-value pairs to associate with this stack. AWS CloudFormation also propagates these tags to the resources created in the stack. A maximum number of 50 tags can be specified. --- --- * 'csTimeoutInMinutes' - The amount of time that can pass before the stack status becomes CREATE_FAILED; if @DisableRollback@ is not set or is set to @false@ , the stack will be rolled back. --- --- * 'csRoleARN' - The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to create the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation always uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. --- --- * 'csStackName' - The name that is associated with the stack. The name must be unique in the region in which you are creating the stack. -createStack - :: Text -- ^ 'csStackName' - -> CreateStack -createStack pStackName_ = - CreateStack' - { _csDisableRollback = Nothing - , _csNotificationARNs = Nothing - , _csEnableTerminationProtection = Nothing - , _csStackPolicyBody = Nothing - , _csParameters = Nothing - , _csStackPolicyURL = Nothing - , _csTemplateBody = Nothing - , _csTemplateURL = Nothing - , _csClientRequestToken = Nothing - , _csCapabilities = Nothing - , _csRollbackConfiguration = Nothing - , _csOnFailure = Nothing - , _csResourceTypes = Nothing - , _csTags = Nothing - , _csTimeoutInMinutes = Nothing - , _csRoleARN = Nothing - , _csStackName = pStackName_ - } - - --- | Set to @true@ to disable rollback of the stack if stack creation failed. You can specify either @DisableRollback@ or @OnFailure@ , but not both. Default: @false@ -csDisableRollback :: Lens' CreateStack (Maybe Bool) -csDisableRollback = lens _csDisableRollback (\ s a -> s{_csDisableRollback = a}) - --- | The Simple Notification Service (SNS) topic ARNs to publish stack related events. You can find your SNS topic ARNs using the SNS console or your Command Line Interface (CLI). -csNotificationARNs :: Lens' CreateStack [Text] -csNotificationARNs = lens _csNotificationARNs (\ s a -> s{_csNotificationARNs = a}) . _Default . _Coerce - --- | Whether to enable termination protection on the specified stack. If a user attempts to delete a stack with termination protection enabled, the operation fails and the stack remains unchanged. For more information, see in the /AWS CloudFormation User Guide/ . Termination protection is disabled on stacks by default. For , termination protection is set on the root stack and cannot be changed directly on the nested stack. -csEnableTerminationProtection :: Lens' CreateStack (Maybe Bool) -csEnableTerminationProtection = lens _csEnableTerminationProtection (\ s a -> s{_csEnableTerminationProtection = a}) - --- | Structure containing the stack policy body. For more information, go to in the /AWS CloudFormation User Guide/ . You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. -csStackPolicyBody :: Lens' CreateStack (Maybe Text) -csStackPolicyBody = lens _csStackPolicyBody (\ s a -> s{_csStackPolicyBody = a}) - --- | A list of @Parameter@ structures that specify input parameters for the stack. For more information, see the data type. -csParameters :: Lens' CreateStack [Parameter] -csParameters = lens _csParameters (\ s a -> s{_csParameters = a}) . _Default . _Coerce - --- | Location of a file containing the stack policy. The URL must point to a policy (maximum size: 16 KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. -csStackPolicyURL :: Lens' CreateStack (Maybe Text) -csStackPolicyURL = lens _csStackPolicyURL (\ s a -> s{_csStackPolicyURL = a}) - --- | Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must specify either the @TemplateBody@ or the @TemplateURL@ parameter, but not both. -csTemplateBody :: Lens' CreateStack (Maybe Text) -csTemplateBody = lens _csTemplateBody (\ s a -> s{_csTemplateBody = a}) - --- | Location of file containing the template body. The URL must point to a template (max size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information, go to the in the AWS CloudFormation User Guide. Conditional: You must specify either the @TemplateBody@ or the @TemplateURL@ parameter, but not both. -csTemplateURL :: Lens' CreateStack (Maybe Text) -csTemplateURL = lens _csTemplateURL (\ s a -> s{_csTemplateURL = a}) - --- | A unique identifier for this @CreateStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to create a stack with the same name. You might retry @CreateStack@ requests to ensure that AWS CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . -csClientRequestToken :: Lens' CreateStack (Maybe Text) -csClientRequestToken = lens _csClientRequestToken (\ s a -> s{_csClientRequestToken = a}) - --- | A list of values that you must specify before AWS CloudFormation can create certain stacks. Some stack templates might include resources that can affect permissions in your AWS account, for example, by creating new AWS Identity and Access Management (IAM) users. For those stacks, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ . The following resources require you to specify this parameter: , , , , , , and . If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify @CAPABILITY_NAMED_IAM@ . If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see . -csCapabilities :: Lens' CreateStack [Capability] -csCapabilities = lens _csCapabilities (\ s a -> s{_csCapabilities = a}) . _Default . _Coerce - --- | The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. -csRollbackConfiguration :: Lens' CreateStack (Maybe RollbackConfiguration) -csRollbackConfiguration = lens _csRollbackConfiguration (\ s a -> s{_csRollbackConfiguration = a}) - --- | Determines what action will be taken if stack creation fails. This must be one of: DO_NOTHING, ROLLBACK, or DELETE. You can specify either @OnFailure@ or @DisableRollback@ , but not both. Default: @ROLLBACK@ -csOnFailure :: Lens' CreateStack (Maybe OnFailure) -csOnFailure = lens _csOnFailure (\ s a -> s{_csOnFailure = a}) - --- | The template resource types that you have permissions to work with for this create stack action, such as @AWS::EC2::Instance@ , @AWS::EC2::*@ , or @Custom::MyCustomInstance@ . Use the following syntax to describe template resource types: @AWS::*@ (for all AWS resource), @Custom::*@ (for all custom resources), @Custom::/logical_ID/ @ (for a specific custom resource), @AWS::/service_name/ ::*@ (for all resources of a particular AWS service), and @AWS::/service_name/ ::/resource_logical_ID/ @ (for a specific AWS resource). If the list of resource types doesn't include a resource that you're creating, the stack creation fails. By default, AWS CloudFormation grants permissions to all resource types. AWS Identity and Access Management (IAM) uses this parameter for AWS CloudFormation-specific condition keys in IAM policies. For more information, see . -csResourceTypes :: Lens' CreateStack [Text] -csResourceTypes = lens _csResourceTypes (\ s a -> s{_csResourceTypes = a}) . _Default . _Coerce - --- | Key-value pairs to associate with this stack. AWS CloudFormation also propagates these tags to the resources created in the stack. A maximum number of 50 tags can be specified. -csTags :: Lens' CreateStack [Tag] -csTags = lens _csTags (\ s a -> s{_csTags = a}) . _Default . _Coerce - --- | The amount of time that can pass before the stack status becomes CREATE_FAILED; if @DisableRollback@ is not set or is set to @false@ , the stack will be rolled back. -csTimeoutInMinutes :: Lens' CreateStack (Maybe Natural) -csTimeoutInMinutes = lens _csTimeoutInMinutes (\ s a -> s{_csTimeoutInMinutes = a}) . mapping _Nat - --- | The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to create the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation always uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. -csRoleARN :: Lens' CreateStack (Maybe Text) -csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a}) - --- | The name that is associated with the stack. The name must be unique in the region in which you are creating the stack. -csStackName :: Lens' CreateStack Text -csStackName = lens _csStackName (\ s a -> s{_csStackName = a}) - -instance AWSRequest CreateStack where - type Rs CreateStack = CreateStackResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "CreateStackResult" - (\ s h x -> - CreateStackResponse' <$> - (x .@? "StackId") <*> (pure (fromEnum s))) - -instance Hashable CreateStack where - -instance NFData CreateStack where - -instance ToHeaders CreateStack where - toHeaders = const mempty - -instance ToPath CreateStack where - toPath = const "/" - -instance ToQuery CreateStack where - toQuery CreateStack'{..} - = mconcat - ["Action" =: ("CreateStack" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "DisableRollback" =: _csDisableRollback, - "NotificationARNs" =: - toQuery - (toQueryList "member" <$> _csNotificationARNs), - "EnableTerminationProtection" =: - _csEnableTerminationProtection, - "StackPolicyBody" =: _csStackPolicyBody, - "Parameters" =: - toQuery (toQueryList "member" <$> _csParameters), - "StackPolicyURL" =: _csStackPolicyURL, - "TemplateBody" =: _csTemplateBody, - "TemplateURL" =: _csTemplateURL, - "ClientRequestToken" =: _csClientRequestToken, - "Capabilities" =: - toQuery (toQueryList "member" <$> _csCapabilities), - "RollbackConfiguration" =: _csRollbackConfiguration, - "OnFailure" =: _csOnFailure, - "ResourceTypes" =: - toQuery (toQueryList "member" <$> _csResourceTypes), - "Tags" =: toQuery (toQueryList "member" <$> _csTags), - "TimeoutInMinutes" =: _csTimeoutInMinutes, - "RoleARN" =: _csRoleARN, "StackName" =: _csStackName] - --- | The output for a 'CreateStack' action. --- --- --- --- /See:/ 'createStackResponse' smart constructor. -data CreateStackResponse = CreateStackResponse' - { _csrsStackId :: !(Maybe Text) - , _csrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateStackResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csrsStackId' - Unique identifier of the stack. --- --- * 'csrsResponseStatus' - -- | The response status code. -createStackResponse - :: Int -- ^ 'csrsResponseStatus' - -> CreateStackResponse -createStackResponse pResponseStatus_ = - CreateStackResponse' - {_csrsStackId = Nothing, _csrsResponseStatus = pResponseStatus_} - - --- | Unique identifier of the stack. -csrsStackId :: Lens' CreateStackResponse (Maybe Text) -csrsStackId = lens _csrsStackId (\ s a -> s{_csrsStackId = a}) - --- | -- | The response status code. -csrsResponseStatus :: Lens' CreateStackResponse Int -csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}) - -instance NFData CreateStackResponse where diff --git a/gen/Network/AWS/CloudFormation/CreateStackInstances.hs b/gen/Network/AWS/CloudFormation/CreateStackInstances.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/CreateStackInstances.hs +++ /dev/null @@ -1,180 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.CreateStackInstances --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Creates stack instances for the specified accounts, within the specified regions. A stack instance refers to a stack in a specific account and region. @Accounts@ and @Regions@ are required parameters—you must specify at least one account and one region. --- --- -module Network.AWS.CloudFormation.CreateStackInstances - ( - -- * Creating a Request - createStackInstances - , CreateStackInstances - -- * Request Lenses - , csiOperationPreferences - , csiOperationId - , csiParameterOverrides - , csiStackSetName - , csiAccounts - , csiRegions - - -- * Destructuring the Response - , createStackInstancesResponse - , CreateStackInstancesResponse - -- * Response Lenses - , csirsOperationId - , csirsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'createStackInstances' smart constructor. -data CreateStackInstances = CreateStackInstances' - { _csiOperationPreferences :: !(Maybe StackSetOperationPreferences) - , _csiOperationId :: !(Maybe Text) - , _csiParameterOverrides :: !(Maybe [Parameter]) - , _csiStackSetName :: !Text - , _csiAccounts :: ![Text] - , _csiRegions :: ![Text] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateStackInstances' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csiOperationPreferences' - Preferences for how AWS CloudFormation performs this stack set operation. --- --- * 'csiOperationId' - The unique identifier for this stack set operation. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You might retry stack set operation requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. Repeating this stack set operation with a new operation ID retries all stack instances whose status is @OUTDATED@ . --- --- * 'csiParameterOverrides' - A list of stack set parameters whose values you want to override in the selected stack instances. Any overridden parameter values will be applied to all stack instances in the specified accounts and regions. When specifying parameters and their values, be aware of how AWS CloudFormation sets parameter values during stack instance operations: * To override the current value for a parameter, include the parameter and specify its value. * To leave a parameter set to its present value, you can do one of the following: * Do not include the parameter in the list. * Include the parameter and specify @UsePreviousValue@ as @true@ . (You cannot specify both a value and set @UsePreviousValue@ to @true@ .) * To set all overridden parameter back to the values specified in the stack set, specify a parameter list but do not include any parameters. * To leave all parameters set to their present values, do not specify this property at all. During stack set updates, any parameter values overridden for a stack instance are not updated, but retain their overridden value. You can only override the parameter /values/ that are specified in the stack set; to add or delete a parameter itself, use to update the stack set template. --- --- * 'csiStackSetName' - The name or unique ID of the stack set that you want to create stack instances from. --- --- * 'csiAccounts' - The names of one or more AWS accounts that you want to create stack instances in the specified region(s) for. --- --- * 'csiRegions' - The names of one or more regions where you want to create stack instances using the specified AWS account(s). -createStackInstances - :: Text -- ^ 'csiStackSetName' - -> CreateStackInstances -createStackInstances pStackSetName_ = - CreateStackInstances' - { _csiOperationPreferences = Nothing - , _csiOperationId = Nothing - , _csiParameterOverrides = Nothing - , _csiStackSetName = pStackSetName_ - , _csiAccounts = mempty - , _csiRegions = mempty - } - - --- | Preferences for how AWS CloudFormation performs this stack set operation. -csiOperationPreferences :: Lens' CreateStackInstances (Maybe StackSetOperationPreferences) -csiOperationPreferences = lens _csiOperationPreferences (\ s a -> s{_csiOperationPreferences = a}) - --- | The unique identifier for this stack set operation. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You might retry stack set operation requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. Repeating this stack set operation with a new operation ID retries all stack instances whose status is @OUTDATED@ . -csiOperationId :: Lens' CreateStackInstances (Maybe Text) -csiOperationId = lens _csiOperationId (\ s a -> s{_csiOperationId = a}) - --- | A list of stack set parameters whose values you want to override in the selected stack instances. Any overridden parameter values will be applied to all stack instances in the specified accounts and regions. When specifying parameters and their values, be aware of how AWS CloudFormation sets parameter values during stack instance operations: * To override the current value for a parameter, include the parameter and specify its value. * To leave a parameter set to its present value, you can do one of the following: * Do not include the parameter in the list. * Include the parameter and specify @UsePreviousValue@ as @true@ . (You cannot specify both a value and set @UsePreviousValue@ to @true@ .) * To set all overridden parameter back to the values specified in the stack set, specify a parameter list but do not include any parameters. * To leave all parameters set to their present values, do not specify this property at all. During stack set updates, any parameter values overridden for a stack instance are not updated, but retain their overridden value. You can only override the parameter /values/ that are specified in the stack set; to add or delete a parameter itself, use to update the stack set template. -csiParameterOverrides :: Lens' CreateStackInstances [Parameter] -csiParameterOverrides = lens _csiParameterOverrides (\ s a -> s{_csiParameterOverrides = a}) . _Default . _Coerce - --- | The name or unique ID of the stack set that you want to create stack instances from. -csiStackSetName :: Lens' CreateStackInstances Text -csiStackSetName = lens _csiStackSetName (\ s a -> s{_csiStackSetName = a}) - --- | The names of one or more AWS accounts that you want to create stack instances in the specified region(s) for. -csiAccounts :: Lens' CreateStackInstances [Text] -csiAccounts = lens _csiAccounts (\ s a -> s{_csiAccounts = a}) . _Coerce - --- | The names of one or more regions where you want to create stack instances using the specified AWS account(s). -csiRegions :: Lens' CreateStackInstances [Text] -csiRegions = lens _csiRegions (\ s a -> s{_csiRegions = a}) . _Coerce - -instance AWSRequest CreateStackInstances where - type Rs CreateStackInstances = - CreateStackInstancesResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "CreateStackInstancesResult" - (\ s h x -> - CreateStackInstancesResponse' <$> - (x .@? "OperationId") <*> (pure (fromEnum s))) - -instance Hashable CreateStackInstances where - -instance NFData CreateStackInstances where - -instance ToHeaders CreateStackInstances where - toHeaders = const mempty - -instance ToPath CreateStackInstances where - toPath = const "/" - -instance ToQuery CreateStackInstances where - toQuery CreateStackInstances'{..} - = mconcat - ["Action" =: ("CreateStackInstances" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "OperationPreferences" =: _csiOperationPreferences, - "OperationId" =: _csiOperationId, - "ParameterOverrides" =: - toQuery - (toQueryList "member" <$> _csiParameterOverrides), - "StackSetName" =: _csiStackSetName, - "Accounts" =: toQueryList "member" _csiAccounts, - "Regions" =: toQueryList "member" _csiRegions] - --- | /See:/ 'createStackInstancesResponse' smart constructor. -data CreateStackInstancesResponse = CreateStackInstancesResponse' - { _csirsOperationId :: !(Maybe Text) - , _csirsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateStackInstancesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csirsOperationId' - The unique identifier for this stack set operation. --- --- * 'csirsResponseStatus' - -- | The response status code. -createStackInstancesResponse - :: Int -- ^ 'csirsResponseStatus' - -> CreateStackInstancesResponse -createStackInstancesResponse pResponseStatus_ = - CreateStackInstancesResponse' - {_csirsOperationId = Nothing, _csirsResponseStatus = pResponseStatus_} - - --- | The unique identifier for this stack set operation. -csirsOperationId :: Lens' CreateStackInstancesResponse (Maybe Text) -csirsOperationId = lens _csirsOperationId (\ s a -> s{_csirsOperationId = a}) - --- | -- | The response status code. -csirsResponseStatus :: Lens' CreateStackInstancesResponse Int -csirsResponseStatus = lens _csirsResponseStatus (\ s a -> s{_csirsResponseStatus = a}) - -instance NFData CreateStackInstancesResponse where diff --git a/gen/Network/AWS/CloudFormation/CreateStackSet.hs b/gen/Network/AWS/CloudFormation/CreateStackSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/CreateStackSet.hs +++ /dev/null @@ -1,210 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.CreateStackSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Creates a stack set. --- --- -module Network.AWS.CloudFormation.CreateStackSet - ( - -- * Creating a Request - createStackSet - , CreateStackSet - -- * Request Lenses - , cssAdministrationRoleARN - , cssParameters - , cssTemplateBody - , cssTemplateURL - , cssClientRequestToken - , cssDescription - , cssCapabilities - , cssTags - , cssStackSetName - - -- * Destructuring the Response - , createStackSetResponse - , CreateStackSetResponse - -- * Response Lenses - , cssrsStackSetId - , cssrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'createStackSet' smart constructor. -data CreateStackSet = CreateStackSet' - { _cssAdministrationRoleARN :: !(Maybe Text) - , _cssParameters :: !(Maybe [Parameter]) - , _cssTemplateBody :: !(Maybe Text) - , _cssTemplateURL :: !(Maybe Text) - , _cssClientRequestToken :: !(Maybe Text) - , _cssDescription :: !(Maybe Text) - , _cssCapabilities :: !(Maybe [Capability]) - , _cssTags :: !(Maybe [Tag]) - , _cssStackSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateStackSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cssAdministrationRoleARN' - The Amazon Resource Number (ARN) of the IAM role to use to create this stack set. Specify an IAM role only if you are using customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'cssParameters' - The input parameters for the stack set template. --- --- * 'cssTemplateBody' - The structure that contains the template body, with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both. --- --- * 'cssTemplateURL' - The location of the file that contains the template body. The URL must point to a template (maximum size: 460,800 bytes) that's located in an Amazon S3 bucket. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both. --- --- * 'cssClientRequestToken' - A unique identifier for this @CreateStackSet@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to create another stack set with the same name. You might retry @CreateStackSet@ requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. --- --- * 'cssDescription' - A description of the stack set. You can use the description to identify the stack set's purpose or other important information. --- --- * 'cssCapabilities' - A list of values that you must specify before AWS CloudFormation can create certain stack sets. Some stack set templates might include resources that can affect permissions in your AWS account—for example, by creating new AWS Identity and Access Management (IAM) users. For those stack sets, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are CAPABILITY_IAM and CAPABILITY_NAMED_IAM. The following resources require you to specify this parameter: * AWS::IAM::AccessKey * AWS::IAM::Group * AWS::IAM::InstanceProfile * AWS::IAM::Policy * AWS::IAM::Role * AWS::IAM::User * AWS::IAM::UserToGroupAddition If your stack template contains these resources, we recommend that you review all permissions that are associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see --- --- * 'cssTags' - The key-value pairs to associate with this stack set and the stacks created from it. AWS CloudFormation also propagates these tags to supported resources that are created in the stacks. A maximum number of 50 tags can be specified. If you specify tags as part of a @CreateStackSet@ action, AWS CloudFormation checks to see if you have the required IAM permission to tag resources. If you don't, the entire @CreateStackSet@ action fails with an @access denied@ error, and the stack set is not created. --- --- * 'cssStackSetName' - The name to associate with the stack set. The name must be unique in the region where you create your stack set. -createStackSet - :: Text -- ^ 'cssStackSetName' - -> CreateStackSet -createStackSet pStackSetName_ = - CreateStackSet' - { _cssAdministrationRoleARN = Nothing - , _cssParameters = Nothing - , _cssTemplateBody = Nothing - , _cssTemplateURL = Nothing - , _cssClientRequestToken = Nothing - , _cssDescription = Nothing - , _cssCapabilities = Nothing - , _cssTags = Nothing - , _cssStackSetName = pStackSetName_ - } - - --- | The Amazon Resource Number (ARN) of the IAM role to use to create this stack set. Specify an IAM role only if you are using customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . -cssAdministrationRoleARN :: Lens' CreateStackSet (Maybe Text) -cssAdministrationRoleARN = lens _cssAdministrationRoleARN (\ s a -> s{_cssAdministrationRoleARN = a}) - --- | The input parameters for the stack set template. -cssParameters :: Lens' CreateStackSet [Parameter] -cssParameters = lens _cssParameters (\ s a -> s{_cssParameters = a}) . _Default . _Coerce - --- | The structure that contains the template body, with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both. -cssTemplateBody :: Lens' CreateStackSet (Maybe Text) -cssTemplateBody = lens _cssTemplateBody (\ s a -> s{_cssTemplateBody = a}) - --- | The location of the file that contains the template body. The URL must point to a template (maximum size: 460,800 bytes) that's located in an Amazon S3 bucket. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify either the TemplateBody or the TemplateURL parameter, but not both. -cssTemplateURL :: Lens' CreateStackSet (Maybe Text) -cssTemplateURL = lens _cssTemplateURL (\ s a -> s{_cssTemplateURL = a}) - --- | A unique identifier for this @CreateStackSet@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to create another stack set with the same name. You might retry @CreateStackSet@ requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. -cssClientRequestToken :: Lens' CreateStackSet (Maybe Text) -cssClientRequestToken = lens _cssClientRequestToken (\ s a -> s{_cssClientRequestToken = a}) - --- | A description of the stack set. You can use the description to identify the stack set's purpose or other important information. -cssDescription :: Lens' CreateStackSet (Maybe Text) -cssDescription = lens _cssDescription (\ s a -> s{_cssDescription = a}) - --- | A list of values that you must specify before AWS CloudFormation can create certain stack sets. Some stack set templates might include resources that can affect permissions in your AWS account—for example, by creating new AWS Identity and Access Management (IAM) users. For those stack sets, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are CAPABILITY_IAM and CAPABILITY_NAMED_IAM. The following resources require you to specify this parameter: * AWS::IAM::AccessKey * AWS::IAM::Group * AWS::IAM::InstanceProfile * AWS::IAM::Policy * AWS::IAM::Role * AWS::IAM::User * AWS::IAM::UserToGroupAddition If your stack template contains these resources, we recommend that you review all permissions that are associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see -cssCapabilities :: Lens' CreateStackSet [Capability] -cssCapabilities = lens _cssCapabilities (\ s a -> s{_cssCapabilities = a}) . _Default . _Coerce - --- | The key-value pairs to associate with this stack set and the stacks created from it. AWS CloudFormation also propagates these tags to supported resources that are created in the stacks. A maximum number of 50 tags can be specified. If you specify tags as part of a @CreateStackSet@ action, AWS CloudFormation checks to see if you have the required IAM permission to tag resources. If you don't, the entire @CreateStackSet@ action fails with an @access denied@ error, and the stack set is not created. -cssTags :: Lens' CreateStackSet [Tag] -cssTags = lens _cssTags (\ s a -> s{_cssTags = a}) . _Default . _Coerce - --- | The name to associate with the stack set. The name must be unique in the region where you create your stack set. -cssStackSetName :: Lens' CreateStackSet Text -cssStackSetName = lens _cssStackSetName (\ s a -> s{_cssStackSetName = a}) - -instance AWSRequest CreateStackSet where - type Rs CreateStackSet = CreateStackSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "CreateStackSetResult" - (\ s h x -> - CreateStackSetResponse' <$> - (x .@? "StackSetId") <*> (pure (fromEnum s))) - -instance Hashable CreateStackSet where - -instance NFData CreateStackSet where - -instance ToHeaders CreateStackSet where - toHeaders = const mempty - -instance ToPath CreateStackSet where - toPath = const "/" - -instance ToQuery CreateStackSet where - toQuery CreateStackSet'{..} - = mconcat - ["Action" =: ("CreateStackSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "AdministrationRoleARN" =: _cssAdministrationRoleARN, - "Parameters" =: - toQuery (toQueryList "member" <$> _cssParameters), - "TemplateBody" =: _cssTemplateBody, - "TemplateURL" =: _cssTemplateURL, - "ClientRequestToken" =: _cssClientRequestToken, - "Description" =: _cssDescription, - "Capabilities" =: - toQuery (toQueryList "member" <$> _cssCapabilities), - "Tags" =: - toQuery (toQueryList "member" <$> _cssTags), - "StackSetName" =: _cssStackSetName] - --- | /See:/ 'createStackSetResponse' smart constructor. -data CreateStackSetResponse = CreateStackSetResponse' - { _cssrsStackSetId :: !(Maybe Text) - , _cssrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateStackSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cssrsStackSetId' - The ID of the stack set that you're creating. --- --- * 'cssrsResponseStatus' - -- | The response status code. -createStackSetResponse - :: Int -- ^ 'cssrsResponseStatus' - -> CreateStackSetResponse -createStackSetResponse pResponseStatus_ = - CreateStackSetResponse' - {_cssrsStackSetId = Nothing, _cssrsResponseStatus = pResponseStatus_} - - --- | The ID of the stack set that you're creating. -cssrsStackSetId :: Lens' CreateStackSetResponse (Maybe Text) -cssrsStackSetId = lens _cssrsStackSetId (\ s a -> s{_cssrsStackSetId = a}) - --- | -- | The response status code. -cssrsResponseStatus :: Lens' CreateStackSetResponse Int -cssrsResponseStatus = lens _cssrsResponseStatus (\ s a -> s{_cssrsResponseStatus = a}) - -instance NFData CreateStackSetResponse where diff --git a/gen/Network/AWS/CloudFormation/DeleteChangeSet.hs b/gen/Network/AWS/CloudFormation/DeleteChangeSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DeleteChangeSet.hs +++ /dev/null @@ -1,135 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DeleteChangeSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes the specified change set. Deleting change sets ensures that no one executes the wrong change set. --- --- --- If the call successfully completes, AWS CloudFormation successfully deleted the change set. --- -module Network.AWS.CloudFormation.DeleteChangeSet - ( - -- * Creating a Request - deleteChangeSet - , DeleteChangeSet - -- * Request Lenses - , dcsStackName - , dcsChangeSetName - - -- * Destructuring the Response - , deleteChangeSetResponse - , DeleteChangeSetResponse - -- * Response Lenses - , dcsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'DeleteChangeSet' action. --- --- --- --- /See:/ 'deleteChangeSet' smart constructor. -data DeleteChangeSet = DeleteChangeSet' - { _dcsStackName :: !(Maybe Text) - , _dcsChangeSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteChangeSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcsStackName' - If you specified the name of a change set to delete, specify the stack name or ID (ARN) that is associated with it. --- --- * 'dcsChangeSetName' - The name or Amazon Resource Name (ARN) of the change set that you want to delete. -deleteChangeSet - :: Text -- ^ 'dcsChangeSetName' - -> DeleteChangeSet -deleteChangeSet pChangeSetName_ = - DeleteChangeSet' - {_dcsStackName = Nothing, _dcsChangeSetName = pChangeSetName_} - - --- | If you specified the name of a change set to delete, specify the stack name or ID (ARN) that is associated with it. -dcsStackName :: Lens' DeleteChangeSet (Maybe Text) -dcsStackName = lens _dcsStackName (\ s a -> s{_dcsStackName = a}) - --- | The name or Amazon Resource Name (ARN) of the change set that you want to delete. -dcsChangeSetName :: Lens' DeleteChangeSet Text -dcsChangeSetName = lens _dcsChangeSetName (\ s a -> s{_dcsChangeSetName = a}) - -instance AWSRequest DeleteChangeSet where - type Rs DeleteChangeSet = DeleteChangeSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DeleteChangeSetResult" - (\ s h x -> - DeleteChangeSetResponse' <$> (pure (fromEnum s))) - -instance Hashable DeleteChangeSet where - -instance NFData DeleteChangeSet where - -instance ToHeaders DeleteChangeSet where - toHeaders = const mempty - -instance ToPath DeleteChangeSet where - toPath = const "/" - -instance ToQuery DeleteChangeSet where - toQuery DeleteChangeSet'{..} - = mconcat - ["Action" =: ("DeleteChangeSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackName" =: _dcsStackName, - "ChangeSetName" =: _dcsChangeSetName] - --- | The output for the 'DeleteChangeSet' action. --- --- --- --- /See:/ 'deleteChangeSetResponse' smart constructor. -newtype DeleteChangeSetResponse = DeleteChangeSetResponse' - { _dcsrsResponseStatus :: Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteChangeSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcsrsResponseStatus' - -- | The response status code. -deleteChangeSetResponse - :: Int -- ^ 'dcsrsResponseStatus' - -> DeleteChangeSetResponse -deleteChangeSetResponse pResponseStatus_ = - DeleteChangeSetResponse' {_dcsrsResponseStatus = pResponseStatus_} - - --- | -- | The response status code. -dcsrsResponseStatus :: Lens' DeleteChangeSetResponse Int -dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a}) - -instance NFData DeleteChangeSetResponse where diff --git a/gen/Network/AWS/CloudFormation/DeleteStack.hs b/gen/Network/AWS/CloudFormation/DeleteStack.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DeleteStack.hs +++ /dev/null @@ -1,138 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DeleteStack --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes a specified stack. Once the call completes successfully, stack deletion starts. Deleted stacks do not show up in the 'DescribeStacks' API if the deletion has been completed successfully. --- --- -module Network.AWS.CloudFormation.DeleteStack - ( - -- * Creating a Request - deleteStack - , DeleteStack - -- * Request Lenses - , dsRetainResources - , dsClientRequestToken - , dsRoleARN - , dsStackName - - -- * Destructuring the Response - , deleteStackResponse - , DeleteStackResponse - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'DeleteStack' action. --- --- --- --- /See:/ 'deleteStack' smart constructor. -data DeleteStack = DeleteStack' - { _dsRetainResources :: !(Maybe [Text]) - , _dsClientRequestToken :: !(Maybe Text) - , _dsRoleARN :: !(Maybe Text) - , _dsStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteStack' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsRetainResources' - For stacks in the @DELETE_FAILED@ state, a list of resource logical IDs that are associated with the resources you want to retain. During deletion, AWS CloudFormation deletes the stack but does not delete the retained resources. Retaining resources is useful when you cannot delete a resource, such as a non-empty S3 bucket, but you want to delete the stack. --- --- * 'dsClientRequestToken' - A unique identifier for this @DeleteStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to delete a stack with the same name. You might retry @DeleteStack@ requests to ensure that AWS CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . --- --- * 'dsRoleARN' - The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to delete the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. --- --- * 'dsStackName' - The name or the unique stack ID that is associated with the stack. -deleteStack - :: Text -- ^ 'dsStackName' - -> DeleteStack -deleteStack pStackName_ = - DeleteStack' - { _dsRetainResources = Nothing - , _dsClientRequestToken = Nothing - , _dsRoleARN = Nothing - , _dsStackName = pStackName_ - } - - --- | For stacks in the @DELETE_FAILED@ state, a list of resource logical IDs that are associated with the resources you want to retain. During deletion, AWS CloudFormation deletes the stack but does not delete the retained resources. Retaining resources is useful when you cannot delete a resource, such as a non-empty S3 bucket, but you want to delete the stack. -dsRetainResources :: Lens' DeleteStack [Text] -dsRetainResources = lens _dsRetainResources (\ s a -> s{_dsRetainResources = a}) . _Default . _Coerce - --- | A unique identifier for this @DeleteStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to delete a stack with the same name. You might retry @DeleteStack@ requests to ensure that AWS CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . -dsClientRequestToken :: Lens' DeleteStack (Maybe Text) -dsClientRequestToken = lens _dsClientRequestToken (\ s a -> s{_dsClientRequestToken = a}) - --- | The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to delete the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. -dsRoleARN :: Lens' DeleteStack (Maybe Text) -dsRoleARN = lens _dsRoleARN (\ s a -> s{_dsRoleARN = a}) - --- | The name or the unique stack ID that is associated with the stack. -dsStackName :: Lens' DeleteStack Text -dsStackName = lens _dsStackName (\ s a -> s{_dsStackName = a}) - -instance AWSRequest DeleteStack where - type Rs DeleteStack = DeleteStackResponse - request = postQuery cloudFormation - response = receiveNull DeleteStackResponse' - -instance Hashable DeleteStack where - -instance NFData DeleteStack where - -instance ToHeaders DeleteStack where - toHeaders = const mempty - -instance ToPath DeleteStack where - toPath = const "/" - -instance ToQuery DeleteStack where - toQuery DeleteStack'{..} - = mconcat - ["Action" =: ("DeleteStack" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "RetainResources" =: - toQuery - (toQueryList "member" <$> _dsRetainResources), - "ClientRequestToken" =: _dsClientRequestToken, - "RoleARN" =: _dsRoleARN, "StackName" =: _dsStackName] - --- | /See:/ 'deleteStackResponse' smart constructor. -data DeleteStackResponse = - DeleteStackResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteStackResponse' with the minimum fields required to make a request. --- -deleteStackResponse - :: DeleteStackResponse -deleteStackResponse = DeleteStackResponse' - - -instance NFData DeleteStackResponse where diff --git a/gen/Network/AWS/CloudFormation/DeleteStackInstances.hs b/gen/Network/AWS/CloudFormation/DeleteStackInstances.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DeleteStackInstances.hs +++ /dev/null @@ -1,179 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DeleteStackInstances --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes stack instances for the specified accounts, in the specified regions. --- --- -module Network.AWS.CloudFormation.DeleteStackInstances - ( - -- * Creating a Request - deleteStackInstances - , DeleteStackInstances - -- * Request Lenses - , dsiOperationPreferences - , dsiOperationId - , dsiStackSetName - , dsiAccounts - , dsiRegions - , dsiRetainStacks - - -- * Destructuring the Response - , deleteStackInstancesResponse - , DeleteStackInstancesResponse - -- * Response Lenses - , dsirsOperationId - , dsirsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'deleteStackInstances' smart constructor. -data DeleteStackInstances = DeleteStackInstances' - { _dsiOperationPreferences :: !(Maybe StackSetOperationPreferences) - , _dsiOperationId :: !(Maybe Text) - , _dsiStackSetName :: !Text - , _dsiAccounts :: ![Text] - , _dsiRegions :: ![Text] - , _dsiRetainStacks :: !Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteStackInstances' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsiOperationPreferences' - Preferences for how AWS CloudFormation performs this stack set operation. --- --- * 'dsiOperationId' - The unique identifier for this stack set operation. If you don't specify an operation ID, the SDK generates one automatically. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You can retry stack set operation requests to ensure that AWS CloudFormation successfully received them. Repeating this stack set operation with a new operation ID retries all stack instances whose status is @OUTDATED@ . --- --- * 'dsiStackSetName' - The name or unique ID of the stack set that you want to delete stack instances for. --- --- * 'dsiAccounts' - The names of the AWS accounts that you want to delete stack instances for. --- --- * 'dsiRegions' - The regions where you want to delete stack set instances. --- --- * 'dsiRetainStacks' - Removes the stack instances from the specified stack set, but doesn't delete the stacks. You can't reassociate a retained stack or add an existing, saved stack to a new stack set. For more information, see . -deleteStackInstances - :: Text -- ^ 'dsiStackSetName' - -> Bool -- ^ 'dsiRetainStacks' - -> DeleteStackInstances -deleteStackInstances pStackSetName_ pRetainStacks_ = - DeleteStackInstances' - { _dsiOperationPreferences = Nothing - , _dsiOperationId = Nothing - , _dsiStackSetName = pStackSetName_ - , _dsiAccounts = mempty - , _dsiRegions = mempty - , _dsiRetainStacks = pRetainStacks_ - } - - --- | Preferences for how AWS CloudFormation performs this stack set operation. -dsiOperationPreferences :: Lens' DeleteStackInstances (Maybe StackSetOperationPreferences) -dsiOperationPreferences = lens _dsiOperationPreferences (\ s a -> s{_dsiOperationPreferences = a}) - --- | The unique identifier for this stack set operation. If you don't specify an operation ID, the SDK generates one automatically. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You can retry stack set operation requests to ensure that AWS CloudFormation successfully received them. Repeating this stack set operation with a new operation ID retries all stack instances whose status is @OUTDATED@ . -dsiOperationId :: Lens' DeleteStackInstances (Maybe Text) -dsiOperationId = lens _dsiOperationId (\ s a -> s{_dsiOperationId = a}) - --- | The name or unique ID of the stack set that you want to delete stack instances for. -dsiStackSetName :: Lens' DeleteStackInstances Text -dsiStackSetName = lens _dsiStackSetName (\ s a -> s{_dsiStackSetName = a}) - --- | The names of the AWS accounts that you want to delete stack instances for. -dsiAccounts :: Lens' DeleteStackInstances [Text] -dsiAccounts = lens _dsiAccounts (\ s a -> s{_dsiAccounts = a}) . _Coerce - --- | The regions where you want to delete stack set instances. -dsiRegions :: Lens' DeleteStackInstances [Text] -dsiRegions = lens _dsiRegions (\ s a -> s{_dsiRegions = a}) . _Coerce - --- | Removes the stack instances from the specified stack set, but doesn't delete the stacks. You can't reassociate a retained stack or add an existing, saved stack to a new stack set. For more information, see . -dsiRetainStacks :: Lens' DeleteStackInstances Bool -dsiRetainStacks = lens _dsiRetainStacks (\ s a -> s{_dsiRetainStacks = a}) - -instance AWSRequest DeleteStackInstances where - type Rs DeleteStackInstances = - DeleteStackInstancesResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DeleteStackInstancesResult" - (\ s h x -> - DeleteStackInstancesResponse' <$> - (x .@? "OperationId") <*> (pure (fromEnum s))) - -instance Hashable DeleteStackInstances where - -instance NFData DeleteStackInstances where - -instance ToHeaders DeleteStackInstances where - toHeaders = const mempty - -instance ToPath DeleteStackInstances where - toPath = const "/" - -instance ToQuery DeleteStackInstances where - toQuery DeleteStackInstances'{..} - = mconcat - ["Action" =: ("DeleteStackInstances" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "OperationPreferences" =: _dsiOperationPreferences, - "OperationId" =: _dsiOperationId, - "StackSetName" =: _dsiStackSetName, - "Accounts" =: toQueryList "member" _dsiAccounts, - "Regions" =: toQueryList "member" _dsiRegions, - "RetainStacks" =: _dsiRetainStacks] - --- | /See:/ 'deleteStackInstancesResponse' smart constructor. -data DeleteStackInstancesResponse = DeleteStackInstancesResponse' - { _dsirsOperationId :: !(Maybe Text) - , _dsirsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteStackInstancesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsirsOperationId' - The unique identifier for this stack set operation. --- --- * 'dsirsResponseStatus' - -- | The response status code. -deleteStackInstancesResponse - :: Int -- ^ 'dsirsResponseStatus' - -> DeleteStackInstancesResponse -deleteStackInstancesResponse pResponseStatus_ = - DeleteStackInstancesResponse' - {_dsirsOperationId = Nothing, _dsirsResponseStatus = pResponseStatus_} - - --- | The unique identifier for this stack set operation. -dsirsOperationId :: Lens' DeleteStackInstancesResponse (Maybe Text) -dsirsOperationId = lens _dsirsOperationId (\ s a -> s{_dsirsOperationId = a}) - --- | -- | The response status code. -dsirsResponseStatus :: Lens' DeleteStackInstancesResponse Int -dsirsResponseStatus = lens _dsirsResponseStatus (\ s a -> s{_dsirsResponseStatus = a}) - -instance NFData DeleteStackInstancesResponse where diff --git a/gen/Network/AWS/CloudFormation/DeleteStackSet.hs b/gen/Network/AWS/CloudFormation/DeleteStackSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DeleteStackSet.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DeleteStackSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes a stack set. Before you can delete a stack set, all of its member stack instances must be deleted. For more information about how to do this, see 'DeleteStackInstances' . --- --- -module Network.AWS.CloudFormation.DeleteStackSet - ( - -- * Creating a Request - deleteStackSet - , DeleteStackSet - -- * Request Lenses - , dssStackSetName - - -- * Destructuring the Response - , deleteStackSetResponse - , DeleteStackSetResponse - -- * Response Lenses - , dssrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'deleteStackSet' smart constructor. -newtype DeleteStackSet = DeleteStackSet' - { _dssStackSetName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteStackSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dssStackSetName' - The name or unique ID of the stack set that you're deleting. You can obtain this value by running 'ListStackSets' . -deleteStackSet - :: Text -- ^ 'dssStackSetName' - -> DeleteStackSet -deleteStackSet pStackSetName_ = - DeleteStackSet' {_dssStackSetName = pStackSetName_} - - --- | The name or unique ID of the stack set that you're deleting. You can obtain this value by running 'ListStackSets' . -dssStackSetName :: Lens' DeleteStackSet Text -dssStackSetName = lens _dssStackSetName (\ s a -> s{_dssStackSetName = a}) - -instance AWSRequest DeleteStackSet where - type Rs DeleteStackSet = DeleteStackSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DeleteStackSetResult" - (\ s h x -> - DeleteStackSetResponse' <$> (pure (fromEnum s))) - -instance Hashable DeleteStackSet where - -instance NFData DeleteStackSet where - -instance ToHeaders DeleteStackSet where - toHeaders = const mempty - -instance ToPath DeleteStackSet where - toPath = const "/" - -instance ToQuery DeleteStackSet where - toQuery DeleteStackSet'{..} - = mconcat - ["Action" =: ("DeleteStackSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackSetName" =: _dssStackSetName] - --- | /See:/ 'deleteStackSetResponse' smart constructor. -newtype DeleteStackSetResponse = DeleteStackSetResponse' - { _dssrsResponseStatus :: Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeleteStackSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dssrsResponseStatus' - -- | The response status code. -deleteStackSetResponse - :: Int -- ^ 'dssrsResponseStatus' - -> DeleteStackSetResponse -deleteStackSetResponse pResponseStatus_ = - DeleteStackSetResponse' {_dssrsResponseStatus = pResponseStatus_} - - --- | -- | The response status code. -dssrsResponseStatus :: Lens' DeleteStackSetResponse Int -dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}) - -instance NFData DeleteStackSetResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeAccountLimits.hs b/gen/Network/AWS/CloudFormation/DescribeAccountLimits.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeAccountLimits.hs +++ /dev/null @@ -1,146 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeAccountLimits --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Retrieves your account's AWS CloudFormation limits, such as the maximum number of stacks that you can create in your account. --- --- -module Network.AWS.CloudFormation.DescribeAccountLimits - ( - -- * Creating a Request - describeAccountLimits - , DescribeAccountLimits - -- * Request Lenses - , dalNextToken - - -- * Destructuring the Response - , describeAccountLimitsResponse - , DescribeAccountLimitsResponse - -- * Response Lenses - , dalrsNextToken - , dalrsAccountLimits - , dalrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'DescribeAccountLimits' action. --- --- --- --- /See:/ 'describeAccountLimits' smart constructor. -newtype DescribeAccountLimits = DescribeAccountLimits' - { _dalNextToken :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeAccountLimits' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dalNextToken' - A string that identifies the next page of limits that you want to retrieve. -describeAccountLimits - :: DescribeAccountLimits -describeAccountLimits = DescribeAccountLimits' {_dalNextToken = Nothing} - - --- | A string that identifies the next page of limits that you want to retrieve. -dalNextToken :: Lens' DescribeAccountLimits (Maybe Text) -dalNextToken = lens _dalNextToken (\ s a -> s{_dalNextToken = a}) - -instance AWSRequest DescribeAccountLimits where - type Rs DescribeAccountLimits = - DescribeAccountLimitsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeAccountLimitsResult" - (\ s h x -> - DescribeAccountLimitsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "AccountLimits" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable DescribeAccountLimits where - -instance NFData DescribeAccountLimits where - -instance ToHeaders DescribeAccountLimits where - toHeaders = const mempty - -instance ToPath DescribeAccountLimits where - toPath = const "/" - -instance ToQuery DescribeAccountLimits where - toQuery DescribeAccountLimits'{..} - = mconcat - ["Action" =: ("DescribeAccountLimits" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _dalNextToken] - --- | The output for the 'DescribeAccountLimits' action. --- --- --- --- /See:/ 'describeAccountLimitsResponse' smart constructor. -data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse' - { _dalrsNextToken :: !(Maybe Text) - , _dalrsAccountLimits :: !(Maybe [AccountLimit]) - , _dalrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeAccountLimitsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dalrsNextToken' - If the output exceeds 1 MB in size, a string that identifies the next page of limits. If no additional page exists, this value is null. --- --- * 'dalrsAccountLimits' - An account limit structure that contain a list of AWS CloudFormation account limits and their values. --- --- * 'dalrsResponseStatus' - -- | The response status code. -describeAccountLimitsResponse - :: Int -- ^ 'dalrsResponseStatus' - -> DescribeAccountLimitsResponse -describeAccountLimitsResponse pResponseStatus_ = - DescribeAccountLimitsResponse' - { _dalrsNextToken = Nothing - , _dalrsAccountLimits = Nothing - , _dalrsResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 1 MB in size, a string that identifies the next page of limits. If no additional page exists, this value is null. -dalrsNextToken :: Lens' DescribeAccountLimitsResponse (Maybe Text) -dalrsNextToken = lens _dalrsNextToken (\ s a -> s{_dalrsNextToken = a}) - --- | An account limit structure that contain a list of AWS CloudFormation account limits and their values. -dalrsAccountLimits :: Lens' DescribeAccountLimitsResponse [AccountLimit] -dalrsAccountLimits = lens _dalrsAccountLimits (\ s a -> s{_dalrsAccountLimits = a}) . _Default . _Coerce - --- | -- | The response status code. -dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int -dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a}) - -instance NFData DescribeAccountLimitsResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeChangeSet.hs b/gen/Network/AWS/CloudFormation/DescribeChangeSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeChangeSet.hs +++ /dev/null @@ -1,318 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeChangeSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the inputs for the change set and a list of changes that AWS CloudFormation will make if you execute the change set. For more information, see in the AWS CloudFormation User Guide. --- --- -module Network.AWS.CloudFormation.DescribeChangeSet - ( - -- * Creating a Request - describeChangeSet - , DescribeChangeSet - -- * Request Lenses - , desNextToken - , desStackName - , desChangeSetName - - -- * Destructuring the Response - , describeChangeSetResponse - , DescribeChangeSetResponse - -- * Response Lenses - , desrsCreationTime - , desrsChanges - , desrsNotificationARNs - , desrsChangeSetName - , desrsExecutionStatus - , desrsChangeSetId - , desrsNextToken - , desrsParameters - , desrsStatusReason - , desrsStackId - , desrsDescription - , desrsCapabilities - , desrsRollbackConfiguration - , desrsTags - , desrsStackName - , desrsResponseStatus - , desrsStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'DescribeChangeSet' action. --- --- --- --- /See:/ 'describeChangeSet' smart constructor. -data DescribeChangeSet = DescribeChangeSet' - { _desNextToken :: !(Maybe Text) - , _desStackName :: !(Maybe Text) - , _desChangeSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeChangeSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'desNextToken' - A string (provided by the 'DescribeChangeSet' response output) that identifies the next page of information that you want to retrieve. --- --- * 'desStackName' - If you specified the name of a change set, specify the stack name or ID (ARN) of the change set you want to describe. --- --- * 'desChangeSetName' - The name or Amazon Resource Name (ARN) of the change set that you want to describe. -describeChangeSet - :: Text -- ^ 'desChangeSetName' - -> DescribeChangeSet -describeChangeSet pChangeSetName_ = - DescribeChangeSet' - { _desNextToken = Nothing - , _desStackName = Nothing - , _desChangeSetName = pChangeSetName_ - } - - --- | A string (provided by the 'DescribeChangeSet' response output) that identifies the next page of information that you want to retrieve. -desNextToken :: Lens' DescribeChangeSet (Maybe Text) -desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a}) - --- | If you specified the name of a change set, specify the stack name or ID (ARN) of the change set you want to describe. -desStackName :: Lens' DescribeChangeSet (Maybe Text) -desStackName = lens _desStackName (\ s a -> s{_desStackName = a}) - --- | The name or Amazon Resource Name (ARN) of the change set that you want to describe. -desChangeSetName :: Lens' DescribeChangeSet Text -desChangeSetName = lens _desChangeSetName (\ s a -> s{_desChangeSetName = a}) - -instance AWSRequest DescribeChangeSet where - type Rs DescribeChangeSet = DescribeChangeSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeChangeSetResult" - (\ s h x -> - DescribeChangeSetResponse' <$> - (x .@? "CreationTime") <*> - (x .@? "Changes" .!@ mempty >>= - may (parseXMLList "member")) - <*> - (x .@? "NotificationARNs" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "ChangeSetName") - <*> (x .@? "ExecutionStatus") - <*> (x .@? "ChangeSetId") - <*> (x .@? "NextToken") - <*> - (x .@? "Parameters" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "StatusReason") - <*> (x .@? "StackId") - <*> (x .@? "Description") - <*> - (x .@? "Capabilities" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "RollbackConfiguration") - <*> - (x .@? "Tags" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "StackName") - <*> (pure (fromEnum s)) - <*> (x .@ "Status")) - -instance Hashable DescribeChangeSet where - -instance NFData DescribeChangeSet where - -instance ToHeaders DescribeChangeSet where - toHeaders = const mempty - -instance ToPath DescribeChangeSet where - toPath = const "/" - -instance ToQuery DescribeChangeSet where - toQuery DescribeChangeSet'{..} - = mconcat - ["Action" =: ("DescribeChangeSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _desNextToken, - "StackName" =: _desStackName, - "ChangeSetName" =: _desChangeSetName] - --- | The output for the 'DescribeChangeSet' action. --- --- --- --- /See:/ 'describeChangeSetResponse' smart constructor. -data DescribeChangeSetResponse = DescribeChangeSetResponse' - { _desrsCreationTime :: !(Maybe ISO8601) - , _desrsChanges :: !(Maybe [Change]) - , _desrsNotificationARNs :: !(Maybe [Text]) - , _desrsChangeSetName :: !(Maybe Text) - , _desrsExecutionStatus :: !(Maybe ExecutionStatus) - , _desrsChangeSetId :: !(Maybe Text) - , _desrsNextToken :: !(Maybe Text) - , _desrsParameters :: !(Maybe [Parameter]) - , _desrsStatusReason :: !(Maybe Text) - , _desrsStackId :: !(Maybe Text) - , _desrsDescription :: !(Maybe Text) - , _desrsCapabilities :: !(Maybe [Capability]) - , _desrsRollbackConfiguration :: !(Maybe RollbackConfiguration) - , _desrsTags :: !(Maybe [Tag]) - , _desrsStackName :: !(Maybe Text) - , _desrsResponseStatus :: !Int - , _desrsStatus :: !ChangeSetStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeChangeSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'desrsCreationTime' - The start time when the change set was created, in UTC. --- --- * 'desrsChanges' - A list of @Change@ structures that describes the resources AWS CloudFormation changes if you execute the change set. --- --- * 'desrsNotificationARNs' - The ARNs of the Amazon Simple Notification Service (Amazon SNS) topics that will be associated with the stack if you execute the change set. --- --- * 'desrsChangeSetName' - The name of the change set. --- --- * 'desrsExecutionStatus' - If the change set execution status is @AVAILABLE@ , you can execute the change set. If you can’t execute the change set, the status indicates why. For example, a change set might be in an @UNAVAILABLE@ state because AWS CloudFormation is still creating it or in an @OBSOLETE@ state because the stack was already updated. --- --- * 'desrsChangeSetId' - The ARN of the change set. --- --- * 'desrsNextToken' - If the output exceeds 1 MB, a string that identifies the next page of changes. If there is no additional page, this value is null. --- --- * 'desrsParameters' - A list of @Parameter@ structures that describes the input parameters and their values used to create the change set. For more information, see the data type. --- --- * 'desrsStatusReason' - A description of the change set's status. For example, if your attempt to create a change set failed, AWS CloudFormation shows the error message. --- --- * 'desrsStackId' - The ARN of the stack that is associated with the change set. --- --- * 'desrsDescription' - Information about the change set. --- --- * 'desrsCapabilities' - If you execute the change set, the list of capabilities that were explicitly acknowledged when the change set was created. --- --- * 'desrsRollbackConfiguration' - The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. --- --- * 'desrsTags' - If you execute the change set, the tags that will be associated with the stack. --- --- * 'desrsStackName' - The name of the stack that is associated with the change set. --- --- * 'desrsResponseStatus' - -- | The response status code. --- --- * 'desrsStatus' - The current status of the change set, such as @CREATE_IN_PROGRESS@ , @CREATE_COMPLETE@ , or @FAILED@ . -describeChangeSetResponse - :: Int -- ^ 'desrsResponseStatus' - -> ChangeSetStatus -- ^ 'desrsStatus' - -> DescribeChangeSetResponse -describeChangeSetResponse pResponseStatus_ pStatus_ = - DescribeChangeSetResponse' - { _desrsCreationTime = Nothing - , _desrsChanges = Nothing - , _desrsNotificationARNs = Nothing - , _desrsChangeSetName = Nothing - , _desrsExecutionStatus = Nothing - , _desrsChangeSetId = Nothing - , _desrsNextToken = Nothing - , _desrsParameters = Nothing - , _desrsStatusReason = Nothing - , _desrsStackId = Nothing - , _desrsDescription = Nothing - , _desrsCapabilities = Nothing - , _desrsRollbackConfiguration = Nothing - , _desrsTags = Nothing - , _desrsStackName = Nothing - , _desrsResponseStatus = pResponseStatus_ - , _desrsStatus = pStatus_ - } - - --- | The start time when the change set was created, in UTC. -desrsCreationTime :: Lens' DescribeChangeSetResponse (Maybe UTCTime) -desrsCreationTime = lens _desrsCreationTime (\ s a -> s{_desrsCreationTime = a}) . mapping _Time - --- | A list of @Change@ structures that describes the resources AWS CloudFormation changes if you execute the change set. -desrsChanges :: Lens' DescribeChangeSetResponse [Change] -desrsChanges = lens _desrsChanges (\ s a -> s{_desrsChanges = a}) . _Default . _Coerce - --- | The ARNs of the Amazon Simple Notification Service (Amazon SNS) topics that will be associated with the stack if you execute the change set. -desrsNotificationARNs :: Lens' DescribeChangeSetResponse [Text] -desrsNotificationARNs = lens _desrsNotificationARNs (\ s a -> s{_desrsNotificationARNs = a}) . _Default . _Coerce - --- | The name of the change set. -desrsChangeSetName :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsChangeSetName = lens _desrsChangeSetName (\ s a -> s{_desrsChangeSetName = a}) - --- | If the change set execution status is @AVAILABLE@ , you can execute the change set. If you can’t execute the change set, the status indicates why. For example, a change set might be in an @UNAVAILABLE@ state because AWS CloudFormation is still creating it or in an @OBSOLETE@ state because the stack was already updated. -desrsExecutionStatus :: Lens' DescribeChangeSetResponse (Maybe ExecutionStatus) -desrsExecutionStatus = lens _desrsExecutionStatus (\ s a -> s{_desrsExecutionStatus = a}) - --- | The ARN of the change set. -desrsChangeSetId :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsChangeSetId = lens _desrsChangeSetId (\ s a -> s{_desrsChangeSetId = a}) - --- | If the output exceeds 1 MB, a string that identifies the next page of changes. If there is no additional page, this value is null. -desrsNextToken :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a}) - --- | A list of @Parameter@ structures that describes the input parameters and their values used to create the change set. For more information, see the data type. -desrsParameters :: Lens' DescribeChangeSetResponse [Parameter] -desrsParameters = lens _desrsParameters (\ s a -> s{_desrsParameters = a}) . _Default . _Coerce - --- | A description of the change set's status. For example, if your attempt to create a change set failed, AWS CloudFormation shows the error message. -desrsStatusReason :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsStatusReason = lens _desrsStatusReason (\ s a -> s{_desrsStatusReason = a}) - --- | The ARN of the stack that is associated with the change set. -desrsStackId :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsStackId = lens _desrsStackId (\ s a -> s{_desrsStackId = a}) - --- | Information about the change set. -desrsDescription :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsDescription = lens _desrsDescription (\ s a -> s{_desrsDescription = a}) - --- | If you execute the change set, the list of capabilities that were explicitly acknowledged when the change set was created. -desrsCapabilities :: Lens' DescribeChangeSetResponse [Capability] -desrsCapabilities = lens _desrsCapabilities (\ s a -> s{_desrsCapabilities = a}) . _Default . _Coerce - --- | The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. -desrsRollbackConfiguration :: Lens' DescribeChangeSetResponse (Maybe RollbackConfiguration) -desrsRollbackConfiguration = lens _desrsRollbackConfiguration (\ s a -> s{_desrsRollbackConfiguration = a}) - --- | If you execute the change set, the tags that will be associated with the stack. -desrsTags :: Lens' DescribeChangeSetResponse [Tag] -desrsTags = lens _desrsTags (\ s a -> s{_desrsTags = a}) . _Default . _Coerce - --- | The name of the stack that is associated with the change set. -desrsStackName :: Lens' DescribeChangeSetResponse (Maybe Text) -desrsStackName = lens _desrsStackName (\ s a -> s{_desrsStackName = a}) - --- | -- | The response status code. -desrsResponseStatus :: Lens' DescribeChangeSetResponse Int -desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}) - --- | The current status of the change set, such as @CREATE_IN_PROGRESS@ , @CREATE_COMPLETE@ , or @FAILED@ . -desrsStatus :: Lens' DescribeChangeSetResponse ChangeSetStatus -desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a}) - -instance NFData DescribeChangeSetResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs b/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs +++ /dev/null @@ -1,166 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStackEvents --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns all stack related events for a specified stack in reverse chronological order. For more information about a stack's event history, go to in the AWS CloudFormation User Guide. --- --- --- --- This operation returns paginated results. -module Network.AWS.CloudFormation.DescribeStackEvents - ( - -- * Creating a Request - describeStackEvents - , DescribeStackEvents - -- * Request Lenses - , dseNextToken - , dseStackName - - -- * Destructuring the Response - , describeStackEventsResponse - , DescribeStackEventsResponse - -- * Response Lenses - , dsersNextToken - , dsersStackEvents - , dsersResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'DescribeStackEvents' action. --- --- --- --- /See:/ 'describeStackEvents' smart constructor. -data DescribeStackEvents = DescribeStackEvents' - { _dseNextToken :: !(Maybe Text) - , _dseStackName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackEvents' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dseNextToken' - A string that identifies the next page of events that you want to retrieve. --- --- * 'dseStackName' - The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -describeStackEvents - :: DescribeStackEvents -describeStackEvents = - DescribeStackEvents' {_dseNextToken = Nothing, _dseStackName = Nothing} - - --- | A string that identifies the next page of events that you want to retrieve. -dseNextToken :: Lens' DescribeStackEvents (Maybe Text) -dseNextToken = lens _dseNextToken (\ s a -> s{_dseNextToken = a}) - --- | The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -dseStackName :: Lens' DescribeStackEvents (Maybe Text) -dseStackName = lens _dseStackName (\ s a -> s{_dseStackName = a}) - -instance AWSPager DescribeStackEvents where - page rq rs - | stop (rs ^. dsersNextToken) = Nothing - | stop (rs ^. dsersStackEvents) = Nothing - | otherwise = - Just $ rq & dseNextToken .~ rs ^. dsersNextToken - -instance AWSRequest DescribeStackEvents where - type Rs DescribeStackEvents = - DescribeStackEventsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStackEventsResult" - (\ s h x -> - DescribeStackEventsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "StackEvents" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable DescribeStackEvents where - -instance NFData DescribeStackEvents where - -instance ToHeaders DescribeStackEvents where - toHeaders = const mempty - -instance ToPath DescribeStackEvents where - toPath = const "/" - -instance ToQuery DescribeStackEvents where - toQuery DescribeStackEvents'{..} - = mconcat - ["Action" =: ("DescribeStackEvents" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _dseNextToken, - "StackName" =: _dseStackName] - --- | The output for a 'DescribeStackEvents' action. --- --- --- --- /See:/ 'describeStackEventsResponse' smart constructor. -data DescribeStackEventsResponse = DescribeStackEventsResponse' - { _dsersNextToken :: !(Maybe Text) - , _dsersStackEvents :: !(Maybe [StackEvent]) - , _dsersResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackEventsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsersNextToken' - If the output exceeds 1 MB in size, a string that identifies the next page of events. If no additional page exists, this value is null. --- --- * 'dsersStackEvents' - A list of @StackEvents@ structures. --- --- * 'dsersResponseStatus' - -- | The response status code. -describeStackEventsResponse - :: Int -- ^ 'dsersResponseStatus' - -> DescribeStackEventsResponse -describeStackEventsResponse pResponseStatus_ = - DescribeStackEventsResponse' - { _dsersNextToken = Nothing - , _dsersStackEvents = Nothing - , _dsersResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 1 MB in size, a string that identifies the next page of events. If no additional page exists, this value is null. -dsersNextToken :: Lens' DescribeStackEventsResponse (Maybe Text) -dsersNextToken = lens _dsersNextToken (\ s a -> s{_dsersNextToken = a}) - --- | A list of @StackEvents@ structures. -dsersStackEvents :: Lens' DescribeStackEventsResponse [StackEvent] -dsersStackEvents = lens _dsersStackEvents (\ s a -> s{_dsersStackEvents = a}) . _Default . _Coerce - --- | -- | The response status code. -dsersResponseStatus :: Lens' DescribeStackEventsResponse Int -dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a}) - -instance NFData DescribeStackEventsResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeStackInstance.hs b/gen/Network/AWS/CloudFormation/DescribeStackInstance.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStackInstance.hs +++ /dev/null @@ -1,152 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStackInstance --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the stack instance that's associated with the specified stack set, AWS account, and region. --- --- --- For a list of stack instances that are associated with a specific stack set, use 'ListStackInstances' . --- -module Network.AWS.CloudFormation.DescribeStackInstance - ( - -- * Creating a Request - describeStackInstance - , DescribeStackInstance - -- * Request Lenses - , dStackSetName - , dStackInstanceAccount - , dStackInstanceRegion - - -- * Destructuring the Response - , describeStackInstanceResponse - , DescribeStackInstanceResponse - -- * Response Lenses - , dsisrsStackInstance - , dsisrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'describeStackInstance' smart constructor. -data DescribeStackInstance = DescribeStackInstance' - { _dStackSetName :: !Text - , _dStackInstanceAccount :: !Text - , _dStackInstanceRegion :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackInstance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dStackSetName' - The name or the unique stack ID of the stack set that you want to get stack instance information for. --- --- * 'dStackInstanceAccount' - The ID of an AWS account that's associated with this stack instance. --- --- * 'dStackInstanceRegion' - The name of a region that's associated with this stack instance. -describeStackInstance - :: Text -- ^ 'dStackSetName' - -> Text -- ^ 'dStackInstanceAccount' - -> Text -- ^ 'dStackInstanceRegion' - -> DescribeStackInstance -describeStackInstance pStackSetName_ pStackInstanceAccount_ pStackInstanceRegion_ = - DescribeStackInstance' - { _dStackSetName = pStackSetName_ - , _dStackInstanceAccount = pStackInstanceAccount_ - , _dStackInstanceRegion = pStackInstanceRegion_ - } - - --- | The name or the unique stack ID of the stack set that you want to get stack instance information for. -dStackSetName :: Lens' DescribeStackInstance Text -dStackSetName = lens _dStackSetName (\ s a -> s{_dStackSetName = a}) - --- | The ID of an AWS account that's associated with this stack instance. -dStackInstanceAccount :: Lens' DescribeStackInstance Text -dStackInstanceAccount = lens _dStackInstanceAccount (\ s a -> s{_dStackInstanceAccount = a}) - --- | The name of a region that's associated with this stack instance. -dStackInstanceRegion :: Lens' DescribeStackInstance Text -dStackInstanceRegion = lens _dStackInstanceRegion (\ s a -> s{_dStackInstanceRegion = a}) - -instance AWSRequest DescribeStackInstance where - type Rs DescribeStackInstance = - DescribeStackInstanceResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStackInstanceResult" - (\ s h x -> - DescribeStackInstanceResponse' <$> - (x .@? "StackInstance") <*> (pure (fromEnum s))) - -instance Hashable DescribeStackInstance where - -instance NFData DescribeStackInstance where - -instance ToHeaders DescribeStackInstance where - toHeaders = const mempty - -instance ToPath DescribeStackInstance where - toPath = const "/" - -instance ToQuery DescribeStackInstance where - toQuery DescribeStackInstance'{..} - = mconcat - ["Action" =: ("DescribeStackInstance" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackSetName" =: _dStackSetName, - "StackInstanceAccount" =: _dStackInstanceAccount, - "StackInstanceRegion" =: _dStackInstanceRegion] - --- | /See:/ 'describeStackInstanceResponse' smart constructor. -data DescribeStackInstanceResponse = DescribeStackInstanceResponse' - { _dsisrsStackInstance :: !(Maybe StackInstance) - , _dsisrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackInstanceResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsisrsStackInstance' - The stack instance that matches the specified request parameters. --- --- * 'dsisrsResponseStatus' - -- | The response status code. -describeStackInstanceResponse - :: Int -- ^ 'dsisrsResponseStatus' - -> DescribeStackInstanceResponse -describeStackInstanceResponse pResponseStatus_ = - DescribeStackInstanceResponse' - {_dsisrsStackInstance = Nothing, _dsisrsResponseStatus = pResponseStatus_} - - --- | The stack instance that matches the specified request parameters. -dsisrsStackInstance :: Lens' DescribeStackInstanceResponse (Maybe StackInstance) -dsisrsStackInstance = lens _dsisrsStackInstance (\ s a -> s{_dsisrsStackInstance = a}) - --- | -- | The response status code. -dsisrsResponseStatus :: Lens' DescribeStackInstanceResponse Int -dsisrsResponseStatus = lens _dsisrsResponseStatus (\ s a -> s{_dsisrsResponseStatus = a}) - -instance NFData DescribeStackInstanceResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeStackResource.hs b/gen/Network/AWS/CloudFormation/DescribeStackResource.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStackResource.hs +++ /dev/null @@ -1,150 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStackResource --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns a description of the specified resource in the specified stack. --- --- --- For deleted stacks, DescribeStackResource returns resource information for up to 90 days after the stack has been deleted. --- -module Network.AWS.CloudFormation.DescribeStackResource - ( - -- * Creating a Request - describeStackResource - , DescribeStackResource - -- * Request Lenses - , dsrsStackName - , dsrsLogicalResourceId - - -- * Destructuring the Response - , describeStackResourceResponse - , DescribeStackResourceResponse - -- * Response Lenses - , dsrrsStackResourceDetail - , dsrrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'DescribeStackResource' action. --- --- --- --- /See:/ 'describeStackResource' smart constructor. -data DescribeStackResource = DescribeStackResource' - { _dsrsStackName :: !Text - , _dsrsLogicalResourceId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackResource' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsrsStackName' - The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. --- --- * 'dsrsLogicalResourceId' - The logical name of the resource as specified in the template. Default: There is no default value. -describeStackResource - :: Text -- ^ 'dsrsStackName' - -> Text -- ^ 'dsrsLogicalResourceId' - -> DescribeStackResource -describeStackResource pStackName_ pLogicalResourceId_ = - DescribeStackResource' - {_dsrsStackName = pStackName_, _dsrsLogicalResourceId = pLogicalResourceId_} - - --- | The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -dsrsStackName :: Lens' DescribeStackResource Text -dsrsStackName = lens _dsrsStackName (\ s a -> s{_dsrsStackName = a}) - --- | The logical name of the resource as specified in the template. Default: There is no default value. -dsrsLogicalResourceId :: Lens' DescribeStackResource Text -dsrsLogicalResourceId = lens _dsrsLogicalResourceId (\ s a -> s{_dsrsLogicalResourceId = a}) - -instance AWSRequest DescribeStackResource where - type Rs DescribeStackResource = - DescribeStackResourceResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStackResourceResult" - (\ s h x -> - DescribeStackResourceResponse' <$> - (x .@? "StackResourceDetail") <*> - (pure (fromEnum s))) - -instance Hashable DescribeStackResource where - -instance NFData DescribeStackResource where - -instance ToHeaders DescribeStackResource where - toHeaders = const mempty - -instance ToPath DescribeStackResource where - toPath = const "/" - -instance ToQuery DescribeStackResource where - toQuery DescribeStackResource'{..} - = mconcat - ["Action" =: ("DescribeStackResource" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackName" =: _dsrsStackName, - "LogicalResourceId" =: _dsrsLogicalResourceId] - --- | The output for a 'DescribeStackResource' action. --- --- --- --- /See:/ 'describeStackResourceResponse' smart constructor. -data DescribeStackResourceResponse = DescribeStackResourceResponse' - { _dsrrsStackResourceDetail :: !(Maybe StackResourceDetail) - , _dsrrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackResourceResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsrrsStackResourceDetail' - A @StackResourceDetail@ structure containing the description of the specified resource in the specified stack. --- --- * 'dsrrsResponseStatus' - -- | The response status code. -describeStackResourceResponse - :: Int -- ^ 'dsrrsResponseStatus' - -> DescribeStackResourceResponse -describeStackResourceResponse pResponseStatus_ = - DescribeStackResourceResponse' - { _dsrrsStackResourceDetail = Nothing - , _dsrrsResponseStatus = pResponseStatus_ - } - - --- | A @StackResourceDetail@ structure containing the description of the specified resource in the specified stack. -dsrrsStackResourceDetail :: Lens' DescribeStackResourceResponse (Maybe StackResourceDetail) -dsrrsStackResourceDetail = lens _dsrrsStackResourceDetail (\ s a -> s{_dsrrsStackResourceDetail = a}) - --- | -- | The response status code. -dsrrsResponseStatus :: Lens' DescribeStackResourceResponse Int -dsrrsResponseStatus = lens _dsrrsResponseStatus (\ s a -> s{_dsrrsResponseStatus = a}) - -instance NFData DescribeStackResourceResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeStackResources.hs b/gen/Network/AWS/CloudFormation/DescribeStackResources.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStackResources.hs +++ /dev/null @@ -1,162 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStackResources --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns AWS resource descriptions for running and deleted stacks. If @StackName@ is specified, all the associated resources that are part of the stack are returned. If @PhysicalResourceId@ is specified, the associated resources of the stack that the resource belongs to are returned. --- --- --- For deleted stacks, @DescribeStackResources@ returns resource information for up to 90 days after the stack has been deleted. --- --- You must specify either @StackName@ or @PhysicalResourceId@ , but not both. In addition, you can specify @LogicalResourceId@ to filter the returned result. For more information about resources, the @LogicalResourceId@ and @PhysicalResourceId@ , go to the . --- -module Network.AWS.CloudFormation.DescribeStackResources - ( - -- * Creating a Request - describeStackResources - , DescribeStackResources - -- * Request Lenses - , dsrLogicalResourceId - , dsrPhysicalResourceId - , dsrStackName - - -- * Destructuring the Response - , describeStackResourcesResponse - , DescribeStackResourcesResponse - -- * Response Lenses - , dsrsrsStackResources - , dsrsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'DescribeStackResources' action. --- --- --- --- /See:/ 'describeStackResources' smart constructor. -data DescribeStackResources = DescribeStackResources' - { _dsrLogicalResourceId :: !(Maybe Text) - , _dsrPhysicalResourceId :: !(Maybe Text) - , _dsrStackName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackResources' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsrLogicalResourceId' - The logical name of the resource as specified in the template. Default: There is no default value. --- --- * 'dsrPhysicalResourceId' - The name or unique identifier that corresponds to a physical instance ID of a resource supported by AWS CloudFormation. For example, for an Amazon Elastic Compute Cloud (EC2) instance, @PhysicalResourceId@ corresponds to the @InstanceId@ . You can pass the EC2 @InstanceId@ to @DescribeStackResources@ to find which stack the instance belongs to and what other resources are part of the stack. Required: Conditional. If you do not specify @PhysicalResourceId@ , you must specify @StackName@ . Default: There is no default value. --- --- * 'dsrStackName' - The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. Required: Conditional. If you do not specify @StackName@ , you must specify @PhysicalResourceId@ . -describeStackResources - :: DescribeStackResources -describeStackResources = - DescribeStackResources' - { _dsrLogicalResourceId = Nothing - , _dsrPhysicalResourceId = Nothing - , _dsrStackName = Nothing - } - - --- | The logical name of the resource as specified in the template. Default: There is no default value. -dsrLogicalResourceId :: Lens' DescribeStackResources (Maybe Text) -dsrLogicalResourceId = lens _dsrLogicalResourceId (\ s a -> s{_dsrLogicalResourceId = a}) - --- | The name or unique identifier that corresponds to a physical instance ID of a resource supported by AWS CloudFormation. For example, for an Amazon Elastic Compute Cloud (EC2) instance, @PhysicalResourceId@ corresponds to the @InstanceId@ . You can pass the EC2 @InstanceId@ to @DescribeStackResources@ to find which stack the instance belongs to and what other resources are part of the stack. Required: Conditional. If you do not specify @PhysicalResourceId@ , you must specify @StackName@ . Default: There is no default value. -dsrPhysicalResourceId :: Lens' DescribeStackResources (Maybe Text) -dsrPhysicalResourceId = lens _dsrPhysicalResourceId (\ s a -> s{_dsrPhysicalResourceId = a}) - --- | The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. Required: Conditional. If you do not specify @StackName@ , you must specify @PhysicalResourceId@ . -dsrStackName :: Lens' DescribeStackResources (Maybe Text) -dsrStackName = lens _dsrStackName (\ s a -> s{_dsrStackName = a}) - -instance AWSRequest DescribeStackResources where - type Rs DescribeStackResources = - DescribeStackResourcesResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStackResourcesResult" - (\ s h x -> - DescribeStackResourcesResponse' <$> - (x .@? "StackResources" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable DescribeStackResources where - -instance NFData DescribeStackResources where - -instance ToHeaders DescribeStackResources where - toHeaders = const mempty - -instance ToPath DescribeStackResources where - toPath = const "/" - -instance ToQuery DescribeStackResources where - toQuery DescribeStackResources'{..} - = mconcat - ["Action" =: - ("DescribeStackResources" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "LogicalResourceId" =: _dsrLogicalResourceId, - "PhysicalResourceId" =: _dsrPhysicalResourceId, - "StackName" =: _dsrStackName] - --- | The output for a 'DescribeStackResources' action. --- --- --- --- /See:/ 'describeStackResourcesResponse' smart constructor. -data DescribeStackResourcesResponse = DescribeStackResourcesResponse' - { _dsrsrsStackResources :: !(Maybe [StackResource]) - , _dsrsrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackResourcesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsrsrsStackResources' - A list of @StackResource@ structures. --- --- * 'dsrsrsResponseStatus' - -- | The response status code. -describeStackResourcesResponse - :: Int -- ^ 'dsrsrsResponseStatus' - -> DescribeStackResourcesResponse -describeStackResourcesResponse pResponseStatus_ = - DescribeStackResourcesResponse' - {_dsrsrsStackResources = Nothing, _dsrsrsResponseStatus = pResponseStatus_} - - --- | A list of @StackResource@ structures. -dsrsrsStackResources :: Lens' DescribeStackResourcesResponse [StackResource] -dsrsrsStackResources = lens _dsrsrsStackResources (\ s a -> s{_dsrsrsStackResources = a}) . _Default . _Coerce - --- | -- | The response status code. -dsrsrsResponseStatus :: Lens' DescribeStackResourcesResponse Int -dsrsrsResponseStatus = lens _dsrsrsResponseStatus (\ s a -> s{_dsrsrsResponseStatus = a}) - -instance NFData DescribeStackResourcesResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeStackSet.hs b/gen/Network/AWS/CloudFormation/DescribeStackSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStackSet.hs +++ /dev/null @@ -1,125 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStackSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the description of the specified stack set. --- --- -module Network.AWS.CloudFormation.DescribeStackSet - ( - -- * Creating a Request - describeStackSet - , DescribeStackSet - -- * Request Lenses - , desStackSetName - - -- * Destructuring the Response - , describeStackSetResponse - , DescribeStackSetResponse - -- * Response Lenses - , drsStackSet - , drsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'describeStackSet' smart constructor. -newtype DescribeStackSet = DescribeStackSet' - { _desStackSetName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'desStackSetName' - The name or unique ID of the stack set whose description you want. -describeStackSet - :: Text -- ^ 'desStackSetName' - -> DescribeStackSet -describeStackSet pStackSetName_ = - DescribeStackSet' {_desStackSetName = pStackSetName_} - - --- | The name or unique ID of the stack set whose description you want. -desStackSetName :: Lens' DescribeStackSet Text -desStackSetName = lens _desStackSetName (\ s a -> s{_desStackSetName = a}) - -instance AWSRequest DescribeStackSet where - type Rs DescribeStackSet = DescribeStackSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStackSetResult" - (\ s h x -> - DescribeStackSetResponse' <$> - (x .@? "StackSet") <*> (pure (fromEnum s))) - -instance Hashable DescribeStackSet where - -instance NFData DescribeStackSet where - -instance ToHeaders DescribeStackSet where - toHeaders = const mempty - -instance ToPath DescribeStackSet where - toPath = const "/" - -instance ToQuery DescribeStackSet where - toQuery DescribeStackSet'{..} - = mconcat - ["Action" =: ("DescribeStackSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackSetName" =: _desStackSetName] - --- | /See:/ 'describeStackSetResponse' smart constructor. -data DescribeStackSetResponse = DescribeStackSetResponse' - { _drsStackSet :: !(Maybe StackSet) - , _drsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'drsStackSet' - The specified stack set. --- --- * 'drsResponseStatus' - -- | The response status code. -describeStackSetResponse - :: Int -- ^ 'drsResponseStatus' - -> DescribeStackSetResponse -describeStackSetResponse pResponseStatus_ = - DescribeStackSetResponse' - {_drsStackSet = Nothing, _drsResponseStatus = pResponseStatus_} - - --- | The specified stack set. -drsStackSet :: Lens' DescribeStackSetResponse (Maybe StackSet) -drsStackSet = lens _drsStackSet (\ s a -> s{_drsStackSet = a}) - --- | -- | The response status code. -drsResponseStatus :: Lens' DescribeStackSetResponse Int -drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}) - -instance NFData DescribeStackSetResponse where diff --git a/gen/Network/AWS/CloudFormation/DescribeStackSetOperation.hs b/gen/Network/AWS/CloudFormation/DescribeStackSetOperation.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStackSetOperation.hs +++ /dev/null @@ -1,141 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStackSetOperation --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the description of the specified stack set operation. --- --- -module Network.AWS.CloudFormation.DescribeStackSetOperation - ( - -- * Creating a Request - describeStackSetOperation - , DescribeStackSetOperation - -- * Request Lenses - , dssoStackSetName - , dssoOperationId - - -- * Destructuring the Response - , describeStackSetOperationResponse - , DescribeStackSetOperationResponse - -- * Response Lenses - , dssorsStackSetOperation - , dssorsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'describeStackSetOperation' smart constructor. -data DescribeStackSetOperation = DescribeStackSetOperation' - { _dssoStackSetName :: !Text - , _dssoOperationId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackSetOperation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dssoStackSetName' - The name or the unique stack ID of the stack set for the stack operation. --- --- * 'dssoOperationId' - The unique ID of the stack set operation. -describeStackSetOperation - :: Text -- ^ 'dssoStackSetName' - -> Text -- ^ 'dssoOperationId' - -> DescribeStackSetOperation -describeStackSetOperation pStackSetName_ pOperationId_ = - DescribeStackSetOperation' - {_dssoStackSetName = pStackSetName_, _dssoOperationId = pOperationId_} - - --- | The name or the unique stack ID of the stack set for the stack operation. -dssoStackSetName :: Lens' DescribeStackSetOperation Text -dssoStackSetName = lens _dssoStackSetName (\ s a -> s{_dssoStackSetName = a}) - --- | The unique ID of the stack set operation. -dssoOperationId :: Lens' DescribeStackSetOperation Text -dssoOperationId = lens _dssoOperationId (\ s a -> s{_dssoOperationId = a}) - -instance AWSRequest DescribeStackSetOperation where - type Rs DescribeStackSetOperation = - DescribeStackSetOperationResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStackSetOperationResult" - (\ s h x -> - DescribeStackSetOperationResponse' <$> - (x .@? "StackSetOperation") <*> (pure (fromEnum s))) - -instance Hashable DescribeStackSetOperation where - -instance NFData DescribeStackSetOperation where - -instance ToHeaders DescribeStackSetOperation where - toHeaders = const mempty - -instance ToPath DescribeStackSetOperation where - toPath = const "/" - -instance ToQuery DescribeStackSetOperation where - toQuery DescribeStackSetOperation'{..} - = mconcat - ["Action" =: - ("DescribeStackSetOperation" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackSetName" =: _dssoStackSetName, - "OperationId" =: _dssoOperationId] - --- | /See:/ 'describeStackSetOperationResponse' smart constructor. -data DescribeStackSetOperationResponse = DescribeStackSetOperationResponse' - { _dssorsStackSetOperation :: !(Maybe StackSetOperation) - , _dssorsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStackSetOperationResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dssorsStackSetOperation' - The specified stack set operation. --- --- * 'dssorsResponseStatus' - -- | The response status code. -describeStackSetOperationResponse - :: Int -- ^ 'dssorsResponseStatus' - -> DescribeStackSetOperationResponse -describeStackSetOperationResponse pResponseStatus_ = - DescribeStackSetOperationResponse' - { _dssorsStackSetOperation = Nothing - , _dssorsResponseStatus = pResponseStatus_ - } - - --- | The specified stack set operation. -dssorsStackSetOperation :: Lens' DescribeStackSetOperationResponse (Maybe StackSetOperation) -dssorsStackSetOperation = lens _dssorsStackSetOperation (\ s a -> s{_dssorsStackSetOperation = a}) - --- | -- | The response status code. -dssorsResponseStatus :: Lens' DescribeStackSetOperationResponse Int -dssorsResponseStatus = lens _dssorsResponseStatus (\ s a -> s{_dssorsResponseStatus = a}) - -instance NFData DescribeStackSetOperationResponse - where diff --git a/gen/Network/AWS/CloudFormation/DescribeStacks.hs b/gen/Network/AWS/CloudFormation/DescribeStacks.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/DescribeStacks.hs +++ /dev/null @@ -1,164 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.DescribeStacks --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the description for the specified stack; if no stack name was specified, then it returns the description for all the stacks created. --- --- --- --- This operation returns paginated results. -module Network.AWS.CloudFormation.DescribeStacks - ( - -- * Creating a Request - describeStacks - , DescribeStacks - -- * Request Lenses - , dNextToken - , dStackName - - -- * Destructuring the Response - , describeStacksResponse - , DescribeStacksResponse - -- * Response Lenses - , dsrsNextToken - , dsrsStacks - , dsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'DescribeStacks' action. --- --- --- --- /See:/ 'describeStacks' smart constructor. -data DescribeStacks = DescribeStacks' - { _dNextToken :: !(Maybe Text) - , _dStackName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStacks' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dNextToken' - A string that identifies the next page of stacks that you want to retrieve. --- --- * 'dStackName' - The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -describeStacks - :: DescribeStacks -describeStacks = DescribeStacks' {_dNextToken = Nothing, _dStackName = Nothing} - - --- | A string that identifies the next page of stacks that you want to retrieve. -dNextToken :: Lens' DescribeStacks (Maybe Text) -dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a}) - --- | The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -dStackName :: Lens' DescribeStacks (Maybe Text) -dStackName = lens _dStackName (\ s a -> s{_dStackName = a}) - -instance AWSPager DescribeStacks where - page rq rs - | stop (rs ^. dsrsNextToken) = Nothing - | stop (rs ^. dsrsStacks) = Nothing - | otherwise = - Just $ rq & dNextToken .~ rs ^. dsrsNextToken - -instance AWSRequest DescribeStacks where - type Rs DescribeStacks = DescribeStacksResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "DescribeStacksResult" - (\ s h x -> - DescribeStacksResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Stacks" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable DescribeStacks where - -instance NFData DescribeStacks where - -instance ToHeaders DescribeStacks where - toHeaders = const mempty - -instance ToPath DescribeStacks where - toPath = const "/" - -instance ToQuery DescribeStacks where - toQuery DescribeStacks'{..} - = mconcat - ["Action" =: ("DescribeStacks" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _dNextToken, - "StackName" =: _dStackName] - --- | The output for a 'DescribeStacks' action. --- --- --- --- /See:/ 'describeStacksResponse' smart constructor. -data DescribeStacksResponse = DescribeStacksResponse' - { _dsrsNextToken :: !(Maybe Text) - , _dsrsStacks :: !(Maybe [Stack]) - , _dsrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeStacksResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dsrsNextToken' - If the output exceeds 1 MB in size, a string that identifies the next page of stacks. If no additional page exists, this value is null. --- --- * 'dsrsStacks' - A list of stack structures. --- --- * 'dsrsResponseStatus' - -- | The response status code. -describeStacksResponse - :: Int -- ^ 'dsrsResponseStatus' - -> DescribeStacksResponse -describeStacksResponse pResponseStatus_ = - DescribeStacksResponse' - { _dsrsNextToken = Nothing - , _dsrsStacks = Nothing - , _dsrsResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 1 MB in size, a string that identifies the next page of stacks. If no additional page exists, this value is null. -dsrsNextToken :: Lens' DescribeStacksResponse (Maybe Text) -dsrsNextToken = lens _dsrsNextToken (\ s a -> s{_dsrsNextToken = a}) - --- | A list of stack structures. -dsrsStacks :: Lens' DescribeStacksResponse [Stack] -dsrsStacks = lens _dsrsStacks (\ s a -> s{_dsrsStacks = a}) . _Default . _Coerce - --- | -- | The response status code. -dsrsResponseStatus :: Lens' DescribeStacksResponse Int -dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}) - -instance NFData DescribeStacksResponse where diff --git a/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs b/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs +++ /dev/null @@ -1,156 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.EstimateTemplateCost --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the estimated monthly cost of a template. The return value is an AWS Simple Monthly Calculator URL with a query string that describes the resources required to run the template. --- --- -module Network.AWS.CloudFormation.EstimateTemplateCost - ( - -- * Creating a Request - estimateTemplateCost - , EstimateTemplateCost - -- * Request Lenses - , etcParameters - , etcTemplateBody - , etcTemplateURL - - -- * Destructuring the Response - , estimateTemplateCostResponse - , EstimateTemplateCostResponse - -- * Response Lenses - , etcrsURL - , etcrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for an 'EstimateTemplateCost' action. --- --- --- --- /See:/ 'estimateTemplateCost' smart constructor. -data EstimateTemplateCost = EstimateTemplateCost' - { _etcParameters :: !(Maybe [Parameter]) - , _etcTemplateBody :: !(Maybe Text) - , _etcTemplateURL :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EstimateTemplateCost' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'etcParameters' - A list of @Parameter@ structures that specify input parameters. --- --- * 'etcTemplateBody' - Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. (For more information, go to in the AWS CloudFormation User Guide.) Conditional: You must pass @TemplateBody@ or @TemplateURL@ . If both are passed, only @TemplateBody@ is used. --- --- * 'etcTemplateURL' - Location of file containing the template body. The URL must point to a template that is located in an Amazon S3 bucket. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must pass @TemplateURL@ or @TemplateBody@ . If both are passed, only @TemplateBody@ is used. -estimateTemplateCost - :: EstimateTemplateCost -estimateTemplateCost = - EstimateTemplateCost' - { _etcParameters = Nothing - , _etcTemplateBody = Nothing - , _etcTemplateURL = Nothing - } - - --- | A list of @Parameter@ structures that specify input parameters. -etcParameters :: Lens' EstimateTemplateCost [Parameter] -etcParameters = lens _etcParameters (\ s a -> s{_etcParameters = a}) . _Default . _Coerce - --- | Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. (For more information, go to in the AWS CloudFormation User Guide.) Conditional: You must pass @TemplateBody@ or @TemplateURL@ . If both are passed, only @TemplateBody@ is used. -etcTemplateBody :: Lens' EstimateTemplateCost (Maybe Text) -etcTemplateBody = lens _etcTemplateBody (\ s a -> s{_etcTemplateBody = a}) - --- | Location of file containing the template body. The URL must point to a template that is located in an Amazon S3 bucket. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must pass @TemplateURL@ or @TemplateBody@ . If both are passed, only @TemplateBody@ is used. -etcTemplateURL :: Lens' EstimateTemplateCost (Maybe Text) -etcTemplateURL = lens _etcTemplateURL (\ s a -> s{_etcTemplateURL = a}) - -instance AWSRequest EstimateTemplateCost where - type Rs EstimateTemplateCost = - EstimateTemplateCostResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "EstimateTemplateCostResult" - (\ s h x -> - EstimateTemplateCostResponse' <$> - (x .@? "Url") <*> (pure (fromEnum s))) - -instance Hashable EstimateTemplateCost where - -instance NFData EstimateTemplateCost where - -instance ToHeaders EstimateTemplateCost where - toHeaders = const mempty - -instance ToPath EstimateTemplateCost where - toPath = const "/" - -instance ToQuery EstimateTemplateCost where - toQuery EstimateTemplateCost'{..} - = mconcat - ["Action" =: ("EstimateTemplateCost" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "Parameters" =: - toQuery (toQueryList "member" <$> _etcParameters), - "TemplateBody" =: _etcTemplateBody, - "TemplateURL" =: _etcTemplateURL] - --- | The output for a 'EstimateTemplateCost' action. --- --- --- --- /See:/ 'estimateTemplateCostResponse' smart constructor. -data EstimateTemplateCostResponse = EstimateTemplateCostResponse' - { _etcrsURL :: !(Maybe Text) - , _etcrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EstimateTemplateCostResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'etcrsURL' - An AWS Simple Monthly Calculator URL with a query string that describes the resources required to run the template. --- --- * 'etcrsResponseStatus' - -- | The response status code. -estimateTemplateCostResponse - :: Int -- ^ 'etcrsResponseStatus' - -> EstimateTemplateCostResponse -estimateTemplateCostResponse pResponseStatus_ = - EstimateTemplateCostResponse' - {_etcrsURL = Nothing, _etcrsResponseStatus = pResponseStatus_} - - --- | An AWS Simple Monthly Calculator URL with a query string that describes the resources required to run the template. -etcrsURL :: Lens' EstimateTemplateCostResponse (Maybe Text) -etcrsURL = lens _etcrsURL (\ s a -> s{_etcrsURL = a}) - --- | -- | The response status code. -etcrsResponseStatus :: Lens' EstimateTemplateCostResponse Int -etcrsResponseStatus = lens _etcrsResponseStatus (\ s a -> s{_etcrsResponseStatus = a}) - -instance NFData EstimateTemplateCostResponse where diff --git a/gen/Network/AWS/CloudFormation/ExecuteChangeSet.hs b/gen/Network/AWS/CloudFormation/ExecuteChangeSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ExecuteChangeSet.hs +++ /dev/null @@ -1,149 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ExecuteChangeSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates a stack using the input information that was provided when the specified change set was created. After the call successfully completes, AWS CloudFormation starts updating the stack. Use the 'DescribeStacks' action to view the status of the update. --- --- --- When you execute a change set, AWS CloudFormation deletes all other change sets associated with the stack because they aren't valid for the updated stack. --- --- If a stack policy is associated with the stack, AWS CloudFormation enforces the policy during the update. You can't specify a temporary stack policy that overrides the current policy. --- -module Network.AWS.CloudFormation.ExecuteChangeSet - ( - -- * Creating a Request - executeChangeSet - , ExecuteChangeSet - -- * Request Lenses - , ecsClientRequestToken - , ecsStackName - , ecsChangeSetName - - -- * Destructuring the Response - , executeChangeSetResponse - , ExecuteChangeSetResponse - -- * Response Lenses - , ecsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'ExecuteChangeSet' action. --- --- --- --- /See:/ 'executeChangeSet' smart constructor. -data ExecuteChangeSet = ExecuteChangeSet' - { _ecsClientRequestToken :: !(Maybe Text) - , _ecsStackName :: !(Maybe Text) - , _ecsChangeSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExecuteChangeSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ecsClientRequestToken' - A unique identifier for this @ExecuteChangeSet@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to execute a change set to update a stack with the same name. You might retry @ExecuteChangeSet@ requests to ensure that AWS CloudFormation successfully received them. --- --- * 'ecsStackName' - If you specified the name of a change set, specify the stack name or ID (ARN) that is associated with the change set you want to execute. --- --- * 'ecsChangeSetName' - The name or ARN of the change set that you want use to update the specified stack. -executeChangeSet - :: Text -- ^ 'ecsChangeSetName' - -> ExecuteChangeSet -executeChangeSet pChangeSetName_ = - ExecuteChangeSet' - { _ecsClientRequestToken = Nothing - , _ecsStackName = Nothing - , _ecsChangeSetName = pChangeSetName_ - } - - --- | A unique identifier for this @ExecuteChangeSet@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to execute a change set to update a stack with the same name. You might retry @ExecuteChangeSet@ requests to ensure that AWS CloudFormation successfully received them. -ecsClientRequestToken :: Lens' ExecuteChangeSet (Maybe Text) -ecsClientRequestToken = lens _ecsClientRequestToken (\ s a -> s{_ecsClientRequestToken = a}) - --- | If you specified the name of a change set, specify the stack name or ID (ARN) that is associated with the change set you want to execute. -ecsStackName :: Lens' ExecuteChangeSet (Maybe Text) -ecsStackName = lens _ecsStackName (\ s a -> s{_ecsStackName = a}) - --- | The name or ARN of the change set that you want use to update the specified stack. -ecsChangeSetName :: Lens' ExecuteChangeSet Text -ecsChangeSetName = lens _ecsChangeSetName (\ s a -> s{_ecsChangeSetName = a}) - -instance AWSRequest ExecuteChangeSet where - type Rs ExecuteChangeSet = ExecuteChangeSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ExecuteChangeSetResult" - (\ s h x -> - ExecuteChangeSetResponse' <$> (pure (fromEnum s))) - -instance Hashable ExecuteChangeSet where - -instance NFData ExecuteChangeSet where - -instance ToHeaders ExecuteChangeSet where - toHeaders = const mempty - -instance ToPath ExecuteChangeSet where - toPath = const "/" - -instance ToQuery ExecuteChangeSet where - toQuery ExecuteChangeSet'{..} - = mconcat - ["Action" =: ("ExecuteChangeSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "ClientRequestToken" =: _ecsClientRequestToken, - "StackName" =: _ecsStackName, - "ChangeSetName" =: _ecsChangeSetName] - --- | The output for the 'ExecuteChangeSet' action. --- --- --- --- /See:/ 'executeChangeSetResponse' smart constructor. -newtype ExecuteChangeSetResponse = ExecuteChangeSetResponse' - { _ecsrsResponseStatus :: Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExecuteChangeSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ecsrsResponseStatus' - -- | The response status code. -executeChangeSetResponse - :: Int -- ^ 'ecsrsResponseStatus' - -> ExecuteChangeSetResponse -executeChangeSetResponse pResponseStatus_ = - ExecuteChangeSetResponse' {_ecsrsResponseStatus = pResponseStatus_} - - --- | -- | The response status code. -ecsrsResponseStatus :: Lens' ExecuteChangeSetResponse Int -ecsrsResponseStatus = lens _ecsrsResponseStatus (\ s a -> s{_ecsrsResponseStatus = a}) - -instance NFData ExecuteChangeSetResponse where diff --git a/gen/Network/AWS/CloudFormation/GetStackPolicy.hs b/gen/Network/AWS/CloudFormation/GetStackPolicy.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/GetStackPolicy.hs +++ /dev/null @@ -1,132 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.GetStackPolicy --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the stack policy for a specified stack. If a stack doesn't have a policy, a null value is returned. --- --- -module Network.AWS.CloudFormation.GetStackPolicy - ( - -- * Creating a Request - getStackPolicy - , GetStackPolicy - -- * Request Lenses - , gspStackName - - -- * Destructuring the Response - , getStackPolicyResponse - , GetStackPolicyResponse - -- * Response Lenses - , gsprsStackPolicyBody - , gsprsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'GetStackPolicy' action. --- --- --- --- /See:/ 'getStackPolicy' smart constructor. -newtype GetStackPolicy = GetStackPolicy' - { _gspStackName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetStackPolicy' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gspStackName' - The name or unique stack ID that is associated with the stack whose policy you want to get. -getStackPolicy - :: Text -- ^ 'gspStackName' - -> GetStackPolicy -getStackPolicy pStackName_ = GetStackPolicy' {_gspStackName = pStackName_} - - --- | The name or unique stack ID that is associated with the stack whose policy you want to get. -gspStackName :: Lens' GetStackPolicy Text -gspStackName = lens _gspStackName (\ s a -> s{_gspStackName = a}) - -instance AWSRequest GetStackPolicy where - type Rs GetStackPolicy = GetStackPolicyResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "GetStackPolicyResult" - (\ s h x -> - GetStackPolicyResponse' <$> - (x .@? "StackPolicyBody") <*> (pure (fromEnum s))) - -instance Hashable GetStackPolicy where - -instance NFData GetStackPolicy where - -instance ToHeaders GetStackPolicy where - toHeaders = const mempty - -instance ToPath GetStackPolicy where - toPath = const "/" - -instance ToQuery GetStackPolicy where - toQuery GetStackPolicy'{..} - = mconcat - ["Action" =: ("GetStackPolicy" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackName" =: _gspStackName] - --- | The output for the 'GetStackPolicy' action. --- --- --- --- /See:/ 'getStackPolicyResponse' smart constructor. -data GetStackPolicyResponse = GetStackPolicyResponse' - { _gsprsStackPolicyBody :: !(Maybe Text) - , _gsprsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetStackPolicyResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gsprsStackPolicyBody' - Structure containing the stack policy body. (For more information, go to in the AWS CloudFormation User Guide.) --- --- * 'gsprsResponseStatus' - -- | The response status code. -getStackPolicyResponse - :: Int -- ^ 'gsprsResponseStatus' - -> GetStackPolicyResponse -getStackPolicyResponse pResponseStatus_ = - GetStackPolicyResponse' - {_gsprsStackPolicyBody = Nothing, _gsprsResponseStatus = pResponseStatus_} - - --- | Structure containing the stack policy body. (For more information, go to in the AWS CloudFormation User Guide.) -gsprsStackPolicyBody :: Lens' GetStackPolicyResponse (Maybe Text) -gsprsStackPolicyBody = lens _gsprsStackPolicyBody (\ s a -> s{_gsprsStackPolicyBody = a}) - --- | -- | The response status code. -gsprsResponseStatus :: Lens' GetStackPolicyResponse Int -gsprsResponseStatus = lens _gsprsResponseStatus (\ s a -> s{_gsprsResponseStatus = a}) - -instance NFData GetStackPolicyResponse where diff --git a/gen/Network/AWS/CloudFormation/GetTemplate.hs b/gen/Network/AWS/CloudFormation/GetTemplate.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/GetTemplate.hs +++ /dev/null @@ -1,170 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.GetTemplate --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the template body for a specified stack. You can get the template for running or deleted stacks. --- --- --- For deleted stacks, GetTemplate returns the template for up to 90 days after the stack has been deleted. --- -module Network.AWS.CloudFormation.GetTemplate - ( - -- * Creating a Request - getTemplate - , GetTemplate - -- * Request Lenses - , gtChangeSetName - , gtTemplateStage - , gtStackName - - -- * Destructuring the Response - , getTemplateResponse - , GetTemplateResponse - -- * Response Lenses - , gtrsStagesAvailable - , gtrsTemplateBody - , gtrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for a 'GetTemplate' action. --- --- --- --- /See:/ 'getTemplate' smart constructor. -data GetTemplate = GetTemplate' - { _gtChangeSetName :: !(Maybe Text) - , _gtTemplateStage :: !(Maybe TemplateStage) - , _gtStackName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetTemplate' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gtChangeSetName' - The name or Amazon Resource Name (ARN) of a change set for which AWS CloudFormation returns the associated template. If you specify a name, you must also specify the @StackName@ . --- --- * 'gtTemplateStage' - For templates that include transforms, the stage of the template that AWS CloudFormation returns. To get the user-submitted template, specify @Original@ . To get the template after AWS CloudFormation has processed all transforms, specify @Processed@ . If the template doesn't include transforms, @Original@ and @Processed@ return the same template. By default, AWS CloudFormation specifies @Original@ . --- --- * 'gtStackName' - The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -getTemplate - :: GetTemplate -getTemplate = - GetTemplate' - { _gtChangeSetName = Nothing - , _gtTemplateStage = Nothing - , _gtStackName = Nothing - } - - --- | The name or Amazon Resource Name (ARN) of a change set for which AWS CloudFormation returns the associated template. If you specify a name, you must also specify the @StackName@ . -gtChangeSetName :: Lens' GetTemplate (Maybe Text) -gtChangeSetName = lens _gtChangeSetName (\ s a -> s{_gtChangeSetName = a}) - --- | For templates that include transforms, the stage of the template that AWS CloudFormation returns. To get the user-submitted template, specify @Original@ . To get the template after AWS CloudFormation has processed all transforms, specify @Processed@ . If the template doesn't include transforms, @Original@ and @Processed@ return the same template. By default, AWS CloudFormation specifies @Original@ . -gtTemplateStage :: Lens' GetTemplate (Maybe TemplateStage) -gtTemplateStage = lens _gtTemplateStage (\ s a -> s{_gtTemplateStage = a}) - --- | The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -gtStackName :: Lens' GetTemplate (Maybe Text) -gtStackName = lens _gtStackName (\ s a -> s{_gtStackName = a}) - -instance AWSRequest GetTemplate where - type Rs GetTemplate = GetTemplateResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "GetTemplateResult" - (\ s h x -> - GetTemplateResponse' <$> - (x .@? "StagesAvailable" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "TemplateBody") - <*> (pure (fromEnum s))) - -instance Hashable GetTemplate where - -instance NFData GetTemplate where - -instance ToHeaders GetTemplate where - toHeaders = const mempty - -instance ToPath GetTemplate where - toPath = const "/" - -instance ToQuery GetTemplate where - toQuery GetTemplate'{..} - = mconcat - ["Action" =: ("GetTemplate" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "ChangeSetName" =: _gtChangeSetName, - "TemplateStage" =: _gtTemplateStage, - "StackName" =: _gtStackName] - --- | The output for 'GetTemplate' action. --- --- --- --- /See:/ 'getTemplateResponse' smart constructor. -data GetTemplateResponse = GetTemplateResponse' - { _gtrsStagesAvailable :: !(Maybe [TemplateStage]) - , _gtrsTemplateBody :: !(Maybe Text) - , _gtrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetTemplateResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gtrsStagesAvailable' - The stage of the template that you can retrieve. For stacks, the @Original@ and @Processed@ templates are always available. For change sets, the @Original@ template is always available. After AWS CloudFormation finishes creating the change set, the @Processed@ template becomes available. --- --- * 'gtrsTemplateBody' - Structure containing the template body. (For more information, go to in the AWS CloudFormation User Guide.) AWS CloudFormation returns the same template that was used when the stack was created. --- --- * 'gtrsResponseStatus' - -- | The response status code. -getTemplateResponse - :: Int -- ^ 'gtrsResponseStatus' - -> GetTemplateResponse -getTemplateResponse pResponseStatus_ = - GetTemplateResponse' - { _gtrsStagesAvailable = Nothing - , _gtrsTemplateBody = Nothing - , _gtrsResponseStatus = pResponseStatus_ - } - - --- | The stage of the template that you can retrieve. For stacks, the @Original@ and @Processed@ templates are always available. For change sets, the @Original@ template is always available. After AWS CloudFormation finishes creating the change set, the @Processed@ template becomes available. -gtrsStagesAvailable :: Lens' GetTemplateResponse [TemplateStage] -gtrsStagesAvailable = lens _gtrsStagesAvailable (\ s a -> s{_gtrsStagesAvailable = a}) . _Default . _Coerce - --- | Structure containing the template body. (For more information, go to in the AWS CloudFormation User Guide.) AWS CloudFormation returns the same template that was used when the stack was created. -gtrsTemplateBody :: Lens' GetTemplateResponse (Maybe Text) -gtrsTemplateBody = lens _gtrsTemplateBody (\ s a -> s{_gtrsTemplateBody = a}) - --- | -- | The response status code. -gtrsResponseStatus :: Lens' GetTemplateResponse Int -gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a}) - -instance NFData GetTemplateResponse where diff --git a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs b/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs +++ /dev/null @@ -1,249 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.GetTemplateSummary --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns information about a new or existing template. The @GetTemplateSummary@ action is useful for viewing parameter information, such as default parameter values and parameter types, before you create or update a stack or stack set. --- --- --- You can use the @GetTemplateSummary@ action when you submit a template, or you can get template information for a stack set, or a running or deleted stack. --- --- For deleted stacks, @GetTemplateSummary@ returns the template information for up to 90 days after the stack has been deleted. If the template does not exist, a @ValidationError@ is returned. --- -module Network.AWS.CloudFormation.GetTemplateSummary - ( - -- * Creating a Request - getTemplateSummary - , GetTemplateSummary - -- * Request Lenses - , gtsTemplateBody - , gtsTemplateURL - , gtsStackSetName - , gtsStackName - - -- * Destructuring the Response - , getTemplateSummaryResponse - , GetTemplateSummaryResponse - -- * Response Lenses - , gtsrsDeclaredTransforms - , gtsrsVersion - , gtsrsCapabilitiesReason - , gtsrsParameters - , gtsrsMetadata - , gtsrsDescription - , gtsrsCapabilities - , gtsrsResourceTypes - , gtsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'GetTemplateSummary' action. --- --- --- --- /See:/ 'getTemplateSummary' smart constructor. -data GetTemplateSummary = GetTemplateSummary' - { _gtsTemplateBody :: !(Maybe Text) - , _gtsTemplateURL :: !(Maybe Text) - , _gtsStackSetName :: !(Maybe Text) - , _gtsStackName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetTemplateSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gtsTemplateBody' - Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information about templates, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . --- --- * 'gtsTemplateURL' - Location of file containing the template body. The URL must point to a template (max size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information about templates, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . --- --- * 'gtsStackSetName' - The name or unique ID of the stack set from which the stack was created. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . --- --- * 'gtsStackName' - The name or the stack ID that is associated with the stack, which are not always interchangeable. For running stacks, you can specify either the stack's name or its unique stack ID. For deleted stack, you must specify the unique stack ID. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . -getTemplateSummary - :: GetTemplateSummary -getTemplateSummary = - GetTemplateSummary' - { _gtsTemplateBody = Nothing - , _gtsTemplateURL = Nothing - , _gtsStackSetName = Nothing - , _gtsStackName = Nothing - } - - --- | Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information about templates, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . -gtsTemplateBody :: Lens' GetTemplateSummary (Maybe Text) -gtsTemplateBody = lens _gtsTemplateBody (\ s a -> s{_gtsTemplateBody = a}) - --- | Location of file containing the template body. The URL must point to a template (max size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information about templates, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . -gtsTemplateURL :: Lens' GetTemplateSummary (Maybe Text) -gtsTemplateURL = lens _gtsTemplateURL (\ s a -> s{_gtsTemplateURL = a}) - --- | The name or unique ID of the stack set from which the stack was created. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . -gtsStackSetName :: Lens' GetTemplateSummary (Maybe Text) -gtsStackSetName = lens _gtsStackSetName (\ s a -> s{_gtsStackSetName = a}) - --- | The name or the stack ID that is associated with the stack, which are not always interchangeable. For running stacks, you can specify either the stack's name or its unique stack ID. For deleted stack, you must specify the unique stack ID. Conditional: You must specify only one of the following parameters: @StackName@ , @StackSetName@ , @TemplateBody@ , or @TemplateURL@ . -gtsStackName :: Lens' GetTemplateSummary (Maybe Text) -gtsStackName = lens _gtsStackName (\ s a -> s{_gtsStackName = a}) - -instance AWSRequest GetTemplateSummary where - type Rs GetTemplateSummary = - GetTemplateSummaryResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "GetTemplateSummaryResult" - (\ s h x -> - GetTemplateSummaryResponse' <$> - (x .@? "DeclaredTransforms" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "Version") - <*> (x .@? "CapabilitiesReason") - <*> - (x .@? "Parameters" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "Metadata") - <*> (x .@? "Description") - <*> - (x .@? "Capabilities" .!@ mempty >>= - may (parseXMLList "member")) - <*> - (x .@? "ResourceTypes" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable GetTemplateSummary where - -instance NFData GetTemplateSummary where - -instance ToHeaders GetTemplateSummary where - toHeaders = const mempty - -instance ToPath GetTemplateSummary where - toPath = const "/" - -instance ToQuery GetTemplateSummary where - toQuery GetTemplateSummary'{..} - = mconcat - ["Action" =: ("GetTemplateSummary" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "TemplateBody" =: _gtsTemplateBody, - "TemplateURL" =: _gtsTemplateURL, - "StackSetName" =: _gtsStackSetName, - "StackName" =: _gtsStackName] - --- | The output for the 'GetTemplateSummary' action. --- --- --- --- /See:/ 'getTemplateSummaryResponse' smart constructor. -data GetTemplateSummaryResponse = GetTemplateSummaryResponse' - { _gtsrsDeclaredTransforms :: !(Maybe [Text]) - , _gtsrsVersion :: !(Maybe Text) - , _gtsrsCapabilitiesReason :: !(Maybe Text) - , _gtsrsParameters :: !(Maybe [ParameterDeclaration]) - , _gtsrsMetadata :: !(Maybe Text) - , _gtsrsDescription :: !(Maybe Text) - , _gtsrsCapabilities :: !(Maybe [Capability]) - , _gtsrsResourceTypes :: !(Maybe [Text]) - , _gtsrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetTemplateSummaryResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gtsrsDeclaredTransforms' - A list of the transforms that are declared in the template. --- --- * 'gtsrsVersion' - The AWS template format version, which identifies the capabilities of the template. --- --- * 'gtsrsCapabilitiesReason' - The list of resources that generated the values in the @Capabilities@ response element. --- --- * 'gtsrsParameters' - A list of parameter declarations that describe various properties for each parameter. --- --- * 'gtsrsMetadata' - The value that is defined for the @Metadata@ property of the template. --- --- * 'gtsrsDescription' - The value that is defined in the @Description@ property of the template. --- --- * 'gtsrsCapabilities' - The capabilities found within the template. If your template contains IAM resources, you must specify the CAPABILITY_IAM or CAPABILITY_NAMED_IAM value for this parameter when you use the 'CreateStack' or 'UpdateStack' actions with your template; otherwise, those actions return an InsufficientCapabilities error. For more information, see . --- --- * 'gtsrsResourceTypes' - A list of all the template resource types that are defined in the template, such as @AWS::EC2::Instance@ , @AWS::Dynamo::Table@ , and @Custom::MyCustomInstance@ . --- --- * 'gtsrsResponseStatus' - -- | The response status code. -getTemplateSummaryResponse - :: Int -- ^ 'gtsrsResponseStatus' - -> GetTemplateSummaryResponse -getTemplateSummaryResponse pResponseStatus_ = - GetTemplateSummaryResponse' - { _gtsrsDeclaredTransforms = Nothing - , _gtsrsVersion = Nothing - , _gtsrsCapabilitiesReason = Nothing - , _gtsrsParameters = Nothing - , _gtsrsMetadata = Nothing - , _gtsrsDescription = Nothing - , _gtsrsCapabilities = Nothing - , _gtsrsResourceTypes = Nothing - , _gtsrsResponseStatus = pResponseStatus_ - } - - --- | A list of the transforms that are declared in the template. -gtsrsDeclaredTransforms :: Lens' GetTemplateSummaryResponse [Text] -gtsrsDeclaredTransforms = lens _gtsrsDeclaredTransforms (\ s a -> s{_gtsrsDeclaredTransforms = a}) . _Default . _Coerce - --- | The AWS template format version, which identifies the capabilities of the template. -gtsrsVersion :: Lens' GetTemplateSummaryResponse (Maybe Text) -gtsrsVersion = lens _gtsrsVersion (\ s a -> s{_gtsrsVersion = a}) - --- | The list of resources that generated the values in the @Capabilities@ response element. -gtsrsCapabilitiesReason :: Lens' GetTemplateSummaryResponse (Maybe Text) -gtsrsCapabilitiesReason = lens _gtsrsCapabilitiesReason (\ s a -> s{_gtsrsCapabilitiesReason = a}) - --- | A list of parameter declarations that describe various properties for each parameter. -gtsrsParameters :: Lens' GetTemplateSummaryResponse [ParameterDeclaration] -gtsrsParameters = lens _gtsrsParameters (\ s a -> s{_gtsrsParameters = a}) . _Default . _Coerce - --- | The value that is defined for the @Metadata@ property of the template. -gtsrsMetadata :: Lens' GetTemplateSummaryResponse (Maybe Text) -gtsrsMetadata = lens _gtsrsMetadata (\ s a -> s{_gtsrsMetadata = a}) - --- | The value that is defined in the @Description@ property of the template. -gtsrsDescription :: Lens' GetTemplateSummaryResponse (Maybe Text) -gtsrsDescription = lens _gtsrsDescription (\ s a -> s{_gtsrsDescription = a}) - --- | The capabilities found within the template. If your template contains IAM resources, you must specify the CAPABILITY_IAM or CAPABILITY_NAMED_IAM value for this parameter when you use the 'CreateStack' or 'UpdateStack' actions with your template; otherwise, those actions return an InsufficientCapabilities error. For more information, see . -gtsrsCapabilities :: Lens' GetTemplateSummaryResponse [Capability] -gtsrsCapabilities = lens _gtsrsCapabilities (\ s a -> s{_gtsrsCapabilities = a}) . _Default . _Coerce - --- | A list of all the template resource types that are defined in the template, such as @AWS::EC2::Instance@ , @AWS::Dynamo::Table@ , and @Custom::MyCustomInstance@ . -gtsrsResourceTypes :: Lens' GetTemplateSummaryResponse [Text] -gtsrsResourceTypes = lens _gtsrsResourceTypes (\ s a -> s{_gtsrsResourceTypes = a}) . _Default . _Coerce - --- | -- | The response status code. -gtsrsResponseStatus :: Lens' GetTemplateSummaryResponse Int -gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a}) - -instance NFData GetTemplateSummaryResponse where diff --git a/gen/Network/AWS/CloudFormation/ListChangeSets.hs b/gen/Network/AWS/CloudFormation/ListChangeSets.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListChangeSets.hs +++ /dev/null @@ -1,156 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListChangeSets --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the ID and status of each active change set for a stack. For example, AWS CloudFormation lists change sets that are in the @CREATE_IN_PROGRESS@ or @CREATE_PENDING@ state. --- --- -module Network.AWS.CloudFormation.ListChangeSets - ( - -- * Creating a Request - listChangeSets - , ListChangeSets - -- * Request Lenses - , lcsNextToken - , lcsStackName - - -- * Destructuring the Response - , listChangeSetsResponse - , ListChangeSetsResponse - -- * Response Lenses - , lcsrsNextToken - , lcsrsSummaries - , lcsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'ListChangeSets' action. --- --- --- --- /See:/ 'listChangeSets' smart constructor. -data ListChangeSets = ListChangeSets' - { _lcsNextToken :: !(Maybe Text) - , _lcsStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListChangeSets' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lcsNextToken' - A string (provided by the 'ListChangeSets' response output) that identifies the next page of change sets that you want to retrieve. --- --- * 'lcsStackName' - The name or the Amazon Resource Name (ARN) of the stack for which you want to list change sets. -listChangeSets - :: Text -- ^ 'lcsStackName' - -> ListChangeSets -listChangeSets pStackName_ = - ListChangeSets' {_lcsNextToken = Nothing, _lcsStackName = pStackName_} - - --- | A string (provided by the 'ListChangeSets' response output) that identifies the next page of change sets that you want to retrieve. -lcsNextToken :: Lens' ListChangeSets (Maybe Text) -lcsNextToken = lens _lcsNextToken (\ s a -> s{_lcsNextToken = a}) - --- | The name or the Amazon Resource Name (ARN) of the stack for which you want to list change sets. -lcsStackName :: Lens' ListChangeSets Text -lcsStackName = lens _lcsStackName (\ s a -> s{_lcsStackName = a}) - -instance AWSRequest ListChangeSets where - type Rs ListChangeSets = ListChangeSetsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListChangeSetsResult" - (\ s h x -> - ListChangeSetsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Summaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListChangeSets where - -instance NFData ListChangeSets where - -instance ToHeaders ListChangeSets where - toHeaders = const mempty - -instance ToPath ListChangeSets where - toPath = const "/" - -instance ToQuery ListChangeSets where - toQuery ListChangeSets'{..} - = mconcat - ["Action" =: ("ListChangeSets" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _lcsNextToken, - "StackName" =: _lcsStackName] - --- | The output for the 'ListChangeSets' action. --- --- --- --- /See:/ 'listChangeSetsResponse' smart constructor. -data ListChangeSetsResponse = ListChangeSetsResponse' - { _lcsrsNextToken :: !(Maybe Text) - , _lcsrsSummaries :: !(Maybe [ChangeSetSummary]) - , _lcsrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListChangeSetsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lcsrsNextToken' - If the output exceeds 1 MB, a string that identifies the next page of change sets. If there is no additional page, this value is null. --- --- * 'lcsrsSummaries' - A list of @ChangeSetSummary@ structures that provides the ID and status of each change set for the specified stack. --- --- * 'lcsrsResponseStatus' - -- | The response status code. -listChangeSetsResponse - :: Int -- ^ 'lcsrsResponseStatus' - -> ListChangeSetsResponse -listChangeSetsResponse pResponseStatus_ = - ListChangeSetsResponse' - { _lcsrsNextToken = Nothing - , _lcsrsSummaries = Nothing - , _lcsrsResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 1 MB, a string that identifies the next page of change sets. If there is no additional page, this value is null. -lcsrsNextToken :: Lens' ListChangeSetsResponse (Maybe Text) -lcsrsNextToken = lens _lcsrsNextToken (\ s a -> s{_lcsrsNextToken = a}) - --- | A list of @ChangeSetSummary@ structures that provides the ID and status of each change set for the specified stack. -lcsrsSummaries :: Lens' ListChangeSetsResponse [ChangeSetSummary] -lcsrsSummaries = lens _lcsrsSummaries (\ s a -> s{_lcsrsSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lcsrsResponseStatus :: Lens' ListChangeSetsResponse Int -lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a}) - -instance NFData ListChangeSetsResponse where diff --git a/gen/Network/AWS/CloudFormation/ListExports.hs b/gen/Network/AWS/CloudFormation/ListExports.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListExports.hs +++ /dev/null @@ -1,149 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListExports --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists all exported output values in the account and region in which you call this action. Use this action to see the exported output values that you can import into other stacks. To import values, use the function. --- --- --- For more information, see . --- --- --- This operation returns paginated results. -module Network.AWS.CloudFormation.ListExports - ( - -- * Creating a Request - listExports - , ListExports - -- * Request Lenses - , leNextToken - - -- * Destructuring the Response - , listExportsResponse - , ListExportsResponse - -- * Response Lenses - , lersNextToken - , lersExports - , lersResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'listExports' smart constructor. -newtype ListExports = ListExports' - { _leNextToken :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListExports' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'leNextToken' - A string (provided by the 'ListExports' response output) that identifies the next page of exported output values that you asked to retrieve. -listExports - :: ListExports -listExports = ListExports' {_leNextToken = Nothing} - - --- | A string (provided by the 'ListExports' response output) that identifies the next page of exported output values that you asked to retrieve. -leNextToken :: Lens' ListExports (Maybe Text) -leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a}) - -instance AWSPager ListExports where - page rq rs - | stop (rs ^. lersNextToken) = Nothing - | stop (rs ^. lersExports) = Nothing - | otherwise = - Just $ rq & leNextToken .~ rs ^. lersNextToken - -instance AWSRequest ListExports where - type Rs ListExports = ListExportsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListExportsResult" - (\ s h x -> - ListExportsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Exports" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListExports where - -instance NFData ListExports where - -instance ToHeaders ListExports where - toHeaders = const mempty - -instance ToPath ListExports where - toPath = const "/" - -instance ToQuery ListExports where - toQuery ListExports'{..} - = mconcat - ["Action" =: ("ListExports" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _leNextToken] - --- | /See:/ 'listExportsResponse' smart constructor. -data ListExportsResponse = ListExportsResponse' - { _lersNextToken :: !(Maybe Text) - , _lersExports :: !(Maybe [Export]) - , _lersResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListExportsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lersNextToken' - If the output exceeds 100 exported output values, a string that identifies the next page of exports. If there is no additional page, this value is null. --- --- * 'lersExports' - The output for the 'ListExports' action. --- --- * 'lersResponseStatus' - -- | The response status code. -listExportsResponse - :: Int -- ^ 'lersResponseStatus' - -> ListExportsResponse -listExportsResponse pResponseStatus_ = - ListExportsResponse' - { _lersNextToken = Nothing - , _lersExports = Nothing - , _lersResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 100 exported output values, a string that identifies the next page of exports. If there is no additional page, this value is null. -lersNextToken :: Lens' ListExportsResponse (Maybe Text) -lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a}) - --- | The output for the 'ListExports' action. -lersExports :: Lens' ListExportsResponse [Export] -lersExports = lens _lersExports (\ s a -> s{_lersExports = a}) . _Default . _Coerce - --- | -- | The response status code. -lersResponseStatus :: Lens' ListExportsResponse Int -lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a}) - -instance NFData ListExportsResponse where diff --git a/gen/Network/AWS/CloudFormation/ListImports.hs b/gen/Network/AWS/CloudFormation/ListImports.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListImports.hs +++ /dev/null @@ -1,160 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListImports --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists all stacks that are importing an exported output value. To modify or remove an exported output value, first use this action to see which stacks are using it. To see the exported output values in your account, see 'ListExports' . --- --- --- For more information about importing an exported output value, see the function. --- --- --- This operation returns paginated results. -module Network.AWS.CloudFormation.ListImports - ( - -- * Creating a Request - listImports - , ListImports - -- * Request Lenses - , liNextToken - , liExportName - - -- * Destructuring the Response - , listImportsResponse - , ListImportsResponse - -- * Response Lenses - , lirsImports - , lirsNextToken - , lirsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'listImports' smart constructor. -data ListImports = ListImports' - { _liNextToken :: !(Maybe Text) - , _liExportName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListImports' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'liNextToken' - A string (provided by the 'ListImports' response output) that identifies the next page of stacks that are importing the specified exported output value. --- --- * 'liExportName' - The name of the exported output value. AWS CloudFormation returns the stack names that are importing this value. -listImports - :: Text -- ^ 'liExportName' - -> ListImports -listImports pExportName_ = - ListImports' {_liNextToken = Nothing, _liExportName = pExportName_} - - --- | A string (provided by the 'ListImports' response output) that identifies the next page of stacks that are importing the specified exported output value. -liNextToken :: Lens' ListImports (Maybe Text) -liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a}) - --- | The name of the exported output value. AWS CloudFormation returns the stack names that are importing this value. -liExportName :: Lens' ListImports Text -liExportName = lens _liExportName (\ s a -> s{_liExportName = a}) - -instance AWSPager ListImports where - page rq rs - | stop (rs ^. lirsNextToken) = Nothing - | stop (rs ^. lirsImports) = Nothing - | otherwise = - Just $ rq & liNextToken .~ rs ^. lirsNextToken - -instance AWSRequest ListImports where - type Rs ListImports = ListImportsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListImportsResult" - (\ s h x -> - ListImportsResponse' <$> - (x .@? "Imports" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "NextToken") - <*> (pure (fromEnum s))) - -instance Hashable ListImports where - -instance NFData ListImports where - -instance ToHeaders ListImports where - toHeaders = const mempty - -instance ToPath ListImports where - toPath = const "/" - -instance ToQuery ListImports where - toQuery ListImports'{..} - = mconcat - ["Action" =: ("ListImports" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _liNextToken, - "ExportName" =: _liExportName] - --- | /See:/ 'listImportsResponse' smart constructor. -data ListImportsResponse = ListImportsResponse' - { _lirsImports :: !(Maybe [Text]) - , _lirsNextToken :: !(Maybe Text) - , _lirsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListImportsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lirsImports' - A list of stack names that are importing the specified exported output value. --- --- * 'lirsNextToken' - A string that identifies the next page of exports. If there is no additional page, this value is null. --- --- * 'lirsResponseStatus' - -- | The response status code. -listImportsResponse - :: Int -- ^ 'lirsResponseStatus' - -> ListImportsResponse -listImportsResponse pResponseStatus_ = - ListImportsResponse' - { _lirsImports = Nothing - , _lirsNextToken = Nothing - , _lirsResponseStatus = pResponseStatus_ - } - - --- | A list of stack names that are importing the specified exported output value. -lirsImports :: Lens' ListImportsResponse [Text] -lirsImports = lens _lirsImports (\ s a -> s{_lirsImports = a}) . _Default . _Coerce - --- | A string that identifies the next page of exports. If there is no additional page, this value is null. -lirsNextToken :: Lens' ListImportsResponse (Maybe Text) -lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a}) - --- | -- | The response status code. -lirsResponseStatus :: Lens' ListImportsResponse Int -lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a}) - -instance NFData ListImportsResponse where diff --git a/gen/Network/AWS/CloudFormation/ListStackInstances.hs b/gen/Network/AWS/CloudFormation/ListStackInstances.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListStackInstances.hs +++ /dev/null @@ -1,182 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListStackInstances --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns summary information about stack instances that are associated with the specified stack set. You can filter for stack instances that are associated with a specific AWS account name or region. --- --- -module Network.AWS.CloudFormation.ListStackInstances - ( - -- * Creating a Request - listStackInstances - , ListStackInstances - -- * Request Lenses - , lsiStackInstanceRegion - , lsiNextToken - , lsiStackInstanceAccount - , lsiMaxResults - , lsiStackSetName - - -- * Destructuring the Response - , listStackInstancesResponse - , ListStackInstancesResponse - -- * Response Lenses - , lsirsNextToken - , lsirsSummaries - , lsirsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'listStackInstances' smart constructor. -data ListStackInstances = ListStackInstances' - { _lsiStackInstanceRegion :: !(Maybe Text) - , _lsiNextToken :: !(Maybe Text) - , _lsiStackInstanceAccount :: !(Maybe Text) - , _lsiMaxResults :: !(Maybe Nat) - , _lsiStackSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackInstances' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsiStackInstanceRegion' - The name of the region where you want to list stack instances. --- --- * 'lsiNextToken' - If the previous request didn't return all of the remaining results, the response's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackInstances@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . --- --- * 'lsiStackInstanceAccount' - The name of the AWS account that you want to list stack instances for. --- --- * 'lsiMaxResults' - The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. --- --- * 'lsiStackSetName' - The name or unique ID of the stack set that you want to list stack instances for. -listStackInstances - :: Text -- ^ 'lsiStackSetName' - -> ListStackInstances -listStackInstances pStackSetName_ = - ListStackInstances' - { _lsiStackInstanceRegion = Nothing - , _lsiNextToken = Nothing - , _lsiStackInstanceAccount = Nothing - , _lsiMaxResults = Nothing - , _lsiStackSetName = pStackSetName_ - } - - --- | The name of the region where you want to list stack instances. -lsiStackInstanceRegion :: Lens' ListStackInstances (Maybe Text) -lsiStackInstanceRegion = lens _lsiStackInstanceRegion (\ s a -> s{_lsiStackInstanceRegion = a}) - --- | If the previous request didn't return all of the remaining results, the response's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackInstances@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . -lsiNextToken :: Lens' ListStackInstances (Maybe Text) -lsiNextToken = lens _lsiNextToken (\ s a -> s{_lsiNextToken = a}) - --- | The name of the AWS account that you want to list stack instances for. -lsiStackInstanceAccount :: Lens' ListStackInstances (Maybe Text) -lsiStackInstanceAccount = lens _lsiStackInstanceAccount (\ s a -> s{_lsiStackInstanceAccount = a}) - --- | The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. -lsiMaxResults :: Lens' ListStackInstances (Maybe Natural) -lsiMaxResults = lens _lsiMaxResults (\ s a -> s{_lsiMaxResults = a}) . mapping _Nat - --- | The name or unique ID of the stack set that you want to list stack instances for. -lsiStackSetName :: Lens' ListStackInstances Text -lsiStackSetName = lens _lsiStackSetName (\ s a -> s{_lsiStackSetName = a}) - -instance AWSRequest ListStackInstances where - type Rs ListStackInstances = - ListStackInstancesResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListStackInstancesResult" - (\ s h x -> - ListStackInstancesResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Summaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListStackInstances where - -instance NFData ListStackInstances where - -instance ToHeaders ListStackInstances where - toHeaders = const mempty - -instance ToPath ListStackInstances where - toPath = const "/" - -instance ToQuery ListStackInstances where - toQuery ListStackInstances'{..} - = mconcat - ["Action" =: ("ListStackInstances" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackInstanceRegion" =: _lsiStackInstanceRegion, - "NextToken" =: _lsiNextToken, - "StackInstanceAccount" =: _lsiStackInstanceAccount, - "MaxResults" =: _lsiMaxResults, - "StackSetName" =: _lsiStackSetName] - --- | /See:/ 'listStackInstancesResponse' smart constructor. -data ListStackInstancesResponse = ListStackInstancesResponse' - { _lsirsNextToken :: !(Maybe Text) - , _lsirsSummaries :: !(Maybe [StackInstanceSummary]) - , _lsirsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackInstancesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsirsNextToken' - If the request doesn't return all of the remaining results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListStackInstances@ again and assign that token to the request object's @NextToken@ parameter. If the request returns all results, @NextToken@ is set to @null@ . --- --- * 'lsirsSummaries' - A list of @StackInstanceSummary@ structures that contain information about the specified stack instances. --- --- * 'lsirsResponseStatus' - -- | The response status code. -listStackInstancesResponse - :: Int -- ^ 'lsirsResponseStatus' - -> ListStackInstancesResponse -listStackInstancesResponse pResponseStatus_ = - ListStackInstancesResponse' - { _lsirsNextToken = Nothing - , _lsirsSummaries = Nothing - , _lsirsResponseStatus = pResponseStatus_ - } - - --- | If the request doesn't return all of the remaining results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListStackInstances@ again and assign that token to the request object's @NextToken@ parameter. If the request returns all results, @NextToken@ is set to @null@ . -lsirsNextToken :: Lens' ListStackInstancesResponse (Maybe Text) -lsirsNextToken = lens _lsirsNextToken (\ s a -> s{_lsirsNextToken = a}) - --- | A list of @StackInstanceSummary@ structures that contain information about the specified stack instances. -lsirsSummaries :: Lens' ListStackInstancesResponse [StackInstanceSummary] -lsirsSummaries = lens _lsirsSummaries (\ s a -> s{_lsirsSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lsirsResponseStatus :: Lens' ListStackInstancesResponse Int -lsirsResponseStatus = lens _lsirsResponseStatus (\ s a -> s{_lsirsResponseStatus = a}) - -instance NFData ListStackInstancesResponse where diff --git a/gen/Network/AWS/CloudFormation/ListStackResources.hs b/gen/Network/AWS/CloudFormation/ListStackResources.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListStackResources.hs +++ /dev/null @@ -1,169 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListStackResources --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns descriptions of all resources of the specified stack. --- --- --- For deleted stacks, ListStackResources returns resource information for up to 90 days after the stack has been deleted. --- --- --- This operation returns paginated results. -module Network.AWS.CloudFormation.ListStackResources - ( - -- * Creating a Request - listStackResources - , ListStackResources - -- * Request Lenses - , lsrNextToken - , lsrStackName - - -- * Destructuring the Response - , listStackResourcesResponse - , ListStackResourcesResponse - -- * Response Lenses - , lsrrsNextToken - , lsrrsStackResourceSummaries - , lsrrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'ListStackResource' action. --- --- --- --- /See:/ 'listStackResources' smart constructor. -data ListStackResources = ListStackResources' - { _lsrNextToken :: !(Maybe Text) - , _lsrStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackResources' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsrNextToken' - A string that identifies the next page of stack resources that you want to retrieve. --- --- * 'lsrStackName' - The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -listStackResources - :: Text -- ^ 'lsrStackName' - -> ListStackResources -listStackResources pStackName_ = - ListStackResources' {_lsrNextToken = Nothing, _lsrStackName = pStackName_} - - --- | A string that identifies the next page of stack resources that you want to retrieve. -lsrNextToken :: Lens' ListStackResources (Maybe Text) -lsrNextToken = lens _lsrNextToken (\ s a -> s{_lsrNextToken = a}) - --- | The name or the unique stack ID that is associated with the stack, which are not always interchangeable: * Running stacks: You can specify either the stack's name or its unique stack ID. * Deleted stacks: You must specify the unique stack ID. Default: There is no default value. -lsrStackName :: Lens' ListStackResources Text -lsrStackName = lens _lsrStackName (\ s a -> s{_lsrStackName = a}) - -instance AWSPager ListStackResources where - page rq rs - | stop (rs ^. lsrrsNextToken) = Nothing - | stop (rs ^. lsrrsStackResourceSummaries) = Nothing - | otherwise = - Just $ rq & lsrNextToken .~ rs ^. lsrrsNextToken - -instance AWSRequest ListStackResources where - type Rs ListStackResources = - ListStackResourcesResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListStackResourcesResult" - (\ s h x -> - ListStackResourcesResponse' <$> - (x .@? "NextToken") <*> - (x .@? "StackResourceSummaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListStackResources where - -instance NFData ListStackResources where - -instance ToHeaders ListStackResources where - toHeaders = const mempty - -instance ToPath ListStackResources where - toPath = const "/" - -instance ToQuery ListStackResources where - toQuery ListStackResources'{..} - = mconcat - ["Action" =: ("ListStackResources" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _lsrNextToken, - "StackName" =: _lsrStackName] - --- | The output for a 'ListStackResources' action. --- --- --- --- /See:/ 'listStackResourcesResponse' smart constructor. -data ListStackResourcesResponse = ListStackResourcesResponse' - { _lsrrsNextToken :: !(Maybe Text) - , _lsrrsStackResourceSummaries :: !(Maybe [StackResourceSummary]) - , _lsrrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackResourcesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsrrsNextToken' - If the output exceeds 1 MB, a string that identifies the next page of stack resources. If no additional page exists, this value is null. --- --- * 'lsrrsStackResourceSummaries' - A list of @StackResourceSummary@ structures. --- --- * 'lsrrsResponseStatus' - -- | The response status code. -listStackResourcesResponse - :: Int -- ^ 'lsrrsResponseStatus' - -> ListStackResourcesResponse -listStackResourcesResponse pResponseStatus_ = - ListStackResourcesResponse' - { _lsrrsNextToken = Nothing - , _lsrrsStackResourceSummaries = Nothing - , _lsrrsResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 1 MB, a string that identifies the next page of stack resources. If no additional page exists, this value is null. -lsrrsNextToken :: Lens' ListStackResourcesResponse (Maybe Text) -lsrrsNextToken = lens _lsrrsNextToken (\ s a -> s{_lsrrsNextToken = a}) - --- | A list of @StackResourceSummary@ structures. -lsrrsStackResourceSummaries :: Lens' ListStackResourcesResponse [StackResourceSummary] -lsrrsStackResourceSummaries = lens _lsrrsStackResourceSummaries (\ s a -> s{_lsrrsStackResourceSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lsrrsResponseStatus :: Lens' ListStackResourcesResponse Int -lsrrsResponseStatus = lens _lsrrsResponseStatus (\ s a -> s{_lsrrsResponseStatus = a}) - -instance NFData ListStackResourcesResponse where diff --git a/gen/Network/AWS/CloudFormation/ListStackSetOperationResults.hs b/gen/Network/AWS/CloudFormation/ListStackSetOperationResults.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListStackSetOperationResults.hs +++ /dev/null @@ -1,177 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListStackSetOperationResults --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns summary information about the results of a stack set operation. --- --- -module Network.AWS.CloudFormation.ListStackSetOperationResults - ( - -- * Creating a Request - listStackSetOperationResults - , ListStackSetOperationResults - -- * Request Lenses - , lssorNextToken - , lssorMaxResults - , lssorStackSetName - , lssorOperationId - - -- * Destructuring the Response - , listStackSetOperationResultsResponse - , ListStackSetOperationResultsResponse - -- * Response Lenses - , lssorrsNextToken - , lssorrsSummaries - , lssorrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'listStackSetOperationResults' smart constructor. -data ListStackSetOperationResults = ListStackSetOperationResults' - { _lssorNextToken :: !(Maybe Text) - , _lssorMaxResults :: !(Maybe Nat) - , _lssorStackSetName :: !Text - , _lssorOperationId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackSetOperationResults' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lssorNextToken' - If the previous request didn't return all of the remaining results, the response object's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackSetOperationResults@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . --- --- * 'lssorMaxResults' - The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. --- --- * 'lssorStackSetName' - The name or unique ID of the stack set that you want to get operation results for. --- --- * 'lssorOperationId' - The ID of the stack set operation. -listStackSetOperationResults - :: Text -- ^ 'lssorStackSetName' - -> Text -- ^ 'lssorOperationId' - -> ListStackSetOperationResults -listStackSetOperationResults pStackSetName_ pOperationId_ = - ListStackSetOperationResults' - { _lssorNextToken = Nothing - , _lssorMaxResults = Nothing - , _lssorStackSetName = pStackSetName_ - , _lssorOperationId = pOperationId_ - } - - --- | If the previous request didn't return all of the remaining results, the response object's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackSetOperationResults@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . -lssorNextToken :: Lens' ListStackSetOperationResults (Maybe Text) -lssorNextToken = lens _lssorNextToken (\ s a -> s{_lssorNextToken = a}) - --- | The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. -lssorMaxResults :: Lens' ListStackSetOperationResults (Maybe Natural) -lssorMaxResults = lens _lssorMaxResults (\ s a -> s{_lssorMaxResults = a}) . mapping _Nat - --- | The name or unique ID of the stack set that you want to get operation results for. -lssorStackSetName :: Lens' ListStackSetOperationResults Text -lssorStackSetName = lens _lssorStackSetName (\ s a -> s{_lssorStackSetName = a}) - --- | The ID of the stack set operation. -lssorOperationId :: Lens' ListStackSetOperationResults Text -lssorOperationId = lens _lssorOperationId (\ s a -> s{_lssorOperationId = a}) - -instance AWSRequest ListStackSetOperationResults - where - type Rs ListStackSetOperationResults = - ListStackSetOperationResultsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper - "ListStackSetOperationResultsResult" - (\ s h x -> - ListStackSetOperationResultsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Summaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListStackSetOperationResults where - -instance NFData ListStackSetOperationResults where - -instance ToHeaders ListStackSetOperationResults where - toHeaders = const mempty - -instance ToPath ListStackSetOperationResults where - toPath = const "/" - -instance ToQuery ListStackSetOperationResults where - toQuery ListStackSetOperationResults'{..} - = mconcat - ["Action" =: - ("ListStackSetOperationResults" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _lssorNextToken, - "MaxResults" =: _lssorMaxResults, - "StackSetName" =: _lssorStackSetName, - "OperationId" =: _lssorOperationId] - --- | /See:/ 'listStackSetOperationResultsResponse' smart constructor. -data ListStackSetOperationResultsResponse = ListStackSetOperationResultsResponse' - { _lssorrsNextToken :: !(Maybe Text) - , _lssorrsSummaries :: !(Maybe [StackSetOperationResultSummary]) - , _lssorrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackSetOperationResultsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lssorrsNextToken' - If the request doesn't return all results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListOperationResults@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, @NextToken@ is set to @null@ . --- --- * 'lssorrsSummaries' - A list of @StackSetOperationResultSummary@ structures that contain information about the specified operation results, for accounts and regions that are included in the operation. --- --- * 'lssorrsResponseStatus' - -- | The response status code. -listStackSetOperationResultsResponse - :: Int -- ^ 'lssorrsResponseStatus' - -> ListStackSetOperationResultsResponse -listStackSetOperationResultsResponse pResponseStatus_ = - ListStackSetOperationResultsResponse' - { _lssorrsNextToken = Nothing - , _lssorrsSummaries = Nothing - , _lssorrsResponseStatus = pResponseStatus_ - } - - --- | If the request doesn't return all results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListOperationResults@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, @NextToken@ is set to @null@ . -lssorrsNextToken :: Lens' ListStackSetOperationResultsResponse (Maybe Text) -lssorrsNextToken = lens _lssorrsNextToken (\ s a -> s{_lssorrsNextToken = a}) - --- | A list of @StackSetOperationResultSummary@ structures that contain information about the specified operation results, for accounts and regions that are included in the operation. -lssorrsSummaries :: Lens' ListStackSetOperationResultsResponse [StackSetOperationResultSummary] -lssorrsSummaries = lens _lssorrsSummaries (\ s a -> s{_lssorrsSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lssorrsResponseStatus :: Lens' ListStackSetOperationResultsResponse Int -lssorrsResponseStatus = lens _lssorrsResponseStatus (\ s a -> s{_lssorrsResponseStatus = a}) - -instance NFData ListStackSetOperationResultsResponse - where diff --git a/gen/Network/AWS/CloudFormation/ListStackSetOperations.hs b/gen/Network/AWS/CloudFormation/ListStackSetOperations.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListStackSetOperations.hs +++ /dev/null @@ -1,163 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListStackSetOperations --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns summary information about operations performed on a stack set. --- --- -module Network.AWS.CloudFormation.ListStackSetOperations - ( - -- * Creating a Request - listStackSetOperations - , ListStackSetOperations - -- * Request Lenses - , lssoNextToken - , lssoMaxResults - , lssoStackSetName - - -- * Destructuring the Response - , listStackSetOperationsResponse - , ListStackSetOperationsResponse - -- * Response Lenses - , lssorsNextToken - , lssorsSummaries - , lssorsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'listStackSetOperations' smart constructor. -data ListStackSetOperations = ListStackSetOperations' - { _lssoNextToken :: !(Maybe Text) - , _lssoMaxResults :: !(Maybe Nat) - , _lssoStackSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackSetOperations' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lssoNextToken' - If the previous paginated request didn't return all of the remaining results, the response object's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackSetOperations@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . --- --- * 'lssoMaxResults' - The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. --- --- * 'lssoStackSetName' - The name or unique ID of the stack set that you want to get operation summaries for. -listStackSetOperations - :: Text -- ^ 'lssoStackSetName' - -> ListStackSetOperations -listStackSetOperations pStackSetName_ = - ListStackSetOperations' - { _lssoNextToken = Nothing - , _lssoMaxResults = Nothing - , _lssoStackSetName = pStackSetName_ - } - - --- | If the previous paginated request didn't return all of the remaining results, the response object's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackSetOperations@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . -lssoNextToken :: Lens' ListStackSetOperations (Maybe Text) -lssoNextToken = lens _lssoNextToken (\ s a -> s{_lssoNextToken = a}) - --- | The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. -lssoMaxResults :: Lens' ListStackSetOperations (Maybe Natural) -lssoMaxResults = lens _lssoMaxResults (\ s a -> s{_lssoMaxResults = a}) . mapping _Nat - --- | The name or unique ID of the stack set that you want to get operation summaries for. -lssoStackSetName :: Lens' ListStackSetOperations Text -lssoStackSetName = lens _lssoStackSetName (\ s a -> s{_lssoStackSetName = a}) - -instance AWSRequest ListStackSetOperations where - type Rs ListStackSetOperations = - ListStackSetOperationsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListStackSetOperationsResult" - (\ s h x -> - ListStackSetOperationsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Summaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListStackSetOperations where - -instance NFData ListStackSetOperations where - -instance ToHeaders ListStackSetOperations where - toHeaders = const mempty - -instance ToPath ListStackSetOperations where - toPath = const "/" - -instance ToQuery ListStackSetOperations where - toQuery ListStackSetOperations'{..} - = mconcat - ["Action" =: - ("ListStackSetOperations" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _lssoNextToken, - "MaxResults" =: _lssoMaxResults, - "StackSetName" =: _lssoStackSetName] - --- | /See:/ 'listStackSetOperationsResponse' smart constructor. -data ListStackSetOperationsResponse = ListStackSetOperationsResponse' - { _lssorsNextToken :: !(Maybe Text) - , _lssorsSummaries :: !(Maybe [StackSetOperationSummary]) - , _lssorsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackSetOperationsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lssorsNextToken' - If the request doesn't return all results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListOperationResults@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, @NextToken@ is set to @null@ . --- --- * 'lssorsSummaries' - A list of @StackSetOperationSummary@ structures that contain summary information about operations for the specified stack set. --- --- * 'lssorsResponseStatus' - -- | The response status code. -listStackSetOperationsResponse - :: Int -- ^ 'lssorsResponseStatus' - -> ListStackSetOperationsResponse -listStackSetOperationsResponse pResponseStatus_ = - ListStackSetOperationsResponse' - { _lssorsNextToken = Nothing - , _lssorsSummaries = Nothing - , _lssorsResponseStatus = pResponseStatus_ - } - - --- | If the request doesn't return all results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListOperationResults@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, @NextToken@ is set to @null@ . -lssorsNextToken :: Lens' ListStackSetOperationsResponse (Maybe Text) -lssorsNextToken = lens _lssorsNextToken (\ s a -> s{_lssorsNextToken = a}) - --- | A list of @StackSetOperationSummary@ structures that contain summary information about operations for the specified stack set. -lssorsSummaries :: Lens' ListStackSetOperationsResponse [StackSetOperationSummary] -lssorsSummaries = lens _lssorsSummaries (\ s a -> s{_lssorsSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lssorsResponseStatus :: Lens' ListStackSetOperationsResponse Int -lssorsResponseStatus = lens _lssorsResponseStatus (\ s a -> s{_lssorsResponseStatus = a}) - -instance NFData ListStackSetOperationsResponse where diff --git a/gen/Network/AWS/CloudFormation/ListStackSets.hs b/gen/Network/AWS/CloudFormation/ListStackSets.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListStackSets.hs +++ /dev/null @@ -1,156 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListStackSets --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns summary information about stack sets that are associated with the user. --- --- -module Network.AWS.CloudFormation.ListStackSets - ( - -- * Creating a Request - listStackSets - , ListStackSets - -- * Request Lenses - , lssStatus - , lssNextToken - , lssMaxResults - - -- * Destructuring the Response - , listStackSetsResponse - , ListStackSetsResponse - -- * Response Lenses - , lssrsNextToken - , lssrsSummaries - , lssrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'listStackSets' smart constructor. -data ListStackSets = ListStackSets' - { _lssStatus :: !(Maybe StackSetStatus) - , _lssNextToken :: !(Maybe Text) - , _lssMaxResults :: !(Maybe Nat) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackSets' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lssStatus' - The status of the stack sets that you want to get summary information about. --- --- * 'lssNextToken' - If the previous paginated request didn't return all of the remaining results, the response object's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackSets@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . --- --- * 'lssMaxResults' - The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. -listStackSets - :: ListStackSets -listStackSets = - ListStackSets' - {_lssStatus = Nothing, _lssNextToken = Nothing, _lssMaxResults = Nothing} - - --- | The status of the stack sets that you want to get summary information about. -lssStatus :: Lens' ListStackSets (Maybe StackSetStatus) -lssStatus = lens _lssStatus (\ s a -> s{_lssStatus = a}) - --- | If the previous paginated request didn't return all of the remaining results, the response object's @NextToken@ parameter value is set to a token. To retrieve the next set of results, call @ListStackSets@ again and assign that token to the request object's @NextToken@ parameter. If there are no remaining results, the previous response object's @NextToken@ parameter is set to @null@ . -lssNextToken :: Lens' ListStackSets (Maybe Text) -lssNextToken = lens _lssNextToken (\ s a -> s{_lssNextToken = a}) - --- | The maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. -lssMaxResults :: Lens' ListStackSets (Maybe Natural) -lssMaxResults = lens _lssMaxResults (\ s a -> s{_lssMaxResults = a}) . mapping _Nat - -instance AWSRequest ListStackSets where - type Rs ListStackSets = ListStackSetsResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListStackSetsResult" - (\ s h x -> - ListStackSetsResponse' <$> - (x .@? "NextToken") <*> - (x .@? "Summaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListStackSets where - -instance NFData ListStackSets where - -instance ToHeaders ListStackSets where - toHeaders = const mempty - -instance ToPath ListStackSets where - toPath = const "/" - -instance ToQuery ListStackSets where - toQuery ListStackSets'{..} - = mconcat - ["Action" =: ("ListStackSets" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "Status" =: _lssStatus, "NextToken" =: _lssNextToken, - "MaxResults" =: _lssMaxResults] - --- | /See:/ 'listStackSetsResponse' smart constructor. -data ListStackSetsResponse = ListStackSetsResponse' - { _lssrsNextToken :: !(Maybe Text) - , _lssrsSummaries :: !(Maybe [StackSetSummary]) - , _lssrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStackSetsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lssrsNextToken' - If the request doesn't return all of the remaining results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListStackInstances@ again and assign that token to the request object's @NextToken@ parameter. If the request returns all results, @NextToken@ is set to @null@ . --- --- * 'lssrsSummaries' - A list of @StackSetSummary@ structures that contain information about the user's stack sets. --- --- * 'lssrsResponseStatus' - -- | The response status code. -listStackSetsResponse - :: Int -- ^ 'lssrsResponseStatus' - -> ListStackSetsResponse -listStackSetsResponse pResponseStatus_ = - ListStackSetsResponse' - { _lssrsNextToken = Nothing - , _lssrsSummaries = Nothing - , _lssrsResponseStatus = pResponseStatus_ - } - - --- | If the request doesn't return all of the remaining results, @NextToken@ is set to a token. To retrieve the next set of results, call @ListStackInstances@ again and assign that token to the request object's @NextToken@ parameter. If the request returns all results, @NextToken@ is set to @null@ . -lssrsNextToken :: Lens' ListStackSetsResponse (Maybe Text) -lssrsNextToken = lens _lssrsNextToken (\ s a -> s{_lssrsNextToken = a}) - --- | A list of @StackSetSummary@ structures that contain information about the user's stack sets. -lssrsSummaries :: Lens' ListStackSetsResponse [StackSetSummary] -lssrsSummaries = lens _lssrsSummaries (\ s a -> s{_lssrsSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lssrsResponseStatus :: Lens' ListStackSetsResponse Int -lssrsResponseStatus = lens _lssrsResponseStatus (\ s a -> s{_lssrsResponseStatus = a}) - -instance NFData ListStackSetsResponse where diff --git a/gen/Network/AWS/CloudFormation/ListStacks.hs b/gen/Network/AWS/CloudFormation/ListStacks.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ListStacks.hs +++ /dev/null @@ -1,167 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ListStacks --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns the summary information for stacks whose status matches the specified StackStatusFilter. Summary information for stacks that have been deleted is kept for 90 days after the stack is deleted. If no StackStatusFilter is specified, summary information for all stacks is returned (including existing stacks and stacks that have been deleted). --- --- --- --- This operation returns paginated results. -module Network.AWS.CloudFormation.ListStacks - ( - -- * Creating a Request - listStacks - , ListStacks - -- * Request Lenses - , lsNextToken - , lsStackStatusFilter - - -- * Destructuring the Response - , listStacksResponse - , ListStacksResponse - -- * Response Lenses - , lsrsNextToken - , lsrsStackSummaries - , lsrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'ListStacks' action. --- --- --- --- /See:/ 'listStacks' smart constructor. -data ListStacks = ListStacks' - { _lsNextToken :: !(Maybe Text) - , _lsStackStatusFilter :: !(Maybe [StackStatus]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStacks' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsNextToken' - A string that identifies the next page of stacks that you want to retrieve. --- --- * 'lsStackStatusFilter' - Stack status to use as a filter. Specify one or more stack status codes to list only stacks with the specified status codes. For a complete list of stack status codes, see the @StackStatus@ parameter of the 'Stack' data type. -listStacks - :: ListStacks -listStacks = - ListStacks' {_lsNextToken = Nothing, _lsStackStatusFilter = Nothing} - - --- | A string that identifies the next page of stacks that you want to retrieve. -lsNextToken :: Lens' ListStacks (Maybe Text) -lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a}) - --- | Stack status to use as a filter. Specify one or more stack status codes to list only stacks with the specified status codes. For a complete list of stack status codes, see the @StackStatus@ parameter of the 'Stack' data type. -lsStackStatusFilter :: Lens' ListStacks [StackStatus] -lsStackStatusFilter = lens _lsStackStatusFilter (\ s a -> s{_lsStackStatusFilter = a}) . _Default . _Coerce - -instance AWSPager ListStacks where - page rq rs - | stop (rs ^. lsrsNextToken) = Nothing - | stop (rs ^. lsrsStackSummaries) = Nothing - | otherwise = - Just $ rq & lsNextToken .~ rs ^. lsrsNextToken - -instance AWSRequest ListStacks where - type Rs ListStacks = ListStacksResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ListStacksResult" - (\ s h x -> - ListStacksResponse' <$> - (x .@? "NextToken") <*> - (x .@? "StackSummaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ListStacks where - -instance NFData ListStacks where - -instance ToHeaders ListStacks where - toHeaders = const mempty - -instance ToPath ListStacks where - toPath = const "/" - -instance ToQuery ListStacks where - toQuery ListStacks'{..} - = mconcat - ["Action" =: ("ListStacks" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "NextToken" =: _lsNextToken, - "StackStatusFilter" =: - toQuery - (toQueryList "member" <$> _lsStackStatusFilter)] - --- | The output for 'ListStacks' action. --- --- --- --- /See:/ 'listStacksResponse' smart constructor. -data ListStacksResponse = ListStacksResponse' - { _lsrsNextToken :: !(Maybe Text) - , _lsrsStackSummaries :: !(Maybe [StackSummary]) - , _lsrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListStacksResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsrsNextToken' - If the output exceeds 1 MB in size, a string that identifies the next page of stacks. If no additional page exists, this value is null. --- --- * 'lsrsStackSummaries' - A list of @StackSummary@ structures containing information about the specified stacks. --- --- * 'lsrsResponseStatus' - -- | The response status code. -listStacksResponse - :: Int -- ^ 'lsrsResponseStatus' - -> ListStacksResponse -listStacksResponse pResponseStatus_ = - ListStacksResponse' - { _lsrsNextToken = Nothing - , _lsrsStackSummaries = Nothing - , _lsrsResponseStatus = pResponseStatus_ - } - - --- | If the output exceeds 1 MB in size, a string that identifies the next page of stacks. If no additional page exists, this value is null. -lsrsNextToken :: Lens' ListStacksResponse (Maybe Text) -lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a}) - --- | A list of @StackSummary@ structures containing information about the specified stacks. -lsrsStackSummaries :: Lens' ListStacksResponse [StackSummary] -lsrsStackSummaries = lens _lsrsStackSummaries (\ s a -> s{_lsrsStackSummaries = a}) . _Default . _Coerce - --- | -- | The response status code. -lsrsResponseStatus :: Lens' ListStacksResponse Int -lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a}) - -instance NFData ListStacksResponse where diff --git a/gen/Network/AWS/CloudFormation/SetStackPolicy.hs b/gen/Network/AWS/CloudFormation/SetStackPolicy.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/SetStackPolicy.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.SetStackPolicy --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Sets a stack policy for a specified stack. --- --- -module Network.AWS.CloudFormation.SetStackPolicy - ( - -- * Creating a Request - setStackPolicy - , SetStackPolicy - -- * Request Lenses - , sspStackPolicyBody - , sspStackPolicyURL - , sspStackName - - -- * Destructuring the Response - , setStackPolicyResponse - , SetStackPolicyResponse - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'SetStackPolicy' action. --- --- --- --- /See:/ 'setStackPolicy' smart constructor. -data SetStackPolicy = SetStackPolicy' - { _sspStackPolicyBody :: !(Maybe Text) - , _sspStackPolicyURL :: !(Maybe Text) - , _sspStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SetStackPolicy' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sspStackPolicyBody' - Structure containing the stack policy body. For more information, go to in the AWS CloudFormation User Guide. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. --- --- * 'sspStackPolicyURL' - Location of a file containing the stack policy. The URL must point to a policy (maximum size: 16 KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. --- --- * 'sspStackName' - The name or unique stack ID that you want to associate a policy with. -setStackPolicy - :: Text -- ^ 'sspStackName' - -> SetStackPolicy -setStackPolicy pStackName_ = - SetStackPolicy' - { _sspStackPolicyBody = Nothing - , _sspStackPolicyURL = Nothing - , _sspStackName = pStackName_ - } - - --- | Structure containing the stack policy body. For more information, go to in the AWS CloudFormation User Guide. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. -sspStackPolicyBody :: Lens' SetStackPolicy (Maybe Text) -sspStackPolicyBody = lens _sspStackPolicyBody (\ s a -> s{_sspStackPolicyBody = a}) - --- | Location of a file containing the stack policy. The URL must point to a policy (maximum size: 16 KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. -sspStackPolicyURL :: Lens' SetStackPolicy (Maybe Text) -sspStackPolicyURL = lens _sspStackPolicyURL (\ s a -> s{_sspStackPolicyURL = a}) - --- | The name or unique stack ID that you want to associate a policy with. -sspStackName :: Lens' SetStackPolicy Text -sspStackName = lens _sspStackName (\ s a -> s{_sspStackName = a}) - -instance AWSRequest SetStackPolicy where - type Rs SetStackPolicy = SetStackPolicyResponse - request = postQuery cloudFormation - response = receiveNull SetStackPolicyResponse' - -instance Hashable SetStackPolicy where - -instance NFData SetStackPolicy where - -instance ToHeaders SetStackPolicy where - toHeaders = const mempty - -instance ToPath SetStackPolicy where - toPath = const "/" - -instance ToQuery SetStackPolicy where - toQuery SetStackPolicy'{..} - = mconcat - ["Action" =: ("SetStackPolicy" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackPolicyBody" =: _sspStackPolicyBody, - "StackPolicyURL" =: _sspStackPolicyURL, - "StackName" =: _sspStackName] - --- | /See:/ 'setStackPolicyResponse' smart constructor. -data SetStackPolicyResponse = - SetStackPolicyResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SetStackPolicyResponse' with the minimum fields required to make a request. --- -setStackPolicyResponse - :: SetStackPolicyResponse -setStackPolicyResponse = SetStackPolicyResponse' - - -instance NFData SetStackPolicyResponse where diff --git a/gen/Network/AWS/CloudFormation/SignalResource.hs b/gen/Network/AWS/CloudFormation/SignalResource.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/SignalResource.hs +++ /dev/null @@ -1,139 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.SignalResource --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Sends a signal to the specified resource with a success or failure status. You can use the SignalResource API in conjunction with a creation policy or update policy. AWS CloudFormation doesn't proceed with a stack creation or update until resources receive the required number of signals or the timeout period is exceeded. The SignalResource API is useful in cases where you want to send signals from anywhere other than an Amazon EC2 instance. --- --- -module Network.AWS.CloudFormation.SignalResource - ( - -- * Creating a Request - signalResource - , SignalResource - -- * Request Lenses - , sigStackName - , sigLogicalResourceId - , sigUniqueId - , sigStatus - - -- * Destructuring the Response - , signalResourceResponse - , SignalResourceResponse - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for the 'SignalResource' action. --- --- --- --- /See:/ 'signalResource' smart constructor. -data SignalResource = SignalResource' - { _sigStackName :: !Text - , _sigLogicalResourceId :: !Text - , _sigUniqueId :: !Text - , _sigStatus :: !ResourceSignalStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalResource' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sigStackName' - The stack name or unique stack ID that includes the resource that you want to signal. --- --- * 'sigLogicalResourceId' - The logical ID of the resource that you want to signal. The logical ID is the name of the resource that given in the template. --- --- * 'sigUniqueId' - A unique ID of the signal. When you signal Amazon EC2 instances or Auto Scaling groups, specify the instance ID that you are signaling as the unique ID. If you send multiple signals to a single resource (such as signaling a wait condition), each signal requires a different unique ID. --- --- * 'sigStatus' - The status of the signal, which is either success or failure. A failure signal causes AWS CloudFormation to immediately fail the stack creation or update. -signalResource - :: Text -- ^ 'sigStackName' - -> Text -- ^ 'sigLogicalResourceId' - -> Text -- ^ 'sigUniqueId' - -> ResourceSignalStatus -- ^ 'sigStatus' - -> SignalResource -signalResource pStackName_ pLogicalResourceId_ pUniqueId_ pStatus_ = - SignalResource' - { _sigStackName = pStackName_ - , _sigLogicalResourceId = pLogicalResourceId_ - , _sigUniqueId = pUniqueId_ - , _sigStatus = pStatus_ - } - - --- | The stack name or unique stack ID that includes the resource that you want to signal. -sigStackName :: Lens' SignalResource Text -sigStackName = lens _sigStackName (\ s a -> s{_sigStackName = a}) - --- | The logical ID of the resource that you want to signal. The logical ID is the name of the resource that given in the template. -sigLogicalResourceId :: Lens' SignalResource Text -sigLogicalResourceId = lens _sigLogicalResourceId (\ s a -> s{_sigLogicalResourceId = a}) - --- | A unique ID of the signal. When you signal Amazon EC2 instances or Auto Scaling groups, specify the instance ID that you are signaling as the unique ID. If you send multiple signals to a single resource (such as signaling a wait condition), each signal requires a different unique ID. -sigUniqueId :: Lens' SignalResource Text -sigUniqueId = lens _sigUniqueId (\ s a -> s{_sigUniqueId = a}) - --- | The status of the signal, which is either success or failure. A failure signal causes AWS CloudFormation to immediately fail the stack creation or update. -sigStatus :: Lens' SignalResource ResourceSignalStatus -sigStatus = lens _sigStatus (\ s a -> s{_sigStatus = a}) - -instance AWSRequest SignalResource where - type Rs SignalResource = SignalResourceResponse - request = postQuery cloudFormation - response = receiveNull SignalResourceResponse' - -instance Hashable SignalResource where - -instance NFData SignalResource where - -instance ToHeaders SignalResource where - toHeaders = const mempty - -instance ToPath SignalResource where - toPath = const "/" - -instance ToQuery SignalResource where - toQuery SignalResource'{..} - = mconcat - ["Action" =: ("SignalResource" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackName" =: _sigStackName, - "LogicalResourceId" =: _sigLogicalResourceId, - "UniqueId" =: _sigUniqueId, "Status" =: _sigStatus] - --- | /See:/ 'signalResourceResponse' smart constructor. -data SignalResourceResponse = - SignalResourceResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalResourceResponse' with the minimum fields required to make a request. --- -signalResourceResponse - :: SignalResourceResponse -signalResourceResponse = SignalResourceResponse' - - -instance NFData SignalResourceResponse where diff --git a/gen/Network/AWS/CloudFormation/StopStackSetOperation.hs b/gen/Network/AWS/CloudFormation/StopStackSetOperation.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/StopStackSetOperation.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.StopStackSetOperation --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Stops an in-progress operation on a stack set and its associated stack instances. --- --- -module Network.AWS.CloudFormation.StopStackSetOperation - ( - -- * Creating a Request - stopStackSetOperation - , StopStackSetOperation - -- * Request Lenses - , sssoStackSetName - , sssoOperationId - - -- * Destructuring the Response - , stopStackSetOperationResponse - , StopStackSetOperationResponse - -- * Response Lenses - , sssorsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'stopStackSetOperation' smart constructor. -data StopStackSetOperation = StopStackSetOperation' - { _sssoStackSetName :: !Text - , _sssoOperationId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StopStackSetOperation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sssoStackSetName' - The name or unique ID of the stack set that you want to stop the operation for. --- --- * 'sssoOperationId' - The ID of the stack operation. -stopStackSetOperation - :: Text -- ^ 'sssoStackSetName' - -> Text -- ^ 'sssoOperationId' - -> StopStackSetOperation -stopStackSetOperation pStackSetName_ pOperationId_ = - StopStackSetOperation' - {_sssoStackSetName = pStackSetName_, _sssoOperationId = pOperationId_} - - --- | The name or unique ID of the stack set that you want to stop the operation for. -sssoStackSetName :: Lens' StopStackSetOperation Text -sssoStackSetName = lens _sssoStackSetName (\ s a -> s{_sssoStackSetName = a}) - --- | The ID of the stack operation. -sssoOperationId :: Lens' StopStackSetOperation Text -sssoOperationId = lens _sssoOperationId (\ s a -> s{_sssoOperationId = a}) - -instance AWSRequest StopStackSetOperation where - type Rs StopStackSetOperation = - StopStackSetOperationResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "StopStackSetOperationResult" - (\ s h x -> - StopStackSetOperationResponse' <$> - (pure (fromEnum s))) - -instance Hashable StopStackSetOperation where - -instance NFData StopStackSetOperation where - -instance ToHeaders StopStackSetOperation where - toHeaders = const mempty - -instance ToPath StopStackSetOperation where - toPath = const "/" - -instance ToQuery StopStackSetOperation where - toQuery StopStackSetOperation'{..} - = mconcat - ["Action" =: ("StopStackSetOperation" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "StackSetName" =: _sssoStackSetName, - "OperationId" =: _sssoOperationId] - --- | /See:/ 'stopStackSetOperationResponse' smart constructor. -newtype StopStackSetOperationResponse = StopStackSetOperationResponse' - { _sssorsResponseStatus :: Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StopStackSetOperationResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sssorsResponseStatus' - -- | The response status code. -stopStackSetOperationResponse - :: Int -- ^ 'sssorsResponseStatus' - -> StopStackSetOperationResponse -stopStackSetOperationResponse pResponseStatus_ = - StopStackSetOperationResponse' {_sssorsResponseStatus = pResponseStatus_} - - --- | -- | The response status code. -sssorsResponseStatus :: Lens' StopStackSetOperationResponse Int -sssorsResponseStatus = lens _sssorsResponseStatus (\ s a -> s{_sssorsResponseStatus = a}) - -instance NFData StopStackSetOperationResponse where diff --git a/gen/Network/AWS/CloudFormation/Types.hs b/gen/Network/AWS/CloudFormation/Types.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/Types.hs +++ /dev/null @@ -1,577 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.Types --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.AWS.CloudFormation.Types - ( - -- * Service Configuration - cloudFormation - - -- * Errors - , _CreatedButModifiedException - , _ChangeSetNotFoundException - , _OperationInProgressException - , _InvalidChangeSetStatusException - , _OperationNotFoundException - , _OperationIdAlreadyExistsException - , _InsufficientCapabilitiesException - , _TokenAlreadyExistsException - , _StackSetNotFoundException - , _StackInstanceNotFoundException - , _StackSetNotEmptyException - , _InvalidOperationException - , _NameAlreadyExistsException - , _StaleRequestException - , _AlreadyExistsException - , _LimitExceededException - - -- * AccountGateStatus - , AccountGateStatus (..) - - -- * Capability - , Capability (..) - - -- * ChangeAction - , ChangeAction (..) - - -- * ChangeSetStatus - , ChangeSetStatus (..) - - -- * ChangeSetType - , ChangeSetType (..) - - -- * ChangeSource - , ChangeSource (..) - - -- * ChangeType - , ChangeType (..) - - -- * EvaluationType - , EvaluationType (..) - - -- * ExecutionStatus - , ExecutionStatus (..) - - -- * OnFailure - , OnFailure (..) - - -- * Replacement - , Replacement (..) - - -- * RequiresRecreation - , RequiresRecreation (..) - - -- * ResourceAttribute - , ResourceAttribute (..) - - -- * ResourceSignalStatus - , ResourceSignalStatus (..) - - -- * ResourceStatus - , ResourceStatus (..) - - -- * StackInstanceStatus - , StackInstanceStatus (..) - - -- * StackSetOperationAction - , StackSetOperationAction (..) - - -- * StackSetOperationResultStatus - , StackSetOperationResultStatus (..) - - -- * StackSetOperationStatus - , StackSetOperationStatus (..) - - -- * StackSetStatus - , StackSetStatus (..) - - -- * StackStatus - , StackStatus (..) - - -- * TemplateStage - , TemplateStage (..) - - -- * AccountGateResult - , AccountGateResult - , accountGateResult - , agrStatus - , agrStatusReason - - -- * AccountLimit - , AccountLimit - , accountLimit - , alValue - , alName - - -- * Change - , Change - , change - , cResourceChange - , cType - - -- * ChangeSetSummary - , ChangeSetSummary - , changeSetSummary - , cCreationTime - , cStatus - , cChangeSetName - , cExecutionStatus - , cChangeSetId - , cStatusReason - , cStackId - , cDescription - , cStackName - - -- * Export - , Export - , export' - , eValue - , eExportingStackId - , eName - - -- * Output - , Output - , output - , oOutputValue - , oOutputKey - , oExportName - , oDescription - - -- * Parameter - , Parameter - , parameter - , pParameterValue - , pResolvedValue - , pParameterKey - , pUsePreviousValue - - -- * ParameterConstraints - , ParameterConstraints - , parameterConstraints - , pcAllowedValues - - -- * ParameterDeclaration - , ParameterDeclaration - , parameterDeclaration - , pdParameterKey - , pdParameterType - , pdParameterConstraints - , pdDefaultValue - , pdNoEcho - , pdDescription - - -- * ResourceChange - , ResourceChange - , resourceChange - , rcLogicalResourceId - , rcPhysicalResourceId - , rcResourceType - , rcAction - , rcScope - , rcDetails - , rcReplacement - - -- * ResourceChangeDetail - , ResourceChangeDetail - , resourceChangeDetail - , rcdCausingEntity - , rcdChangeSource - , rcdEvaluation - , rcdTarget - - -- * ResourceTargetDefinition - , ResourceTargetDefinition - , resourceTargetDefinition - , rtdAttribute - , rtdRequiresRecreation - , rtdName - - -- * RollbackConfiguration - , RollbackConfiguration - , rollbackConfiguration - , rcRollbackTriggers - , rcMonitoringTimeInMinutes - - -- * RollbackTrigger - , RollbackTrigger - , rollbackTrigger - , rtARN - , rtType - - -- * Stack - , Stack - , stack - , sDisableRollback - , sLastUpdatedTime - , sRootId - , sNotificationARNs - , sStackStatusReason - , sEnableTerminationProtection - , sChangeSetId - , sDeletionTime - , sOutputs - , sParameters - , sStackId - , sDescription - , sCapabilities - , sRollbackConfiguration - , sTags - , sTimeoutInMinutes - , sParentId - , sRoleARN - , sStackName - , sCreationTime - , sStackStatus - - -- * StackEvent - , StackEvent - , stackEvent - , seLogicalResourceId - , sePhysicalResourceId - , seResourceType - , seResourceStatusReason - , seResourceProperties - , seResourceStatus - , seClientRequestToken - , seStackId - , seEventId - , seStackName - , seTimestamp - - -- * StackInstance - , StackInstance - , stackInstance - , siStatus - , siAccount - , siRegion - , siStatusReason - , siStackId - , siParameterOverrides - , siStackSetId - - -- * StackInstanceSummary - , StackInstanceSummary - , stackInstanceSummary - , sisStatus - , sisAccount - , sisRegion - , sisStatusReason - , sisStackId - , sisStackSetId - - -- * StackResource - , StackResource - , stackResource - , srPhysicalResourceId - , srResourceStatusReason - , srStackId - , srDescription - , srStackName - , srLogicalResourceId - , srResourceType - , srTimestamp - , srResourceStatus - - -- * StackResourceDetail - , StackResourceDetail - , stackResourceDetail - , srdPhysicalResourceId - , srdResourceStatusReason - , srdMetadata - , srdStackId - , srdDescription - , srdStackName - , srdLogicalResourceId - , srdResourceType - , srdLastUpdatedTimestamp - , srdResourceStatus - - -- * StackResourceSummary - , StackResourceSummary - , stackResourceSummary - , srsPhysicalResourceId - , srsResourceStatusReason - , srsLogicalResourceId - , srsResourceType - , srsLastUpdatedTimestamp - , srsResourceStatus - - -- * StackSet - , StackSet - , stackSet - , ssStatus - , ssAdministrationRoleARN - , ssStackSetARN - , ssParameters - , ssTemplateBody - , ssStackSetName - , ssDescription - , ssCapabilities - , ssTags - , ssStackSetId - - -- * StackSetOperation - , StackSetOperation - , stackSetOperation - , ssoStatus - , ssoAdministrationRoleARN - , ssoAction - , ssoEndTimestamp - , ssoCreationTimestamp - , ssoOperationPreferences - , ssoOperationId - , ssoRetainStacks - , ssoStackSetId - - -- * StackSetOperationPreferences - , StackSetOperationPreferences - , stackSetOperationPreferences - , ssopRegionOrder - , ssopMaxConcurrentCount - , ssopMaxConcurrentPercentage - , ssopFailureToleranceCount - , ssopFailureTolerancePercentage - - -- * StackSetOperationResultSummary - , StackSetOperationResultSummary - , stackSetOperationResultSummary - , ssorsStatus - , ssorsAccount - , ssorsAccountGateResult - , ssorsRegion - , ssorsStatusReason - - -- * StackSetOperationSummary - , StackSetOperationSummary - , stackSetOperationSummary - , ssosStatus - , ssosAction - , ssosEndTimestamp - , ssosCreationTimestamp - , ssosOperationId - - -- * StackSetSummary - , StackSetSummary - , stackSetSummary - , sssStatus - , sssStackSetName - , sssDescription - , sssStackSetId - - -- * StackSummary - , StackSummary - , stackSummary - , ssLastUpdatedTime - , ssRootId - , ssStackStatusReason - , ssTemplateDescription - , ssDeletionTime - , ssStackId - , ssParentId - , ssStackName - , ssCreationTime - , ssStackStatus - - -- * Tag - , Tag - , tag - , tagKey - , tagValue - - -- * TemplateParameter - , TemplateParameter - , templateParameter - , tpParameterKey - , tpDefaultValue - , tpNoEcho - , tpDescription - ) where - -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.CloudFormation.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 - --- | API version @2010-05-15@ of the Amazon CloudFormation SDK configuration. -cloudFormation :: Service -cloudFormation = - Service - { _svcAbbrev = "CloudFormation" - , _svcSigner = v4 - , _svcPrefix = "cloudformation" - , _svcVersion = "2010-05-15" - , _svcEndpoint = defaultEndpoint cloudFormation - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseXMLError "CloudFormation" - , _svcRetry = retry - } - where - retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } - check e - | has (hasCode "ThrottledException" . hasStatus 400) e = - Just "throttled_exception" - | has (hasStatus 429) e = Just "too_many_requests" - | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" - | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" - | has (hasStatus 504) e = Just "gateway_timeout" - | has (hasCode "RequestThrottledException" . hasStatus 400) e = - Just "request_throttled_exception" - | has (hasStatus 502) e = Just "bad_gateway" - | has (hasStatus 503) e = Just "service_unavailable" - | has (hasStatus 500) e = Just "general_server_error" - | has (hasStatus 509) e = Just "limit_exceeded" - | otherwise = Nothing - - --- | The specified resource exists, but has been changed. --- --- -_CreatedButModifiedException :: AsError a => Getting (First ServiceError) a ServiceError -_CreatedButModifiedException = - _MatchServiceError cloudFormation "CreatedButModifiedException" . - hasStatus 409 - - --- | The specified change set name or ID doesn't exit. To view valid change sets for a stack, use the @ListChangeSets@ action. --- --- -_ChangeSetNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError -_ChangeSetNotFoundException = - _MatchServiceError cloudFormation "ChangeSetNotFound" . hasStatus 404 - - --- | Another operation is currently in progress for this stack set. Only one operation can be performed for a stack set at a given time. --- --- -_OperationInProgressException :: AsError a => Getting (First ServiceError) a ServiceError -_OperationInProgressException = - _MatchServiceError cloudFormation "OperationInProgressException" . - hasStatus 409 - - --- | The specified change set can't be used to update the stack. For example, the change set status might be @CREATE_IN_PROGRESS@ , or the stack status might be @UPDATE_IN_PROGRESS@ . --- --- -_InvalidChangeSetStatusException :: AsError a => Getting (First ServiceError) a ServiceError -_InvalidChangeSetStatusException = - _MatchServiceError cloudFormation "InvalidChangeSetStatus" . hasStatus 400 - - --- | The specified ID refers to an operation that doesn't exist. --- --- -_OperationNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError -_OperationNotFoundException = - _MatchServiceError cloudFormation "OperationNotFoundException" . hasStatus 404 - - --- | The specified operation ID already exists. --- --- -_OperationIdAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError -_OperationIdAlreadyExistsException = - _MatchServiceError cloudFormation "OperationIdAlreadyExistsException" . - hasStatus 409 - - --- | The template contains resources with capabilities that weren't specified in the Capabilities parameter. --- --- -_InsufficientCapabilitiesException :: AsError a => Getting (First ServiceError) a ServiceError -_InsufficientCapabilitiesException = - _MatchServiceError cloudFormation "InsufficientCapabilitiesException" . - hasStatus 400 - - --- | A client request token already exists. --- --- -_TokenAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError -_TokenAlreadyExistsException = - _MatchServiceError cloudFormation "TokenAlreadyExistsException" . - hasStatus 400 - - --- | The specified stack set doesn't exist. --- --- -_StackSetNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError -_StackSetNotFoundException = - _MatchServiceError cloudFormation "StackSetNotFoundException" . hasStatus 404 - - --- | The specified stack instance doesn't exist. --- --- -_StackInstanceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError -_StackInstanceNotFoundException = - _MatchServiceError cloudFormation "StackInstanceNotFoundException" . - hasStatus 404 - - --- | You can't yet delete this stack set, because it still contains one or more stack instances. Delete all stack instances from the stack set before deleting the stack set. --- --- -_StackSetNotEmptyException :: AsError a => Getting (First ServiceError) a ServiceError -_StackSetNotEmptyException = - _MatchServiceError cloudFormation "StackSetNotEmptyException" . hasStatus 409 - - --- | The specified operation isn't valid. --- --- -_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError -_InvalidOperationException = - _MatchServiceError cloudFormation "InvalidOperationException" . hasStatus 400 - - --- | The specified name is already in use. --- --- -_NameAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError -_NameAlreadyExistsException = - _MatchServiceError cloudFormation "NameAlreadyExistsException" . hasStatus 409 - - --- | Another operation has been performed on this stack set since the specified operation was performed. --- --- -_StaleRequestException :: AsError a => Getting (First ServiceError) a ServiceError -_StaleRequestException = - _MatchServiceError cloudFormation "StaleRequestException" . hasStatus 409 - - --- | The resource with the name requested already exists. --- --- -_AlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError -_AlreadyExistsException = - _MatchServiceError cloudFormation "AlreadyExistsException" . hasStatus 400 - - --- | The quota for the resource has already been reached. --- --- --- For information on stack set limitations, see . --- -_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError -_LimitExceededException = - _MatchServiceError cloudFormation "LimitExceededException" . hasStatus 400 - diff --git a/gen/Network/AWS/CloudFormation/Types/Product.hs b/gen/Network/AWS/CloudFormation/Types/Product.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/Types/Product.hs +++ /dev/null @@ -1,2454 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.Types.Product --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.AWS.CloudFormation.Types.Product where - -import Network.AWS.CloudFormation.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude - --- | Structure that contains the results of the account gate function which AWS CloudFormation invokes, if present, before proceeding with a stack set operation in an account and region. --- --- --- For each account and region, AWS CloudFormation lets you specify a Lamdba function that encapsulates any requirements that must be met before CloudFormation can proceed with a stack set operation in that account and region. CloudFormation invokes the function each time a stack set operation is requested for that account and region; if the function returns @FAILED@ , CloudFormation cancels the operation in that account and region, and sets the stack set operation result status for that account and region to @FAILED@ . --- --- For more information, see . --- --- --- /See:/ 'accountGateResult' smart constructor. -data AccountGateResult = AccountGateResult' - { _agrStatus :: !(Maybe AccountGateStatus) - , _agrStatusReason :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AccountGateResult' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'agrStatus' - The status of the account gate function. * @SUCCEEDED@ : The account gate function has determined that the account and region passes any requirements for a stack set operation to occur. AWS CloudFormation proceeds with the stack operation in that account and region. * @FAILED@ : The account gate function has determined that the account and region does not meet the requirements for a stack set operation to occur. AWS CloudFormation cancels the stack set operation in that account and region, and sets the stack set operation result status for that account and region to @FAILED@ . * @SKIPPED@ : AWS CloudFormation has skipped calling the account gate function for this account and region, for one of the following reasons: * An account gate function has not been specified for the account and region. AWS CloudFormation proceeds with the stack set operation in this account and region. * The @AWSCloudFormationStackSetExecutionRole@ of the stack set adminstration account lacks permissions to invoke the function. AWS CloudFormation proceeds with the stack set operation in this account and region. * Either no action is necessary, or no action is possible, on the stack. AWS CloudFormation skips the stack set operation in this account and region. --- --- * 'agrStatusReason' - The reason for the account gate status assigned to this account and region for the stack set operation. -accountGateResult - :: AccountGateResult -accountGateResult = - AccountGateResult' {_agrStatus = Nothing, _agrStatusReason = Nothing} - - --- | The status of the account gate function. * @SUCCEEDED@ : The account gate function has determined that the account and region passes any requirements for a stack set operation to occur. AWS CloudFormation proceeds with the stack operation in that account and region. * @FAILED@ : The account gate function has determined that the account and region does not meet the requirements for a stack set operation to occur. AWS CloudFormation cancels the stack set operation in that account and region, and sets the stack set operation result status for that account and region to @FAILED@ . * @SKIPPED@ : AWS CloudFormation has skipped calling the account gate function for this account and region, for one of the following reasons: * An account gate function has not been specified for the account and region. AWS CloudFormation proceeds with the stack set operation in this account and region. * The @AWSCloudFormationStackSetExecutionRole@ of the stack set adminstration account lacks permissions to invoke the function. AWS CloudFormation proceeds with the stack set operation in this account and region. * Either no action is necessary, or no action is possible, on the stack. AWS CloudFormation skips the stack set operation in this account and region. -agrStatus :: Lens' AccountGateResult (Maybe AccountGateStatus) -agrStatus = lens _agrStatus (\ s a -> s{_agrStatus = a}) - --- | The reason for the account gate status assigned to this account and region for the stack set operation. -agrStatusReason :: Lens' AccountGateResult (Maybe Text) -agrStatusReason = lens _agrStatusReason (\ s a -> s{_agrStatusReason = a}) - -instance FromXML AccountGateResult where - parseXML x - = AccountGateResult' <$> - (x .@? "Status") <*> (x .@? "StatusReason") - -instance Hashable AccountGateResult where - -instance NFData AccountGateResult where - --- | The AccountLimit data type. --- --- --- --- /See:/ 'accountLimit' smart constructor. -data AccountLimit = AccountLimit' - { _alValue :: !(Maybe Int) - , _alName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AccountLimit' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'alValue' - The value that is associated with the account limit name. --- --- * 'alName' - The name of the account limit. Currently, the only account limit is @StackLimit@ . -accountLimit - :: AccountLimit -accountLimit = AccountLimit' {_alValue = Nothing, _alName = Nothing} - - --- | The value that is associated with the account limit name. -alValue :: Lens' AccountLimit (Maybe Int) -alValue = lens _alValue (\ s a -> s{_alValue = a}) - --- | The name of the account limit. Currently, the only account limit is @StackLimit@ . -alName :: Lens' AccountLimit (Maybe Text) -alName = lens _alName (\ s a -> s{_alName = a}) - -instance FromXML AccountLimit where - parseXML x - = AccountLimit' <$> - (x .@? "Value") <*> (x .@? "Name") - -instance Hashable AccountLimit where - -instance NFData AccountLimit where - --- | The @Change@ structure describes the changes AWS CloudFormation will perform if you execute the change set. --- --- --- --- /See:/ 'change' smart constructor. -data Change = Change' - { _cResourceChange :: !(Maybe ResourceChange) - , _cType :: !(Maybe ChangeType) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Change' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cResourceChange' - A @ResourceChange@ structure that describes the resource and action that AWS CloudFormation will perform. --- --- * 'cType' - The type of entity that AWS CloudFormation changes. Currently, the only entity type is @Resource@ . -change - :: Change -change = Change' {_cResourceChange = Nothing, _cType = Nothing} - - --- | A @ResourceChange@ structure that describes the resource and action that AWS CloudFormation will perform. -cResourceChange :: Lens' Change (Maybe ResourceChange) -cResourceChange = lens _cResourceChange (\ s a -> s{_cResourceChange = a}) - --- | The type of entity that AWS CloudFormation changes. Currently, the only entity type is @Resource@ . -cType :: Lens' Change (Maybe ChangeType) -cType = lens _cType (\ s a -> s{_cType = a}) - -instance FromXML Change where - parseXML x - = Change' <$> - (x .@? "ResourceChange") <*> (x .@? "Type") - -instance Hashable Change where - -instance NFData Change where - --- | The @ChangeSetSummary@ structure describes a change set, its status, and the stack with which it's associated. --- --- --- --- /See:/ 'changeSetSummary' smart constructor. -data ChangeSetSummary = ChangeSetSummary' - { _cCreationTime :: !(Maybe ISO8601) - , _cStatus :: !(Maybe ChangeSetStatus) - , _cChangeSetName :: !(Maybe Text) - , _cExecutionStatus :: !(Maybe ExecutionStatus) - , _cChangeSetId :: !(Maybe Text) - , _cStatusReason :: !(Maybe Text) - , _cStackId :: !(Maybe Text) - , _cDescription :: !(Maybe Text) - , _cStackName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChangeSetSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cCreationTime' - The start time when the change set was created, in UTC. --- --- * 'cStatus' - The state of the change set, such as @CREATE_IN_PROGRESS@ , @CREATE_COMPLETE@ , or @FAILED@ . --- --- * 'cChangeSetName' - The name of the change set. --- --- * 'cExecutionStatus' - If the change set execution status is @AVAILABLE@ , you can execute the change set. If you can’t execute the change set, the status indicates why. For example, a change set might be in an @UNAVAILABLE@ state because AWS CloudFormation is still creating it or in an @OBSOLETE@ state because the stack was already updated. --- --- * 'cChangeSetId' - The ID of the change set. --- --- * 'cStatusReason' - A description of the change set's status. For example, if your change set is in the @FAILED@ state, AWS CloudFormation shows the error message. --- --- * 'cStackId' - The ID of the stack with which the change set is associated. --- --- * 'cDescription' - Descriptive information about the change set. --- --- * 'cStackName' - The name of the stack with which the change set is associated. -changeSetSummary - :: ChangeSetSummary -changeSetSummary = - ChangeSetSummary' - { _cCreationTime = Nothing - , _cStatus = Nothing - , _cChangeSetName = Nothing - , _cExecutionStatus = Nothing - , _cChangeSetId = Nothing - , _cStatusReason = Nothing - , _cStackId = Nothing - , _cDescription = Nothing - , _cStackName = Nothing - } - - --- | The start time when the change set was created, in UTC. -cCreationTime :: Lens' ChangeSetSummary (Maybe UTCTime) -cCreationTime = lens _cCreationTime (\ s a -> s{_cCreationTime = a}) . mapping _Time - --- | The state of the change set, such as @CREATE_IN_PROGRESS@ , @CREATE_COMPLETE@ , or @FAILED@ . -cStatus :: Lens' ChangeSetSummary (Maybe ChangeSetStatus) -cStatus = lens _cStatus (\ s a -> s{_cStatus = a}) - --- | The name of the change set. -cChangeSetName :: Lens' ChangeSetSummary (Maybe Text) -cChangeSetName = lens _cChangeSetName (\ s a -> s{_cChangeSetName = a}) - --- | If the change set execution status is @AVAILABLE@ , you can execute the change set. If you can’t execute the change set, the status indicates why. For example, a change set might be in an @UNAVAILABLE@ state because AWS CloudFormation is still creating it or in an @OBSOLETE@ state because the stack was already updated. -cExecutionStatus :: Lens' ChangeSetSummary (Maybe ExecutionStatus) -cExecutionStatus = lens _cExecutionStatus (\ s a -> s{_cExecutionStatus = a}) - --- | The ID of the change set. -cChangeSetId :: Lens' ChangeSetSummary (Maybe Text) -cChangeSetId = lens _cChangeSetId (\ s a -> s{_cChangeSetId = a}) - --- | A description of the change set's status. For example, if your change set is in the @FAILED@ state, AWS CloudFormation shows the error message. -cStatusReason :: Lens' ChangeSetSummary (Maybe Text) -cStatusReason = lens _cStatusReason (\ s a -> s{_cStatusReason = a}) - --- | The ID of the stack with which the change set is associated. -cStackId :: Lens' ChangeSetSummary (Maybe Text) -cStackId = lens _cStackId (\ s a -> s{_cStackId = a}) - --- | Descriptive information about the change set. -cDescription :: Lens' ChangeSetSummary (Maybe Text) -cDescription = lens _cDescription (\ s a -> s{_cDescription = a}) - --- | The name of the stack with which the change set is associated. -cStackName :: Lens' ChangeSetSummary (Maybe Text) -cStackName = lens _cStackName (\ s a -> s{_cStackName = a}) - -instance FromXML ChangeSetSummary where - parseXML x - = ChangeSetSummary' <$> - (x .@? "CreationTime") <*> (x .@? "Status") <*> - (x .@? "ChangeSetName") - <*> (x .@? "ExecutionStatus") - <*> (x .@? "ChangeSetId") - <*> (x .@? "StatusReason") - <*> (x .@? "StackId") - <*> (x .@? "Description") - <*> (x .@? "StackName") - -instance Hashable ChangeSetSummary where - -instance NFData ChangeSetSummary where - --- | The @Export@ structure describes the exported output values for a stack. --- --- --- --- /See:/ 'export'' smart constructor. -data Export = Export' - { _eValue :: !(Maybe Text) - , _eExportingStackId :: !(Maybe Text) - , _eName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Export' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eValue' - The value of the exported output, such as a resource physical ID. This value is defined in the @Export@ field in the associated stack's @Outputs@ section. --- --- * 'eExportingStackId' - The stack that contains the exported output name and value. --- --- * 'eName' - The name of exported output value. Use this name and the @Fn::ImportValue@ function to import the associated value into other stacks. The name is defined in the @Export@ field in the associated stack's @Outputs@ section. -export' - :: Export -export' = - Export' {_eValue = Nothing, _eExportingStackId = Nothing, _eName = Nothing} - - --- | The value of the exported output, such as a resource physical ID. This value is defined in the @Export@ field in the associated stack's @Outputs@ section. -eValue :: Lens' Export (Maybe Text) -eValue = lens _eValue (\ s a -> s{_eValue = a}) - --- | The stack that contains the exported output name and value. -eExportingStackId :: Lens' Export (Maybe Text) -eExportingStackId = lens _eExportingStackId (\ s a -> s{_eExportingStackId = a}) - --- | The name of exported output value. Use this name and the @Fn::ImportValue@ function to import the associated value into other stacks. The name is defined in the @Export@ field in the associated stack's @Outputs@ section. -eName :: Lens' Export (Maybe Text) -eName = lens _eName (\ s a -> s{_eName = a}) - -instance FromXML Export where - parseXML x - = Export' <$> - (x .@? "Value") <*> (x .@? "ExportingStackId") <*> - (x .@? "Name") - -instance Hashable Export where - -instance NFData Export where - --- | The Output data type. --- --- --- --- /See:/ 'output' smart constructor. -data Output = Output' - { _oOutputValue :: !(Maybe Text) - , _oOutputKey :: !(Maybe Text) - , _oExportName :: !(Maybe Text) - , _oDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Output' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'oOutputValue' - The value associated with the output. --- --- * 'oOutputKey' - The key associated with the output. --- --- * 'oExportName' - The name of the export associated with the output. --- --- * 'oDescription' - User defined description associated with the output. -output - :: Output -output = - Output' - { _oOutputValue = Nothing - , _oOutputKey = Nothing - , _oExportName = Nothing - , _oDescription = Nothing - } - - --- | The value associated with the output. -oOutputValue :: Lens' Output (Maybe Text) -oOutputValue = lens _oOutputValue (\ s a -> s{_oOutputValue = a}) - --- | The key associated with the output. -oOutputKey :: Lens' Output (Maybe Text) -oOutputKey = lens _oOutputKey (\ s a -> s{_oOutputKey = a}) - --- | The name of the export associated with the output. -oExportName :: Lens' Output (Maybe Text) -oExportName = lens _oExportName (\ s a -> s{_oExportName = a}) - --- | User defined description associated with the output. -oDescription :: Lens' Output (Maybe Text) -oDescription = lens _oDescription (\ s a -> s{_oDescription = a}) - -instance FromXML Output where - parseXML x - = Output' <$> - (x .@? "OutputValue") <*> (x .@? "OutputKey") <*> - (x .@? "ExportName") - <*> (x .@? "Description") - -instance Hashable Output where - -instance NFData Output where - --- | The Parameter data type. --- --- --- --- /See:/ 'parameter' smart constructor. -data Parameter = Parameter' - { _pParameterValue :: !(Maybe Text) - , _pResolvedValue :: !(Maybe Text) - , _pParameterKey :: !(Maybe Text) - , _pUsePreviousValue :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Parameter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pParameterValue' - The input value associated with the parameter. --- --- * 'pResolvedValue' - Read-only. The value that corresponds to a Systems Manager parameter key. This field is returned only for in the template. --- --- * 'pParameterKey' - The key associated with the parameter. If you don't specify a key and value for a particular parameter, AWS CloudFormation uses the default value that is specified in your template. --- --- * 'pUsePreviousValue' - During a stack update, use the existing parameter value that the stack is using for a given parameter key. If you specify @true@ , do not specify a parameter value. -parameter - :: Parameter -parameter = - Parameter' - { _pParameterValue = Nothing - , _pResolvedValue = Nothing - , _pParameterKey = Nothing - , _pUsePreviousValue = Nothing - } - - --- | The input value associated with the parameter. -pParameterValue :: Lens' Parameter (Maybe Text) -pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a}) - --- | Read-only. The value that corresponds to a Systems Manager parameter key. This field is returned only for in the template. -pResolvedValue :: Lens' Parameter (Maybe Text) -pResolvedValue = lens _pResolvedValue (\ s a -> s{_pResolvedValue = a}) - --- | The key associated with the parameter. If you don't specify a key and value for a particular parameter, AWS CloudFormation uses the default value that is specified in your template. -pParameterKey :: Lens' Parameter (Maybe Text) -pParameterKey = lens _pParameterKey (\ s a -> s{_pParameterKey = a}) - --- | During a stack update, use the existing parameter value that the stack is using for a given parameter key. If you specify @true@ , do not specify a parameter value. -pUsePreviousValue :: Lens' Parameter (Maybe Bool) -pUsePreviousValue = lens _pUsePreviousValue (\ s a -> s{_pUsePreviousValue = a}) - -instance FromXML Parameter where - parseXML x - = Parameter' <$> - (x .@? "ParameterValue") <*> (x .@? "ResolvedValue") - <*> (x .@? "ParameterKey") - <*> (x .@? "UsePreviousValue") - -instance Hashable Parameter where - -instance NFData Parameter where - -instance ToQuery Parameter where - toQuery Parameter'{..} - = mconcat - ["ParameterValue" =: _pParameterValue, - "ResolvedValue" =: _pResolvedValue, - "ParameterKey" =: _pParameterKey, - "UsePreviousValue" =: _pUsePreviousValue] - --- | A set of criteria that AWS CloudFormation uses to validate parameter values. Although other constraints might be defined in the stack template, AWS CloudFormation returns only the @AllowedValues@ property. --- --- --- --- /See:/ 'parameterConstraints' smart constructor. -newtype ParameterConstraints = ParameterConstraints' - { _pcAllowedValues :: Maybe [Text] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ParameterConstraints' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pcAllowedValues' - A list of values that are permitted for a parameter. -parameterConstraints - :: ParameterConstraints -parameterConstraints = ParameterConstraints' {_pcAllowedValues = Nothing} - - --- | A list of values that are permitted for a parameter. -pcAllowedValues :: Lens' ParameterConstraints [Text] -pcAllowedValues = lens _pcAllowedValues (\ s a -> s{_pcAllowedValues = a}) . _Default . _Coerce - -instance FromXML ParameterConstraints where - parseXML x - = ParameterConstraints' <$> - (x .@? "AllowedValues" .!@ mempty >>= - may (parseXMLList "member")) - -instance Hashable ParameterConstraints where - -instance NFData ParameterConstraints where - --- | The ParameterDeclaration data type. --- --- --- --- /See:/ 'parameterDeclaration' smart constructor. -data ParameterDeclaration = ParameterDeclaration' - { _pdParameterKey :: !(Maybe Text) - , _pdParameterType :: !(Maybe Text) - , _pdParameterConstraints :: !(Maybe ParameterConstraints) - , _pdDefaultValue :: !(Maybe Text) - , _pdNoEcho :: !(Maybe Bool) - , _pdDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ParameterDeclaration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pdParameterKey' - The name that is associated with the parameter. --- --- * 'pdParameterType' - The type of parameter. --- --- * 'pdParameterConstraints' - The criteria that AWS CloudFormation uses to validate parameter values. --- --- * 'pdDefaultValue' - The default value of the parameter. --- --- * 'pdNoEcho' - Flag that indicates whether the parameter value is shown as plain text in logs and in the AWS Management Console. --- --- * 'pdDescription' - The description that is associate with the parameter. -parameterDeclaration - :: ParameterDeclaration -parameterDeclaration = - ParameterDeclaration' - { _pdParameterKey = Nothing - , _pdParameterType = Nothing - , _pdParameterConstraints = Nothing - , _pdDefaultValue = Nothing - , _pdNoEcho = Nothing - , _pdDescription = Nothing - } - - --- | The name that is associated with the parameter. -pdParameterKey :: Lens' ParameterDeclaration (Maybe Text) -pdParameterKey = lens _pdParameterKey (\ s a -> s{_pdParameterKey = a}) - --- | The type of parameter. -pdParameterType :: Lens' ParameterDeclaration (Maybe Text) -pdParameterType = lens _pdParameterType (\ s a -> s{_pdParameterType = a}) - --- | The criteria that AWS CloudFormation uses to validate parameter values. -pdParameterConstraints :: Lens' ParameterDeclaration (Maybe ParameterConstraints) -pdParameterConstraints = lens _pdParameterConstraints (\ s a -> s{_pdParameterConstraints = a}) - --- | The default value of the parameter. -pdDefaultValue :: Lens' ParameterDeclaration (Maybe Text) -pdDefaultValue = lens _pdDefaultValue (\ s a -> s{_pdDefaultValue = a}) - --- | Flag that indicates whether the parameter value is shown as plain text in logs and in the AWS Management Console. -pdNoEcho :: Lens' ParameterDeclaration (Maybe Bool) -pdNoEcho = lens _pdNoEcho (\ s a -> s{_pdNoEcho = a}) - --- | The description that is associate with the parameter. -pdDescription :: Lens' ParameterDeclaration (Maybe Text) -pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a}) - -instance FromXML ParameterDeclaration where - parseXML x - = ParameterDeclaration' <$> - (x .@? "ParameterKey") <*> (x .@? "ParameterType") - <*> (x .@? "ParameterConstraints") - <*> (x .@? "DefaultValue") - <*> (x .@? "NoEcho") - <*> (x .@? "Description") - -instance Hashable ParameterDeclaration where - -instance NFData ParameterDeclaration where - --- | The @ResourceChange@ structure describes the resource and the action that AWS CloudFormation will perform on it if you execute this change set. --- --- --- --- /See:/ 'resourceChange' smart constructor. -data ResourceChange = ResourceChange' - { _rcLogicalResourceId :: !(Maybe Text) - , _rcPhysicalResourceId :: !(Maybe Text) - , _rcResourceType :: !(Maybe Text) - , _rcAction :: !(Maybe ChangeAction) - , _rcScope :: !(Maybe [ResourceAttribute]) - , _rcDetails :: !(Maybe [ResourceChangeDetail]) - , _rcReplacement :: !(Maybe Replacement) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ResourceChange' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcLogicalResourceId' - The resource's logical ID, which is defined in the stack's template. --- --- * 'rcPhysicalResourceId' - The resource's physical ID (resource name). Resources that you are adding don't have physical IDs because they haven't been created. --- --- * 'rcResourceType' - The type of AWS CloudFormation resource, such as @AWS::S3::Bucket@ . --- --- * 'rcAction' - The action that AWS CloudFormation takes on the resource, such as @Add@ (adds a new resource), @Modify@ (changes a resource), or @Remove@ (deletes a resource). --- --- * 'rcScope' - For the @Modify@ action, indicates which resource attribute is triggering this update, such as a change in the resource attribute's @Metadata@ , @Properties@ , or @Tags@ . --- --- * 'rcDetails' - For the @Modify@ action, a list of @ResourceChangeDetail@ structures that describes the changes that AWS CloudFormation will make to the resource. --- --- * 'rcReplacement' - For the @Modify@ action, indicates whether AWS CloudFormation will replace the resource by creating a new one and deleting the old one. This value depends on the value of the @RequiresRecreation@ property in the @ResourceTargetDefinition@ structure. For example, if the @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is @Static@ , @Replacement@ is @True@ . If the @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is @Dynamic@ , @Replacement@ is @Conditionally@ . If you have multiple changes with different @RequiresRecreation@ values, the @Replacement@ value depends on the change with the most impact. A @RequiresRecreation@ value of @Always@ has the most impact, followed by @Conditionally@ , and then @Never@ . -resourceChange - :: ResourceChange -resourceChange = - ResourceChange' - { _rcLogicalResourceId = Nothing - , _rcPhysicalResourceId = Nothing - , _rcResourceType = Nothing - , _rcAction = Nothing - , _rcScope = Nothing - , _rcDetails = Nothing - , _rcReplacement = Nothing - } - - --- | The resource's logical ID, which is defined in the stack's template. -rcLogicalResourceId :: Lens' ResourceChange (Maybe Text) -rcLogicalResourceId = lens _rcLogicalResourceId (\ s a -> s{_rcLogicalResourceId = a}) - --- | The resource's physical ID (resource name). Resources that you are adding don't have physical IDs because they haven't been created. -rcPhysicalResourceId :: Lens' ResourceChange (Maybe Text) -rcPhysicalResourceId = lens _rcPhysicalResourceId (\ s a -> s{_rcPhysicalResourceId = a}) - --- | The type of AWS CloudFormation resource, such as @AWS::S3::Bucket@ . -rcResourceType :: Lens' ResourceChange (Maybe Text) -rcResourceType = lens _rcResourceType (\ s a -> s{_rcResourceType = a}) - --- | The action that AWS CloudFormation takes on the resource, such as @Add@ (adds a new resource), @Modify@ (changes a resource), or @Remove@ (deletes a resource). -rcAction :: Lens' ResourceChange (Maybe ChangeAction) -rcAction = lens _rcAction (\ s a -> s{_rcAction = a}) - --- | For the @Modify@ action, indicates which resource attribute is triggering this update, such as a change in the resource attribute's @Metadata@ , @Properties@ , or @Tags@ . -rcScope :: Lens' ResourceChange [ResourceAttribute] -rcScope = lens _rcScope (\ s a -> s{_rcScope = a}) . _Default . _Coerce - --- | For the @Modify@ action, a list of @ResourceChangeDetail@ structures that describes the changes that AWS CloudFormation will make to the resource. -rcDetails :: Lens' ResourceChange [ResourceChangeDetail] -rcDetails = lens _rcDetails (\ s a -> s{_rcDetails = a}) . _Default . _Coerce - --- | For the @Modify@ action, indicates whether AWS CloudFormation will replace the resource by creating a new one and deleting the old one. This value depends on the value of the @RequiresRecreation@ property in the @ResourceTargetDefinition@ structure. For example, if the @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is @Static@ , @Replacement@ is @True@ . If the @RequiresRecreation@ field is @Always@ and the @Evaluation@ field is @Dynamic@ , @Replacement@ is @Conditionally@ . If you have multiple changes with different @RequiresRecreation@ values, the @Replacement@ value depends on the change with the most impact. A @RequiresRecreation@ value of @Always@ has the most impact, followed by @Conditionally@ , and then @Never@ . -rcReplacement :: Lens' ResourceChange (Maybe Replacement) -rcReplacement = lens _rcReplacement (\ s a -> s{_rcReplacement = a}) - -instance FromXML ResourceChange where - parseXML x - = ResourceChange' <$> - (x .@? "LogicalResourceId") <*> - (x .@? "PhysicalResourceId") - <*> (x .@? "ResourceType") - <*> (x .@? "Action") - <*> - (x .@? "Scope" .!@ mempty >>= - may (parseXMLList "member")) - <*> - (x .@? "Details" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "Replacement") - -instance Hashable ResourceChange where - -instance NFData ResourceChange where - --- | For a resource with @Modify@ as the action, the @ResourceChange@ structure describes the changes AWS CloudFormation will make to that resource. --- --- --- --- /See:/ 'resourceChangeDetail' smart constructor. -data ResourceChangeDetail = ResourceChangeDetail' - { _rcdCausingEntity :: !(Maybe Text) - , _rcdChangeSource :: !(Maybe ChangeSource) - , _rcdEvaluation :: !(Maybe EvaluationType) - , _rcdTarget :: !(Maybe ResourceTargetDefinition) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ResourceChangeDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcdCausingEntity' - The identity of the entity that triggered this change. This entity is a member of the group that is specified by the @ChangeSource@ field. For example, if you modified the value of the @KeyPairName@ parameter, the @CausingEntity@ is the name of the parameter (@KeyPairName@ ). If the @ChangeSource@ value is @DirectModification@ , no value is given for @CausingEntity@ . --- --- * 'rcdChangeSource' - The group to which the @CausingEntity@ value belongs. There are five entity groups: * @ResourceReference@ entities are @Ref@ intrinsic functions that refer to resources in the template, such as @{ "Ref" : "MyEC2InstanceResource" }@ . * @ParameterReference@ entities are @Ref@ intrinsic functions that get template parameter values, such as @{ "Ref" : "MyPasswordParameter" }@ . * @ResourceAttribute@ entities are @Fn::GetAtt@ intrinsic functions that get resource attribute values, such as @{ "Fn::GetAtt" : [ "MyEC2InstanceResource", "PublicDnsName" ] }@ . * @DirectModification@ entities are changes that are made directly to the template. * @Automatic@ entities are @AWS::CloudFormation::Stack@ resource types, which are also known as nested stacks. If you made no changes to the @AWS::CloudFormation::Stack@ resource, AWS CloudFormation sets the @ChangeSource@ to @Automatic@ because the nested stack's template might have changed. Changes to a nested stack's template aren't visible to AWS CloudFormation until you run an update on the parent stack. --- --- * 'rcdEvaluation' - Indicates whether AWS CloudFormation can determine the target value, and whether the target value will change before you execute a change set. For @Static@ evaluations, AWS CloudFormation can determine that the target value will change, and its value. For example, if you directly modify the @InstanceType@ property of an EC2 instance, AWS CloudFormation knows that this property value will change, and its value, so this is a @Static@ evaluation. For @Dynamic@ evaluations, cannot determine the target value because it depends on the result of an intrinsic function, such as a @Ref@ or @Fn::GetAtt@ intrinsic function, when the stack is updated. For example, if your template includes a reference to a resource that is conditionally recreated, the value of the reference (the physical ID of the resource) might change, depending on if the resource is recreated. If the resource is recreated, it will have a new physical ID, so all references to that resource will also be updated. --- --- * 'rcdTarget' - A @ResourceTargetDefinition@ structure that describes the field that AWS CloudFormation will change and whether the resource will be recreated. -resourceChangeDetail - :: ResourceChangeDetail -resourceChangeDetail = - ResourceChangeDetail' - { _rcdCausingEntity = Nothing - , _rcdChangeSource = Nothing - , _rcdEvaluation = Nothing - , _rcdTarget = Nothing - } - - --- | The identity of the entity that triggered this change. This entity is a member of the group that is specified by the @ChangeSource@ field. For example, if you modified the value of the @KeyPairName@ parameter, the @CausingEntity@ is the name of the parameter (@KeyPairName@ ). If the @ChangeSource@ value is @DirectModification@ , no value is given for @CausingEntity@ . -rcdCausingEntity :: Lens' ResourceChangeDetail (Maybe Text) -rcdCausingEntity = lens _rcdCausingEntity (\ s a -> s{_rcdCausingEntity = a}) - --- | The group to which the @CausingEntity@ value belongs. There are five entity groups: * @ResourceReference@ entities are @Ref@ intrinsic functions that refer to resources in the template, such as @{ "Ref" : "MyEC2InstanceResource" }@ . * @ParameterReference@ entities are @Ref@ intrinsic functions that get template parameter values, such as @{ "Ref" : "MyPasswordParameter" }@ . * @ResourceAttribute@ entities are @Fn::GetAtt@ intrinsic functions that get resource attribute values, such as @{ "Fn::GetAtt" : [ "MyEC2InstanceResource", "PublicDnsName" ] }@ . * @DirectModification@ entities are changes that are made directly to the template. * @Automatic@ entities are @AWS::CloudFormation::Stack@ resource types, which are also known as nested stacks. If you made no changes to the @AWS::CloudFormation::Stack@ resource, AWS CloudFormation sets the @ChangeSource@ to @Automatic@ because the nested stack's template might have changed. Changes to a nested stack's template aren't visible to AWS CloudFormation until you run an update on the parent stack. -rcdChangeSource :: Lens' ResourceChangeDetail (Maybe ChangeSource) -rcdChangeSource = lens _rcdChangeSource (\ s a -> s{_rcdChangeSource = a}) - --- | Indicates whether AWS CloudFormation can determine the target value, and whether the target value will change before you execute a change set. For @Static@ evaluations, AWS CloudFormation can determine that the target value will change, and its value. For example, if you directly modify the @InstanceType@ property of an EC2 instance, AWS CloudFormation knows that this property value will change, and its value, so this is a @Static@ evaluation. For @Dynamic@ evaluations, cannot determine the target value because it depends on the result of an intrinsic function, such as a @Ref@ or @Fn::GetAtt@ intrinsic function, when the stack is updated. For example, if your template includes a reference to a resource that is conditionally recreated, the value of the reference (the physical ID of the resource) might change, depending on if the resource is recreated. If the resource is recreated, it will have a new physical ID, so all references to that resource will also be updated. -rcdEvaluation :: Lens' ResourceChangeDetail (Maybe EvaluationType) -rcdEvaluation = lens _rcdEvaluation (\ s a -> s{_rcdEvaluation = a}) - --- | A @ResourceTargetDefinition@ structure that describes the field that AWS CloudFormation will change and whether the resource will be recreated. -rcdTarget :: Lens' ResourceChangeDetail (Maybe ResourceTargetDefinition) -rcdTarget = lens _rcdTarget (\ s a -> s{_rcdTarget = a}) - -instance FromXML ResourceChangeDetail where - parseXML x - = ResourceChangeDetail' <$> - (x .@? "CausingEntity") <*> (x .@? "ChangeSource") - <*> (x .@? "Evaluation") - <*> (x .@? "Target") - -instance Hashable ResourceChangeDetail where - -instance NFData ResourceChangeDetail where - --- | The field that AWS CloudFormation will change, such as the name of a resource's property, and whether the resource will be recreated. --- --- --- --- /See:/ 'resourceTargetDefinition' smart constructor. -data ResourceTargetDefinition = ResourceTargetDefinition' - { _rtdAttribute :: !(Maybe ResourceAttribute) - , _rtdRequiresRecreation :: !(Maybe RequiresRecreation) - , _rtdName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ResourceTargetDefinition' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rtdAttribute' - Indicates which resource attribute is triggering this update, such as a change in the resource attribute's @Metadata@ , @Properties@ , or @Tags@ . --- --- * 'rtdRequiresRecreation' - If the @Attribute@ value is @Properties@ , indicates whether a change to this property causes the resource to be recreated. The value can be @Never@ , @Always@ , or @Conditionally@ . To determine the conditions for a @Conditionally@ recreation, see the update behavior for that in the AWS CloudFormation User Guide. --- --- * 'rtdName' - If the @Attribute@ value is @Properties@ , the name of the property. For all other attributes, the value is null. -resourceTargetDefinition - :: ResourceTargetDefinition -resourceTargetDefinition = - ResourceTargetDefinition' - { _rtdAttribute = Nothing - , _rtdRequiresRecreation = Nothing - , _rtdName = Nothing - } - - --- | Indicates which resource attribute is triggering this update, such as a change in the resource attribute's @Metadata@ , @Properties@ , or @Tags@ . -rtdAttribute :: Lens' ResourceTargetDefinition (Maybe ResourceAttribute) -rtdAttribute = lens _rtdAttribute (\ s a -> s{_rtdAttribute = a}) - --- | If the @Attribute@ value is @Properties@ , indicates whether a change to this property causes the resource to be recreated. The value can be @Never@ , @Always@ , or @Conditionally@ . To determine the conditions for a @Conditionally@ recreation, see the update behavior for that in the AWS CloudFormation User Guide. -rtdRequiresRecreation :: Lens' ResourceTargetDefinition (Maybe RequiresRecreation) -rtdRequiresRecreation = lens _rtdRequiresRecreation (\ s a -> s{_rtdRequiresRecreation = a}) - --- | If the @Attribute@ value is @Properties@ , the name of the property. For all other attributes, the value is null. -rtdName :: Lens' ResourceTargetDefinition (Maybe Text) -rtdName = lens _rtdName (\ s a -> s{_rtdName = a}) - -instance FromXML ResourceTargetDefinition where - parseXML x - = ResourceTargetDefinition' <$> - (x .@? "Attribute") <*> (x .@? "RequiresRecreation") - <*> (x .@? "Name") - -instance Hashable ResourceTargetDefinition where - -instance NFData ResourceTargetDefinition where - --- | Structure containing the rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. --- --- --- Rollback triggers enable you to have AWS CloudFormation monitor the state of your application during stack creation and updating, and to roll back that operation if the application breaches the threshold of any of the alarms you've specified. For more information, see . --- --- --- /See:/ 'rollbackConfiguration' smart constructor. -data RollbackConfiguration = RollbackConfiguration' - { _rcRollbackTriggers :: !(Maybe [RollbackTrigger]) - , _rcMonitoringTimeInMinutes :: !(Maybe Nat) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RollbackConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcRollbackTriggers' - The triggers to monitor during stack creation or update actions. By default, AWS CloudFormation saves the rollback triggers specified for a stack and applies them to any subsequent update operations for the stack, unless you specify otherwise. If you do specify rollback triggers for this parameter, those triggers replace any list of triggers previously specified for the stack. This means: * To use the rollback triggers previously specified for this stack, if any, don't specify this parameter. * To specify new or updated rollback triggers, you must specify /all/ the triggers that you want used for this stack, even triggers you've specifed before (for example, when creating the stack or during a previous stack update). Any triggers that you don't include in the updated list of triggers are no longer applied to the stack. * To remove all currently specified triggers, specify an empty list for this parameter. If a specified trigger is missing, the entire stack operation fails and is rolled back. --- --- * 'rcMonitoringTimeInMinutes' - The amount of time, in minutes, during which CloudFormation should monitor all the rollback triggers after the stack creation or update operation deploys all necessary resources. The default is 0 minutes. If you specify a monitoring period but do not specify any rollback triggers, CloudFormation still waits the specified period of time before cleaning up old resources after update operations. You can use this monitoring period to perform any manual stack validation desired, and manually cancel the stack creation or update (using , for example) as necessary. If you specify 0 for this parameter, CloudFormation still monitors the specified rollback triggers during stack creation and update operations. Then, for update operations, it begins disposing of old resources immediately once the operation completes. -rollbackConfiguration - :: RollbackConfiguration -rollbackConfiguration = - RollbackConfiguration' - {_rcRollbackTriggers = Nothing, _rcMonitoringTimeInMinutes = Nothing} - - --- | The triggers to monitor during stack creation or update actions. By default, AWS CloudFormation saves the rollback triggers specified for a stack and applies them to any subsequent update operations for the stack, unless you specify otherwise. If you do specify rollback triggers for this parameter, those triggers replace any list of triggers previously specified for the stack. This means: * To use the rollback triggers previously specified for this stack, if any, don't specify this parameter. * To specify new or updated rollback triggers, you must specify /all/ the triggers that you want used for this stack, even triggers you've specifed before (for example, when creating the stack or during a previous stack update). Any triggers that you don't include in the updated list of triggers are no longer applied to the stack. * To remove all currently specified triggers, specify an empty list for this parameter. If a specified trigger is missing, the entire stack operation fails and is rolled back. -rcRollbackTriggers :: Lens' RollbackConfiguration [RollbackTrigger] -rcRollbackTriggers = lens _rcRollbackTriggers (\ s a -> s{_rcRollbackTriggers = a}) . _Default . _Coerce - --- | The amount of time, in minutes, during which CloudFormation should monitor all the rollback triggers after the stack creation or update operation deploys all necessary resources. The default is 0 minutes. If you specify a monitoring period but do not specify any rollback triggers, CloudFormation still waits the specified period of time before cleaning up old resources after update operations. You can use this monitoring period to perform any manual stack validation desired, and manually cancel the stack creation or update (using , for example) as necessary. If you specify 0 for this parameter, CloudFormation still monitors the specified rollback triggers during stack creation and update operations. Then, for update operations, it begins disposing of old resources immediately once the operation completes. -rcMonitoringTimeInMinutes :: Lens' RollbackConfiguration (Maybe Natural) -rcMonitoringTimeInMinutes = lens _rcMonitoringTimeInMinutes (\ s a -> s{_rcMonitoringTimeInMinutes = a}) . mapping _Nat - -instance FromXML RollbackConfiguration where - parseXML x - = RollbackConfiguration' <$> - (x .@? "RollbackTriggers" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "MonitoringTimeInMinutes") - -instance Hashable RollbackConfiguration where - -instance NFData RollbackConfiguration where - -instance ToQuery RollbackConfiguration where - toQuery RollbackConfiguration'{..} - = mconcat - ["RollbackTriggers" =: - toQuery - (toQueryList "member" <$> _rcRollbackTriggers), - "MonitoringTimeInMinutes" =: - _rcMonitoringTimeInMinutes] - --- | A rollback trigger AWS CloudFormation monitors during creation and updating of stacks. If any of the alarms you specify goes to ALARM state during the stack operation or within the specified monitoring period afterwards, CloudFormation rolls back the entire stack operation. --- --- --- --- /See:/ 'rollbackTrigger' smart constructor. -data RollbackTrigger = RollbackTrigger' - { _rtARN :: !Text - , _rtType :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RollbackTrigger' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rtARN' - The Amazon Resource Name (ARN) of the rollback trigger. If a specified trigger is missing, the entire stack operation fails and is rolled back. --- --- * 'rtType' - The resource type of the rollback trigger. Currently, is the only supported resource type. -rollbackTrigger - :: Text -- ^ 'rtARN' - -> Text -- ^ 'rtType' - -> RollbackTrigger -rollbackTrigger pARN_ pType_ = - RollbackTrigger' {_rtARN = pARN_, _rtType = pType_} - - --- | The Amazon Resource Name (ARN) of the rollback trigger. If a specified trigger is missing, the entire stack operation fails and is rolled back. -rtARN :: Lens' RollbackTrigger Text -rtARN = lens _rtARN (\ s a -> s{_rtARN = a}) - --- | The resource type of the rollback trigger. Currently, is the only supported resource type. -rtType :: Lens' RollbackTrigger Text -rtType = lens _rtType (\ s a -> s{_rtType = a}) - -instance FromXML RollbackTrigger where - parseXML x - = RollbackTrigger' <$> (x .@ "Arn") <*> (x .@ "Type") - -instance Hashable RollbackTrigger where - -instance NFData RollbackTrigger where - -instance ToQuery RollbackTrigger where - toQuery RollbackTrigger'{..} - = mconcat ["Arn" =: _rtARN, "Type" =: _rtType] - --- | The Stack data type. --- --- --- --- /See:/ 'stack' smart constructor. -data Stack = Stack' - { _sDisableRollback :: !(Maybe Bool) - , _sLastUpdatedTime :: !(Maybe ISO8601) - , _sRootId :: !(Maybe Text) - , _sNotificationARNs :: !(Maybe [Text]) - , _sStackStatusReason :: !(Maybe Text) - , _sEnableTerminationProtection :: !(Maybe Bool) - , _sChangeSetId :: !(Maybe Text) - , _sDeletionTime :: !(Maybe ISO8601) - , _sOutputs :: !(Maybe [Output]) - , _sParameters :: !(Maybe [Parameter]) - , _sStackId :: !(Maybe Text) - , _sDescription :: !(Maybe Text) - , _sCapabilities :: !(Maybe [Capability]) - , _sRollbackConfiguration :: !(Maybe RollbackConfiguration) - , _sTags :: !(Maybe [Tag]) - , _sTimeoutInMinutes :: !(Maybe Nat) - , _sParentId :: !(Maybe Text) - , _sRoleARN :: !(Maybe Text) - , _sStackName :: !Text - , _sCreationTime :: !ISO8601 - , _sStackStatus :: !StackStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Stack' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sDisableRollback' - Boolean to enable or disable rollback on stack creation failures: * @true@ : disable rollback * @false@ : enable rollback --- --- * 'sLastUpdatedTime' - The time the stack was last updated. This field will only be returned if the stack has been updated at least once. --- --- * 'sRootId' - For nested stacks--stacks created as resources for another stack--the stack ID of the the top-level stack to which the nested stack ultimately belongs. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'sNotificationARNs' - SNS topic ARNs to which stack related events are published. --- --- * 'sStackStatusReason' - Success/failure message associated with the stack status. --- --- * 'sEnableTerminationProtection' - Whether termination protection is enabled for the stack. For , termination protection is set on the root stack and cannot be changed directly on the nested stack. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'sChangeSetId' - The unique ID of the change set. --- --- * 'sDeletionTime' - The time the stack was deleted. --- --- * 'sOutputs' - A list of output structures. --- --- * 'sParameters' - A list of @Parameter@ structures. --- --- * 'sStackId' - Unique identifier of the stack. --- --- * 'sDescription' - A user-defined description associated with the stack. --- --- * 'sCapabilities' - The capabilities allowed in the stack. --- --- * 'sRollbackConfiguration' - The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. --- --- * 'sTags' - A list of @Tag@ s that specify information about the stack. --- --- * 'sTimeoutInMinutes' - The amount of time within which stack creation should complete. --- --- * 'sParentId' - For nested stacks--stacks created as resources for another stack--the stack ID of the direct parent of this stack. For the first level of nested stacks, the root stack is also the parent stack. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'sRoleARN' - The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that is associated with the stack. During a stack operation, AWS CloudFormation uses this role's credentials to make calls on your behalf. --- --- * 'sStackName' - The name associated with the stack. --- --- * 'sCreationTime' - The time at which the stack was created. --- --- * 'sStackStatus' - Current status of the stack. -stack - :: Text -- ^ 'sStackName' - -> UTCTime -- ^ 'sCreationTime' - -> StackStatus -- ^ 'sStackStatus' - -> Stack -stack pStackName_ pCreationTime_ pStackStatus_ = - Stack' - { _sDisableRollback = Nothing - , _sLastUpdatedTime = Nothing - , _sRootId = Nothing - , _sNotificationARNs = Nothing - , _sStackStatusReason = Nothing - , _sEnableTerminationProtection = Nothing - , _sChangeSetId = Nothing - , _sDeletionTime = Nothing - , _sOutputs = Nothing - , _sParameters = Nothing - , _sStackId = Nothing - , _sDescription = Nothing - , _sCapabilities = Nothing - , _sRollbackConfiguration = Nothing - , _sTags = Nothing - , _sTimeoutInMinutes = Nothing - , _sParentId = Nothing - , _sRoleARN = Nothing - , _sStackName = pStackName_ - , _sCreationTime = _Time # pCreationTime_ - , _sStackStatus = pStackStatus_ - } - - --- | Boolean to enable or disable rollback on stack creation failures: * @true@ : disable rollback * @false@ : enable rollback -sDisableRollback :: Lens' Stack (Maybe Bool) -sDisableRollback = lens _sDisableRollback (\ s a -> s{_sDisableRollback = a}) - --- | The time the stack was last updated. This field will only be returned if the stack has been updated at least once. -sLastUpdatedTime :: Lens' Stack (Maybe UTCTime) -sLastUpdatedTime = lens _sLastUpdatedTime (\ s a -> s{_sLastUpdatedTime = a}) . mapping _Time - --- | For nested stacks--stacks created as resources for another stack--the stack ID of the the top-level stack to which the nested stack ultimately belongs. For more information, see in the /AWS CloudFormation User Guide/ . -sRootId :: Lens' Stack (Maybe Text) -sRootId = lens _sRootId (\ s a -> s{_sRootId = a}) - --- | SNS topic ARNs to which stack related events are published. -sNotificationARNs :: Lens' Stack [Text] -sNotificationARNs = lens _sNotificationARNs (\ s a -> s{_sNotificationARNs = a}) . _Default . _Coerce - --- | Success/failure message associated with the stack status. -sStackStatusReason :: Lens' Stack (Maybe Text) -sStackStatusReason = lens _sStackStatusReason (\ s a -> s{_sStackStatusReason = a}) - --- | Whether termination protection is enabled for the stack. For , termination protection is set on the root stack and cannot be changed directly on the nested stack. For more information, see in the /AWS CloudFormation User Guide/ . -sEnableTerminationProtection :: Lens' Stack (Maybe Bool) -sEnableTerminationProtection = lens _sEnableTerminationProtection (\ s a -> s{_sEnableTerminationProtection = a}) - --- | The unique ID of the change set. -sChangeSetId :: Lens' Stack (Maybe Text) -sChangeSetId = lens _sChangeSetId (\ s a -> s{_sChangeSetId = a}) - --- | The time the stack was deleted. -sDeletionTime :: Lens' Stack (Maybe UTCTime) -sDeletionTime = lens _sDeletionTime (\ s a -> s{_sDeletionTime = a}) . mapping _Time - --- | A list of output structures. -sOutputs :: Lens' Stack [Output] -sOutputs = lens _sOutputs (\ s a -> s{_sOutputs = a}) . _Default . _Coerce - --- | A list of @Parameter@ structures. -sParameters :: Lens' Stack [Parameter] -sParameters = lens _sParameters (\ s a -> s{_sParameters = a}) . _Default . _Coerce - --- | Unique identifier of the stack. -sStackId :: Lens' Stack (Maybe Text) -sStackId = lens _sStackId (\ s a -> s{_sStackId = a}) - --- | A user-defined description associated with the stack. -sDescription :: Lens' Stack (Maybe Text) -sDescription = lens _sDescription (\ s a -> s{_sDescription = a}) - --- | The capabilities allowed in the stack. -sCapabilities :: Lens' Stack [Capability] -sCapabilities = lens _sCapabilities (\ s a -> s{_sCapabilities = a}) . _Default . _Coerce - --- | The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. -sRollbackConfiguration :: Lens' Stack (Maybe RollbackConfiguration) -sRollbackConfiguration = lens _sRollbackConfiguration (\ s a -> s{_sRollbackConfiguration = a}) - --- | A list of @Tag@ s that specify information about the stack. -sTags :: Lens' Stack [Tag] -sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce - --- | The amount of time within which stack creation should complete. -sTimeoutInMinutes :: Lens' Stack (Maybe Natural) -sTimeoutInMinutes = lens _sTimeoutInMinutes (\ s a -> s{_sTimeoutInMinutes = a}) . mapping _Nat - --- | For nested stacks--stacks created as resources for another stack--the stack ID of the direct parent of this stack. For the first level of nested stacks, the root stack is also the parent stack. For more information, see in the /AWS CloudFormation User Guide/ . -sParentId :: Lens' Stack (Maybe Text) -sParentId = lens _sParentId (\ s a -> s{_sParentId = a}) - --- | The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that is associated with the stack. During a stack operation, AWS CloudFormation uses this role's credentials to make calls on your behalf. -sRoleARN :: Lens' Stack (Maybe Text) -sRoleARN = lens _sRoleARN (\ s a -> s{_sRoleARN = a}) - --- | The name associated with the stack. -sStackName :: Lens' Stack Text -sStackName = lens _sStackName (\ s a -> s{_sStackName = a}) - --- | The time at which the stack was created. -sCreationTime :: Lens' Stack UTCTime -sCreationTime = lens _sCreationTime (\ s a -> s{_sCreationTime = a}) . _Time - --- | Current status of the stack. -sStackStatus :: Lens' Stack StackStatus -sStackStatus = lens _sStackStatus (\ s a -> s{_sStackStatus = a}) - -instance FromXML Stack where - parseXML x - = Stack' <$> - (x .@? "DisableRollback") <*> - (x .@? "LastUpdatedTime") - <*> (x .@? "RootId") - <*> - (x .@? "NotificationARNs" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "StackStatusReason") - <*> (x .@? "EnableTerminationProtection") - <*> (x .@? "ChangeSetId") - <*> (x .@? "DeletionTime") - <*> - (x .@? "Outputs" .!@ mempty >>= - may (parseXMLList "member")) - <*> - (x .@? "Parameters" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "StackId") - <*> (x .@? "Description") - <*> - (x .@? "Capabilities" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "RollbackConfiguration") - <*> - (x .@? "Tags" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "TimeoutInMinutes") - <*> (x .@? "ParentId") - <*> (x .@? "RoleARN") - <*> (x .@ "StackName") - <*> (x .@ "CreationTime") - <*> (x .@ "StackStatus") - -instance Hashable Stack where - -instance NFData Stack where - --- | The StackEvent data type. --- --- --- --- /See:/ 'stackEvent' smart constructor. -data StackEvent = StackEvent' - { _seLogicalResourceId :: !(Maybe Text) - , _sePhysicalResourceId :: !(Maybe Text) - , _seResourceType :: !(Maybe Text) - , _seResourceStatusReason :: !(Maybe Text) - , _seResourceProperties :: !(Maybe Text) - , _seResourceStatus :: !(Maybe ResourceStatus) - , _seClientRequestToken :: !(Maybe Text) - , _seStackId :: !Text - , _seEventId :: !Text - , _seStackName :: !Text - , _seTimestamp :: !ISO8601 - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackEvent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'seLogicalResourceId' - The logical name of the resource specified in the template. --- --- * 'sePhysicalResourceId' - The name or unique identifier associated with the physical instance of the resource. --- --- * 'seResourceType' - Type of resource. (For more information, go to in the AWS CloudFormation User Guide.) --- --- * 'seResourceStatusReason' - Success/failure message associated with the resource. --- --- * 'seResourceProperties' - BLOB of the properties used to create the resource. --- --- * 'seResourceStatus' - Current status of the resource. --- --- * 'seClientRequestToken' - The token passed to the operation that generated this event. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . --- --- * 'seStackId' - The unique ID name of the instance of the stack. --- --- * 'seEventId' - The unique ID of this event. --- --- * 'seStackName' - The name associated with a stack. --- --- * 'seTimestamp' - Time the status was updated. -stackEvent - :: Text -- ^ 'seStackId' - -> Text -- ^ 'seEventId' - -> Text -- ^ 'seStackName' - -> UTCTime -- ^ 'seTimestamp' - -> StackEvent -stackEvent pStackId_ pEventId_ pStackName_ pTimestamp_ = - StackEvent' - { _seLogicalResourceId = Nothing - , _sePhysicalResourceId = Nothing - , _seResourceType = Nothing - , _seResourceStatusReason = Nothing - , _seResourceProperties = Nothing - , _seResourceStatus = Nothing - , _seClientRequestToken = Nothing - , _seStackId = pStackId_ - , _seEventId = pEventId_ - , _seStackName = pStackName_ - , _seTimestamp = _Time # pTimestamp_ - } - - --- | The logical name of the resource specified in the template. -seLogicalResourceId :: Lens' StackEvent (Maybe Text) -seLogicalResourceId = lens _seLogicalResourceId (\ s a -> s{_seLogicalResourceId = a}) - --- | The name or unique identifier associated with the physical instance of the resource. -sePhysicalResourceId :: Lens' StackEvent (Maybe Text) -sePhysicalResourceId = lens _sePhysicalResourceId (\ s a -> s{_sePhysicalResourceId = a}) - --- | Type of resource. (For more information, go to in the AWS CloudFormation User Guide.) -seResourceType :: Lens' StackEvent (Maybe Text) -seResourceType = lens _seResourceType (\ s a -> s{_seResourceType = a}) - --- | Success/failure message associated with the resource. -seResourceStatusReason :: Lens' StackEvent (Maybe Text) -seResourceStatusReason = lens _seResourceStatusReason (\ s a -> s{_seResourceStatusReason = a}) - --- | BLOB of the properties used to create the resource. -seResourceProperties :: Lens' StackEvent (Maybe Text) -seResourceProperties = lens _seResourceProperties (\ s a -> s{_seResourceProperties = a}) - --- | Current status of the resource. -seResourceStatus :: Lens' StackEvent (Maybe ResourceStatus) -seResourceStatus = lens _seResourceStatus (\ s a -> s{_seResourceStatus = a}) - --- | The token passed to the operation that generated this event. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . -seClientRequestToken :: Lens' StackEvent (Maybe Text) -seClientRequestToken = lens _seClientRequestToken (\ s a -> s{_seClientRequestToken = a}) - --- | The unique ID name of the instance of the stack. -seStackId :: Lens' StackEvent Text -seStackId = lens _seStackId (\ s a -> s{_seStackId = a}) - --- | The unique ID of this event. -seEventId :: Lens' StackEvent Text -seEventId = lens _seEventId (\ s a -> s{_seEventId = a}) - --- | The name associated with a stack. -seStackName :: Lens' StackEvent Text -seStackName = lens _seStackName (\ s a -> s{_seStackName = a}) - --- | Time the status was updated. -seTimestamp :: Lens' StackEvent UTCTime -seTimestamp = lens _seTimestamp (\ s a -> s{_seTimestamp = a}) . _Time - -instance FromXML StackEvent where - parseXML x - = StackEvent' <$> - (x .@? "LogicalResourceId") <*> - (x .@? "PhysicalResourceId") - <*> (x .@? "ResourceType") - <*> (x .@? "ResourceStatusReason") - <*> (x .@? "ResourceProperties") - <*> (x .@? "ResourceStatus") - <*> (x .@? "ClientRequestToken") - <*> (x .@ "StackId") - <*> (x .@ "EventId") - <*> (x .@ "StackName") - <*> (x .@ "Timestamp") - -instance Hashable StackEvent where - -instance NFData StackEvent where - --- | An AWS CloudFormation stack, in a specific account and region, that's part of a stack set operation. A stack instance is a reference to an attempted or actual stack in a given account within a given region. A stack instance can exist without a stack—for example, if the stack couldn't be created for some reason. A stack instance is associated with only one stack set. Each stack instance contains the ID of its associated stack set, as well as the ID of the actual stack and the stack status. --- --- --- --- /See:/ 'stackInstance' smart constructor. -data StackInstance = StackInstance' - { _siStatus :: !(Maybe StackInstanceStatus) - , _siAccount :: !(Maybe Text) - , _siRegion :: !(Maybe Text) - , _siStatusReason :: !(Maybe Text) - , _siStackId :: !(Maybe Text) - , _siParameterOverrides :: !(Maybe [Parameter]) - , _siStackSetId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackInstance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siStatus' - The status of the stack instance, in terms of its synchronization with its associated stack set. * @INOPERABLE@ : A @DeleteStackInstances@ operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further @UpdateStackSet@ operations. You might need to perform a @DeleteStackInstances@ operation, with @RetainStacks@ set to @true@ , to delete the stack instance, and then delete the stack manually. * @OUTDATED@ : The stack isn't currently up to date with the stack set because: * The associated stack failed during a @CreateStackSet@ or @UpdateStackSet@ operation. * The stack was part of a @CreateStackSet@ or @UpdateStackSet@ operation that failed or was stopped before the stack was created or updated. * @CURRENT@ : The stack is currently up to date with the stack set. --- --- * 'siAccount' - The name of the AWS account that the stack instance is associated with. --- --- * 'siRegion' - The name of the AWS region that the stack instance is associated with. --- --- * 'siStatusReason' - The explanation for the specific status code that is assigned to this stack instance. --- --- * 'siStackId' - The ID of the stack instance. --- --- * 'siParameterOverrides' - A list of parameters from the stack set template whose values have been overridden in this stack instance. --- --- * 'siStackSetId' - The name or unique ID of the stack set that the stack instance is associated with. -stackInstance - :: StackInstance -stackInstance = - StackInstance' - { _siStatus = Nothing - , _siAccount = Nothing - , _siRegion = Nothing - , _siStatusReason = Nothing - , _siStackId = Nothing - , _siParameterOverrides = Nothing - , _siStackSetId = Nothing - } - - --- | The status of the stack instance, in terms of its synchronization with its associated stack set. * @INOPERABLE@ : A @DeleteStackInstances@ operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further @UpdateStackSet@ operations. You might need to perform a @DeleteStackInstances@ operation, with @RetainStacks@ set to @true@ , to delete the stack instance, and then delete the stack manually. * @OUTDATED@ : The stack isn't currently up to date with the stack set because: * The associated stack failed during a @CreateStackSet@ or @UpdateStackSet@ operation. * The stack was part of a @CreateStackSet@ or @UpdateStackSet@ operation that failed or was stopped before the stack was created or updated. * @CURRENT@ : The stack is currently up to date with the stack set. -siStatus :: Lens' StackInstance (Maybe StackInstanceStatus) -siStatus = lens _siStatus (\ s a -> s{_siStatus = a}) - --- | The name of the AWS account that the stack instance is associated with. -siAccount :: Lens' StackInstance (Maybe Text) -siAccount = lens _siAccount (\ s a -> s{_siAccount = a}) - --- | The name of the AWS region that the stack instance is associated with. -siRegion :: Lens' StackInstance (Maybe Text) -siRegion = lens _siRegion (\ s a -> s{_siRegion = a}) - --- | The explanation for the specific status code that is assigned to this stack instance. -siStatusReason :: Lens' StackInstance (Maybe Text) -siStatusReason = lens _siStatusReason (\ s a -> s{_siStatusReason = a}) - --- | The ID of the stack instance. -siStackId :: Lens' StackInstance (Maybe Text) -siStackId = lens _siStackId (\ s a -> s{_siStackId = a}) - --- | A list of parameters from the stack set template whose values have been overridden in this stack instance. -siParameterOverrides :: Lens' StackInstance [Parameter] -siParameterOverrides = lens _siParameterOverrides (\ s a -> s{_siParameterOverrides = a}) . _Default . _Coerce - --- | The name or unique ID of the stack set that the stack instance is associated with. -siStackSetId :: Lens' StackInstance (Maybe Text) -siStackSetId = lens _siStackSetId (\ s a -> s{_siStackSetId = a}) - -instance FromXML StackInstance where - parseXML x - = StackInstance' <$> - (x .@? "Status") <*> (x .@? "Account") <*> - (x .@? "Region") - <*> (x .@? "StatusReason") - <*> (x .@? "StackId") - <*> - (x .@? "ParameterOverrides" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "StackSetId") - -instance Hashable StackInstance where - -instance NFData StackInstance where - --- | The structure that contains summary information about a stack instance. --- --- --- --- /See:/ 'stackInstanceSummary' smart constructor. -data StackInstanceSummary = StackInstanceSummary' - { _sisStatus :: !(Maybe StackInstanceStatus) - , _sisAccount :: !(Maybe Text) - , _sisRegion :: !(Maybe Text) - , _sisStatusReason :: !(Maybe Text) - , _sisStackId :: !(Maybe Text) - , _sisStackSetId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackInstanceSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sisStatus' - The status of the stack instance, in terms of its synchronization with its associated stack set. * @INOPERABLE@ : A @DeleteStackInstances@ operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further @UpdateStackSet@ operations. You might need to perform a @DeleteStackInstances@ operation, with @RetainStacks@ set to @true@ , to delete the stack instance, and then delete the stack manually. * @OUTDATED@ : The stack isn't currently up to date with the stack set because: * The associated stack failed during a @CreateStackSet@ or @UpdateStackSet@ operation. * The stack was part of a @CreateStackSet@ or @UpdateStackSet@ operation that failed or was stopped before the stack was created or updated. * @CURRENT@ : The stack is currently up to date with the stack set. --- --- * 'sisAccount' - The name of the AWS account that the stack instance is associated with. --- --- * 'sisRegion' - The name of the AWS region that the stack instance is associated with. --- --- * 'sisStatusReason' - The explanation for the specific status code assigned to this stack instance. --- --- * 'sisStackId' - The ID of the stack instance. --- --- * 'sisStackSetId' - The name or unique ID of the stack set that the stack instance is associated with. -stackInstanceSummary - :: StackInstanceSummary -stackInstanceSummary = - StackInstanceSummary' - { _sisStatus = Nothing - , _sisAccount = Nothing - , _sisRegion = Nothing - , _sisStatusReason = Nothing - , _sisStackId = Nothing - , _sisStackSetId = Nothing - } - - --- | The status of the stack instance, in terms of its synchronization with its associated stack set. * @INOPERABLE@ : A @DeleteStackInstances@ operation has failed and left the stack in an unstable state. Stacks in this state are excluded from further @UpdateStackSet@ operations. You might need to perform a @DeleteStackInstances@ operation, with @RetainStacks@ set to @true@ , to delete the stack instance, and then delete the stack manually. * @OUTDATED@ : The stack isn't currently up to date with the stack set because: * The associated stack failed during a @CreateStackSet@ or @UpdateStackSet@ operation. * The stack was part of a @CreateStackSet@ or @UpdateStackSet@ operation that failed or was stopped before the stack was created or updated. * @CURRENT@ : The stack is currently up to date with the stack set. -sisStatus :: Lens' StackInstanceSummary (Maybe StackInstanceStatus) -sisStatus = lens _sisStatus (\ s a -> s{_sisStatus = a}) - --- | The name of the AWS account that the stack instance is associated with. -sisAccount :: Lens' StackInstanceSummary (Maybe Text) -sisAccount = lens _sisAccount (\ s a -> s{_sisAccount = a}) - --- | The name of the AWS region that the stack instance is associated with. -sisRegion :: Lens' StackInstanceSummary (Maybe Text) -sisRegion = lens _sisRegion (\ s a -> s{_sisRegion = a}) - --- | The explanation for the specific status code assigned to this stack instance. -sisStatusReason :: Lens' StackInstanceSummary (Maybe Text) -sisStatusReason = lens _sisStatusReason (\ s a -> s{_sisStatusReason = a}) - --- | The ID of the stack instance. -sisStackId :: Lens' StackInstanceSummary (Maybe Text) -sisStackId = lens _sisStackId (\ s a -> s{_sisStackId = a}) - --- | The name or unique ID of the stack set that the stack instance is associated with. -sisStackSetId :: Lens' StackInstanceSummary (Maybe Text) -sisStackSetId = lens _sisStackSetId (\ s a -> s{_sisStackSetId = a}) - -instance FromXML StackInstanceSummary where - parseXML x - = StackInstanceSummary' <$> - (x .@? "Status") <*> (x .@? "Account") <*> - (x .@? "Region") - <*> (x .@? "StatusReason") - <*> (x .@? "StackId") - <*> (x .@? "StackSetId") - -instance Hashable StackInstanceSummary where - -instance NFData StackInstanceSummary where - --- | The StackResource data type. --- --- --- --- /See:/ 'stackResource' smart constructor. -data StackResource = StackResource' - { _srPhysicalResourceId :: !(Maybe Text) - , _srResourceStatusReason :: !(Maybe Text) - , _srStackId :: !(Maybe Text) - , _srDescription :: !(Maybe Text) - , _srStackName :: !(Maybe Text) - , _srLogicalResourceId :: !Text - , _srResourceType :: !Text - , _srTimestamp :: !ISO8601 - , _srResourceStatus :: !ResourceStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackResource' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'srPhysicalResourceId' - The name or unique identifier that corresponds to a physical instance ID of a resource supported by AWS CloudFormation. --- --- * 'srResourceStatusReason' - Success/failure message associated with the resource. --- --- * 'srStackId' - Unique identifier of the stack. --- --- * 'srDescription' - User defined description associated with the resource. --- --- * 'srStackName' - The name associated with the stack. --- --- * 'srLogicalResourceId' - The logical name of the resource specified in the template. --- --- * 'srResourceType' - Type of resource. (For more information, go to in the AWS CloudFormation User Guide.) --- --- * 'srTimestamp' - Time the status was updated. --- --- * 'srResourceStatus' - Current status of the resource. -stackResource - :: Text -- ^ 'srLogicalResourceId' - -> Text -- ^ 'srResourceType' - -> UTCTime -- ^ 'srTimestamp' - -> ResourceStatus -- ^ 'srResourceStatus' - -> StackResource -stackResource pLogicalResourceId_ pResourceType_ pTimestamp_ pResourceStatus_ = - StackResource' - { _srPhysicalResourceId = Nothing - , _srResourceStatusReason = Nothing - , _srStackId = Nothing - , _srDescription = Nothing - , _srStackName = Nothing - , _srLogicalResourceId = pLogicalResourceId_ - , _srResourceType = pResourceType_ - , _srTimestamp = _Time # pTimestamp_ - , _srResourceStatus = pResourceStatus_ - } - - --- | The name or unique identifier that corresponds to a physical instance ID of a resource supported by AWS CloudFormation. -srPhysicalResourceId :: Lens' StackResource (Maybe Text) -srPhysicalResourceId = lens _srPhysicalResourceId (\ s a -> s{_srPhysicalResourceId = a}) - --- | Success/failure message associated with the resource. -srResourceStatusReason :: Lens' StackResource (Maybe Text) -srResourceStatusReason = lens _srResourceStatusReason (\ s a -> s{_srResourceStatusReason = a}) - --- | Unique identifier of the stack. -srStackId :: Lens' StackResource (Maybe Text) -srStackId = lens _srStackId (\ s a -> s{_srStackId = a}) - --- | User defined description associated with the resource. -srDescription :: Lens' StackResource (Maybe Text) -srDescription = lens _srDescription (\ s a -> s{_srDescription = a}) - --- | The name associated with the stack. -srStackName :: Lens' StackResource (Maybe Text) -srStackName = lens _srStackName (\ s a -> s{_srStackName = a}) - --- | The logical name of the resource specified in the template. -srLogicalResourceId :: Lens' StackResource Text -srLogicalResourceId = lens _srLogicalResourceId (\ s a -> s{_srLogicalResourceId = a}) - --- | Type of resource. (For more information, go to in the AWS CloudFormation User Guide.) -srResourceType :: Lens' StackResource Text -srResourceType = lens _srResourceType (\ s a -> s{_srResourceType = a}) - --- | Time the status was updated. -srTimestamp :: Lens' StackResource UTCTime -srTimestamp = lens _srTimestamp (\ s a -> s{_srTimestamp = a}) . _Time - --- | Current status of the resource. -srResourceStatus :: Lens' StackResource ResourceStatus -srResourceStatus = lens _srResourceStatus (\ s a -> s{_srResourceStatus = a}) - -instance FromXML StackResource where - parseXML x - = StackResource' <$> - (x .@? "PhysicalResourceId") <*> - (x .@? "ResourceStatusReason") - <*> (x .@? "StackId") - <*> (x .@? "Description") - <*> (x .@? "StackName") - <*> (x .@ "LogicalResourceId") - <*> (x .@ "ResourceType") - <*> (x .@ "Timestamp") - <*> (x .@ "ResourceStatus") - -instance Hashable StackResource where - -instance NFData StackResource where - --- | Contains detailed information about the specified stack resource. --- --- --- --- /See:/ 'stackResourceDetail' smart constructor. -data StackResourceDetail = StackResourceDetail' - { _srdPhysicalResourceId :: !(Maybe Text) - , _srdResourceStatusReason :: !(Maybe Text) - , _srdMetadata :: !(Maybe Text) - , _srdStackId :: !(Maybe Text) - , _srdDescription :: !(Maybe Text) - , _srdStackName :: !(Maybe Text) - , _srdLogicalResourceId :: !Text - , _srdResourceType :: !Text - , _srdLastUpdatedTimestamp :: !ISO8601 - , _srdResourceStatus :: !ResourceStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackResourceDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'srdPhysicalResourceId' - The name or unique identifier that corresponds to a physical instance ID of a resource supported by AWS CloudFormation. --- --- * 'srdResourceStatusReason' - Success/failure message associated with the resource. --- --- * 'srdMetadata' - The content of the @Metadata@ attribute declared for the resource. For more information, see in the AWS CloudFormation User Guide. --- --- * 'srdStackId' - Unique identifier of the stack. --- --- * 'srdDescription' - User defined description associated with the resource. --- --- * 'srdStackName' - The name associated with the stack. --- --- * 'srdLogicalResourceId' - The logical name of the resource specified in the template. --- --- * 'srdResourceType' - Type of resource. ((For more information, go to in the AWS CloudFormation User Guide.) --- --- * 'srdLastUpdatedTimestamp' - Time the status was updated. --- --- * 'srdResourceStatus' - Current status of the resource. -stackResourceDetail - :: Text -- ^ 'srdLogicalResourceId' - -> Text -- ^ 'srdResourceType' - -> UTCTime -- ^ 'srdLastUpdatedTimestamp' - -> ResourceStatus -- ^ 'srdResourceStatus' - -> StackResourceDetail -stackResourceDetail pLogicalResourceId_ pResourceType_ pLastUpdatedTimestamp_ pResourceStatus_ = - StackResourceDetail' - { _srdPhysicalResourceId = Nothing - , _srdResourceStatusReason = Nothing - , _srdMetadata = Nothing - , _srdStackId = Nothing - , _srdDescription = Nothing - , _srdStackName = Nothing - , _srdLogicalResourceId = pLogicalResourceId_ - , _srdResourceType = pResourceType_ - , _srdLastUpdatedTimestamp = _Time # pLastUpdatedTimestamp_ - , _srdResourceStatus = pResourceStatus_ - } - - --- | The name or unique identifier that corresponds to a physical instance ID of a resource supported by AWS CloudFormation. -srdPhysicalResourceId :: Lens' StackResourceDetail (Maybe Text) -srdPhysicalResourceId = lens _srdPhysicalResourceId (\ s a -> s{_srdPhysicalResourceId = a}) - --- | Success/failure message associated with the resource. -srdResourceStatusReason :: Lens' StackResourceDetail (Maybe Text) -srdResourceStatusReason = lens _srdResourceStatusReason (\ s a -> s{_srdResourceStatusReason = a}) - --- | The content of the @Metadata@ attribute declared for the resource. For more information, see in the AWS CloudFormation User Guide. -srdMetadata :: Lens' StackResourceDetail (Maybe Text) -srdMetadata = lens _srdMetadata (\ s a -> s{_srdMetadata = a}) - --- | Unique identifier of the stack. -srdStackId :: Lens' StackResourceDetail (Maybe Text) -srdStackId = lens _srdStackId (\ s a -> s{_srdStackId = a}) - --- | User defined description associated with the resource. -srdDescription :: Lens' StackResourceDetail (Maybe Text) -srdDescription = lens _srdDescription (\ s a -> s{_srdDescription = a}) - --- | The name associated with the stack. -srdStackName :: Lens' StackResourceDetail (Maybe Text) -srdStackName = lens _srdStackName (\ s a -> s{_srdStackName = a}) - --- | The logical name of the resource specified in the template. -srdLogicalResourceId :: Lens' StackResourceDetail Text -srdLogicalResourceId = lens _srdLogicalResourceId (\ s a -> s{_srdLogicalResourceId = a}) - --- | Type of resource. ((For more information, go to in the AWS CloudFormation User Guide.) -srdResourceType :: Lens' StackResourceDetail Text -srdResourceType = lens _srdResourceType (\ s a -> s{_srdResourceType = a}) - --- | Time the status was updated. -srdLastUpdatedTimestamp :: Lens' StackResourceDetail UTCTime -srdLastUpdatedTimestamp = lens _srdLastUpdatedTimestamp (\ s a -> s{_srdLastUpdatedTimestamp = a}) . _Time - --- | Current status of the resource. -srdResourceStatus :: Lens' StackResourceDetail ResourceStatus -srdResourceStatus = lens _srdResourceStatus (\ s a -> s{_srdResourceStatus = a}) - -instance FromXML StackResourceDetail where - parseXML x - = StackResourceDetail' <$> - (x .@? "PhysicalResourceId") <*> - (x .@? "ResourceStatusReason") - <*> (x .@? "Metadata") - <*> (x .@? "StackId") - <*> (x .@? "Description") - <*> (x .@? "StackName") - <*> (x .@ "LogicalResourceId") - <*> (x .@ "ResourceType") - <*> (x .@ "LastUpdatedTimestamp") - <*> (x .@ "ResourceStatus") - -instance Hashable StackResourceDetail where - -instance NFData StackResourceDetail where - --- | Contains high-level information about the specified stack resource. --- --- --- --- /See:/ 'stackResourceSummary' smart constructor. -data StackResourceSummary = StackResourceSummary' - { _srsPhysicalResourceId :: !(Maybe Text) - , _srsResourceStatusReason :: !(Maybe Text) - , _srsLogicalResourceId :: !Text - , _srsResourceType :: !Text - , _srsLastUpdatedTimestamp :: !ISO8601 - , _srsResourceStatus :: !ResourceStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackResourceSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'srsPhysicalResourceId' - The name or unique identifier that corresponds to a physical instance ID of the resource. --- --- * 'srsResourceStatusReason' - Success/failure message associated with the resource. --- --- * 'srsLogicalResourceId' - The logical name of the resource specified in the template. --- --- * 'srsResourceType' - Type of resource. (For more information, go to in the AWS CloudFormation User Guide.) --- --- * 'srsLastUpdatedTimestamp' - Time the status was updated. --- --- * 'srsResourceStatus' - Current status of the resource. -stackResourceSummary - :: Text -- ^ 'srsLogicalResourceId' - -> Text -- ^ 'srsResourceType' - -> UTCTime -- ^ 'srsLastUpdatedTimestamp' - -> ResourceStatus -- ^ 'srsResourceStatus' - -> StackResourceSummary -stackResourceSummary pLogicalResourceId_ pResourceType_ pLastUpdatedTimestamp_ pResourceStatus_ = - StackResourceSummary' - { _srsPhysicalResourceId = Nothing - , _srsResourceStatusReason = Nothing - , _srsLogicalResourceId = pLogicalResourceId_ - , _srsResourceType = pResourceType_ - , _srsLastUpdatedTimestamp = _Time # pLastUpdatedTimestamp_ - , _srsResourceStatus = pResourceStatus_ - } - - --- | The name or unique identifier that corresponds to a physical instance ID of the resource. -srsPhysicalResourceId :: Lens' StackResourceSummary (Maybe Text) -srsPhysicalResourceId = lens _srsPhysicalResourceId (\ s a -> s{_srsPhysicalResourceId = a}) - --- | Success/failure message associated with the resource. -srsResourceStatusReason :: Lens' StackResourceSummary (Maybe Text) -srsResourceStatusReason = lens _srsResourceStatusReason (\ s a -> s{_srsResourceStatusReason = a}) - --- | The logical name of the resource specified in the template. -srsLogicalResourceId :: Lens' StackResourceSummary Text -srsLogicalResourceId = lens _srsLogicalResourceId (\ s a -> s{_srsLogicalResourceId = a}) - --- | Type of resource. (For more information, go to in the AWS CloudFormation User Guide.) -srsResourceType :: Lens' StackResourceSummary Text -srsResourceType = lens _srsResourceType (\ s a -> s{_srsResourceType = a}) - --- | Time the status was updated. -srsLastUpdatedTimestamp :: Lens' StackResourceSummary UTCTime -srsLastUpdatedTimestamp = lens _srsLastUpdatedTimestamp (\ s a -> s{_srsLastUpdatedTimestamp = a}) . _Time - --- | Current status of the resource. -srsResourceStatus :: Lens' StackResourceSummary ResourceStatus -srsResourceStatus = lens _srsResourceStatus (\ s a -> s{_srsResourceStatus = a}) - -instance FromXML StackResourceSummary where - parseXML x - = StackResourceSummary' <$> - (x .@? "PhysicalResourceId") <*> - (x .@? "ResourceStatusReason") - <*> (x .@ "LogicalResourceId") - <*> (x .@ "ResourceType") - <*> (x .@ "LastUpdatedTimestamp") - <*> (x .@ "ResourceStatus") - -instance Hashable StackResourceSummary where - -instance NFData StackResourceSummary where - --- | A structure that contains information about a stack set. A stack set enables you to provision stacks into AWS accounts and across regions by using a single CloudFormation template. In the stack set, you specify the template to use, as well as any parameters and capabilities that the template requires. --- --- --- --- /See:/ 'stackSet' smart constructor. -data StackSet = StackSet' - { _ssStatus :: !(Maybe StackSetStatus) - , _ssAdministrationRoleARN :: !(Maybe Text) - , _ssStackSetARN :: !(Maybe Text) - , _ssParameters :: !(Maybe [Parameter]) - , _ssTemplateBody :: !(Maybe Text) - , _ssStackSetName :: !(Maybe Text) - , _ssDescription :: !(Maybe Text) - , _ssCapabilities :: !(Maybe [Capability]) - , _ssTags :: !(Maybe [Tag]) - , _ssStackSetId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssStatus' - The status of the stack set. --- --- * 'ssAdministrationRoleARN' - The Amazon Resource Number (ARN) of the IAM role used to create or update the stack set. Use customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'ssStackSetARN' - The Amazon Resource Number (ARN) of the stack set. --- --- * 'ssParameters' - A list of input parameters for a stack set. --- --- * 'ssTemplateBody' - The structure that contains the body of the template that was used to create or update the stack set. --- --- * 'ssStackSetName' - The name that's associated with the stack set. --- --- * 'ssDescription' - A description of the stack set that you specify when the stack set is created or updated. --- --- * 'ssCapabilities' - The capabilities that are allowed in the stack set. Some stack set templates might include resources that can affect permissions in your AWS account—for example, by creating new AWS Identity and Access Management (IAM) users. For more information, see --- --- * 'ssTags' - A list of tags that specify information about the stack set. A maximum number of 50 tags can be specified. --- --- * 'ssStackSetId' - The ID of the stack set. -stackSet - :: StackSet -stackSet = - StackSet' - { _ssStatus = Nothing - , _ssAdministrationRoleARN = Nothing - , _ssStackSetARN = Nothing - , _ssParameters = Nothing - , _ssTemplateBody = Nothing - , _ssStackSetName = Nothing - , _ssDescription = Nothing - , _ssCapabilities = Nothing - , _ssTags = Nothing - , _ssStackSetId = Nothing - } - - --- | The status of the stack set. -ssStatus :: Lens' StackSet (Maybe StackSetStatus) -ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a}) - --- | The Amazon Resource Number (ARN) of the IAM role used to create or update the stack set. Use customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . -ssAdministrationRoleARN :: Lens' StackSet (Maybe Text) -ssAdministrationRoleARN = lens _ssAdministrationRoleARN (\ s a -> s{_ssAdministrationRoleARN = a}) - --- | The Amazon Resource Number (ARN) of the stack set. -ssStackSetARN :: Lens' StackSet (Maybe Text) -ssStackSetARN = lens _ssStackSetARN (\ s a -> s{_ssStackSetARN = a}) - --- | A list of input parameters for a stack set. -ssParameters :: Lens' StackSet [Parameter] -ssParameters = lens _ssParameters (\ s a -> s{_ssParameters = a}) . _Default . _Coerce - --- | The structure that contains the body of the template that was used to create or update the stack set. -ssTemplateBody :: Lens' StackSet (Maybe Text) -ssTemplateBody = lens _ssTemplateBody (\ s a -> s{_ssTemplateBody = a}) - --- | The name that's associated with the stack set. -ssStackSetName :: Lens' StackSet (Maybe Text) -ssStackSetName = lens _ssStackSetName (\ s a -> s{_ssStackSetName = a}) - --- | A description of the stack set that you specify when the stack set is created or updated. -ssDescription :: Lens' StackSet (Maybe Text) -ssDescription = lens _ssDescription (\ s a -> s{_ssDescription = a}) - --- | The capabilities that are allowed in the stack set. Some stack set templates might include resources that can affect permissions in your AWS account—for example, by creating new AWS Identity and Access Management (IAM) users. For more information, see -ssCapabilities :: Lens' StackSet [Capability] -ssCapabilities = lens _ssCapabilities (\ s a -> s{_ssCapabilities = a}) . _Default . _Coerce - --- | A list of tags that specify information about the stack set. A maximum number of 50 tags can be specified. -ssTags :: Lens' StackSet [Tag] -ssTags = lens _ssTags (\ s a -> s{_ssTags = a}) . _Default . _Coerce - --- | The ID of the stack set. -ssStackSetId :: Lens' StackSet (Maybe Text) -ssStackSetId = lens _ssStackSetId (\ s a -> s{_ssStackSetId = a}) - -instance FromXML StackSet where - parseXML x - = StackSet' <$> - (x .@? "Status") <*> (x .@? "AdministrationRoleARN") - <*> (x .@? "StackSetARN") - <*> - (x .@? "Parameters" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "TemplateBody") - <*> (x .@? "StackSetName") - <*> (x .@? "Description") - <*> - (x .@? "Capabilities" .!@ mempty >>= - may (parseXMLList "member")) - <*> - (x .@? "Tags" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "StackSetId") - -instance Hashable StackSet where - -instance NFData StackSet where - --- | The structure that contains information about a stack set operation. --- --- --- --- /See:/ 'stackSetOperation' smart constructor. -data StackSetOperation = StackSetOperation' - { _ssoStatus :: !(Maybe StackSetOperationStatus) - , _ssoAdministrationRoleARN :: !(Maybe Text) - , _ssoAction :: !(Maybe StackSetOperationAction) - , _ssoEndTimestamp :: !(Maybe ISO8601) - , _ssoCreationTimestamp :: !(Maybe ISO8601) - , _ssoOperationPreferences :: !(Maybe StackSetOperationPreferences) - , _ssoOperationId :: !(Maybe Text) - , _ssoRetainStacks :: !(Maybe Bool) - , _ssoStackSetId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSetOperation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssoStatus' - The status of the operation. * @FAILED@ : The operation exceeded the specified failure tolerance. The failure tolerance value that you've set for an operation is applied for each region during stack create and update operations. If the number of failed stacks within a region exceeds the failure tolerance, the status of the operation in the region is set to @FAILED@ . This in turn sets the status of the operation as a whole to @FAILED@ , and AWS CloudFormation cancels the operation in any remaining regions. * @RUNNING@ : The operation is currently being performed. * @STOPPED@ : The user has cancelled the operation. * @STOPPING@ : The operation is in the process of stopping, at user request. * @SUCCEEDED@ : The operation completed creating or updating all the specified stacks without exceeding the failure tolerance for the operation. --- --- * 'ssoAdministrationRoleARN' - The Amazon Resource Number (ARN) of the IAM role used to perform this stack set operation. Use customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'ssoAction' - The type of stack set operation: @CREATE@ , @UPDATE@ , or @DELETE@ . Create and delete operations affect only the specified stack set instances that are associated with the specified stack set. Update operations affect both the stack set itself, as well as /all/ associated stack set instances. --- --- * 'ssoEndTimestamp' - The time at which the stack set operation ended, across all accounts and regions specified. Note that this doesn't necessarily mean that the stack set operation was successful, or even attempted, in each account or region. --- --- * 'ssoCreationTimestamp' - The time at which the operation was initiated. Note that the creation times for the stack set operation might differ from the creation time of the individual stacks themselves. This is because AWS CloudFormation needs to perform preparatory work for the operation, such as dispatching the work to the requested regions, before actually creating the first stacks. --- --- * 'ssoOperationPreferences' - The preferences for how AWS CloudFormation performs this stack set operation. --- --- * 'ssoOperationId' - The unique ID of a stack set operation. --- --- * 'ssoRetainStacks' - For stack set operations of action type @DELETE@ , specifies whether to remove the stack instances from the specified stack set, but doesn't delete the stacks. You can't reassociate a retained stack, or add an existing, saved stack to a new stack set. --- --- * 'ssoStackSetId' - The ID of the stack set. -stackSetOperation - :: StackSetOperation -stackSetOperation = - StackSetOperation' - { _ssoStatus = Nothing - , _ssoAdministrationRoleARN = Nothing - , _ssoAction = Nothing - , _ssoEndTimestamp = Nothing - , _ssoCreationTimestamp = Nothing - , _ssoOperationPreferences = Nothing - , _ssoOperationId = Nothing - , _ssoRetainStacks = Nothing - , _ssoStackSetId = Nothing - } - - --- | The status of the operation. * @FAILED@ : The operation exceeded the specified failure tolerance. The failure tolerance value that you've set for an operation is applied for each region during stack create and update operations. If the number of failed stacks within a region exceeds the failure tolerance, the status of the operation in the region is set to @FAILED@ . This in turn sets the status of the operation as a whole to @FAILED@ , and AWS CloudFormation cancels the operation in any remaining regions. * @RUNNING@ : The operation is currently being performed. * @STOPPED@ : The user has cancelled the operation. * @STOPPING@ : The operation is in the process of stopping, at user request. * @SUCCEEDED@ : The operation completed creating or updating all the specified stacks without exceeding the failure tolerance for the operation. -ssoStatus :: Lens' StackSetOperation (Maybe StackSetOperationStatus) -ssoStatus = lens _ssoStatus (\ s a -> s{_ssoStatus = a}) - --- | The Amazon Resource Number (ARN) of the IAM role used to perform this stack set operation. Use customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . -ssoAdministrationRoleARN :: Lens' StackSetOperation (Maybe Text) -ssoAdministrationRoleARN = lens _ssoAdministrationRoleARN (\ s a -> s{_ssoAdministrationRoleARN = a}) - --- | The type of stack set operation: @CREATE@ , @UPDATE@ , or @DELETE@ . Create and delete operations affect only the specified stack set instances that are associated with the specified stack set. Update operations affect both the stack set itself, as well as /all/ associated stack set instances. -ssoAction :: Lens' StackSetOperation (Maybe StackSetOperationAction) -ssoAction = lens _ssoAction (\ s a -> s{_ssoAction = a}) - --- | The time at which the stack set operation ended, across all accounts and regions specified. Note that this doesn't necessarily mean that the stack set operation was successful, or even attempted, in each account or region. -ssoEndTimestamp :: Lens' StackSetOperation (Maybe UTCTime) -ssoEndTimestamp = lens _ssoEndTimestamp (\ s a -> s{_ssoEndTimestamp = a}) . mapping _Time - --- | The time at which the operation was initiated. Note that the creation times for the stack set operation might differ from the creation time of the individual stacks themselves. This is because AWS CloudFormation needs to perform preparatory work for the operation, such as dispatching the work to the requested regions, before actually creating the first stacks. -ssoCreationTimestamp :: Lens' StackSetOperation (Maybe UTCTime) -ssoCreationTimestamp = lens _ssoCreationTimestamp (\ s a -> s{_ssoCreationTimestamp = a}) . mapping _Time - --- | The preferences for how AWS CloudFormation performs this stack set operation. -ssoOperationPreferences :: Lens' StackSetOperation (Maybe StackSetOperationPreferences) -ssoOperationPreferences = lens _ssoOperationPreferences (\ s a -> s{_ssoOperationPreferences = a}) - --- | The unique ID of a stack set operation. -ssoOperationId :: Lens' StackSetOperation (Maybe Text) -ssoOperationId = lens _ssoOperationId (\ s a -> s{_ssoOperationId = a}) - --- | For stack set operations of action type @DELETE@ , specifies whether to remove the stack instances from the specified stack set, but doesn't delete the stacks. You can't reassociate a retained stack, or add an existing, saved stack to a new stack set. -ssoRetainStacks :: Lens' StackSetOperation (Maybe Bool) -ssoRetainStacks = lens _ssoRetainStacks (\ s a -> s{_ssoRetainStacks = a}) - --- | The ID of the stack set. -ssoStackSetId :: Lens' StackSetOperation (Maybe Text) -ssoStackSetId = lens _ssoStackSetId (\ s a -> s{_ssoStackSetId = a}) - -instance FromXML StackSetOperation where - parseXML x - = StackSetOperation' <$> - (x .@? "Status") <*> (x .@? "AdministrationRoleARN") - <*> (x .@? "Action") - <*> (x .@? "EndTimestamp") - <*> (x .@? "CreationTimestamp") - <*> (x .@? "OperationPreferences") - <*> (x .@? "OperationId") - <*> (x .@? "RetainStacks") - <*> (x .@? "StackSetId") - -instance Hashable StackSetOperation where - -instance NFData StackSetOperation where - --- | The user-specified preferences for how AWS CloudFormation performs a stack set operation. --- --- --- For more information on maximum concurrent accounts and failure tolerance, see . --- --- --- /See:/ 'stackSetOperationPreferences' smart constructor. -data StackSetOperationPreferences = StackSetOperationPreferences' - { _ssopRegionOrder :: !(Maybe [Text]) - , _ssopMaxConcurrentCount :: !(Maybe Nat) - , _ssopMaxConcurrentPercentage :: !(Maybe Nat) - , _ssopFailureToleranceCount :: !(Maybe Nat) - , _ssopFailureTolerancePercentage :: !(Maybe Nat) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSetOperationPreferences' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssopRegionOrder' - The order of the regions in where you want to perform the stack operation. --- --- * 'ssopMaxConcurrentCount' - The maximum number of accounts in which to perform this operation at one time. This is dependent on the value of @FailureToleranceCount@ —@MaxConcurrentCount@ is at most one more than the @FailureToleranceCount@ . Note that this setting lets you specify the /maximum/ for operations. For large deployments, under certain circumstances the actual number of accounts acted upon concurrently may be lower due to service throttling. Conditional: You must specify either @MaxConcurrentCount@ or @MaxConcurrentPercentage@ , but not both. --- --- * 'ssopMaxConcurrentPercentage' - The maximum percentage of accounts in which to perform this operation at one time. When calculating the number of accounts based on the specified percentage, AWS CloudFormation rounds down to the next whole number. This is true except in cases where rounding down would result is zero. In this case, CloudFormation sets the number as one instead. Note that this setting lets you specify the /maximum/ for operations. For large deployments, under certain circumstances the actual number of accounts acted upon concurrently may be lower due to service throttling. Conditional: You must specify either @MaxConcurrentCount@ or @MaxConcurrentPercentage@ , but not both. --- --- * 'ssopFailureToleranceCount' - The number of accounts, per region, for which this operation can fail before AWS CloudFormation stops the operation in that region. If the operation is stopped in a region, AWS CloudFormation doesn't attempt the operation in any subsequent regions. Conditional: You must specify either @FailureToleranceCount@ or @FailureTolerancePercentage@ (but not both). --- --- * 'ssopFailureTolerancePercentage' - The percentage of accounts, per region, for which this stack operation can fail before AWS CloudFormation stops the operation in that region. If the operation is stopped in a region, AWS CloudFormation doesn't attempt the operation in any subsequent regions. When calculating the number of accounts based on the specified percentage, AWS CloudFormation rounds /down/ to the next whole number. Conditional: You must specify either @FailureToleranceCount@ or @FailureTolerancePercentage@ , but not both. -stackSetOperationPreferences - :: StackSetOperationPreferences -stackSetOperationPreferences = - StackSetOperationPreferences' - { _ssopRegionOrder = Nothing - , _ssopMaxConcurrentCount = Nothing - , _ssopMaxConcurrentPercentage = Nothing - , _ssopFailureToleranceCount = Nothing - , _ssopFailureTolerancePercentage = Nothing - } - - --- | The order of the regions in where you want to perform the stack operation. -ssopRegionOrder :: Lens' StackSetOperationPreferences [Text] -ssopRegionOrder = lens _ssopRegionOrder (\ s a -> s{_ssopRegionOrder = a}) . _Default . _Coerce - --- | The maximum number of accounts in which to perform this operation at one time. This is dependent on the value of @FailureToleranceCount@ —@MaxConcurrentCount@ is at most one more than the @FailureToleranceCount@ . Note that this setting lets you specify the /maximum/ for operations. For large deployments, under certain circumstances the actual number of accounts acted upon concurrently may be lower due to service throttling. Conditional: You must specify either @MaxConcurrentCount@ or @MaxConcurrentPercentage@ , but not both. -ssopMaxConcurrentCount :: Lens' StackSetOperationPreferences (Maybe Natural) -ssopMaxConcurrentCount = lens _ssopMaxConcurrentCount (\ s a -> s{_ssopMaxConcurrentCount = a}) . mapping _Nat - --- | The maximum percentage of accounts in which to perform this operation at one time. When calculating the number of accounts based on the specified percentage, AWS CloudFormation rounds down to the next whole number. This is true except in cases where rounding down would result is zero. In this case, CloudFormation sets the number as one instead. Note that this setting lets you specify the /maximum/ for operations. For large deployments, under certain circumstances the actual number of accounts acted upon concurrently may be lower due to service throttling. Conditional: You must specify either @MaxConcurrentCount@ or @MaxConcurrentPercentage@ , but not both. -ssopMaxConcurrentPercentage :: Lens' StackSetOperationPreferences (Maybe Natural) -ssopMaxConcurrentPercentage = lens _ssopMaxConcurrentPercentage (\ s a -> s{_ssopMaxConcurrentPercentage = a}) . mapping _Nat - --- | The number of accounts, per region, for which this operation can fail before AWS CloudFormation stops the operation in that region. If the operation is stopped in a region, AWS CloudFormation doesn't attempt the operation in any subsequent regions. Conditional: You must specify either @FailureToleranceCount@ or @FailureTolerancePercentage@ (but not both). -ssopFailureToleranceCount :: Lens' StackSetOperationPreferences (Maybe Natural) -ssopFailureToleranceCount = lens _ssopFailureToleranceCount (\ s a -> s{_ssopFailureToleranceCount = a}) . mapping _Nat - --- | The percentage of accounts, per region, for which this stack operation can fail before AWS CloudFormation stops the operation in that region. If the operation is stopped in a region, AWS CloudFormation doesn't attempt the operation in any subsequent regions. When calculating the number of accounts based on the specified percentage, AWS CloudFormation rounds /down/ to the next whole number. Conditional: You must specify either @FailureToleranceCount@ or @FailureTolerancePercentage@ , but not both. -ssopFailureTolerancePercentage :: Lens' StackSetOperationPreferences (Maybe Natural) -ssopFailureTolerancePercentage = lens _ssopFailureTolerancePercentage (\ s a -> s{_ssopFailureTolerancePercentage = a}) . mapping _Nat - -instance FromXML StackSetOperationPreferences where - parseXML x - = StackSetOperationPreferences' <$> - (x .@? "RegionOrder" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "MaxConcurrentCount") - <*> (x .@? "MaxConcurrentPercentage") - <*> (x .@? "FailureToleranceCount") - <*> (x .@? "FailureTolerancePercentage") - -instance Hashable StackSetOperationPreferences where - -instance NFData StackSetOperationPreferences where - -instance ToQuery StackSetOperationPreferences where - toQuery StackSetOperationPreferences'{..} - = mconcat - ["RegionOrder" =: - toQuery (toQueryList "member" <$> _ssopRegionOrder), - "MaxConcurrentCount" =: _ssopMaxConcurrentCount, - "MaxConcurrentPercentage" =: - _ssopMaxConcurrentPercentage, - "FailureToleranceCount" =: - _ssopFailureToleranceCount, - "FailureTolerancePercentage" =: - _ssopFailureTolerancePercentage] - --- | The structure that contains information about a specified operation's results for a given account in a given region. --- --- --- --- /See:/ 'stackSetOperationResultSummary' smart constructor. -data StackSetOperationResultSummary = StackSetOperationResultSummary' - { _ssorsStatus :: !(Maybe StackSetOperationResultStatus) - , _ssorsAccount :: !(Maybe Text) - , _ssorsAccountGateResult :: !(Maybe AccountGateResult) - , _ssorsRegion :: !(Maybe Text) - , _ssorsStatusReason :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSetOperationResultSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssorsStatus' - The result status of the stack set operation for the given account in the given region. * @CANCELLED@ : The operation in the specified account and region has been cancelled. This is either because a user has stopped the stack set operation, or because the failure tolerance of the stack set operation has been exceeded. * @FAILED@ : The operation in the specified account and region failed. If the stack set operation fails in enough accounts within a region, the failure tolerance for the stack set operation as a whole might be exceeded. * @RUNNING@ : The operation in the specified account and region is currently in progress. * @PENDING@ : The operation in the specified account and region has yet to start. * @SUCCEEDED@ : The operation in the specified account and region completed successfully. --- --- * 'ssorsAccount' - The name of the AWS account for this operation result. --- --- * 'ssorsAccountGateResult' - The results of the account gate function AWS CloudFormation invokes, if present, before proceeding with stack set operations in an account --- --- * 'ssorsRegion' - The name of the AWS region for this operation result. --- --- * 'ssorsStatusReason' - The reason for the assigned result status. -stackSetOperationResultSummary - :: StackSetOperationResultSummary -stackSetOperationResultSummary = - StackSetOperationResultSummary' - { _ssorsStatus = Nothing - , _ssorsAccount = Nothing - , _ssorsAccountGateResult = Nothing - , _ssorsRegion = Nothing - , _ssorsStatusReason = Nothing - } - - --- | The result status of the stack set operation for the given account in the given region. * @CANCELLED@ : The operation in the specified account and region has been cancelled. This is either because a user has stopped the stack set operation, or because the failure tolerance of the stack set operation has been exceeded. * @FAILED@ : The operation in the specified account and region failed. If the stack set operation fails in enough accounts within a region, the failure tolerance for the stack set operation as a whole might be exceeded. * @RUNNING@ : The operation in the specified account and region is currently in progress. * @PENDING@ : The operation in the specified account and region has yet to start. * @SUCCEEDED@ : The operation in the specified account and region completed successfully. -ssorsStatus :: Lens' StackSetOperationResultSummary (Maybe StackSetOperationResultStatus) -ssorsStatus = lens _ssorsStatus (\ s a -> s{_ssorsStatus = a}) - --- | The name of the AWS account for this operation result. -ssorsAccount :: Lens' StackSetOperationResultSummary (Maybe Text) -ssorsAccount = lens _ssorsAccount (\ s a -> s{_ssorsAccount = a}) - --- | The results of the account gate function AWS CloudFormation invokes, if present, before proceeding with stack set operations in an account -ssorsAccountGateResult :: Lens' StackSetOperationResultSummary (Maybe AccountGateResult) -ssorsAccountGateResult = lens _ssorsAccountGateResult (\ s a -> s{_ssorsAccountGateResult = a}) - --- | The name of the AWS region for this operation result. -ssorsRegion :: Lens' StackSetOperationResultSummary (Maybe Text) -ssorsRegion = lens _ssorsRegion (\ s a -> s{_ssorsRegion = a}) - --- | The reason for the assigned result status. -ssorsStatusReason :: Lens' StackSetOperationResultSummary (Maybe Text) -ssorsStatusReason = lens _ssorsStatusReason (\ s a -> s{_ssorsStatusReason = a}) - -instance FromXML StackSetOperationResultSummary where - parseXML x - = StackSetOperationResultSummary' <$> - (x .@? "Status") <*> (x .@? "Account") <*> - (x .@? "AccountGateResult") - <*> (x .@? "Region") - <*> (x .@? "StatusReason") - -instance Hashable StackSetOperationResultSummary - where - -instance NFData StackSetOperationResultSummary where - --- | The structures that contain summary information about the specified operation. --- --- --- --- /See:/ 'stackSetOperationSummary' smart constructor. -data StackSetOperationSummary = StackSetOperationSummary' - { _ssosStatus :: !(Maybe StackSetOperationStatus) - , _ssosAction :: !(Maybe StackSetOperationAction) - , _ssosEndTimestamp :: !(Maybe ISO8601) - , _ssosCreationTimestamp :: !(Maybe ISO8601) - , _ssosOperationId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSetOperationSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssosStatus' - The overall status of the operation. * @FAILED@ : The operation exceeded the specified failure tolerance. The failure tolerance value that you've set for an operation is applied for each region during stack create and update operations. If the number of failed stacks within a region exceeds the failure tolerance, the status of the operation in the region is set to @FAILED@ . This in turn sets the status of the operation as a whole to @FAILED@ , and AWS CloudFormation cancels the operation in any remaining regions. * @RUNNING@ : The operation is currently being performed. * @STOPPED@ : The user has cancelled the operation. * @STOPPING@ : The operation is in the process of stopping, at user request. * @SUCCEEDED@ : The operation completed creating or updating all the specified stacks without exceeding the failure tolerance for the operation. --- --- * 'ssosAction' - The type of operation: @CREATE@ , @UPDATE@ , or @DELETE@ . Create and delete operations affect only the specified stack instances that are associated with the specified stack set. Update operations affect both the stack set itself as well as /all/ associated stack set instances. --- --- * 'ssosEndTimestamp' - The time at which the stack set operation ended, across all accounts and regions specified. Note that this doesn't necessarily mean that the stack set operation was successful, or even attempted, in each account or region. --- --- * 'ssosCreationTimestamp' - The time at which the operation was initiated. Note that the creation times for the stack set operation might differ from the creation time of the individual stacks themselves. This is because AWS CloudFormation needs to perform preparatory work for the operation, such as dispatching the work to the requested regions, before actually creating the first stacks. --- --- * 'ssosOperationId' - The unique ID of the stack set operation. -stackSetOperationSummary - :: StackSetOperationSummary -stackSetOperationSummary = - StackSetOperationSummary' - { _ssosStatus = Nothing - , _ssosAction = Nothing - , _ssosEndTimestamp = Nothing - , _ssosCreationTimestamp = Nothing - , _ssosOperationId = Nothing - } - - --- | The overall status of the operation. * @FAILED@ : The operation exceeded the specified failure tolerance. The failure tolerance value that you've set for an operation is applied for each region during stack create and update operations. If the number of failed stacks within a region exceeds the failure tolerance, the status of the operation in the region is set to @FAILED@ . This in turn sets the status of the operation as a whole to @FAILED@ , and AWS CloudFormation cancels the operation in any remaining regions. * @RUNNING@ : The operation is currently being performed. * @STOPPED@ : The user has cancelled the operation. * @STOPPING@ : The operation is in the process of stopping, at user request. * @SUCCEEDED@ : The operation completed creating or updating all the specified stacks without exceeding the failure tolerance for the operation. -ssosStatus :: Lens' StackSetOperationSummary (Maybe StackSetOperationStatus) -ssosStatus = lens _ssosStatus (\ s a -> s{_ssosStatus = a}) - --- | The type of operation: @CREATE@ , @UPDATE@ , or @DELETE@ . Create and delete operations affect only the specified stack instances that are associated with the specified stack set. Update operations affect both the stack set itself as well as /all/ associated stack set instances. -ssosAction :: Lens' StackSetOperationSummary (Maybe StackSetOperationAction) -ssosAction = lens _ssosAction (\ s a -> s{_ssosAction = a}) - --- | The time at which the stack set operation ended, across all accounts and regions specified. Note that this doesn't necessarily mean that the stack set operation was successful, or even attempted, in each account or region. -ssosEndTimestamp :: Lens' StackSetOperationSummary (Maybe UTCTime) -ssosEndTimestamp = lens _ssosEndTimestamp (\ s a -> s{_ssosEndTimestamp = a}) . mapping _Time - --- | The time at which the operation was initiated. Note that the creation times for the stack set operation might differ from the creation time of the individual stacks themselves. This is because AWS CloudFormation needs to perform preparatory work for the operation, such as dispatching the work to the requested regions, before actually creating the first stacks. -ssosCreationTimestamp :: Lens' StackSetOperationSummary (Maybe UTCTime) -ssosCreationTimestamp = lens _ssosCreationTimestamp (\ s a -> s{_ssosCreationTimestamp = a}) . mapping _Time - --- | The unique ID of the stack set operation. -ssosOperationId :: Lens' StackSetOperationSummary (Maybe Text) -ssosOperationId = lens _ssosOperationId (\ s a -> s{_ssosOperationId = a}) - -instance FromXML StackSetOperationSummary where - parseXML x - = StackSetOperationSummary' <$> - (x .@? "Status") <*> (x .@? "Action") <*> - (x .@? "EndTimestamp") - <*> (x .@? "CreationTimestamp") - <*> (x .@? "OperationId") - -instance Hashable StackSetOperationSummary where - -instance NFData StackSetOperationSummary where - --- | The structures that contain summary information about the specified stack set. --- --- --- --- /See:/ 'stackSetSummary' smart constructor. -data StackSetSummary = StackSetSummary' - { _sssStatus :: !(Maybe StackSetStatus) - , _sssStackSetName :: !(Maybe Text) - , _sssDescription :: !(Maybe Text) - , _sssStackSetId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSetSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sssStatus' - The status of the stack set. --- --- * 'sssStackSetName' - The name of the stack set. --- --- * 'sssDescription' - A description of the stack set that you specify when the stack set is created or updated. --- --- * 'sssStackSetId' - The ID of the stack set. -stackSetSummary - :: StackSetSummary -stackSetSummary = - StackSetSummary' - { _sssStatus = Nothing - , _sssStackSetName = Nothing - , _sssDescription = Nothing - , _sssStackSetId = Nothing - } - - --- | The status of the stack set. -sssStatus :: Lens' StackSetSummary (Maybe StackSetStatus) -sssStatus = lens _sssStatus (\ s a -> s{_sssStatus = a}) - --- | The name of the stack set. -sssStackSetName :: Lens' StackSetSummary (Maybe Text) -sssStackSetName = lens _sssStackSetName (\ s a -> s{_sssStackSetName = a}) - --- | A description of the stack set that you specify when the stack set is created or updated. -sssDescription :: Lens' StackSetSummary (Maybe Text) -sssDescription = lens _sssDescription (\ s a -> s{_sssDescription = a}) - --- | The ID of the stack set. -sssStackSetId :: Lens' StackSetSummary (Maybe Text) -sssStackSetId = lens _sssStackSetId (\ s a -> s{_sssStackSetId = a}) - -instance FromXML StackSetSummary where - parseXML x - = StackSetSummary' <$> - (x .@? "Status") <*> (x .@? "StackSetName") <*> - (x .@? "Description") - <*> (x .@? "StackSetId") - -instance Hashable StackSetSummary where - -instance NFData StackSetSummary where - --- | The StackSummary Data Type --- --- --- --- /See:/ 'stackSummary' smart constructor. -data StackSummary = StackSummary' - { _ssLastUpdatedTime :: !(Maybe ISO8601) - , _ssRootId :: !(Maybe Text) - , _ssStackStatusReason :: !(Maybe Text) - , _ssTemplateDescription :: !(Maybe Text) - , _ssDeletionTime :: !(Maybe ISO8601) - , _ssStackId :: !(Maybe Text) - , _ssParentId :: !(Maybe Text) - , _ssStackName :: !Text - , _ssCreationTime :: !ISO8601 - , _ssStackStatus :: !StackStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StackSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssLastUpdatedTime' - The time the stack was last updated. This field will only be returned if the stack has been updated at least once. --- --- * 'ssRootId' - For nested stacks--stacks created as resources for another stack--the stack ID of the the top-level stack to which the nested stack ultimately belongs. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'ssStackStatusReason' - Success/Failure message associated with the stack status. --- --- * 'ssTemplateDescription' - The template description of the template used to create the stack. --- --- * 'ssDeletionTime' - The time the stack was deleted. --- --- * 'ssStackId' - Unique stack identifier. --- --- * 'ssParentId' - For nested stacks--stacks created as resources for another stack--the stack ID of the direct parent of this stack. For the first level of nested stacks, the root stack is also the parent stack. For more information, see in the /AWS CloudFormation User Guide/ . --- --- * 'ssStackName' - The name associated with the stack. --- --- * 'ssCreationTime' - The time the stack was created. --- --- * 'ssStackStatus' - The current status of the stack. -stackSummary - :: Text -- ^ 'ssStackName' - -> UTCTime -- ^ 'ssCreationTime' - -> StackStatus -- ^ 'ssStackStatus' - -> StackSummary -stackSummary pStackName_ pCreationTime_ pStackStatus_ = - StackSummary' - { _ssLastUpdatedTime = Nothing - , _ssRootId = Nothing - , _ssStackStatusReason = Nothing - , _ssTemplateDescription = Nothing - , _ssDeletionTime = Nothing - , _ssStackId = Nothing - , _ssParentId = Nothing - , _ssStackName = pStackName_ - , _ssCreationTime = _Time # pCreationTime_ - , _ssStackStatus = pStackStatus_ - } - - --- | The time the stack was last updated. This field will only be returned if the stack has been updated at least once. -ssLastUpdatedTime :: Lens' StackSummary (Maybe UTCTime) -ssLastUpdatedTime = lens _ssLastUpdatedTime (\ s a -> s{_ssLastUpdatedTime = a}) . mapping _Time - --- | For nested stacks--stacks created as resources for another stack--the stack ID of the the top-level stack to which the nested stack ultimately belongs. For more information, see in the /AWS CloudFormation User Guide/ . -ssRootId :: Lens' StackSummary (Maybe Text) -ssRootId = lens _ssRootId (\ s a -> s{_ssRootId = a}) - --- | Success/Failure message associated with the stack status. -ssStackStatusReason :: Lens' StackSummary (Maybe Text) -ssStackStatusReason = lens _ssStackStatusReason (\ s a -> s{_ssStackStatusReason = a}) - --- | The template description of the template used to create the stack. -ssTemplateDescription :: Lens' StackSummary (Maybe Text) -ssTemplateDescription = lens _ssTemplateDescription (\ s a -> s{_ssTemplateDescription = a}) - --- | The time the stack was deleted. -ssDeletionTime :: Lens' StackSummary (Maybe UTCTime) -ssDeletionTime = lens _ssDeletionTime (\ s a -> s{_ssDeletionTime = a}) . mapping _Time - --- | Unique stack identifier. -ssStackId :: Lens' StackSummary (Maybe Text) -ssStackId = lens _ssStackId (\ s a -> s{_ssStackId = a}) - --- | For nested stacks--stacks created as resources for another stack--the stack ID of the direct parent of this stack. For the first level of nested stacks, the root stack is also the parent stack. For more information, see in the /AWS CloudFormation User Guide/ . -ssParentId :: Lens' StackSummary (Maybe Text) -ssParentId = lens _ssParentId (\ s a -> s{_ssParentId = a}) - --- | The name associated with the stack. -ssStackName :: Lens' StackSummary Text -ssStackName = lens _ssStackName (\ s a -> s{_ssStackName = a}) - --- | The time the stack was created. -ssCreationTime :: Lens' StackSummary UTCTime -ssCreationTime = lens _ssCreationTime (\ s a -> s{_ssCreationTime = a}) . _Time - --- | The current status of the stack. -ssStackStatus :: Lens' StackSummary StackStatus -ssStackStatus = lens _ssStackStatus (\ s a -> s{_ssStackStatus = a}) - -instance FromXML StackSummary where - parseXML x - = StackSummary' <$> - (x .@? "LastUpdatedTime") <*> (x .@? "RootId") <*> - (x .@? "StackStatusReason") - <*> (x .@? "TemplateDescription") - <*> (x .@? "DeletionTime") - <*> (x .@? "StackId") - <*> (x .@? "ParentId") - <*> (x .@ "StackName") - <*> (x .@ "CreationTime") - <*> (x .@ "StackStatus") - -instance Hashable StackSummary where - -instance NFData StackSummary where - --- | The Tag type enables you to specify a key-value pair that can be used to store information about an AWS CloudFormation stack. --- --- --- --- /See:/ 'tag' smart constructor. -data Tag = Tag' - { _tagKey :: !Text - , _tagValue :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Tag' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tagKey' - /Required/ . A string used to identify this tag. You can specify a maximum of 128 characters for a tag key. Tags owned by Amazon Web Services (AWS) have the reserved prefix: @aws:@ . --- --- * 'tagValue' - /Required/ . A string containing the value for this tag. You can specify a maximum of 256 characters for a tag value. -tag - :: Text -- ^ 'tagKey' - -> Text -- ^ 'tagValue' - -> Tag -tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_} - - --- | /Required/ . A string used to identify this tag. You can specify a maximum of 128 characters for a tag key. Tags owned by Amazon Web Services (AWS) have the reserved prefix: @aws:@ . -tagKey :: Lens' Tag Text -tagKey = lens _tagKey (\ s a -> s{_tagKey = a}) - --- | /Required/ . A string containing the value for this tag. You can specify a maximum of 256 characters for a tag value. -tagValue :: Lens' Tag Text -tagValue = lens _tagValue (\ s a -> s{_tagValue = a}) - -instance FromXML Tag where - parseXML x = Tag' <$> (x .@ "Key") <*> (x .@ "Value") - -instance Hashable Tag where - -instance NFData Tag where - -instance ToQuery Tag where - toQuery Tag'{..} - = mconcat ["Key" =: _tagKey, "Value" =: _tagValue] - --- | The TemplateParameter data type. --- --- --- --- /See:/ 'templateParameter' smart constructor. -data TemplateParameter = TemplateParameter' - { _tpParameterKey :: !(Maybe Text) - , _tpDefaultValue :: !(Maybe Text) - , _tpNoEcho :: !(Maybe Bool) - , _tpDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TemplateParameter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tpParameterKey' - The name associated with the parameter. --- --- * 'tpDefaultValue' - The default value associated with the parameter. --- --- * 'tpNoEcho' - Flag indicating whether the parameter should be displayed as plain text in logs and UIs. --- --- * 'tpDescription' - User defined description associated with the parameter. -templateParameter - :: TemplateParameter -templateParameter = - TemplateParameter' - { _tpParameterKey = Nothing - , _tpDefaultValue = Nothing - , _tpNoEcho = Nothing - , _tpDescription = Nothing - } - - --- | The name associated with the parameter. -tpParameterKey :: Lens' TemplateParameter (Maybe Text) -tpParameterKey = lens _tpParameterKey (\ s a -> s{_tpParameterKey = a}) - --- | The default value associated with the parameter. -tpDefaultValue :: Lens' TemplateParameter (Maybe Text) -tpDefaultValue = lens _tpDefaultValue (\ s a -> s{_tpDefaultValue = a}) - --- | Flag indicating whether the parameter should be displayed as plain text in logs and UIs. -tpNoEcho :: Lens' TemplateParameter (Maybe Bool) -tpNoEcho = lens _tpNoEcho (\ s a -> s{_tpNoEcho = a}) - --- | User defined description associated with the parameter. -tpDescription :: Lens' TemplateParameter (Maybe Text) -tpDescription = lens _tpDescription (\ s a -> s{_tpDescription = a}) - -instance FromXML TemplateParameter where - parseXML x - = TemplateParameter' <$> - (x .@? "ParameterKey") <*> (x .@? "DefaultValue") <*> - (x .@? "NoEcho") - <*> (x .@? "Description") - -instance Hashable TemplateParameter where - -instance NFData TemplateParameter where diff --git a/gen/Network/AWS/CloudFormation/Types/Sum.hs b/gen/Network/AWS/CloudFormation/Types/Sum.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/Types/Sum.hs +++ /dev/null @@ -1,752 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE OverloadedStrings #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.Types.Sum --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.AWS.CloudFormation.Types.Sum where - -import Network.AWS.Prelude - -data AccountGateStatus - = AGSFailed - | AGSSkipped - | AGSSucceeded - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText AccountGateStatus where - parser = takeLowerText >>= \case - "failed" -> pure AGSFailed - "skipped" -> pure AGSSkipped - "succeeded" -> pure AGSSucceeded - e -> fromTextError $ "Failure parsing AccountGateStatus from value: '" <> e - <> "'. Accepted values: failed, skipped, succeeded" - -instance ToText AccountGateStatus where - toText = \case - AGSFailed -> "FAILED" - AGSSkipped -> "SKIPPED" - AGSSucceeded -> "SUCCEEDED" - -instance Hashable AccountGateStatus -instance NFData AccountGateStatus -instance ToByteString AccountGateStatus -instance ToQuery AccountGateStatus -instance ToHeader AccountGateStatus - -instance FromXML AccountGateStatus where - parseXML = parseXMLText "AccountGateStatus" - -data Capability - = CapabilityIAM - | CapabilityNamedIAM - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText Capability where - parser = takeLowerText >>= \case - "capability_iam" -> pure CapabilityIAM - "capability_named_iam" -> pure CapabilityNamedIAM - e -> fromTextError $ "Failure parsing Capability from value: '" <> e - <> "'. Accepted values: capability_iam, capability_named_iam" - -instance ToText Capability where - toText = \case - CapabilityIAM -> "CAPABILITY_IAM" - CapabilityNamedIAM -> "CAPABILITY_NAMED_IAM" - -instance Hashable Capability -instance NFData Capability -instance ToByteString Capability -instance ToQuery Capability -instance ToHeader Capability - -instance FromXML Capability where - parseXML = parseXMLText "Capability" - -data ChangeAction - = Add - | Modify - | Remove - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ChangeAction where - parser = takeLowerText >>= \case - "add" -> pure Add - "modify" -> pure Modify - "remove" -> pure Remove - e -> fromTextError $ "Failure parsing ChangeAction from value: '" <> e - <> "'. Accepted values: add, modify, remove" - -instance ToText ChangeAction where - toText = \case - Add -> "Add" - Modify -> "Modify" - Remove -> "Remove" - -instance Hashable ChangeAction -instance NFData ChangeAction -instance ToByteString ChangeAction -instance ToQuery ChangeAction -instance ToHeader ChangeAction - -instance FromXML ChangeAction where - parseXML = parseXMLText "ChangeAction" - -data ChangeSetStatus - = CSSCreateComplete - | CSSCreateInProgress - | CSSCreatePending - | CSSDeleteComplete - | CSSFailed - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ChangeSetStatus where - parser = takeLowerText >>= \case - "create_complete" -> pure CSSCreateComplete - "create_in_progress" -> pure CSSCreateInProgress - "create_pending" -> pure CSSCreatePending - "delete_complete" -> pure CSSDeleteComplete - "failed" -> pure CSSFailed - e -> fromTextError $ "Failure parsing ChangeSetStatus from value: '" <> e - <> "'. Accepted values: create_complete, create_in_progress, create_pending, delete_complete, failed" - -instance ToText ChangeSetStatus where - toText = \case - CSSCreateComplete -> "CREATE_COMPLETE" - CSSCreateInProgress -> "CREATE_IN_PROGRESS" - CSSCreatePending -> "CREATE_PENDING" - CSSDeleteComplete -> "DELETE_COMPLETE" - CSSFailed -> "FAILED" - -instance Hashable ChangeSetStatus -instance NFData ChangeSetStatus -instance ToByteString ChangeSetStatus -instance ToQuery ChangeSetStatus -instance ToHeader ChangeSetStatus - -instance FromXML ChangeSetStatus where - parseXML = parseXMLText "ChangeSetStatus" - -data ChangeSetType - = Create - | Update - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ChangeSetType where - parser = takeLowerText >>= \case - "create" -> pure Create - "update" -> pure Update - e -> fromTextError $ "Failure parsing ChangeSetType from value: '" <> e - <> "'. Accepted values: create, update" - -instance ToText ChangeSetType where - toText = \case - Create -> "CREATE" - Update -> "UPDATE" - -instance Hashable ChangeSetType -instance NFData ChangeSetType -instance ToByteString ChangeSetType -instance ToQuery ChangeSetType -instance ToHeader ChangeSetType - -data ChangeSource - = Automatic - | DirectModification - | ParameterReference - | ResourceAttribute - | ResourceReference - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ChangeSource where - parser = takeLowerText >>= \case - "automatic" -> pure Automatic - "directmodification" -> pure DirectModification - "parameterreference" -> pure ParameterReference - "resourceattribute" -> pure ResourceAttribute - "resourcereference" -> pure ResourceReference - e -> fromTextError $ "Failure parsing ChangeSource from value: '" <> e - <> "'. Accepted values: automatic, directmodification, parameterreference, resourceattribute, resourcereference" - -instance ToText ChangeSource where - toText = \case - Automatic -> "Automatic" - DirectModification -> "DirectModification" - ParameterReference -> "ParameterReference" - ResourceAttribute -> "ResourceAttribute" - ResourceReference -> "ResourceReference" - -instance Hashable ChangeSource -instance NFData ChangeSource -instance ToByteString ChangeSource -instance ToQuery ChangeSource -instance ToHeader ChangeSource - -instance FromXML ChangeSource where - parseXML = parseXMLText "ChangeSource" - -data ChangeType = - Resource - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ChangeType where - parser = takeLowerText >>= \case - "resource" -> pure Resource - e -> fromTextError $ "Failure parsing ChangeType from value: '" <> e - <> "'. Accepted values: resource" - -instance ToText ChangeType where - toText = \case - Resource -> "Resource" - -instance Hashable ChangeType -instance NFData ChangeType -instance ToByteString ChangeType -instance ToQuery ChangeType -instance ToHeader ChangeType - -instance FromXML ChangeType where - parseXML = parseXMLText "ChangeType" - -data EvaluationType - = Dynamic - | Static - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText EvaluationType where - parser = takeLowerText >>= \case - "dynamic" -> pure Dynamic - "static" -> pure Static - e -> fromTextError $ "Failure parsing EvaluationType from value: '" <> e - <> "'. Accepted values: dynamic, static" - -instance ToText EvaluationType where - toText = \case - Dynamic -> "Dynamic" - Static -> "Static" - -instance Hashable EvaluationType -instance NFData EvaluationType -instance ToByteString EvaluationType -instance ToQuery EvaluationType -instance ToHeader EvaluationType - -instance FromXML EvaluationType where - parseXML = parseXMLText "EvaluationType" - -data ExecutionStatus - = Available - | ExecuteComplete - | ExecuteFailed - | ExecuteInProgress - | Obsolete - | Unavailable - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ExecutionStatus where - parser = takeLowerText >>= \case - "available" -> pure Available - "execute_complete" -> pure ExecuteComplete - "execute_failed" -> pure ExecuteFailed - "execute_in_progress" -> pure ExecuteInProgress - "obsolete" -> pure Obsolete - "unavailable" -> pure Unavailable - e -> fromTextError $ "Failure parsing ExecutionStatus from value: '" <> e - <> "'. Accepted values: available, execute_complete, execute_failed, execute_in_progress, obsolete, unavailable" - -instance ToText ExecutionStatus where - toText = \case - Available -> "AVAILABLE" - ExecuteComplete -> "EXECUTE_COMPLETE" - ExecuteFailed -> "EXECUTE_FAILED" - ExecuteInProgress -> "EXECUTE_IN_PROGRESS" - Obsolete -> "OBSOLETE" - Unavailable -> "UNAVAILABLE" - -instance Hashable ExecutionStatus -instance NFData ExecutionStatus -instance ToByteString ExecutionStatus -instance ToQuery ExecutionStatus -instance ToHeader ExecutionStatus - -instance FromXML ExecutionStatus where - parseXML = parseXMLText "ExecutionStatus" - -data OnFailure - = Delete - | DoNothing - | Rollback - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText OnFailure where - parser = takeLowerText >>= \case - "delete" -> pure Delete - "do_nothing" -> pure DoNothing - "rollback" -> pure Rollback - e -> fromTextError $ "Failure parsing OnFailure from value: '" <> e - <> "'. Accepted values: delete, do_nothing, rollback" - -instance ToText OnFailure where - toText = \case - Delete -> "DELETE" - DoNothing -> "DO_NOTHING" - Rollback -> "ROLLBACK" - -instance Hashable OnFailure -instance NFData OnFailure -instance ToByteString OnFailure -instance ToQuery OnFailure -instance ToHeader OnFailure - -data Replacement - = Conditional - | False' - | True' - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText Replacement where - parser = takeLowerText >>= \case - "conditional" -> pure Conditional - "false" -> pure False' - "true" -> pure True' - e -> fromTextError $ "Failure parsing Replacement from value: '" <> e - <> "'. Accepted values: conditional, false, true" - -instance ToText Replacement where - toText = \case - Conditional -> "Conditional" - False' -> "False" - True' -> "True" - -instance Hashable Replacement -instance NFData Replacement -instance ToByteString Replacement -instance ToQuery Replacement -instance ToHeader Replacement - -instance FromXML Replacement where - parseXML = parseXMLText "Replacement" - -data RequiresRecreation - = Always - | Conditionally - | Never - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText RequiresRecreation where - parser = takeLowerText >>= \case - "always" -> pure Always - "conditionally" -> pure Conditionally - "never" -> pure Never - e -> fromTextError $ "Failure parsing RequiresRecreation from value: '" <> e - <> "'. Accepted values: always, conditionally, never" - -instance ToText RequiresRecreation where - toText = \case - Always -> "Always" - Conditionally -> "Conditionally" - Never -> "Never" - -instance Hashable RequiresRecreation -instance NFData RequiresRecreation -instance ToByteString RequiresRecreation -instance ToQuery RequiresRecreation -instance ToHeader RequiresRecreation - -instance FromXML RequiresRecreation where - parseXML = parseXMLText "RequiresRecreation" - -data ResourceAttribute - = CreationPolicy - | DeletionPolicy - | Metadata - | Properties - | Tags - | UpdatePolicy - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ResourceAttribute where - parser = takeLowerText >>= \case - "creationpolicy" -> pure CreationPolicy - "deletionpolicy" -> pure DeletionPolicy - "metadata" -> pure Metadata - "properties" -> pure Properties - "tags" -> pure Tags - "updatepolicy" -> pure UpdatePolicy - e -> fromTextError $ "Failure parsing ResourceAttribute from value: '" <> e - <> "'. Accepted values: creationpolicy, deletionpolicy, metadata, properties, tags, updatepolicy" - -instance ToText ResourceAttribute where - toText = \case - CreationPolicy -> "CreationPolicy" - DeletionPolicy -> "DeletionPolicy" - Metadata -> "Metadata" - Properties -> "Properties" - Tags -> "Tags" - UpdatePolicy -> "UpdatePolicy" - -instance Hashable ResourceAttribute -instance NFData ResourceAttribute -instance ToByteString ResourceAttribute -instance ToQuery ResourceAttribute -instance ToHeader ResourceAttribute - -instance FromXML ResourceAttribute where - parseXML = parseXMLText "ResourceAttribute" - -data ResourceSignalStatus - = Failure - | Success - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ResourceSignalStatus where - parser = takeLowerText >>= \case - "failure" -> pure Failure - "success" -> pure Success - e -> fromTextError $ "Failure parsing ResourceSignalStatus from value: '" <> e - <> "'. Accepted values: failure, success" - -instance ToText ResourceSignalStatus where - toText = \case - Failure -> "FAILURE" - Success -> "SUCCESS" - -instance Hashable ResourceSignalStatus -instance NFData ResourceSignalStatus -instance ToByteString ResourceSignalStatus -instance ToQuery ResourceSignalStatus -instance ToHeader ResourceSignalStatus - -data ResourceStatus - = CreateComplete - | CreateFailed - | CreateInProgress - | DeleteComplete - | DeleteFailed - | DeleteInProgress - | DeleteSkipped - | UpdateComplete - | UpdateFailed - | UpdateInProgress - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ResourceStatus where - parser = takeLowerText >>= \case - "create_complete" -> pure CreateComplete - "create_failed" -> pure CreateFailed - "create_in_progress" -> pure CreateInProgress - "delete_complete" -> pure DeleteComplete - "delete_failed" -> pure DeleteFailed - "delete_in_progress" -> pure DeleteInProgress - "delete_skipped" -> pure DeleteSkipped - "update_complete" -> pure UpdateComplete - "update_failed" -> pure UpdateFailed - "update_in_progress" -> pure UpdateInProgress - e -> fromTextError $ "Failure parsing ResourceStatus from value: '" <> e - <> "'. Accepted values: create_complete, create_failed, create_in_progress, delete_complete, delete_failed, delete_in_progress, delete_skipped, update_complete, update_failed, update_in_progress" - -instance ToText ResourceStatus where - toText = \case - CreateComplete -> "CREATE_COMPLETE" - CreateFailed -> "CREATE_FAILED" - CreateInProgress -> "CREATE_IN_PROGRESS" - DeleteComplete -> "DELETE_COMPLETE" - DeleteFailed -> "DELETE_FAILED" - DeleteInProgress -> "DELETE_IN_PROGRESS" - DeleteSkipped -> "DELETE_SKIPPED" - UpdateComplete -> "UPDATE_COMPLETE" - UpdateFailed -> "UPDATE_FAILED" - UpdateInProgress -> "UPDATE_IN_PROGRESS" - -instance Hashable ResourceStatus -instance NFData ResourceStatus -instance ToByteString ResourceStatus -instance ToQuery ResourceStatus -instance ToHeader ResourceStatus - -instance FromXML ResourceStatus where - parseXML = parseXMLText "ResourceStatus" - -data StackInstanceStatus - = Current - | Inoperable - | Outdated - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StackInstanceStatus where - parser = takeLowerText >>= \case - "current" -> pure Current - "inoperable" -> pure Inoperable - "outdated" -> pure Outdated - e -> fromTextError $ "Failure parsing StackInstanceStatus from value: '" <> e - <> "'. Accepted values: current, inoperable, outdated" - -instance ToText StackInstanceStatus where - toText = \case - Current -> "CURRENT" - Inoperable -> "INOPERABLE" - Outdated -> "OUTDATED" - -instance Hashable StackInstanceStatus -instance NFData StackInstanceStatus -instance ToByteString StackInstanceStatus -instance ToQuery StackInstanceStatus -instance ToHeader StackInstanceStatus - -instance FromXML StackInstanceStatus where - parseXML = parseXMLText "StackInstanceStatus" - -data StackSetOperationAction - = SSOACreate - | SSOADelete - | SSOAUpdate - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StackSetOperationAction where - parser = takeLowerText >>= \case - "create" -> pure SSOACreate - "delete" -> pure SSOADelete - "update" -> pure SSOAUpdate - e -> fromTextError $ "Failure parsing StackSetOperationAction from value: '" <> e - <> "'. Accepted values: create, delete, update" - -instance ToText StackSetOperationAction where - toText = \case - SSOACreate -> "CREATE" - SSOADelete -> "DELETE" - SSOAUpdate -> "UPDATE" - -instance Hashable StackSetOperationAction -instance NFData StackSetOperationAction -instance ToByteString StackSetOperationAction -instance ToQuery StackSetOperationAction -instance ToHeader StackSetOperationAction - -instance FromXML StackSetOperationAction where - parseXML = parseXMLText "StackSetOperationAction" - -data StackSetOperationResultStatus - = Cancelled - | Failed - | Pending - | Running - | Succeeded - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StackSetOperationResultStatus where - parser = takeLowerText >>= \case - "cancelled" -> pure Cancelled - "failed" -> pure Failed - "pending" -> pure Pending - "running" -> pure Running - "succeeded" -> pure Succeeded - e -> fromTextError $ "Failure parsing StackSetOperationResultStatus from value: '" <> e - <> "'. Accepted values: cancelled, failed, pending, running, succeeded" - -instance ToText StackSetOperationResultStatus where - toText = \case - Cancelled -> "CANCELLED" - Failed -> "FAILED" - Pending -> "PENDING" - Running -> "RUNNING" - Succeeded -> "SUCCEEDED" - -instance Hashable StackSetOperationResultStatus -instance NFData StackSetOperationResultStatus -instance ToByteString StackSetOperationResultStatus -instance ToQuery StackSetOperationResultStatus -instance ToHeader StackSetOperationResultStatus - -instance FromXML StackSetOperationResultStatus where - parseXML = parseXMLText "StackSetOperationResultStatus" - -data StackSetOperationStatus - = SSOSFailed - | SSOSRunning - | SSOSStopped - | SSOSStopping - | SSOSSucceeded - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StackSetOperationStatus where - parser = takeLowerText >>= \case - "failed" -> pure SSOSFailed - "running" -> pure SSOSRunning - "stopped" -> pure SSOSStopped - "stopping" -> pure SSOSStopping - "succeeded" -> pure SSOSSucceeded - e -> fromTextError $ "Failure parsing StackSetOperationStatus from value: '" <> e - <> "'. Accepted values: failed, running, stopped, stopping, succeeded" - -instance ToText StackSetOperationStatus where - toText = \case - SSOSFailed -> "FAILED" - SSOSRunning -> "RUNNING" - SSOSStopped -> "STOPPED" - SSOSStopping -> "STOPPING" - SSOSSucceeded -> "SUCCEEDED" - -instance Hashable StackSetOperationStatus -instance NFData StackSetOperationStatus -instance ToByteString StackSetOperationStatus -instance ToQuery StackSetOperationStatus -instance ToHeader StackSetOperationStatus - -instance FromXML StackSetOperationStatus where - parseXML = parseXMLText "StackSetOperationStatus" - -data StackSetStatus - = Active - | Deleted - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StackSetStatus where - parser = takeLowerText >>= \case - "active" -> pure Active - "deleted" -> pure Deleted - e -> fromTextError $ "Failure parsing StackSetStatus from value: '" <> e - <> "'. Accepted values: active, deleted" - -instance ToText StackSetStatus where - toText = \case - Active -> "ACTIVE" - Deleted -> "DELETED" - -instance Hashable StackSetStatus -instance NFData StackSetStatus -instance ToByteString StackSetStatus -instance ToQuery StackSetStatus -instance ToHeader StackSetStatus - -instance FromXML StackSetStatus where - parseXML = parseXMLText "StackSetStatus" - -data StackStatus - = SSCreateComplete - | SSCreateFailed - | SSCreateInProgress - | SSDeleteComplete - | SSDeleteFailed - | SSDeleteInProgress - | SSReviewInProgress - | SSRollbackComplete - | SSRollbackFailed - | SSRollbackInProgress - | SSUpdateComplete - | SSUpdateCompleteCleanupInProgress - | SSUpdateInProgress - | SSUpdateRollbackComplete - | SSUpdateRollbackCompleteCleanupInProgress - | SSUpdateRollbackFailed - | SSUpdateRollbackInProgress - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StackStatus where - parser = takeLowerText >>= \case - "create_complete" -> pure SSCreateComplete - "create_failed" -> pure SSCreateFailed - "create_in_progress" -> pure SSCreateInProgress - "delete_complete" -> pure SSDeleteComplete - "delete_failed" -> pure SSDeleteFailed - "delete_in_progress" -> pure SSDeleteInProgress - "review_in_progress" -> pure SSReviewInProgress - "rollback_complete" -> pure SSRollbackComplete - "rollback_failed" -> pure SSRollbackFailed - "rollback_in_progress" -> pure SSRollbackInProgress - "update_complete" -> pure SSUpdateComplete - "update_complete_cleanup_in_progress" -> pure SSUpdateCompleteCleanupInProgress - "update_in_progress" -> pure SSUpdateInProgress - "update_rollback_complete" -> pure SSUpdateRollbackComplete - "update_rollback_complete_cleanup_in_progress" -> pure SSUpdateRollbackCompleteCleanupInProgress - "update_rollback_failed" -> pure SSUpdateRollbackFailed - "update_rollback_in_progress" -> pure SSUpdateRollbackInProgress - e -> fromTextError $ "Failure parsing StackStatus from value: '" <> e - <> "'. Accepted values: create_complete, create_failed, create_in_progress, delete_complete, delete_failed, delete_in_progress, review_in_progress, rollback_complete, rollback_failed, rollback_in_progress, update_complete, update_complete_cleanup_in_progress, update_in_progress, update_rollback_complete, update_rollback_complete_cleanup_in_progress, update_rollback_failed, update_rollback_in_progress" - -instance ToText StackStatus where - toText = \case - SSCreateComplete -> "CREATE_COMPLETE" - SSCreateFailed -> "CREATE_FAILED" - SSCreateInProgress -> "CREATE_IN_PROGRESS" - SSDeleteComplete -> "DELETE_COMPLETE" - SSDeleteFailed -> "DELETE_FAILED" - SSDeleteInProgress -> "DELETE_IN_PROGRESS" - SSReviewInProgress -> "REVIEW_IN_PROGRESS" - SSRollbackComplete -> "ROLLBACK_COMPLETE" - SSRollbackFailed -> "ROLLBACK_FAILED" - SSRollbackInProgress -> "ROLLBACK_IN_PROGRESS" - SSUpdateComplete -> "UPDATE_COMPLETE" - SSUpdateCompleteCleanupInProgress -> "UPDATE_COMPLETE_CLEANUP_IN_PROGRESS" - SSUpdateInProgress -> "UPDATE_IN_PROGRESS" - SSUpdateRollbackComplete -> "UPDATE_ROLLBACK_COMPLETE" - SSUpdateRollbackCompleteCleanupInProgress -> "UPDATE_ROLLBACK_COMPLETE_CLEANUP_IN_PROGRESS" - SSUpdateRollbackFailed -> "UPDATE_ROLLBACK_FAILED" - SSUpdateRollbackInProgress -> "UPDATE_ROLLBACK_IN_PROGRESS" - -instance Hashable StackStatus -instance NFData StackStatus -instance ToByteString StackStatus -instance ToQuery StackStatus -instance ToHeader StackStatus - -instance FromXML StackStatus where - parseXML = parseXMLText "StackStatus" - -data TemplateStage - = Original - | Processed - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText TemplateStage where - parser = takeLowerText >>= \case - "original" -> pure Original - "processed" -> pure Processed - e -> fromTextError $ "Failure parsing TemplateStage from value: '" <> e - <> "'. Accepted values: original, processed" - -instance ToText TemplateStage where - toText = \case - Original -> "Original" - Processed -> "Processed" - -instance Hashable TemplateStage -instance NFData TemplateStage -instance ToByteString TemplateStage -instance ToQuery TemplateStage -instance ToHeader TemplateStage - -instance FromXML TemplateStage where - parseXML = parseXMLText "TemplateStage" diff --git a/gen/Network/AWS/CloudFormation/UpdateStack.hs b/gen/Network/AWS/CloudFormation/UpdateStack.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/UpdateStack.hs +++ /dev/null @@ -1,295 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.UpdateStack --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates a stack as specified in the template. After the call completes successfully, the stack update starts. You can check the status of the stack via the 'DescribeStacks' action. --- --- --- To get a copy of the template for an existing stack, you can use the 'GetTemplate' action. --- --- For more information about creating an update template, updating a stack, and monitoring the progress of the update, see . --- -module Network.AWS.CloudFormation.UpdateStack - ( - -- * Creating a Request - updateStack - , UpdateStack - -- * Request Lenses - , usUsePreviousTemplate - , usNotificationARNs - , usStackPolicyBody - , usStackPolicyDuringUpdateBody - , usStackPolicyDuringUpdateURL - , usParameters - , usStackPolicyURL - , usTemplateBody - , usTemplateURL - , usClientRequestToken - , usCapabilities - , usRollbackConfiguration - , usResourceTypes - , usTags - , usRoleARN - , usStackName - - -- * Destructuring the Response - , updateStackResponse - , UpdateStackResponse - -- * Response Lenses - , usrsStackId - , usrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for an 'UpdateStack' action. --- --- --- --- /See:/ 'updateStack' smart constructor. -data UpdateStack = UpdateStack' - { _usUsePreviousTemplate :: !(Maybe Bool) - , _usNotificationARNs :: !(Maybe [Text]) - , _usStackPolicyBody :: !(Maybe Text) - , _usStackPolicyDuringUpdateBody :: !(Maybe Text) - , _usStackPolicyDuringUpdateURL :: !(Maybe Text) - , _usParameters :: !(Maybe [Parameter]) - , _usStackPolicyURL :: !(Maybe Text) - , _usTemplateBody :: !(Maybe Text) - , _usTemplateURL :: !(Maybe Text) - , _usClientRequestToken :: !(Maybe Text) - , _usCapabilities :: !(Maybe [Capability]) - , _usRollbackConfiguration :: !(Maybe RollbackConfiguration) - , _usResourceTypes :: !(Maybe [Text]) - , _usTags :: !(Maybe [Tag]) - , _usRoleARN :: !(Maybe Text) - , _usStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateStack' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'usUsePreviousTemplate' - Reuse the existing template that is associated with the stack that you are updating. Conditional: You must specify only one of the following parameters: @TemplateBody@ , @TemplateURL@ , or set the @UsePreviousTemplate@ to @true@ . --- --- * 'usNotificationARNs' - Amazon Simple Notification Service topic Amazon Resource Names (ARNs) that AWS CloudFormation associates with the stack. Specify an empty list to remove all notification topics. --- --- * 'usStackPolicyBody' - Structure containing a new stack policy body. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. You might update the stack policy, for example, in order to protect a new resource that you created during a stack update. If you do not specify a stack policy, the current policy that is associated with the stack is unchanged. --- --- * 'usStackPolicyDuringUpdateBody' - Structure containing the temporary overriding stack policy body. You can specify either the @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ parameter, but not both. If you want to update protected resources, specify a temporary overriding stack policy during this update. If you do not specify a stack policy, the current policy that is associated with the stack will be used. --- --- * 'usStackPolicyDuringUpdateURL' - Location of a file containing the temporary overriding stack policy. The URL must point to a policy (max size: 16KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ parameter, but not both. If you want to update protected resources, specify a temporary overriding stack policy during this update. If you do not specify a stack policy, the current policy that is associated with the stack will be used. --- --- * 'usParameters' - A list of @Parameter@ structures that specify input parameters for the stack. For more information, see the data type. --- --- * 'usStackPolicyURL' - Location of a file containing the updated stack policy. The URL must point to a policy (max size: 16KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. You might update the stack policy, for example, in order to protect a new resource that you created during a stack update. If you do not specify a stack policy, the current policy that is associated with the stack is unchanged. --- --- * 'usTemplateBody' - Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. (For more information, go to in the AWS CloudFormation User Guide.) Conditional: You must specify only one of the following parameters: @TemplateBody@ , @TemplateURL@ , or set the @UsePreviousTemplate@ to @true@ . --- --- * 'usTemplateURL' - Location of file containing the template body. The URL must point to a template that is located in an Amazon S3 bucket. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @TemplateBody@ , @TemplateURL@ , or set the @UsePreviousTemplate@ to @true@ . --- --- * 'usClientRequestToken' - A unique identifier for this @UpdateStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to update a stack with the same name. You might retry @UpdateStack@ requests to ensure that AWS CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . --- --- * 'usCapabilities' - A list of values that you must specify before AWS CloudFormation can update certain stacks. Some stack templates might include resources that can affect permissions in your AWS account, for example, by creating new AWS Identity and Access Management (IAM) users. For those stacks, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ . The following resources require you to specify this parameter: , , , , , , and . If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify @CAPABILITY_NAMED_IAM@ . If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see . --- --- * 'usRollbackConfiguration' - The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. --- --- * 'usResourceTypes' - The template resource types that you have permissions to work with for this update stack action, such as @AWS::EC2::Instance@ , @AWS::EC2::*@ , or @Custom::MyCustomInstance@ . If the list of resource types doesn't include a resource that you're updating, the stack update fails. By default, AWS CloudFormation grants permissions to all resource types. AWS Identity and Access Management (IAM) uses this parameter for AWS CloudFormation-specific condition keys in IAM policies. For more information, see . --- --- * 'usTags' - Key-value pairs to associate with this stack. AWS CloudFormation also propagates these tags to supported resources in the stack. You can specify a maximum number of 50 tags. If you don't specify this parameter, AWS CloudFormation doesn't modify the stack's tags. If you specify an empty value, AWS CloudFormation removes all associated tags. --- --- * 'usRoleARN' - The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to update the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation always uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. --- --- * 'usStackName' - The name or unique stack ID of the stack to update. -updateStack - :: Text -- ^ 'usStackName' - -> UpdateStack -updateStack pStackName_ = - UpdateStack' - { _usUsePreviousTemplate = Nothing - , _usNotificationARNs = Nothing - , _usStackPolicyBody = Nothing - , _usStackPolicyDuringUpdateBody = Nothing - , _usStackPolicyDuringUpdateURL = Nothing - , _usParameters = Nothing - , _usStackPolicyURL = Nothing - , _usTemplateBody = Nothing - , _usTemplateURL = Nothing - , _usClientRequestToken = Nothing - , _usCapabilities = Nothing - , _usRollbackConfiguration = Nothing - , _usResourceTypes = Nothing - , _usTags = Nothing - , _usRoleARN = Nothing - , _usStackName = pStackName_ - } - - --- | Reuse the existing template that is associated with the stack that you are updating. Conditional: You must specify only one of the following parameters: @TemplateBody@ , @TemplateURL@ , or set the @UsePreviousTemplate@ to @true@ . -usUsePreviousTemplate :: Lens' UpdateStack (Maybe Bool) -usUsePreviousTemplate = lens _usUsePreviousTemplate (\ s a -> s{_usUsePreviousTemplate = a}) - --- | Amazon Simple Notification Service topic Amazon Resource Names (ARNs) that AWS CloudFormation associates with the stack. Specify an empty list to remove all notification topics. -usNotificationARNs :: Lens' UpdateStack [Text] -usNotificationARNs = lens _usNotificationARNs (\ s a -> s{_usNotificationARNs = a}) . _Default . _Coerce - --- | Structure containing a new stack policy body. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. You might update the stack policy, for example, in order to protect a new resource that you created during a stack update. If you do not specify a stack policy, the current policy that is associated with the stack is unchanged. -usStackPolicyBody :: Lens' UpdateStack (Maybe Text) -usStackPolicyBody = lens _usStackPolicyBody (\ s a -> s{_usStackPolicyBody = a}) - --- | Structure containing the temporary overriding stack policy body. You can specify either the @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ parameter, but not both. If you want to update protected resources, specify a temporary overriding stack policy during this update. If you do not specify a stack policy, the current policy that is associated with the stack will be used. -usStackPolicyDuringUpdateBody :: Lens' UpdateStack (Maybe Text) -usStackPolicyDuringUpdateBody = lens _usStackPolicyDuringUpdateBody (\ s a -> s{_usStackPolicyDuringUpdateBody = a}) - --- | Location of a file containing the temporary overriding stack policy. The URL must point to a policy (max size: 16KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyDuringUpdateBody@ or the @StackPolicyDuringUpdateURL@ parameter, but not both. If you want to update protected resources, specify a temporary overriding stack policy during this update. If you do not specify a stack policy, the current policy that is associated with the stack will be used. -usStackPolicyDuringUpdateURL :: Lens' UpdateStack (Maybe Text) -usStackPolicyDuringUpdateURL = lens _usStackPolicyDuringUpdateURL (\ s a -> s{_usStackPolicyDuringUpdateURL = a}) - --- | A list of @Parameter@ structures that specify input parameters for the stack. For more information, see the data type. -usParameters :: Lens' UpdateStack [Parameter] -usParameters = lens _usParameters (\ s a -> s{_usParameters = a}) . _Default . _Coerce - --- | Location of a file containing the updated stack policy. The URL must point to a policy (max size: 16KB) located in an S3 bucket in the same region as the stack. You can specify either the @StackPolicyBody@ or the @StackPolicyURL@ parameter, but not both. You might update the stack policy, for example, in order to protect a new resource that you created during a stack update. If you do not specify a stack policy, the current policy that is associated with the stack is unchanged. -usStackPolicyURL :: Lens' UpdateStack (Maybe Text) -usStackPolicyURL = lens _usStackPolicyURL (\ s a -> s{_usStackPolicyURL = a}) - --- | Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. (For more information, go to in the AWS CloudFormation User Guide.) Conditional: You must specify only one of the following parameters: @TemplateBody@ , @TemplateURL@ , or set the @UsePreviousTemplate@ to @true@ . -usTemplateBody :: Lens' UpdateStack (Maybe Text) -usTemplateBody = lens _usTemplateBody (\ s a -> s{_usTemplateBody = a}) - --- | Location of file containing the template body. The URL must point to a template that is located in an Amazon S3 bucket. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @TemplateBody@ , @TemplateURL@ , or set the @UsePreviousTemplate@ to @true@ . -usTemplateURL :: Lens' UpdateStack (Maybe Text) -usTemplateURL = lens _usTemplateURL (\ s a -> s{_usTemplateURL = a}) - --- | A unique identifier for this @UpdateStack@ request. Specify this token if you plan to retry requests so that AWS CloudFormation knows that you're not attempting to update a stack with the same name. You might retry @UpdateStack@ requests to ensure that AWS CloudFormation successfully received them. All events triggered by a given stack operation are assigned the same client request token, which you can use to track operations. For example, if you execute a @CreateStack@ operation with the token @token1@ , then all the @StackEvents@ generated by that operation will have @ClientRequestToken@ set as @token1@ . In the console, stack operations display the client request token on the Events tab. Stack operations that are initiated from the console use the token format /Console-StackOperation-ID/ , which helps you easily identify the stack operation . For example, if you create a stack using the console, each stack event would be assigned the same token in the following format: @Console-CreateStack-7f59c3cf-00d2-40c7-b2ff-e75db0987002@ . -usClientRequestToken :: Lens' UpdateStack (Maybe Text) -usClientRequestToken = lens _usClientRequestToken (\ s a -> s{_usClientRequestToken = a}) - --- | A list of values that you must specify before AWS CloudFormation can update certain stacks. Some stack templates might include resources that can affect permissions in your AWS account, for example, by creating new AWS Identity and Access Management (IAM) users. For those stacks, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are @CAPABILITY_IAM@ and @CAPABILITY_NAMED_IAM@ . The following resources require you to specify this parameter: , , , , , , and . If your stack template contains these resources, we recommend that you review all permissions associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify @CAPABILITY_NAMED_IAM@ . If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see . -usCapabilities :: Lens' UpdateStack [Capability] -usCapabilities = lens _usCapabilities (\ s a -> s{_usCapabilities = a}) . _Default . _Coerce - --- | The rollback triggers for AWS CloudFormation to monitor during stack creation and updating operations, and for the specified monitoring period afterwards. -usRollbackConfiguration :: Lens' UpdateStack (Maybe RollbackConfiguration) -usRollbackConfiguration = lens _usRollbackConfiguration (\ s a -> s{_usRollbackConfiguration = a}) - --- | The template resource types that you have permissions to work with for this update stack action, such as @AWS::EC2::Instance@ , @AWS::EC2::*@ , or @Custom::MyCustomInstance@ . If the list of resource types doesn't include a resource that you're updating, the stack update fails. By default, AWS CloudFormation grants permissions to all resource types. AWS Identity and Access Management (IAM) uses this parameter for AWS CloudFormation-specific condition keys in IAM policies. For more information, see . -usResourceTypes :: Lens' UpdateStack [Text] -usResourceTypes = lens _usResourceTypes (\ s a -> s{_usResourceTypes = a}) . _Default . _Coerce - --- | Key-value pairs to associate with this stack. AWS CloudFormation also propagates these tags to supported resources in the stack. You can specify a maximum number of 50 tags. If you don't specify this parameter, AWS CloudFormation doesn't modify the stack's tags. If you specify an empty value, AWS CloudFormation removes all associated tags. -usTags :: Lens' UpdateStack [Tag] -usTags = lens _usTags (\ s a -> s{_usTags = a}) . _Default . _Coerce - --- | The Amazon Resource Name (ARN) of an AWS Identity and Access Management (IAM) role that AWS CloudFormation assumes to update the stack. AWS CloudFormation uses the role's credentials to make calls on your behalf. AWS CloudFormation always uses this role for all future operations on the stack. As long as users have permission to operate on the stack, AWS CloudFormation uses this role even if the users don't have permission to pass it. Ensure that the role grants least privilege. If you don't specify a value, AWS CloudFormation uses the role that was previously associated with the stack. If no role is available, AWS CloudFormation uses a temporary session that is generated from your user credentials. -usRoleARN :: Lens' UpdateStack (Maybe Text) -usRoleARN = lens _usRoleARN (\ s a -> s{_usRoleARN = a}) - --- | The name or unique stack ID of the stack to update. -usStackName :: Lens' UpdateStack Text -usStackName = lens _usStackName (\ s a -> s{_usStackName = a}) - -instance AWSRequest UpdateStack where - type Rs UpdateStack = UpdateStackResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "UpdateStackResult" - (\ s h x -> - UpdateStackResponse' <$> - (x .@? "StackId") <*> (pure (fromEnum s))) - -instance Hashable UpdateStack where - -instance NFData UpdateStack where - -instance ToHeaders UpdateStack where - toHeaders = const mempty - -instance ToPath UpdateStack where - toPath = const "/" - -instance ToQuery UpdateStack where - toQuery UpdateStack'{..} - = mconcat - ["Action" =: ("UpdateStack" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "UsePreviousTemplate" =: _usUsePreviousTemplate, - "NotificationARNs" =: - toQuery - (toQueryList "member" <$> _usNotificationARNs), - "StackPolicyBody" =: _usStackPolicyBody, - "StackPolicyDuringUpdateBody" =: - _usStackPolicyDuringUpdateBody, - "StackPolicyDuringUpdateURL" =: - _usStackPolicyDuringUpdateURL, - "Parameters" =: - toQuery (toQueryList "member" <$> _usParameters), - "StackPolicyURL" =: _usStackPolicyURL, - "TemplateBody" =: _usTemplateBody, - "TemplateURL" =: _usTemplateURL, - "ClientRequestToken" =: _usClientRequestToken, - "Capabilities" =: - toQuery (toQueryList "member" <$> _usCapabilities), - "RollbackConfiguration" =: _usRollbackConfiguration, - "ResourceTypes" =: - toQuery (toQueryList "member" <$> _usResourceTypes), - "Tags" =: toQuery (toQueryList "member" <$> _usTags), - "RoleARN" =: _usRoleARN, "StackName" =: _usStackName] - --- | The output for an 'UpdateStack' action. --- --- --- --- /See:/ 'updateStackResponse' smart constructor. -data UpdateStackResponse = UpdateStackResponse' - { _usrsStackId :: !(Maybe Text) - , _usrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateStackResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'usrsStackId' - Unique identifier of the stack. --- --- * 'usrsResponseStatus' - -- | The response status code. -updateStackResponse - :: Int -- ^ 'usrsResponseStatus' - -> UpdateStackResponse -updateStackResponse pResponseStatus_ = - UpdateStackResponse' - {_usrsStackId = Nothing, _usrsResponseStatus = pResponseStatus_} - - --- | Unique identifier of the stack. -usrsStackId :: Lens' UpdateStackResponse (Maybe Text) -usrsStackId = lens _usrsStackId (\ s a -> s{_usrsStackId = a}) - --- | -- | The response status code. -usrsResponseStatus :: Lens' UpdateStackResponse Int -usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a}) - -instance NFData UpdateStackResponse where diff --git a/gen/Network/AWS/CloudFormation/UpdateStackInstances.hs b/gen/Network/AWS/CloudFormation/UpdateStackInstances.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/UpdateStackInstances.hs +++ /dev/null @@ -1,186 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.UpdateStackInstances --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates the parameter values for stack instances for the specified accounts, within the specified regions. A stack instance refers to a stack in a specific account and region. --- --- --- You can only update stack instances in regions and accounts where they already exist; to create additional stack instances, use . --- --- During stack set updates, any parameters overridden for a stack instance are not updated, but retain their overridden value. --- --- You can only update the parameter /values/ that are specified in the stack set; to add or delete a parameter itself, use to update the stack set template. If you add a parameter to a template, before you can override the parameter value specified in the stack set you must first use to update all stack instances with the updated template and parameter value specified in the stack set. Once a stack instance has been updated with the new parameter, you can then override the parameter value using @UpdateStackInstances@ . --- -module Network.AWS.CloudFormation.UpdateStackInstances - ( - -- * Creating a Request - updateStackInstances - , UpdateStackInstances - -- * Request Lenses - , usiOperationPreferences - , usiOperationId - , usiParameterOverrides - , usiStackSetName - , usiAccounts - , usiRegions - - -- * Destructuring the Response - , updateStackInstancesResponse - , UpdateStackInstancesResponse - -- * Response Lenses - , usirsOperationId - , usirsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'updateStackInstances' smart constructor. -data UpdateStackInstances = UpdateStackInstances' - { _usiOperationPreferences :: !(Maybe StackSetOperationPreferences) - , _usiOperationId :: !(Maybe Text) - , _usiParameterOverrides :: !(Maybe [Parameter]) - , _usiStackSetName :: !Text - , _usiAccounts :: ![Text] - , _usiRegions :: ![Text] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateStackInstances' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'usiOperationPreferences' - Preferences for how AWS CloudFormation performs this stack set operation. --- --- * 'usiOperationId' - The unique identifier for this stack set operation. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You might retry stack set operation requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. --- --- * 'usiParameterOverrides' - A list of input parameters whose values you want to update for the specified stack instances. Any overridden parameter values will be applied to all stack instances in the specified accounts and regions. When specifying parameters and their values, be aware of how AWS CloudFormation sets parameter values during stack instance update operations: * To override the current value for a parameter, include the parameter and specify its value. * To leave a parameter set to its present value, you can do one of the following: * Do not include the parameter in the list. * Include the parameter and specify @UsePreviousValue@ as @true@ . (You cannot specify both a value and set @UsePreviousValue@ to @true@ .) * To set all overridden parameter back to the values specified in the stack set, specify a parameter list but do not include any parameters. * To leave all parameters set to their present values, do not specify this property at all. During stack set updates, any parameter values overridden for a stack instance are not updated, but retain their overridden value. You can only override the parameter /values/ that are specified in the stack set; to add or delete a parameter itself, use @UpdateStackSet@ to update the stack set template. If you add a parameter to a template, before you can override the parameter value specified in the stack set you must first use to update all stack instances with the updated template and parameter value specified in the stack set. Once a stack instance has been updated with the new parameter, you can then override the parameter value using @UpdateStackInstances@ . --- --- * 'usiStackSetName' - The name or unique ID of the stack set associated with the stack instances. --- --- * 'usiAccounts' - The names of one or more AWS accounts for which you want to update parameter values for stack instances. The overridden parameter values will be applied to all stack instances in the specified accounts and regions. --- --- * 'usiRegions' - The names of one or more regions in which you want to update parameter values for stack instances. The overridden parameter values will be applied to all stack instances in the specified accounts and regions. -updateStackInstances - :: Text -- ^ 'usiStackSetName' - -> UpdateStackInstances -updateStackInstances pStackSetName_ = - UpdateStackInstances' - { _usiOperationPreferences = Nothing - , _usiOperationId = Nothing - , _usiParameterOverrides = Nothing - , _usiStackSetName = pStackSetName_ - , _usiAccounts = mempty - , _usiRegions = mempty - } - - --- | Preferences for how AWS CloudFormation performs this stack set operation. -usiOperationPreferences :: Lens' UpdateStackInstances (Maybe StackSetOperationPreferences) -usiOperationPreferences = lens _usiOperationPreferences (\ s a -> s{_usiOperationPreferences = a}) - --- | The unique identifier for this stack set operation. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You might retry stack set operation requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, the SDK generates one automatically. -usiOperationId :: Lens' UpdateStackInstances (Maybe Text) -usiOperationId = lens _usiOperationId (\ s a -> s{_usiOperationId = a}) - --- | A list of input parameters whose values you want to update for the specified stack instances. Any overridden parameter values will be applied to all stack instances in the specified accounts and regions. When specifying parameters and their values, be aware of how AWS CloudFormation sets parameter values during stack instance update operations: * To override the current value for a parameter, include the parameter and specify its value. * To leave a parameter set to its present value, you can do one of the following: * Do not include the parameter in the list. * Include the parameter and specify @UsePreviousValue@ as @true@ . (You cannot specify both a value and set @UsePreviousValue@ to @true@ .) * To set all overridden parameter back to the values specified in the stack set, specify a parameter list but do not include any parameters. * To leave all parameters set to their present values, do not specify this property at all. During stack set updates, any parameter values overridden for a stack instance are not updated, but retain their overridden value. You can only override the parameter /values/ that are specified in the stack set; to add or delete a parameter itself, use @UpdateStackSet@ to update the stack set template. If you add a parameter to a template, before you can override the parameter value specified in the stack set you must first use to update all stack instances with the updated template and parameter value specified in the stack set. Once a stack instance has been updated with the new parameter, you can then override the parameter value using @UpdateStackInstances@ . -usiParameterOverrides :: Lens' UpdateStackInstances [Parameter] -usiParameterOverrides = lens _usiParameterOverrides (\ s a -> s{_usiParameterOverrides = a}) . _Default . _Coerce - --- | The name or unique ID of the stack set associated with the stack instances. -usiStackSetName :: Lens' UpdateStackInstances Text -usiStackSetName = lens _usiStackSetName (\ s a -> s{_usiStackSetName = a}) - --- | The names of one or more AWS accounts for which you want to update parameter values for stack instances. The overridden parameter values will be applied to all stack instances in the specified accounts and regions. -usiAccounts :: Lens' UpdateStackInstances [Text] -usiAccounts = lens _usiAccounts (\ s a -> s{_usiAccounts = a}) . _Coerce - --- | The names of one or more regions in which you want to update parameter values for stack instances. The overridden parameter values will be applied to all stack instances in the specified accounts and regions. -usiRegions :: Lens' UpdateStackInstances [Text] -usiRegions = lens _usiRegions (\ s a -> s{_usiRegions = a}) . _Coerce - -instance AWSRequest UpdateStackInstances where - type Rs UpdateStackInstances = - UpdateStackInstancesResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "UpdateStackInstancesResult" - (\ s h x -> - UpdateStackInstancesResponse' <$> - (x .@? "OperationId") <*> (pure (fromEnum s))) - -instance Hashable UpdateStackInstances where - -instance NFData UpdateStackInstances where - -instance ToHeaders UpdateStackInstances where - toHeaders = const mempty - -instance ToPath UpdateStackInstances where - toPath = const "/" - -instance ToQuery UpdateStackInstances where - toQuery UpdateStackInstances'{..} - = mconcat - ["Action" =: ("UpdateStackInstances" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "OperationPreferences" =: _usiOperationPreferences, - "OperationId" =: _usiOperationId, - "ParameterOverrides" =: - toQuery - (toQueryList "member" <$> _usiParameterOverrides), - "StackSetName" =: _usiStackSetName, - "Accounts" =: toQueryList "member" _usiAccounts, - "Regions" =: toQueryList "member" _usiRegions] - --- | /See:/ 'updateStackInstancesResponse' smart constructor. -data UpdateStackInstancesResponse = UpdateStackInstancesResponse' - { _usirsOperationId :: !(Maybe Text) - , _usirsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateStackInstancesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'usirsOperationId' - The unique identifier for this stack set operation. --- --- * 'usirsResponseStatus' - -- | The response status code. -updateStackInstancesResponse - :: Int -- ^ 'usirsResponseStatus' - -> UpdateStackInstancesResponse -updateStackInstancesResponse pResponseStatus_ = - UpdateStackInstancesResponse' - {_usirsOperationId = Nothing, _usirsResponseStatus = pResponseStatus_} - - --- | The unique identifier for this stack set operation. -usirsOperationId :: Lens' UpdateStackInstancesResponse (Maybe Text) -usirsOperationId = lens _usirsOperationId (\ s a -> s{_usirsOperationId = a}) - --- | -- | The response status code. -usirsResponseStatus :: Lens' UpdateStackInstancesResponse Int -usirsResponseStatus = lens _usirsResponseStatus (\ s a -> s{_usirsResponseStatus = a}) - -instance NFData UpdateStackInstancesResponse where diff --git a/gen/Network/AWS/CloudFormation/UpdateStackSet.hs b/gen/Network/AWS/CloudFormation/UpdateStackSet.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/UpdateStackSet.hs +++ /dev/null @@ -1,232 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.UpdateStackSet --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates the stack set and /all/ associated stack instances. --- --- --- Even if the stack set operation created by updating the stack set fails (completely or partially, below or above a specified failure tolerance), the stack set is updated with your changes. Subsequent 'CreateStackInstances' calls on the specified stack set use the updated stack set. --- -module Network.AWS.CloudFormation.UpdateStackSet - ( - -- * Creating a Request - updateStackSet - , UpdateStackSet - -- * Request Lenses - , ussAdministrationRoleARN - , ussUsePreviousTemplate - , ussParameters - , ussOperationPreferences - , ussOperationId - , ussTemplateBody - , ussTemplateURL - , ussDescription - , ussCapabilities - , ussTags - , ussStackSetName - - -- * Destructuring the Response - , updateStackSetResponse - , UpdateStackSetResponse - -- * Response Lenses - , ussrsOperationId - , ussrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'updateStackSet' smart constructor. -data UpdateStackSet = UpdateStackSet' - { _ussAdministrationRoleARN :: !(Maybe Text) - , _ussUsePreviousTemplate :: !(Maybe Bool) - , _ussParameters :: !(Maybe [Parameter]) - , _ussOperationPreferences :: !(Maybe StackSetOperationPreferences) - , _ussOperationId :: !(Maybe Text) - , _ussTemplateBody :: !(Maybe Text) - , _ussTemplateURL :: !(Maybe Text) - , _ussDescription :: !(Maybe Text) - , _ussCapabilities :: !(Maybe [Capability]) - , _ussTags :: !(Maybe [Tag]) - , _ussStackSetName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateStackSet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ussAdministrationRoleARN' - The Amazon Resource Number (ARN) of the IAM role to use to update this stack set. Specify an IAM role only if you are using customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . If you specify a customized administrator role, AWS CloudFormation uses that role to update the stack. If you do not specify a customized administrator role, AWS CloudFormation performs the update using the role previously associated with the stack set, so long as you have permissions to perform operations on the stack set. --- --- * 'ussUsePreviousTemplate' - Use the existing template that's associated with the stack set that you're updating. Conditional: You must specify only one of the following parameters: @TemplateBody@ or @TemplateURL@ —or set @UsePreviousTemplate@ to true. --- --- * 'ussParameters' - A list of input parameters for the stack set template. --- --- * 'ussOperationPreferences' - Preferences for how AWS CloudFormation performs this stack set operation. --- --- * 'ussOperationId' - The unique ID for this stack set operation. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You might retry stack set operation requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, AWS CloudFormation generates one automatically. Repeating this stack set operation with a new operation ID retries all stack instances whose status is @OUTDATED@ . --- --- * 'ussTemplateBody' - The structure that contains the template body, with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @TemplateBody@ or @TemplateURL@ —or set @UsePreviousTemplate@ to true. --- --- * 'ussTemplateURL' - The location of the file that contains the template body. The URL must point to a template (maximum size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @TemplateBody@ or @TemplateURL@ —or set @UsePreviousTemplate@ to true. --- --- * 'ussDescription' - A brief description of updates that you are making. --- --- * 'ussCapabilities' - A list of values that you must specify before AWS CloudFormation can create certain stack sets. Some stack set templates might include resources that can affect permissions in your AWS account—for example, by creating new AWS Identity and Access Management (IAM) users. For those stack sets, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are CAPABILITY_IAM and CAPABILITY_NAMED_IAM. The following resources require you to specify this parameter: * AWS::IAM::AccessKey * AWS::IAM::Group * AWS::IAM::InstanceProfile * AWS::IAM::Policy * AWS::IAM::Role * AWS::IAM::User * AWS::IAM::UserToGroupAddition If your stack template contains these resources, we recommend that you review all permissions that are associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see --- --- * 'ussTags' - The key-value pairs to associate with this stack set and the stacks created from it. AWS CloudFormation also propagates these tags to supported resources that are created in the stacks. You can specify a maximum number of 50 tags. If you specify tags for this parameter, those tags replace any list of tags that are currently associated with this stack set. This means: * If you don't specify this parameter, AWS CloudFormation doesn't modify the stack's tags. * If you specify /any/ tags using this parameter, you must specify /all/ the tags that you want associated with this stack set, even tags you've specifed before (for example, when creating the stack set or during a previous update of the stack set.). Any tags that you don't include in the updated list of tags are removed from the stack set, and therefore from the stacks and resources as well. * If you specify an empty value, AWS CloudFormation removes all currently associated tags. If you specify new tags as part of an @UpdateStackSet@ action, AWS CloudFormation checks to see if you have the required IAM permission to tag resources. If you omit tags that are currently associated with the stack set from the list of tags you specify, AWS CloudFormation assumes that you want to remove those tags from the stack set, and checks to see if you have permission to untag resources. If you don't have the necessary permission(s), the entire @UpdateStackSet@ action fails with an @access denied@ error, and the stack set is not updated. --- --- * 'ussStackSetName' - The name or unique ID of the stack set that you want to update. -updateStackSet - :: Text -- ^ 'ussStackSetName' - -> UpdateStackSet -updateStackSet pStackSetName_ = - UpdateStackSet' - { _ussAdministrationRoleARN = Nothing - , _ussUsePreviousTemplate = Nothing - , _ussParameters = Nothing - , _ussOperationPreferences = Nothing - , _ussOperationId = Nothing - , _ussTemplateBody = Nothing - , _ussTemplateURL = Nothing - , _ussDescription = Nothing - , _ussCapabilities = Nothing - , _ussTags = Nothing - , _ussStackSetName = pStackSetName_ - } - - --- | The Amazon Resource Number (ARN) of the IAM role to use to update this stack set. Specify an IAM role only if you are using customized administrator roles to control which users or groups can manage specific stack sets within the same administrator account. For more information, see in the /AWS CloudFormation User Guide/ . If you specify a customized administrator role, AWS CloudFormation uses that role to update the stack. If you do not specify a customized administrator role, AWS CloudFormation performs the update using the role previously associated with the stack set, so long as you have permissions to perform operations on the stack set. -ussAdministrationRoleARN :: Lens' UpdateStackSet (Maybe Text) -ussAdministrationRoleARN = lens _ussAdministrationRoleARN (\ s a -> s{_ussAdministrationRoleARN = a}) - --- | Use the existing template that's associated with the stack set that you're updating. Conditional: You must specify only one of the following parameters: @TemplateBody@ or @TemplateURL@ —or set @UsePreviousTemplate@ to true. -ussUsePreviousTemplate :: Lens' UpdateStackSet (Maybe Bool) -ussUsePreviousTemplate = lens _ussUsePreviousTemplate (\ s a -> s{_ussUsePreviousTemplate = a}) - --- | A list of input parameters for the stack set template. -ussParameters :: Lens' UpdateStackSet [Parameter] -ussParameters = lens _ussParameters (\ s a -> s{_ussParameters = a}) . _Default . _Coerce - --- | Preferences for how AWS CloudFormation performs this stack set operation. -ussOperationPreferences :: Lens' UpdateStackSet (Maybe StackSetOperationPreferences) -ussOperationPreferences = lens _ussOperationPreferences (\ s a -> s{_ussOperationPreferences = a}) - --- | The unique ID for this stack set operation. The operation ID also functions as an idempotency token, to ensure that AWS CloudFormation performs the stack set operation only once, even if you retry the request multiple times. You might retry stack set operation requests to ensure that AWS CloudFormation successfully received them. If you don't specify an operation ID, AWS CloudFormation generates one automatically. Repeating this stack set operation with a new operation ID retries all stack instances whose status is @OUTDATED@ . -ussOperationId :: Lens' UpdateStackSet (Maybe Text) -ussOperationId = lens _ussOperationId (\ s a -> s{_ussOperationId = a}) - --- | The structure that contains the template body, with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @TemplateBody@ or @TemplateURL@ —or set @UsePreviousTemplate@ to true. -ussTemplateBody :: Lens' UpdateStackSet (Maybe Text) -ussTemplateBody = lens _ussTemplateBody (\ s a -> s{_ussTemplateBody = a}) - --- | The location of the file that contains the template body. The URL must point to a template (maximum size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information, see in the AWS CloudFormation User Guide. Conditional: You must specify only one of the following parameters: @TemplateBody@ or @TemplateURL@ —or set @UsePreviousTemplate@ to true. -ussTemplateURL :: Lens' UpdateStackSet (Maybe Text) -ussTemplateURL = lens _ussTemplateURL (\ s a -> s{_ussTemplateURL = a}) - --- | A brief description of updates that you are making. -ussDescription :: Lens' UpdateStackSet (Maybe Text) -ussDescription = lens _ussDescription (\ s a -> s{_ussDescription = a}) - --- | A list of values that you must specify before AWS CloudFormation can create certain stack sets. Some stack set templates might include resources that can affect permissions in your AWS account—for example, by creating new AWS Identity and Access Management (IAM) users. For those stack sets, you must explicitly acknowledge their capabilities by specifying this parameter. The only valid values are CAPABILITY_IAM and CAPABILITY_NAMED_IAM. The following resources require you to specify this parameter: * AWS::IAM::AccessKey * AWS::IAM::Group * AWS::IAM::InstanceProfile * AWS::IAM::Policy * AWS::IAM::Role * AWS::IAM::User * AWS::IAM::UserToGroupAddition If your stack template contains these resources, we recommend that you review all permissions that are associated with them and edit their permissions if necessary. If you have IAM resources, you can specify either capability. If you have IAM resources with custom names, you must specify CAPABILITY_NAMED_IAM. If you don't specify this parameter, this action returns an @InsufficientCapabilities@ error. For more information, see -ussCapabilities :: Lens' UpdateStackSet [Capability] -ussCapabilities = lens _ussCapabilities (\ s a -> s{_ussCapabilities = a}) . _Default . _Coerce - --- | The key-value pairs to associate with this stack set and the stacks created from it. AWS CloudFormation also propagates these tags to supported resources that are created in the stacks. You can specify a maximum number of 50 tags. If you specify tags for this parameter, those tags replace any list of tags that are currently associated with this stack set. This means: * If you don't specify this parameter, AWS CloudFormation doesn't modify the stack's tags. * If you specify /any/ tags using this parameter, you must specify /all/ the tags that you want associated with this stack set, even tags you've specifed before (for example, when creating the stack set or during a previous update of the stack set.). Any tags that you don't include in the updated list of tags are removed from the stack set, and therefore from the stacks and resources as well. * If you specify an empty value, AWS CloudFormation removes all currently associated tags. If you specify new tags as part of an @UpdateStackSet@ action, AWS CloudFormation checks to see if you have the required IAM permission to tag resources. If you omit tags that are currently associated with the stack set from the list of tags you specify, AWS CloudFormation assumes that you want to remove those tags from the stack set, and checks to see if you have permission to untag resources. If you don't have the necessary permission(s), the entire @UpdateStackSet@ action fails with an @access denied@ error, and the stack set is not updated. -ussTags :: Lens' UpdateStackSet [Tag] -ussTags = lens _ussTags (\ s a -> s{_ussTags = a}) . _Default . _Coerce - --- | The name or unique ID of the stack set that you want to update. -ussStackSetName :: Lens' UpdateStackSet Text -ussStackSetName = lens _ussStackSetName (\ s a -> s{_ussStackSetName = a}) - -instance AWSRequest UpdateStackSet where - type Rs UpdateStackSet = UpdateStackSetResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "UpdateStackSetResult" - (\ s h x -> - UpdateStackSetResponse' <$> - (x .@? "OperationId") <*> (pure (fromEnum s))) - -instance Hashable UpdateStackSet where - -instance NFData UpdateStackSet where - -instance ToHeaders UpdateStackSet where - toHeaders = const mempty - -instance ToPath UpdateStackSet where - toPath = const "/" - -instance ToQuery UpdateStackSet where - toQuery UpdateStackSet'{..} - = mconcat - ["Action" =: ("UpdateStackSet" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "AdministrationRoleARN" =: _ussAdministrationRoleARN, - "UsePreviousTemplate" =: _ussUsePreviousTemplate, - "Parameters" =: - toQuery (toQueryList "member" <$> _ussParameters), - "OperationPreferences" =: _ussOperationPreferences, - "OperationId" =: _ussOperationId, - "TemplateBody" =: _ussTemplateBody, - "TemplateURL" =: _ussTemplateURL, - "Description" =: _ussDescription, - "Capabilities" =: - toQuery (toQueryList "member" <$> _ussCapabilities), - "Tags" =: - toQuery (toQueryList "member" <$> _ussTags), - "StackSetName" =: _ussStackSetName] - --- | /See:/ 'updateStackSetResponse' smart constructor. -data UpdateStackSetResponse = UpdateStackSetResponse' - { _ussrsOperationId :: !(Maybe Text) - , _ussrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateStackSetResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ussrsOperationId' - The unique ID for this stack set operation. --- --- * 'ussrsResponseStatus' - -- | The response status code. -updateStackSetResponse - :: Int -- ^ 'ussrsResponseStatus' - -> UpdateStackSetResponse -updateStackSetResponse pResponseStatus_ = - UpdateStackSetResponse' - {_ussrsOperationId = Nothing, _ussrsResponseStatus = pResponseStatus_} - - --- | The unique ID for this stack set operation. -ussrsOperationId :: Lens' UpdateStackSetResponse (Maybe Text) -ussrsOperationId = lens _ussrsOperationId (\ s a -> s{_ussrsOperationId = a}) - --- | -- | The response status code. -ussrsResponseStatus :: Lens' UpdateStackSetResponse Int -ussrsResponseStatus = lens _ussrsResponseStatus (\ s a -> s{_ussrsResponseStatus = a}) - -instance NFData UpdateStackSetResponse where diff --git a/gen/Network/AWS/CloudFormation/UpdateTerminationProtection.hs b/gen/Network/AWS/CloudFormation/UpdateTerminationProtection.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/UpdateTerminationProtection.hs +++ /dev/null @@ -1,145 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.UpdateTerminationProtection --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates termination protection for the specified stack. If a user attempts to delete a stack with termination protection enabled, the operation fails and the stack remains unchanged. For more information, see in the /AWS CloudFormation User Guide/ . --- --- --- For , termination protection is set on the root stack and cannot be changed directly on the nested stack. --- -module Network.AWS.CloudFormation.UpdateTerminationProtection - ( - -- * Creating a Request - updateTerminationProtection - , UpdateTerminationProtection - -- * Request Lenses - , utpEnableTerminationProtection - , utpStackName - - -- * Destructuring the Response - , updateTerminationProtectionResponse - , UpdateTerminationProtectionResponse - -- * Response Lenses - , utprsStackId - , utprsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | /See:/ 'updateTerminationProtection' smart constructor. -data UpdateTerminationProtection = UpdateTerminationProtection' - { _utpEnableTerminationProtection :: !Bool - , _utpStackName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateTerminationProtection' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'utpEnableTerminationProtection' - Whether to enable termination protection on the specified stack. --- --- * 'utpStackName' - The name or unique ID of the stack for which you want to set termination protection. -updateTerminationProtection - :: Bool -- ^ 'utpEnableTerminationProtection' - -> Text -- ^ 'utpStackName' - -> UpdateTerminationProtection -updateTerminationProtection pEnableTerminationProtection_ pStackName_ = - UpdateTerminationProtection' - { _utpEnableTerminationProtection = pEnableTerminationProtection_ - , _utpStackName = pStackName_ - } - - --- | Whether to enable termination protection on the specified stack. -utpEnableTerminationProtection :: Lens' UpdateTerminationProtection Bool -utpEnableTerminationProtection = lens _utpEnableTerminationProtection (\ s a -> s{_utpEnableTerminationProtection = a}) - --- | The name or unique ID of the stack for which you want to set termination protection. -utpStackName :: Lens' UpdateTerminationProtection Text -utpStackName = lens _utpStackName (\ s a -> s{_utpStackName = a}) - -instance AWSRequest UpdateTerminationProtection where - type Rs UpdateTerminationProtection = - UpdateTerminationProtectionResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper - "UpdateTerminationProtectionResult" - (\ s h x -> - UpdateTerminationProtectionResponse' <$> - (x .@? "StackId") <*> (pure (fromEnum s))) - -instance Hashable UpdateTerminationProtection where - -instance NFData UpdateTerminationProtection where - -instance ToHeaders UpdateTerminationProtection where - toHeaders = const mempty - -instance ToPath UpdateTerminationProtection where - toPath = const "/" - -instance ToQuery UpdateTerminationProtection where - toQuery UpdateTerminationProtection'{..} - = mconcat - ["Action" =: - ("UpdateTerminationProtection" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "EnableTerminationProtection" =: - _utpEnableTerminationProtection, - "StackName" =: _utpStackName] - --- | /See:/ 'updateTerminationProtectionResponse' smart constructor. -data UpdateTerminationProtectionResponse = UpdateTerminationProtectionResponse' - { _utprsStackId :: !(Maybe Text) - , _utprsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UpdateTerminationProtectionResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'utprsStackId' - The unique ID of the stack. --- --- * 'utprsResponseStatus' - -- | The response status code. -updateTerminationProtectionResponse - :: Int -- ^ 'utprsResponseStatus' - -> UpdateTerminationProtectionResponse -updateTerminationProtectionResponse pResponseStatus_ = - UpdateTerminationProtectionResponse' - {_utprsStackId = Nothing, _utprsResponseStatus = pResponseStatus_} - - --- | The unique ID of the stack. -utprsStackId :: Lens' UpdateTerminationProtectionResponse (Maybe Text) -utprsStackId = lens _utprsStackId (\ s a -> s{_utprsStackId = a}) - --- | -- | The response status code. -utprsResponseStatus :: Lens' UpdateTerminationProtectionResponse Int -utprsResponseStatus = lens _utprsResponseStatus (\ s a -> s{_utprsResponseStatus = a}) - -instance NFData UpdateTerminationProtectionResponse - where diff --git a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs b/gen/Network/AWS/CloudFormation/ValidateTemplate.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs +++ /dev/null @@ -1,189 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-matches #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.ValidateTemplate --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Validates a specified template. AWS CloudFormation first checks if the template is valid JSON. If it isn't, AWS CloudFormation checks if the template is valid YAML. If both these checks fail, AWS CloudFormation returns a template validation error. --- --- -module Network.AWS.CloudFormation.ValidateTemplate - ( - -- * Creating a Request - validateTemplate - , ValidateTemplate - -- * Request Lenses - , vtTemplateBody - , vtTemplateURL - - -- * Destructuring the Response - , validateTemplateResponse - , ValidateTemplateResponse - -- * Response Lenses - , vtrsDeclaredTransforms - , vtrsCapabilitiesReason - , vtrsParameters - , vtrsDescription - , vtrsCapabilities - , vtrsResponseStatus - ) where - -import Network.AWS.CloudFormation.Types -import Network.AWS.CloudFormation.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response - --- | The input for 'ValidateTemplate' action. --- --- --- --- /See:/ 'validateTemplate' smart constructor. -data ValidateTemplate = ValidateTemplate' - { _vtTemplateBody :: !(Maybe Text) - , _vtTemplateURL :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ValidateTemplate' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vtTemplateBody' - Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must pass @TemplateURL@ or @TemplateBody@ . If both are passed, only @TemplateBody@ is used. --- --- * 'vtTemplateURL' - Location of file containing the template body. The URL must point to a template (max size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must pass @TemplateURL@ or @TemplateBody@ . If both are passed, only @TemplateBody@ is used. -validateTemplate - :: ValidateTemplate -validateTemplate = - ValidateTemplate' {_vtTemplateBody = Nothing, _vtTemplateURL = Nothing} - - --- | Structure containing the template body with a minimum length of 1 byte and a maximum length of 51,200 bytes. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must pass @TemplateURL@ or @TemplateBody@ . If both are passed, only @TemplateBody@ is used. -vtTemplateBody :: Lens' ValidateTemplate (Maybe Text) -vtTemplateBody = lens _vtTemplateBody (\ s a -> s{_vtTemplateBody = a}) - --- | Location of file containing the template body. The URL must point to a template (max size: 460,800 bytes) that is located in an Amazon S3 bucket. For more information, go to in the AWS CloudFormation User Guide. Conditional: You must pass @TemplateURL@ or @TemplateBody@ . If both are passed, only @TemplateBody@ is used. -vtTemplateURL :: Lens' ValidateTemplate (Maybe Text) -vtTemplateURL = lens _vtTemplateURL (\ s a -> s{_vtTemplateURL = a}) - -instance AWSRequest ValidateTemplate where - type Rs ValidateTemplate = ValidateTemplateResponse - request = postQuery cloudFormation - response - = receiveXMLWrapper "ValidateTemplateResult" - (\ s h x -> - ValidateTemplateResponse' <$> - (x .@? "DeclaredTransforms" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "CapabilitiesReason") - <*> - (x .@? "Parameters" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "Description") - <*> - (x .@? "Capabilities" .!@ mempty >>= - may (parseXMLList "member")) - <*> (pure (fromEnum s))) - -instance Hashable ValidateTemplate where - -instance NFData ValidateTemplate where - -instance ToHeaders ValidateTemplate where - toHeaders = const mempty - -instance ToPath ValidateTemplate where - toPath = const "/" - -instance ToQuery ValidateTemplate where - toQuery ValidateTemplate'{..} - = mconcat - ["Action" =: ("ValidateTemplate" :: ByteString), - "Version" =: ("2010-05-15" :: ByteString), - "TemplateBody" =: _vtTemplateBody, - "TemplateURL" =: _vtTemplateURL] - --- | The output for 'ValidateTemplate' action. --- --- --- --- /See:/ 'validateTemplateResponse' smart constructor. -data ValidateTemplateResponse = ValidateTemplateResponse' - { _vtrsDeclaredTransforms :: !(Maybe [Text]) - , _vtrsCapabilitiesReason :: !(Maybe Text) - , _vtrsParameters :: !(Maybe [TemplateParameter]) - , _vtrsDescription :: !(Maybe Text) - , _vtrsCapabilities :: !(Maybe [Capability]) - , _vtrsResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ValidateTemplateResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vtrsDeclaredTransforms' - A list of the transforms that are declared in the template. --- --- * 'vtrsCapabilitiesReason' - The list of resources that generated the values in the @Capabilities@ response element. --- --- * 'vtrsParameters' - A list of @TemplateParameter@ structures. --- --- * 'vtrsDescription' - The description found within the template. --- --- * 'vtrsCapabilities' - The capabilities found within the template. If your template contains IAM resources, you must specify the CAPABILITY_IAM or CAPABILITY_NAMED_IAM value for this parameter when you use the 'CreateStack' or 'UpdateStack' actions with your template; otherwise, those actions return an InsufficientCapabilities error. For more information, see . --- --- * 'vtrsResponseStatus' - -- | The response status code. -validateTemplateResponse - :: Int -- ^ 'vtrsResponseStatus' - -> ValidateTemplateResponse -validateTemplateResponse pResponseStatus_ = - ValidateTemplateResponse' - { _vtrsDeclaredTransforms = Nothing - , _vtrsCapabilitiesReason = Nothing - , _vtrsParameters = Nothing - , _vtrsDescription = Nothing - , _vtrsCapabilities = Nothing - , _vtrsResponseStatus = pResponseStatus_ - } - - --- | A list of the transforms that are declared in the template. -vtrsDeclaredTransforms :: Lens' ValidateTemplateResponse [Text] -vtrsDeclaredTransforms = lens _vtrsDeclaredTransforms (\ s a -> s{_vtrsDeclaredTransforms = a}) . _Default . _Coerce - --- | The list of resources that generated the values in the @Capabilities@ response element. -vtrsCapabilitiesReason :: Lens' ValidateTemplateResponse (Maybe Text) -vtrsCapabilitiesReason = lens _vtrsCapabilitiesReason (\ s a -> s{_vtrsCapabilitiesReason = a}) - --- | A list of @TemplateParameter@ structures. -vtrsParameters :: Lens' ValidateTemplateResponse [TemplateParameter] -vtrsParameters = lens _vtrsParameters (\ s a -> s{_vtrsParameters = a}) . _Default . _Coerce - --- | The description found within the template. -vtrsDescription :: Lens' ValidateTemplateResponse (Maybe Text) -vtrsDescription = lens _vtrsDescription (\ s a -> s{_vtrsDescription = a}) - --- | The capabilities found within the template. If your template contains IAM resources, you must specify the CAPABILITY_IAM or CAPABILITY_NAMED_IAM value for this parameter when you use the 'CreateStack' or 'UpdateStack' actions with your template; otherwise, those actions return an InsufficientCapabilities error. For more information, see . -vtrsCapabilities :: Lens' ValidateTemplateResponse [Capability] -vtrsCapabilities = lens _vtrsCapabilities (\ s a -> s{_vtrsCapabilities = a}) . _Default . _Coerce - --- | -- | The response status code. -vtrsResponseStatus :: Lens' ValidateTemplateResponse Int -vtrsResponseStatus = lens _vtrsResponseStatus (\ s a -> s{_vtrsResponseStatus = a}) - -instance NFData ValidateTemplateResponse where diff --git a/gen/Network/AWS/CloudFormation/Waiters.hs b/gen/Network/AWS/CloudFormation/Waiters.hs deleted file mode 100644 --- a/gen/Network/AWS/CloudFormation/Waiters.hs +++ /dev/null @@ -1,158 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeFamilies #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.CloudFormation.Waiters --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.AWS.CloudFormation.Waiters where - -import Network.AWS.CloudFormation.DescribeChangeSet -import Network.AWS.CloudFormation.DescribeStacks -import Network.AWS.CloudFormation.DescribeStacks -import Network.AWS.CloudFormation.DescribeStacks -import Network.AWS.CloudFormation.DescribeStacks -import Network.AWS.CloudFormation.Types -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Waiter - --- | Polls 'Network.AWS.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. -stackCreateComplete :: Wait DescribeStacks -stackCreateComplete = - Wait - { _waitName = "StackCreateComplete" - , _waitAttempts = 120 - , _waitDelay = 30 - , _waitAcceptors = - [ matchAll - "CREATE_COMPLETE" - AcceptSuccess - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "CREATE_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "DELETE_COMPLETE" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "DELETE_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "ROLLBACK_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "ROLLBACK_COMPLETE" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchError "ValidationError" AcceptFailure - ] - } - - --- | Polls 'Network.AWS.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. -stackUpdateComplete :: Wait DescribeStacks -stackUpdateComplete = - Wait - { _waitName = "StackUpdateComplete" - , _waitAttempts = 120 - , _waitDelay = 30 - , _waitAcceptors = - [ matchAll - "UPDATE_COMPLETE" - AcceptSuccess - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "UPDATE_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "UPDATE_ROLLBACK_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "UPDATE_ROLLBACK_COMPLETE" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchError "ValidationError" AcceptFailure - ] - } - - --- | Polls 'Network.AWS.CloudFormation.DescribeStacks' every 5 seconds until a successful state is reached. An error is returned after 20 failed checks. -stackExists :: Wait DescribeStacks -stackExists = - Wait - { _waitName = "StackExists" - , _waitAttempts = 20 - , _waitDelay = 5 - , _waitAcceptors = - [ matchStatus 200 AcceptSuccess - , matchError "ValidationError" AcceptRetry - ] - } - - --- | Polls 'Network.AWS.CloudFormation.DescribeStacks' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. -stackDeleteComplete :: Wait DescribeStacks -stackDeleteComplete = - Wait - { _waitName = "StackDeleteComplete" - , _waitAttempts = 120 - , _waitDelay = 30 - , _waitAcceptors = - [ matchAll - "DELETE_COMPLETE" - AcceptSuccess - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchError "ValidationError" AcceptSuccess - , matchAny - "DELETE_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "CREATE_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "ROLLBACK_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "UPDATE_ROLLBACK_FAILED" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - , matchAny - "UPDATE_ROLLBACK_IN_PROGRESS" - AcceptFailure - (folding (concatOf dsrsStacks) . sStackStatus . to toTextCI) - ] - } - - --- | Polls 'Network.AWS.CloudFormation.DescribeChangeSet' every 30 seconds until a successful state is reached. An error is returned after 120 failed checks. -changeSetCreateComplete :: Wait DescribeChangeSet -changeSetCreateComplete = - Wait - { _waitName = "ChangeSetCreateComplete" - , _waitAttempts = 120 - , _waitDelay = 30 - , _waitAcceptors = - [ matchAll "CREATE_COMPLETE" AcceptSuccess (desrsStatus . to toTextCI) - , matchAll "FAILED" AcceptFailure (desrsStatus . to toTextCI) - , matchError "ValidationError" AcceptFailure - ] - } - diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,20 +2,22 @@ -- | -- Module : Main --- Copyright : (c) 2013-2018 Brendan Hay +-- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --- module Main (main) where +import Test.Amazonka.CloudFormation +import Test.Amazonka.CloudFormation.Internal import Test.Tasty -import Test.AWS.CloudFormation -import Test.AWS.CloudFormation.Internal main :: IO () -main = defaultMain $ testGroup "CloudFormation" - [ testGroup "tests" tests - , testGroup "fixtures" fixtures - ] +main = + defaultMain $ + testGroup + "CloudFormation" + [ testGroup "tests" tests, + testGroup "fixtures" fixtures + ] diff --git a/test/Test/AWS/CloudFormation.hs b/test/Test/AWS/CloudFormation.hs deleted file mode 100644 --- a/test/Test/AWS/CloudFormation.hs +++ /dev/null @@ -1,26 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - --- Module : Test.AWS.CloudFormation --- Copyright : (c) 2013-2018 Brendan Hay --- License : This Source Code Form is subject to the terms of --- the Mozilla Public License, v. 2.0. --- A copy of the MPL can be found in the LICENSE file or --- you can obtain it at http://mozilla.org/MPL/2.0/. --- Maintainer : Brendan Hay --- Stability : experimental --- Portability : non-portable (GHC extensions) - -module Test.AWS.CloudFormation - ( tests - , fixtures - ) where - -import Network.AWS.CloudFormation -import Test.AWS.Gen.CloudFormation -import Test.Tasty - -tests :: [TestTree] -tests = [] - -fixtures :: [TestTree] -fixtures = [] diff --git a/test/Test/AWS/CloudFormation/Internal.hs b/test/Test/AWS/CloudFormation/Internal.hs deleted file mode 100644 --- a/test/Test/AWS/CloudFormation/Internal.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- Module : Test.AWS.CloudFormation.Internal --- Copyright : (c) 2013-2018 Brendan Hay --- License : This Source Code Form is subject to the terms of --- the Mozilla Public License, v. 2.0. --- A copy of the MPL can be found in the LICENSE file or --- you can obtain it at http://mozilla.org/MPL/2.0/. --- Maintainer : Brendan Hay --- Stability : experimental --- Portability : non-portable (GHC extensions) - -module Test.AWS.CloudFormation.Internal where - -import Test.AWS.Prelude diff --git a/test/Test/AWS/Gen/CloudFormation.hs b/test/Test/AWS/Gen/CloudFormation.hs deleted file mode 100644 --- a/test/Test/AWS/Gen/CloudFormation.hs +++ /dev/null @@ -1,777 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-orphans #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Test.AWS.Gen.CloudFormation --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Test.AWS.Gen.CloudFormation where - -import Data.Proxy -import Network.AWS.CloudFormation -import Test.AWS.CloudFormation.Internal -import Test.AWS.Fixture -import Test.AWS.Prelude -import Test.Tasty - --- Auto-generated: the actual test selection needs to be manually placed into --- the top-level so that real test data can be incrementally added. --- --- This commented snippet is what the entire set should look like: - --- fixtures :: TestTree --- fixtures = --- [ testGroup "request" --- [ requestDescribeStackSetOperation $ --- describeStackSetOperation --- --- , requestDeleteStack $ --- deleteStack --- --- , requestUpdateStack $ --- updateStack --- --- , requestGetTemplateSummary $ --- getTemplateSummary --- --- , requestListChangeSets $ --- listChangeSets --- --- , requestListStackResources $ --- listStackResources --- --- , requestUpdateStackInstances $ --- updateStackInstances --- --- , requestDeleteStackInstances $ --- deleteStackInstances --- --- , requestCreateStackInstances $ --- createStackInstances --- --- , requestGetStackPolicy $ --- getStackPolicy --- --- , requestDescribeStacks $ --- describeStacks --- --- , requestCreateChangeSet $ --- createChangeSet --- --- , requestListStackSetOperations $ --- listStackSetOperations --- --- , requestExecuteChangeSet $ --- executeChangeSet --- --- , requestListStackInstances $ --- listStackInstances --- --- , requestContinueUpdateRollback $ --- continueUpdateRollback --- --- , requestValidateTemplate $ --- validateTemplate --- --- , requestCancelUpdateStack $ --- cancelUpdateStack --- --- , requestDescribeStackEvents $ --- describeStackEvents --- --- , requestSignalResource $ --- signalResource --- --- , requestSetStackPolicy $ --- setStackPolicy --- --- , requestListImports $ --- listImports --- --- , requestListStacks $ --- listStacks --- --- , requestDescribeAccountLimits $ --- describeAccountLimits --- --- , requestDescribeStackResources $ --- describeStackResources --- --- , requestDescribeStackInstance $ --- describeStackInstance --- --- , requestCreateStack $ --- createStack --- --- , requestUpdateStackSet $ --- updateStackSet --- --- , requestDeleteStackSet $ --- deleteStackSet --- --- , requestEstimateTemplateCost $ --- estimateTemplateCost --- --- , requestDeleteChangeSet $ --- deleteChangeSet --- --- , requestListStackSets $ --- listStackSets --- --- , requestListExports $ --- listExports --- --- , requestCreateStackSet $ --- createStackSet --- --- , requestUpdateTerminationProtection $ --- updateTerminationProtection --- --- , requestGetTemplate $ --- getTemplate --- --- , requestDescribeChangeSet $ --- describeChangeSet --- --- , requestDescribeStackSet $ --- describeStackSet --- --- , requestListStackSetOperationResults $ --- listStackSetOperationResults --- --- , requestStopStackSetOperation $ --- stopStackSetOperation --- --- , requestDescribeStackResource $ --- describeStackResource --- --- ] - --- , testGroup "response" --- [ responseDescribeStackSetOperation $ --- describeStackSetOperationResponse --- --- , responseDeleteStack $ --- deleteStackResponse --- --- , responseUpdateStack $ --- updateStackResponse --- --- , responseGetTemplateSummary $ --- getTemplateSummaryResponse --- --- , responseListChangeSets $ --- listChangeSetsResponse --- --- , responseListStackResources $ --- listStackResourcesResponse --- --- , responseUpdateStackInstances $ --- updateStackInstancesResponse --- --- , responseDeleteStackInstances $ --- deleteStackInstancesResponse --- --- , responseCreateStackInstances $ --- createStackInstancesResponse --- --- , responseGetStackPolicy $ --- getStackPolicyResponse --- --- , responseDescribeStacks $ --- describeStacksResponse --- --- , responseCreateChangeSet $ --- createChangeSetResponse --- --- , responseListStackSetOperations $ --- listStackSetOperationsResponse --- --- , responseExecuteChangeSet $ --- executeChangeSetResponse --- --- , responseListStackInstances $ --- listStackInstancesResponse --- --- , responseContinueUpdateRollback $ --- continueUpdateRollbackResponse --- --- , responseValidateTemplate $ --- validateTemplateResponse --- --- , responseCancelUpdateStack $ --- cancelUpdateStackResponse --- --- , responseDescribeStackEvents $ --- describeStackEventsResponse --- --- , responseSignalResource $ --- signalResourceResponse --- --- , responseSetStackPolicy $ --- setStackPolicyResponse --- --- , responseListImports $ --- listImportsResponse --- --- , responseListStacks $ --- listStacksResponse --- --- , responseDescribeAccountLimits $ --- describeAccountLimitsResponse --- --- , responseDescribeStackResources $ --- describeStackResourcesResponse --- --- , responseDescribeStackInstance $ --- describeStackInstanceResponse --- --- , responseCreateStack $ --- createStackResponse --- --- , responseUpdateStackSet $ --- updateStackSetResponse --- --- , responseDeleteStackSet $ --- deleteStackSetResponse --- --- , responseEstimateTemplateCost $ --- estimateTemplateCostResponse --- --- , responseDeleteChangeSet $ --- deleteChangeSetResponse --- --- , responseListStackSets $ --- listStackSetsResponse --- --- , responseListExports $ --- listExportsResponse --- --- , responseCreateStackSet $ --- createStackSetResponse --- --- , responseUpdateTerminationProtection $ --- updateTerminationProtectionResponse --- --- , responseGetTemplate $ --- getTemplateResponse --- --- , responseDescribeChangeSet $ --- describeChangeSetResponse --- --- , responseDescribeStackSet $ --- describeStackSetResponse --- --- , responseListStackSetOperationResults $ --- listStackSetOperationResultsResponse --- --- , responseStopStackSetOperation $ --- stopStackSetOperationResponse --- --- , responseDescribeStackResource $ --- describeStackResourceResponse --- --- ] --- ] - --- Requests - -requestDescribeStackSetOperation :: DescribeStackSetOperation -> TestTree -requestDescribeStackSetOperation = req - "DescribeStackSetOperation" - "fixture/DescribeStackSetOperation.yaml" - -requestDeleteStack :: DeleteStack -> TestTree -requestDeleteStack = req - "DeleteStack" - "fixture/DeleteStack.yaml" - -requestUpdateStack :: UpdateStack -> TestTree -requestUpdateStack = req - "UpdateStack" - "fixture/UpdateStack.yaml" - -requestGetTemplateSummary :: GetTemplateSummary -> TestTree -requestGetTemplateSummary = req - "GetTemplateSummary" - "fixture/GetTemplateSummary.yaml" - -requestListChangeSets :: ListChangeSets -> TestTree -requestListChangeSets = req - "ListChangeSets" - "fixture/ListChangeSets.yaml" - -requestListStackResources :: ListStackResources -> TestTree -requestListStackResources = req - "ListStackResources" - "fixture/ListStackResources.yaml" - -requestUpdateStackInstances :: UpdateStackInstances -> TestTree -requestUpdateStackInstances = req - "UpdateStackInstances" - "fixture/UpdateStackInstances.yaml" - -requestDeleteStackInstances :: DeleteStackInstances -> TestTree -requestDeleteStackInstances = req - "DeleteStackInstances" - "fixture/DeleteStackInstances.yaml" - -requestCreateStackInstances :: CreateStackInstances -> TestTree -requestCreateStackInstances = req - "CreateStackInstances" - "fixture/CreateStackInstances.yaml" - -requestGetStackPolicy :: GetStackPolicy -> TestTree -requestGetStackPolicy = req - "GetStackPolicy" - "fixture/GetStackPolicy.yaml" - -requestDescribeStacks :: DescribeStacks -> TestTree -requestDescribeStacks = req - "DescribeStacks" - "fixture/DescribeStacks.yaml" - -requestCreateChangeSet :: CreateChangeSet -> TestTree -requestCreateChangeSet = req - "CreateChangeSet" - "fixture/CreateChangeSet.yaml" - -requestListStackSetOperations :: ListStackSetOperations -> TestTree -requestListStackSetOperations = req - "ListStackSetOperations" - "fixture/ListStackSetOperations.yaml" - -requestExecuteChangeSet :: ExecuteChangeSet -> TestTree -requestExecuteChangeSet = req - "ExecuteChangeSet" - "fixture/ExecuteChangeSet.yaml" - -requestListStackInstances :: ListStackInstances -> TestTree -requestListStackInstances = req - "ListStackInstances" - "fixture/ListStackInstances.yaml" - -requestContinueUpdateRollback :: ContinueUpdateRollback -> TestTree -requestContinueUpdateRollback = req - "ContinueUpdateRollback" - "fixture/ContinueUpdateRollback.yaml" - -requestValidateTemplate :: ValidateTemplate -> TestTree -requestValidateTemplate = req - "ValidateTemplate" - "fixture/ValidateTemplate.yaml" - -requestCancelUpdateStack :: CancelUpdateStack -> TestTree -requestCancelUpdateStack = req - "CancelUpdateStack" - "fixture/CancelUpdateStack.yaml" - -requestDescribeStackEvents :: DescribeStackEvents -> TestTree -requestDescribeStackEvents = req - "DescribeStackEvents" - "fixture/DescribeStackEvents.yaml" - -requestSignalResource :: SignalResource -> TestTree -requestSignalResource = req - "SignalResource" - "fixture/SignalResource.yaml" - -requestSetStackPolicy :: SetStackPolicy -> TestTree -requestSetStackPolicy = req - "SetStackPolicy" - "fixture/SetStackPolicy.yaml" - -requestListImports :: ListImports -> TestTree -requestListImports = req - "ListImports" - "fixture/ListImports.yaml" - -requestListStacks :: ListStacks -> TestTree -requestListStacks = req - "ListStacks" - "fixture/ListStacks.yaml" - -requestDescribeAccountLimits :: DescribeAccountLimits -> TestTree -requestDescribeAccountLimits = req - "DescribeAccountLimits" - "fixture/DescribeAccountLimits.yaml" - -requestDescribeStackResources :: DescribeStackResources -> TestTree -requestDescribeStackResources = req - "DescribeStackResources" - "fixture/DescribeStackResources.yaml" - -requestDescribeStackInstance :: DescribeStackInstance -> TestTree -requestDescribeStackInstance = req - "DescribeStackInstance" - "fixture/DescribeStackInstance.yaml" - -requestCreateStack :: CreateStack -> TestTree -requestCreateStack = req - "CreateStack" - "fixture/CreateStack.yaml" - -requestUpdateStackSet :: UpdateStackSet -> TestTree -requestUpdateStackSet = req - "UpdateStackSet" - "fixture/UpdateStackSet.yaml" - -requestDeleteStackSet :: DeleteStackSet -> TestTree -requestDeleteStackSet = req - "DeleteStackSet" - "fixture/DeleteStackSet.yaml" - -requestEstimateTemplateCost :: EstimateTemplateCost -> TestTree -requestEstimateTemplateCost = req - "EstimateTemplateCost" - "fixture/EstimateTemplateCost.yaml" - -requestDeleteChangeSet :: DeleteChangeSet -> TestTree -requestDeleteChangeSet = req - "DeleteChangeSet" - "fixture/DeleteChangeSet.yaml" - -requestListStackSets :: ListStackSets -> TestTree -requestListStackSets = req - "ListStackSets" - "fixture/ListStackSets.yaml" - -requestListExports :: ListExports -> TestTree -requestListExports = req - "ListExports" - "fixture/ListExports.yaml" - -requestCreateStackSet :: CreateStackSet -> TestTree -requestCreateStackSet = req - "CreateStackSet" - "fixture/CreateStackSet.yaml" - -requestUpdateTerminationProtection :: UpdateTerminationProtection -> TestTree -requestUpdateTerminationProtection = req - "UpdateTerminationProtection" - "fixture/UpdateTerminationProtection.yaml" - -requestGetTemplate :: GetTemplate -> TestTree -requestGetTemplate = req - "GetTemplate" - "fixture/GetTemplate.yaml" - -requestDescribeChangeSet :: DescribeChangeSet -> TestTree -requestDescribeChangeSet = req - "DescribeChangeSet" - "fixture/DescribeChangeSet.yaml" - -requestDescribeStackSet :: DescribeStackSet -> TestTree -requestDescribeStackSet = req - "DescribeStackSet" - "fixture/DescribeStackSet.yaml" - -requestListStackSetOperationResults :: ListStackSetOperationResults -> TestTree -requestListStackSetOperationResults = req - "ListStackSetOperationResults" - "fixture/ListStackSetOperationResults.yaml" - -requestStopStackSetOperation :: StopStackSetOperation -> TestTree -requestStopStackSetOperation = req - "StopStackSetOperation" - "fixture/StopStackSetOperation.yaml" - -requestDescribeStackResource :: DescribeStackResource -> TestTree -requestDescribeStackResource = req - "DescribeStackResource" - "fixture/DescribeStackResource.yaml" - --- Responses - -responseDescribeStackSetOperation :: DescribeStackSetOperationResponse -> TestTree -responseDescribeStackSetOperation = res - "DescribeStackSetOperationResponse" - "fixture/DescribeStackSetOperationResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStackSetOperation) - -responseDeleteStack :: DeleteStackResponse -> TestTree -responseDeleteStack = res - "DeleteStackResponse" - "fixture/DeleteStackResponse.proto" - cloudFormation - (Proxy :: Proxy DeleteStack) - -responseUpdateStack :: UpdateStackResponse -> TestTree -responseUpdateStack = res - "UpdateStackResponse" - "fixture/UpdateStackResponse.proto" - cloudFormation - (Proxy :: Proxy UpdateStack) - -responseGetTemplateSummary :: GetTemplateSummaryResponse -> TestTree -responseGetTemplateSummary = res - "GetTemplateSummaryResponse" - "fixture/GetTemplateSummaryResponse.proto" - cloudFormation - (Proxy :: Proxy GetTemplateSummary) - -responseListChangeSets :: ListChangeSetsResponse -> TestTree -responseListChangeSets = res - "ListChangeSetsResponse" - "fixture/ListChangeSetsResponse.proto" - cloudFormation - (Proxy :: Proxy ListChangeSets) - -responseListStackResources :: ListStackResourcesResponse -> TestTree -responseListStackResources = res - "ListStackResourcesResponse" - "fixture/ListStackResourcesResponse.proto" - cloudFormation - (Proxy :: Proxy ListStackResources) - -responseUpdateStackInstances :: UpdateStackInstancesResponse -> TestTree -responseUpdateStackInstances = res - "UpdateStackInstancesResponse" - "fixture/UpdateStackInstancesResponse.proto" - cloudFormation - (Proxy :: Proxy UpdateStackInstances) - -responseDeleteStackInstances :: DeleteStackInstancesResponse -> TestTree -responseDeleteStackInstances = res - "DeleteStackInstancesResponse" - "fixture/DeleteStackInstancesResponse.proto" - cloudFormation - (Proxy :: Proxy DeleteStackInstances) - -responseCreateStackInstances :: CreateStackInstancesResponse -> TestTree -responseCreateStackInstances = res - "CreateStackInstancesResponse" - "fixture/CreateStackInstancesResponse.proto" - cloudFormation - (Proxy :: Proxy CreateStackInstances) - -responseGetStackPolicy :: GetStackPolicyResponse -> TestTree -responseGetStackPolicy = res - "GetStackPolicyResponse" - "fixture/GetStackPolicyResponse.proto" - cloudFormation - (Proxy :: Proxy GetStackPolicy) - -responseDescribeStacks :: DescribeStacksResponse -> TestTree -responseDescribeStacks = res - "DescribeStacksResponse" - "fixture/DescribeStacksResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStacks) - -responseCreateChangeSet :: CreateChangeSetResponse -> TestTree -responseCreateChangeSet = res - "CreateChangeSetResponse" - "fixture/CreateChangeSetResponse.proto" - cloudFormation - (Proxy :: Proxy CreateChangeSet) - -responseListStackSetOperations :: ListStackSetOperationsResponse -> TestTree -responseListStackSetOperations = res - "ListStackSetOperationsResponse" - "fixture/ListStackSetOperationsResponse.proto" - cloudFormation - (Proxy :: Proxy ListStackSetOperations) - -responseExecuteChangeSet :: ExecuteChangeSetResponse -> TestTree -responseExecuteChangeSet = res - "ExecuteChangeSetResponse" - "fixture/ExecuteChangeSetResponse.proto" - cloudFormation - (Proxy :: Proxy ExecuteChangeSet) - -responseListStackInstances :: ListStackInstancesResponse -> TestTree -responseListStackInstances = res - "ListStackInstancesResponse" - "fixture/ListStackInstancesResponse.proto" - cloudFormation - (Proxy :: Proxy ListStackInstances) - -responseContinueUpdateRollback :: ContinueUpdateRollbackResponse -> TestTree -responseContinueUpdateRollback = res - "ContinueUpdateRollbackResponse" - "fixture/ContinueUpdateRollbackResponse.proto" - cloudFormation - (Proxy :: Proxy ContinueUpdateRollback) - -responseValidateTemplate :: ValidateTemplateResponse -> TestTree -responseValidateTemplate = res - "ValidateTemplateResponse" - "fixture/ValidateTemplateResponse.proto" - cloudFormation - (Proxy :: Proxy ValidateTemplate) - -responseCancelUpdateStack :: CancelUpdateStackResponse -> TestTree -responseCancelUpdateStack = res - "CancelUpdateStackResponse" - "fixture/CancelUpdateStackResponse.proto" - cloudFormation - (Proxy :: Proxy CancelUpdateStack) - -responseDescribeStackEvents :: DescribeStackEventsResponse -> TestTree -responseDescribeStackEvents = res - "DescribeStackEventsResponse" - "fixture/DescribeStackEventsResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStackEvents) - -responseSignalResource :: SignalResourceResponse -> TestTree -responseSignalResource = res - "SignalResourceResponse" - "fixture/SignalResourceResponse.proto" - cloudFormation - (Proxy :: Proxy SignalResource) - -responseSetStackPolicy :: SetStackPolicyResponse -> TestTree -responseSetStackPolicy = res - "SetStackPolicyResponse" - "fixture/SetStackPolicyResponse.proto" - cloudFormation - (Proxy :: Proxy SetStackPolicy) - -responseListImports :: ListImportsResponse -> TestTree -responseListImports = res - "ListImportsResponse" - "fixture/ListImportsResponse.proto" - cloudFormation - (Proxy :: Proxy ListImports) - -responseListStacks :: ListStacksResponse -> TestTree -responseListStacks = res - "ListStacksResponse" - "fixture/ListStacksResponse.proto" - cloudFormation - (Proxy :: Proxy ListStacks) - -responseDescribeAccountLimits :: DescribeAccountLimitsResponse -> TestTree -responseDescribeAccountLimits = res - "DescribeAccountLimitsResponse" - "fixture/DescribeAccountLimitsResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeAccountLimits) - -responseDescribeStackResources :: DescribeStackResourcesResponse -> TestTree -responseDescribeStackResources = res - "DescribeStackResourcesResponse" - "fixture/DescribeStackResourcesResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStackResources) - -responseDescribeStackInstance :: DescribeStackInstanceResponse -> TestTree -responseDescribeStackInstance = res - "DescribeStackInstanceResponse" - "fixture/DescribeStackInstanceResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStackInstance) - -responseCreateStack :: CreateStackResponse -> TestTree -responseCreateStack = res - "CreateStackResponse" - "fixture/CreateStackResponse.proto" - cloudFormation - (Proxy :: Proxy CreateStack) - -responseUpdateStackSet :: UpdateStackSetResponse -> TestTree -responseUpdateStackSet = res - "UpdateStackSetResponse" - "fixture/UpdateStackSetResponse.proto" - cloudFormation - (Proxy :: Proxy UpdateStackSet) - -responseDeleteStackSet :: DeleteStackSetResponse -> TestTree -responseDeleteStackSet = res - "DeleteStackSetResponse" - "fixture/DeleteStackSetResponse.proto" - cloudFormation - (Proxy :: Proxy DeleteStackSet) - -responseEstimateTemplateCost :: EstimateTemplateCostResponse -> TestTree -responseEstimateTemplateCost = res - "EstimateTemplateCostResponse" - "fixture/EstimateTemplateCostResponse.proto" - cloudFormation - (Proxy :: Proxy EstimateTemplateCost) - -responseDeleteChangeSet :: DeleteChangeSetResponse -> TestTree -responseDeleteChangeSet = res - "DeleteChangeSetResponse" - "fixture/DeleteChangeSetResponse.proto" - cloudFormation - (Proxy :: Proxy DeleteChangeSet) - -responseListStackSets :: ListStackSetsResponse -> TestTree -responseListStackSets = res - "ListStackSetsResponse" - "fixture/ListStackSetsResponse.proto" - cloudFormation - (Proxy :: Proxy ListStackSets) - -responseListExports :: ListExportsResponse -> TestTree -responseListExports = res - "ListExportsResponse" - "fixture/ListExportsResponse.proto" - cloudFormation - (Proxy :: Proxy ListExports) - -responseCreateStackSet :: CreateStackSetResponse -> TestTree -responseCreateStackSet = res - "CreateStackSetResponse" - "fixture/CreateStackSetResponse.proto" - cloudFormation - (Proxy :: Proxy CreateStackSet) - -responseUpdateTerminationProtection :: UpdateTerminationProtectionResponse -> TestTree -responseUpdateTerminationProtection = res - "UpdateTerminationProtectionResponse" - "fixture/UpdateTerminationProtectionResponse.proto" - cloudFormation - (Proxy :: Proxy UpdateTerminationProtection) - -responseGetTemplate :: GetTemplateResponse -> TestTree -responseGetTemplate = res - "GetTemplateResponse" - "fixture/GetTemplateResponse.proto" - cloudFormation - (Proxy :: Proxy GetTemplate) - -responseDescribeChangeSet :: DescribeChangeSetResponse -> TestTree -responseDescribeChangeSet = res - "DescribeChangeSetResponse" - "fixture/DescribeChangeSetResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeChangeSet) - -responseDescribeStackSet :: DescribeStackSetResponse -> TestTree -responseDescribeStackSet = res - "DescribeStackSetResponse" - "fixture/DescribeStackSetResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStackSet) - -responseListStackSetOperationResults :: ListStackSetOperationResultsResponse -> TestTree -responseListStackSetOperationResults = res - "ListStackSetOperationResultsResponse" - "fixture/ListStackSetOperationResultsResponse.proto" - cloudFormation - (Proxy :: Proxy ListStackSetOperationResults) - -responseStopStackSetOperation :: StopStackSetOperationResponse -> TestTree -responseStopStackSetOperation = res - "StopStackSetOperationResponse" - "fixture/StopStackSetOperationResponse.proto" - cloudFormation - (Proxy :: Proxy StopStackSetOperation) - -responseDescribeStackResource :: DescribeStackResourceResponse -> TestTree -responseDescribeStackResource = res - "DescribeStackResourceResponse" - "fixture/DescribeStackResourceResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStackResource) diff --git a/test/Test/Amazonka/CloudFormation.hs b/test/Test/Amazonka/CloudFormation.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/CloudFormation.hs @@ -0,0 +1,20 @@ +-- | +-- Module : Test.Amazonka.CloudFormation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Test.Amazonka.CloudFormation + ( tests, + fixtures, + ) +where + +import Test.Tasty (TestTree) + +tests :: [TestTree] +tests = [] + +fixtures :: [TestTree] +fixtures = [] diff --git a/test/Test/Amazonka/CloudFormation/Internal.hs b/test/Test/Amazonka/CloudFormation/Internal.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/CloudFormation/Internal.hs @@ -0,0 +1,8 @@ +-- | +-- Module : Test.Amazonka.CloudFormation.Internal +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Test.Amazonka.CloudFormation.Internal where diff --git a/test/Test/Amazonka/Gen/CloudFormation.hs b/test/Test/Amazonka/Gen/CloudFormation.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Gen/CloudFormation.hs @@ -0,0 +1,1358 @@ +{-# OPTIONS_GHC -fno-warn-orphans #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Test.Amazonka.Gen.CloudFormation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Test.Amazonka.Gen.CloudFormation where + +import Amazonka.CloudFormation +import qualified Data.Proxy as Proxy +import Test.Amazonka.CloudFormation.Internal +import Test.Amazonka.Fixture +import Test.Amazonka.Prelude +import Test.Tasty + +-- Auto-generated: the actual test selection needs to be manually placed into +-- the top-level so that real test data can be incrementally added. +-- +-- This commented snippet is what the entire set should look like: + +-- fixtures :: TestTree +-- fixtures = +-- [ testGroup "request" +-- [ requestActivateType $ +-- newActivateType +-- +-- , requestBatchDescribeTypeConfigurations $ +-- newBatchDescribeTypeConfigurations +-- +-- , requestCancelUpdateStack $ +-- newCancelUpdateStack +-- +-- , requestContinueUpdateRollback $ +-- newContinueUpdateRollback +-- +-- , requestCreateChangeSet $ +-- newCreateChangeSet +-- +-- , requestCreateStack $ +-- newCreateStack +-- +-- , requestCreateStackInstances $ +-- newCreateStackInstances +-- +-- , requestCreateStackSet $ +-- newCreateStackSet +-- +-- , requestDeactivateType $ +-- newDeactivateType +-- +-- , requestDeleteChangeSet $ +-- newDeleteChangeSet +-- +-- , requestDeleteStack $ +-- newDeleteStack +-- +-- , requestDeleteStackInstances $ +-- newDeleteStackInstances +-- +-- , requestDeleteStackSet $ +-- newDeleteStackSet +-- +-- , requestDeregisterType $ +-- newDeregisterType +-- +-- , requestDescribeAccountLimits $ +-- newDescribeAccountLimits +-- +-- , requestDescribeChangeSet $ +-- newDescribeChangeSet +-- +-- , requestDescribeChangeSetHooks $ +-- newDescribeChangeSetHooks +-- +-- , requestDescribePublisher $ +-- newDescribePublisher +-- +-- , requestDescribeStackDriftDetectionStatus $ +-- newDescribeStackDriftDetectionStatus +-- +-- , requestDescribeStackEvents $ +-- newDescribeStackEvents +-- +-- , requestDescribeStackInstance $ +-- newDescribeStackInstance +-- +-- , requestDescribeStackResource $ +-- newDescribeStackResource +-- +-- , requestDescribeStackResourceDrifts $ +-- newDescribeStackResourceDrifts +-- +-- , requestDescribeStackResources $ +-- newDescribeStackResources +-- +-- , requestDescribeStackSet $ +-- newDescribeStackSet +-- +-- , requestDescribeStackSetOperation $ +-- newDescribeStackSetOperation +-- +-- , requestDescribeStacks $ +-- newDescribeStacks +-- +-- , requestDescribeType $ +-- newDescribeType +-- +-- , requestDescribeTypeRegistration $ +-- newDescribeTypeRegistration +-- +-- , requestDetectStackDrift $ +-- newDetectStackDrift +-- +-- , requestDetectStackResourceDrift $ +-- newDetectStackResourceDrift +-- +-- , requestDetectStackSetDrift $ +-- newDetectStackSetDrift +-- +-- , requestEstimateTemplateCost $ +-- newEstimateTemplateCost +-- +-- , requestExecuteChangeSet $ +-- newExecuteChangeSet +-- +-- , requestGetStackPolicy $ +-- newGetStackPolicy +-- +-- , requestGetTemplate $ +-- newGetTemplate +-- +-- , requestGetTemplateSummary $ +-- newGetTemplateSummary +-- +-- , requestImportStacksToStackSet $ +-- newImportStacksToStackSet +-- +-- , requestListChangeSets $ +-- newListChangeSets +-- +-- , requestListExports $ +-- newListExports +-- +-- , requestListImports $ +-- newListImports +-- +-- , requestListStackInstances $ +-- newListStackInstances +-- +-- , requestListStackResources $ +-- newListStackResources +-- +-- , requestListStackSetOperationResults $ +-- newListStackSetOperationResults +-- +-- , requestListStackSetOperations $ +-- newListStackSetOperations +-- +-- , requestListStackSets $ +-- newListStackSets +-- +-- , requestListStacks $ +-- newListStacks +-- +-- , requestListTypeRegistrations $ +-- newListTypeRegistrations +-- +-- , requestListTypeVersions $ +-- newListTypeVersions +-- +-- , requestListTypes $ +-- newListTypes +-- +-- , requestPublishType $ +-- newPublishType +-- +-- , requestRecordHandlerProgress $ +-- newRecordHandlerProgress +-- +-- , requestRegisterPublisher $ +-- newRegisterPublisher +-- +-- , requestRegisterType $ +-- newRegisterType +-- +-- , requestRollbackStack $ +-- newRollbackStack +-- +-- , requestSetStackPolicy $ +-- newSetStackPolicy +-- +-- , requestSetTypeConfiguration $ +-- newSetTypeConfiguration +-- +-- , requestSetTypeDefaultVersion $ +-- newSetTypeDefaultVersion +-- +-- , requestSignalResource $ +-- newSignalResource +-- +-- , requestStopStackSetOperation $ +-- newStopStackSetOperation +-- +-- , requestTestType $ +-- newTestType +-- +-- , requestUpdateStack $ +-- newUpdateStack +-- +-- , requestUpdateStackInstances $ +-- newUpdateStackInstances +-- +-- , requestUpdateStackSet $ +-- newUpdateStackSet +-- +-- , requestUpdateTerminationProtection $ +-- newUpdateTerminationProtection +-- +-- , requestValidateTemplate $ +-- newValidateTemplate +-- +-- ] + +-- , testGroup "response" +-- [ responseActivateType $ +-- newActivateTypeResponse +-- +-- , responseBatchDescribeTypeConfigurations $ +-- newBatchDescribeTypeConfigurationsResponse +-- +-- , responseCancelUpdateStack $ +-- newCancelUpdateStackResponse +-- +-- , responseContinueUpdateRollback $ +-- newContinueUpdateRollbackResponse +-- +-- , responseCreateChangeSet $ +-- newCreateChangeSetResponse +-- +-- , responseCreateStack $ +-- newCreateStackResponse +-- +-- , responseCreateStackInstances $ +-- newCreateStackInstancesResponse +-- +-- , responseCreateStackSet $ +-- newCreateStackSetResponse +-- +-- , responseDeactivateType $ +-- newDeactivateTypeResponse +-- +-- , responseDeleteChangeSet $ +-- newDeleteChangeSetResponse +-- +-- , responseDeleteStack $ +-- newDeleteStackResponse +-- +-- , responseDeleteStackInstances $ +-- newDeleteStackInstancesResponse +-- +-- , responseDeleteStackSet $ +-- newDeleteStackSetResponse +-- +-- , responseDeregisterType $ +-- newDeregisterTypeResponse +-- +-- , responseDescribeAccountLimits $ +-- newDescribeAccountLimitsResponse +-- +-- , responseDescribeChangeSet $ +-- newDescribeChangeSetResponse +-- +-- , responseDescribeChangeSetHooks $ +-- newDescribeChangeSetHooksResponse +-- +-- , responseDescribePublisher $ +-- newDescribePublisherResponse +-- +-- , responseDescribeStackDriftDetectionStatus $ +-- newDescribeStackDriftDetectionStatusResponse +-- +-- , responseDescribeStackEvents $ +-- newDescribeStackEventsResponse +-- +-- , responseDescribeStackInstance $ +-- newDescribeStackInstanceResponse +-- +-- , responseDescribeStackResource $ +-- newDescribeStackResourceResponse +-- +-- , responseDescribeStackResourceDrifts $ +-- newDescribeStackResourceDriftsResponse +-- +-- , responseDescribeStackResources $ +-- newDescribeStackResourcesResponse +-- +-- , responseDescribeStackSet $ +-- newDescribeStackSetResponse +-- +-- , responseDescribeStackSetOperation $ +-- newDescribeStackSetOperationResponse +-- +-- , responseDescribeStacks $ +-- newDescribeStacksResponse +-- +-- , responseDescribeType $ +-- newDescribeTypeResponse +-- +-- , responseDescribeTypeRegistration $ +-- newDescribeTypeRegistrationResponse +-- +-- , responseDetectStackDrift $ +-- newDetectStackDriftResponse +-- +-- , responseDetectStackResourceDrift $ +-- newDetectStackResourceDriftResponse +-- +-- , responseDetectStackSetDrift $ +-- newDetectStackSetDriftResponse +-- +-- , responseEstimateTemplateCost $ +-- newEstimateTemplateCostResponse +-- +-- , responseExecuteChangeSet $ +-- newExecuteChangeSetResponse +-- +-- , responseGetStackPolicy $ +-- newGetStackPolicyResponse +-- +-- , responseGetTemplate $ +-- newGetTemplateResponse +-- +-- , responseGetTemplateSummary $ +-- newGetTemplateSummaryResponse +-- +-- , responseImportStacksToStackSet $ +-- newImportStacksToStackSetResponse +-- +-- , responseListChangeSets $ +-- newListChangeSetsResponse +-- +-- , responseListExports $ +-- newListExportsResponse +-- +-- , responseListImports $ +-- newListImportsResponse +-- +-- , responseListStackInstances $ +-- newListStackInstancesResponse +-- +-- , responseListStackResources $ +-- newListStackResourcesResponse +-- +-- , responseListStackSetOperationResults $ +-- newListStackSetOperationResultsResponse +-- +-- , responseListStackSetOperations $ +-- newListStackSetOperationsResponse +-- +-- , responseListStackSets $ +-- newListStackSetsResponse +-- +-- , responseListStacks $ +-- newListStacksResponse +-- +-- , responseListTypeRegistrations $ +-- newListTypeRegistrationsResponse +-- +-- , responseListTypeVersions $ +-- newListTypeVersionsResponse +-- +-- , responseListTypes $ +-- newListTypesResponse +-- +-- , responsePublishType $ +-- newPublishTypeResponse +-- +-- , responseRecordHandlerProgress $ +-- newRecordHandlerProgressResponse +-- +-- , responseRegisterPublisher $ +-- newRegisterPublisherResponse +-- +-- , responseRegisterType $ +-- newRegisterTypeResponse +-- +-- , responseRollbackStack $ +-- newRollbackStackResponse +-- +-- , responseSetStackPolicy $ +-- newSetStackPolicyResponse +-- +-- , responseSetTypeConfiguration $ +-- newSetTypeConfigurationResponse +-- +-- , responseSetTypeDefaultVersion $ +-- newSetTypeDefaultVersionResponse +-- +-- , responseSignalResource $ +-- newSignalResourceResponse +-- +-- , responseStopStackSetOperation $ +-- newStopStackSetOperationResponse +-- +-- , responseTestType $ +-- newTestTypeResponse +-- +-- , responseUpdateStack $ +-- newUpdateStackResponse +-- +-- , responseUpdateStackInstances $ +-- newUpdateStackInstancesResponse +-- +-- , responseUpdateStackSet $ +-- newUpdateStackSetResponse +-- +-- , responseUpdateTerminationProtection $ +-- newUpdateTerminationProtectionResponse +-- +-- , responseValidateTemplate $ +-- newValidateTemplateResponse +-- +-- ] +-- ] + +-- Requests + +requestActivateType :: ActivateType -> TestTree +requestActivateType = + req + "ActivateType" + "fixture/ActivateType.yaml" + +requestBatchDescribeTypeConfigurations :: BatchDescribeTypeConfigurations -> TestTree +requestBatchDescribeTypeConfigurations = + req + "BatchDescribeTypeConfigurations" + "fixture/BatchDescribeTypeConfigurations.yaml" + +requestCancelUpdateStack :: CancelUpdateStack -> TestTree +requestCancelUpdateStack = + req + "CancelUpdateStack" + "fixture/CancelUpdateStack.yaml" + +requestContinueUpdateRollback :: ContinueUpdateRollback -> TestTree +requestContinueUpdateRollback = + req + "ContinueUpdateRollback" + "fixture/ContinueUpdateRollback.yaml" + +requestCreateChangeSet :: CreateChangeSet -> TestTree +requestCreateChangeSet = + req + "CreateChangeSet" + "fixture/CreateChangeSet.yaml" + +requestCreateStack :: CreateStack -> TestTree +requestCreateStack = + req + "CreateStack" + "fixture/CreateStack.yaml" + +requestCreateStackInstances :: CreateStackInstances -> TestTree +requestCreateStackInstances = + req + "CreateStackInstances" + "fixture/CreateStackInstances.yaml" + +requestCreateStackSet :: CreateStackSet -> TestTree +requestCreateStackSet = + req + "CreateStackSet" + "fixture/CreateStackSet.yaml" + +requestDeactivateType :: DeactivateType -> TestTree +requestDeactivateType = + req + "DeactivateType" + "fixture/DeactivateType.yaml" + +requestDeleteChangeSet :: DeleteChangeSet -> TestTree +requestDeleteChangeSet = + req + "DeleteChangeSet" + "fixture/DeleteChangeSet.yaml" + +requestDeleteStack :: DeleteStack -> TestTree +requestDeleteStack = + req + "DeleteStack" + "fixture/DeleteStack.yaml" + +requestDeleteStackInstances :: DeleteStackInstances -> TestTree +requestDeleteStackInstances = + req + "DeleteStackInstances" + "fixture/DeleteStackInstances.yaml" + +requestDeleteStackSet :: DeleteStackSet -> TestTree +requestDeleteStackSet = + req + "DeleteStackSet" + "fixture/DeleteStackSet.yaml" + +requestDeregisterType :: DeregisterType -> TestTree +requestDeregisterType = + req + "DeregisterType" + "fixture/DeregisterType.yaml" + +requestDescribeAccountLimits :: DescribeAccountLimits -> TestTree +requestDescribeAccountLimits = + req + "DescribeAccountLimits" + "fixture/DescribeAccountLimits.yaml" + +requestDescribeChangeSet :: DescribeChangeSet -> TestTree +requestDescribeChangeSet = + req + "DescribeChangeSet" + "fixture/DescribeChangeSet.yaml" + +requestDescribeChangeSetHooks :: DescribeChangeSetHooks -> TestTree +requestDescribeChangeSetHooks = + req + "DescribeChangeSetHooks" + "fixture/DescribeChangeSetHooks.yaml" + +requestDescribePublisher :: DescribePublisher -> TestTree +requestDescribePublisher = + req + "DescribePublisher" + "fixture/DescribePublisher.yaml" + +requestDescribeStackDriftDetectionStatus :: DescribeStackDriftDetectionStatus -> TestTree +requestDescribeStackDriftDetectionStatus = + req + "DescribeStackDriftDetectionStatus" + "fixture/DescribeStackDriftDetectionStatus.yaml" + +requestDescribeStackEvents :: DescribeStackEvents -> TestTree +requestDescribeStackEvents = + req + "DescribeStackEvents" + "fixture/DescribeStackEvents.yaml" + +requestDescribeStackInstance :: DescribeStackInstance -> TestTree +requestDescribeStackInstance = + req + "DescribeStackInstance" + "fixture/DescribeStackInstance.yaml" + +requestDescribeStackResource :: DescribeStackResource -> TestTree +requestDescribeStackResource = + req + "DescribeStackResource" + "fixture/DescribeStackResource.yaml" + +requestDescribeStackResourceDrifts :: DescribeStackResourceDrifts -> TestTree +requestDescribeStackResourceDrifts = + req + "DescribeStackResourceDrifts" + "fixture/DescribeStackResourceDrifts.yaml" + +requestDescribeStackResources :: DescribeStackResources -> TestTree +requestDescribeStackResources = + req + "DescribeStackResources" + "fixture/DescribeStackResources.yaml" + +requestDescribeStackSet :: DescribeStackSet -> TestTree +requestDescribeStackSet = + req + "DescribeStackSet" + "fixture/DescribeStackSet.yaml" + +requestDescribeStackSetOperation :: DescribeStackSetOperation -> TestTree +requestDescribeStackSetOperation = + req + "DescribeStackSetOperation" + "fixture/DescribeStackSetOperation.yaml" + +requestDescribeStacks :: DescribeStacks -> TestTree +requestDescribeStacks = + req + "DescribeStacks" + "fixture/DescribeStacks.yaml" + +requestDescribeType :: DescribeType -> TestTree +requestDescribeType = + req + "DescribeType" + "fixture/DescribeType.yaml" + +requestDescribeTypeRegistration :: DescribeTypeRegistration -> TestTree +requestDescribeTypeRegistration = + req + "DescribeTypeRegistration" + "fixture/DescribeTypeRegistration.yaml" + +requestDetectStackDrift :: DetectStackDrift -> TestTree +requestDetectStackDrift = + req + "DetectStackDrift" + "fixture/DetectStackDrift.yaml" + +requestDetectStackResourceDrift :: DetectStackResourceDrift -> TestTree +requestDetectStackResourceDrift = + req + "DetectStackResourceDrift" + "fixture/DetectStackResourceDrift.yaml" + +requestDetectStackSetDrift :: DetectStackSetDrift -> TestTree +requestDetectStackSetDrift = + req + "DetectStackSetDrift" + "fixture/DetectStackSetDrift.yaml" + +requestEstimateTemplateCost :: EstimateTemplateCost -> TestTree +requestEstimateTemplateCost = + req + "EstimateTemplateCost" + "fixture/EstimateTemplateCost.yaml" + +requestExecuteChangeSet :: ExecuteChangeSet -> TestTree +requestExecuteChangeSet = + req + "ExecuteChangeSet" + "fixture/ExecuteChangeSet.yaml" + +requestGetStackPolicy :: GetStackPolicy -> TestTree +requestGetStackPolicy = + req + "GetStackPolicy" + "fixture/GetStackPolicy.yaml" + +requestGetTemplate :: GetTemplate -> TestTree +requestGetTemplate = + req + "GetTemplate" + "fixture/GetTemplate.yaml" + +requestGetTemplateSummary :: GetTemplateSummary -> TestTree +requestGetTemplateSummary = + req + "GetTemplateSummary" + "fixture/GetTemplateSummary.yaml" + +requestImportStacksToStackSet :: ImportStacksToStackSet -> TestTree +requestImportStacksToStackSet = + req + "ImportStacksToStackSet" + "fixture/ImportStacksToStackSet.yaml" + +requestListChangeSets :: ListChangeSets -> TestTree +requestListChangeSets = + req + "ListChangeSets" + "fixture/ListChangeSets.yaml" + +requestListExports :: ListExports -> TestTree +requestListExports = + req + "ListExports" + "fixture/ListExports.yaml" + +requestListImports :: ListImports -> TestTree +requestListImports = + req + "ListImports" + "fixture/ListImports.yaml" + +requestListStackInstances :: ListStackInstances -> TestTree +requestListStackInstances = + req + "ListStackInstances" + "fixture/ListStackInstances.yaml" + +requestListStackResources :: ListStackResources -> TestTree +requestListStackResources = + req + "ListStackResources" + "fixture/ListStackResources.yaml" + +requestListStackSetOperationResults :: ListStackSetOperationResults -> TestTree +requestListStackSetOperationResults = + req + "ListStackSetOperationResults" + "fixture/ListStackSetOperationResults.yaml" + +requestListStackSetOperations :: ListStackSetOperations -> TestTree +requestListStackSetOperations = + req + "ListStackSetOperations" + "fixture/ListStackSetOperations.yaml" + +requestListStackSets :: ListStackSets -> TestTree +requestListStackSets = + req + "ListStackSets" + "fixture/ListStackSets.yaml" + +requestListStacks :: ListStacks -> TestTree +requestListStacks = + req + "ListStacks" + "fixture/ListStacks.yaml" + +requestListTypeRegistrations :: ListTypeRegistrations -> TestTree +requestListTypeRegistrations = + req + "ListTypeRegistrations" + "fixture/ListTypeRegistrations.yaml" + +requestListTypeVersions :: ListTypeVersions -> TestTree +requestListTypeVersions = + req + "ListTypeVersions" + "fixture/ListTypeVersions.yaml" + +requestListTypes :: ListTypes -> TestTree +requestListTypes = + req + "ListTypes" + "fixture/ListTypes.yaml" + +requestPublishType :: PublishType -> TestTree +requestPublishType = + req + "PublishType" + "fixture/PublishType.yaml" + +requestRecordHandlerProgress :: RecordHandlerProgress -> TestTree +requestRecordHandlerProgress = + req + "RecordHandlerProgress" + "fixture/RecordHandlerProgress.yaml" + +requestRegisterPublisher :: RegisterPublisher -> TestTree +requestRegisterPublisher = + req + "RegisterPublisher" + "fixture/RegisterPublisher.yaml" + +requestRegisterType :: RegisterType -> TestTree +requestRegisterType = + req + "RegisterType" + "fixture/RegisterType.yaml" + +requestRollbackStack :: RollbackStack -> TestTree +requestRollbackStack = + req + "RollbackStack" + "fixture/RollbackStack.yaml" + +requestSetStackPolicy :: SetStackPolicy -> TestTree +requestSetStackPolicy = + req + "SetStackPolicy" + "fixture/SetStackPolicy.yaml" + +requestSetTypeConfiguration :: SetTypeConfiguration -> TestTree +requestSetTypeConfiguration = + req + "SetTypeConfiguration" + "fixture/SetTypeConfiguration.yaml" + +requestSetTypeDefaultVersion :: SetTypeDefaultVersion -> TestTree +requestSetTypeDefaultVersion = + req + "SetTypeDefaultVersion" + "fixture/SetTypeDefaultVersion.yaml" + +requestSignalResource :: SignalResource -> TestTree +requestSignalResource = + req + "SignalResource" + "fixture/SignalResource.yaml" + +requestStopStackSetOperation :: StopStackSetOperation -> TestTree +requestStopStackSetOperation = + req + "StopStackSetOperation" + "fixture/StopStackSetOperation.yaml" + +requestTestType :: TestType -> TestTree +requestTestType = + req + "TestType" + "fixture/TestType.yaml" + +requestUpdateStack :: UpdateStack -> TestTree +requestUpdateStack = + req + "UpdateStack" + "fixture/UpdateStack.yaml" + +requestUpdateStackInstances :: UpdateStackInstances -> TestTree +requestUpdateStackInstances = + req + "UpdateStackInstances" + "fixture/UpdateStackInstances.yaml" + +requestUpdateStackSet :: UpdateStackSet -> TestTree +requestUpdateStackSet = + req + "UpdateStackSet" + "fixture/UpdateStackSet.yaml" + +requestUpdateTerminationProtection :: UpdateTerminationProtection -> TestTree +requestUpdateTerminationProtection = + req + "UpdateTerminationProtection" + "fixture/UpdateTerminationProtection.yaml" + +requestValidateTemplate :: ValidateTemplate -> TestTree +requestValidateTemplate = + req + "ValidateTemplate" + "fixture/ValidateTemplate.yaml" + +-- Responses + +responseActivateType :: ActivateTypeResponse -> TestTree +responseActivateType = + res + "ActivateTypeResponse" + "fixture/ActivateTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ActivateType) + +responseBatchDescribeTypeConfigurations :: BatchDescribeTypeConfigurationsResponse -> TestTree +responseBatchDescribeTypeConfigurations = + res + "BatchDescribeTypeConfigurationsResponse" + "fixture/BatchDescribeTypeConfigurationsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy BatchDescribeTypeConfigurations) + +responseCancelUpdateStack :: CancelUpdateStackResponse -> TestTree +responseCancelUpdateStack = + res + "CancelUpdateStackResponse" + "fixture/CancelUpdateStackResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CancelUpdateStack) + +responseContinueUpdateRollback :: ContinueUpdateRollbackResponse -> TestTree +responseContinueUpdateRollback = + res + "ContinueUpdateRollbackResponse" + "fixture/ContinueUpdateRollbackResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ContinueUpdateRollback) + +responseCreateChangeSet :: CreateChangeSetResponse -> TestTree +responseCreateChangeSet = + res + "CreateChangeSetResponse" + "fixture/CreateChangeSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CreateChangeSet) + +responseCreateStack :: CreateStackResponse -> TestTree +responseCreateStack = + res + "CreateStackResponse" + "fixture/CreateStackResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CreateStack) + +responseCreateStackInstances :: CreateStackInstancesResponse -> TestTree +responseCreateStackInstances = + res + "CreateStackInstancesResponse" + "fixture/CreateStackInstancesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CreateStackInstances) + +responseCreateStackSet :: CreateStackSetResponse -> TestTree +responseCreateStackSet = + res + "CreateStackSetResponse" + "fixture/CreateStackSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CreateStackSet) + +responseDeactivateType :: DeactivateTypeResponse -> TestTree +responseDeactivateType = + res + "DeactivateTypeResponse" + "fixture/DeactivateTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeactivateType) + +responseDeleteChangeSet :: DeleteChangeSetResponse -> TestTree +responseDeleteChangeSet = + res + "DeleteChangeSetResponse" + "fixture/DeleteChangeSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeleteChangeSet) + +responseDeleteStack :: DeleteStackResponse -> TestTree +responseDeleteStack = + res + "DeleteStackResponse" + "fixture/DeleteStackResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeleteStack) + +responseDeleteStackInstances :: DeleteStackInstancesResponse -> TestTree +responseDeleteStackInstances = + res + "DeleteStackInstancesResponse" + "fixture/DeleteStackInstancesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeleteStackInstances) + +responseDeleteStackSet :: DeleteStackSetResponse -> TestTree +responseDeleteStackSet = + res + "DeleteStackSetResponse" + "fixture/DeleteStackSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeleteStackSet) + +responseDeregisterType :: DeregisterTypeResponse -> TestTree +responseDeregisterType = + res + "DeregisterTypeResponse" + "fixture/DeregisterTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeregisterType) + +responseDescribeAccountLimits :: DescribeAccountLimitsResponse -> TestTree +responseDescribeAccountLimits = + res + "DescribeAccountLimitsResponse" + "fixture/DescribeAccountLimitsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeAccountLimits) + +responseDescribeChangeSet :: DescribeChangeSetResponse -> TestTree +responseDescribeChangeSet = + res + "DescribeChangeSetResponse" + "fixture/DescribeChangeSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeChangeSet) + +responseDescribeChangeSetHooks :: DescribeChangeSetHooksResponse -> TestTree +responseDescribeChangeSetHooks = + res + "DescribeChangeSetHooksResponse" + "fixture/DescribeChangeSetHooksResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeChangeSetHooks) + +responseDescribePublisher :: DescribePublisherResponse -> TestTree +responseDescribePublisher = + res + "DescribePublisherResponse" + "fixture/DescribePublisherResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribePublisher) + +responseDescribeStackDriftDetectionStatus :: DescribeStackDriftDetectionStatusResponse -> TestTree +responseDescribeStackDriftDetectionStatus = + res + "DescribeStackDriftDetectionStatusResponse" + "fixture/DescribeStackDriftDetectionStatusResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackDriftDetectionStatus) + +responseDescribeStackEvents :: DescribeStackEventsResponse -> TestTree +responseDescribeStackEvents = + res + "DescribeStackEventsResponse" + "fixture/DescribeStackEventsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackEvents) + +responseDescribeStackInstance :: DescribeStackInstanceResponse -> TestTree +responseDescribeStackInstance = + res + "DescribeStackInstanceResponse" + "fixture/DescribeStackInstanceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackInstance) + +responseDescribeStackResource :: DescribeStackResourceResponse -> TestTree +responseDescribeStackResource = + res + "DescribeStackResourceResponse" + "fixture/DescribeStackResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackResource) + +responseDescribeStackResourceDrifts :: DescribeStackResourceDriftsResponse -> TestTree +responseDescribeStackResourceDrifts = + res + "DescribeStackResourceDriftsResponse" + "fixture/DescribeStackResourceDriftsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackResourceDrifts) + +responseDescribeStackResources :: DescribeStackResourcesResponse -> TestTree +responseDescribeStackResources = + res + "DescribeStackResourcesResponse" + "fixture/DescribeStackResourcesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackResources) + +responseDescribeStackSet :: DescribeStackSetResponse -> TestTree +responseDescribeStackSet = + res + "DescribeStackSetResponse" + "fixture/DescribeStackSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackSet) + +responseDescribeStackSetOperation :: DescribeStackSetOperationResponse -> TestTree +responseDescribeStackSetOperation = + res + "DescribeStackSetOperationResponse" + "fixture/DescribeStackSetOperationResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStackSetOperation) + +responseDescribeStacks :: DescribeStacksResponse -> TestTree +responseDescribeStacks = + res + "DescribeStacksResponse" + "fixture/DescribeStacksResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeStacks) + +responseDescribeType :: DescribeTypeResponse -> TestTree +responseDescribeType = + res + "DescribeTypeResponse" + "fixture/DescribeTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeType) + +responseDescribeTypeRegistration :: DescribeTypeRegistrationResponse -> TestTree +responseDescribeTypeRegistration = + res + "DescribeTypeRegistrationResponse" + "fixture/DescribeTypeRegistrationResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeTypeRegistration) + +responseDetectStackDrift :: DetectStackDriftResponse -> TestTree +responseDetectStackDrift = + res + "DetectStackDriftResponse" + "fixture/DetectStackDriftResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DetectStackDrift) + +responseDetectStackResourceDrift :: DetectStackResourceDriftResponse -> TestTree +responseDetectStackResourceDrift = + res + "DetectStackResourceDriftResponse" + "fixture/DetectStackResourceDriftResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DetectStackResourceDrift) + +responseDetectStackSetDrift :: DetectStackSetDriftResponse -> TestTree +responseDetectStackSetDrift = + res + "DetectStackSetDriftResponse" + "fixture/DetectStackSetDriftResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DetectStackSetDrift) + +responseEstimateTemplateCost :: EstimateTemplateCostResponse -> TestTree +responseEstimateTemplateCost = + res + "EstimateTemplateCostResponse" + "fixture/EstimateTemplateCostResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy EstimateTemplateCost) + +responseExecuteChangeSet :: ExecuteChangeSetResponse -> TestTree +responseExecuteChangeSet = + res + "ExecuteChangeSetResponse" + "fixture/ExecuteChangeSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ExecuteChangeSet) + +responseGetStackPolicy :: GetStackPolicyResponse -> TestTree +responseGetStackPolicy = + res + "GetStackPolicyResponse" + "fixture/GetStackPolicyResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetStackPolicy) + +responseGetTemplate :: GetTemplateResponse -> TestTree +responseGetTemplate = + res + "GetTemplateResponse" + "fixture/GetTemplateResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetTemplate) + +responseGetTemplateSummary :: GetTemplateSummaryResponse -> TestTree +responseGetTemplateSummary = + res + "GetTemplateSummaryResponse" + "fixture/GetTemplateSummaryResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetTemplateSummary) + +responseImportStacksToStackSet :: ImportStacksToStackSetResponse -> TestTree +responseImportStacksToStackSet = + res + "ImportStacksToStackSetResponse" + "fixture/ImportStacksToStackSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ImportStacksToStackSet) + +responseListChangeSets :: ListChangeSetsResponse -> TestTree +responseListChangeSets = + res + "ListChangeSetsResponse" + "fixture/ListChangeSetsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListChangeSets) + +responseListExports :: ListExportsResponse -> TestTree +responseListExports = + res + "ListExportsResponse" + "fixture/ListExportsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListExports) + +responseListImports :: ListImportsResponse -> TestTree +responseListImports = + res + "ListImportsResponse" + "fixture/ListImportsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListImports) + +responseListStackInstances :: ListStackInstancesResponse -> TestTree +responseListStackInstances = + res + "ListStackInstancesResponse" + "fixture/ListStackInstancesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListStackInstances) + +responseListStackResources :: ListStackResourcesResponse -> TestTree +responseListStackResources = + res + "ListStackResourcesResponse" + "fixture/ListStackResourcesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListStackResources) + +responseListStackSetOperationResults :: ListStackSetOperationResultsResponse -> TestTree +responseListStackSetOperationResults = + res + "ListStackSetOperationResultsResponse" + "fixture/ListStackSetOperationResultsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListStackSetOperationResults) + +responseListStackSetOperations :: ListStackSetOperationsResponse -> TestTree +responseListStackSetOperations = + res + "ListStackSetOperationsResponse" + "fixture/ListStackSetOperationsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListStackSetOperations) + +responseListStackSets :: ListStackSetsResponse -> TestTree +responseListStackSets = + res + "ListStackSetsResponse" + "fixture/ListStackSetsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListStackSets) + +responseListStacks :: ListStacksResponse -> TestTree +responseListStacks = + res + "ListStacksResponse" + "fixture/ListStacksResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListStacks) + +responseListTypeRegistrations :: ListTypeRegistrationsResponse -> TestTree +responseListTypeRegistrations = + res + "ListTypeRegistrationsResponse" + "fixture/ListTypeRegistrationsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListTypeRegistrations) + +responseListTypeVersions :: ListTypeVersionsResponse -> TestTree +responseListTypeVersions = + res + "ListTypeVersionsResponse" + "fixture/ListTypeVersionsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListTypeVersions) + +responseListTypes :: ListTypesResponse -> TestTree +responseListTypes = + res + "ListTypesResponse" + "fixture/ListTypesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListTypes) + +responsePublishType :: PublishTypeResponse -> TestTree +responsePublishType = + res + "PublishTypeResponse" + "fixture/PublishTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy PublishType) + +responseRecordHandlerProgress :: RecordHandlerProgressResponse -> TestTree +responseRecordHandlerProgress = + res + "RecordHandlerProgressResponse" + "fixture/RecordHandlerProgressResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RecordHandlerProgress) + +responseRegisterPublisher :: RegisterPublisherResponse -> TestTree +responseRegisterPublisher = + res + "RegisterPublisherResponse" + "fixture/RegisterPublisherResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RegisterPublisher) + +responseRegisterType :: RegisterTypeResponse -> TestTree +responseRegisterType = + res + "RegisterTypeResponse" + "fixture/RegisterTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RegisterType) + +responseRollbackStack :: RollbackStackResponse -> TestTree +responseRollbackStack = + res + "RollbackStackResponse" + "fixture/RollbackStackResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RollbackStack) + +responseSetStackPolicy :: SetStackPolicyResponse -> TestTree +responseSetStackPolicy = + res + "SetStackPolicyResponse" + "fixture/SetStackPolicyResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy SetStackPolicy) + +responseSetTypeConfiguration :: SetTypeConfigurationResponse -> TestTree +responseSetTypeConfiguration = + res + "SetTypeConfigurationResponse" + "fixture/SetTypeConfigurationResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy SetTypeConfiguration) + +responseSetTypeDefaultVersion :: SetTypeDefaultVersionResponse -> TestTree +responseSetTypeDefaultVersion = + res + "SetTypeDefaultVersionResponse" + "fixture/SetTypeDefaultVersionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy SetTypeDefaultVersion) + +responseSignalResource :: SignalResourceResponse -> TestTree +responseSignalResource = + res + "SignalResourceResponse" + "fixture/SignalResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy SignalResource) + +responseStopStackSetOperation :: StopStackSetOperationResponse -> TestTree +responseStopStackSetOperation = + res + "StopStackSetOperationResponse" + "fixture/StopStackSetOperationResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy StopStackSetOperation) + +responseTestType :: TestTypeResponse -> TestTree +responseTestType = + res + "TestTypeResponse" + "fixture/TestTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy TestType) + +responseUpdateStack :: UpdateStackResponse -> TestTree +responseUpdateStack = + res + "UpdateStackResponse" + "fixture/UpdateStackResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UpdateStack) + +responseUpdateStackInstances :: UpdateStackInstancesResponse -> TestTree +responseUpdateStackInstances = + res + "UpdateStackInstancesResponse" + "fixture/UpdateStackInstancesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UpdateStackInstances) + +responseUpdateStackSet :: UpdateStackSetResponse -> TestTree +responseUpdateStackSet = + res + "UpdateStackSetResponse" + "fixture/UpdateStackSetResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UpdateStackSet) + +responseUpdateTerminationProtection :: UpdateTerminationProtectionResponse -> TestTree +responseUpdateTerminationProtection = + res + "UpdateTerminationProtectionResponse" + "fixture/UpdateTerminationProtectionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UpdateTerminationProtection) + +responseValidateTemplate :: ValidateTemplateResponse -> TestTree +responseValidateTemplate = + res + "ValidateTemplateResponse" + "fixture/ValidateTemplateResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ValidateTemplate)